╧┘*
* JAMAICAмон -- аN мл MONITOR FOR THE сUPERцпу
*
* мANY THANKS TO йIM бUTTERFIELD FOR THE ORIGINAL
* сUPERмон CODE.
*
* тHIS PROGRAM IS PUBLIC DOMAIN.
*
* сTEPHEN л. йUDD
* 1/97
*
* V2.0 10/98
* V2.1 9/99
* V2.2 10/99 -- бUG FIXES (сед, @$, RE-DISS), LOAD ADDR
*
* V4.2 4/02 -- BUG FIXES (RELOCATE), D DISASSEMBLES FROM CURRENT ADDR.
*

дест═=═$8000

═орг $0801

═да═линк
═да═3172Ю;лINE NUMBER
═дфб $9еЮ;сыс
═тьт '2063:'
═дфб $а2Ю;нев
═дфб 00
линк═да═0

═лда #14
═ста $д021
═лды #00
═лда #<инстр
═ста $фц
═лда #>инстр
═ста $фд
:пр═лда ($фц),ы
═бея :оут
═йср $ффд2
═ины
═бне :пр
═инц $фд
═бне :пр
:оут

═лда #<дест
═ста $фб
═лда #>дест
═ста $фц
═лда #<цоде
═ста $фд
═лда #>цоде
═ста $фе
═лда #>цоде2
═сец
═сбц #>цоде
═таь
═лды #00
:лооп═лда ($фд),ы
═ста ($фб),ы
═ины
═бне :лооп
═инц $фц
═инц $фе
═деь
═бпл :лооп

пкмем
═лдь #00
═лда #<немтеьт
═ста $фб
═лда #>немтеьт
═ста $фц
:лооп═лды #00
═сты $фд
═сты $фе
═лды #2
═йср пацк
═деы
═йср пацк
═деы
═йср пацк
═лда $фд
═ста нем1,ь
═лда $фе
═ста нем2,ь

═лда $фб
═цлц
═адц #3
═ста $фб
═бцц :цонт
═инц $фц
:цонт═инь
═цпь #92
═бцц :лооп

═лда #>дест-1
═ста $34Ю;END OF BASIC
═ста $38
═лда #<дест-1
═ста $33
═ста $37
═ймп дест

═тьт 'YOO-HOO!'

пацк═лда ($фб),ыЮ;оNLY LOW 5 BITS ARE RETAINED,
═лсрЮ;I.E. CONVERTED TO SCREEN CHAR
═рор $фдЮ;AUTOMATICALLY
═рор $фе
═лср
═рор $фд
═рор $фе
═лср
═рор $фд
═рор $фе
═лср
═рор $фд
═рор $фе
═лср
═рор $фд
═рор $фе
═ртс

немтеьт═тьт 'ADCANDASLBCCBCSBEQBITBMIBNEBPLBRABRK'
═тьт 'BRLBVCBVSCLCCLDCLICLVCMPCOPCPXCPYDEC'
═тьт 'DEXDEYEORINCINXINYJMLJMPJSLJSRLDALDX'
═тьт 'LDYLSRMVNMVPNOPORAPEAPEIPERPHAPHBPHD'
═тьт 'PHKPHPPHXPHYPLAPLBPLDPLPPLXPLYREPROL'
═тьт 'RORRTIRTLRTSSBCSECSEDSEISEPSTASTPSTX'
═тьт 'STYSTZTAXTAYTCDTCSTDCTRBTSBTSCTSXTXA'
═тьт 'TXSTXYTYATYXWAIWDMXBAXCE'

*             0123456789012345678901234567890123456789
инстр═дфб 13,5
═тьт '* JAMAICAMON V4.2 4/02 SJUDD@FFD2.COM *',0D
═тьт '- WDC: JML/JSL FOR JMP (LONG)/JSR LONG',0D
═тьт '- RELOCATE (AND W) FORMAT IS',0D
═тьт '    N BEGINCODE BEGINVARS ENDVARS DEST',0D
═тьт '- USE !M !X !! DURING ASSEMBLY',0D
═тьт ':/;/^ ALTER MEM/REGS/ALT REGS',0D
═тьт 'R DISPLAY REGS     E DISP. EXTRA REGS',0D
═тьт 'M DISPLAY MEM      I/I* DISP. MEM+TEXT',0D
═тьт '# NUMBER CONVERT   @ DISK COMMAND',0D
═тьт 'L LOAD             S SAVE',0D
═тьт 'B SET BREAKPOINT   G GO',0D
═тьт 'Z ZINGLE ZTEP      X EXIT TO BASIC',0D
═тьт '  (ZET BRK AND GO)',0D
═тьт 'A ASSEMBLE         D DISASSEMBLE',0D
═тьт '_ BACKWARDS DISS.  \ TOGGLE REP/SEP',0D
═тьт 'P DISS. RANGE      , RE-DISS',0D
═тьт 'F FILL             H HUNT',0D
═тьт 'N RELOCATE         T TRANSFER',0D
═тьт 'W WHERE AM I?      ? LIST COMMANDS',0D
═дфб 00

цоде
═орг дест
═пут 'JAMAICA.S'
═пут 'PPPATCH.S'
═пут 'JAMTABS.S'
нем1
нем2═=═нем1+92
═орг
цоде2