SEC56K6         equ    * 
        section sec56k6
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;*******************************************************************
;       56600 Opcodes
;       READ REGISTERS
;       There are 66 registers in the 56600 which are programmer
;       accessible. All other registers are considered memory
;       locations in X memory.  There are 18 registers total in
;       the OnCE port.  The following moves are register moves to
;       the OGDB which is a memory mapped register in X I/O space.
;       movep reg,x:xx instructions are all zeros.
;*******************************************************************
GETPREG dc      $000000                 ;0 dump A0
        dc      $000000
        dc      $c83b00                 ;1  movep a0,x:$fffc
        dc      $000800
        dc      $cc3b00                 ;2  movep a1,x:$fffc
        dc      $000800
        dc      $ca3b00                 ;3  movep a2,x:$fffc
	dc      $000800
        dc      $000000                 ;4  movep B,x:$fffc dummy
        dc      $000000
        dc      $c93b00                 ;5  movep b0,x:$fffc
        dc      $000800
        dc      $cd3b00                 ;6  movep b1,x:$fffc
        dc      $000800
        dc      $cb3b00                 ;7  movep b2,x:$fffc
	dc      $000800
        dc      $000000
        dc      $000000                 ;8  movep bcr,x:$fffc dummy
        dc      $000000
        dc      $000000                 ;9  movep ipr,x:$fffc dummy
        dc      $fe3b00                 ;10  movep la,x:$fffc
        dc      $000800
        dc      $ff3b00                 ;11  movep lc,x:$fffc
        dc      $000800
        dc      $e03b00                 ;12  movep m0,x:$fffc
        dc      $000800
        dc      $e13b00                 ;13 movep m1,x:$fffc
        dc      $000800
        dc      $e23b00                 ;14 movep m2,x:$fffc
        dc      $000800
        dc      $e33b00                 ;15 movep m3,x:$fffc
        dc      $000800
        dc      $e43b00                 ;16 movep m4,x:$fffc
        dc      $000800
        dc      $e53b00                 ;17 movep m5,x:$fffc
        dc      $000800
        dc      $e63b00                 ;18 movep m6,x:$fffc
        dc      $000800
        dc      $e73b00                 ;19 movep m7,x:$fffc
        dc      $000800
        dc      $d83b00                 ;20 movep n0,x:$fffc
        dc      $000800
        dc      $D93b00                 ;21 movep n1,x:$fffc
        dc      $000800
        dc      $da3b00                 ;22 movep n2,x:$fffc
        dc      $000800
        dc      $db3b00                 ;23 movep n3,x:$fffc
        dc      $000800
        dc      $dc3b00                 ;24 movep n4,x:$fffc
        dc      $000800
        dc      $dd3b00                 ;25 movep n5,x:$fffc
        dc      $000800
        dc      $de3b00                 ;26 movep n6,x:$fffc
        dc      $000800
        dc      $df3b00                 ;27 movep n7,x:$fffc
        dc      $000800
        dc      $fa3b00                 ;28 movep omr,x:$fffc
	dc      $000800
        dc      $000000                 ;29 movep pc,x:$fffc
        dc      $000000
        dc      $d03b00                 ;30 movep r0,x:$fffc
        dc      $000800
        dc      $d13b00                 ;31 movep r1,x:$fffc
        dc      $000800
        dc      $d23b00                 ;32 movep r2,x:$fffc
        dc      $000800
        dc      $d33b00                 ;33 movep r3,x:$fffc
        dc      $000800
        dc      $d43b00                 ;34 movep r4,x:$fffc
        dc      $000800
        dc      $d53b00                 ;35 movep r5,x:$fffc
        dc      $000800
        dc      $d63b00                 ;36 movep r6,x:$fffc
        dc      $000800
        dc      $d73b00                 ;37 movep r7,x:$fffc
        dc      $000800
        dc      $fb3b00                 ;38 movep sp,x:$fffc
        dc      $000800
        dc      $f93b00                 ;39 movep sr,x:$fffc
        dc      $000800
        dc      $fc3b00                 ;40 movep ssh,x:$fffc
        dc      $000800
        dc      $fd3b00                 ;41 movep ssl,x:$fffc
	dc      $000800
        dc      $000000                 ;42 movep X,x:$fffc
        dc      $000000
        dc      $c43b00                 ;43 movep x0,x:$fffc
        dc      $000800
        dc      $c53b00                 ;44 movep x1,x:$fffc
	dc      $000800
        dc      $000000                 ;45 movep Y,x:$fffc
        dc      $000000
        dc      $c63b00                 ;46 movep y0,x:$fffc
        dc      $000800
        dc      $c73b00                 ;47 movep y1,x:$fffc
        dc      $000800
        dc      $ea3b00                 ;48 movep ep,x:$fffb (56600 reg)
        dc      $000800
        dc      $f83b00                 ;49 movep sz,x:$fffb (56600 reg)
        dc      $000800
        dc      $f13b00                 ;50 movep sc,x:$fffb (56600 reg)
        dc      $000800
        dc      $f03b00                 ;51 movep vba,x:$ffb (56600 reg)
	dc      $000800
