|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 8704 (0x2200)
Types: TextFile
Names: »KOMDIS.MAC«
└─⟦122ca995a⟧ Bits:30005902 Move-IT arbejdsdiskette
└─ ⟦this⟧ »KOMDIS.MAC«
ORG 00100H X0000 EQU 00000H X0005 EQU 00005H X0015 EQU 00015H X001C EQU 0001CH X0039 EQU 00039H X004C EQU 0004CH X0058 EQU 00058H X006A EQU 0006AH X007D EQU 0007DH X00A0 EQU 000A0H X00A5 EQU 000A5H X00AF EQU 000AFH X00B7 EQU 000B7H X00BD EQU 000BDH X00CA EQU 000CAH X0518 EQU 00518H X0524 EQU 00524H Y067A EQU 0067AH X0683 EQU 00683H X068C EQU 0068CH X068F EQU 0068FH X0698 EQU 00698H Y0A0A EQU 00A0AH Y0B8F EQU 00B8FH Y1E5F EQU 01E5FH Y1E6D EQU 01E6DH Y1E73 EQU 01E73H Y318F EQU 0318FH YFF02 EQU 0FF02H YFF03 EQU 0FF03H YFF2A EQU 0FF2AH 0100 C31901 JP A0119 0103 FF RST 038H 0104 3C INC A 0105 328F0B LD (Y0B8F),A 0108 3A03FF LD A,(YFF03) 010B FE40 CP 040H 010D 300B JR NC,A011A 010F 2A2AFF LD HL,(YFF2A) 0112 2B DEC HL 0113 2202FF LD (YFF02),HL 0116 AF XOR A 0117 328F31 LD (Y318F),A 011A 17 A011A: RLA 011B 01CD6A LD BC,06ACDH 011E 011196 LD BC,09611H 0121 010E09 LD BC,0090EH 0124 CD0500 CALL X0005 0127 DB95 A0127: IN A,(095H) 0129 E601 AND 001H 012B C44401 CALL NZ,A0144 012E 0E06 LD C,006H 0130 1EFF LD E,0FFH 0132 CD0500 CALL X0005 0135 B7 OR A 0136 28EF JR Z,A0127 0138 E67F AND 07FH 013A FE03 CP 003H 013C CA0000 JP Z,X0000 013F CD5901 CALL A0159 0142 18E3 JR A0127 0144 DB94 A0144: IN A,(094H) 0146 F5 PUSH AF 0147 3E01 LD A,001H 0149 D395 OUT (095H),A 014B DB95 IN A,(095H) 014D F1 POP AF 014E E67F AND 07FH 0150 FE7F CP 07FH 0152 C8 RET Z 0153 5F LD E,A 0154 0E06 LD C,006H 0156 C30500 JP X0005 0159 4F A0159: LD C,A 015A DB95 A015A: IN A,(095H) 015C E604 AND 004H 015E 28FA JR Z,A015A 0160 3E01 LD A,001H 0162 D395 OUT (095H),A 0164 DB95 IN A,(095H) 0166 79 LD A,C 0167 D394 OUT (094H),A 0169 C9 RET 016A 3E34 LD A,034H 016C D38F OUT (08FH),A 016E 21A001 LD HL,T01A0 0171 7D LD A,L 0172 D38C OUT (08CH),A 0174 7C LD A,H 0175 D38C OUT (08CH),A 0177 0E95 LD C,095H 0179 3E18 LD A,018H 017B ED79 OUT (C),A 017D 3E14 LD A,014H 017F ED79 OUT (C),A 0181 3E4F LD A,04FH 0183 ED79 OUT (C),A 0185 3E13 LD A,013H 0187 ED79 OUT (C),A 0189 3E41 LD A,041H 018B ED79 OUT (C),A 018D 3E15 LD A,015H 018F ED79 OUT (C),A 0191 3EAA LD A,0AAH 0193 ED79 OUT (C),A 0195 C9 RET 0196 1B DEC DE 0197 2A0A0A LD HL,(Y0A0A) 019A 33 INC SP 019B 3030 JR NC,A01CD 019D 2042 JR NZ,A01E1 019F 41 LD B,C 01A0 55 T01A0: LD D,L 01A1 44 LD B,H 01A2 204D JR NZ,A01F1 01A4 4F LD C,A 01A5 44 LD B,H 01A6 45 LD B,L 01A7 4D LD C,L 01A8 50 LD D,B 01A9 52 LD D,D 01AA 4F LD C,A 01AB 47 LD B,A 01AC 52 LD D,D 01AD 41 LD B,C 01AE 4D LD C,L 01AF 2046 JR NZ,A01F7 01B1 4F LD C,A 01B2 52 LD D,D 01B3 0D DEC C 01B4 0A LD A,(BC) 01B5 0A LD A,(BC) 01B6 42 LD B,D 01B7 55 LD D,L 01B8 54 LD D,H 01B9 4C LD C,H 01BA 45 LD B,L 01BB 52 LD D,D 01BC 204D JR NZ,A020B 01BE 49 LD C,C 01BF 4B LD C,E 01C0 52 LD D,D 01C1 4F LD C,A 01C2 44 LD B,H 01C3 41 LD B,C 01C4 54 LD D,H 01C5 41 LD B,C 01C6 4D LD C,L 01C7 41 LD B,C 01C8 54 LD D,H 01C9 0D DEC C 01CA 0A LD A,(BC) 01CB 0A LD A,(BC) 01CC 54 LD D,H 01CD 49 A01CD: LD C,C 01CE 4C LD C,H 01CF 50 LD D,B 01D0 41 LD B,C 01D1 53 LD D,E 01D2 53 LD D,E 01D3 45 LD B,L 01D4 54 LD D,H 01D5 204B JR NZ,A0222 01D7 4F LD C,A 01D8 4D LD C,L 01D9 4D LD C,L 01DA 55 LD D,L 01DB 4E LD C,(HL) 01DC 45 LD B,L 01DD 44 LD B,H 01DE 41 LD B,C 01DF 54 LD D,H 01E0 41 LD B,C 01E1 0D A01E1: DEC C 01E2 0A LD A,(BC) 01E3 0A LD A,(BC) 01E4 24 INC H 01E5 00 NOP 01E6 70 LD (HL),B 01E7 2B DEC HL 01E8 71 LD (HL),C 01E9 2A6D1E LD HL,(Y1E6D) 01EC EB EX DE,HL 01ED 0E16 LD C,016H 01EF CD0500 CALL X0005 01F2 325F1E LD (Y1E5F),A 01F5 C9 RET 01F6 21701E LD HL,01E70H 01F9 70 LD (HL),B 01FA 4A LD C,D 01FB 0100CC LD BC,0CC00H 01FE B4 OR H 01FF 13 INC DE 0200 C38306 JP X0683 0203 00 NOP 0204 00 NOP 0205 00 NOP 0206 C34F03 JP A034F 0209 C32405 JP X0524 020C 2A731E LD HL,(Y1E73) 020F EB EX DE,HL 0210 0E1E LD C,01EH 0212 CD0500 CALL X0005 0215 F5 PUSH AF 0216 79 LD A,C 0217 CD8F06 CALL X068F 021A F1 POP AF 021B C9 RET 021C FE20 CP 020H 021E C8 RET Z 021F FE09 CP 009H 0221 C8 RET Z 0222 FE2C A0222: CP 02CH 0224 C8 RET Z 0225 FE0D CP 00DH 0227 C8 RET Z 0228 FE7F CP 07FH 022A CA2405 JP Z,X0524 022D C9 RET 022E 0E0D LD C,00DH 0230 CD1500 CALL X0015 0233 0E0A LD C,00AH 0235 CD1500 CALL X0015 0238 C9 RET 0239 CD8C06 CALL X068C 023C FE0D CP 00DH 023E CA1805 JP Z,X0518 0241 CD1C00 CALL X001C 0244 CA3900 JP Z,X0039 0247 0E04 LD C,004H 0249 217A06 LD HL,0067AH 024C 3620 LD (HL),020H 024E 23 INC HL 024F 0D DEC C 0250 C24C00 JP NZ,X004C 0253 0E05 LD C,005H 0255 217A06 LD HL,0067AH 0258 77 LD (HL),A 0259 CD8C06 CALL X068C 025C CD1C00 CALL X001C 025F CA6A00 JP Z,X006A 0262 23 INC HL 0263 0D DEC C 0264 CA1805 JP Z,X0518 0267 C35800 JP X0058 026A 3A7A06 LD A,(Y067A) 026D FE20 CP 020H 026F C9 RET 0270 D630 SUB 030H 0272 FE0A CP 00AH 0274 D8 RET C 0275 C6F9 ADD A,0F9H 0277 FE10 CP 010H 0279 D8 RET C 027A C31805 JP X0518 027D CD9806 CALL X0698 0280 3D DEC A 0281 C21805 JP NZ,X0518 0284 EB EX DE,HL 0285 4E LD C,(HL) 0286 23 INC HL 0287 46 LD B,(HL) 0288 79 LD A,C 0289 05 DEC B 028A 04 INC B 028B C9 RET 028C CD7D00 CALL X007D 028F C21805 JP NZ,X0518 0292 C9 RET 0293 17 RLA 0294 17 RLA 0295 17 RLA 0296 E638 AND 038H 0298 C9 RET 0299 17 RLA 029A 17 RLA 029B 17 RLA 029C 17 RLA 029D E630 AND 030H 029F C9 RET 02A0 EB EX DE,HL 02A1 2A7A06 LD HL,(Y067A) 02A4 EB EX DE,HL 02A5 7B LD A,E 02A6 BE CP (HL) 02A7 C2AF00 JP NZ,X00AF 02AA 23 INC HL 02AB 7A LD A,D 02AC BE CP (HL) 02AD C8 RET Z 02AE 2B DEC HL 02AF 2B DEC HL 02B0 2B DEC HL 02B1 0D DEC C 02B2 C2A500 JP NZ,X00A5 02B5 0D DEC C 02B6 C9 RET 02B7 0604 LD B,004H 02B9 D5 PUSH DE 02BA 117A06 LD DE,0067AH 02BD 1A LD A,(DE) 02BE BE CP (HL) 02BF C2CA00 JP NZ,X00CA 02C2 23 INC HL 02C3 13 INC DE 02C4 05 DEC B 02C5 C2BD00 JP NZ,X00BD 02C8 D1 POP DE 02C9 C9 RET 02CA 23 INC HL 02CB 05 DEC B 02CC C2CA00 JP NZ,X00CA 02CF 11F8FF LD DE,0FFF8H 02D2 19 ADD HL,DE 02D3 D1 POP DE 02D4 13 INC DE 02D5 0D DEC C 02D6 C2B700 JP NZ,X00B7 02D9 0D DEC C 02DA C9 RET 02DB C5 PUSH BC 02DC CD3900 CALL X0039 02DF CA1805 JP Z,X0518 02E2 0E08 LD C,008H 02E4 216006 LD HL,00660H 02E7 CDA000 CALL X00A0 02EA C21805 JP NZ,X0518 02ED 0D DEC C 02EE 79 LD A,C 02EF C1 POP BC 02F0 C9 RET 02F1 C5 PUSH BC 02F2 CD3900 CALL X0039 02F5 CA1805 JP Z,X0518 02F8 0E05 LD C,005H 02FA 217206 LD HL,00672H 02FD CDB700 CALL X00B7 0300 CDB700 CALL X00B7 END ;Unresolved labels ; A0119 A01F1 A01F7 A020B A034F ;Label cross reference ;X0000 X013C ;X0005 X0124 X0132 X0156 X01EF ; X0212 ;X0015 X0230 X0235 ;X001C X0241 X025C ;X0039 X0244 X02DC X02F2 ;X004C X0250 ;X0058 X0267 ;X006A X025F ;X007D X028C ;X00A0 X02E7 ;X00A5 X02B2 ;X00AF X02A7 ;X00B7 X02D6 X02FD X0300 ;X00BD X02C5 ;X00CA X02BF X02CC ;A0119 A0100 ;A011A A010D ;A0127 A0136 A0142 ;A0144 A012B ;A0159 A013F ;A015A A015E ;T01A0 T016E ;A01CD A019B ;A01E1 A019D ;A01F1 A01A2 ;A01F7 A01AF ;A020B A01BC ;A0222 A01D5 ;A034F A0206 ;X0518 X023E X0264 X027A X0281 ; X028F X02DF X02EA X02F5 ;X0524 X0209 X022A ;Z0660 Z02E4 ;Z0672 Z02FA ;Y067A Z0249 Z0255 Y026A Y02A1 ; Z02BA ;X0683 X0200 ;X068C X0239 X0259 ;X068F X0217 ;X0698 X027D ;Z090E Z0121 ;Y0A0A Y0197 ;Y0B8F Y0105 ;Y1E5F Y01F2 ;Y1E6D Y01E9 ;Z1E70 Z01F6 ;Y1E73 Y020C ;Y318F Y0117 ;Z6ACD Z011B ;Z9611 Z011E ;ZCC00 Z01FB ;YFF02 Y0113 ;YFF03 Y0108 ;YFF2A Y010F ;ZFFF8 Z02CF «eof»