CASSASM;*************************************** ;* * ;* KC 85/3/4 6.2.1989 * ;* * ;* S.WEHNER * ;* * ;* PROGRAMM 'KASSETTENINHALT' * ;* * ;*************************************** ; ; NACH REASSEMBLIERUNG MIT 'MQM' AUF ; 6000H ; ORG 3400H ; JR U602D ; DEFW 7F7FH DEFM 'CASS' DEFB 1 LD HL,200H LD M,20H LD DE,201H LD BC,2A80H LDIR JR U602D ; DEFW 7F7FH DEFM 'RECASS' DEFB 1 LD A,0FFH LD HL,00200H LD BC,03800H CPIR JR NZ,U602D INC HL CP A JR NZ,U602D INC HL CP A JR NZ,U602D DEC HL DEC HL DEC HL JR U6030 U602D: LD HL,00201H U6030: XOR A LD (00200H),A LD A,0FFH LD (U371D),A LD (U3722),HL PUSH AF PUSH BC PUSH DE PUSH HL LD HL,00000H LD (0B79CH),HL LD HL,02028H LD (0B79EH),HL LD A,020H LD (0B7A3H),A CALL U692F LD A,020H LD (0B7A3H),A LD HL,00402H LD (0B7A0H),HL CALL 0F003H DEFB 023H DEFM 'KASSETTENTYP' DEFB 00AH DEFB 00DH DEFB 00AH DEFB 00DH DEFB 000H CALL U697D LD A,4 CALL U6960 LD (0003AH),A LD HL,00E02H LD (0B7A0H),HL LD A,038H LD (0B7A3H),A CALL 0F003H DEFB 023H DEFM '1 ... SEKUNDENANZEIGE'' DEFB 00AH DEFB 00DH DEFM ' 2 ... ZAEHLWERKANZEI' DEFM 'GE' DEFB 00AH DEFB 00DH DEFM ' 3 ... FEHLERSUCHE' DEFB 000H LD A,3 CALL U6960 LD (00039H),A CP 032H JP NZ,U623E LD HL,01502H LD (0B7A0H),HL LD A,030H LD (0B7A3H),A CALL 0F003H DEFB 023H DEFM '1 ... ABWICKELSPULE (G' DEFM 'ERACORD)' DEFB 00AH DEFB 00DH DEFM ' 2 ... AUFWICKELSPULE' DEFM ' (LCR)' DEFB 000H LD A,2 CALL U6960 LD (0003BH),A JP U61D0 U6131: LD A,018H LD (0B7A3H),A CALL 0F003H DEFB 023H DEFB 00AH DEFB 00DH DEFB 00AH DEFB 00DH DEFB 00AH DEFB 00DH DEFB 00AH DEFB 00DH DEFM ' Q0= V= ' DEFM ' T0= ' DEFB 000H LD HL,01C06H LD (0B7A0H),HL LD HL,(00030H) LD B,003H CALL U6945 PUSH HL LD HL,01C0FH LD (0B7A0H),HL POP HL LD B,005H CALL U6945 LD HL,01C1BH LD (0B7A0H),HL LD HL,(00032H) LD A,(0003AH) CP 034H JR NZ,U6191 LD B,004H JR U6193 U6191: LD B,003H U6193: CALL U6945 LD HL,01C06H LD (0B7A0H),HL LD HL,(00030H) LD B,003H CALL U694E LD HL,01C0FH LD (0B7A0H),HL LD HL,(00030H) LD DE,00003H ADD HL,DE LD B,005H CALL U694E LD HL,01C1BH LD (0B7A0H),HL LD A,(0003AH) CP 034H JR Z,U61C7 LD B,003H JR U61C9 U61C7: LD B,004H U61C9: LD HL,(00032H) CALL U694E RET U61D0: CP 031H JR NZ,U61E7 LD A,(0003AH) CP 031H JR Z,U622E CP 032H JR Z,U6226 CP 033H JR Z,U621E CP 034H JR Z,U6216 U61E7: LD A,(0003AH) CP 031H JR Z,U620E CP 032H JR Z,U6206 CP 033H JR Z,U61FE LD HL,U3766 LD DE,U376E JR U6234 U61FE: LD HL,U3753 LD DE,U375B JR U6234 U6206: LD HL,U3740 LD DE,U3748 JR U6234 U620E: LD HL,U372D LD DE,U3735 JR U6234 U6216: LD HL,U375E LD DE,U376E JR U6234 U621E: LD HL,U374B LD DE,U375B JR U6234 U6226: LD HL,U3738 LD DE,U3748 JR U6234 U622E: LD HL,U3725 LD DE,U3735 U6234: LD (00030H),HL LD (00032H),DE CALL U6131 U623E: POP HL POP DE POP BC POP AF LD A,011H CALL 0F003H DEFB 000H U6248: LD HL,00000H LD DE,02028H LD A,007H CALL U68AD CALL 0F003H DEFB 023H DEFB 00CH DEFM ' KASSETTEN-IN' DEFM 'HALT ' DEFW 0D0AH DEFM ' Kassette: ' DEFB 000H PUSH AF LD A,(0003AH) CP 031H CALL Z,U69B5 CP 032H CALL Z,U69BE CP 033H CALL Z,U69C7 CP 034H CALL Z,U69D0 CALL 0F003H DEFB 023H DEFM ' Seite: ' DEFW 0D0AH DEFM 'Name Typ Nr Bl ' DEFM 'Adressen ' DEFB 000H LD A,(00039H) CP 033H CALL Z,U69E5 CP 031H CALL Z,U69D9 CP 032H CALL Z,U69F1 POP AF CALL 0F003H DEFB 023H DEFW 0A0DH DEFM '======================' DEFM '=================' DEFB 009H DEFB 000H LD HL,0010AH LD DE,00110H LD A,007H CALL U68AD PUSH HL PUSH BC PUSH AF PUSH DE LD A,007H CALL 0F003H DEFB 000H LD B,005H LD HL,00034H U6340: LD (HL),000H INC HL DJNZ U6340 POP DE POP AF POP BC POP HL U6349: CALL 0F003H DEFB 004H CP 00DH JR Z,U635C CP 013H JP Z,U6875 CALL 0F003H DEFB 000H JR U6349 U635C: LD HL,00121H LD DE,00102H LD A,007H CALL U68AD CALL 0F003H DEFB 004H CP 00DH JR Z,U6373 CALL 0F003H DEFB 000H U6373: LD HL,0B200H LD DE,(U3722) LD BC,000A0H LDIR LD (U3722),DE CALL ABS LD HL,01F00H LD DE,00127H LD A,006H CALL U68AD SUB A LD (U3721),A LD (U371F),A CALL 0F003H DEFB 023H DEFB 00CH DEFM ' -Halt ' DEFM ' -Ende' DEFB 000H LD HL,00400H LD DE,01B28H LD A,039H CALL U68AD CALL U692F CALL U68F0 PUSH AF LD A,(00039H) CP 033H JR Z,U643D POP AF PUSH HL PUSH AF LD HL,00A01H LD (0B7A0H),HL CALL 0F003H DEFB 023H DEFM 'Bei gleichzeitigen Dru' DEFM 'ck auf die ENTER-' DEFB 00AH DEFB 00DH DEFM ' Taste bitte den Recor' DEFM 'der starten!' DEFB 000H U642F: LD A,(IX+0DH) CP 00DH JR NZ,U642F POP AF POP HL CALL U68FB JR U6440 U643D: POP AF JR U6443 U6440: CALL U692F U6443: PUSH AF IN A,088H OR 040H AND 0DFH SET 7,A DI OUT 088H,A EI POP AF CALL 0F003H DEFB 005H JR U6480 U6457: PUSH AF PUSH BC LD A,(00036H) LD (00037H),A LD A,(00035H) LD B,005H CP 0 JR NZ,U6464 LD B,6 JR U646D U6464: SUB 001H DAA JR Z,U646D HELP3: DJNZ U6464 JR U647A U646D: LD A,(00037H) SUB 001H DAA LD (00037H),A LD A,09AH JR HELP3 U647A: LD (00038H),A POP BC POP AF RET U6480: PUSH AF LD A,(IX+02H) CP 0FFH JP NZ,U674C POP AF JP C,U6850 LD HL,00400H LD DE,01B28H LD A,039H CALL U68AD LD HL,U371F LD H,(HL) LD L,010H LD (0B7A0H),HL LD A,(U3720) CALL 0F003H DEFB 01CH PUSH AF CALL 0F003H DEFB 02BH CALL 0F003H DEFB 02BH POP AF PUSH AF PUSH BC PUSH DE PUSH HL LD HL,(0B7A0H) LD A,(00039H) CP 033H JP Z,U66BC CP 032H JR Z,U64C9 U64C9: LD L,022H U64CB: LD (0B7A0H),HL LD HL,00300H LD DE,0BF00H LD BC,00100H LDIR LD A,(00039H) CP 032H JR Z,U64F1 LD HL,00037H LD A,(HL) CALL 0F003H DEFB 01CH INC HL LD A,(HL) CALL 0F003H DEFB 01CH JP U66B1 U64F1: LD HL,00300H LD (HL),000H LD DE,00301H LD BC,0FFH LDIR LD HL,0C0BDH LD DE,00300H LD BC,00063H LDIR LD HL,(00030H) LD DE,00003H ADD HL,DE LD DE,0BA00H LD BC,00005H CALL U6A0F CALL U6A15 LD HL,003E5H LD DE,0BD00H CALL U6A07 LD HL,00010H CALL 0D6F7H LD HL,0BA00H LD (HL),031H INC HL LD (HL),000H CALL U6A15 LD HL,003E5H LD DE,0BC00H CALL U6A07 LD HL,00010H CALL 0D466H LD HL,003E5H LD DE,0BB00H CALL U6A07 LD HL,(00030H) LD DE,0BA00H CALL U6A0C CALL U6A15 CALL 0D6EBH PUSH BC PUSH DE LD HL,0BB00H LD DE,003E5H CALL U6A07 POP DE POP BC CALL 0D5F5H LD HL,003E5H LD DE,0BB00H CALL U6A07 LD HL,0BD00H LD DE,003E5H CALL U6A07 CALL 0D6EBH CALL 0D594H LD HL,00010H CALL 0D6F7H LD HL,0BC00H LD DE,003E5H CALL U6A07 LD HL,00010H CALL 0D466H CALL 0D6EBH PUSH BC PUSH DE LD A,(00037H) PUSH AF AND 00FH ADD 030H LD (0BA01H),A POP AF AND 0F0H RRA RRA RRA RRA ADD 030H LD (0BA00H),A LD A,(00038H) PUSH AF AND 00FH ADD 030H LD (0BA03H),A POP AF AND 0F0H RRA RRA RRA RRA ADD 030H LD (0BA02H),A SUB A LD (0BA04H),A CALL U6A15 POP DE POP BC CALL 0D59AH CALL 0D6EBH PUSH BC PUSH DE LD HL,(00032H) LD DE,0BA00H CALL U69FD CALL U6A15 POP DE POP BC CALL 0D5F5H LD HL,00010H CALL 0D6F7H LD HL,0BC00H LD DE,003E5H CALL U6A07 LD HL,00010H CALL 0D461H CALL 0D91FH LD HL,00010H CALL 0D6F7H LD HL,0BC00H LD DE,003E5H CALL U6A07 LD HL,00010H CALL 0D466H CALL 0D6EBH PUSH BC PUSH DE LD HL,0BB00H LD DE,003E5H CALL U6A07 POP DE POP BC CALL 0D59AH CALL 0D45EH LD HL,003E5H CALL 0D770H LD HL,00010H CALL 0D6F7H LD HL,0BC00H LD DE,003E5H CALL U6A07 LD HL,00010H CALL 0D466H LD HL,00010H CALL 0D6F7H LD HL,0BC00H LD DE,003E5H CALL U6A07 LD HL,00010H CALL 0D466H LD HL,003E5H LD DE,003EAH LD BC,00004H LDIR LD HL,003EAH CALL 0D834H LD HL,003EEH LD A,(HL) CP 000H JR Z,U66A4 DEC HL LD A,(HL) CP 000H JR NZ,U668E LD A,030H CALL 0F003H DEFB 000H LD HL,003EBH LD B,002H JR U66A9 U668E: LD A,030H CALL 0F003H DEFB 000H CALL 0F003H DEFB 000H LD B,001H LD HL,003EBH JR U66A9 LD HL,003EBH JR U66A9 U66A4: LD HL,003EBH LD B,003H U66A9: LD A,(HL) CALL 0F003H DEFB 000H INC HL DJNZ U66A9 U66B1: LD HL,0BF00H LD DE,00300H LD BC,100H LDIR U66BC: POP HL POP DE POP BC POP AF LD A,(U371D) CP 001H JR Z,U66D1 CP 000H JR Z,U66EC SUB A LD (U371E),A JR U66EC U66D1: LD L,013H LD (0B7A0H),HL LD HL,ENDE+10H LD A,(HL) INC HL CP 000H JR Z,U66EC LD B,A U66E0: LD E,(HL) INC HL LD D,(HL) INC HL EX DE,HL CALL 0F003H DEFB 01AH EX DE,HL DJNZ U66E0 U66EC: LD A,0FFH LD (U371D),A LD A,(U371E) CALL U68BE CALL U66FD JP U6443 U66FD: LD A,(U371F) LD D,A LD E,000H CALL 0F003H DEFB 032H LD DE,(U3722) SUB A LD (DE),A INC DE LD BC,00027H LDIR LD (U3722),DE CALL U68DE LD HL,03300H XOR A SBC HL,DE RET NC LD HL,0 LD (0B79CH),HL LD HL,2028H LD (0B79EH),HL LD A,0CH CALL 0F003H DEFB 0 LD HL,100DH LD (0B7A0H),HL CALL 0F003H DEFB 023H DEFM 'SPEICHER-ENDE' DEFB 000H CALL 0F003H DEFB 00BH SUB A LD (U371E),A LD A,0FFH CALL 0F003H DEFB 014H POP HL JP U6875 U674C: LD (U3720),A LD HL,U371F LD H,(HL) LD L,010H LD (0B7A0H),HL PUSH AF LD A,039H LD (0B7A3H),A POP AF CALL 0F003H DEFB 01CH POP AF JR C,U676F CALL 0F003H DEFB 023H DEFM '> ' DEFB 000H JR U6781 U676F: CALL 0F003H DEFB 023H DEFM '??' DEFB 000H LD A,(U371E) INC A CP 009H JR Z,U6781 LD (U371E),A U6781: LD A,(IX+02H) CP 001H JR Z,U6793 CP 000H JP NZ,U6850 LD (U371D),A JP U6850 U6793: PUSH AF LD HL,00400H LD DE,01B28H LD A,039H CALL U68AD LD A,(U371D) CP 0FFH JR Z,U67B8 CP 000H JR Z,U67B4 LD A,0FFH CALL U68BE CALL U66FD JR U67B8 U67B4: POP AF JP U6850 U67B8: POP AF LD (U371D),A LD HL,0B700H LD DE,ENDE LD BC,00080H LDIR LD HL,U371F LD H,(HL) LD L,000H LD (0B7A0H),HL LD A,(ENDE) BIT 7,A JR Z,U6805 SUB A LD (ENDE+10H),A LD A,009H LD (0B7A0H),A LD B,003H LD HL,ENDE U67E5: LD A,(HL) SUB 080H CALL 0F003H DEFB 000H INC HL DJNZ U67E5 SUB A LD (0B7A0H),A LD B,008H U67F5: LD A,(HL) INC HL CP 020H JR NC,U67FD LD A,020H U67FD: CALL 0F003H DEFB 000H DJNZ U67F5 JR U682D U6805: LD HL,ENDE LD B,008H U680A: LD A,(HL) INC HL CP 020H JR NC,U6812 LD A,020H U6812: CALL 0F003H DEFB 000H DJNZ U680A PUSH HL LD HL,U371F LD H,(HL) LD L,009H LD (0B7A0H),HL POP HL LD B,003H U6825: LD A,(HL) CALL 0F003H DEFB 000H INC HL DJNZ U6825 U682D: LD HL,U371F LD H,(HL) LD L,00DH CALL U6457 LD (0B7A0H),HL LD A,(U3721) ADD 001H DAA LD (U3721),A CALL 0F003H DEFB 01CH LD B,002H U6848: LD A,020H CALL 0F003H DEFB 000H DJNZ U6848 U6850: LD A,(IX+08H) BIT 0,A JR Z,U685E LD A,(IX+0DH) CP 003H JR Z,U6865 U685E: CALL 0F003H DEFB 005H JP U6480 U6865: CALL 0F003H DEFB 00BH CALL ABS CALL ABS PUSH AF SUB A LD (U371E),A LD A,0FFH LD (U371D),A POP AF JP U6248 U6875: LD HL,00100H LD DE,01E28H LD A,007H CALL U68AD LD HL,(U3722) LD B,004H U6885: LD (HL),0FFH INC HL DJNZ U6885 LD (U3722),HL CALL 0F003H DEFB 023H DEFB 012H DEFB 00CH DEFM '%SAVE ' DEFB 000H LD DE,(U3722) LD HL,00200H CALL 0F003H DEFB 01BH CALL 0F003H DEFB 023H DEFB 00DH DEFB 00AH DEFB 000H RET U68AD: LD (0B79CH),HL EX DE,HL LD (0B79EH),HL LD HL,00000H LD (0B7A0H),HL LD (0B7A3H),A RET U68BE: LD HL,U371F LD H,(HL) LD L,022H LD (0B7A0H),HL PUSH AF LD A,(00039H) CP 033H JR NZ,U68DB POP AF ADD 030H CALL 0F003H DEFB 000H U68D6: SUB A LD (U371E),A RET U68DB: POP AF JR U68D6 U68DE: LD A,(U371F) INC A CP 01BH JR NZ,U68E7 SUB A U68E7: LD (U371F),A LD H,A LD L,000H LD (0B7A0H),HL U68F0: LD B,028H LD A,020H U68F4: CALL 0F003H DEFB 000H DJNZ U68F4 RET U68FB: LD HL,INTRU LD (001E8H),HL LD A,0A7H OUT 08CH,A LD A,01BH OUT 08CH,A RET INTRU: CALL U692C PUSH HL PUSH AF LD HL,00034H INC (HL) JR NZ,U6929 INC HL LD A,(HL) ADD 001H DAA LD (HL),A JR NC,U6929 LD (HL),000H INC HL LD A,(HL) ADD 001H DAA LD (HL),A JR NC,U6929 LD (HL),000H U6929: POP AF POP HL RET U692C: EI RETI U692F: LD A,00CH CALL 0F003H DEFB 000H EXX LD HL,0B200H LD (HL),020H LD DE,0B201H LD BC,004FFH LDIR EXX RET U6945: LD A,(HL) CALL 0F003H DEFB 000H INC HL DJNZ U6945 RET U694E: PUSH HL CALL 0F003H DEFB 004H POP HL CP 00DH RET Z LD (HL),A INC HL CALL 0F003H DEFB 000H DJNZ U694E RET U6960: LD B,A PUSH BC CALL 0F003H DEFB 023H DEFB 00AH DEFB 00DH DEFB 00AH DEFB 00DH DEFM ' EINGABE: ' DEFB 000H HELP1: CALL 0F003H DEFB 004H POP BC PUSH BC LD C,31H HELP: CP C JR NZ,HELP2 POP BC CALL 0F003H DEFB 0 RET HELP2: INC C DJNZ HELP JR HELP1 U697D: CALL 0F003H DEFB 023H DEFM ' 1 ... K10' DEFB 00AH DEFB 00DH DEFM ' 2 ... K20' DEFB 00AH DEFB 00DH DEFM ' 3 ... K30' DEFB 00AH DEFB 00DH DEFM ' 4 ... K60' DEFB 000H RET U69B5: CALL 0F003H DEFB 023H DEFM 'K10' DEFB 000H RET U69BE: CALL 0F003H DEFB 023H DEFM 'K20' DEFB 000H RET U69C7: CALL 0F003H DEFB 023H DEFM 'K30' DEFB 000H RET U69D0: CALL 0F003H DEFB 023H DEFM 'K60' DEFB 000H RET U69D9: CALL 0F003H DEFB 023H DEFM 'sec ' DEFB 000H RET U69E5: CALL 0F003H DEFB 023H DEFM 'F ' DEFB 000H RET U69F1: CALL 0F003H DEFB 023H DEFM 'Zst ' DEFB 000H RET U69FD: LD DE,0BA00H LD A,(0003AH) CP 034H JR NZ,U6A0C U6A07: LD BC,00004H JR U6A0F U6A0C: LD BC,00003H U6A0F: LDIR EX DE,HL LD (HL),000H RET U6A15: LD HL,0BA00H CALL 0D7A1H RET ABS: LD HL,(U3722) LD M,0 INC HL LD M,20H INC HL LD M,0 INC HL LD (U3722),HL RET ; U371D: DEFB 0FFH U371E: DEFB 000H U371F: DEFB 000H U3720: DEFB 000H U3721: DEFB 000H U3722: DEFB 005H DEFB 002H DEFB 000H U3725: DEFB 031H DEFB 030H DEFB 035H DEFB 02EH DEFB 037H DEFB 034H DEFB 038H DEFB 033H U372D: DEFB 031H DEFB 032H DEFB 030H DEFB 031H DEFB 02EH DEFB 033H DEFB 033H DEFB 036H U3735: DEFB 033H DEFB 030H DEFB 030H U3738: DEFB 031H DEFB 037H DEFB 036H DEFB 02EH DEFB 036H DEFB 035H DEFB 036H DEFB 037H U3740: DEFB 032H DEFB 030H DEFB 032H DEFB 031H DEFB 02EH DEFB 035H DEFB 032H DEFB 033H U3748: DEFB 036H DEFB 030H DEFB 030H U374B: DEFB 032H DEFB 033H DEFB 033H DEFB 02EH DEFB 035H DEFB 037H DEFB 031H DEFB 034H U3753: DEFB 032H DEFB 036H DEFB 038H DEFB 031H DEFB 02EH DEFB 037H DEFB 035H DEFB 030H U375B: DEFB 039H DEFB 030H DEFB 030H U375E: DEFB 033H DEFB 038H DEFB 039H DEFB 02EH DEFB 034H DEFB 035H DEFB 039H DEFB 037H U3766: DEFB 034H DEFB 034H DEFB 034H DEFB 032H DEFB 02EH DEFB 031H DEFB 038H DEFB 032H U376E: DEFB 031H DEFB 038H DEFB 030H DEFB 030H ENDE: DEFB 000H ; ;*************************************** ; ENDE ;