;****************************************************************
;       56600 Opcodes
;       WRITE REGISTER
;       All programmer registers except SR,LA,LC,SSH,SSL,SP, and OMR
;       have 24 bit opcodes. The last seven registers have
;       to be 32 bit opcode loads.
;****************************************************************
PUTPREG dc      $000000                 ;0 move #$xxxx,A dummy opcode
	dc	$000000
        dc      $f40000			;1 move #xxxx,a0
        dc      $005000 
        dc      $f40000			;2 move #xxxx,a1
        dc      $005400 
        dc      $f40000			;3 move #>xxxx,a2
        dc      $005200 
        dc      $000000			;4 move #xxxx,B dummy opcode
        dc      $000000
        dc      $f40000			;5 move #>xxxx,b0
        dc      $005100 
	dc      $f40000			;6 move #>xxxx,b1
        dc      $005500 
	dc      $f40000			;7 move #>xxxx,b2
        dc      $005300 
        dc      $000000			;8 move #>xxxx,bcr dummy opcode
        dc      $000000
        dc      $000000			;9 move #>xxxx,ipr dummy opcode
        dc      $000000 
        dc      $f43e00                 ;10  move #>xxxx,la
	dc      $000500
        dc      $f43f00                 ;11  move #>xxxx,lc
	dc      $000500
        dc      $f42000                 ;12 move #>xxxx,m0
        dc      $000500
        dc      $f42100                 ;13 move #>xxxx,m1
        dc      $000500
        dc      $f42200                 ;14 move #>xxxx,m2
        dc      $000500
        dc      $f42300                 ;15 move #>xxxx,m3
        dc      $000500
        dc      $f42400                 ;16 move #>xxxx,m4
        dc      $000500
        dc      $f42500                 ;17 move #>xxxx,m5
        dc      $000500
        dc      $f42600                 ;18 move #>xxxx,m6
        dc      $000500
        dc      $f42700                 ;19 move #>xxxx,m7
        dc      $000500
        dc      $f40000                 ;20 move #>xxxx,n0
	dc      $007000
        dc      $f40000                 ;21 move #>xxxx,n1
        dc      $007100
        dc      $f40000                 ;22 move #>xxxx,n2
        dc      $007200
        dc      $f40000                 ;23 move #>xxxx,n3
        dc      $007300
        dc      $f40000                 ;24 move #>xxxx,n4
        dc      $007400
        dc      $f40000                 ;25 move #>xxxx,n5
        dc      $007500
        dc      $f40000                 ;26 move #>xxxx,n6
        dc      $007600
        dc      $f40000                 ;27 move #>xxxx,n7
	dc      $007700
        dc      $f43a00                 ;28 move #>xxxx,omr
	dc      $000500
        dc      $000000			;29 move #>xxxx,pc dummy
        dc      $000000 
        dc      $f40000                 ;30 move #>xxxx,r0
        dc      $006000
        dc      $f40000                 ;31 move #>xxxx,r1
        dc      $006100
        dc      $f40000                 ;32 move #>xxxx,r2
        dc      $006200
        dc      $f40000                 ;33 move #>xxxx,r3
        dc      $006300
        dc      $f40000                 ;34 move #>xxxx,r4
        dc      $006400
        dc      $f40000                 ;35 move #>xxxx,r5
        dc      $006500
        dc      $f40000                 ;36 move #>xxxx,r6
        dc      $006600
        dc      $f40000                 ;37 move #>xxxx,r7
	dc      $006700
        dc      $f43b00                 ;38 move #>xxxx,sp
        dc      $000500
        dc      $f43900                 ;39 move #>xxxx,sr
        dc      $000500
        dc      $f43c00                 ;40 move #>xxxx,ssh
        dc      $000500
        dc      $f43d00                 ;41 move #>xxxx,ssl
	dc      $000500
        dc      $000000			;42 move #>xxxx,X dummy
        dc      $000000
        dc      $f40000                 ;43 move #>xxxx,x0
        dc      $004400
        dc      $f40000                 ;44 move #>xxxx,x1
	dc      $004500
        dc      $000000			;45 move #>xxxx,Y dummy
        dc      $000000 
        dc      $f40000                 ;46 move #>xxxx,y0
        dc      $004600
        dc      $f40000                 ;47 move #>xxxx,y1
	dc      $004700
        dc      $f42a00                 ;48 move #$123456,ep (56600 reg)
	dc      $000500
        dc      $f43800                 ;49 move #$xxxxxx,sz (56600 reg)
        dc      $000500
        dc      $f43100                 ;50 move #$xxxxxx,sc (56600 reg)
        dc      $000500
        dc      $f43000                 ;51 move #$xxxxxx,vba (56600 reg)
	dc      $000500
