; ; LINK POSTPROCESSOR ceo .. 1992 ; ; ocoa coex aoox opopa oax ; popaa, oye c oo cce MKPO. ; ; Generated by M18. ; ------------------------------------------------------------- ; START: MOV #14,R0 EMT 16 CLR VERIF MOV #KOM1,R1 MOV DLKOM1,R2 JSR R7,KOMM ; o eca o.cpoy  TSTB @#40 BNE BBBBBB MOV #233,R0 EMT 16 BBBBBB: TSTB @#56 BNE A1 ; ac ypcop MOV #232,R0 EMT 16 A1: MOV #125252,@#212 MOV #ZAST1,R1 CLR R2 EMT 20 MOV #233,R0 EMT 16 EMT 16 MOV #ZAST2,R1 CLR R2 EMT 20 MOV #PRESS,R1 CLR R2 EMT 20 EMT 6 MOV #233,R0 EMT 16 MOV #KOM2,R1 MOV DLKOM2,R2 JSR R7,KOMM A3: JSR R7,ZAPR1 ; aa pae "=>" o oa  ; (2 aa - R0)  CMP R0,XX1 BNE A2 JSR R7,SES1 ; o aoo oy  BR A3 A2: CMP R0,XX2 BNE A4 JSR R7,SES2 ; o o. oo  BR A3 A4: CMP R0,XX3 BNE A5 JSR R7,SAVE ; ac ooo popa a /  BR A3 A5: CMP R0,XX4 BEQ START BR A3 XX1: .A:LM XX2: .A:LB XX3: .A:SP XX4: .A:RE ; aa pae ZAPR1: MOV #14,R0 EMT 16 MOV #PRIGL,R1 ; "=> " CLR R2 EMT 20 MOV R1,-(R6) EMT 6 EMT 16 MOV R0,R1 EMT 6 EMT 16 MOV R2,-(R6) MOV #10,R2 PR1: ASL R0 SOB R2,PR1 MOV (R6)+,R2 BIC #177400,R1 BIS R1,R0 MOV (R6)+,R1 RTS R7 .R:SCREW CORP 1992 PRIGL: .A: => .E ZAST1: .A: SCREWcorp. LINK POSTPROCESSOR. .B:40.E ZAST2: .B:223.A: ceo .. MOCKBA 1992 .B:12.E PRESS: .B:221.A: PRESS ANY KEY. .E KOM1: .A: SCREWcorp. LINK PROCESSOR MOCKBA 1992 V1.0 DLKOM1: .#56 KOM2: .A: LINK PROCESSOR: MAIN MENU. DLKOM2: .#34 ; o eca o.cpoy KOMM: MOV R0,-(R6) MOV R3,-(R6) MOV R1,R3 CLR R1 MOV ' ',R0 KOMM1: EMT 22 INC R1 CMP R1,#100 BLO KOMM1 CLR R1 KOMMM: MOVB (R3)+,R0 EMT 22 INC R1 SOB R2,KOMMM MOV (R6)+,R3 MOV (R6)+,R0 RTS R7 KOM3: .A: LINK PROCESSOR: LOADING MAIN FILE. DLKOM3: .#44 ; apya aoo oy SES1: MOV #14,R0 EMT 16 MOV #KOM3,R1 MOV DLKOM3,R2 JSR R7,KOMM MOV #TXT1,R1 CLR R2 EMT 20 MOV #TXT2,R1 CLR R2 EMT 20 JSR R7, BAYT ; o 1 coa c aayp R5  MOV #12,R0 EMT 16 SESS2: JSR R7,@#100536 TSTB @#321 BEQ SESS1 MOV #12,R0 EMT 16 BR SESS2 SESS1: MOV @#264,STADRP ; aao ooo popa MOV @#266,DLMAIN ; a aoo oy MOV @#264,R1 MOV @#266,R2 ADD R1,R2 SESS3: CMP R1,R2 BHI NO1 CMPB (R1)+,#242 ; ao "" - pa a BNE SESS3 MOV #4,R3 SESS4: CMPB (R1)+,#242 BNE SESS3 SOB R3,SESS4 MOV (R1)+,DLTABL ; a -a MOV R1,ADRTAB ; apec ee epo e INC VERIF MOV #TXT3,R1 CLR R2 EMT 20 MOV #TXT4,R1 CLR R2 EMT 20 MOV STADRP,R0 JSR R7,WYWOD MOV #TXT5,R1 CLR R2 EMT 20 MOV DLMAIN,R0 JSR R7,WYWOD MOV #TXT6,R1 CLR R2 EMT 20 MOV DLTABL,R0 JSR R7,WYWOD NO11: EMT 6 RTS R7 NO1: MOV #TXTNO1,R1 CLR R2 EMT 20 BR NO11 TXTNO1: .B:12.A: *** ERROR! *** Taa e aea ! .E TXT1: .A: apyae a oy c /. .B:12.E TXT2: .A: Apec oa? .B:40.E TXT3: .B:12.A: Taa aea. .B:12.E TXT4: .B:12.A: a a: Apec: .E TXT5: .B:31.B:31.B:31.B:31.B:31.B:31.B:31.A: a: .E TXT6: .B:12.A: a -a: .E STADRP: .#0 DLMAIN: .#0 DLTABL: .#0 ADRTAB: .#0 VERIF: .#0 ; HK - TAA: ao ae- aa a: ;  ; ; #0 \ ; #0 ! e ac apeco oa ; ....... ! ocyex oo ; #0 / ; oce o apeca aoc aa ; popaa oe o opaac. ; o oc ca R5 BAYT: MOV R0,-(R6) CLR R5 BAYT1: EMT 6 CMP R0,#12 BEQ BAYT2 EMT 16 ASL R5 ASL R5 ASL R5 BIC #177770,R0 ADD R0,R5 BR BAYT1 BAYT2: MOV (R6)+,R0 RTS R7 ; o oc ca R0 WYWOD: MOV R4,-(R6) MOV R5,-(R6) MOV R0,R4 BIT #100000,R4 BEQ WYW1 MOV '1',R0 EMT 16 BR WYW2 WYW1: MOV '0',R0 EMT 16 WYW2: MOV #4,R5 MOV #31,R0 WYW3: EMT 16 SOB R5,WYW3 MOV #5,R5 WYW4: MOV R4,R0 BIC #177770,R0 ADD #60,R0 EMT 16 MOV #10,R0 EMT 16 EMT 16 ASR R4 ASR R4 ASR R4 SOB R5,WYW4 MOV (R6)+,R5 MOV (R6)+,R4 RTS R7 KOM7: .A: LINK PROCESSOR: LOADING BLOCKS . DLKOM7: .#42 ; o o. oo SES2: MOV #14,R0 EMT 16 MOV #KOM7,R1 MOV DLKOM7,R2 JSR R7,KOMM TST VERIF BNE VVVV MOV #ERRO7,R1 CLR R2 EMT 20 EMT 6 RTS R7 VVVV: MOV STADRP,FREE ; ap. a co .o ADD DLMAIN,FREE SESST: MOV #TXT20,R1 CLR R2 EMT 20 MOV FREE,R0 JSR R7,WYWOD MOV #TXT21,R1 CLR R2 EMT 20 MOV #40000,R0 SUB FREE,R0 JSR R7,WYWOD MOV #TXT10,R1 CLR R2 EMT 20 JSR R7,BAYT TST R5 BEQ NOTT CMP R5,DLTABL BHI NOT DEC R5 ASL R5 ADD ADRTAB,R5 MOV R5,-(R6) MOV #TXT22,R1 CLR R2 EMT 20 JSR R7,BAYT CMP R5,FREE BLO NOT1 MOV #12,R0 EMT 16 SESS20: JSR R7,@#100536 TSTB @#321 BEQ SESS10 MOV #12,R0 EMT 16 BR SESS20 SESS10: MOV (R6)+,R5 MOV @#264,(R5)+ MOV #TXT30,R1 CLR R2 EMT 20 EMT 6 MOV @#264,FREE ADD @#266,FREE BR SESST NOTT: RTS R7 NOT: MOV #TXTNOT,R1 CLR R2 EMT 20 EMT 6 BR SESST NOT1: MOV #TXNOT1,R1 CLR R2 EMT 20 EMT 6 BR SESST TXT20: .A: Cooa oa: Apec: .E TXT21: .B:31.B:31.B:31.B:31.B:31.B:31.B:31.A: a: .E TXT10: .B:12.A: Hoep oa (0-xo)? .E TXT22: .B:12.A: Apec apy? .B:40.E TXT30: .B:12.A: ----- o oe ----- .B:12.E TXTNOT: .B:12.A: *** ERROR! *** pee oe a ! .B:12.E TXNOT1: .B:12.A: *** ERROR! *** O訡o apec ! .B:12.E ERRO7: .B:12.A: *** ERROR! *** He apye a a ! .E KOM8: .A: LINK PROCESSOR: SAVING PROGRAM . DLKOM8: .#42 FREE: .#0 ; ac a / SAVE: MOV #14,R0 EMT 16 MOV #KOM8,R1 MOV DLKOM8,R2 JSR R7,KOMM MOV #TXSA1,R1 CLR R2 EMT 20 MOV #TXSA2,R1 CLR R2 EMT 20 JSR R7,IMYA ; o e  MOV #320,R1 MOV #2,(R1)+ MOV STADRP,(R1)+ MOV FREE,@R1 SUB STADRP,(R1)+ MOV #PRESS1,R1 CLR R2 EMT 20 RARA: EMT 6 CMP R0,#3 BNE ARARA RTS R7 ARARA: MOV #320,R1 EMT 36 BR RARA TXSA1: .A: ac popa a /. .B:12.E TXSA2: .A:M? .B:40.E PRESS1: .B:12.A: PRESS ANY KEY (KT - xo) .E ; o e IMYA: MOV R0,-(R6) MOV R1,-(R6) MOV R2,-(R6) MOV #326,R1 MOV ' ',R0 MOV #20,R2 IMYA1: MOVB R0,(R1)+ SOB R2,IMYA1 MOV #326,R1 MOV #5020,R2 EMT 10 MOV #326,R1 MOV #20,R2 IMYA3: CMPB (R1)+,#12 BEQ IMYA2 SOB R2,IMYA3 BR IMYA4 IMYA2: MOVB #40,-(R1) IMYA4: MOV (R6)+,R2 MOV (R6)+,R1 MOV (R6)+,R0 RTS R7 END