; äpaÊ×ep ÐeÞaÔÉ ÇpaÆÉËÉ Îa D100 ÉÚ ANFOCAL8.D (ÄopaÂoÔaÎÎÙÊ).; ;GPRINT: JSR R4,@#110346 JSR R5,PRESC .B:33.B:61.B:33.B:60.B:17.E MOV @#204,R2 ADD @#202,R2 MOV #360,R4 TSTB @#42 BEQ GSTROK MOV #60,R4GSTROK: JSR R5,PRESC .B:12.E MOV #1,R3GST1: MOV #2,R0 MOV R2,-(R6) MOV R4,-(R6)1: TST R4 BLE 2 BIT R3,@R2 BNE 32: INC R03: ADD #100,R2 BPL 4 SUB @#206,R24: DEC R4 ASLB R0 BCC 1 RORB R0 JSR R7,PRINT; JSR R7,PRINT MOV (R6)+,R4 MOV (R6)+,R2 ASL R3 BCC GST1 INC R3 TST (R2)+ BIT #77,R2 BNE GST1 ADD #600,R2 BPL 5 SUB @#206,R25: SUB #7,R4 BGT GSTROK JSR R5,PRESC .B:12.B:12.B:22.B:33.B:65.E JSR R4,@#110362 RTS R7;PRESC1: JSR R7,PRINTPRESC: MOVB (R5)+,R0 BNE PRESC1 INC R5 BIC #1,R5 RTS R5;PRINT: MTPS #0 MOV R0,-(R6) MOV R1,-(R6) MOV #177714,R1 CLR @R1 BIS #177400,R01: BIT #40400,@R1 BEQ 1 MOV R0,@R12: BIT #40400,@R1 BNE 2 CLR @R1 MOV (R6)+,R1 MOV (R6)+,R0 RTS R7;