0 'CLUB 100 Library, Modem 415-939-1246 1 'RELOC.BA - Original Ver. by James Yi, revised by Robert Benson (Ver 1.2), additions & corrections by Ron Wiesen (Ver 1.3) 2 ' NEC Adaptation by Gary Weber 8/28/95 10 CLS:PRINT"Make sure you've located the file in RAM":DIMN$(255):FORL=0TO255:READN$(L):NEXT:CLS:PRINT"File name";:INPUTF$ 11 PRINT:INPUT"Top";SA:INPUT"End";EA:INPUT"Exe";EX:PRINT:PRINT"Is there a data table in the file? ";:R$=INPUT$(1) 12 TD=0:IFINSTR("Yy",R$)THENPRINTR$:PRINT:INPUT"Top of data";TD:INPUT"End of data";ED 13 CLS:INPUT"Relocate to";RA:D=RA-SA:LOCATE0,7:PRINT "A)utomatic or M)anual? ";:R$=INPUT$(1):A=1:IFINSTR("Aa",R$)THENA=0:GOTO15 14 CLS:LOCATE2,3:PRINT "Hit [ENTER] at each pause to adjust":LOCATE2,4:PRINT "routines and use SPACEBAR to ignore":FORX=1TO2200:NEXTX 15 CLS:LOCATE15,4:PRINT "Relocating...":PRINTTAB(80) 16 IFD>0THENFORL=EATOSASTEP-1:POKERA+L-SA,PEEK(L):NEXTELSEFORL=SATOEA:POKERA+L-SA,PEEK(L):NEXT 17 FORM=SATOEA:PRINTM"("MID$(STR$(M+D),2,5)")"TAB(18);:B=PEEK(M):IFTDTHENIFM=>TDANDM=" "THENPRINTELSEPRINTPEEK(M+1):M=M+1 19 NEXT:PRINT:PRINT" Save "CHR$(34)F$CHR$(34)" at the new location? ";:R$=INPUT$(1):PRINTR$ 20 IFINSTR("Yy",R$)THENBSAVEF$,SA+D,(EA+D)-(SA+D),EX+D 21 END 22 PRINTCHR$(8);:V=PEEK(M+1)+PEEK(M+2)*256:PRINTV;:IFATHEN25ELSEIFVEATHEN24 23 V=V+D:POKEM+D+1,V-INT(V/256)*256:POKEM+D+2,INT(V/256):PRINT"("MID$(STR$(V),2,5)")"; 24 PRINT:M=M+2:RETURN 25 R$=INPUT$(1):IFR$=CHR$(13)THEN23ELSE24 26 DATANOP,LXI B ,STAX B,INX B,INR B,DCR B,MVI B ,RLC,HLMBC,DAD B,LDAX B,DCX B,INR C,DCR C,MVI C ,RRC 27 DATASHLR,LXI D ,STAX D,INX D,INR D,DCR D,MVI D ,RAL,RDEL,DAD D,LDAX D,DCX D,INR E,DCR E,MVI E ,RAR 28 DATARIM,LXI H ,SHLD ,INX H,INR H,DCR H,MVI H ,DAA,DEHL ,DAD H,LHLD ,DCX H,INR L,DCR L,MVI L ,CMA 29 DATASIM,LXI SP ,STA ,INX SP,INR M,DCR M,MVI M ,STC,DESP ,DAD SP,LDA ,DCX SP,INR A,DCR A,MVI A ,CMC 30 DATAMOV B B,MOV B C,MOV B D,MOV B E,MOV B H,MOV B L,MOV B M,MOV B A 31 DATAMOV C B,MOV C C,MOV C D,MOV C E,MOV C H,MOV C L,MOV C M,MOV C A 32 DATAMOV D B,MOV D C,MOV D D,MOV D E,MOV D H,MOV D L,MOV D M,MOV D A 33 DATAMOV E B,MOV E C,MOV E D,MOV E E,MOV E H,MOV E L,MOV E M,MOV E A 34 DATAMOV H B,MOV H C,MOV H D,MOV H E,MOV H H,MOV H L,MOV H M,MOV H A 35 DATAMOV L B,MOV L C,MOV L D,MOV L E,MOV L H,MOV L L,MOV L M,MOV L A 36 DATAMOV M B,MOV M C,MOV M D,MOV M E,MOV M H,MOV M L,HLT,MOV M A 37 DATAMOV A B,MOV A C,MOV A D,MOV A E,MOV A H,MOV A L,MOV A M,MOV A A 38 DATAADD B,ADD C,ADD D,ADD E,ADD H,ADD L,ADD M,ADD A,ADC B,ADC C,ADC D,ADC E,ADC H,ADC L,ADC M,ADC A 39 DATA SUB B,SUB C,SUB D,SUB E,SUB H,SUB L,SUB M,SUB A,SBB B,SBB C,SBB D,SBB E,SBB H,SBB L,SBB M,SBB A 40 DATAANA B,ANA C,ANA D,ANA E,ANA H,ANA L,ANA M,ANA A,XRA B,XRA C,XRA D,XRA E,XRA H,XRA L,XRA M,XRA A 41 DATAORA B,ORA C,ORA D,ORA E,ORA H,ORA L,ORA M,ORA A,CMP B,CMP C,CMP D,CMP E,CMP H,CMP L,CMP M,CMP A 42 DATA RNZ,POP B,JNZ ,JMP ,CNZ ,PUSH B,ADI ,RST 0,RZ,RET,JZ ,---,CZ ,CALL ,ACI ,RST 1 43 DATARNC,POP D,JNC ,OUT ,CNC ,PUSH D,SUI ,RST 2,RC,SHLI,JC ,IN ,CC ,JTP ,SBI ,RST 3 44 DATARPO,POP H,JPO ,XTHL,CPO ,PUSH H,ANI ,RST 4,RPE,PCHL,JPE ,XCHG,CPE ,LHLI,XRI ,RST 5 45 DATARP,POP PSW,JP ,DI,CP ,PUSH PSW,ORI ,RST 6,RM,SPHL,JM ,EI,CM ,JTM ,CPI ,RST 7