.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