* DMSEXIT3 6/13/11
* Swaps ALT/SYS and executes SYS
* From DMSEXIT2 8/30/04, modified to clear A/B 
     ORG 77000B
     OCT 105734          * SJP
     DEF *+1             * just enable system map
     LDA C2
     STA CADR            * start at address 2
LOOP OCT 105745          * LDX
     DEF BSIZ            * number of words, 400 octal
     LDA CADR            * source address
     LDB BUFF            * destination address = 76400 in alt
     OCT 105705          * MWI move words into alt
     OCT 105745          * LDX
     DEF BSIZ            * buffer size
     LDA CADR            * current address in alt
     LDB CADR            * current address in sys
     OCT 105706          * MWF move words from alt map
     OCT 105745          * LDX
     DEF BSIZ            * buffer size
     LDA BUFF            * source = buffer in alt
     LDB CADR            * dest = currentaddr in alt
     OCT 105707          * MWW move words within alt map
     LDA CADR
     ADA BSIZ            * add 400 oct to current address
     CPA ENDA            * if at end
     JMP EXS             * execute system
     STA CADR
     JMP LOOP
EXS  CLA
     CLB
     JMP C2,I            * execute saved system (hopefully)
C2   OCT 2
ENDA OCT 76002           * terminate address
BUFF OCT 76400           * buffer at 76400-76777
BSIZ OCT 400             * buffer size 256 words
CADR OCT 0               * current address
*