home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / reloc.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  39 lines
  1. 0 'CLUB 100 Library, Modem 415-939-1246
  2. 1 'RELOC.BA - Original Ver. by James Yi, revised by Robert Benson (Ver 1.2)
  3. 10 CLS:PRINT"Make sure you've located the file in RAM":DIMN$(255):FORL=0TO255:READN$(L):NEXT:CLS:PRINT"File name";:INPUTF$
  4. 11 PRINT:INPUT"Top";SA:INPUT"End";EA:INPUT"Exe";EX:PRINT:PRINT"Is there a data table in the file? ";:R$=INPUT$(1)
  5. 12 TD=0:IFINSTR("Yy",R$)THENPRINTR$:PRINT:INPUT"Top of data";TD:INPUT"End of data";ED
  6. 13 CLS:INPUT"Relocate to";RA:D=RA-SA:PRINT@280,"A)utomatic or M)anual? ";:R$=INPUT$(1):A=1:IFINSTR("Aa",R$)THENA=0:GOTO15
  7. 14 CLS:PRINT@122,"Hit [ENTER] at each pause to adjust":PRINT@162,"routines and use SPACEBAR to ignore":FORX=1TO2200:NEXTX
  8. 15 CLS:PRINT@175,"Relocating...":PRINTTAB(80)
  9. 16 IFD>0THENFORL=EATOSASTEP-1:POKERA+L-SA,PEEK(L):NEXTELSEFORL=SATOEA:POKERA+L-SA,PEEK(L):NEXT
  10. 17 FORM=SATOEA:PRINTM"("MID$(STR$(M+D),2,5)")"TAB(18);:B=PEEK(M):IFTDTHENIFM=>TDANDM=<EDTHENPRINTMID$(STR$(B),2,3):GOTO19
  11. 18 PRINTN$(B);:IFRIGHT$(N$(B),2)="  "THENGOSUB22ELSEIFRIGHT$(N$(B),1)<>" "THENPRINTELSEPRINTPEEK(M+1):M=M+1
  12. 19 NEXT:PRINT:PRINT" Save "CHR$(34)F$CHR$(34)" at the new location? ";:R$=INPUT$(1):PRINTR$
  13. 20 IFINSTR("Yy",R$)THENSAVEMF$,SA+D,EA+D,EX+D
  14. 21 END
  15. 22 PRINTCHR$(8);:V=PEEK(M+1)+PEEK(M+2)*256:PRINTV;:IFATHEN25ELSEIFV<SAORV>EATHEN24
  16. 23 V=V+D:POKEM+D+1,V-INT(V/256)*256:POKEM+D+2,INT(V/256):PRINT"("MID$(STR$(V),2,5)")";
  17. 24 PRINT:M=M+2:RETURN
  18. 25 R$=INPUT$(1):IFR$=CHR$(13)THEN23ELSE24
  19. 26 DATANOP,LXI B  ,STAX B,INX B,INR B,DCR B,MVI B ,RLC,---,DAD B,LDAX B,DCX B,INR C,DCR C,MVI C ,RRC
  20. 27 DATA---,LXI D  ,STAX D,INX D,INR D,DCR D,MVI D ,RAL,---,DAD D,LDAX D,DCX D,INR E,DCR E,MVI E ,RAR
  21. 28 DATARIM,LXI H  ,SHLD  ,INX H,INR H,DCR H,MVI H ,DAA,---,DAD H,LHLD  ,DCX H,INR L,DCR L,MVI L ,CMA
  22. 29 DATASIM,LXI SP  ,STA  ,INX SP,INR M,DCR M,MVI M ,STC,---,DAD SP,LDA  ,DCX SP,INR A,DCR A,MVI A ,CMC
  23. 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
  24. 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
  25. 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
  26. 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
  27. 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
  28. 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
  29. 36 DATAMOV M B,MOV M C,MOV M D,MOV M E,MOV M H,MOV M L,HLT,MOV M A
  30. 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
  31. 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
  32. 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
  33. 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
  34. 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
  35. 42 DATA RNZ,POP B,JNZ  ,JMP  ,CNZ  ,PUSH B,ADI ,RST 0,RZ,RET,JZ  ,---,CZ  ,CALL  ,ACI ,RST 1
  36. 43 DATARNC,POP D,JNC  ,OUT ,CNC  ,PUSH D,SUI ,RST 2,RC,---,JC  ,IN ,CC  ,---,SBI ,RST 3
  37. 44 DATARPO,POP H,JPO  ,XTHL,CPO  ,PUSH H,ANI ,RST 4,RPE,PCHL,JPE  ,XCHG,CPE  ,---,XRI ,RST 5
  38. 45 DATARP,POP PSW,JP  ,DI,CP  ,PUSH PSW,ORI ,RST 6,RM,SPHL,JM  ,EI,CM  ,---,CPI ,RST 7
  39.