;*********************************************************************
;       56600
;       This sequence is used to read the OnCE controller registers
;       one at a time or in groups.  This routine is normally called
;       when the debug mode is entered from a user program or when
;       the user wishes to read the OnCE controller registers similar
;       to a 56600 register.
;*********************************************************************
GETOREG
	dc	$8002                 ;0 once status/control reg. - OSCR
	dc      $8a02                 ;1 pdb register (OPDBR)
	dc      $8b02                 ;2 pil register (OPILR)
        dc      $8122                 ;3 memory breakpoint ctr0 - OMBC
        dc      $8222                 ;4 breakpoint control reg0 - OBCR
        dc      $8522                 ;5 memory limit reg0 - OMLR0
        dc      $8622                 ;6 memory limit reg1 - OMLR1
	dc      $8922                 ;7 gdb register (OGDBR)
        dc      $8d22                 ;8 trace counter (OTC)

PIPE    dc      $8f22                 ;9 pab register for fetch(OPABFR)
	dc	$9022		      ;10 pab register for decode(OBABDR)
        dc      $9122                 ;11 pab register for execute(OPABEX)
;
;	Temporarily read oscr
;
        dc      $9202                 ;12 read FIFO0
        dc      $9202                 ;13 read FIFO1
        dc      $9202                 ;14 read FIFO2
        dc      $9202                 ;15 read FIFO3
        dc      $9202                 ;16 read FIFO4
        dc      $9202                 ;17 read FIFO5
        dc      $9202                 ;18 read FIFO6
        dc      $9202                 ;19 read FIFO7

        dc      $000001               ;eos

