0 'Club 100 Library, Modem 415-939-1246
1 'DISAVE.BA by Robert Benson (ver 1.3)
100 CLS:CLEAR2000:DIMC$(256),L(256)
110 FORI=0TO255:READC$(I):NEXTI
120 FORI=0TO255:READL(I):NEXTI
130 INPUT"Starting address:";I
140 INPUT"  Ending address:";Z
150 OPEN"SAVE"FOROUTPUTAS1
160 P$="":PRINT#1,I;
170 X=PEEK(I):I=I+1
180 P$=P$+C$(X)
190 IFL(X)=0THENPRINT#1,P$:GOTO320
200 A=PEEK(I):I=I+1:GOSUB350
210 B$=A$:IFL(X)=2THEN240
220 P$=P$+"["+B$+"]"
230 PRINT#1,P$:GOTO330
240 A=PEEK(I):I=I+1:GOSUB350
250 X$=A$+B$
260 J=0:FORK=1TO4
270 G=ASC(MID$(X$,K,1))-48
280 IFG>9THENG=G-7
290 J=16*J+G:NEXTK
300 PRINT#1,P$;:PRINT#1,J
310 IFX=195THENPRINT#1," *"
320 IFX=201THENPRINT#1," "
330 IFI>ZTHENMENU
340 GOTO160
350 R2=INT(A/16):R1=A-R2*16
360 R2=R2+48:IFR2>57THENR2=R2+7
370 A$=CHR$(R2)
380 R1=R1+48:IFR1>57THENR1=R1+7
390 A$=A$+CHR$(R1)
400 RETURN
1000 DATA NOP
1001 DATA LXI  BC   
1002 DATA STAX BC
1003 DATA INX  BC
1004 DATA INR  B
1005 DATA DCR  B
1006 DATA MVI  B
1007 DATA RLC
1008 DATA -
1009 DATA DAD  BC
1010 DATA LDAX A
1011 DATA DCX  BC
1012 DATA INR  C
1013 DATA DCR  C
1014 DATA MVI  C
1015 DATA RRC  A
1016 DATA -
1017 DATA LXI  DE   
1018 DATA STAX DE
1019 DATA INX  DE
1020 DATA INR  D
1021 DATA DCR  D
1022 DATA MVI  D
1023 DATA RAL
1024 DATA -
1025 DATA DAD  DE
1026 DATA LDAX A
1027 DATA DCX  DE
1028 DATA INR  E
1029 DATA DCR  E
1030 DATA MVI  E
1031 DATA RAR
1032 DATA RIM
1033 DATA LXI  HL   
1034 DATA SHLD      
1035 DATA INX  HL
1036 DATA INR  H
1037 DATA DCR  H
1038 DATA MVI  H
1039 DATA DAA
1040 DATA -
1041 DATA DAD  HL
1042 DATA LHLD      
1043 DATA DCX  HL
1044 DATA INR  L
1045 DATA DCR  L
1046 DATA MVI  L
1047 DATA CMA
1048 DATA SIM
1049 DATA LXI  SP   
1050 DATA STA       
1051 DATA INX  SP
1052 DATA INR  RAM
1053 DATA DCR  RAM
1054 DATA MVI  RAM
1055 DATA STC {1}
1056 DATA -
1057 DATA DAD  SP
1058 DATA LDA       
1059 DATA DCX  SP
1060 DATA INR  A
1061 DATA DCR  A
1062 DATA MVI  A
1063 DATA CMC
1064 DATA MOV  B<B
1065 DATA MOV  B<C
1066 DATA MOV  B<D
1067 DATA MOV  B<E
1068 DATA MOV  B<H
1069 DATA MOV  B<L
1070 DATA MOV  B<RAM
1071 DATA MOV  B<A
1072 DATA MOV  C<B
1073 DATA MOV  C<C
1074 DATA MOV  C<D
1075 DATA MOV  C<E
1076 DATA MOV  C<H
1077 DATA MOV  C<L
1078 DATA MOV  C<RAM
1079 DATA MOV  C<A
1080 DATA MOV  D<B
1081 DATA MOV  D<C
1082 DATA MOV  D<D
1083 DATA MOV  D<E
1084 DATA MOV  D<H
1085 DATA MOV  D<L
1086 DATA MOV  D<RAM
1087 DATA MOV  D<A
1088 DATA MOV  E<B
1089 DATA MOV  E<C
1090 DATA MOV  E<D
1091 DATA MOV  E<E
1092 DATA MOV  E<H
1093 DATA MOV  E<L
1094 DATA MOV  E<RAM
1095 DATA MOV  E<A
1096 DATA MOV  H<B
1097 DATA MOV  H<C
1098 DATA MOV  H<D
1099 DATA MOV  H<E
1100 DATA MOV  H<H
1101 DATA MOV  H<L
1102 DATA MOV  H<RAM
1103 DATA MOV  H<A
1104 DATA MOV  L<B
1105 DATA MOV  L<C
1106 DATA MOV  L<D
1107 DATA MOV  L<E
1108 DATA MOV  L<H
1109 DATA MOV  L<L
1110 DATA MOV  L<RAM
1111 DATA MOV  L<A
1112 DATA MOV  RAM<B
1113 DATA MOV  RAM<C
1114 DATA MOV  RAM<D
1115 DATA MOV  RAM<E
1116 DATA MOV  RAM<H
1117 DATA MOV  RAM<L
1118 DATA HLT
1119 DATA MOV  RAM<A
1120 DATA MOV  A<B
1121 DATA MOV  A<C
1122 DATA MOV  A<D
1123 DATA MOV  A<E
1124 DATA MOV  A<H
1125 DATA MOV  A<L
1126 DATA MOV  A<RAM
1127 DATA MOV  A<A
1128 DATA ADD  B>A
1129 DATA ADD  C>A
1130 DATA ADD  D>A
1131 DATA ADD  E>A
1132 DATA ADD  H>A
1133 DATA ADD  L>A
1134 DATA ADD  RAM>A
1135 DATA ADD  A>A
1136 DATA ADC  B>A
1137 DATA ADC  C>A
1138 DATA ADC  D>A
1139 DATA ADC  E>A
1140 DATA ADC  H>A
1141 DATA ADC  L>A
1142 DATA ADC  RAM>A
1143 DATA ADC  A>A
1144 DATA SUB  B<A
1145 DATA SUB  C<A
1146 DATA SUB  D<A
1147 DATA SUB  E<A
1148 DATA SUB  H<A
1149 DATA SUB  L<A
1150 DATA SUB  RAM<A
1151 DATA SUB  A<A
1152 DATA SBB  B<A
1153 DATA SBB  C<A
1154 DATA SBB  D<A
1155 DATA SBB  E<A
1156 DATA SBB  H<A
1157 DATA SBB  L<A
1158 DATA SBB  RAM<A
1159 DATA SBB  A<A
1160 DATA ANA  B
1161 DATA ANA  C
1162 DATA ANA  D
1163 DATA ANA  E
1164 DATA ANA  H
1165 DATA ANA  L
1166 DATA AMA  RAM
1167 DATA ANA  A
1168 DATA XRA  B
1169 DATA XRA  C
1170 DATA XRA  D
1171 DATA XRA  E
1172 DATA XRA  H
1173 DATA XRA  L
1174 DATA XRA  RAM
1175 DATA XRA  A
1176 DATA ORA  B
1177 DATA ORA  C
1178 DATA ORA  D
1179 DATA ORA  E
1180 DATA ORA  H
1181 DATA ORA  L
1182 DATA ORA  RAM
1183 DATA ORA  A
1184 DATA CMP  A:B
1185 DATA CMP  A:C
1186 DATA CMP  A:D
1187 DATA CMP  A:A
1188 DATA CMP  A:H
1189 DATA CMP  A:L
1190 DATA CMP  A:RAM
1191 DATA CMP  A:A
1192 DATA RNZ {0}
1193 DATA POP  BC
1194 DATA JNZ {0}   
1195 DATA JMP       
1196 DATA CNZ {0}   
1197 DATA PUSH BC
1198 DATA ADI  
1199 DATA RST #0
1200 DATA RZ  {1}
1201 DATA RET
1202 DATA JZ  {1}   
1203 DATA -
1204 DATA CZ  {1}   
1205 DATA CALL      
1206 DATA ACI  
1207 DATA RST #1
1208 DATA RNC {0}
1209 DATA POP  DE
1210 DATA JNC {0}   
1211 DATA OUT  
1212 DATA CNC {0}   
1213 DATA PUSH DE
1214 DATA SUI  
1215 DATA RST #2
1216 DATA RC  {1}
1217 DATA -
1218 DATA JC  {1}   
1219 DATA IN   
1220 DATA CC  {1}   
1221 DATA -
1222 DATA SBI  
1223 DATA RST #3
1224 DATA RPO
1225 DATA POP  HL
1226 DATA JPO       
1227 DATA XTHL
1228 DATA CPO       
1229 DATA PUSH HL
1230 DATA ANI  
1231 DATA RST #4
1232 DATA RPE
1233 DATA PCHL
1234 DATA JPE       
1235 DATA XCHG
1236 DATA CPE       
1237 DATA -
1238 DATA XRI  
1239 DATA RST #5
1240 DATA RP  {0}
1241 DATA POP  PSW
1242 DATA JP  {0}   
1243 DATA DI
1244 DATA CP  {0}   
1245 DATA PUSH PSW
1246 DATA ORI  
1247 DATA RST #6
1248 DATA RM  {1}
1249 DATA SPHL
1250 DATA JM        
1251 DATA EI
1252 DATA CM  {1}   
1253 DATA -
1254 DATA CPI  
1255 DATA RST #7
2001 DATA 0,2,0,0
2002 DATA 0,0,1,0
2003 DATA 0,0,0,0
2004 DATA 0,0,1,0
2005 DATA 0,2,0,0
2006 DATA 0,0,1,0
2007 DATA 0,0,0,0
2008 DATA 0,0,1,0
2009 DATA 0,2,2,0
2010 DATA 0,0,1,0
2011 DATA 0,0,2,0
2012 DATA 0,0,1,0
2013 DATA 0,2,2,0
2014 DATA 0,0,1,0
2015 DATA 0,0,2,0
2016 DATA 0,0,1,0
2017 DATA 0,0,0,0
2018 DATA 0,0,0,0
2019 DATA 0,0,0,0
2020 DATA 0,0,0,0
2021 DATA 0,0,0,0
2022 DATA 0,0,0,0
2023 DATA 0,0,0,0
2024 DATA 0,0,0,0
2025 DATA 0,0,0,0
2026 DATA 0,0,0,0
2027 DATA 0,0,0,0
2028 DATA 0,0,0,0
2029 DATA 0,0,0,0
2030 DATA 0,0,0,0
2031 DATA 0,0,0,0
2032 DATA 0,0,0,0
2033 DATA 0,0,0,0
2034 DATA 0,0,0,0
2035 DATA 0,0,0,0
2036 DATA 0,0,0,0
2037 DATA 0,0,0,0
2038 DATA 0,0,0,0
2039 DATA 0,0,0,0
2040 DATA 0,0,0,0
2041 DATA 0,0,0,0
2042 DATA 0,0,0,0
2043 DATA 0,0,0,0
2044 DATA 0,0,0,0
2045 DATA 0,0,0,0
2046 DATA 0,0,0,0
2047 DATA 0,0,0,0
2048 DATA 0,0,0,0
2049 DATA 0,0,2,2
2050 DATA 2,0,1,0
2051 DATA 0,0,2,0
2052 DATA 2,2,1,0
2053 DATA 0,0,2,1
2054 DATA 2,0,1,0
2055 DATA 0,0,2,1
2056 DATA 2,0,1,0
2057 DATA 0,0,2,0
2058 DATA 2,0,1,0
2059 DATA 0,0,2,0
2060 DATA 2,0,1,0
2061 DATA 0,0,2,0
2062 DATA 2,0,1,0
2063 DATA 0,0,2,0
2064 DATA 2,0,1,0
2065 END