                                                                                       /MACRO COMPILER
                     /
                     /PAGE 4200
                     *4200
          MACREF,    CLA CMA
                     TAD I Z GETSY1
                     DCA LATER-1
                     TAD Z M1000
                     DCA I EXIT2+4
                     TAD Z MACEND
                     DCA LATER
                     DCA LATER+1
                     TAD I LATER+2
                     DCA I LATER+3
                     JMP EXIT2-15
                     /
          RTURN,     TAD I EXIT2+4
                     DCA PSWIT2
                     TAD Z MACEND
                     DCA MCTEM
                     JMS I Z IDX1
                     TAD Z CHARX
                     TAD DEFPT+2
                     SNA
                     JMP .+4               /; OR CR
                     /
                     TAD DEFPT+3
                     SZA CLA
                     JMP RTURN
                     /
                     ISZ LATER+1
                     TAD PSWIT2
                     DCA I EXIT2+4
                     TAD MCTEM
                     DCA Z MACEND
                     TAD DEFPT+4
                     JMS I EXIT2+2
                     TAD Z CHARX2
                     TAD DEFPT+2
                     SZA CLA
                     JMP RTURN
                     /
                     TAD Z M1000
                     DCA I LATER+3
                     DCA PSWIT2
                     TAD Z VAL
                     DCA I WHERE2
                     TAD I EXIT2+3
                     DCA I EXIT2+5
                     TAD Z M1000
                     DCA I IDXMC
          EXIT2,     JMS I Z IDX1
                     JMP I LATER-1
                     /
                     PACK
                     JMPOUT
                     PACK+1
                     IDX+1
                     /
          ESCAPE,    CLA CMA
                     TAD I Z GETSY1
                     DCA LATER-1
                     JMS I Z RESTO1
                     TAD PSWIT2
                     SZA CLA
                     JMP NDARGU
                     /
                     ISZ PSWIT2
                     JMS I Z IDX1
                     CLA IAC
                     TAD Z CHARX
                     CIA
                     DCA MCTEM
                     TAD MCTEM
                     TAD LATER+1
                     SPA CLA
                     JMP FINIS-2
                     /
                     TAD I WHERE2
                     DCA DEFPT
                     TAD I IDXMC
                     DCA DEFPT+1
                     TAD LATER
                     DCA I WHERE2
                     TAD Z M1000
                     DCA I IDXMC
                     ISZ MCTEM
                     SKP
                     JMP EXIT2
                     /
                     JMS I Z IDX1
                     TAD Z CHARX
                     CIA
                     TAD DEFPT+4
                     SZA CLA
                     JMP .-5
                     /
                     ISZ MCTEM
                     JMP .-7
                     /
                     JMP EXIT2
                     /
          NDARGU,    DCA PSWIT2
                     TAD DEFPT
                     DCA I WHERE2
                     TAD DEFPT+1
                     DCA I IDXMC
                     JMP EXIT2
                     /
                     TAD DEFPT+5
                     JMS I Z ERR1
          FINIS,     TAD LATER
                     DCA Z MACEND
                     TAD Z M1000
                     DCA I EXIT2+5
                     JMP I .+1
                     /
                     G
                     0
          LATER,     0
                     0                     /PARAMETER COUNT
                     CJMPHE
                     SWITCH
          PSWIT2,    0
          MCTEM,     0
          WHERE2,    GETIN
          IDXMC,     IDXMAC
          DEFPT,     0
                     0
                     0-46
                     0-22
                     77
                     11
                     PAUSE
                                                                                                                                                                                                   