;**********************************************************************
;       56600
;       This sequence is used to write the OnCE controller registers
;       one at a time or in groups.  This routine is normally called
;       when the debug mode is entered from a user program or when
;       the user wishes to read the OnCE controller registers similar
;       to a 56600 register.
;
;**********************************************************************
PUTOREG  
	dc      $0004                 ;0 read OnCE status/control (OSCR)
	dc      $0a04                 ;1 pdb register (OPDBR)
	dc      $0b04                 ;2 pil register (OPILR)
			 
        dc      $0124                 ;3 memory breakpoint ctr0 (OMBC)
        dc      $0224                 ;4 breakpoint control reg (OBCR)
        dc      $0524                 ;5 memory limit reg0 (OMLR0)
        dc      $0624                 ;6 memory limit reg1 (OMLR1)
	dc      $0924                 ;7 gdb register (OGDBR)
	dc      $0d24                 ;8 trace counter (OTC)

        dc      $0f24                 ;9 pab register for fetch (OPABF)
        dc      $1024                 ;10 pab register for decode (OPABD)
        dc      $1124                 ;11 pab register for execute (OPABEX)
;
;	FIFO is read only so a no register select is used.
;
        dc      $0f24                 ;12 write FIFO0
        dc      $0f24                 ;13 write FIFO1
        dc      $0f24                 ;14 write FIFO2
        dc      $0f24                 ;15 write FIFO3
        dc      $0f24                 ;16 write FIFO4
        dc      $0f24                 ;17 write FIFO5
        dc      $0f24                 ;18 write FIFO6
        dc      $0f24                 ;19 write FIFO7
 
        dc      $000001                 ;eos
 

;**********************************************************************
;       56600
;       This sequence is used to read 56600 programming model register
;       values to display.
;
;**********************************************************************
REGREAD dc      $4a04                 ;write PDB
REGROPCOD dc    $000000                 ;opcode hi
        dc      $000000                 ;opcode lo
        dc      $8922                 ;read GDB
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to write to 56600 programming model registers.
;
;**********************************************************************
REGWRITE dc     $0a04                 ;write PDB
REGWOPCOD  dc   $000000                 ;opcode hi
        dc      $000000                 ;opcode lo
        dc      $4a04                 ;write PDB
REGVAL  dc      $000000                 ;operand hi
        dc      $000000                 ;operand lo
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to read Program memory.
;
;**********************************************************************
OPREAD  dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $006000                 ;move #$xxxxxx,r0 opcode hi
        dc      $4a04                 ;write PDB
PREADPTR dc     $000000                 ;#$xxxxxx operand lo
        dc      $000000                 ;operand hi
PRDLOOP dc      $4a04                 ;write PDB
        dc      $d87400                 ;opcode lo
	dc      $000800                 ;movep p:(r0)+,x:fff4 - opcode hi
	dc	$0a04		      ;write PDB
	dc	$70b300			;movep x:fff3,x:OGDB - lower 16 bits
	dc	$000800			;opcode hi
	dc	$4a04		      ;write PDB
	dc	$fffb00			;operand $fffb
	dc	$000000
	dc	$8922		      ;Read OGDB
	dc	$0a04
	dc	$70b200		      ;write PDB
	dc	$000800			;movep x:fff2,x:OGDB - upper 8 bits
	dc	$4a04		      ;write PDB
	dc	$fffb00			;operand $fffb
	dc	$000000
        dc      $8922                 ;Read GDB
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to read X Data memory.
;
;**********************************************************************
OXREAD  dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $006000                 ;move #$xxxxxx,r0 opcode hi
        dc      $4a04                 ;write PDB
XREADPTR dc     $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
XRDLOOP dc      $4a04                 ;write PDB
        dc      $d8bb00                 ;opcode lo
	dc      $000800                 ;movep x:(r0)+,x:OGDB
        dc      $8922                 ;Read OGDB 
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to read Y Data memory.
;
;**********************************************************************
OYREAD  dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $006000                 ;move #$xxxxxxxx,r0 opcode hi
        dc      $4a04                 ;write PDB
YREADPTR dc     $000000                 ;#$xxxxxxxx operand hi
        dc      $000000                 ;operand lo
