10 MEMSET &H2A40
20 WIDTH20,20
30 DEFINTI-O
40 DIMA$(256):DIMA%(256)
50 POKE&H11E,&H0A:POKE&H11F,&H40
60 FORI=&HA40 TO&HA45:READJ:POKEI,J:NEXTI
70 FORZ=0TO255:READA$(Z):NEXT
80 FORZ=0TO255:READA%(Z):NEXT
90 A$(256)="@":A%(256)=0
100 DATA &H52,&H25,&H2F,&H25,&H52,&H00
200 DATA ,NOP,,,LSRD,ASLD,TAP,TPA,INX,DEX,CLV,SEV,CLC,SEC,CLI,SEI
205 DATA SBA,CBA,,,,,TAB,TBA,XGDX,DAA,SLP,ABA,,,,
210 DATA BRA&,BRN&,BHI&,BLS&,BCC&,BCS&,BNE&,BEQ&,BVC&,BVS&,BPL&,BMI&,BGE&,BLT&,BGT&,BLE&
215 DATA TSX,INS,PULA,PULB,DES,TXS,PSHA,PSHB,PULX,RTS,ABX,RTI,PSHX,MUL,WAI,SWI
220 DATA NEGA,,,COMA,LSRA,,RORA,ASRA,ASLA,ROLA,DECA,,INCA,TSTA,,CLRA
225 DATA NEGB,,,COMB,LSRB,,RORB,ASRB,ASLB,ROLB,DECB,,INCB,TSTB,,CLRB
230 DATA NEG%,AIM%,OIM%,COM%,LSR%,EIM%,ROR%,ASR%,ASL%,ROL%,DEC%,TIM%,INC%,TST%,JMP%,CLR%
235 DATA NEG$,AIM!,OIM!,COM$,LSR$,EIM!,ROR$,ASR$,ASL$,ROL$,DEC$,TIM!,INC$,TST$,JMP$,CLR$
240 DATA SUBA#,CMPA#,SBCA#,SUBD#,ANDA#,BITA#,LDAA#,,EORA#,ADCA#,ORAA#,ADDA#,CPX#,BSR&,LDS#,
245 DATA SUBA!,CMPA!,SBCA!,SUBD!,ANDA!,BITA!,LDAA!,STAA!,EORA!,ADCA!,ORAA!,ADDA!,CPX!,JSR!,LDS!,STS!
250 DATA SUBA%,CMPA%,SBCA%,SUBD%,ANDA%,BITA%,LDAA%,STAA%,EORA%,ADCA%,ORAA%,ADDA%,CPX%,JSR%,LDS%,STS%
255 DATA SUBA$,CMPA$,SBCA$,SUBD$,ANDA$,BITA$,LDAA$,STAA$,EORA$,ADCA$,ORAA$,ADDA$,CPX$,JSR$,LDS$,STS$
260 DATA SUBB#,CMPB#,SBCB#,ADDD#,ANDB#,BITB#,LDAB#,,EORB#,ADCB#,ORAB#,ADDB#,LDD#,,LDX#,
265 DATA SUBB!,CMPB!,SBCB!,ADDD!,ANDB!,BITB!,LDAB!,STAB!,EORB!,ADCB!,ORAB!,ADDB!,LDD!,STD!,LDX!,STX!
270 DATA SUBB%,CMPB%,SBCB%,ADDD%,ANDB%,BITB%,LDAB%,STAB%,EORB%,ADCB%,ORAB%,ADDB%,LDD%,STD%,LDX%,STX%
275 DATA SUBB$,CMPB$,SBCB$,ADDD$,ANDB$,BITB$,LDAB$,STAB$,EORB$,ADCB$,ORAB$,ADDB$,LDD$,STD$,LDX$,STX$
300 DATA 0,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1
305 DATA 1,1,0,0,0,0,1,1,1,1,1,1,0,0,0,0
310 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
315 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
320 DATA 1,0,0,1,1,0,1,1,1,1,1,0,1,1,0,1
325 DATA 1,0,0,1,1,0,1,1,1,1,1,0,1,1,0,1
330 DATA 2,3,3,2,2,3,2,2,2,2,2,3,2,2,2,2
335 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
340 DATA 2,2,2,3,2,2,2,0,2,2,2,2,3,2,3,0
345 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
350 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
355 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
360 DATA 2,2,2,3,2,2,2,0,2,2,2,2,3,0,3,0
365 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
370 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
375 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
400 INPUT"ORG";I
410 LOCATE0,19,0:PRINTHEX$(I);
420 IFPEEK(I)<>0THEN:LOCATE4,19,0:PRINTSTRING$(8,224);
430 LOCATE4,19,0:INPUTB$:IFB$=""THEN:I=I-A%(J):GOTO410
440 FORJ=0TO255
450 IFB$=A$(J)THEN500
460 NEXTJ
500 ONA%(J)GOSUB600,700,800
510 K=ASC(B$)-32
520 ONK GOSUB900,1000,1100,1200,1300,1400,1500,1500,1500,1000
530 GOTO410
600 POKEI,J:I=I+1:RETURN
700 POKEI,J:I=I+1
710 LOCATE12,18,0:PRINTSTRING$(2,143);
720 LOCATE12,18,1:INPUT"",C$
730 C$=RIGHT$("00"+LEFT$(C$,2),2):L=VAL("&H"+C$)
740 LOCATE12,18,0:PRINTHEX$(L)+CHR$(26)
750 POKEI,L:I=I+1:RETURN
800 POKEI,J:I=I+1
810 LOCATE12,18,0:PRINTSTRING$(4,143);
820 LOCATE12,18,1:INPUT"",C$
830 C$=RIGHT$("0000"+LEFT$(C$,4),4):L=VAL("&H"+C$)
840 LOCATE12,18,0:PRINTHEX$(L)+CHR$(26)
850 LOCATE12,18,0:PRINTHEX$(L)+CHR$(26)
860 L=VAL("&H"+LEFT$(C$,2)):POKEI,L:I=I+1
870 L=VAL("&H"+RIGHT$(C$,2)):POKEI,L:I=I+1
880 RETURN
900 CLS:INPUT"ORG";I:RETURN
1000 RETURN
1100 CLS:INPUT"INS @ ADRS";M:INPUT"# OF BYTES";N
1110 PRINT"CONTINUE?(RETURN)":PRINT"ABORT?(SPACE BAR)";
1120 O$=INPUT$(1):IFO$<>CHR$(13)THENRETURN
1130 FORO=I TOM STEP-1:POKEO+N,PEEK(O):NEXTO
1140 FORO=M TOM+N-1:POKEO,0:NEXTO
1150 RETURN
1200 CLS:INPUT"DEL @ ADRS";M:INPUT"# OF BYTES";N
1210 PRINT"CONTINUE?(RETURN)":PRINT"ABORT?(SPACE BAR";
1220 O$=INPUT$(1):IFO$<>CHR$(13)THENRETURN
1230 FORO=M TOI:POKEO,PEEK(O+N):NEXTO
1240 FORO=I TOI+N-1:POKEO,0:NEXTO
1250 RETURN
1300 CLS:INPUT" ADDRESS";M:INPUT" ADDRESS";N
1310 PRINT"CONTINUE?(RETURN)":PRINT"ABORT?(SPACE BAR)";
1320 O$=INPUT$(1):IFO$<>CHR$(13)THENRETURN
1330 CLS
1340 PRINTHEX$(M);:O=PEEK(M):PRINTTAB(6);A$(O)
1350 M=M+A%(O):IFA%(O)=0THENM=M+1
1360 IFM<N+1THEN1340
1370 RETURN
1400 PRINTCHR$(12):PRINT"ERASE":PRINT"ARE YOU SURE?"
1410 PRINT"YES...(RETURN)":PRINT"NO.(SPACE BAR)";
1420 O$=INPUT$(1):IFO$<>CHR$(13)THENRETURN
1430 PRINTCHR$(11);:PRINT"ARE YOU":PRINT"POSITIVELY SURE?";
1440 O$=INPUT$(1):IFO$<>CHR$(13)THENRETURN
1450 PRINTCHR$(11);:PRINT"ARE YOU ABSOLUTELY";
1460 O$=INPUT$(1):IFO$<>CHR$(13)THENRETURN
1470 FORO=&HB00 TO&H2A3F:POKEO,0:NEXTO
1480 RETURN
1500 END
