p* * JAMAICAmon -- aN ml MONITOR FOR THE sUPERcpu * * mANY THANKS TO jIM bUTTERFIELD FOR THE ORIGINAL * sUPERmon CODE. * * tHIS PROGRAM IS PUBLIC DOMAIN. * * sTEPHEN l. jUDD * 1/97 * * V2.0 10/98 * V2.1 9/99 * * sOME sUPERcpu OPCODES BRA MAC DFB $80 DFB ]1-*-1 <<< BRL MAC DFB $82 DA ]1-*-2 <<< PER MAC DFB $62 da ]1-*-2 ;RELATIVE ADDRESS <<< REP MAC DFB $C2 DFB ]1 <<< SEP MAC DFB $E2 DFB ]1 <<< STA1 MAC ;sta BANK 1 ADDRESS DFB $8F DA ]1 DFB $01 <<< ADD16 MAC ;ADD #16-BITS DFB 69 DA ]1 <<< XCE MAC DFB $FB <<< PHB MAC DFB $8B <<< PHD MAC DFB $0B <<< PHK MAC DFB $4B <<< PHX MAC DFB $DA <<< PHY MAC DFB $5A <<< PLD MAC DFB $2B <<< PLX MAC DFB $FA <<< PLY MAC DFB $7A <<< PLB MAC DFB $AB <<< TCD MAC DFB $5B <<< TSC MAC DFB $3B <<< TCS MAC DFB $1B <<< TXY MAC DFB $9B <<< XBA MAC DFB $EB <<< *------------------------------- dest = $8000 org $0801 da link da 3172 ;lINE NUMBER dfb $9e ;sys txt '2063:' dfb $a2 ;new dfb 00 link da 0 ldy #00 lda #instr sta $fd :pr lda ($fc),y beq :out jsr $ffd2 iny bne :pr inc $fd bne :pr :out lda #dest sta $fc lda #

code
 sta $fe
 lda #>endcode
 sec
 sbc #>code
 tax
 ldy #00
:loop lda ($fd),y
 sta ($fb),y
 iny
 bne :loop
 inc $fc
 inc $fe
 dex
 bpl :loop

pkmem
 ldx #00
 lda #nemtext
 sta $fc
:loop ldy #00
 sty $fd
 sty $fe
 ldy #2
 jsr pack
 dey
 jsr pack
 dey
 jsr pack
 lda $fd
 sta nem1,x
 lda $fe
 sta nem2,x

 lda $fb
 clc
 adc #3
 sta $fb
 bcc :cont
 inc $fc
:cont inx
 cpx #92
 bcc :loop

 lda #>dest-1
 sta $34 ;END OF BASIC
 sta $38
 lda #