YRDLOOP dc      $4a04                 ;write PDB
        dc      $d8fb00                 ;opcode lo
	dc      $000800                 ;movep y:(r0)+,x:OGDB
        dc      $8922                 ;Read GDB
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to shorten the read cycles
;
;**********************************************************************
	dc      $5f08                 ;NO selection - go command
        dc      $8922                 ;READ GDB
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to shorten the write cycles
;
;**********************************************************************
PWDLOOP dc      $5f08                 ;No selection - go command
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to write a value to a single
;       Program memory location.
;
;**********************************************************************
OPWRITE dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $006000                 ;move #$xxxxxx,r0 opcode hi
        dc      $4a04                 ;write PDB
PWRITPTR dc     $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
PWRLOOP	dc      $0a04                 ;write PDB
	dc      $f4b300                 ;opcode lo
	dc      $000800                 ;move #$xxxx,x:fff3 - lower 16 bits
        dc      $4a04                 ;write PDB - go, no ex.
PWRITVAL dc     $000000                 ;#$xxxxxxxx operand hi
	dc	$000000
	dc	$0a04		      ;write PDB
	dc	$f4b200			;move #$xxxx,x:fff2 - upper 8 bits
	dc	$000800
	dc	$4a04		      ;write PDB - go, no ex.
	dc	$000000
	dc	$000000
PWLOOP	dc      $4a04                 ;write PDB
        dc      $587400                 ;opcode lo
	dc      $000800                 ;movep x:$fff4,p:(r0)+ - opcode hi
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to write to a single X
;       Data memory location.
;
;**********************************************************************
OXWRITE dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $006000                 ;move #$xxxxx,r0 opcode hi
        dc      $4a04                 ;write PDB
XWRITPTR dc     $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
XWRLOOP	dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $004400                 ;move #$xxxxxx,x0 - opcode hi
        dc      $4a04                 ;write PDB - go, no ex.
XWRITVAL dc     $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
XWLOOP	dc      $4a04                 ;write PDB
        dc      $580000                 ;opcode lo
	dc      $004400                 ;movep x0,x:(r0)+ - opcode hi
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to write to a single
;       Y Data memory location.
;
;**********************************************************************
OYWRITE dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $006000                 ;move #$xxxxxx,r0 opcode hi
        dc      $4a04                 ;write PDB
YWRITPTR dc     $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
YWRLOOP	dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $004400                 ;move #$xxxxxx,x0 - opcode hi
        dc      $4a04                 ;write PDB - go, no ex.
YWRITVAL dc     $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
YWLOOP	dc      $4a04                 ;write PDB
        dc      $580000                 ;opcode lo
	dc      $004c00                 ;move x0,y:(r0)+ - opcode hi
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       This sequence is used to re-enter the User Program
;       from the debug state.  This sequence is used for Go immediate
;       from current address or Go from a new address.  When called
;       it sends the Instruction Latch value or a Jmp instruction.
;
;**********************************************************************
USERMODE dc     $0a04                 ;write PDB, wait for ack.
        dc      $000000                 ;PIIB or Jmp long opcode high
        dc      $000000                 ;PIIB low or Jmp long opcode low
        dc      $6a10                 ;write PDB,no wait for ack.
        dc      $000000                 ;PDB or Jmp Address high
        dc      $000000                 ;PDB or Jmp Address low
        dc      $000001
;**********************************************************************
;       56600
;       Restore registers used for write sequences
;
;**********************************************************************
RESTOREX0 dc    $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $004400                 ;move #$xxxxxx,x0 opcode hi
        dc      $4a04                 ;write PDB
X0VAL   dc      $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
        dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
	dc      $006000                 ;move #$xxxxxx,r0 opcode hi
        dc      $4a04                 ;write PDB
R0VAL   dc      $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
        dc      $0a04                 ;write PDB
        dc      $f42000                 ;opcode lo
	dc      $000500                 ;move #$xxxxxx,m0,opcode hi
        dc      $4a04                 ;write PDB
M0VAL   dc      $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
	dc	$000001
