* * 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 * v2.2 10/99 -- Bug fixes (SED, @$, re-diss), load addr * * 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 #