0 'Club 100 Library, Modem 415-939-1246
1 'JMP.BA by Robert Benson, utility for converting 2-byte codes <> addresses of JMPs, CALLs, or reading ones in memory.
10 CLS:PRINT@42,"(A)ddress to be converted to 2-bytes"
12 PRINT@122,"(N)umbers to be converted to address"
14 PRINT@202,"(L)ocation in memory to be converted"
16 GOSUB76
18 IFINSTR("Aa",Q$)GOTO24
20 IFINSTR("Nn",Q$)GOTO42
22 IFINSTR("Ll",Q$)GOTO60ELSE16
24 CLS:CLEAR50:DEFINTA-B
26 INPUT"Address to be converted";X
28 B=X/256:Y=B*256:A=X-Y
30 PRINT@132,"1st number =";A
32 PRINT@172,"2nd number =";B
34 PRINT@293,"Continue (y/n)";
36 GOSUB76
38 IFINSTR("Yy",Q$)GOTO24
40 IFINSTR("Nn",Q$)GOTO10ELSE36
42 CLS:CLEAR50:DEFINTA-B
44 INPUT"1st number";A
46 INPUT"2nd number";B
48 X=A+(B*256)
50 PRINT@172,"Address =";X
52 PRINT@293,"Continue (y/n)";
54 GOSUB76
56 IFINSTR("Yy",Q$)GOTO42
58 IFINSTR("Nn",Q$)GOTO10ELSE54
60 CLS:CLEAR50
62 INPUT"Address of the first byte";I
64 A=PEEK(I)+PEEK(I+1)*256
66 PRINT@129,"Routine Starts at";A
68 PRINT@253,"Continue (y/n)"
70 GOSUB76
72 IFINSTR("Yy",Q$)GOTO60
74 IFINSTR("Nn",Q$)GOTO10ELSE70
76 Q$=INKEY$:IFQ$=""GOTO76ELSEZ=PEEK(65451):IFZ=7THENMENU
78 RETURN