CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0001 0001 .Z80 0000' 0002 ORG 00100H (0000) 0003 X0000 EQU 00000H (0005) 0004 X0005 EQU 00005H 0100 182C 0005 T0100: JR A012E 0006 ; 0102 436F7079 0007 DEFB 'Copyright (C) 1981 Ithaca InterSystems , Inc.' 72696768 74202843 29203139 38312049 74686163 6120496E 74657253 79737465 6D732C20 496E632E 012E 310001 0008 A012E: LD SP,T0100 0131 218000 0009 LD HL,00080H 0134 7E 0010 LD A,(HL) 0135 B7 0011 OR A 0136 2834 0012 JR Z,A016C 0138 111310 0013 LD DE,T1013 013B 7E 0014 LD A,(HL) 013C FE14 0015 CP 014H 013E 3802 0016 JR C,A0142 0140 3614 0017 LD (HL),014H 0142 4E 0018 A0142: LD C,(HL) 0143 0C 0019 INC C 0144 0600 0020 LD B,000H 0146 EDB0 0021 LDIR 0148 AF 0022 XOR A 0149 12 0023 LD (DE),A 014A 0E02 0024 LD C,002H 014C 213110 0025 LD HL,T1031 014F CD2907 0026 CALL A0729 0152 2814 0027 JR Z,A0168 0154 21AC0D 0028 LD HL,T0DAC 0157 CD6909 0029 CALL A0969 015A 211410 0030 LD HL,T1014 015D CD6909 0031 CALL A0969 0160 21C70D 0032 LD HL,T0DC8 0163 CD6909 0033 CALL A0969 0166 1804 0034 JR A016C 0035 ; 0168 AF 0036 A0168: XOR A 0169 320A10 0037 LD (D100A),A 016C 218E09 0038 A016C: LD HL,T098E 016F CD6909 0039 CALL A0969 0172 21DA09 0040 A0172: LD HL,T09DA 0175 CD6909 0041 CALL A0969 0178 CDF106 0042 CALL A06F1 017B 0E01 0043 LD C,001H 017D 213710 0044 LD HL,T1037 0180 CD2907 0045 CALL A0729 0183 CA0000 0046 JP Z,X0000 CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0002 0186 217201 0047 LD HL,A0172 0189 E5 0048 PUSH HL 018A 211310 0049 LD HL,T1013 018D 7E 0050 LD A,(HL) 018E FE01 0051 CP 001H 0190 C21707 0052 JP NZ,A0717 0193 23 0053 INC HL 0194 7E 0054 LD A,(HL) 0195 32850A 0055 LD (D0A85),A 0198 D641 0056 SUB 041H 019A FE04 0057 CP 004H 019C D21707 0058 JP NC,A0717 019F E1 0059 POP HL 01A0 320C10 0060 LD (D100C),A 01A3 32CF10 0061 LD (D10CF),A 01A6 CD8E04 0062 A01A6: CALL A048E 01A9 320D10 0063 LD (D100D),A 01AC 08 0064 EX AF,AF' 01AD 21710A 0065 LD HL,T0A71 01B0 CD6909 0066 CALL A0969 01B3 08 0067 EX AF,AF' 01B4 F5 0068 PUSH AF 01B5 CD9805 0069 CALL A0598 01B8 F1 0070 POP AF 01B9 B7 0071 OR A 01BA 28B6 0072 JR Z,A0172 01BC 21380A 0073 A01BC: LD HL,T0A38 01BF CD6909 0074 CALL A0969 01C2 CDF106 0075 CALL A06F1 01C5 213710 0076 LD HL,T1037 01C8 0E01 0077 LD C,001H 01CA CD2907 0078 CALL A0729 01CD CA0000 0079 JP Z,X0000 01D0 0600 0080 LD B,000H 01D2 DD212910 0081 LD IX,T1029 01D6 211310 0082 LD HL,T1013 01D9 FD210C10 0083 LD IY,D100C 01DD 23 0084 A01DD: INC HL 01DE 7E 0085 LD A,(HL) 01DF B7 0086 OR A 01E0 2837 0087 JR Z,A0219 01E2 FE41 0088 CP 041H 01E4 38F7 0089 JR C,A01DD 01E6 FE5B 0090 CP 05BH 01E8 30F3 0091 JR NC,A01DD 01EA D641 0092 SUB 041H 01EC FE04 0093 CP 004H 01EE 380D 0094 JR C,A01FD 01F0 C641 0095 ADD A,041H 01F2 32B50A 0096 LD (D0AB5),A 01F5 219F0A 0097 LD HL,T0A9F 01F8 CD6909 0098 CALL A0969 01FB 18BF 0099 JR A01BC 0100 ; 01FD FDBE00 0101 A01FD: CP (IY+000H) 0200 200F 0102 JR NZ,A0211 0202 C641 0103 ADD A,041H CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0003 0204 32C00A 0104 LD (D0AC0),A 0207 E5 0105 PUSH HL 0208 21B70A 0106 LD HL,T0AB7 020B CD6909 0107 CALL A0969 020E E1 0108 POP HL 020F 18CC 0109 JR A01DD 0110 ; 0211 DD7700 0111 A0211: LD (IX+000H),A 0214 DD23 0112 INC IX 0216 04 0113 INC B 0217 18C4 0114 JR A01DD 0115 ; 0219 78 0116 A0219: LD A,B 021A B7 0117 OR A 021B 2008 0118 JR NZ,A0225 021D 21D70A 0119 LD HL,T0AD7 0220 CD6909 0120 CALL A0969 0223 1897 0121 JR A01BC 0122 ; 0225 210E10 0123 A0225: LD HL,T100E 0228 E5 0124 PUSH HL 0229 0E04 0125 LD C,004H 022B 3600 0126 A022B: LD (HL),000H 022D 23 0127 INC HL 022E 0D 0128 DEC C 022F 20FA 0129 JR NZ,A022B 0231 E1 0130 POP HL 0232 DD212910 0131 LD IX,T1029 0236 1600 0132 LD D,000H 0238 DD5E00 0133 A0238: LD E,(IX+000H) 023B E5 0134 PUSH HL 023C 19 0135 ADD HL,DE 023D 3601 0136 LD (HL),001H 023F E1 0137 POP HL 0240 DD23 0138 INC IX 0242 10F4 0139 DJNZ A0238 0244 CDBF04 0140 CALL A04BF 0247 AF 0141 XOR A 0248 F5 0142 A0248: PUSH AF 0249 CD5907 0143 CALL A0759 024C F1 0144 POP AF 024D 3C 0145 INC A 024E FE04 0146 CP 004H 0250 20F6 0147 JR NZ,A0248 0252 AF 0148 XOR A 0253 32D010 0149 LD (D10D0),A 0256 AF 0150 A0256: XOR A 0257 320810 0151 LD (D1008),A 025A 3A0C10 0152 A025A: LD A,(D100C) 025D 32CF10 0153 LD (D10CF),A 0260 AF 0154 XOR A 0261 32D110 0155 LD (D10D1),A 0264 D3B2 0156 OUT (0B2H),A 0266 21D710 0157 LD HL,T10D7 0269 CD8607 0158 CALL A0786 026C CDA707 0159 CALL A07A7 026F CD6006 0160 CALL A0660 CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0004 0272 3A0D10 0161 LD A,(D100D) 0275 FE03 0162 CP 003H 0277 200E 0163 JR NZ,A0287 0279 21D72E 0164 LD HL,02ED7H 027C CD8607 0165 CALL A0786 027F D3B2 0166 OUT (0B2H),A 0281 CD5606 0167 CALL A0656 0284 CD6006 0168 CALL A0660 0287 AF 0169 A0287: XOR A 0288 32CF10 0170 LD (D10CF),A 028B 3ACF10 0171 A028B: LD A,(D10CF) 028E 4F 0172 LD C,A 028F CD8E05 0173 CALL A058E 0292 B7 0174 OR A 0293 CA2303 0175 JP Z,A0323 0296 AF 0176 XOR A 0297 32D110 0177 LD (D10D1),A 029A CDA707 0178 CALL A07A7 029D 21D710 0179 LD HL,T10D7 02A0 CD8607 0180 CALL A0786 02A3 D3B4 0181 OUT (0B4H),A 02A5 CD6F06 0182 CALL A066F 02A8 3A0D10 0183 LD A,(D100D) 02AB FE03 0184 CP 003H 02AD 200E 0185 JR NZ,A02BD 02AF CD5606 0186 CALL A0656 02B2 21D72E 0187 LD HL,02ED7H 02B5 CD8607 0188 CALL A0786 02B8 D3B4 0189 OUT (0B4H),A 02BA CD6F06 0190 CALL A066F 02BD 3A0A10 0191 A02BD: LD A,(D100A) 02C0 B7 0192 OR A 02C1 2860 0193 JR Z,A0323 02C3 CD4C06 0194 CALL A064C 02C6 3A0D10 0195 LD A,(D100D) 02C9 FE01 0196 CP 001H 02CB 21D71D 0197 LD HL,01DD7H 02CE 280A 0198 JR Z,A02DA 02D0 FE02 0199 CP 002H 02D2 21D72E 0200 LD HL,02ED7H 02D5 2803 0201 JR Z,A02DA 02D7 21D74C 0202 LD HL,04CD7H 02DA CD8607 0203 A02DA: CALL A0786 02DD D3B2 0204 OUT (0B2H),A 02DF CD6006 0205 CALL A0660 02E2 3A0D10 0206 LD A,(D100D) 02E5 FE03 0207 CP 003H 02E7 2006 0208 JR NZ,A02EF 02E9 CD5606 0209 CALL A0656 02EC CD6006 0210 CALL A0660 02EF 21D710 0211 A02EF: LD HL,T10D7 02F2 5D 0212 LD E,L 02F3 54 0213 LD D,H 02F4 3A0D10 0214 LD A,(D100D) 02F7 FE01 0215 CP 001H 02F9 01000D 0216 LD BC,T0D00 02FC 280A 0217 JR Z,A0308 CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0005 02FE FE02 0218 CP 002H 0300 01001E 0219 LD BC,01E00H 0303 2803 0220 JR Z,A0308 0305 01003C 0221 LD BC,03C00H 0308 09 0222 A0308: ADD HL,BC 0309 1A 0223 A0309: LD A,(DE) 030A EDA1 0224 CPI 030C 13 0225 INC DE 030D 2032 0226 JR NZ,A0341 030F EA0903 0227 JP PE,A0309 0312 3A0810 0228 LD A,(D1008) 0315 B7 0229 OR A 0316 280B 0230 JR Z,A0323 0318 C630 0231 ADD A,030H 031A 32550B 0232 LD (D0B55),A 031D 211D0B 0233 LD HL,T0B1D 0320 CD6909 0234 CALL A0969 0323 3ACF10 0235 A0323: LD A,(D10CF) 0326 E603 0236 AND 003H 0328 3C 0237 INC A 0329 FE04 0238 CP 004H 032B 2806 0239 JR Z,A0333 032D 32CF10 0240 LD (D10CF),A 0330 C38B02 0241 JP A028B 0242 ; 0333 3AD010 0243 A0333: LD A,(D10D0) 0336 FE4C 0244 CP 04CH 0338 2827 0245 JR Z,A0361 033A 3C 0246 INC A 033B 32D010 0247 LD (D10D0),A 033E C35602 0248 JP A0256 0249 ; 0341 210810 0250 A0341: LD HL,D1008 0344 7E 0251 LD A,(HL) 0345 34 0252 INC (HL) 0346 FE0A 0253 CP 00AH 0348 2812 0254 JR Z,A035C 034A B7 0255 OR A 034B 200C 0256 JR NZ,A0359 034D 21A70F 0257 LD HL,T0FA7 0350 CD6909 0258 CALL A0969 0353 21BD0F 0259 LD HL,T0FBD 0356 CD6909 0260 CALL A0969 0359 C35A02 0261 A0359: JP A025A 0262 ; 035C CDC206 0263 A035C: CALL A06C2 035F 18C2 0264 JR A0323 0265 ; 0361 CDB205 0266 A0361: CALL A05B2 0364 CDF106 0267 CALL A06F1 0367 0E01 0268 LD C,001H 0369 213710 0269 LD HL,T1037 036C CD2907 0270 CALL A0729 036F CA0000 0271 JP Z,X0000 0372 213C10 0272 LD HL,T103C 0375 CD2907 0273 CALL A0729 0378 2805 0274 JR Z,A037F CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0006 037A CD1707 0275 CALL A0717 037D 18E2 0276 JR A0361 0277 ; 037F 3A0C10 0278 A037F: LD A,(D100C) 0382 C641 0279 ADD A,041H 0384 32710B 0280 LD (D0B71),A 0387 215F0B 0281 LD HL,T0B5F 038A CD6909 0282 CALL A0969 038D CDF106 0283 CALL A06F1 0390 213710 0284 LD HL,T1037 0393 0E01 0285 LD C,001H 0395 CD2907 0286 CALL A0729 0398 CA0000 0287 JP Z,X0000 039B C3A601 0288 JP A01A6 0289 ; 039E 3ACF10 0290 A039E: LD A,(D10CF) 03A1 32E80F 0291 LD (D0FE8),A 03A4 3A0B10 0292 LD A,(D100B) 03A7 B7 0293 OR A 03A8 2009 0294 JR NZ,A03B3 03AA 21E80F 0295 LD HL,D0FE8 03AD CB96 0296 RES 2,(HL) 03AF AF 0297 XOR A 03B0 32D010 0298 LD (D10D0),A 03B3 3A0D10 0299 A03B3: LD A,(D100D) 03B6 FE01 0300 CP 001H 03B8 2816 0301 JR Z,A03D0 03BA 21E70F 0302 LD HL,D0FE7 03BD 364D 0303 LD (HL),04DH 03BF 3E02 0304 LD A,002H 03C1 32E90F 0305 LD (D0FE9),A 03C4 3E54 0306 LD A,054H 03C6 32EB0F 0307 LD (D0FEB),A 03C9 3E0F 0308 LD A,00FH 03CB 32EA0F 0309 LD (D0FEA),A 03CE 1814 0310 JR A03E4 0311 ; 03D0 21E70F 0312 A03D0: LD HL,D0FE7 03D3 360D 0313 LD (HL),00DH 03D5 3E00 0314 LD A,000H 03D7 32E90F 0315 LD (D0FE9),A 03DA 3E1B 0316 LD A,01BH 03DC 32EB0F 0317 LD (D0FEB),A 03DF 3E1A 0318 LD A,01AH 03E1 32EA0F 0319 LD (D0FEA),A 03E4 3A0B10 0320 A03E4: LD A,(D100B) 03E7 B7 0321 OR A 03E8 2009 0322 JR NZ,A03F3 03EA 3ACF10 0323 LD A,(D10CF) 03ED CD5907 0324 CALL A0759 03F0 CDA307 0325 CALL A07A3 03F3 216610 0326 A03F3: LD HL,T1066 03F6 3AD010 0327 LD A,(D10D0) 03F9 57 0328 LD D,A 03FA 3AE80F 0329 LD A,(D0FE8) 03FD 0F 0330 RRCA 03FE 0F 0331 RRCA CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0007 03FF E601 0332 AND 001H 0401 5F 0333 LD E,A 0402 0601 0334 LD B,001H 0404 3AE90F 0335 LD A,(D0FE9) 0407 4F 0336 LD C,A 0408 3AEA0F 0337 LD A,(D0FEA) 040B 72 0338 A040B: LD (HL),D 040C 23 0339 INC HL 040D 73 0340 LD (HL),E 040E 23 0341 INC HL 040F 70 0342 LD (HL),B 0410 04 0343 INC B 0411 23 0344 INC HL 0412 71 0345 LD (HL),C 0413 23 0346 INC HL 0414 3D 0347 DEC A 0415 20F4 0348 JR NZ,A040B 0417 AF 0349 XOR A 0418 320910 0350 LD (D1009),A 041B CDA707 0351 A041B: CALL A07A7 041E 3AE70F 0352 LD A,(D0FE7) 0421 32CE10 0353 LD (D10CE),A 0424 216610 0354 LD HL,T1066 0427 CD8607 0355 CALL A0786 042A D3B4 0356 OUT (0B4H),A 042C 21E70F 0357 LD HL,D0FE7 042F 0E06 0358 LD C,006H 0431 CD0D06 0359 CALL A060D 0434 CD2408 0360 CALL A0824 0437 3A0910 0361 LD A,(D1009) 043A 4F 0362 LD C,A 043B 3A0B10 0363 LD A,(D100B) 043E B1 0364 OR C 043F CD4008 0365 CALL A0840 0442 CD0206 0366 CALL A0602 0445 281E 0367 JR Z,A0465 0447 3A0B10 0368 LD A,(D100B) 044A B7 0369 OR A 044B 2018 0370 JR NZ,A0465 044D 210910 0371 LD HL,D1009 0450 34 0372 INC (HL) 0451 FE0A 0373 CP 00AH 0453 280D 0374 JR Z,A0462 0455 3AD010 0375 LD A,(D10D0) 0458 F5 0376 PUSH AF 0459 CDA307 0377 CALL A07A3 045C F1 0378 POP AF 045D 32D010 0379 LD (D10D0),A 0460 18B9 0380 JR A041B 0381 ; 0462 CDC206 0382 A0462: CALL A06C2 0465 3A0B10 0383 A0465: LD A,(D100B) 0468 B7 0384 OR A 0469 3E00 0385 LD A,000H 046B 320B10 0386 LD (D100B),A 046E C0 0387 RET NZ 046F 3A0D10 0388 LD A,(D100D) CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0008 0472 FE03 0389 CP 003H 0474 200B 0390 JR NZ,A0481 0476 21E80F 0391 LD HL,D0FE8 0479 CB56 0392 BIT 2,(HL) 047B CB96 0393 RES 2,(HL) 047D 2002 0394 JR NZ,A0481 047F CBD6 0395 SET 2,(HL) 0481 3AD010 0396 A0481: LD A,(D10D0) 0484 FE4C 0397 CP 04CH 0486 C8 0398 RET Z 0487 3C 0399 INC A 0488 32D010 0400 LD (D10D0),A 048B C3F303 0401 JP A03F3 0402 ; 048E CDAB04 0403 A048E: CALL A04AB 0491 47 0404 LD B,A 0492 CB68 0405 BIT 5,B 0494 3E00 0406 LD A,000H 0496 C8 0407 RET Z 0497 CB58 0408 BIT 3,B 0499 3E03 0409 LD A,003H 049B C0 0410 RET NZ 049C CDA307 0411 CALL A07A3 049F CDCA07 0412 CALL A07CA 04A2 3A0610 0413 LD A,(D1006) 04A5 B7 0414 OR A 04A6 3E01 0415 LD A,001H 04A8 C8 0416 RET Z 04A9 3C 0417 INC A 04AA C9 0418 RET 0419 ; 04AB 21CE10 0420 A04AB: LD HL,D10CE 04AE 3604 0421 LD (HL),004H 04B0 0E02 0422 LD C,002H 04B2 CD0D06 0423 CALL A060D 04B5 CD2408 0424 CALL A0824 04B8 CD3408 0425 CALL A0834 04BB CD0206 0426 CALL A0602 04BE C9 0427 RET 0428 ; 04BF 3A0D10 0429 A04BF: LD A,(D100D) 04C2 47 0430 LD B,A 04C3 AF 0431 XOR A 04C4 320210 0432 LD (D1002),A 04C7 32CF10 0433 A04C7: LD (D10CF),A 04CA 4F 0434 LD C,A 04CB C5 0435 PUSH BC 04CC CD8E05 0436 CALL A058E 04CF C1 0437 POP BC 04D0 B7 0438 OR A 04D1 2808 0439 JR Z,A04DB 04D3 C5 0440 PUSH BC 04D4 CD8E04 0441 CALL A048E 04D7 C1 0442 POP BC 04D8 B8 0443 CP B 04D9 2009 0444 JR NZ,A04E4 04DB 3ACF10 0445 A04DB: LD A,(D10CF) CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0009 04DE 3C 0446 INC A 04DF FE04 0447 CP 004H 04E1 C8 0448 RET Z 04E2 18E3 0449 JR A04C7 0450 ; 04E4 F5 0451 A04E4: PUSH AF 04E5 3ACF10 0452 LD A,(D10CF) 04E8 C641 0453 ADD A,041H 04EA 32F70B 0454 LD (D0BF7),A 04ED 320C0C 0455 LD (D0C0C),A 04F0 321A0C 0456 LD (D0C1A),A 04F3 32420C 0457 LD (D0C42),A 04F6 21C20B 0458 LD HL,T0BC2 04F9 CD6909 0459 CALL A0969 04FC F1 0460 POP AF 04FD F5 0461 PUSH AF 04FE CD9805 0462 CALL A0598 0501 F1 0463 POP AF 0502 FE03 0464 CP 003H 0504 286D 0465 JR Z,A0573 0506 B7 0466 OR A 0507 286A 0467 JR Z,A0573 0509 3A0D10 0468 LD A,(D100D) 050C FE03 0469 CP 003H 050E 2863 0470 JR Z,A0573 0510 AF 0471 A0510: XOR A 0511 320310 0472 LD (D1003),A 0514 21FD0B 0473 LD HL,T0BFD 0517 CD6909 0474 CALL A0969 051A CDF106 0475 CALL A06F1 051D 0E01 0476 LD C,001H 051F 213710 0477 LD HL,T1037 0522 CD2907 0478 CALL A0729 0525 CA0000 0479 JP Z,X0000 0528 214C10 0480 LD HL,T104C 052B CD2907 0481 CALL A0729 052E 200A 0482 JR NZ,A053A 0530 AF 0483 XOR A 0531 320B10 0484 LD (D100B),A 0534 CD9E03 0485 CALL A039E 0537 C3BF04 0486 JP A04BF 0487 ; 053A 0C 0488 A053A: INC C 053B 214110 0489 LD HL,T1041 053E CD2907 0490 CALL A0729 0541 2004 0491 JR NZ,A0547 0543 E1 0492 POP HL 0544 C37201 0493 JP A0172 0494 ; 0547 216110 0495 A0547: LD HL,T1061 054A CD2907 0496 CALL A0729 054D 201B 0497 JR NZ,A056A 054F 210E10 0498 LD HL,T100E 0552 3ACF10 0499 LD A,(D10CF) 0555 E603 0500 AND 003H 0557 5F 0501 LD E,A 0558 1600 0502 LD D,000H CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0010 055A 19 0503 ADD HL,DE 055B 72 0504 LD (HL),D 055C CD1406 0505 CALL A0614 055F 3A0210 0506 LD A,(D1002) 0562 B7 0507 OR A 0563 CABF04 0508 JP Z,A04BF 0566 E1 0509 POP HL 0567 C32303 0510 JP A0323 0511 ; 056A CD1707 0512 A056A: CALL A0717 056D 3A0310 0513 LD A,(D1003) 0570 B7 0514 OR A 0571 289D 0515 JR Z,A0510 0573 3EFF 0516 A0573: LD A,0FFH 0575 320310 0517 LD (D1003),A 0578 21370C 0518 LD HL,T0C37 057B CD6909 0519 CALL A0969 057E CDF106 0520 CALL A06F1 0581 0E01 0521 LD C,001H 0583 213710 0522 LD HL,T1037 0586 CD2907 0523 CALL A0729 0589 CA0000 0524 JP Z,X0000 058C 18AC 0525 JR A053A 0526 ; 058E 0600 0527 A058E: LD B,000H 0590 CB91 0528 RES 2,C 0592 210E10 0529 LD HL,T100E 0595 09 0530 ADD HL,BC 0596 7E 0531 LD A,(HL) 0597 C9 0532 RET 0533 ; 0598 21990C 0534 A0598: LD HL,T0C99 059B B7 0535 OR A 059C 2811 0536 JR Z,A05AF 059E FE01 0537 CP 001H 05A0 21A30C 0538 LD HL,T0CA3 05A3 280A 0539 JR Z,A05AF 05A5 FE02 0540 CP 002H 05A7 21C00C 0541 LD HL,T0CC0 05AA 2803 0542 JR Z,A05AF 05AC 21DD0C 0543 LD HL,T0CDD 05AF C36909 0544 A05AF: JP A0969 0545 ; 05B2 21D20E 0546 A05B2: LD HL,T0ED2 05B5 CD6909 0547 CALL A0969 05B8 AF 0548 XOR A 05B9 210E10 0549 LD HL,T100E 05BC 0604 0550 LD B,004H 05BE 86 0551 A05BE: ADD A,(HL) 05BF 23 0552 INC HL 05C0 10FC 0553 DJNZ A05BE 05C2 FE01 0554 CP 001H 05C4 2807 0555 JR Z,A05CD 05C6 1E73 0556 LD E,073H 05C8 0E02 0557 LD C,002H 05CA CD0500 0558 CALL X0005 05CD 1E20 0559 A05CD: LD E,020H CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0011 05CF 0E02 0560 LD C,002H 05D1 CD0500 0561 CALL X0005 05D4 1E41 0562 LD E,041H 05D6 1604 0563 LD D,004H 05D8 210E10 0564 LD HL,T100E 05DB 7E 0565 A05DB: LD A,(HL) 05DC B7 0566 OR A 05DD 2810 0567 JR Z,A05EF 05DF 0E02 0568 LD C,002H 05E1 D5 0569 PUSH DE 05E2 E5 0570 PUSH HL 05E3 CD0500 0571 CALL X0005 05E6 0E02 0572 LD C,002H 05E8 1E2C 0573 LD E,02CH 05EA CD0500 0574 CALL X0005 05ED E1 0575 POP HL 05EE D1 0576 POP DE 05EF 23 0577 A05EF: INC HL 05F0 1C 0578 INC E 05F1 15 0579 DEC D 05F2 20E7 0580 JR NZ,A05DB 05F4 0E02 0581 LD C,002H 05F6 1E08 0582 LD E,008H 05F8 CD0500 0583 CALL X0005 05FB 21ED0E 0584 LD HL,T0EED 05FE CD6909 0585 CALL A0969 0601 C9 0586 RET 0587 ; 0602 F5 0588 A0602: PUSH AF 0603 3E4E 0589 LD A,04EH 0605 D3E1 0590 OUT (0E1H),A 0607 3E2E 0591 LD A,02EH 0609 D3E1 0592 OUT (0E1H),A 060B F1 0593 POP AF 060C C9 0594 RET 0595 ; 060D F5 0596 A060D: PUSH AF 060E 3E3E 0597 LD A,03EH 0610 D3E1 0598 OUT (0E1H),A 0612 F1 0599 POP AF 0613 C9 0600 RET 0601 ; 0614 AF 0602 A0614: XOR A 0615 210E10 0603 LD HL,T100E 0618 0604 0604 LD B,004H 061A B6 0605 A061A: OR (HL) 061B 23 0606 INC HL 061C 10FC 0607 DJNZ A061A 061E B7 0608 OR A 061F C0 0609 RET NZ 0620 21600C 0610 LD HL,T0C60 0623 CD6909 0611 CALL A0969 0626 21800C 0612 A0626: LD HL,T0C80 0629 CD6909 0613 CALL A0969 062C CDF106 0614 CALL A06F1 062F 0E01 0615 LD C,001H 0631 213710 0616 LD HL,T1037 CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0012 0634 CD2907 0617 CALL A0729 0637 CA0000 0618 JP Z,X0000 063A 214110 0619 LD HL,T1041 063D CD2907 0620 CALL A0729 0640 2005 0621 JR NZ,A0647 0642 E1 0622 POP HL 0643 E1 0623 POP HL 0644 C37201 0624 JP A0172 0625 ; 0647 CD1707 0626 A0647: CALL A0717 064A 18DA 0627 JR A0626 0628 ; 064C 21CF10 0629 A064C: LD HL,D10CF 064F CB96 0630 RES 2,(HL) 0651 23 0631 INC HL 0652 23 0632 INC HL 0653 3600 0633 LD (HL),000H 0655 C9 0634 RET 0635 ; 0656 21CF10 0636 A0656: LD HL,D10CF 0659 CBD6 0637 SET 2,(HL) 065B 23 0638 INC HL 065C 23 0639 INC HL 065D 3601 0640 LD (HL),001H 065F C9 0641 RET 0642 ; 0660 3A0D10 0643 A0660: LD A,(D100D) 0663 FE01 0644 CP 001H 0665 21ED0F 0645 LD HL,T0FED 0668 2812 0646 JR Z,A067C 066A 21F70F 0647 LD HL,T0FF7 066D 180D 0648 JR A067C 0649 ; 066F 3A0D10 0650 A066F: LD A,(D100D) 0672 FE01 0651 CP 001H 0674 21F20F 0652 LD HL,T0FF2 0677 2803 0653 JR Z,A067C 0679 21FC0F 0654 LD HL,T0FFC 067C AF 0655 A067C: XOR A 067D 320710 0656 LD (D1007),A 0680 E5 0657 A0680: PUSH HL 0681 CD6207 0658 CALL A0762 0684 3A0710 0659 LD A,(D1007) 0687 CD4008 0660 CALL A0840 068A CD0206 0661 CALL A0602 068D 2005 0662 JR NZ,A0694 068F CDE106 0663 CALL A06E1 0692 E1 0664 POP HL 0693 C9 0665 RET 0666 ; 0694 210710 0667 A0694: LD HL,D1007 0697 34 0668 INC (HL) 0698 7E 0669 LD A,(HL) 0699 FE0A 0670 CP 00AH 069B 2824 0671 JR Z,A06C1 069D 3AD010 0672 LD A,(D10D0) 06A0 F5 0673 PUSH AF CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0013 06A1 CDA307 0674 CALL A07A3 06A4 F1 0675 POP AF 06A5 32D010 0676 LD (D10D0),A 06A8 CDA707 0677 CALL A07A7 06AB 3ACF10 0678 LD A,(D10CF) 06AE E603 0679 AND 003H 06B0 210C10 0680 LD HL,D100C 06B3 BE 0681 CP (HL) 06B4 2808 0682 JR Z,A06BE 06B6 3EFF 0683 LD A,0FFH 06B8 320B10 0684 LD (D100B),A 06BB CD9E03 0685 CALL A039E 06BE E1 0686 A06BE: POP HL 06BF 18BF 0687 JR A0680 0688 ; 06C1 E1 0689 A06C1: POP HL 06C2 21FA0C 0690 A06C2: LD HL,T0CFA 06C5 CD6909 0691 CALL A0969 06C8 3ACF10 0692 LD A,(D10CF) 06CB E603 0693 AND 003H 06CD 210C10 0694 LD HL,D100C 06D0 BE 0695 CP (HL) 06D1 CA2606 0696 JP Z,A0626 06D4 C641 0697 ADD A,041H 06D6 32420C 0698 LD (D0C42),A 06D9 3EFF 0699 LD A,0FFH 06DB 320210 0700 LD (D1002),A 06DE C37305 0701 JP A0573 0702 ; 06E1 3A0710 0703 A06E1: LD A,(D1007) 06E4 B7 0704 OR A 06E5 C8 0705 RET Z 06E6 C630 0706 ADD A,030H 06E8 32860E 0707 LD (D0E86),A 06EB 215A0E 0708 LD HL,T0E5A 06EE C36909 0709 JP A0969 0710 ; 06F1 0E0A 0711 A06F1: LD C,00AH 06F3 111210 0712 LD DE,T1012 06F6 CD0500 0713 CALL X0005 06F9 CDFC06 0714 CALL A06FC 06FC 211310 0715 A06FC: LD HL,T1013 06FF 7E 0716 LD A,(HL) 0700 B7 0717 OR A 0701 46 0718 LD B,(HL) 0702 23 0719 INC HL 0703 280F 0720 JR Z,A0714 0705 7E 0721 A0705: LD A,(HL) 0706 FE61 0722 CP 061H 0708 3807 0723 JR C,A0711 070A FE7B 0724 CP 07BH 070C 3003 0725 JR NC,A0711 070E D620 0726 SUB 020H 0710 77 0727 LD (HL),A 0711 23 0728 A0711: INC HL 0712 10F1 0729 DJNZ A0705 0714 3600 0730 A0714: LD (HL),000H CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0014 0716 C9 0731 RET 0732 ; 0717 210C0D 0733 A0717: LD HL,T0D0C 071A CD6909 0734 CALL A0969 071D 211410 0735 LD HL,T1014 0720 CD6909 0736 CALL A0969 0723 212D0D 0737 LD HL,T0D2D 0726 C36909 0738 JP A0969 0739 ; 0729 FD211310 0740 A0729: LD IY,T1013 072D DD211410 0741 LD IX,T1014 0731 DD7E00 0742 A0731: LD A,(IX+000H) 0734 FE20 0743 CP 020H 0736 2007 0744 JR NZ,A073F 0738 FD3500 0745 DEC (IY+000H) 073B DD23 0746 INC IX 073D 18F2 0747 JR A0731 0748 ; 073F FD7E00 0749 A073F: LD A,(IY+000H) 0742 B9 0750 CP C 0743 D8 0751 RET C 0744 DD7E00 0752 A0744: LD A,(IX+000H) 0747 B7 0753 OR A 0748 C8 0754 RET Z 0749 7E 0755 LD A,(HL) 074A B7 0756 OR A 074B 2809 0757 JR Z,A0756 074D DDBE00 0758 CP (IX+000H) 0750 23 0759 INC HL 0751 DD23 0760 INC IX 0753 28EF 0761 JR Z,A0744 0755 C9 0762 RET 0763 ; 0756 2F 0764 A0756: CPL 0757 B7 0765 OR A 0758 C9 0766 RET 0767 ; 0759 F3 0768 A0759: DI 075A F5 0769 PUSH AF 075B 3E5C 0770 LD A,05CH 075D D3E1 0771 OUT (0E1H),A 075F F1 0772 POP AF 0760 FB 0773 EI 0761 C9 0774 RET 0775 ; 0762 7E 0776 A0762: LD A,(HL) 0763 32CE10 0777 LD (D10CE),A 0766 23 0778 INC HL 0767 7E 0779 LD A,(HL) 0768 32D410 0780 LD (D10D4),A 076B 23 0781 INC HL 076C 7E 0782 LD A,(HL) 076D 32D310 0783 LD (D10D3),A 0770 23 0784 INC HL 0771 7E 0785 LD A,(HL) 0772 32D510 0786 LD (D10D5),A 0775 23 0787 INC HL CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0015 0776 7E 0788 LD A,(HL) 0777 32D610 0789 LD (D10D6),A 077A 21CE10 0790 LD HL,D10CE 077D 0E09 0791 LD C,009H 077F CD0D06 0792 CALL A060D 0782 CD2408 0793 CALL A0824 0785 C9 0794 RET 0795 ; 0786 AF 0796 A0786: XOR A 0787 D3B8 0797 OUT (0B8H),A 0789 7D 0798 LD A,L 078A D3BC 0799 OUT (0BCH),A 078C 7C 0800 LD A,H 078D D3BA 0801 OUT (0BAH),A 078F C9 0802 RET 0803 ; 0790 21E60F 0804 A0790: LD HL,T0FE6 0793 0E01 0805 LD C,001H 0795 CD2408 0806 CALL A0824 0798 CD3408 0807 CALL A0834 079B 47 0808 LD B,A 079C FE80 0809 CP 080H 079E C8 0810 RET Z 079F CD3408 0811 CALL A0834 07A2 C9 0812 RET 0813 ; 07A3 AF 0814 A07A3: XOR A 07A4 32D010 0815 LD (D10D0),A 07A7 3AD010 0816 A07A7: LD A,(D10D0) 07AA B7 0817 OR A 07AB 21CE10 0818 LD HL,D10CE 07AE 0E02 0819 LD C,002H 07B0 3607 0820 LD (HL),007H 07B2 2804 0821 JR Z,A07B8 07B4 360F 0822 LD (HL),00FH 07B6 0E03 0823 LD C,003H 07B8 CD0D06 0824 A07B8: CALL A060D 07BB CD2408 0825 CALL A0824 07BE CD9007 0826 A07BE: CALL A0790 07C1 DBB0 0827 IN A,(0B0H) 07C3 E60F 0828 AND 00FH 07C5 20F7 0829 JR NZ,A07BE 07C7 C30206 0830 JP A0602 0831 ; 07CA AF 0832 A07CA: XOR A 07CB 320610 0833 LD (D1006),A 07CE CD0D06 0834 CALL A060D 07D1 3E0A 0835 LD A,00AH 07D3 320510 0836 LD (D1005),A 07D6 3A0610 0837 A07D6: LD A,(D1006) 07D9 B7 0838 OR A 07DA 21CE10 0839 LD HL,D10CE 07DD 364A 0840 LD (HL),04AH 07DF 2002 0841 JR NZ,A07E3 07E1 360A 0842 LD (HL),00AH 07E3 0E02 0843 A07E3: LD C,002H 07E5 CD2408 0844 CALL A0824 CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0016 07E8 3EFF 0845 LD A,0FFH 07EA CD4008 0846 CALL A0840 07ED CC0206 0847 CALL Z,A0602 07F0 C8 0848 RET Z 07F1 3A0610 0849 LD A,(D1006) 07F4 2F 0850 CPL 07F5 320610 0851 LD (D1006),A 07F8 210510 0852 LD HL,D1005 07FB 35 0853 DEC (HL) 07FC 20D8 0854 JR NZ,A07D6 07FE 3ACF10 0855 LD A,(D10CF) 0801 210C10 0856 LD HL,D100C 0804 BE 0857 CP (HL) 0805 2009 0858 JR NZ,A0810 0807 216D0D 0859 LD HL,T0D6D 080A CD6909 0860 CALL A0969 080D CDC206 0861 CALL A06C2 0810 32CF10 0862 A0810: LD (D10CF),A 0813 C641 0863 ADD A,041H 0815 326B0D 0864 LD (D0D6B),A 0818 320C0C 0865 LD (D0C0C),A 081B 21350D 0866 LD HL,T0D35 081E CD6909 0867 CALL A0969 0821 C31005 0868 JP A0510 0869 ; 0824 DBB0 0870 A0824: IN A,(0B0H) 0826 E6C0 0871 AND 0C0H 0828 FE80 0872 CP 080H 082A 20F8 0873 JR NZ,A0824 082C 7E 0874 LD A,(HL) 082D D3B1 0875 OUT (0B1H),A 082F 23 0876 INC HL 0830 0D 0877 DEC C 0831 20F1 0878 JR NZ,A0824 0833 C9 0879 RET 0880 ; 0834 DBB0 0881 A0834: IN A,(0B0H) 0836 E6C0 0882 AND 0C0H 0838 FEC0 0883 CP 0C0H 083A 20F8 0884 JR NZ,A0834 083C DBB1 0885 IN A,(0B1H) 083E 4F 0886 LD C,A 083F C9 0887 RET 0888 ; 0840 320410 0889 A0840: LD (D1004),A 0843 AF 0890 XOR A 0844 320110 0891 LD (D1001),A 0847 CD3408 0892 CALL A0834 084A E6C0 0893 AND 0C0H 084C FE80 0894 CP 080H 084E 21050F 0895 LD HL,T0F05 0851 CC5F09 0896 CALL Z,A095F 0854 79 0897 LD A,C 0855 E610 0898 AND 010H 0857 210C0F 0899 LD HL,T0F0C 085A C45F09 0900 CALL NZ,A095F 085D 79 0901 LD A,C CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0017 085E E608 0902 AND 008H 0860 21170F 0903 LD HL,T0F17 0863 C45F09 0904 CALL NZ,A095F 0866 CD3408 0905 CALL A0834 0869 E620 0906 AND 020H 086B 213A0F 0907 LD HL,T0F3A 086E C45F09 0908 CALL NZ,A095F 0871 79 0909 LD A,C 0872 E610 0910 AND 010H 0874 21430F 0911 LD HL,T0F43 0877 C45F09 0912 CALL NZ,A095F 087A 79 0913 LD A,C 087B E604 0914 AND 004H 087D 214B0F 0915 LD HL,T0F4B 0880 C45F09 0916 CALL NZ,A095F 0883 79 0917 LD A,C 0884 E602 0918 AND 002H 0886 21590F 0919 LD HL,T0F59 0889 C45F09 0920 CALL NZ,A095F 088C 79 0921 LD A,C 088D E601 0922 AND 001H 088F 21660F 0923 LD HL,T0F66 0892 C45F09 0924 CALL NZ,A095F 0895 CD3408 0925 CALL A0834 0898 E620 0926 AND 020H 089A 217A0F 0927 LD HL,T0F7A 089D C45F09 0928 CALL NZ,A095F 08A0 79 0929 LD A,C 08A1 E610 0930 AND 010H 08A3 21880F 0931 LD HL,T0F88 08A6 C45F09 0932 CALL NZ,A095F 08A9 79 0933 LD A,C 08AA E604 0934 AND 004H 08AC 21A70F 0935 LD HL,T0FA7 08AF C45F09 0936 CALL NZ,A095F 08B2 79 0937 LD A,C 08B3 E601 0938 AND 001H 08B5 21960F 0939 LD HL,T0F96 08B8 C45F09 0940 CALL NZ,A095F 08BB C5 0941 PUSH BC 08BC 0604 0942 LD B,004H 08BE CD3408 0943 A08BE: CALL A0834 08C1 10FB 0944 DJNZ A08BE 08C3 FB 0945 EI 08C4 C1 0946 POP BC 08C5 3A0110 0947 LD A,(D1001) 08C8 B7 0948 OR A 08C9 C8 0949 RET Z 08CA 3ACF10 0950 LD A,(D10CF) 08CD E603 0951 AND 003H 08CF C641 0952 ADD A,041H 08D1 32C30F 0953 LD (D0FC3),A 08D4 21D110 0954 LD HL,D10D1 08D7 11CD0F 0955 LD DE,D0FCD 08DA CD4309 0956 CALL A0943 08DD 3E20 0957 LD A,020H 08DF 32CD0F 0958 LD (D0FCD),A CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0018 08E2 21D010 0959 LD HL,D10D0 08E5 11DA0F 0960 LD DE,T0FDA 08E8 CD4309 0961 CALL A0943 08EB 3A0410 0962 LD A,(D1004) 08EE B7 0963 OR A 08EF C0 0964 RET NZ 08F0 21BD0F 0965 LD HL,T0FBD 08F3 CD6909 0966 CALL A0969 08F6 3ACE10 0967 LD A,(D10CE) 08F9 FE46 0968 CP 046H 08FB 2005 0969 JR NZ,A0902 08FD 21FD0D 0970 LD HL,T0DFD 0900 1839 0971 JR A093B 0972 ; 0902 FE06 0973 A0902: CP 006H 0904 2005 0974 JR NZ,A090B 0906 21D50D 0975 LD HL,T0DD5 0909 1830 0976 JR A093B 0977 ; 090B FE45 0978 A090B: CP 045H 090D 2005 0979 JR NZ,A0914 090F 21110E 0980 LD HL,T0E11 0912 1827 0981 JR A093B 0982 ; 0914 FE05 0983 A0914: CP 005H 0916 2005 0984 JR NZ,A091D 0918 21E90D 0985 LD HL,T0DE9 091B 181E 0986 JR A093B 0987 ; 091D FE0D 0988 A091D: CP 00DH 091F 2005 0989 JR NZ,A0926 0921 21250E 0990 LD HL,T0E25 0924 1815 0991 JR A093B 0992 ; 0926 FE4D 0993 A0926: CP 04DH 0928 2005 0994 JR NZ,A092F 092A 213A0E 0995 LD HL,T0E3A 092D 180C 0996 JR A093B 0997 ; 092F 21CE10 0998 A092F: LD HL,D10CE 0932 11570E 0999 LD DE,T0E57 0935 CD4309 1000 CALL A0943 0938 214F0E 1001 LD HL,T0E4F 093B CD6909 1002 A093B: CALL A0969 093E 3A0110 1003 LD A,(D1001) 0941 B7 1004 OR A 0942 C9 1005 RET 1006 ; 0943 7E 1007 A0943: LD A,(HL) 0944 E6F0 1008 AND 0F0H 0946 0F 1009 RRCA 0947 0F 1010 RRCA 0948 0F 1011 RRCA 0949 0F 1012 RRCA 094A CD5709 1013 CALL A0957 094D 12 1014 LD (DE),A 094E 13 1015 INC DE CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0019 094F 7E 1016 LD A,(HL) 0950 E60F 1017 AND 00FH 0952 CD5709 1018 CALL A0957 0955 12 1019 LD (DE),A 0956 C9 1020 RET 1021 ; 0957 C630 1022 A0957: ADD A,030H 0959 FE3A 1023 CP 03AH 095B F8 1024 RET M 095C C607 1025 ADD A,007H 095E C9 1026 RET 1027 ; 095F 3E01 1028 A095F: LD A,001H 0961 320110 1029 LD (D1001),A 0964 3A0410 1030 LD A,(D1004) 0967 B7 1031 OR A 0968 C0 1032 RET NZ 0969 C5 1033 A0969: PUSH BC 096A E5 1034 PUSH HL 096B 5E 1035 LD E,(HL) 096C 0E02 1036 LD C,002H 096E CD0500 1037 CALL X0005 0971 E1 1038 POP HL 0972 C1 1039 POP BC 0973 7E 1040 LD A,(HL) 0974 B7 1041 OR A 0975 C8 1042 RET Z 0976 E680 1043 AND 080H 0978 2003 1044 JR NZ,A097D 097A 23 1045 INC HL 097B 18EC 1046 JR A0969 1047 ; 097D C5 1048 A097D: PUSH BC 097E 1E0D 1049 LD E,00DH 0980 0E02 1050 LD C,002H 0982 CD0500 1051 CALL X0005 0985 1E0A 1052 LD E,00AH 0987 0E02 1053 LD C,002H 0989 CD0500 1054 CALL X0005 098C C1 1055 POP BC 098D C9 1056 RET 1057 ; 098E 0D0A0D0A 1058 T098E: DEFB 0DH,0AH,0DH,0AH 0992 49746861 1059 DEFB 'Ithaca InterSystems Disk Copying Utili ty ' 63612049 6E746572 53797374 656D7320 4469736B 20436F70 79696E67 20557469 6C697479 202020 09BD 56657273 1060 DEFB 'Version 2.3 ' 696F6E20 CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0020 322E3320 202020 09CC 52657669 1061 DEFB 'Revised 7/7/8',0B1H 73656420 372F372F 38B1 09DA 0D0A 1062 T09DA DEFB 0DH,0AH 09DC 496E7365 1063 DEFB 'Insert ' 727420 09E3 736F7572 1064 A09E3 DEFB 'source and destination disks,' 63652061 6E642064 65737469 6E617469 6F6E2064 69736B73 2C 0A00 0D0A 1065 DEFB 0DH,0AH 0A02 7468656E 1066 DEFB 'then enter source drive letter (A..D) ' 20656E74 65722073 6F757263 65206472 69766520 6C657474 65722028 412E2E44 292020 0A29 6F722020 1067 DEFB 'or "Quit" -->',00 22517569 7422202D 2D3E00 0A38 0D0A 1068 T0A38 DEFB 0DH,0AH 0A3A 44657374 1069 DEFB 'Destination drive letters (or type "Qu it"' 696E6174 696F6E20 64726976 65206C65 74746572 7320286F 72207479 70652022 51756974 22 0A63 20746F20 1070 DEFB ' to quit) -->',00 71756974 29202D2D 3E00 0A71 0D0A 1071 T0A71 DEFB 0DH,0AH 0A73 54686520 1072 DEFB 'The disk in drive ' 6469736B 20696E20 64726976 6520 0A85 20 1073 D0A85 DEFB 20H CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0021 0A86 2028796F 1074 DEFB ' (your source drive) is ' 75722073 6F757263 65206472 69766529 20697320 0A9E 00 1075 DEFB 00 0A9F 0D0A07 1076 T0A9F DEFB 0DH,0AH,07 0AA2 42616420 1077 DEFB 'Bad drive letter: ' 64726976 65206C65 74746572 3A2020 0AB5 20A0 1078 D0AB5 DEFB 20H,0A0H 0AB7 0D0A07 1079 T0AB7 DEFB 0DH,0AH,07 0ABA 44726976 1080 DEFB 'Drive ' 6520 0AC0 20 1081 D0AC0 DEFB 20H 0AC1 20697320 1082 DEFB ' is your source drive',0AEH 796F7572 20736F75 72636520 64726976 65AE 0AD7 0D0A07 1083 T0AD7 DEFB 0DH,0AH,07 0ADA 596F7572 1084 DEFB 'Your response did not contain any vali d ' 20726573 706F6E73 65206469 64206E6F 7420636F 6E746169 6E20616E 79207661 6C696420 0B02 64726976 1085 DEFB 'drive letters -- try again',0AEH 65206C65 74746572 73202D2D 20747279 20616761 696EAE 0B1D 0D0A 1086 T0B1D DEFB 0DH,0AH 0B1F 53756363 1087 DEFB 'Successful recovery from read-after-wr ite ' 65737366 756C2072 65636F76 65727920 66726F6D 20726561 642D6166 7465722D 77726974 6520 0B49 6572726F 1088 DEFB 'error after ' CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0022 72206166 74657220 0B55 20 1089 D0B55 DEFB 20H 0B56 20726574 1090 DEFB ' retries',0AEH 72696573 AE 0B5F 0D0A 1091 T0B5F DEFB 0DH,0AH 0B61 536F7572 1092 DEFB 'Source drive is ' 63652064 72697665 20697320 0B71 20 1093 D0B71 DEFB 20H 0B72 3B20696E 1094 DEFB '; insert new disks,' 73657274 206E6577 20646973 6B732C 0B85 0D0A 1095 DEFB 0DH,0AH 0B87 7468656E 1096 DEFB 'then enter a carriage return to copy o r ' 20656E74 65722061 20636172 72696167 65207265 7475726E 20746F20 636F7079 206F7220 0BAF 22517569 1097 DEFB '"Quit" to quit -->',00 74222074 6F207175 6974202D 2D3E00 0BC2 0D0A0A07 1098 T0BC2 DEFB 0DH,0AH,0AH,07 0BC6 4552524F 1099 DEFB 'ERROR: Bad destination disk.' 523A2020 42616420 64657374 696E6174 696F6E20 6469736B 2E 0BE3 0D0A 1100 DEFB 0DH,0AH 0BE5 54686520 1101 DEFB 'The disk in drive ' 6469736B 20696E20 64726976 6520 0BF7 20 1102 D0BF7 DEFB 20H 0BF8 20697320 1103 DEFB ' is ' 0BFC 00 1104 DEFB 00 0BFD 52296566 1105 T0BFD DEFB 'R)eformat disk ' 6F726D61 74206469 736B20 0C0C 20 1106 D0C0C DEFB 20H CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0023 0C0D 2C20534B 1107 DEFB ', SK)ip disk ' 29697020 6469736B 20 0C1A 20 1108 D0C1A DEFB 20H 0C1B 2C205354 1109 DEFB ', ST)art over, or Q)uit -->',00 29617274 206F7665 722C206F 72205129 75697420 2D2D3E00 0C37 534B2969 1110 T0C37 DEFB 'SK)ip disk ' 70206469 736B20 0C42 20 1111 D0C42 DEFB 20H 0C43 2C205354 1112 DEFB ', ST)art over or Q(uit -->',00 29617274 206F7665 7220206F 72202051 28756974 202D2D3E 00 0C60 0D0A 1113 T0C60 DEFB 0DH,0AH 0C62 4E6F2064 1114 DEFB 'No destination drives left. ',00 65737469 6E617469 6F6E2064 72697665 73206C65 66742E20 2000 0C80 53297461 1115 T0C80 DEFB 'S)tart over or Q)uit -->',00 7274206F 76657220 6F722051 29756974 202D2D3E 00 0C99 6E6F7420 1116 T0C99 DEFB 'not ready',0AEH 72656164 79AE 0CA3 73696E67 1117 T0CA3 DEFB 'single sided, single density',0AEH 6C652073 69646564 2C207369 6E676C65 2064656E 73697479 AE 0CC0 73696E67 1118 T0CC0 DEFB 'single sided, double density',0AEH 6C652073 69646564 2C20646F 75626C65 2064656E CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0024 73697479 AE 0CDD 646F7562 1119 T0CDD DEFB 'double sided, double density',0AEH 6C652073 69646564 2C20646F 75626C65 2064656E 73697479 AE 0CFA 0D0A0A07 1120 T0CFA DEFB 0DH,0AH,0AH,07 0CFE 4449 1121 DEFB 'DI' 0D00 534B2045 1122 T0D00 DEFB 'SK ERROR: ',00 52524F52 3A202000 0D0C 0D0A0A07 1123 T0D0C DEFB 0DH,0AH,0AH,07 0D10 4552524F 1124 DEFB 'ERROR: I do not know what "',00 523A2020 4920646F 206E6F74 206B6E6F 77207768 61742022 00 0D2D 22 1125 T0D2D DEFB 22H 0D2E 206D6561 1126 DEFB ' means',0AEH 6E73AE 0D35 0D0A 1127 T0D35 DEFB 0DH,0AH 0D37 49206361 1128 DEFB 'I cannot determine the density of the ' 6E6E6F74 20646574 65726D69 6E652074 68652064 656E7369 7479206F 66207468 6520 0D5D 6469736B 1129 DEFB 'disk in drive ' 20696E20 64726976 6520 0D6B 20AE 1130 D0D6B DEFB 20H,0AEH 0D6D 0D0A 1131 T0D6D DEFB 0DH,0AH 0D6F 49206361 1132 DEFB 'I cannot determine the density of the ' 6E6E6F74 20646574 65726D69 6E652074 68652064 656E7369 7479206F 66207468 6520 0D95 736F7572 1133 DEFB 'source drive you named',0AEH CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0025 63652064 72697665 20796F75 206E616D 6564AE 0DAC 0D0A 1134 T0DAC DEFB 0DH,0AH 0DAE 42616420 1135 DEFB 'Bad command tail option "' 636F6D6D 616E6420 7461696C 206F7074 696F6E20 22 0DC7 00 1136 T0DC8 DEFB 00 0DC8 22202D2D 1137 DEFB '" -- ignored',0AEH 2069676E 6F726564 AE 0DD5 73696E67 1138 T0DD5 DEFB 'single density read',0A0H 6C652064 656E7369 74792072 656164A0 0DE9 73696E67 1139 T0DE9 DEFB 'single demsity writ',0E5H 6C652064 656D7369 74792077 726974E5 0DFD 646F7562 1140 T0DFD DEFB 'double density read',0A0H 6C652064 656E7369 74792072 656164A0 0E11 646F7562 1141 T0E11 DEFB 'double density writ',0E5H 6C652064 656E7369 74792077 726974E5 0E25 73696E67 1142 T0E25 DEFB 'single density forma',0F4H 6C652064 656E7369 74792066 6F726D61 F4 0E3A 646F7562 1143 T0E3A DEFB 'double density forma',0F4H 6C652064 656E7369 74792066 6F726D61 F4 0E4F 4F702043 1144 T0E4F DEFB 'Op Code ' 6F646520 0E57 20 1145 T0E57 DEFB 20H 0E58 200A 1146 DEFB 20H,0AH 0E5A 0D0A 1147 T0E5A DEFB 0DH,0AH 0E5C 53756363 1148 DEFB 'Successful recovery from disk error ' 65737366 CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0026 756C2072 65636F76 65727920 66726F6D 20646973 6B206572 726F7220 0E80 61667465 1149 DEFB 'after ' 7220 0E86 20 1150 D0E86 DEFB 20H 0E87 20726574 1151 DEFB ' retries',0AEH 72696573 AE 0E90 0D0A 1152 DEFB 0DH,0AH 0E92 53756363 1153 DEFB 'Successful recovery from read-after-wr ite ' 65737366 756C2072 65636F76 65727920 66726F6D 20726561 642D6166 7465722D 77726974 6520 0EBC 6572726F 1154 DEFB 'error after ' 72206166 74657220 0EC8 20 1155 DEFB 20H 0EC9 20726574 1156 DEFB ' retries',0AEH 72696573 AE 0ED2 0D0A0D0A 1157 T0ED2 DEFB 0DH,0AH,0DH,0AH 0ED6 436F7079 1158 DEFB 'Copy complete to drive',00 20636F6D 706C6574 6520746F 20647269 766500 0EED 2E2020 1159 T0EED DEFB 2EH,20H,20H 0EF0 4D296F72 1160 DEFB 'M)ore or Q)uit -->',00 6520206F 72202051 29756974 202D2D3E 00 0F05 496E7661 1161 T0F05 DEFB 'Invali',0E4H 6C69E4 0F0C 44726976 1162 T0F0C DEFB 'Drive faul',0F4H 65206661 756CF4 0F17 44726976 1163 T0F17 DEFB 'Drive not ready (put a diskette in',0A 9H 65206E6F 74207265 61647920 CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0027 28707574 20612064 69736B65 74746520 696EA9 0F3A 43524320 1164 T0F3A DEFB 'CRC erro',0F2H 6572726F F2 0F43 4F766572 1165 T0F43 DEFB 'Over ru',0EEH 207275EE 0F4B 4D697373 1166 T0F4B DEFB 'Missing secto',0F2H 696E6720 73656374 6FF2 0F59 57726974 1167 T0F59 DEFB 'Write protec',0F4H 65207072 6F746563 F4 0F66 4D697373 1168 T0F66 DEFB 'Missing address mar',0EBH 696E6720 61646472 65737320 6D6172EB 0F7A 44617461 1169 T0F7A DEFB 'Data field CR',0C3H 20666965 6C642043 52C3 0F88 57726F6E 1170 T0F88 DEFB 'Wrong cylinde',0F2H 67206379 6C696E64 65F2 0F96 4D697373 1171 T0F96 DEFB 'Missing data mar',0EBH 696E6720 64617461 206D6172 EB 0FA7 52656164 1172 T0FA7 DEFB 'Read-after-Write erro',0F2H 2D616674 65722D57 72697465 20657272 6FF2 0FBD 44726976 1173 T0FBD DEFB 'Drive ' 6520 0FC3 20202053 1174 D0FC3 DEFB ' Surface' 75726661 6365 0FCD 20202020 1175 D0FCD DEFB ' Cylinder ' 43796C69 6E646572 20 0FDA 20202020 1176 T0FDA DEFB ' ',00 20202020 20202000 0FE6 08 1177 T0FE6 DEFB 08H 0FE7 00 1178 D0FE7 DEFB 00H 0FE8 00 1179 D0FE8 DEFB 00H CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0028 0FE9 00 1180 D0FE9 DEFB 00H 0FEA 00 1181 D0FEA DEFB 00H 0FEB 00 1182 D0FEB DEFB 00H 0FEC E5 1183 DEFB 0E5H 0FED 001A0007 1184 T0FED DEFB 00H,1AH,00H,07H,80H 80 0FF2 051A0007 1185 T0FF2 DEFB 05H,1AH,00H,07H,80H 80 0FF7 460F021B 1186 T0FF7 DEFB 46H,0FH,02H,1BH,0FFH FF 0FFC 450F021B 1187 T0FFC DEFB 45H,0FH,02H,1BH,0FFH FF 1001 00 1188 D1001 DEFB 00H 1002 00 1189 D1002 DEFB 00H 1003 00 1190 D1003 DEFB 00H 1004 00 1191 D1004 DEFB 00H 1005 00 1192 D1005 DEFB 00H 1006 00 1193 D1006 DEFB 00H 1007 00 1194 D1007 DEFB 00H 1008 00 1195 D1008 DEFB 00H 1009 00 1196 D1009 DEFB 00H 100A 00 1197 D100A DEFB 00H 100B 00 1198 D100B DEFB 00H 100C 00 1199 D100C DEFB 00H 100D 00 1200 D100D DEFB 00H 100E 00000000 1201 T100E DEFB 00H,00H,00H,00H 1012 14 1202 T1012 DEFB 14H 1013 00 1203 T1013 DEFB 00H 1014 00 1204 T1014 DEFB 00H 1015 00000000 1205 DEFB 00,00,00,00,00,00,00,00,00,00 00000000 0000 101F 00000000 1206 DEFB 00,00,00,00,00,00,00,00,00,00 00000000 0000 1029 00 1207 T1029 DEFB 00H 102A 00000000 1208 DEFB 00,00,00,00,00,00,00 000000 1031 2F464153 1209 T1031 DEFB '/FAST',00H 5400 1037 51554954 1210 T1037 DEFB 'QUIT',00H 00 103C 4D4F5245 1211 T103C DEFB 'MORE',00H 00 1041 53544152 1212 T1041 DEFB 'START OVER',00H 54204F56 455200 104C 5245464F 1213 T104C DEFB 'REFORMAT',00H 524D4154 00 1055 49474E4F 1214 DEFB 'IGNORE',00H 524500 105C 48454C50 1215 DEFB 'HELP',00H 00 1061 534B4950 1216 T1061 DEFB 'SKIP',00H 00 1066 00 1217 T1066 DEFB 00H CROMEMCO CDOS Z80 ASSEMBLER version 02.15 PAGE 0029 1067 (0067) 1218 DEFS 103 10CE 00 1219 D10CE NOP 10CF 00 1220 D10CF NOP 10D0 00 1221 D10D0 NOP 10D1 00 1222 D10D1 NOP 10D2 01 1223 D10D2 DEFB 01 10D3 00 1224 D10D3 NOP 10D4 00 1225 D10D4 NOP 10D5 00 1226 D10D5 NOP 10D6 00 1227 D10D6 NOP 10D7 04 1228 T10D7 DEFB 04 10D8 (0000) 1229 END Errors 0