*COMDECK SYSPGMAC 
* 
SAVPGE    MAC    CP,T 
          LDA*   DYNPAGE     DYNAMIC PAGE NR
          RPR    A           READ CURRENT DYNAMIC PAGE
          AND    =N$7F       GET CLEAN PAGE NUMBER
          STA"T" "CP"        STORE CURRENT PAGE 
          EMC 
* 
SETPGE    MAC    NP,T 
          LDA"T" "NP"        GET FIRST PAGE ADDRESS 
          ADD*   DYNPAGE
          WPR    A           WRITE 1ST PG 
          ADD*   WRPGADD
          WPR    A           WRITE 2ND PG 
          ADD*   WRPGADD
          WPR    A           WRITE 3RD PG 
          ADD*   WRPGADD
          WPR    A           WRITE 4TH PG 
          EMC 
* 
DYNPAGE   NUM    4*$800      DYNAMIC PAGE NR 4
WRPGADD   NUM    $801        ADD TO WRITE NEXT PAGE 
* 