;*********************************************************************
;	56600
;	Restore bpmrh,bpmrl values
;*********************************************************************
RESTOR566 dc    $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
        dc      $004400                 ;move #$xxxxxx,x0 opcode hi
        dc      $4a04                 ;write PDB
X00VAL   dc      $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
        dc      $0a04                 ;write PDB
        dc      $f40000                 ;opcode lo
        dc      $006000                 ;move #$xxxxxx,r0 opcode hi
        dc      $4a04                 ;write PDB
R00VAL   dc      $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
        dc      $0a04                 ;write PDB
        dc      $f42000                 ;opcode lo
        dc      $000500                 ;move #$xxxxxx,m0,opcode hi
        dc      $4a04                 ;write PDB
M00VAL   dc      $000000                 ;#$xxxxxx operand hi
        dc      $000000                 ;operand lo
	dc	$0a04		      ;write PDB
	dc	$f4b200
	dc	$000800			;move #$xxxx,bpmrh
	dc	$4a04
BPMRHVAL dc	$000000
	dc	$000000
	dc	$0a04
	dc	$f4b300
	dc	$000800			;move #$xxxx,bpmrl
	dc	$4a04
BPMRLVAL dc	$000000
	dc	$000000
        dc      $000001                 ;eos
;**********************************************************************
;       56600
;       Save register values before doing multiple write values
;
;**********************************************************************
SAVEX0  dc      $4a04                 ;write PDB
        dc      $c43b00                 ;opcode lo
	dc      $000800                 ;move x0,x:OGDB - opcode hi
        dc      $8922                 ;read GDB
SAVER0  dc      $4a04                 ;write PDB
        dc      $d03b00                 ;opcode lo
	dc      $000800                 ;move r0,x:OGDB - opcode hi
        dc      $8922                 ;read GDB
SAVEM0  dc      $4a04                 ;write PDB
        dc      $e03b00                 ;opcode lo
	dc      $000800                 ;move m0,x:OGDB - opcode hi
        dc      $8922                 ;read GDB
        dc      $0a04                 ;write PDB
        dc      $f42000                 ;opcode lo
        dc      $000500                 ;move #$00ffff,m0 - opcode hi
        dc      $4a04                 ;write operand
        dc      $ffff00
        dc      $000000
	dc	$000001
;**********************************************************************
;	56600
;	Save bpmrh,bpmrl values
;
;**********************************************************************
SAVE5660 dc      $4a04                 ;write PDB
        dc      $c43b00                 ;opcode lo
        dc      $000800                 ;move x0,x:OGDB - opcode hi
        dc      $8922                 ;read GDB
SAVER00  dc      $4a04                 ;write PDB
        dc      $d03b00                 ;opcode lo
        dc      $000800                 ;move r0,x:OGDB - opcode hi
        dc      $8922                 ;read GDB
SAVEM00  dc      $4a04                 ;write PDB
        dc      $e03b00                 ;opcode lo
        dc      $000800                 ;move m0,x:OGDB - opcode hi
        dc      $8922                 ;read GDB
        dc      $0a04                 ;write PDB
        dc      $f42000                 ;opcode lo
        dc      $000500                 ;move #$00ffff,m0 - opcode hi
        dc      $4a04                 ;write operand
        dc      $ffff00
        dc      $000000
SAVEBPMRH dc	$0a04		      ;write PDB
	dc	$70b200			;movep x:fff2,x:fffb
	dc	$000800
	dc	$4a04		      ;write PDB operand
	dc	$fffb00
	dc	$000000
	dc	$8922		      ;read GDB
SAVEBPMRL dc	$0a04		      ;write PDB no go,no ex.
	dc	$70b300			;movep x:fff3,x:fffb
	dc	$000800
	dc	$4a04
	dc	$fffb00
	dc	$000000
	dc	$8922		      ;read GDB
        dc      $000001                 ;eos
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
        endsec          ;end of sec56600
ENDSEC7         equ     *

