.TITL BCPLD .TXTM 1 .RDX 8 .NREL L1000: PSYS: SYS ; POINTER TO .SYSTEM ROUTINE PDBG: DBG ; POINTER TO ENTER-DEBUGGER ROUTINE PSAC: 0 ; VECTOR FOR .SYSTEM ROUTINE (SYSAC) 0 0 0 ST1: 0 ; TWO TEMPS ST2: 0 L1010: SYS: STA 3 ST1 MOV 2 3 MOV 1 2 STA 2 ST2 STA 0 SYS0 LDA 0 0,2 LDA 1 1,2 LDA 2 2,2 STA 3 16 .SYSTEM SYS0: 0 MOVO 0 0 SKP MOVZ 0 0 STA 0 @ST2 MOV 2 0 LDA 2 ST2 STA 1 1,2 STA 0 2,2 MOV 3 2 SNC ADC 0 0 LDA 3 ST1 JMP 1,3 DBG: STA 3 ST1 STA 2 ST2 LDA 0 @DBGE COM# 0 0 SNR JMP 1,3 JSR DBG0 STA 3 @DBGR LDA 3 DBGE JMP @0,3 DBG0: JSR 0,3 LDA 2 ST2 LDA 3 ST1 JMP 1,3 DBGE: 406 DBGR: 405 .END