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* 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 lda #14 sta $d021 ldy #00 lda #<instr sta $fc lda #>instr sta $fd:pr lda ($fc),y beq :out jsr $ffd2 iny bne :pr inc $fd bne :pr:out lda #<dest sta $fb lda #>dest sta $fc lda #<code sta $fd 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 $fb 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 #<dest-1 sta $33 sta $37 jmp dest txt 'YOO-HOO!'pack lda ($fb),y ;oNLY LOW 5 BITS ARE RETAINED, lsr ;I.E. CONVERTED TO SCREEN CHAR ror $fd ;AUTOMATICALLY ror $fe lsr ror $fd ror $fe lsr ror $fd ror $fe lsr ror $fd ror $fe lsr ror $fd ror $fe rtsnemtext txt 'ADCANDASLBCCBCSBEQBITBMIBNEBPLBRABRK' txt 'BRLBVCBVSCLCCLDCLICLVCMPCOPCPXCPYDEC' txt 'DEXDEYEORINCINXINYJMLJMPJSLJSRLDALDX' txt 'LDYLSRMVNMVPNOPORAPEAPEIPERPHAPHBPHD' txt 'PHKPHPPHXPHYPLAPLBPLDPLPPLXPLYREPROL' txt 'RORRTIRTLRTSSBCSECSEDSEISEPSTASTPSTX' txt 'STYSTZTAXTAYTCDTCSTDCTRBTSBTSCTSXTXA' txt 'TXSTXYTYATYXWAIWDMXBAXCE'*               0123456789012345678901234567890123456789instr dfb 13,5 txt '* JAMAICAMON V3.0 12/99 SJUDD@FFD2.COM *',0D txt '- WDC: JML/JSL FOR JMP (LONG)/JSR LONG',0D txt '- RELOCATE (AND W) FORMAT IS',0D txt '    N BEGINCODE BEGINVARS ENDVARS DEST',0D txt '- USE !M !X !! DURING ASSEMBLY',0D txt ':/;/^ ALTER MEM/REGS/ALT REGS',0D txt 'R DISPLAY REGS     E DISP. EXTRA REGS',0D txt 'M DISPLAY MEM      I/I* DISP. MEM+TEXT',0D txt '# NUMBER CONVERT   @ DISK COMMAND',0D txt 'L LOAD             S SAVE',0D txt 'B SET BREAKPOINT   G GO',0D txt 'Z ZINGLE ZTEP      X EXIT TO BASIC',0D txt '  (ZET BRK AND GO)',0D txt 'A ASSEMBLE         D DISASSEMBLE',0D txt '_ BACKWARDS DISS.  \ TOGGLE REP/SEP',0D txt 'P DISS. RANGE      , RE-DISS',0D txt 'F FILL             H HUNT',0D txt 'N RELOCATE         T TRANSFER',0D txt 'W WHERE AM I?      ? LIST COMMANDS',0D dfb 00code org dest put 'JAMAICA.S' put 'PPPATCH.S' put 'JAMTABS.S'nem1nem2 = nem1+92 orgendcode