Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
| lc80:programme:lc80 [2016/01/04 12:42] – Externe Bearbeitung 127.0.0.1 | lc80:programme:lc80 [2022/08/02 10:08] (aktuell) – volkerp | ||
|---|---|---|---|
| Zeile 1: | Zeile 1: | ||
| ====== Monitor ====== | ====== Monitor ====== | ||
| + | |||
| + | basierend auf dem originalen Listing, erweitert um zusätzliche Kommentare und Erläuterungen (Kommando-Ausführung, | ||
| + | |||
| + | 2K-ROM-Ausführung (0000-07FF) | ||
| <WRAP lo> | <WRAP lo> | ||
| < | < | ||
| - | AS V1.41r8 - Quelle LC80.ASM - Seite 1 - 31.8.2003 15:48:46 | + | AS V1.42 Beta [Bld 157] - Source File Lc80_dokumentiert.asm - Page 1 - 8/2/2022 12:0:48 |
| | | ||
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | 10/ 0 : | + | 10/ 0 : ; |
| - | 11/ 0 : =F5H DIGITAP | + | 11/ 0 : |
| - | 12/ 0 : ;B0=TAPE-IN, B1=TAPE-OUT | + | 12/ 0 : =1H ROM_: EQU 1 ; EIN ROM -> 1 |
| - | 13/ 0 : =F7H PIO1BC | + | 13/ 0 : ; ZWEI ROM -> 2 |
| 14/ 0 : | 14/ 0 : | ||
| - | 15/ 0 : =F8H USERPORT EQU 0F8H ;U8ER-PORT, FREI VERFUEGBAR | + | 15/ 0 : |
| - | 16/ 0 : =FAH PI02AC | + | 16/ 0 : |
| - | 17/ 0 : | + | 17/ 0 : =0F4H |
| - | 18/ 0 : =F9H KEYIN | + | 18/ 0 : =0F6H |
| - | 19/ 0 : ;B0...B3 FUER USER NUTZBAR | + | 19/ 0 : |
| - | 20/ 0 : =FBH PIO2BC | + | 20/ 0 : =0F5H |
| - | 21/ 0 : | + | 21/ 0 : ; |
| - | 22/ 0 : ; CTC-ADRESSEN | + | 22/ 0 : =0F7H |
| - | 23/ 0 : =ECH CTC0 EQU 0ECH | + | 23/ 0 : |
| - | 24/ 0 : =EDH CTC1 EQU 0EDH | + | 24/ 0 : =0F8H |
| - | 25/ 0 : =EEH CTC2 EQU 0EEH | + | 25/ 0 : =0F8H |
| - | 26/ 0 : =EFH CTC3 EQU 0EFH | + | 26/ 0 : =0FAH |
| 27/ 0 : | 27/ 0 : | ||
| - | 28/ 0 : | + | 28/ 0 : =0F9H |
| - | 29/ 0 : =0H | + | 29/ 0 : ;B0...B3 FUER USER NUTZBAR |
| - | 30/ 0 : =23H HIINT | + | 30/ 0 : =0F9H |
| - | 31/ 0 : | + | 31/ 0 : =0FBH |
| 32/ 0 : | 32/ 0 : | ||
| - | 33/ 0 : ; | + | 33/ 0 : ; |
| - | | + | 34/ 0 : =0ECH |
| - | | + | 35/ 0 : =0EDH |
| - | | + | 36/ 0 : =0EEH |
| - | | + | 37/ 0 : =0EFH |
| - | | + | 38/ 0 : |
| - | | + | 39/ 0 : ; |
| - | | + | 40/ 0 : =0H |
| - | | + | 41/ 0 : =23H HIINT EQU 23H ; |
| - | | + | 42/ 0 : |
| - | | + | 43/ 0 : |
| - | | + | 44/ 0 : ; |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | 89/ 66 : ORG 0066H | + | |
| - | 90/ 66 : | + | |
| - | 91/ 66 : C3 40 23 | + | |
| - | 92/ 69 : | + | |
| - | 93/ 69 : ; | + | |
| - | 94/ 69 : ED B0 LDIR | + | |
| - | 95/ 6B : | + | |
| - | 96/ 6B : 31 EA 23 | + | |
| - | 97/ 6E : CD CA 00 | + | |
| - | 98/ 71 : CD 99 00 | + | |
| - | 99/ 74 : ; | + | |
| - | 100/ 74 : 3A FC 23 | + | 100/ 66 : ORG 0066H |
| - | 101/ 77 : FE 80 CP 80H | + | 101/ 66 : |
| - | 102/ 79 : C4 9C 02 | + | 102/ 66 : C3 40 23 JP 2340H |
| - | 103/ 7C : ; | + | 103/ 69 : |
| - | 104/ 7C : 21 00 20 | + | 104/ 69 : ; |
| - | 105/ 7F : 22 F8 23 | + | 105/ 69 : ED B0 LDIR |
| - | 106/ 82 : AF | + | 106/ 6B : |
| - | 107/ 83 : 32 FD 23 | + | 107/ 6B : 31 EA 23 LD SP,SPINI ;SP AUF ANFANGSWERT |
| - | 108/ 86 : DD 21 74 09 | + | 108/ 6E : CD CA 00 CALL IOINIT |
| - | 109/ 8A : ; | + | 109/ 71 : CD 99 00 CALL MEMTES |
| - | 110/ 8A : | + | 110/ 74 : ; |
| - | 111/ 8A : AF | + | 111/ 74 : 3A FC 23 LD A, |
| - | 112/ 8B : 32 FB 23 | + | 112/ 77 : FE 80 CP 80H |
| - | 113/ 8E : | + | 113/ 79 : C4 9C 02 CALL NZ,INI ;MUSIK U. GRAPHIK, WENN ERSTEINSCH. |
| - | 114/ 8E : ; | + | 114/ 7C : ; |
| - | 115/ 8E : | + | 115/ 7C : 21 00 20 LD HL,2000H |
| - | 116/ 8E : 31 EA 23 | + | 116/ 7F : 22 F8 23 LD (USERPC), |
| - | 117/ 91 : CD 5A 08 CALL DAK1 ;ANZEIGE UND TASTATURABFRAGE | + | 117/ 82 : AF XOR A |
| - | 118/ 94 : CD 1B 01 | + | 118/ 83 : 32 FD 23 LD (FUFEFLAG), |
| - | 119/ 97 : 18 F5 JR MAIN | + | 119/ 86 : DD 21 74 05 LD IX,DISP1 ; " |
| - | 120/ 99 : | + | 120/ 8A : ; |
| - | 121/ 99 : ; | + | 121/ 8A : |
| - | 122/ 99 : | + | 122/ 8A : AF XOR A |
| - | 123/ 99 : 01 04 00 | + | 123/ 8B : 32 FB 23 LD (ATCODE),A ; Funktionscode löschen |
| - | 124/ 9C : 21 00 20 | + | 124/ 8E : |
| - | 125/ 9F : | + | 125/ 8E : ; |
| - | 126/ 9F : CD 52 08 CALL RAMCHK | + | 126/ 8E : |
| - | 127/ A2 : 28 01 JR Z, RAMOK | + | 127/ 8E : 31 EA 23 LD SP,SPINI ;USER-PC AUF ANFANGSWERT |
| - | 128/ A4 : 76 | + | 128/ 91 : CD 5A 04 CALL DAK1 ;ANZEIGE UND TASTATURABFRAGE |
| - | 129/ A5 : | + | 129/ 94 : CD 1B 01 CALL KEYEXC ; |
| - | 130/ A5 : 23 | + | 130/ 97 : 18 F5 JR MAIN |
| - | 131/ A6 : 10 F7 DJNZ RAMSL | + | 131/ 99 : |
| - | 132/ A8 : 0D | + | 132/ 99 : ; |
| - | 133/ A9 : 20 F4 JR NZ,RAMSL | + | 133/ 99 : |
| - | 134/ AB : AF | + | 134/ 99 : 01 04 00 LD BC,0004H ;1 K RAM |
| - | 135/ AC : 21 00 00 | + | 135/ 9C : 21 00 20 LD HL,2000H ;ADR RAM |
| - | 136/ AF : 01 04 00 | + | 136/ 9F : |
| - | 137/ B2 : CD C2 00 | + | 137/ 9F : CD 52 04 CALL RAMCHK ;TEST, OB (HL) RAM IST |
| - | 138/ B5 : | + | 138/ A2 : 28 01 JR Z, RAMOK |
| - | 139/ B5 : =>FALSE | + | 139/ A4 : 76 HALT ;HALT bei RAM-Fehler (rote LED) |
| - | 140/ B5 : LD HL, | + | 140/ A5 : |
| - | 141/ | + | 141/ A5 : 23 INC HL |
| - | 142/ | + | 142/ A6 : 10 F7 DJNZ RAMSL ;256 Byte |
| - | 143/ | + | 143/ A8 : 0D DEC C |
| - | 144/ | + | 144/ A9 : 20 F4 JR NZ,RAMSL ;4x256 Byte |
| - | 145/ B8 : ENDIF | + | 145/ AB : AF XOR A ; |
| - | 146/ B8 : | + | 146/ AC : 21 00 00 LD HL,0 ;ADR 1. ROM/EPROM |
| - | 147/ B8 : 01 04 FF | + | 147/ AF : 01 04 00 LD BC,0004H ;1 K |
| - | 148/ BB : CD C2 00 | + | 148/ B2 : CD C2 00 CALL ROMSL |
| - | 149/ BE : BE | + | 149/ B5 : |
| - | 150/ BF : C8 | + | 150/ B5 : =>TRUE IF ROM_=1 |
| - | 151/ C0 : 76 | + | 151/ B5 : 21 00 04 LD HL,0400H ;WEITER 1. ROM |
| - | 152/ C1 : C9 | + | 152/ |
| - | 153/ C2 : | + | 153/ |
| - | 154/ C2 : | + | 154/ |
| - | 155/ C2 : 86 | + | 155/ |
| - | 156/ C3 : 23 | + | 156/ B8 : [154] ENDIF |
| - | 157/ C4 : 10 FC DJNZ ROMSL | + | 157/ B8 : |
| - | 158/ C6 : 0D | + | 158/ B8 : 01 04 FF LD BC,0FF04H ;1K - 1BYTE |
| - | 159/ C7 : 20 F9 JR NZ,ROMSL | + | 159/ BB : CD C2 00 CALL ROMSL |
| - | 160/ C9 : C9 | + | 160/ BE : BE CP (HL) ; |
| - | 161/ CA : | + | 161/ BF : C8 RET Z ;wenn gleich |
| - | 162/ CA : ; | + | 162/ C0 : 76 HALT ;sonst Fehler (rote LED) |
| - | 163/ CA : | + | 163/ C1 : C9 RET |
| - | 164/ CA : 3E CF LD A, | + | 164/ C2 : |
| - | 165/ CC : D3 F6 OUT (PIO1AC),A ; | + | 165/ C2 : |
| - | 166/ CE : 3E FF LD A,0FFH | + | 166/ C2 : 86 ADD A,(HL) ; |
| - | 167/ D0 : D3 F4 OUT (SEGMENT), | + | 167/ C3 : 23 INC HL |
| - | 168/ D2 : 3E 00 LD A,0 | + | 168/ C4 : 10 FC DJNZ ROMSL |
| - | 169/ D4 : D3 F6 OUT (PIO1AC), | + | 169/ C6 : 0D DEC C |
| - | 170/ D6 : | + | 170/ C7 : 20 F9 JR NZ,ROMSL |
| - | 171/ D6 : 3E CF LD A,0CFH | + | 171/ C9 : C9 RET |
| - | 172/ D8 : D3 F7 OUT (PIO1BC),A ; | + | 172/ CA : |
| - | 173/ DA : | + | 173/ CA : ; |
| - | 174/ DA : 3E FF LD A, | + | 174/ CA : |
| - | 175/ DC : D3 F5 OUT (DIGITAP), | + | 175/ CA : 3E CF LD A,0CFH ;MODE 3 |
| - | 176/ DE : 3E 01 LD A,1 ; | + | 176/ CC : D3 F6 OUT (PIO1AC),A ; |
| - | 177/ E0 : D3 F7 OUT (PIO1BC), | + | 177/ CE : 3E FF LD A,0FFH |
| - | 178/ E2 : | + | 178/ D0 : D3 F4 OUT (SEGMENT), |
| - | 179/ E2 : 3E CF LD A,0CFH | + | 179/ D2 : 3E 00 LD A,0 ; |
| - | 180/ E4 : D3 FB OUT (PIO2BC),A ; | + | 180/ D4 : D3 F6 OUT (PIO1AC), |
| - | 181/ E6 : 3E FF LD A,0FFH | + | 181/ D6 : |
| - | 182/ E8 : D3 FB OUT (PIO2BC), | + | 182/ D6 : 3E CF LD A,0CFH |
| - | 183/ EA : C9 | + | 183/ D8 : D3 F7 OUT (PIO1BC),A ; |
| - | 184/ EB : | + | 184/ DA : ;B2...B7 = D-LSD, |
| - | 185/ EB : ; | + | 185/ DA : 3E FF LD A,0FFH ;ALLE TREIBER SPERREN |
| - | 186/ EB : | + | 186/ DC : D3 F5 OUT (DIGITAP), |
| - | 187/ EB : C3 EE 00 | + | 187/ DE : 3E 01 LD A,1 ; |
| - | 188/ EE : =3H | + | 188/ E0 : D3 F7 OUT (PIO1BC), |
| - | 189/ EE : | + | 189/ E2 : |
| - | 190/ EE : | + | 190/ E2 : 3E CF LD A,0CFH |
| - | 191/ EE : F5 | + | 191/ E4 : D3 FB OUT (PIO2BC),A ; |
| - | 192/ EF : C5 | + | 192/ E6 : 3E FF LD A,0FFH |
| - | 193/ F0 : 08 | + | 193/ E8 : D3 FB OUT (PIO2BC), |
| - | 194/ F1 : D9 | + | 194/ EA : C9 RET |
| - | 195/ F2 : F5 | + | 195/ EB : |
| - | 196/ F3 : C5 | + | 196/ EB : ; |
| - | 197/ F4 : D5 | + | 197/ EB : |
| - | 198/ F5 : E5 | + | 198/ EB : C3 EE 00 JP NMIUP1 |
| - | 199/ F6 : D9 | + | 199/ EE : =3H |
| - | 200/ F7 : DD E5 PUSH IX | + | 200/ EE : |
| - | 201/ F9 : 06 28 LD B,40 ; | + | 201/ EE : |
| - | 202/ FB : DD 21 99 09 | + | 202/ EE : F5 PUSH AF ;Register sichern |
| - | 203/ FF : | + | 203/ EF : C5 PUSH BC |
| - | 204/ FF : CD 83 08 CALL DAK2 | + | 204/ F0 : 08 EX AF,AF' ;' |
| - | 205/ 102 : 10 FB DJNZ NMISL | + | 205/ F1 : D9 EXX |
| - | 206/ 104 : DD E1 POP IX | + | 206/ F2 : F5 PUSH AF |
| - | 207/ 106 : D9 | + | 207/ F3 : C5 PUSH BC |
| - | 208/ 107 : E1 | + | 208/ F4 : D5 PUSH DE |
| - | 209/ 108 : D1 | + | 209/ F5 : E5 PUSH HL |
| - | 210/ 109 : C1 | + | 210/ F6 : D9 EXX |
| - | 211/ 10A : F1 | + | 211/ F7 : DD E5 PUSH IX |
| - | 212/ 10B : D9 | + | 212/ F9 : 06 28 LD B,40 ; |
| - | 213/ 10C : 08 | + | 213/ FB : DD 21 99 05 LD IX,DISP5 ;Text " int " |
| - | 214/ 10D : C1 | + | 214/ FF : |
| - | 215/ 10E : F1 | + | 215/ FF : CD 83 04 CALL DAK2 ;Anzeigen |
| - | 216/ 10F : ED 45 RETN | + | 216/ 102 : 10 FB DJNZ NMISL |
| - | 217/ 111 : | + | 217/ 104 : DD E1 POP IX |
| - | 218/ 111 : ; | + | 218/ 106 : D9 EXX |
| - | 219/ 111 : | + | 219/ 107 : E1 POP HL ;Register restaurieren |
| - | 220/ 111 : C3 14 01 | + | 220/ 108 : D1 POP DE |
| - | 221/ 114 : =3H | + | 221/ 109 : C1 POP BC |
| - | 222/ 114 : | + | 222/ 10A : F1 POP AF |
| - | 223/ 114 : | + | 223/ 10B : D9 EXX |
| - | 224/ 114 : DD 21 9F 09 | + | 224/ 10C : 08 EX AF,AF' ;' |
| - | 225/ 118 : C3 8A 00 | + | 225/ 10D : C1 POP BC |
| - | 226/ 11B : | + | 226/ 10E : F1 POP AF |
| - | 227/ 11B : ; | + | 227/ 10F : ED 45 RETN |
| - | 228/ 11B : ; | + | 228/ 111 : |
| - | 229/ 11B : | + | 229/ 111 : ; |
| - | 230/ 11B : FE 10 CP 10H | + | 230/ 111 : |
| - | 231/ 11D : 38 24 JR C, | + | 231/ 111 : C3 14 01 JP RSTUP1 |
| - | 232/ 11F : 21 FD 23 | + | 232/ 114 : =3H |
| - | 233/ 122 : CB C6 SET 0,(HL) | + | 233/ 114 : |
| - | 234/ 124 : D6 10 SUB 10H ;OBERE ZIFFER DES CODES LOESCHEN | + | 234/ 114 : |
| - | 235/ 126 : FE 08 CP 08H | + | 235/ 114 : DD 21 9F 05 LD IX,DISP6 ; "rst 38" |
| - | 236/ 128 : 21 AB 09 LD HL,KSUFUN | + | 236/ 118 : C3 8A 00 JP SETSTO ; Spr. zum Hauptprogramm |
| - | 237/ 12B : DA 87 02 | + | 237/ 11B : |
| - | 238/ 12E : | + | 238/ 11B : ; |
| - | 239/ 12E : | + | 239/ 11B : ; EINTRITT: INTERNER TASTENCODE IN A |
| - | 240/ 12E : DD 21 F2 23 LD IX, | + | 240/ 11B : |
| - | 241/ 132 : D6 08 SUB 08H | + | |
| - | 242/ 134 : 21 FB 23 | + | |
| - | 243/ 137 : 77 | + | |
| - | 244/ 138 : 21 FA 23 | + | |
| - | 245/ 13B : 36 00 LD (HL), | + | 245/ 11B : |
| - | 246/ 13D : 21 B5 09 LD HL,KFUN | + | 246/ 11B : FE 10 CP 10H ;TEST, OB FUNKTIONSTASTE |
| - | 247/ 140 : C3 87 02 | + | 247/ 11D : 38 24 JR C,KHEX ;SPR., WENN ZIFFERNTASTE |
| - | 248/ 143 : | + | 248/ 11F : 21 FD 23 LD HL, |
| - | 249/ 143 : ; | + | 249/ 122 : CB C6 SET 0,(HL) |
| - | 250/ 143 : | + | 250/ 124 : D6 10 SUB 10H ;OBERE ZIFFER DES CODES LOESCHEN |
| - | 251/ 143 : 4F | + | 251/ 126 : FE 08 CP 08H ;TEST DER FUNKTIONSGRUPPE |
| - | 252/ 144 : 21 BF 09 LD HL,HTAB | + | 252/ 128 : 21 AB 05 LD HL,KSUFUN |
| - | 253/ 147 : | + | 253/ 12B : DA 87 02 JP C,BRANCH ; WENN " |
| - | 254/ 147 : 3A FB 23 | + | 254/ 12E : |
| - | 255/ 14A : C3 87 02 | + | 255/ 12E : ;ADR- ODER TAPE-TASTEN |
| - | 256/ 14D : | + | 256/ 12E : DD 21 F2 23 LD IX,DATLED ;ADR. FUER DATEN- U. ADR.-ANZEIGE |
| - | 257/ 14D : ; | + | 257/ 132 : D6 08 SUB 08H |
| - | 258/ 14D : ; | + | 258/ 134 : 21 FB 23 LD HL,ATCODE |
| - | 259/ 14D : | + | 259/ 137 : 77 LD (HL),A ;UMGERECHN. CODE HINTERLEGEN |
| - | 260/ 14D : 21 CB 09 LD HL,ITAB | + | 260/ 138 : |
| - | 261/ 150 : 18 F5 JR BR1 | + | 261/ 138 : 21 FA 23 LD HL,ATFLAG |
| - | 262/ 152 : | + | 262/ 13B : 36 00 LD (HL),0 ;FLAG LOESCHEN |
| - | 263/ 152 : | + | 263/ 13D : 21 B5 05 LD HL,KFUN ; |
| - | 264/ 152 : 21 D7 09 LD HL,DTAB | + | 264/ 140 : C3 87 02 JP BRANCH |
| - | 265/ 155 : 18 F0 JR BR1 | + | 265/ 143 : |
| - | 266/ 157 : | + | 266/ 143 : ; |
| - | 267/ 157 : | + | 267/ 143 : |
| - | 268/ 157 : 21 E3 09 LD HL, ETAB | + | 268/ 143 : 4F LD C,A ; |
| - | 269/ 15A : 18 EB JR BR1 | + | 269/ 144 : 21 BF 05 LD HL,HTAB ;Funkionen nach Zifferntaste |
| - | 270/ 15C : | + | 270/ 147 : |
| - | 271/ 15C : | + | 271/ 147 : 3A FB 23 LD A,(ATCODE) ;WERT FUER AUSZUF. FUNKTION |
| - | 272/ 15C : CD 27 09 CALL TESTM | + | 272/ 14A : C3 87 02 JP BRANCH |
| - | 273/ 15F : CD C5 02 | + | 273/ 14D : |
| - | 274/ 162 : C9 | + | 274/ 14D : ; |
| - | 275/ 163 : | + | 275/ 14D : ; (UEBER KSUFUN-TABELLE) |
| - | 276/ 163 : ; | + | 276/ 14D : |
| - | 277/ 163 : ; | + | 277/ 14D : 21 CB 05 LD HL,ITAB ; |
| - | 278/ 163 : | + | 278/ 150 : 18 F5 JR BR1 |
| - | 279/ 163 : CD BC 02 | + | 279/ 152 : |
| - | 280/ 166 : C9 | + | 280/ 152 : |
| - | 281/ 167 : | + | 281/ 152 : 21 D7 05 LD HL,DTAB ; |
| - | 282/ 167 : | + | 282/ 155 : 18 F0 JR BR1 |
| - | 283/ 167 : CD E2 02 | + | 283/ 157 : |
| - | 284/ 16A : C9 | + | 284/ 157 : |
| - | 285/ 16B : | + | 285/ 157 : 21 E3 05 LD HL, ETAB ; |
| - | 286/ 16B : ; | + | 286/ 15A : 18 EB JR BR1 |
| - | 287/ 16B : ; | + | 287/ 15C : |
| - | 288/ 16B : | + | 288/ 15C : |
| - | 289/ 16B : C3 96 02 | + | 289/ 15C : CD 27 05 CALL TESTM ;TEST. OB ADR OD. DAT IN ATCODE |
| - | 290/ 16E : | + | 290/ 15F : CD C5 02 CALL MEMDP2 ;ADR U. DAT. ANZ., DAT. GEPUNKTET |
| - | 291/ 16E : | + | 291/ 162 : C9 RET |
| - | 292/ 16E : 2A F8 23 | + | 292/ 163 : |
| - | 293/ 171 : CD 52 08 CALL RAMCHK | + | 293/ 163 : ; |
| - | 294/ 174 : C2 96 02 | + | 294/ 163 : ; (UEBER KFUN-TABELLE) |
| - | 295/ 177 : CD A8 02 | + | 295/ 163 : |
| - | 296/ 17A : 79 | + | 296/ 163 : CD BC 02 CALL MEMDP1 ;ADR. U. DAT. ANZ., ADR. GEPUNKTET |
| - | 297/ 17B : ED 6F RLD ;TETRADE IN RAM SCHIEBEN | + | 297/ 166 : C9 RET |
| - | 298/ 17D : CD C5 02 | + | 298/ 167 : |
| - | 299/ 180 : C9 | + | 299/ 167 : |
| - | 300/ 181 : | + | 300/ 167 : CD E2 02 CALL STEPDP ;PARAMETER ANZEIGEN |
| - | 301/ 181 : | + | 301/ 16A : C9 RET |
| - | 302/ 181 : 21 F8 23 | + | 302/ 16B : |
| - | 303/ 184 : CD B4 02 | + | 303/ 16B : ; |
| - | 304/ 187 : 79 | + | 304/ 16B : ; (UEBER HTAB-TABELLE) |
| - | 305/ 188 : ED 6F RLD ;TETRADEN IN BEIDEN BYTE VERSCHIEBEN | + | 305/ 16B : |
| - | 306/ 18A : 23 | + | 306/ 16B : C3 96 02 JP ERRDIS |
| - | 307/ 18B : ED 6F RLD | + | 307/ 16E : |
| - | 308/ 18D : CD BC 02 | + | 308/ 16E : HDA: ;ZIFFER ALS DATUM |
| - | 309/ 190 : C9 | + | 309/ 16E : 2A F8 23 LD HL, |
| - | 310/ 191 : | + | 310/ 171 : CD 52 04 CALL RAMCHK ;TEST, OB USER-PC IM RAM-BEREICH |
| - | 311/ 191 : | + | 311/ 174 : C2 96 02 JP NZ,ERRDIS ;SPR., WENN KEIN RAM |
| - | 312/ 191 : CD FD 02 | + | 312/ 177 : CD A8 02 CALL PRECL1 ;1 BYTE LOE., WENN FUFEFLAG NICHT 0 |
| - | 313/ 194 : CD B4 02 | + | 313/ 17A : 79 LD A,C ;EINGEG. ZIFFER |
| - | 314/ 197 : 79 | + | 314/ 17B : ED 6F RLD ;TETRADE IN RAM SCHIEBEN |
| - | 315/ 198 : ED 6F RLD ;TETRADE IN BEIDEN BYTE VERSCHIEBEN | + | 315/ 17D : CD C5 02 CALL MEMDP2 ;ANZEIGEN |
| - | 316/ 19A : 23 | + | 316/ 180 : C9 RET |
| - | 317/ 19B : ED 6F RLD | + | 317/ 181 : |
| - | 318/ 19D : CD E2 02 | + | 318/ 181 : HAD: ;ZIFFER ALS ADRESSE |
| - | 319/ 1A0 : C9 | + | 319/ 181 : 21 F8 23 LD HL,USERPC |
| - | 320/ 1A1 : | + | 320/ 184 : CD B4 02 CALL PRECL2 ;2 BYTE LOE., WENN FUFEFLAG NICHT 0 |
| - | 321/ 1A1 : ; | + | 321/ 187 : 79 LD A,C ;EINGEG. ZIFFER |
| - | 322/ 1A1 : ; | + | 322/ 188 : ED 6F RLD ;TETRADEN IN BEIDEN BYTE VERSCHIEBEN |
| - | 323/ 1A1 : | + | 323/ 18A : 23 INC HL |
| - | 324/ 1A1 : C3 96 02 | + | 324/ 18B : ED 6F RLD |
| - | 325/ 1A4 : | + | 325/ 18D : CD BC 02 CALL MEMDP1 ;ANZEIGEN |
| - | 326/ 1A4 : | + | 326/ 190 : C9 RET |
| - | 327/ 1A4 : 2A F8 23 | + | 327/ 191 : |
| - | 328/ 1A7 : 23 | + | 328/ 191 : |
| - | 329/ 1A8 : 22 F8 23 | + | 329/ 191 : CD FD 02 CALL LOCTBF ;ADR FUER PARAMETER BERECHNEN |
| - | 330/ 1AB : CD C5 02 | + | 330/ 194 : CD B4 02 CALL PRECL2 ;2 BYTE LOE., WENN FUFEFLAG NICHT 0 |
| - | 331/ 1AE : C9 | + | 331/ 197 : 79 LD A,C ;EINGEG. ZIFFER |
| - | 332/ 1AF : | + | 332/ 198 : ED 6F RLD ;TETRADE IN BEIDEN BYTE VERSCHIEBEN |
| - | 333/ 1AF : | + | 333/ 19A : 23 INC HL |
| - | 334/ 1AF : 21 FA 23 | + | 334/ 19B : ED 6F RLD |
| - | 335/ 1B2 : 34 | + | 335/ 19D : CD E2 02 CALL STEPDP ;PARAMETER ANZEIGEN |
| - | 336/ 1B3 : CD 07 03 | + | 336/ 1A0 : C9 RET |
| - | 337/ 1B6 : 20 04 JR NZ, | + | 337/ 1A1 : |
| - | 338/ 1B8 : 35 | + | 338/ 1A1 : ; |
| - | 339/ 1B9 : C3 96 02 | + | 339/ 1A1 : ; (UEBER ITAB) |
| - | 340/ 1BC : | + | 340/ 1A1 : |
| - | 341/ 1BC : CD E2 02 | + | 341/ 1A1 : C3 96 02 JP ERRDIS |
| - | 342/ 1BF : C9 | + | 342/ 1A4 : |
| - | 343/ 1C0 : | + | 343/ 1A4 : |
| - | 344/ 1C0 : ; | + | 344/ 1A4 : 2A F8 23 LD HL, |
| - | 345/ 1C0 : ; | + | 345/ 1A7 : 23 INC HL |
| - | 346/ 1C0 : | + | 346/ 1A8 : 22 F8 23 LD (USERPC), |
| - | 347/ 1C0 : C3 96 02 | + | 347/ 1AB : CD C5 02 CALL MEMDP2 ;ANZEIGEN |
| - | 348/ 1C3 : | + | 348/ 1AE : C9 RET |
| - | 349/ 1C3 : | + | 349/ 1AF : |
| - | 350/ 1C3 : 2A F8 23 | + | 350/ 1AF : |
| - | 351/ 1C6 : 2B | + | 351/ 1AF : 21 FA 23 LD HL,ATFLAG |
| - | 352/ 1C7 : 22 F8 23 | + | 352/ 1B2 : 34 INC (HL) ;FLAS AUF NEUEN PARAMETER |
| - | 353/ 1CA : CD C5 02 | + | 353/ 1B3 : CD 07 03 CALL LOCTNA ;PARMETER ' |
| - | 354/ 1CD : C9 | + | 354/ 1B6 : 20 04 JR NZ,ISTEP ;SPRUNG, WENN RICHTIG |
| - | 355/ 1CE : | + | 355/ 1B8 : 35 DEC (HL) ;FLAG AUF ALTEN WERT |
| - | 356/ 1CE : | + | 356/ 1B9 : C3 96 02 JP ERRDIS ; |
| - | 357/ 1CE : 21 FA 23 | + | 357/ 1BC : |
| - | 358/ 1D1 : 35 | + | 358/ 1BC : CD E2 02 CALL STEPDP ;PARAMETER ANZEIGEN |
| - | 359/ 1D2 : CD 07 03 | + | 359/ 1BF : C9 RET |
| - | 360/ 1D5 : 20 04 JR NZ, | + | 360/ 1C0 : |
| - | 361/ 1D7 : 34 | + | 361/ 1C0 : ; |
| - | 362/ 1D8 : C3 96 02 | + | 362/ 1C0 : ; (UEBER DTAB) |
| - | 363/ 1DB : | + | 363/ 1C0 : |
| - | 364/ 1DB : CD E2 02 | + | 364/ 1C0 : C3 96 02 JP ERRDIS |
| - | 365/ 1DE : C9 | + | 365/ 1C3 : |
| - | 366/ 1DF : | + | 366/ 1C3 : |
| - | 367/ 1DF : ; | + | 367/ 1C3 : 2A F8 23 LD HL, |
| - | 368/ 1DF : ; | + | 368/ 1C6 : 2B DEC HL |
| - | 369/ 1DF : | + | 369/ 1C7 : 22 F8 23 LD (USERPC), |
| - | 370/ 1DF : C3 96 02 | + | 370/ 1CA : CD C5 02 CALL MEMDP2 ;ANZEIGEN |
| - | 371/ 1E2 : | + | 371/ 1CD : C9 RET |
| - | 372/ 1E2 : | + | 372/ 1CE : |
| - | 373/ 1E2 : E5 | + | 373/ 1CE : |
| - | 374/ 1E3 : 2A F8 23 | + | 374/ 1CE : 21 FA 23 LD HL,ATFLAG |
| - | 375/ 1E6 : E3 | + | 375/ 1D1 : 35 DEC (HL) ;FLAG AUF VORHER. PARAMETER |
| - | 376/ 1E7 : C9 | + | 376/ 1D2 : CD 07 03 CALL LOCTNA ;PARAMETER ' |
| - | 377/ 1E8 : | + | 377/ 1D5 : 20 04 JR NZ,DSTEP ;SPR., WENN RICHTIG |
| - | 378/ 1E8 : | + | 378/ 1D7 : 34 INC (HL) ;ALTER FLAGWERT |
| - | 379/ 1E8 : ED 53 F8 23 LD (USERPC), | + | 379/ 1D8 : C3 96 02 JP ERRDIS ; |
| - | 380/ 1EC : CD C5 02 | + | 380/ 1DB : |
| - | 381/ 1EF : C9 | + | 381/ 1DB : CD E2 02 CALL STEPDP ;PARAMETER ANZEIGEN |
| - | 382/ 1F0 : | + | 382/ 1DE : C9 RET |
| - | 383/ 1F0 : | + | 383/ 1DF : |
| - | 384/ 1F0 : CD 88 03 | + | 384/ 1DF : ; |
| - | 385/ 1F3 : 38 EA JR C, | + | 385/ 1DF : ; (UEBER ETAB) |
| - | 386/ 1F5 : 32 F1 23 | + | 386/ 1DF : |
| - | 387/ 1F8 : 21 A0 0F | + | 387/ 1DF : C3 96 02 JP ERRDIS |
| - | 388/ 1FB : | + | 388/ 1E2 : |
| - | 389/ 1FB : CD 70 03 | + | 389/ 1E2 : |
| - | 390/ 1FE : 21 EB 23 | + | 390/ 1E2 : E5 PUSH HL |
| - | 391/ 201 : 01 07 00 | + | 391/ 1E3 : 2A F8 23 LD HL, |
| - | 392/ 204 : CD 1B 08 CALL TAPOUT | + | 392/ 1E6 : E3 EX (SP),HL |
| - | 393/ 207 : 21 A0 0F | + | 393/ 1E7 : C9 RET |
| - | 394/ 20A : | + | 394/ 1E8 : |
| - | 395/ 20A : CD 74 03 | + | 395/ 1E8 : |
| - | 396/ 20D : CD 95 03 | + | 396/ 1E8 : ED 53 F8 23 LD (USERPC), |
| - | 397/ 210 : CD 1B 08 CALL TAPOUT | + | 397/ 1EC : CD C5 02 CALL MEMDP2 |
| - | 398/ 213 : 21 A0 0F | + | 398/ 1EF : C9 RET |
| - | 399/ 216 : | + | 399/ 1F0 : |
| - | 400/ 216 : CD 74 03 | + | 400/ 1F0 : EWT: ; |
| - | 401/ 219 : | + | 401/ 1F0 : CD 88 03 CALL SUM ;PRUEFSUMME BERECHNEN |
| - | 402/ 219 : ED 5B EF 23 LD DE, | + | 402/ 1F3 : 38 EA JR C,EFIX ;WENN ENDADR< |
| - | 403/ 21D : 18 C9 JR ENDFUN | + | 403/ 1F5 : 32 F1 23 LD (CHKSUMH), |
| - | 404/ 21F : | + | 404/ 1F8 : 21 A0 0F LD HL,0FA0H ;AUSGABE 4000 x 1KHZ-TAKTE |
| - | 405/ 21F : ; | + | 405/ 1FB : ;ALS START-SYNC SIGNAL |
| - | 406/ 21F : | + | 406/ 1FB : CD 70 03 CALL SOUN1K |
| - | 407/ 21F : DD 21 A5 09 | + | 407/ 1FE : 21 EB 23 LD HL,FILNAME ;DESCRIPTOR UEBERTRAGEN |
| - | 408/ 223 : C3 8A 00 | + | 408/ 201 : 01 07 00 LD BC,0007H ;7 BYTE |
| - | 409/ 226 : | + | 409/ 204 : CD 1B 04 CALL TAPOUT |
| - | 410/ 226 : ; | + | 410/ 207 : 21 A0 0F LD HL,0FA0H ;AUSGABE 4000 x 2KHZ-TAKTE |
| - | 411/ 226 : | + | 411/ 20A : ;ALS MITTEL-SYNC SIGNAL |
| - | 412/ 226 : 2A EB 23 | + | 412/ 20A : CD 74 03 CALL SOUN2K |
| - | 413/ 229 : 22 FE 23 | + | 413/ 20D : CD 95 03 CALL GETPTR ;LAENGE DES BLOCKES BER. |
| - | 414/ 22C : 3E EF LD A, | + | 414/ 210 : CD 1B 04 CALL TAPOUT ;DATE UEBERTRAGEN |
| - | 415/ 22E : 32 EA 23 | + | 415/ 213 : 21 A0 0F LD HL,0FA0H ;AUSGABE 4000 x 2KHZ-TAKTE |
| - | 416/ 231 : | + | 416/ 216 : ;ALS END SYNC. SIGNAL |
| - | 417/ 231 : 3A EA 23 | + | 417/ 216 : CD 74 03 CALL SOUN2K |
| - | 418/ 234 : D3 F4 OUT (SEGMENT), | + | 418/ 219 : |
| - | 419/ 236 : 21 E8 03 | + | 419/ 219 : ED 5B EF 23 LD DE, |
| - | 420/ 239 : | + | 420/ 21D : 18 C9 JR ENDFUN ;ABSP. UND ANZEIGEN |
| - | 421/ 239 : CD 00 08 CALL PERIOD | + | 421/ 21F : |
| - | 422/ 23C : 38 F3 JR C, | + | 422/ 21F : ; |
| - | 423/ 23E : 2B | + | 423/ 21F : |
| - | 424/ 23F : 7C | + | 424/ 21F : DD 21 A5 05 LD IX,ERR ;ADR FEHLERTEXT |
| - | 425/ 240 : B5 | + | 425/ 223 : C3 8A 00 JP SETSTO ;SPR. ZUR ANZEIGE |
| - | 426/ 241 : 20 F6 JR NZ, | + | 426/ 226 : |
| - | 427/ 243 : | + | 427/ 226 : ; |
| - | 428/ 243 : CD 00 08 CALL PERIOD | + | 428/ 226 : |
| - | 429/ 246 : 30 FB JR NC, | + | 429/ 226 : 2A EB 23 LD HL, |
| - | 430/ 248 : 21 EB 23 | + | 430/ 229 : 22 FE 23 LD (FILE2), |
| - | 431/ 24B : 01 07 00 | + | 431/ 22C : 3E EF LD A,0EFH ; |
| - | 432/ 24E : CD A7 03 | + | 432/ 22E : 32 EA 23 LD (TAPDIS), |
| - | 433/ 251 : 38 DE JR C, | + | 433/ 231 : |
| - | 434/ 253 : ED 5B EB 23 LD DE, | + | 434/ 231 : 3A EA 23 LD A, |
| - | 435/ 257 : CD B7 08 CALL ADRSDP | + | 435/ 234 : D3 F4 OUT (SEGMENT), |
| - | 436/ 25A : 06 4B LD B,75 | + | 436/ 236 : 21 E8 03 LD HL,1000 |
| - | 437/ 25C : | + | 437/ 239 : |
| - | 438/ 25C : CD 83 08 CALL DAK2 ;ANZEIGEN | + | 438/ 239 : CD 00 04 CALL PERIOD ; |
| - | 439/ 25F : 10 FB DJNZ FILEDP | + | 439/ 23C : 38 F3 JR C,LEAD ;WDHLG., SOLANGE NICHT 1 KHZ |
| - | 440/ 261 : 2A FE 23 | + | 440/ 23E : 2B DEC HL ;TEST, OB 1000 MAL 1 KHZ |
| - | 441/ 264 : B7 | + | 441/ 23F : 7C LD A,H |
| - | 442/ 265 : ED 52 SBC HL,DE | + | 442/ 240 : B5 OR L |
| - | 443/ 267 : 3E F7 LD A, | + | 443/ 241 : 20 F6 JR NZ,LEAD1 ;WDHLG., BIS 1000 x 1 KHZ |
| - | 444/ 269 : 32 EA 23 | + | 444/ 243 : |
| - | 445/ 26C : 20 C3 JR NZ, | + | 445/ 243 : CD 00 04 CALL PERIOD |
| - | 446/ 26E : 3E FE LD A, | + | 446/ 246 : 30 FB JR NC,LEAD2 ;WDHLG., SOLANGE NOCH 1 KHZ |
| - | 447/ 270 : D3 F4 OUT (SEGMENT), | + | 447/ 248 : 21 EB 23 LD HL,FILNAME ;ADR FUER HINTERLEGUNG DESCRIPTOR |
| - | 448/ 272 : CD 95 03 | + | 448/ 24B : 01 07 00 LD BC,0007H |
| - | 449/ 275 : 38 A8 JR C, | + | 449/ 24E : CD A7 03 CALL TAPEIN ;7 BYTE LESEN |
| - | 450/ 277 : CD A7 03 | + | 450/ 251 : 38 DE JR C,LEAD ;SPR., WENN UEBERTRAGUNGSFEHLER |
| - | 451/ 27A : 38 A3 JR C, | + | 451/ 253 : ED 5B EB 23 LD DE, |
| - | 452/ 27C : CD 88 03 | + | 452/ 257 : CD B7 04 CALL ADRSDP ; |
| - | 453/ 27F : 21 F1 23 | + | 453/ 25A : 06 4B LD B,75 |
| - | 454/ 282 : BE | + | 454/ 25C : |
| - | 455/ 283 : 20 9A JR NZ, | + | 455/ 25C : CD 83 04 CALL DAK2 ;ANZEIGEN |
| - | 456/ 285 : 18 92 JR ENDTAP | + | 456/ 25F : 10 FB DJNZ FILEDP |
| - | 457/ 287 : | + | 457/ 261 : 2A FE 23 LD HL,(FILE2) ;SOLL-NAMEN LESEN |
| - | 458/ 287 : ; | + | 458/ 264 : B7 OR A |
| - | 459/ 287 : | + | 459/ 265 : ED 52 SBC HL,DE |
| - | 460/ 287 : 5E | + | 460/ 267 : 3E F7 LD A,0F7H ;" |
| - | 461/ 288 : 23 | + | 461/ 269 : 32 EA 23 LD (TAPDIS), |
| - | 462/ 289 : 56 | + | 462/ 26C : 20 C3 JR NZ,LEAD ;SPR., WENN FALSCHER FILENAME |
| - | 463/ 28A : 23 | + | 463/ 26E : 3E FE LD A,0FEH ; "'" |
| - | 464/ 28B : D5 | + | 464/ 270 : D3 F4 OUT (SEGMENT), |
| - | 465/ 28C : 5F | + | 465/ 272 : CD 95 03 CALL GETPTR ;LAENGE DES BLOCKES BER. |
| - | 466/ 28D : 16 00 LD D,0 | + | 466/ 275 : 38 A8 JR C,ERROR ;WENN ENDADR< |
| - | 467/ 28F : 19 | + | 467/ 277 : CD A7 03 CALL TAPEIN ;DATENSATZ EINLESEN |
| - | 468/ 290 : D1 | + | 468/ 27A : 38 A3 JR C,ERROR ;SPR., WENN UEBERTR.FEHLER |
| - | 469/ 291 : 6E | + | 469/ 27C : CD 88 03 CALL SUM ;PRUEFSUMME BER. |
| - | 470/ 292 : 26 00 LD H,0 | + | 470/ 27F : 21 F1 23 LD HL, |
| - | 471/ 294 : 19 | + | 471/ 282 : BE CP (HL) ;VERGLEICH MIT UEBERTR. PRUEFS. |
| - | 472/ 295 : E9 | + | 472/ 283 : 20 9A JR NZ,ERROR ;SPR., WENN FEHLER |
| - | 473/ 296 : | + | 473/ 285 : 18 92 JR ENDTAP |
| - | 474/ 296 : ; | + | 474/ 287 : |
| - | 475/ 296 : | + | 475/ 287 : ; |
| - | 476/ 296 : 21 FD 23 | + | 476/ 287 : |
| - | 477/ 299 : CB FE SET 7,(HL) | + | 477/ 287 : 5E LD E,(HL) ;ADR DES FUNKTIONSPROGRAMMTEILS |
| - | 478/ 29B : C9 | + | 478/ 288 : 23 INC HL |
| - | 479/ 29C : | + | 479/ 289 : 56 LD D,(HL) |
| - | 480/ 29C : ; | + | 480/ 28A : 23 INC HL |
| - | 481/ 29C : | + | 481/ 28B : D5 PUSH DE ;DE=Adr. |
| - | 482/ 29C : 3E 80 LD A,80H | + | 482/ 28C : 5F LD E,A ;A=Index |
| - | 483/ 29E : 32 FC 23 | + | 483/ 28D : 16 00 LD D,0 |
| - | 484/ 2A1 : CD EA 08 CALL MONMUS | + | 484/ 28F : 19 ADD HL,DE |
| - | 485/ 2A4 : CD 1B 03 | + | 485/ 290 : D1 POP DE |
| - | 486/ 2A7 : C9 | + | 486/ 291 : 6E LD L,(HL) ;L=Byte an Index-Pos. |
| - | 487/ 2A8 : | + | 487/ 292 : 26 00 LD H,0 |
| - | 488/ 2A8 : ; | + | 488/ 294 : 19 ADD HL,DE ;ADR DES GEW. PROG. TEILS |
| - | 489/ 2A8 : | + | 489/ 295 : E9 JP (HL) |
| - | 490/ 2A8 : 3A FD 23 | + | 490/ 296 : |
| - | 491/ 2AB : B7 | + | 491/ 296 : ; |
| - | 492/ 2AC : C8 | + | 492/ 296 : |
| - | 493/ 2AD : 3E 00 LD A,0 | + | 493/ 296 : 21 FD 23 LD HL, |
| - | 494/ 2AF : 77 | + | 494/ 299 : CB FE SET 7,(HL) ;setze Fehlerbit |
| - | 495/ 2B0 : 32 FD 23 | + | 495/ 29B : C9 RET |
| - | 496/ 2B3 : C9 | + | 496/ 29C : |
| - | 497/ 2B4 : | + | 497/ 29C : ; |
| - | 498/ 2B4 : ; | + | 498/ 29C : |
| - | 499/ 2B4 : | + | 499/ 29C : 3E 80 LD A,80H |
| - | 500/ 2B4 : CD A8 02 | + | 500/ 29E : 32 FC 23 LD (INIFLAG), |
| - | 501/ 2B7 : C8 | + | 501/ 2A1 : CD EA 04 CALL MONMUS ; MUSIKPROGRAMM |
| - | 502/ 2B8 : 23 | + | 502/ 2A4 : CD 1B 03 CALL INIDIP ; ANFANGSGRAPHIK |
| - | 503/ 2B9 : 77 | + | 503/ 2A7 : C9 RET |
| - | 504/ 2BA : 2B | + | 504/ 2A8 : |
| - | 505/ 2BB : C9 | + | 505/ 2A8 : ; |
| - | 506/ 2BC : | + | 506/ 2A8 : ; zu HDA: ein Byte löschen, wenn kein Fehler vorliegt |
| - | 507/ 2BC : ; | + | 507/ 2A8 : |
| - | 508/ 2BC : | + | 508/ 2A8 : 3A FD 23 LD A, |
| - | 509/ 2BC : 3E 01 LD A,01H | + | 509/ 2AB : B7 OR A |
| - | 510/ 2BE : 06 04 LD B,04H | + | 510/ 2AC : C8 RET Z ;RET., WENN KEIN FLAG |
| - | 511/ 2C0 : 21 F4 23 | + | 511/ 2AD : 3E 00 LD A,0 |
| - | 512/ 2C3 : 18 07 JR SAV12 | + | 512/ 2AF : 77 LD (HL),A ;ZELLE LOESCHEN |
| - | 513/ 2C5 : | + | 513/ 2B0 : 32 FD 23 LD (FUFEFLAG), |
| - | 514/ 2C5 : ; | + | 514/ 2B3 : C9 RET |
| - | 515/ 2C5 : | + | 515/ 2B4 : |
| - | 516/ 2C5 : 3E 02 LD A,02H | + | 516/ 2B4 : ; |
| - | 517/ 2C7 : 06 02 LD B,02H | + | 517/ 2B4 : ; zu HAD und HTAPWR: zwei Byte löschen, wenn kein Fehler vorliegt |
| - | 518/ 2C9 : 21 F2 23 | + | 518/ 2B4 : |
| - | 519/ 2CC : | + | 519/ 2B4 : CD A8 02 CALL PRECL1 ;1 BYTE LOE., WENN FUFEFLAG NICHT 0 |
| - | 520/ 2CC : 32 FB 23 | + | 520/ 2B7 : C8 RET Z ;RET., WENN KEIN FLAG |
| - | 521/ 2CF : D9 | + | 521/ 2B8 : 23 INC HL |
| - | 522/ 2D0 : ED 5B F8 23 LD DE,(USERPC) ; | + | 522/ 2B9 : 77 LD (HL),A ;NAECHSTE ZELLE LOESCHEN |
| - | 523/ 2D4 : CD B7 08 CALL ADRSDP | + | 523/ 2BA : 2B DEC HL |
| - | 524/ 2D7 : 1A | + | 524/ 2BB : C9 RET |
| - | 525/ 2D8 : CD C3 08 CALL DADP ;DATUM ANZEIGEN | + | 525/ 2BC : |
| - | 526/ 2DB : D9 | + | 526/ 2BC : ; |
| - | 527/ 2DC : | + | 527/ 2BC : |
| - | 528/ 2DC : CB E6 SET 4, | + | 528/ 2BC : 3E 01 LD A,01H ;CODE " |
| - | 529/ 2DE : 23 | + | 529/ 2BE : 06 04 LD B,04H ;ANZ. ADRESSSTELLEN |
| - | 530/ 2DF : 10 FB DJNZ SETPT | + | 530/ 2C0 : 21 F4 23 LD HL,ADRLED |
| - | 531/ 2E1 : C9 | + | 531/ 2C3 : 18 07 JR SAV12 |
| - | 532/ 2E2 : | + | 532/ 2C5 : |
| - | 533/ 2E2 : ; | + | 533/ 2C5 : ; |
| - | 534/ 2E2 : | + | 534/ 2C5 : |
| - | 535/ 2E2 : CD FD 02 | + | 535/ 2C5 : 3E 02 LD A,02H ;CODE " |
| - | 536/ 2E5 : 5E | + | 536/ 2C7 : 06 02 LD B,02H ;ANZAHL DATENSTELLEN |
| - | 537/ 2E6 : 23 | + | 537/ 2C9 : 21 F2 23 LD HL,DATLED |
| - | 538/ 2E7 : 56 | + | 538/ 2CC : |
| - | 539/ 2E8 : CD B7 08 CALL ADRSDP | + | 539/ 2CC : 32 FB 23 LD (ATCODE),A ;CODE ABSPEICHERN |
| - | 540/ 2EB : 21 F4 23 | + | 540/ 2CF : D9 EXX |
| - | 541/ 2EE : 06 04 LD B,04H | + | 541/ 2D0 : ED 5B F8 23 LD DE, |
| - | 542/ 2F0 : CD DC 02 | + | 542/ 2D4 : CD B7 04 CALL ADRSDP |
| - | 543/ 2F3 : CD 07 03 | + | 543/ 2D7 : 1A LD A,(DE) ;INHALT DER ADRESS. RAM-ZELLE |
| - | 544/ 2F6 : 6F | + | 544/ 2D8 : CD C3 04 CALL DADP ;DATUM ANZEIGEN |
| - | 545/ 2F7 : 26 08 LD H,08H | + | 545/ 2DB : D9 EXX |
| - | 546/ 2F9 : 22 F2 23 | + | 546/ 2DC : |
| - | 547/ 2FC : C9 | + | 547/ 2DC : CB E6 SET 4,(HL) ; DEZIMALPUNKTE SETZEN |
| - | 548/ 2FD : | + | 548/ 2DE : 23 INC HL |
| - | 549/ 2FD : ; | + | 549/ 2DF : 10 FB DJNZ SETPT ;WDHLG., BIS ALLE DEZIMALPUNKTEPT |
| - | 550/ 2FD : | + | 550/ 2E1 : C9 RET |
| - | 551/ 2FD : | + | 551/ 2E2 : |
| - | 552/ 2FD : | + | 552/ 2E2 : ; |
| - | 553/ 2FD : | + | 553/ 2E2 : |
| - | 554/ 2FD : 3A FA 23 | + | 554/ 2E2 : CD FD 02 CALL LOCTBF ; |
| - | 555/ 300 : 87 | + | 555/ 2E5 : 5E LD E,(HL) ;INHALT DER ADRES. ZELLE NACH DE |
| - | 556/ 301 : 21 EB 23 | + | 556/ 2E6 : 23 INC HL |
| - | 557/ 304 : 85 | + | 557/ 2E7 : 56 LD D,(HL) |
| - | 558/ 305 : 6F | + | 558/ 2E8 : CD B7 04 CALL ADRSDP ; |
| - | 559/ 306 : C9 | + | 559/ 2EB : 21 F4 23 LD HL,ADRLED ;ADR PUNKTIEREN |
| - | 560/ 307 : | + | 560/ 2EE : 06 04 LD B,04H |
| - | 561/ 307 : ; | + | 561/ 2F0 : CD DC 02 CALL SETPT |
| - | 562/ 307 : | + | 562/ 2F3 : CD 07 03 CALL LOCTNA ;ZEICHEN FUER PARAMETERANZ. NACH A |
| - | 563/ 307 : | + | 563/ 2F6 : 6F LD L,A |
| - | 564/ 307 : | + | 564/ 2F7 : 26 08 LD H,08H ;" |
| - | 565/ 307 : | + | 565/ 2F9 : 22 F2 23 LD (DATLED), |
| - | 566/ 307 : 3A FB 23 | + | 566/ 2FC : C9 RET |
| - | 567/ 30A : D6 04 SUB 04H ; - 4 | + | 567/ 2FD : |
| - | 568/ 30C : 87 | + | 568/ 2FD : ; |
| - | 569/ 30D : 87 | + | 569/ 2FD : |
| - | 570/ 30E : 11 89 09 LD DE, | + | 570/ 2FD : |
| - | 571/ 311 : 83 | + | 571/ 2FD : |
| - | 572/ 312 : 5F | + | 572/ 2FD : |
| - | 573/ 313 : 3A FA 23 | + | 573/ 2FD : 3A FA 23 LD A, (ATFLAG) ; |
| - | 574/ 316 : 83 | + | 574/ 300 : 87 ADD A,A ; x 2 |
| - | 575/ 317 : 5F | + | 575/ 301 : 21 EB 23 LD HL, |
| - | 576/ 318 : 1A | + | 576/ 304 : 85 ADD A,L ; + DESCRIPTOR-AREA |
| - | 577/ 319 : B7 | + | 577/ 305 : 6F LD L,A |
| - | 578/ 31A : C9 | + | 578/ 306 : C9 RET |
| - | 579/ 31B : | + | 579/ 307 : |
| - | 580/ 31B : ; | + | 580/ 307 : ; |
| - | 581/ 31B : | + | 581/ 307 : ; |
| - | 582/ 31B : 0E 05 LD C,05H | + | 582/ 307 : ;AUSTRITT: ZEICHEN IN A |
| - | 583/ 31D : 21 83 09 LD HL, | + | 583/ 307 : ;ZERSTOERT: DE |
| - | 584/ 320 : E5 | + | 584/ 307 : |
| - | 585/ 321 : DD 21 7D 09 | + | 585/ 307 : 3A FB 23 LD A,(ATCODE) ; CODE "FROM TAPE" ODER "TO TAPE" |
| - | 586/ 325 : A1: | + | 586/ 30A : D6 04 SUB 04H ; - 4 |
| - | 587/ 325 : CD 5E 03 | + | 587/ 30C : 87 ADD A,A |
| - | 588/ 328 : DD E3 EX (SP), | + | 588/ 30D : 87 ADD A,A ; x 4 |
| - | 589/ 32A : 06 14 LD B,20 | + | 589/ 30E : 11 89 05 LD DE,DISP4 ; ANZEIGETEXT |
| - | 590/ 32C : A2: | + | 590/ 311 : 83 ADD A,E |
| - | 591/ 32C : CD 83 08 CALL DAK2 | + | 591/ 312 : 5F LD E,A ;NEUE ADR NACH DE (FROM ODER TO) |
| - | 592/ 32F : 10 FB DJNZ A2 | + | 592/ 313 : 3A FA 23 LD A,(ATFLAG) ;CODE FUER PARAMETER |
| - | 593/ 331 : CD 67 03 | + | 593/ 316 : 83 ADD A,E |
| - | 594/ 334 : 06 14 LD B,20 | + | 594/ 317 : 5F LD E,A ;ADRESSE ZEICHEN |
| - | 595/ 336 : A3: | + | 595/ 318 : 1A LD A,(DE) |
| - | 596/ 336 : CD 83 08 CALL DAK2 | + | 596/ 319 : B7 OR A |
| - | 597/ 339 : 10 FB DJNZ A3 | + | 597/ 31A : C9 RET |
| - | 598/ 33B : 0D | + | 598/ 31B : |
| - | 599/ 33C : 20 E7 JR NZ,A1 | + | 599/ 31B : ; |
| - | 600/ 33E : | + | 600/ 31B : |
| - | 601/ 33E : 0E 15 LD C,21 | + | 601/ 31B : 0E 05 LD C,05H ;ANZAHL DER WDHLG. |
| - | 602/ 340 : DD 21 89 09 | + | 602/ 31D : 21 83 05 LD HL,DISP3 ;TEXT "HALLO " |
| - | 603/ 344 : | + | 603/ 320 : E5 PUSH HL |
| - | 604/ 344 : 06 0B LD B,11 | + | 604/ 321 : DD 21 7D 05 LD IX,DISP2 ;TEXT " USER " |
| - | 605/ 346 : B1: | + | 605/ 325 : A1: |
| - | 606/ 346 : CD 83 08 CALL DAK2 | + | 606/ 325 : CD 5E 03 CALL SOU1K |
| - | 607/ 349 : 10 FB DJNZ B1 | + | 607/ 328 : DD E3 EX (SP),IX ; |
| - | 608/ 34B : CB 41 BIT 0,C | + | 608/ 32A : 06 14 LD B,20 ;0.2 Sek |
| - | 609/ 34D : 20 05 JR NZ,B2 | + | 609/ 32C : A2: |
| - | 610/ 34F : CD 67 03 | + | 610/ 32C : CD 83 04 CALL DAK2 |
| - | 611/ 352 : 18 03 JR B3 | + | 611/ 32F : 10 FB DJNZ A2 |
| - | 612/ 354 : B2: | + | 612/ 331 : CD 67 03 CALL SOU2K |
| - | 613/ 354 : CD 5E 03 | + | 613/ 334 : 06 14 LD B,20 ;0.2 Sek |
| - | 614/ 357 : B3: | + | 614/ 336 : A3: |
| - | 615/ 357 : DD 2B DEC IX | + | 615/ 336 : CD 83 04 CALL DAK2 |
| - | 616/ 359 : 0D | + | 616/ 339 : 10 FB DJNZ A3 |
| - | 617/ 35A : 20 E8 JR NZ,BLOOP | + | 617/ 33B : 0D DEC C |
| - | 618/ 35C : | + | 618/ 33C : 20 E7 JR NZ,A1 |
| - | 619/ 35C : E1 | + | 619/ 33E : |
| - | 620/ 35D : C9 | + | 620/ 33E : 0E 15 LD C,21 ; 21 Schritte Laufschrift (disp4-disp1) |
| - | 621/ 35E : | + | 621/ 340 : DD 21 89 05 LD IX,DISP4 ; leere Anzeige |
| - | 622/ 35E : ; | + | 622/ 344 : |
| - | 623/ 35E : | + | 623/ 344 : 06 0B LD B,11 ;0.11 Sek |
| - | 624/ 35E : D9 | + | 624/ 346 : B1: |
| - | 625/ 35F : 21 50 00 | + | 625/ 346 : CD 83 04 CALL DAK2 |
| - | 626/ 362 : CD 70 03 | + | 626/ 349 : 10 FB DJNZ B1 |
| - | 627/ 365 : D9 | + | 627/ 34B : CB 41 BIT 0,C ; in jedem Schleifendurchlauf |
| - | 628/ 366 : C9 | + | 628/ 34D : 20 05 JR NZ,B2 ; Wechsel zw. sou1k und sou2k |
| - | 629/ 367 : | + | 629/ 34F : CD 67 03 CALL SOU2K |
| - | 630/ 367 : ; | + | 630/ 352 : 18 03 JR B3 |
| - | 631/ 367 : | + | 631/ 354 : B2: |
| - | 632/ 367 : D9 | + | 632/ 354 : CD 5E 03 CALL SOU1K |
| - | 633/ 368 : 21 A0 00 | + | 633/ 357 : B3: |
| - | 634/ 36B : CD 74 03 | + | 634/ 357 : DD 2B DEC IX ; Laufschrift nächster Schritt |
| - | 635/ 36E : D9 | + | 635/ 359 : 0D DEC C |
| - | 636/ 36F : C9 | + | 636/ 35A : 20 E8 JR NZ,BLOOP |
| - | 637/ 370 : | + | 637/ 35C : |
| - | 638/ 370 : ; | + | 638/ 35C : E1 POP HL ; |
| - | 639/ 370 : | + | 639/ 35D : C9 RET |
| - | 640/ 370 : 0E 20 LD C,32 | + | 640/ 35E : |
| - | 641/ 372 : 18 02 JR SOUND | + | 641/ 35E : ; |
| - | 642/ 374 : | + | 642/ 35E : |
| - | 643/ 374 : ; | + | 643/ 35E : D9 EXX |
| - | 644/ 374 : | + | 644/ 35F : 21 50 00 LD HL,80 |
| - | 645/ 374 : 0E 0F LD C,15 | + | 645/ 362 : CD 70 03 CALL SOUN1K |
| - | 646/ 376 : | + | 646/ 365 : D9 EXX |
| - | 647/ 376 : | + | 647/ 366 : C9 RET |
| - | 648/ 376 : 29 | + | 648/ 367 : |
| - | 649/ 377 : 11 01 00 | + | 649/ 367 : ; |
| - | 650/ 37A : 3E FF LD A, | + | 650/ 367 : |
| - | 651/ 37C : | + | 651/ 367 : D9 EXX |
| - | 652/ 37C : D3 F5 OUT (DIGITAP), | + | 652/ 368 : 21 A0 00 LD HL,160 |
| - | 653/ 37E : 41 | + | 653/ 36B : CD 74 03 CALL SOUN2K |
| - | 654/ 37F : 10 FE DJNZ $ | + | 654/ 36E : D9 EXX |
| - | 655/ 381 : EE 02 XOR 2 ; | + | 655/ 36F : C9 RET |
| - | 656/ 383 : ED 52 SBC HL,DE | + | 656/ 370 : |
| - | 657/ 385 : 20 F5 JR NZ, | + | 657/ 370 : ; |
| - | 658/ 387 : C9 | + | 658/ 370 : |
| - | 659/ 388 : | + | |
| - | 660/ 388 : ; | + | |
| - | 661/ 388 : | + | |
| - | 662/ 388 : | + | |
| - | 663/ 388 : | + | |
| - | 664/ 388 : CD 95 03 | + | 664/ 370 : |
| - | 665/ 38B : D8 | + | 665/ 370 : 0E 20 LD C,32 |
| - | 666/ 38C : AF | + | 666/ 372 : 18 02 JR SOUND |
| - | 667/ 38D : | + | 667/ 374 : |
| - | 668/ 38D : 86 | + | 668/ 374 : ; |
| - | 669/ 38E : ED A1 CPI ;NAECHSTE ADR | + | 669/ 374 : |
| - | 670/ 390 : EA 8D 03 | + | |
| - | 671/ 393 : B7 | + | |
| - | 672/ 394 : C9 | + | |
| - | 673/ 395 : | + | |
| - | 674/ 395 : ; | + | |
| - | 675/ 395 : | + | 675/ 374 : |
| - | 676/ 395 : | + | 676/ 374 : 0E 0F LD C,15 |
| - | 677/ 395 : | + | 677/ 376 : |
| - | 678/ 395 : | + | 678/ 376 : ; FUNKTION: Tonsignal für Lautsprecher |
| - | 679/ 395 : 21 ED 23 | + | |
| - | 680/ 398 : 5E | + | |
| - | 681/ 399 : 23 | + | |
| - | 682/ 39A : 56 | + | |
| - | 683/ 39B : 23 | + | |
| - | 684/ 39C : 4E | + | 684/ 376 : |
| - | 685/ 39D : 23 | + | 685/ 376 : 29 ADD HL,HL ; x 2 WEGEN H- UND L-TEIL DES TAKTES |
| - | 686/ 39E : 66 | + | 686/ 377 : 11 01 00 LD DE,0001H ;FUER ZAEHLUNG |
| - | 687/ 39F : 69 | + | 687/ 37A : 3E FF LD A,0FFH ; |
| - | 688/ 3A0 : B7 | + | 688/ 37C : |
| - | 689/ 3A1 : ED 52 SBC HL, DE | + | 689/ 37C : D3 F5 OUT (DIGITAP), |
| - | 690/ 3A3 : 4D | + | 690/ 37E : 41 LD B,C |
| - | 691/ 3A4 : 44 | + | 691/ 37F : 10 FE DJNZ $ ; |
| - | 692/ 3A5 : EB | + | 692/ 381 : EE 02 XOR 2 ; |
| - | 693/ 3A6 : C9 | + | 693/ 383 : ED 52 SBC HL,DE |
| - | 694/ 3A7 : | + | 694/ 385 : 20 F5 JR NZ,SQWAVE ;WDHLG., BIS ALLE TAKTE |
| - | 695/ 3A7 : ; | + | 695/ 387 : C9 RET |
| - | 696/ 3A7 : | + | 696/ 388 : |
| - | 697/ 3A7 : | + | 697/ 388 : ; |
| - | 698/ 3A7 : | + | 698/ 388 : ;EINTRITT: - |
| - | 699/ 3A7 : TAPEIN: | + | 699/ 388 : ;AUSTRITT: SUMME IN A |
| - | 700/ 3A7 : AF | + | 700/ 388 : |
| - | 701/ 3A8 : 08 | + | 701/ 388 : CD 95 03 CALL GETPTR |
| - | 702/ 3A9 : TLOOP: | + | 702/ 38B : D8 RET C ;RET., WENN FEHLER |
| - | 703/ 3A9 : CD B4 03 | + | 703/ 38C : AF XOR A |
| - | 704/ 3AC : 73 | + | 704/ 38D : |
| - | 705/ 3AD : ED A1 CPI ;NAECHSTE ADR | + | 705/ 38D : 86 ADD A,(HL) ; |
| - | 706/ 3AF : EA A9 03 | + | 706/ 38E : ED A1 CPI ;NAECHSTE ADR |
| - | 707/ 3B2 : 08 | + | 707/ 390 : EA 8D 03 JP PE,SUMCAL ;WDHLG., BIS ALLE BYTES |
| - | 708/ 3B3 : C9 | + | 708/ 393 : B7 OR A |
| - | 709/ 3B4 : | + | 709/ 394 : C9 RET |
| - | 710/ 3B4 : ; | + | 710/ 395 : |
| - | 711/ 3B4 : | + | 711/ 395 : ; |
| - | 712/ 3B4 : | + | 712/ 395 : ; |
| - | 713/ 3B4 : GTBYTE: | + | 713/ 395 : ;AUSTRITT: LAENGE IN BC |
| - | 714/ 3B4 : CD C5 03 | + | 714/ 395 : ; BEI FEHLER CY=1 |
| - | 715/ 3B7 : 16 08 LD D,08H | + | 715/ 395 : |
| - | 716/ 3B9 : GLOOP: | + | 716/ 395 : 21 ED 23 LD HL, |
| - | 717/ 3B9 : CD C5 03 | + | 717/ 398 : 5E LD E,(HL) ;STARTADR |
| - | 718/ 3BC : CB 1B RR E | + | 718/ 399 : 23 INC HL |
| - | 719/ 3BE : 15 | + | 719/ 39A : 56 LD D,(HL) |
| - | 720/ 3BF : 20 F8 JR NZ, | + | 720/ 39B : 23 INC HL |
| - | 721/ 3C1 : CD C5 03 | + | 721/ 39C : 4E LD C,(HL) ;ENDADR (C ZWI.SP. WEG. ADR IN HL) |
| - | 722/ 3C4 : C9 | + | 722/ 39D : 23 INC HL |
| - | 723/ 3C5 : | + | 723/ 39E : 66 LD H,(HL) |
| - | 724/ 3C5 : ; | + | 724/ 39F : 69 LD L,C |
| - | 725/ 3C5 : | + | 725/ 3A0 : B7 OR A ;CY LOESCHEN |
| - | 726/ 3C5 : | + | 726/ 3A1 : ED 52 SBC HL, DE ;ABSTAND |
| - | 727/ 3C5 : GETBIT: | + | 727/ 3A3 : 4D LD C,L ;NACH BC LADEN |
| - | 728/ 3C5 : D9 | + | 728/ 3A4 : 44 LD B,H |
| - | 729/ 3C6 : 21 00 00 | + | 729/ 3A5 : EB EX DE,HL |
| - | 730/ 3C9 : COUNT: | + | 730/ 3A6 : C9 RET |
| - | 731/ 3C9 : CD 00 08 CALL PERIOD | + | 731/ 3A7 : |
| - | 732/ 3CC : 14 | + | 732/ 3A7 : |
| - | 733/ 3CD : 15 | + | 733/ 3A7 : ;EINTRITT: ZIELANFANGSADR IN HL |
| - | 734/ 3CE : 20 11 JR NZ, | + | 734/ 3A7 : ; LAENGE IN BC |
| - | 735/ 3D0 : 38 06 JR C, | + | 735/ 3A7 : ; |
| - | 736/ 3D2 : | + | 736/ 3A7 : TAPEIN: |
| - | 737/ 3D2 : 2D | + | 737/ 3A7 : AF XOR A |
| - | 738/ 3D3 : 2D | + | 738/ 3A8 : 08 EX AF,AF' ;' |
| - | 739/ 3D4 : CB C4 SET 0,H ;H=1 | + | 739/ 3A9 : TLOOP: |
| - | 740/ 3D6 : 18 F1 JR COUNT | + | 740/ 3A9 : CD B4 03 CALL GTBYTE ;1 BYTE LESEN |
| - | 741/ 3D8 : | + | 741/ 3AC : 73 LD (HL),E ; |
| - | 742/ 3D8 : | + | 742/ 3AD : ED A1 CPI ;NAECHSTE ADR |
| - | 743/ 3D8 : 2C | + | 743/ 3AF : EA A9 03 JP PE,TLOOP ;WDHLG., BIS ALLE BYTE |
| - | 744/ 3D9 : CB 44 BIT 0,H | + | 744/ 3B2 : 08 EX AF,AF' ;' |
| - | 745/ 3DB : 28 EC JR Z, | + | 745/ 3B3 : C9 RET |
| - | 746/ 3DD : CB 15 RL L | + | 746/ 3B4 : |
| - | 747/ 3DF : D9 | + | 747/ 3B4 : |
| - | 748/ 3E0 : C9 | + | 748/ 3B4 : ; |
| - | 749/ 3E1 : | + | 749/ 3B4 : ;AUSTRITT: DATENBYTE IN E |
| - | 750/ 3E1 : | + | 750/ 3B4 : GTBYTE: |
| - | 751/ 3E1 : 08 | + | 751/ 3B4 : CD C5 03 CALL GETBIT ;STARTBIT |
| - | 752/ 3E2 : 37 | + | 752/ 3B7 : 16 08 LD D,08H ;8 BIT |
| - | 753/ 3E3 : 08 | + | 753/ 3B9 : GLOOP: |
| - | 754/ 3E4 : D9 | + | 754/ 3B9 : CD C5 03 CALL GETBIT ;DATENBIT LESEN |
| - | 755/ 3E5 : C9 | + | 755/ 3BC : CB 1B RR E ;IN E SCHIEBEN |
| - | 756/ 3E6 : | + | 756/ 3BE : 15 DEC D |
| - | 757/ 3E6 : ; | + | 757/ 3BF : 20 F8 JR NZ,GLOOP ;WDHLG., BIS 8 BIT |
| - | 758/ 400 : ORG 0400H | + | 758/ 3C1 : CD C5 03 CALL GETBIT ;STOPBIT |
| - | 759/ 400 : | + | 759/ 3C4 : C9 RET |
| - | 760/ 400 : =>TRUE IF ROM_=2 | + | 760/ 3C5 : |
| - | 761/ 400 : FF DEFB 0FFH | + | 761/ 3C5 : |
| - | 762/ 800 : ORG 0800H | + | 762/ 3C5 : ; |
| - | 763/ 800 : ENDIF | + | 763/ 3C5 : ;AUSTRITT: BIT IN CY |
| - | 764/ 800 : | + | 764/ 3C5 : |
| - | 765/ 800 : ; | + | 765/ 3C5 : D9 EXX |
| - | 766/ 800 : | + | 766/ 3C6 : 21 00 00 LD HL,0000 |
| - | 767/ 800 : | + | 767/ 3C9 : |
| - | 768/ 800 : | + | 768/ 3C9 : CD 00 04 CALL PERIOD ; |
| - | 769/ 800 : | + | 769/ 3CC : 14 INC D |
| - | 770/ 800 : 11 00 00 | + | 770/ 3CD : 15 DEC D ;Z-FLAG SETZEN/ |
| - | 771/ 803 : | + | 771/ 3CE : 20 11 JR NZ,TERR ;SPR., WENN ZU GROSS (FEHLER) |
| - | 772/ 803 : DB F5 IN A,(DIGITAP) ;EINLESEN | + | 772/ 3D0 : 38 06 JR C,SHORTP ;SPR., WENN 1 KHZ |
| - | 773/ 805 : 13 | + | 773/ 3D2 : ;FREQU. IST 2 KHZ |
| - | 774/ 806 : 1F RRA | + | 774/ 3D2 : 2D DEC L ;L=L-2 |
| - | 775/ 807 : 38 FA JR C, | + | 775/ 3D3 : 2D DEC L |
| - | 776/ 809 : 3E 00 LD A,0 | + | 776/ 3D4 : CB C4 SET 0,H ;H=1 |
| - | 777/ 80B : D3 F5 OUT (DIGITAP), | + | 777/ 3D6 : 18 F1 JR COUNT ;WDHLG. |
| - | 778/ 80D : | + | 778/ 3D8 : |
| - | 779/ 80D : DB F5 IN A,(DIGITAP) ;EINLESEN | + | 779/ 3D8 : ;FREQU. IST 1 KHZ |
| - | 780/ 80F : 13 | + | 780/ 3D8 : 2C INC L ;L=L+1 |
| - | 781/ 810 : 1F RRA | + | 781/ 3D9 : CB 44 BIT 0,H |
| - | 782/ 811 : 30 FA JR NC, | + | 782/ 3DB : 28 EC JR Z,COUNT ;SPR., WENN NOCH NICHT 2 KHZ EMPFANGEN |
| - | 783/ 813 : 3E 02 LD A,2 | + | 783/ 3DD : CB 15 RL L ;BIT IN CY |
| - | 784/ 815 : D3 F5 OUT (DIGITAP), | + | 784/ 3DF : D9 EXX |
| - | 785/ 817 : 7B | + | 785/ 3E0 : C9 RET |
| - | 786/ 818 : FE 16 CP 22 ;TEST | + | 786/ 3E1 : |
| - | 787/ 81A : C9 | + | 787/ 3E1 : ;FREQUENZ AUSSER ERLAUBTEM BEREICH |
| - | 788/ 81B : | + | 788/ 3E1 : 08 EX AF,AF' ;' |
| - | 789/ 81B : ; | + | 789/ 3E2 : 37 SCF |
| - | 790/ 81B : | + | 790/ 3E3 : 08 EX AF,AF' ;' |
| - | 791/ 81B : | + | 791/ 3E4 : D9 EXX |
| - | 792/ 81B : | + | 792/ 3E5 : C9 RET |
| - | 793/ 81B : | + | 793/ 3E6 : |
| - | 794/ 81B : 5E | + | 794/ 3E6 : ; |
| - | 795/ 81C : CD 25 08 CALL OUTBYTE | + | 795/ 400 : ORG 0400H |
| - | 796/ 81F : ED A1 CPI ;NAECHSTES BYTE | + | 796/ 400 : |
| - | 797/ 821 : EA 1B 08 JP PE, | + | 797/ 400 : =>FALSE IF ROM_=2 |
| - | 798/ 824 : C9 | + | 798/ 400 : DEFB 0FFH |
| - | 799/ 825 : | + | 799/ 400 : ORG 0800H |
| - | 800/ 825 : ; | + | 800/ 400 : [797] ENDIF |
| - | 801/ 825 : | + | 801/ 400 : |
| - | 802/ 825 : | + | 802/ 400 : ; |
| - | 803/ 825 : | + | 803/ 400 : ;EINTRITT: ---- |
| - | 804/ 825 : 16 08 LD D,08H | + | 804/ 400 : ;AUSTRITT: CY=O --> 1 KHZ |
| - | 805/ 827 : B7 | + | 805/ 400 : ; CY=1 --> 2 KHZ |
| - | 806/ 828 : CD 38 08 CALL OUTBIT | + | 806/ 400 : |
| - | 807/ 82B : | + | 807/ 400 : 11 00 00 LD DE,0000 ;ZAEHLER = 0 |
| - | 808/ 82B : CB 1B RR E | + | 808/ 403 : |
| - | 809/ 82D : CD 38 08 CALL OUTBIT | + | 809/ 403 : DB F5 IN A, |
| - | 810/ 830 : 15 | + | 810/ 405 : 13 INC DE ;ZAEHLER ERHOEHEN |
| - | 811/ 831 : 20 F8 JR NZ, | + | 811/ 406 : 1F RRA |
| - | 812/ 833 : 37 | + | 812/ 407 : 38 FA JR C,CHK0 ;WDHLG., WENN EINGANG H |
| - | 813/ 834 : CD 38 08 CALL OUTBIT | + | 813/ 409 : 3E 00 LD A,0 ;AZEIGE FREI, TAPE.OUT = L |
| - | 814/ 837 : C9 | + | 814/ 40B : D3 F5 OUT (DIGITAP), |
| - | 815/ 838 : | + | 815/ 40D : |
| - | 816/ 838 : ; | + | 816/ 40D : DB F5 IN A, |
| - | 817/ 838 : | + | 817/ 40F : 13 INC DE ;ZAEHLER ERHOEHEN |
| - | 818/ 838 : D9 | + | 818/ 410 : 1F RRA |
| - | 819/ 839 : 26 00 LD H,0 | + | 819/ 411 : 30 FA JR NC,CHK1 ;WDHLG., WENN EINGANG L |
| - | 820/ 83B : 38 09 JR C,OUT1 | + | 820/ 413 : 3E 02 LD A,2 ; ANZEIGE FREI, TAPE.OUT = H |
| - | 821/ 83D : | + | 821/ 415 : D3 F5 OUT (DIGITAP), |
| - | 822/ 83D : 2E 0C LD L,0CH | + | 822/ 417 : 7B LD A,E |
| - | 823/ 83F : CD 74 03 | + | 823/ 418 : FE 16 CP 22 ; |
| - | 824/ 842 : 2E 03 LD L,03H | + | 824/ 41A : C9 RET |
| - | 825/ 844 : 18 07 JR BITEND | + | 825/ 41B : |
| - | 826/ 846 : | + | 826/ 41B : ; |
| - | 827/ 846 : 2E 06 LD L,06H | + | 827/ 41B : ;EINTRITT: ANFANGSADR. IN HL |
| - | 828/ 848 : CD 74 03 | + | 828/ 41B : ; ANZAHL IN BC |
| - | 829/ 84B : 2E 06 LD L,06H | + | 829/ 41B : ; |
| - | 830/ 84D : | + | 830/ 41B : |
| - | 831/ 84D : CD 70 03 | + | 831/ 41B : 5E LD E,(HL) ;BYTE NACH E |
| - | 832/ 850 : D9 | + | 832/ 41C : CD 25 04 CALL OUTBYTE |
| - | 833/ 851 : C9 | + | 833/ 41F : ED A1 CPI ;NAECHSTES BYTE |
| - | 834/ 852 : ; | + | 834/ 421 : EA 1B 04 JP PE,TAPOUT ;WDHLG., WENN NOCH BYTES ZU SENDEN |
| - | 835/ 852 : ; | + | 835/ 424 : C9 RET |
| - | 836/ 852 : ; | + | 836/ 425 : |
| - | 837/ 852 : ; | + | 837/ 425 : ; |
| - | 838/ 852 : ; | + | 838/ 425 : ;EINTRITT: BYTE IN E |
| - | 839/ 852 : | + | 839/ 425 : ; |
| - | 840/ 852 : | + | 840/ 425 : |
| - | 841/ 852 : 7E | + | 841/ 425 : 16 08 LD D,08H ;8 BIT |
| - | 842/ 853 : 2F | + | 842/ 427 : B7 OR A |
| - | 843/ 854 : 77 | + | 843/ 428 : CD 38 04 CALL OUTBIT ;STARTBIT |
| - | 844/ 855 : 7E | + | 844/ 42B : |
| - | 845/ 856 : 2F | + | 845/ 42B : CB 1B RR E ;BIT IN CY |
| - | 846/ 857 : 77 | + | 846/ 42D : CD 38 04 CALL OUTBIT ;DATENBIT AUSGEBEN |
| - | 847/ 858 : BE | + | 847/ 430 : 15 DEC D |
| - | 848/ 859 : C9 | + | 848/ 431 : 20 F8 JR NZ,OLOOP ;WDHLG., BIS 8 BIT |
| - | 849/ 85A : | + | 849/ 433 : 37 SCF |
| - | 850/ 85A : ; | + | 850/ 434 : CD 38 04 CALL OUTBIT ;STOPBIT |
| - | 851/ 85A : | + | 851/ 437 : C9 RET |
| - | 852/ 85A : DD E5 PUSH IX ;ADR ANZ.TEXT RETTEN | + | 852/ 438 : |
| - | 853/ 85C : 21 FD 23 | + | 853/ 438 : ; |
| - | 854/ 85F : CB 7E BIT 7, | + | 854/ 438 : |
| - | 855/ 861 : 28 04 JR Z, | + | 855/ 438 : D9 EXX ;OUTPUT 1 BIT DATA |
| - | 856/ 863 : DD 21 A5 09 | + | 856/ 439 : 26 00 LD H,0 |
| - | 857/ 867 : | + | 857/ 43B : 38 09 JR C,OUT1 |
| - | 858/ 867 : 06 06 LD B,06H | + | 858/ 43D : |
| - | 859/ 869 : | + | 859/ 43D : 2E 0C LD L,0CH ;6ms 2K |
| - | 860/ 869 : CD 83 08 CALL DAK2 | + | 860/ 43F : CD 74 03 CALL SOUN2K |
| - | 861/ 86C : 30 F9 JR NC, | + | 861/ 442 : 2E 03 LD L,03H ;3ms 1k |
| - | 862/ 86E : 10 F9 DJNZ SCNX | + | 862/ 444 : 18 07 JR BITEND |
| - | 863/ 870 : CB BE RES 7, | + | 863/ 446 : |
| - | 864/ 872 : DD E1 POP IX | + | 864/ 446 : 2E 06 LD L,06H ;3ms 2K |
| - | 865/ 874 : | + | 865/ 448 : CD 74 03 CALL SOUN2K |
| - | 866/ 874 : CD 83 08 CALL DAK2 | + | 866/ 44B : 2E 06 LD L,06H ;6ms 1k |
| - | 867/ 877 : 38 FB JR C, | + | 867/ 44D : |
| - | 868/ 879 : 21 EF 09 LD HL, | + | 868/ 44D : CD 70 03 CALL SOUN1K |
| - | 869/ 87C : 85 | + | 869/ 450 : D9 EXX |
| - | 870/ 87D : 6F | + | 870/ 451 : C9 RET |
| - | 871/ 87E : 30 01 JR NC,SCNCY | + | 871/ 452 : ; |
| - | 872/ 880 : 24 | + | 872/ 452 : ; 2 x INVERTIERTES SCHREIBEN UND |
| - | 873/ 881 : | + | 873/ 452 : ; LESEN AUS/IN DEN DURCH HL ANGEG. |
| - | 874/ 881 : 7E | + | 874/ 452 : ; SPEICHERPLATZ UND VERGLEICHEN |
| - | 875/ 882 : C9 | + | 875/ 452 : ; AUSGABE: Z=1, WENN RAM |
| - | 876/ 883 : | + | 876/ 452 : |
| - | 877/ 883 : ; | + | 877/ 452 : ; FUNKTION: Test ob ein Speicherplatz im RAM liegt |
| - | 878/ 883 : | + | |
| - | 879/ 883 : 37 SCF | + | |
| - | 880/ 884 : 08 | + | |
| - | 881/ 885 : D9 | + | |
| - | 882/ 886 : 0E 00 LD C,0 | + | |
| - | 883/ 888 : 1E FB LD E,11111011B ;BITMUSTER FUER DIGITANSTEUERUNG | + | 883/ 452 : 7E LD A,(HL) |
| - | 884/ 88A : | + | 884/ 453 : 2F CPL |
| - | 885/ 88A : DD 7E 00 | + | 885/ 454 : 77 LD (HL),A |
| - | 886/ 88D : 2F | + | 886/ 455 : 7E LD A,(HL) |
| - | 887/ 88E : D3 F4 OUT (SEGMENT), | + | 887/ 456 : 2F CPL |
| - | 888/ 890 : 7B | + | 888/ 457 : 77 LD (HL),A |
| - | 889/ 891 : D3 F5 OUT (DIGITAP), | + | 889/ 458 : BE CP (HL) |
| - | 890/ 893 : 06 64 LD B,100 | + | 890/ 459 : C9 RET |
| - | 891/ 895 : 10 FE DJNZ $ | + | 891/ 45A : |
| - | 892/ 897 : 06 04 LD B,04H | + | 892/ 45A : ; |
| - | 893/ 899 : DB F9 IN A, | + | 893/ 45A : ; wie DAK2, aber: |
| - | 894/ 89B : 57 | + | |
| - | 895/ 89C : | + | |
| - | 896/ 89C : CB 12 RL D | + | |
| - | 897/ 89E : 38 02 JR C,NOKEY | + | |
| - | 898/ 8A0 : 79 | + | |
| - | 899/ 8A1 : 08 | + | |
| - | 900/ 8A2 : ;WENN TASTE: -> CY=0, A = NUMMER | + | |
| - | 901/ 8A2 : | + | |
| - | 902/ 8A2 : 0C | + | |
| - | 903/ 8A3 : 10 F7 DJNZ KROW ;WDHLG., WENN NOCH NICHT ALLE ZEILEN | + | |
| - | 904/ 8A5 : DD 23 INC IX | + | |
| - | 905/ 8A7 : CB 03 RLC E | + | |
| - | 906/ 8A9 : 3E FF LD A,0FFH | + | |
| - | 907/ 8AB : D3 F5 OUT (DIGITAP), | + | |
| - | 908/ 8AD : 38 DB JR C, | + | |
| - | 909/ 8AF : 11 FA FF | + | |
| - | 910/ 8B2 : DD 19 ADD IX,DE ; | + | |
| - | 911/ 8B4 : D9 | + | |
| - | 912/ 8B5 : 08 | + | |
| - | 913/ 8B6 : C9 | + | |
| - | 914/ 8B7 : | + | 914/ 45A : DD E5 PUSH IX ;ADR ANZ.TEXT RETTEN |
| - | 915/ 8B7 : ; | + | 915/ 45C : 21 FD 23 LD HL, |
| - | 916/ 8B7 : ADRSDP: | + | 916/ 45F : CB 7E BIT 7,(HL) ;FEHLERFLAG TESTEN |
| - | 917/ 8B7 : 21 F4 23 | + | 917/ 461 : 28 04 JR Z,SCPRE ;SPR., WENN KEIN FEHLER |
| - | 918/ 8BA : 7B | + | 918/ 463 : DD 21 A5 05 LD IX,ERR ;ADR FEHLERTEXT |
| - | 919/ 8BB : CD D9 08 CALL TWOSEG | + | 919/ 467 : |
| - | 920/ 8BE : 7A | + | 920/ 467 : 06 06 LD B,06H |
| - | 921/ 8BF : CD D9 08 CALL TWOSEG | + | 921/ 469 : |
| - | 922/ 8C2 : C9 | + | 922/ 469 : CD 83 04 CALL DAK2 |
| - | 923/ 8C3 : | + | 923/ 46C : 30 F9 JR NC,SCPRE ;WDHLG., WENN TASTE NOCH GEDR. |
| - | 924/ 8C3 : ; | + | 924/ 46E : 10 F9 DJNZ SCNX |
| - | 925/ 8C3 : DADP: | + | 925/ 470 : CB BE RES 7,(HL) ;FEHLERLAG LOESCHEN |
| - | 926/ 8C3 : 21 F2 23 | + | 926/ 472 : DD E1 POP IX ;ALTER TEXT |
| - | 927/ 8C6 : CD D9 08 CALL TWOSEG | + | 927/ 474 : |
| - | 928/ 8C9 : C9 | + | 928/ 474 : CD 83 04 CALL DAK2 |
| - | 929/ 8CA : | + | 929/ 477 : 38 FB JR C,SCLOOP ;WDHLG., WENN KEINE TASTE GEDR. |
| - | 930/ 8CA : ; | + | 930/ 479 : 21 EF 05 LD HL,KEYTAB ;TASTE NACH TABELLE UMCODIEREN |
| - | 931/ 8CA : ONESEG: | + | 931/ 47C : 85 ADD A,L |
| - | 932/ 8CA : E5 PUSH HL | + | 932/ 47D : 6F LD L,A |
| - | 933/ 8CB : D5 | + | 933/ 47E : 30 01 JR NC,SCNCY |
| - | 934/ 8CC : 21 07 0A LD HL, | + | 934/ 480 : 24 INC H |
| - | 935/ 8CF : E6 0F AND 0FH ;OBERES HALBBYTE AUSBLENDEN | + | 935/ 481 : |
| - | 936/ 8D1 : 5F | + | 936/ 481 : 7E LD A,(HL) ; |
| - | 937/ 8D2 : 16 00 LD D,0 | + | 937/ 482 : C9 RET |
| - | 938/ 8D4 : 19 | + | 938/ 483 : |
| - | 939/ 8D5 : D1 | + | 939/ 483 : ; |
| - | 940/ 8D6 : 7E | + | 940/ 483 : ; Einmalige Ansteuerung von Anzeige und Tastatur, alle 6 LED-Anzeigen werden |
| - | 941/ 8D7 : E1 | + | |
| - | 942/ 8D8 : C9 | + | |
| - | 943/ 8D9 : | + | |
| - | 944/ 8D9 : ; | + | |
| - | 945/ 8D9 : TWOSEG: | + | |
| - | 946/ 8D9 : F5 | + | |
| - | 947/ 8DA : CD CA 08 CALL ONESEG | + | |
| - | 948/ 8DD : 77 | + | |
| - | 949/ 8DE : 23 | + | |
| - | 950/ 8DF : F1 | + | |
| - | 951/ 8E0 : 0F | + | |
| - | 952/ 8E1 : 0F | + | |
| - | 953/ 8E2 : 0F | + | |
| - | 954/ 8E3 : 0F | + | |
| - | 955/ 8E4 : CD CA 08 CALL ONESEG | + | |
| - | 956/ 8E7 : 77 | + | |
| - | 957/ 8E8 : 23 | + | |
| - | 958/ 8E9 : C9 | + | |
| - | 959/ 8EA : | + | |
| - | 960/ 8EA : ; | + | 960/ 483 : ; | ST | 1 | 5 | 9 | D | DAT | --> B6 |
| - | 961/ 8EA : MONMUS: | + | |
| - | 962/ 8EA : FD 21 17 0A | + | |
| - | 963/ 8EE : MUSIC: | + | |
| - | 964/ 8EE : FD E5 PUSH IY | + | |
| - | 965/ 8F0 : DD E1 POP IX | + | |
| - | 966/ 8F2 : | + | |
| - | 967/ 8F2 : DD 7E 00 | + | |
| - | 968/ 8F5 : 87 | + | |
| - | 969/ 8F6 : D8 | + | |
| - | 970/ 8F7 : FA EE 08 JP M, | + | |
| - | 971/ 8FA : 0E 00 LD C,0 | + | |
| - | 972/ 8FC : CB 77 BIT 6,A | + | 972/ 484 : 08 EX AF, |
| - | 973/ 8FE : 20 02 JR NZ, | + | 973/ 485 : D9 EXX |
| - | 974/ 900 : CB C9 SET 1,C ; | + | 974/ 486 : 0E 00 LD C,0 ; |
| - | 975/ 902 : | + | 975/ 488 : 1E FB LD E, |
| - | 976/ 902 : E6 3F AND 3FH | + | 976/ 48A : |
| - | 977/ 904 : 21 34 09 LD HL,FRQTAB | + | |
| - | 978/ 907 : 5F | + | 978/ 48A : DD 7E 00 LD A,(IX) ;SEGMENTE ANSTEUERN |
| - | 979/ 908 : 16 00 LD D,0 | + | 979/ 48D : 2F CPL |
| - | 980/ 90A : 19 | + | 980/ 48E : D3 F4 OUT (SEGMENT), |
| - | 981/ 90B : 5E | + | 981/ 490 : 7B LD A,E ;DIGIT ANSTEUERN |
| - | 982/ 90C : 23 | + | 982/ 491 : D3 F5 OUT (DIGITAP), |
| - | 983/ 90D : 56 | + | 983/ 493 : 06 64 LD B,100 ; |
| - | 984/ 90E : DD 23 INC IX | + | 984/ 495 : 10 FE DJNZ $ |
| - | 985/ 910 : DD 66 00 | + | 985/ 497 : 06 04 LD B,04H ;ZEILENZAHL TASTENMATRIX |
| - | 986/ 913 : 3E FF LD A,0FFH | + | 986/ 499 : DB F9 IN A,(KEYIN) ;TASTENWERT EINLESEN |
| - | 987/ 915 : | + | 987/ 49B : 57 LD D,A ;TEST, OB TASTE GEDRUECKT |
| - | 988/ 915 : 6A LD L,D | + | 988/ 49C : |
| - | 989/ 916 : | + | 989/ 49C : CB 12 RL D ;Bit7 -> Cy, restl. Bit rücken nach |
| - | 990/ 916 : D3 F5 OUT (DIGITAP), | + | 990/ 49E : 38 02 JR C,NOKEY ;wenn Taste nicht gedrückt |
| - | 991/ 918 : 43 | + | 991/ 4A0 : 79 LD A,C ;wenn Taste gedrückt, ist C der Tastencode |
| - | 992/ 919 : | + | 992/ 4A1 : 08 EX AF, |
| - | 993/ 919 : 00 | + | 993/ 4A2 : ;WENN TASTE: -> CY=0, A = NUMMER |
| - | 994/ 91A : 10 FD DJNZ DELAY | + | 994/ 4A2 : |
| - | 995/ 91C : A9 | + | 995/ 4A2 : 0C INC C ; |
| - | 996/ 91D : 2D | + | 996/ 4A3 : 10 F7 DJNZ KROW ;WDHLG., WENN NOCH NICHT ALLE ZEILEN |
| - | 997/ 91E : 20 F6 JR NZ,TONOUT | + | 997/ 4A5 : DD 23 INC IX ;NAECHSTES ZEICHEN ZUR ANZEIGE |
| - | 998/ 920 : 25 | + | 998/ 4A7 : CB 03 RLC E ;nächste Spalte low |
| - | 999/ 921 : 20 F2 JR NZ,TONE | + | 999/ 4A9 : 3E FF LD A,0FFH |
| - | | + | 1000/ 4AB : D3 F5 OUT (DIGITAP), |
| - | | + | 1001/ 4AD : 38 DB JR C,KCOL ;GGF. NAECHSTE SPALTE |
| - | | + | 1002/ 4AF : 11 FA FF LD DE,0FFFAH ; -6 |
| - | | + | 1003/ 4B2 : DD 19 ADD IX,DE ; |
| - | | + | 1004/ 4B4 : D9 EXX |
| - | | + | 1005/ 4B5 : 08 EX AF, |
| - | | + | 1006/ 4B6 : C9 RET |
| - | | + | 1007/ 4B7 : |
| - | | + | 1008/ 4B7 : ; |
| - | | + | |
| - | | + | 1010/ 4B7 : ; (Adressen 23F4 - 23F7H) |
| - | | + | 1011/ |
| - | | + | |
| - | | + | 1013/ 4B7 : ; REGISTER: Die Inhalte der Register AF und HL werden zerstört. |
| - | | + | 1014/ 4B7 : |
| - | | + | 1015/ 4B7 : |
| - | | + | 1016/ 4B7 : 21 F4 23 LD HL,ADRLED |
| - | | + | 1017/ 4BA : 7B LD A,E ;UNTERE 2 ZIFFERN |
| - | | + | 1018/ 4BB : CD D9 04 CALL TWOSEG |
| - | | + | 1019/ 4BE : 7A LD A,D ;OBERE 2 ZIFFERN |
| - | | + | 1020/ 4BF : CD D9 04 CALL TWOSEG |
| - | | + | 1021/ 4C2 : C9 RET |
| - | | + | 1022/ 4C3 : |
| - | | + | 1023/ 4C3 : ; |
| - | | + | |
| - | | + | 1025/ 4C3 : ; (Adressen 23F2 - 23F3H) |
| - | | + | 1026/ |
| - | | + | |
| - | | + | 1028/ 4C3 : ; REGISTER: Die Inhalte der Register AF und HL werden zerstört. |
| - | | + | 1029/ 4C3 : |
| - | | + | 1030/ |
| - | | + | 1031/ 4C6 : CD D9 04 CALL TWOSEG |
| - | | + | 1032/ 4C9 : C9 RET |
| - | | + | 1033/ 4CA : |
| - | | + | 1034/ 4CA : ; |
| - | | + | |
| - | | + | 1036/ 4CA : ; EINTRITT: Die rechten 4 Bit des A-Registers sind die umzuwandelnde Hex-Zahl. |
| - | | + | |
| - | | + | 1038/ 4CA : ; REGISTER: Der Inhalt in AF wird zerstört |
| - | | + | 1039/ 4CA : |
| - | | + | 1040/ 4CA : |
| - | | + | 1041/ 4CA : E5 PUSH HL |
| - | | + | 1042/ 4CB : D5 PUSH DE |
| - | | + | 1043/ 4CC : 21 07 06 LD HL,SEGTAB ;ADR DER SEGMENTTABELLE |
| - | | + | 1044/ 4CF : E6 0F AND 0FH ;OBERES HALBBYTE AUSBLENDEN |
| - | | + | 1045/ 4D1 : 5F LD E,A |
| - | | + | 1046/ 4D2 : 16 00 LD D,0 |
| - | | + | 1047/ 4D4 : 19 ADD HL,DE |
| - | | + | 1048/ 4D5 : D1 POP DE |
| - | | + | 1049/ 4D6 : 7E LD A,(HL) ; |
| - | | + | 1050/ 4D7 : E1 POP HL |
| - | | + | 1051/ 4D8 : C9 RET |
| - | | + | 1052/ 4D9 : |
| - | | + | 1053/ 4D9 : ; |
| - | | + | |
| - | | + | 1055/ 4D9 : ; EINTRITT: Untere Tetrade von A als 1.Ziffer Obere Tetrade von A als 2.Ziffer |
| - | | + | |
| - | | + | 1057/ 4D9 : ; HL wird um 2 erhöht. |
| - | | + | 1058/ 4D9 : ; REGISTER: Die Inhalte der Register |
| - | | + | |
| - | | + | 1060/ 4D9 : |
| - | | + | 1061/ 4D9 : F5 PUSH AF |
| - | | + | 1062/ |
| - | | + | 1063/ 4DD : 77 LD (HL),A ; |
| - | | + | 1064/ 4DE : 23 INC HL ;ADR FUER HINTERLEGUNG OBERE ZAHL |
| - | | + | 1065/ 4DF : F1 POP AF ; |
| - | | + | 1066/ 4E0 : 0F RRCA |
| - | | + | 1067/ 4E1 : 0F RRCA |
| - | | + | 1068/ 4E2 : 0F RRCA |
| - | | + | 1069/ 4E3 : 0F RRCA ;OBERES HALBBYTE |
| - | | + | 1070/ 4E4 : CD CA 04 CALL ONESEG ;OBERE ZIFFER UMWANDELN |
| - | | + | 1071/ 4E7 : 77 LD (HL),A ; |
| - | | + | 1072/ 4E8 : 23 INC HL ;ADR GGF. NAECHSTE ZIFFER |
| - | | + | 1073/ 4E9 : C9 RET |
| - | | + | 1074/ 4EA : |
| - | | + | 1075/ 4EA : ; |
| - | | + | |
| - | | + | 1077/ 4EA : ; FUNKTION: Spielen der Anfangsmusik |
| - | | + | |
| - | | + | 1079/ 4EA : ; AUSTRITT: --- |
| - | | + | 1080/ 4EA : ; REGISTER: Die Inhalte der Register IX, IY, AF, DC, DE, HL werden zerstört. |
| - | | + | 1081/ 4EA : |
| - | | + | 1082/ 4EA : |
| - | | + | 1083/ 4EA : FD 21 17 06 LD IY,SONG ;ADR DER NOTEN |
| - | | + | |
| - | | + | 1085/ 4EE : ; FUNKTION: Spielen von Musik |
| - | | + | |
| - | | + | 1087/ 4EE : ; AUSTRITT: --- |
| - | | + | 1088/ 4EE : ; REGISTER: Die Inhalte der Register IX, AF, BC, DE, HL werden zerstört. |
| - | | + | 1089/ 4EE : |
| - | | + | 1090/ 4EE : ; Jeweils 2 Byte repräsentieren eine Note. |
| - | | + | 1091/ 4EE : ; Das erste Byte gibt die Tonhöhe, das zweite Byte die Tonlänge an. |
| - | | + | 1092/ 4EE : ; Hat das erste Byte den Wert 80H, wird das Musikprogramm |
| - | | + | 1093/ 4EE : ; verlassen, bei 40H wird das Programm von vorn begonnen, bei 20H |
| - | | + | 1094/ 4EE : ; wird eine Pause mit der durch das zweite Byte angegebenen Länge |
| - | | + | 1095/ 4EE : ; gemacht. |
| - | | + | 1096/ 4EE : ; Als Werte für die Tonhöhe sind die Zahlen 0H bis 1FH erlaubt. |
| - | | + | 1097/ 4EE : ; Bezogen auf eine Taktfrequenz von 900 kHz entsprechen |
| - | | + | 1098/ 4EE : ; aufeinanderfolgende Zahlen jeweils einen Halbtonschritt, |
| - | | + | 1099/ 4EE : ; tiefste Ton (00H) etwa dem Ton cis entspricht. |
| - | | + | 1100/ 4EE : ; Die Tonlänge ist frei wählbar. |
| - | | + | 1101/ 4EE : |
| - | | + | 1102/ 4EE : |
| - | | + | 1103/ 4EE : FD E5 PUSH IY |
| - | | + | 1104/ 4F0 : DD E1 POP IX |
| - | | + | 1105/ 4F2 : |
| - | | + | 1106/ 4F2 : DD 7E 00 LD A,(IX) ; |
| - | | + | 1107/ 4F5 : 87 ADD A,A |
| - | | + | 1108/ 4F6 : D8 RET C ;WENN WERT >= 80H Ende |
| - | | + | 1109/ 4F7 : FA EE 04 JP M,MUSIC ;WENN WERT >= 40H wiederholen |
| - | | + | 1110/ 4FA : 0E 00 LD C,0 ; |
| - | | + | 1111/ 4FC : CB 77 BIT 6,A |
| - | | + | 1112/ 4FE : 20 02 JR NZ,PLAY ;WENN WERT >= 20H Pause |
| - | | + | 1113/ 500 : CB C9 SET 1,C ; |
| - | | + | 1114/ 502 : |
| - | | + | 1115/ 502 : E6 3F AND 3FH ; A ist schon tonhöhe*2 |
| - | | + | 1116/ 504 : 21 34 05 LD HL,FRQTAB ; Frequenztabelle |
| - | | + | 1117/ 507 : 5F LD E,A ; Tonhöhe |
| - | | + | 1118/ 508 : 16 00 LD D,0 |
| - | | + | 1119/ 50A : 19 ADD HL,DE ; + 2x Tonhöhe |
| - | | + | 1120/ 50B : 5E LD E,(HL) ; erster Frequenzwert |
| - | | + | 1121/ 50C : 23 INC HL |
| - | | + | 1122/ 50D : 56 LD D,(HL) ; zweiter Freq.wert |
| - | | + | 1123/ 50E : DD 23 INC IX ; |
| - | | + | 1124/ 510 : DD 66 00 LD H,(IX) ;merken |
| - | | + | 1125/ 513 : 3E FF LD A,0FFH |
| - | | + | 1126/ 515 : |
| - | | + | 1127/ 515 : 6A LD L,D ; zweiter Freq.wert |
| - | | + | 1128/ 516 : |
| - | | + | 1129/ 516 : D3 F5 OUT (DIGITAP), |
| - | | + | 1130/ 518 : 43 LD B,E ; erster Freq.wert |
| - | | + | 1131/ 519 : |
| - | | + | 1132/ 519 : 00 NOP |
| - | | + | 1133/ 51A : 10 FD DJNZ DELAY |
| - | | + | 1134/ 51C : A9 XOR C ; Toggle Bit f. PIO |
| - | | + | |
| - | | + | 1136/ 51D : 2D DEC L |
| - | | + | 1137/ 51E : 20 F6 JR NZ,TONOUT ; weiter in Schleife |
| - | | + | 1138/ 520 : 25 DEC H ; Tonlänge |
| - | | + | 1139/ 521 : 20 F2 JR NZ,TONE ; weiter in Tonausgabe |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1155/ 534 : ; erster ton laut Handbuch Ais |
| - | | + | 1156/ 534 : ; Töne nachgerechnet, |
| - | | + | 1157/ 534 : ; (laut Zielosko beginnt die Tabelle mit Cis. Das ist falsch! ) |
| - | | + | 1158/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1219/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1224/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1229/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1234/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1262/ 5AB : ; Aufbau: 2 Byte Adresse, dann Tabelle mit Byte-Offsets |
| - | | + | 1263/ 5AB : ; je nach idx wird Adr+Byte-Offs berechnet und dann diese Routine angesprungen |
| - | | + | 1264/ 5AB : ; das spart vermutlich ein paar Byte gegenüber einer direkten Case-Anweisung |
| - | | + | 1265/ 5AB : ; aber: die zu rufenden Routinen müssen innerhalb von 255 Byte nach der Basis-Routine liegen |
| - | | + | 1266/ 5AB : |
| - | | + | 1267/ 5AB : ; Funktionsgruppe 1 " |
| - | | + | 1268/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1280/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1292/ 5BF : ; 1-ADRS, 2-DATS, 6-TO TAPE, 7-FROM TAPE |
| - | | + | 1293/ 5BF : |
| - | | + | 1294/ 5BF : ; nach Zifferntaste (nach KHEX) |
| - | | + | 1295/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1309/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1323/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1337/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1378/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1398/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1469/ 690 : ; zur Nutzung muss in 2340H JP START2 |
| - | | + | 1470/ |
| - | | + | |
| - | | + | 1472/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1483/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1533/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1539/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1550/ |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | |
| - | | + | 1561/ |
| - | | + | |
| - | | + | |
| - | | + | |
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1574/ | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1624/ 790 : | ||
| + | 1625/ 790 : | ||
| + | 1626/ 790 : ; Stepfunktion | ||
| + | 1627/ 790 : ; zur Nutzung muss in 2340H JP STEPUP | ||
| + | 1628/ | ||
| + | | ||
| + | 1630/ | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1639/ | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1646/ | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1658/ 7C2 : ; INTROUT wird direkt danach aufgerufen | ||
| + | 1659/ | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1669/ | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1724/ 22EA : Db 2 dup (?) ; DE | ||
| + | 1725/ 22EC : | ||
| + | 1726/ 22EE : Db 2 dup (?) ; AF' | ||
| + | | ||
| + | 1728/ 22F2 : Db 2 dup (?) ; DE' | ||
| + | 1729/ 22F4 : Db 2 dup (?) ; HL' | ||
| + | 1730/ 22F6 : Db 2 dup (?) ; IX | ||
| + | 1731/ 22F8 : Db 2 dup (?) ; IY | ||
| + | 1732/ 22FA : | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1736/ 2300 : | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1741/ 2306 : ; RST1: | ||
| + | 1742/ 2306 : ; RST2: | ||
| + | 1743/ 2306 : ; RST3: | ||
| + | 1744/ 2306 : ; RST4: | ||
| + | 1745/ 2306 : ; RST5: | ||
| + | 1746/ 2306 : ; RST6: | ||
| + | 1747/ 2306 : ; RST7: | ||
| + | 1748/ 2306 : ; RST8: | ||
| + | 1749/ 2306 : ; NMI: | ||
| + | 1750/ 2306 : | ||
| + | 1751/ 23EA : ORG 23EAH | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1763/ 23FB : | ||
| + | | ||
| + | 1765/ 23FC : ; 1-ADRS, 2-DATS, 6-TO TAPE, 7-FROM TAPE | ||
| + | | ||
| + | | ||
| + | | ||
| + | 1769/ 23FE : | ||
| + | | ||
| + | | ||
| + | | ||
| </ | </ | ||
| </ | </ | ||