№…** 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