HCX Hardwaresteuerteil HARDWARE BLATT 1 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 1 *HE HCX Hardwaresteuerteil 386E 2 ORG 386EH 3 *I HCX.EQU.S 4 ;HCX Portadressen und andere Hardwareeigenschaften 5 ; 6 ; 7 ; 8 PIOAD EQU 94H 9 PIOAS EQU 95H 10 PIOBD EQU 96H 11 PIOBS EQU 97H 12 CTC_K0 EQU 98H 13 CTC_K1 EQU 99H 14 CTC_K2 EQU 9AH 15 CTC_K3 EQU 9BH 16 P_FB EQU 0FBH ;DRUCKERPORT 17 ; 18 ; 19 ; 20 HCX EQU 1 ;HCX Programm Version, ZX muss =0 sein 21 ZX EQU 0 ;ZX Spectrum Orginal ROM, HCX muss =0 sein 22 ZXTAS EQU 0 ;ZX Tastatur, aber dann muss ZX=0 sein 23 COND ZX=0 24 global L_39B2 25 global L_386E 26 global L_38A0 27 global L_38E5 28 global L_38F2 29 global SPEED 30 global ZXT 31 external L_ERR 32 external L_005F 33 external D_5CB0 34 external D_5C78 35 external D_5C48 36 external L_11CC 37 external L_02BF 38 L_386E 386E F3 39 INIT DI ;Systeminitialisierung 386F 3EFF 40 LD A,0FFH 3871 D395 41 OUT (PIOAS),A 3873 D395 42 OUT (PIOAS),A 3875 D397 43 OUT (PIOBS),A ;PIO Port B Bitbetrieb alles 3877 D397 44 OUT (PIOBS),A ;Eingaenge 3879 3E0E 45 LD A,0EH 387B D394 46 OUT (PIOAD),A 387D 3ECF 47 LD A,0CFH 387F D395 48 OUT (PIOAS),A 3881 3E00 49 LD A,0 ;Pio Port A Bitbetrieb alles 3883 D395 50 OUT (PIOAS),A ;Ausgaenge 3885 3E07 51 LD A,7 3887 D398 52 OUT (CTC_K0),A 3889 3E0B 53 LD A,0BH ;64 mikro Sekunden Zeitgeber 388B D398 54 OUT (CTC_K0),A 388D 3E3F 55 LD A, 3FH 388F D399 56 OUT (CTC_K1),A 3891 3EDC 57 LD A,0DCH ;20 ms Zeitgeber 3893 D399 58 OUT (CTC_K1),A HCX Hardwaresteuerteil HARDWARE BLATT 2 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 3895 3E3F 59 LD A,3FH 3897 D39A 60 OUT (CTC_K2),A ;Kanal 2 vorbereiten fuer NMI Erzeugung 3899 AF 61 XOR A ;Kennzeichen es war RESET 389A 11FFFF 62 LD DE,0FFFFH ;max. Speicherende 389D C30000 X 63 JP L_11CC ;Sprung zur Softwareinitialisierung 64 L_38A0 65 ; 66 ; 67 ;*********************************************************** 68 ;Tastatursteuerung Hardwareteil 69 ;in Reg. D wird eine Information ueber Shiftfunktionen mitgeteilt 70 ;in Reg. E wird ein Code der einer gedrueckten Taste entspricht 71 ;mitgeteilt 72 COND (HCX=1)&(ZXTAS=0) 73 TAST 38A0 263B 74 LD H,CODTAB.SHR.8 75 TASTZ 38A2 DB94 76 IN A,(PIOAD) 38A4 47 77 LD B,A 38A5 C5 78 PUSH BC ;PIO Port A Belegung merken 38A6 0E96 79 LD C,PIOBD 38A8 11FFFF 80 LD DE,-1 38AB E60F 81 AND 0FH 38AD F660 82 OR 60H 38AF 6F 83 LD L,A 84 TAST2: 38B0 D394 85 OUT (PIOAD),A ;Globalabfrage 38B2 ED40 86 IN B,(C) 38B4 04 87 INC B 38B5 200B 88 JR NZ,TAST1 89 TAST5: 38B7 C610 90 ADD A,10H 38B9 BD 91 CP L 38BA 20F4 92 JR NZ,TAST2 ;alle Spalten abgefragt?? 38BC C1 93 TAST6: POP BC ;Port A wieder herstellen 38BD 78 94 LD A,B 38BE D394 95 OUT (PIOAD),A 38C0 AF 96 XOR A 38C1 C9 97 RET 98 TAST1: 38C2 BD 99 CP L ;Ueberpruefung auf Shiftfunktion 38C3 2014 100 JR NZ,TASFOR 38C5 05 101 DEC B 38C6 CB78 102 BIT 7,B 38C8 200B 103 JR NZ,TAST4 38CA 1E27 104 LD E,27H 38CC CB70 105 BIT 6,B 38CE 20E7 106 JR NZ,TAST5 38D0 53 107 LD D,E 38D1 1E18 108 LD E,18H 38D3 18E7 109 JR TAST6 110 TAST4: 38D5 1E18 111 LD E,18H 38D7 18DE 112 JR TAST5 113 TASFOR 38D9 E6F0 114 AND 0F0H 38DB 05 115 DEC B 38DC 0F 116 RRCA HCX Hardwaresteuerteil HARDWARE BLATT 3 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 38DD 3D 117 DEC A 118 TA3: 38DE 3C 119 INC A 38DF CB18 120 RR B 38E1 38FB 121 JR C,TA3 38E3 2EC3 122 LD L,CODTAB.AND.0FFH 38E5 4F 123 LD C,A 38E6 0600 124 LD B,0 125 ;Code aus der Tabelle holen 38E8 09 126 ADD HL,BC 38E9 53 127 LD D,E 38EA 5E 128 LD E,(HL) 38EB 18CF 129 JR TAST6 130 ENDC 131 COND (HCX=0)&(ZXTAS=1) 132 LD L,2FH 133 LD DE,-1 134 LD BC,0FEFEH 135 NEXTREI: 136 IN A,(C) 137 CPL 138 AND 1FH 139 JR Z,NOKEY 140 LD H,A 141 LD A,L 142 TEST3 143 INC D 144 RET NZ 145 KEINTA 146 SUB 8 147 SRL H 148 JR NC,KEINTA 149 LD D,E 150 LD E,A 151 JR NZ,TEST3 152 NOKEY 153 DEC L 154 RLC B 155 JR C,NEXTREI 156 LD A,D 157 INC A, 158 RET Z 159 CP 28H 160 RET Z 161 CP 19H 162 RET Z 163 LD A,E 164 LD E,D 165 LD D,A 166 CP 18H 167 RET 168 ENDC 169 ; 170 ;************************************************************* 171 ;NMI Routine zum Bildaufbau 172 ; 173 NMI: 174 L_38E5 HCX Hardwaresteuerteil HARDWARE BLATT 4 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 38ED F5 175 PUSH AF 38EE DB94 176 IN A,(PIOAD) ;PIO Port A merken 38F0 F5 177 PUSH AF 178 COND (HCX=1)&(ZXTAS=0) 38F1 3EAE 179 LD A,0AEH ;Test auf Hardbreak 38F3 D394 180 OUT (PIOAD),A 38F5 DB96 181 IN A,(PIOBD) 38F7 FEFE 182 CP 0FEH ;Break Taste gedrueckt?? 38F9 200B 183 JR NZ,NMI1 38FB 3E6E 184 LD A,06EH 38FD D394 185 OUT (PIOAD),A 38FF DB96 186 IN A,(PIOBD) 3901 FE7F 187 CP 7FH ;Caps Shift gedrueckt?? 3903 CA203A 188 JP Z,HARDBREAK 189 ENDC 190 COND (ZXTAS=1)&(HCX=0) 191 LD A,0BFH 192 IN A,(0FEH) 193 RRA 194 JR C,NMI1 195 LD A,0FEH 196 IN A,(0FEH) 197 RRA 198 JP NC,HARDBREAK 199 ENDC 200 NMI1: 3906 ED5F 201 LD A,R ;Test auf FAST Mode??? 3908 CB7F 202 BIT 7,A 390A C2E539 203 JP NZ,FASTM 390D C5 204 PUSH BC 390E D5 205 PUSH DE 390F E5 206 PUSH HL 3910 DDE5 207 PUSH IX 3912 DD2A0000 X 208 LD IX,(D_5CB0) 3916 ED730000 X 209 LD (D_5CB0),SP 391A 21C33B 210 LD HL,BILDAD ;Adresse der Bildtabelle merken 391D 1E00 211 LD E,0 ;Speicherkonfiguration anmerken 212 BILD: 213 L_38F2 391F 3EB8 214 LD A,0B8H ;CTC Interruptvektor laden 3921 D398 215 OUT (CTC_K0),A 3923 3E87 216 LD A,087H 3925 D39A 217 OUT (CTC_K2),A ;CTC K2 Steuerwort fuer Zeilenmessung 3927 3E0B 218 LD A,0BH 3929 D394 219 OUT (PIOAD),A ;Bildaufbau erlauben und NMI verbieten 392B ED57 220 LD A,I ;IFF Stand merken 392D EA3439 221 JP PE,BSS0 ;in Bit 0 des Reg.E 3930 CB83 222 RES 0,E ; 3932 1802 223 JR BSS1 3934 CBC3 224 BSS0 SET 0,E 3936 ED46 225 BSS1 IM 0 3938 3E81 226 LD A,81H ;CTC K0 EI 393A D398 227 OUT (CTC_K0),A 393C 47 228 LD B,A 393D 3C 229 INC A 393E FB 230 EI 393F 76 231 HALT ;auf Zeienimpuls warten 232 ;********************************************************************* HCX Hardwaresteuerteil HARDWARE BLATT 5 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 233 ;jetzt erfolgt die softwaremaessige Synchronisation des Zeilenimpulses 234 ;mit dem Programm 235 ; 3940 00 236 NOP 3941 0E98 237 LD C,CTC_K0 3943 ED78 238 IN A,(C) 3945 C8 239 RET Z 3946 ED40 240 IN B,(C) 3948 C8 241 RET Z 3949 ED50 242 IN D,(C) 394B C8 243 RET Z 394C ED48 244 IN C,(C) 394E FE09 245 CP 9 3950 3E01 246 LD A,1 3952 D398 247 OUT (CTC_K0),A 3954 2820 248 JR Z,FALL1 3956 78 249 LD A,B 3957 FE08 250 CP 8 3959 2823 251 JR Z,FALL2 395B 7A 252 LD A,D 395C FE07 253 CP 7 395E 2824 254 JR Z,FALL3 3960 ED5F 255 LD A,R 3962 ED5F 256 LD A,R 3964 F5 257 FALL4 PUSH AF 3965 ED56 258 IM 1 3967 016D39 259 LD BC,BSS02 396A C5 260 PUSH BC 396B ED4D 261 RETI 396D ED5F 262 BSS02 LD A,R 396F F1 263 POP AF 3970 F9 264 LD SP,HL 3971 3AC33B 265 LD A,(BILDAD) 3974 1810 266 JR NULL 3976 DD8600 267 FALL1 ADD A,(IX) 3979 03 268 INC BC 397A ED5F 269 LD A,R 397C 18E6 270 JR FALL4 397E ED5F 271 FALL2 LD A,R 3980 00 272 NOP 3981 00 273 NOP 3982 18E0 274 JR FALL4 3984 18DE 275 FALL3 JR FALL4 276 ;*************************************************************** 3986 3E03 277 NULL LD A,3 ;CTC K2 aktivieren fuer den Bild- 3988 D39A 278 OUT (CTC_K2),A ;aufbau 398A 3E85 279 LD A,85H 398C D39A 280 OUT (CTC_K2),A 398E 3E0B 281 LD A,0BH 3990 D39A 282 OUT (CTC_K2),A 3992 00 283 NOP 3993 3C 284 INC A 3994 FB 285 EI 3995 E9 286 JP (HL) ;Sprung zur ersten Bildwieder- 287 ; holspeicheradresse 288 ; in diesem Befehl loest CTC K2 289 ; Interrupt aus!!!!! 290 ; HCX Hardwaresteuerteil HARDWARE BLATT 6 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 291 ;**************************************************************** 292 ;Programm zur Beendigung der NMI Routine 293 BILRET: 3996 F3 294 DI 3997 3E0A 295 LD A,0AH 3999 D394 296 OUT (PIOAD),A ;Bildaufbau verbieten 399B 3E3F 297 LD A,3FH 399D D39A 298 OUT (CTC_K2),A ;CTC K 2 auf oberen Bildrand stellen 399F CB4B 299 BIT 1,E ;Speicherkonfiguration vor NMI aus- 39A1 C20000 X 300 JP NZ,L_005F ;werten um die alte Speicherkonfigu- 301 ;ration wieder herstellen zu koennen 302 BIL1: 39A4 ED7B0000 X 303 LD SP,(D_5CB0) ;SP auf alten Wert stellen 39A8 320000 X 304 LD (D_5CB0),A 39AB CB43 305 BIT 0,E 39AD 2815 306 JR Z,BSS4 ;bei DI keine Tastaturabfrage und 39AF AF 307 XOR A ;Zeitzaehlererhoehung 39B0 320000 X 308 LD (D_5CB0),A 39B3 2A0000 X 309 LD HL,(D_5C78) ;FRAMES alle 50ms erhoehen 39B6 23 310 INC HL 39B7 220000 X 311 LD (D_5C78),HL 39BA 7C 312 LD A,H 39BB B5 313 OR L 39BC 2003 314 JR NZ,BSS5 39BE FD3440 315 INC (IY+40H) 316 BSS5: 39C1 CD0000 X 317 CALL L_02BF ;Tastaturabfrage 318 BSS4: 39C4 3E31 319 LD A,31H ;Zeitkonstante oberer Bildrand 39C6 D39A 320 OUT (CTC_K2),A 39C8 3A0000 X 321 LD A,(D_5CB0) ;in A Stand des IFF merken 39CB DD220000 X 322 LD (D_5CB0),IX 39CF DDE1 323 POP IX 39D1 E1 324 POP HL 39D2 D1 325 POP DE 39D3 C1 326 POP BC 39D4 FE00 327 CP 0 39D6 2007 328 JR NZ,BSS6 39D8 F1 329 POP AF 39D9 D394 330 OUT (PIOAD),A 39DB F1 331 POP AF 39DC FB 332 EI 39DD ED45 333 RETN 334 BSS6: 39DF F1 335 POP AF 39E0 D394 336 OUT (PIOAD),A 39E2 F1 337 POP AF 39E3 ED45 338 RETN 339 ; 340 ; 341 FASTM: ;Fastmode ohne Bildaufbau 39E5 3E3F 342 LD A,03FH ;zurueck 39E7 D39A 343 OUT (CTC_K2),A ;CTC K2 neu einstellen um die 39E9 3E30 344 LD A,30H ;Synchronisation zu erhalten 39EB D39A 345 OUT (CTC_K2),A 39ED F1 346 POP AF 39EE D394 347 OUT (PIOAD),A 39F0 F1 348 POP AF HCX Hardwaresteuerteil HARDWARE BLATT 7 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 39F1 ED45 349 RETN 350 ; 351 BREAKT: ;Test auf eine gedrueckte Break 352 L_39B2 ;Taste 353 COND (HCX=1)&(ZXTAS=0) 39F3 DB94 354 IN A,(PIOAD) 39F5 F5 355 PUSH AF 39F6 E60F 356 AND 0FH 39F8 F6A0 357 OR 0A0H 39FA D394 358 OUT (PIOAD),A 39FC DB96 359 IN A,(PIOBD) 39FE 3C 360 INC A 39FF 280E 361 JR Z,BREAK1 3A01 ED5F 362 LD A,R 3A03 E67F 363 AND 07FH ;Slowmode einstellen 3A05 ED4F 364 LD R,A 3A07 F1 365 POP AF 3A08 3EAE 366 LD A,0AEh ;NMI Tor frei 3A0A D394 367 OUT (PIOAD),A 3A0C FB 368 EI 3A0D A7 369 AND A ;Break gedrueckt 3A0E C9 370 RET 371 BREAK1: 3A0F F1 372 POP AF ;Break nicht gedrueckt 3A10 D394 373 OUT (PIOAD),A 3A12 37 374 SCF 3A13 C9 375 RET 376 ENDC 377 378 COND (HCX=0)&(ZXTAS=1) 379 LD A,7FH 380 IN A,(0FEH) 381 RRA 382 RET C 383 LD A,0FEH 384 IN A,(0FEH) 385 RRA 386 RET C 387 LD A,R 388 AND 07FH 389 LD R,A 390 LD A,0AEH 391 OUT (PIOAD),A 392 EI 393 AND A 394 RET 395 ENDC 396 ; 397 ; 398 ; 399 SPEED: ;Umschaltung zwischen Fast- und 3A14 FEFF 400 CP -1 ;Slowmode 3A16 C24422 401 JP NZ,2244H 3A19 ED5F 402 LD A,R 3A1B EE80 403 XOR 80H 3A1D ED4F 404 LD R,A 3A1F C9 405 RET 406 ; HCX Hardwaresteuerteil HARDWARE BLATT 8 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 407 ; 408 HARDBREAK: ;Unterbrechungsmoeglichkeit 3A20 F3 409 DI ;fuer alle Programme, wenn 3A21 F1 410 POP AF ;Break und Caps Shift gedrueckt 3A22 D394 411 OUT (PIOAD),A ;ist 3A24 212B3A 412 LD HL,SOFT1 3A27 F1 413 POP AF 3A28 E3 414 EX (SP),HL 3A29 ED45 415 RETN 416 SOFT1: 3A2B 2AB25C 417 LD HL,(5CB2H) 3A2E 2B 418 DEC HL 3A2F F9 419 LD SP,HL ;SP restaurieren 3A30 2B 420 DEC HL 3A31 2B 421 DEC HL 3A32 223D5C 422 LD (5C3DH),HL 3A35 ED5F 423 LD A,R ;in den Slowmode gehen 3A37 E67F 424 AND 7FH 3A39 ED4F 425 LD R,A 3A3B FB 426 EI 3A3C C30313 427 JP 1303H ;Routine des OS um in den Interpreter 428 ; einzutreten 429 ; 430 ;TABELLE DES BILDAUFBAUS 431 ; 432 ; 3A3F 9639 433 DEFW BILRET 628 *L ON 629 BILDAD: 630 ; 631 ;Codetabelle Tastatur 632 *I CODTAB.S 633 634 ;CODTABELLE TASTATUR 635 CODTAB: 3BC3 14 636 DEFB 14H 3BC4 15 637 DEFB 15H 3BC5 16 638 DEFB 16H 3BC6 0F 639 DEFB 0FH 3BC7 0C 640 DEFB 0CH 3BC8 0D 641 DEFB 0DH 3BC9 0E 642 DEFB 0EH 3BCA 07 643 DEFB 07H 3BCB 04 644 DEFB 04H 3BCC 05 645 DEFB 05H 3BCD 06 646 DEFB 06H 3BCE 00 647 DEFB 00H 3BCF 03 648 DEFB 03H 3BD0 1F 649 DEFB 1FH 3BD1 01 650 DEFB 01H 3BD2 08 651 DEFB 08H 3BD3 0B 652 DEFB 0BH 3BD4 0A 653 DEFB 0AH 3BD5 09 654 DEFB 09H 3BD6 10 655 DEFB 10H 3BD7 13 656 DEFB 13H 3BD8 12 657 DEFB 12H 3BD9 11 658 DEFB 11H HCX Hardwaresteuerteil HARDWARE BLATT 9 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 3BDA 20 659 DEFB 20H 3BDB 1B 660 DEFB 1BH 3BDC 1A 661 DEFB 1AH 3BDD 19 662 DEFB 19H 3BDE 20 663 DEFB 20H 3BDF 23 664 DEFB 23H 3BE0 22 665 DEFB 22H 3BE1 1A 666 DEFB 1AH 3BE2 20 667 DEFB 20H 3BE3 20 668 DEFB 20H 3BE4 2020 669 DEFW 2020H 3BE6 2120 670 DEFW 2021H 3BE8 2020 671 DEFW 2020H 3BEA 2020 672 DEFW 2020H 3BEC 2120 673 DEFW 2021H 3BEE 2020 674 DEFW 2020H 3BF0 2020 675 DEFW 2020H 3BF2 2020 676 DEFW 2020H 3BF4 27 677 DEFB 27H 3BF5 18 678 DEFB 18H 3BF6 2020 679 DEFW 2020H 3BF8 2018 680 DEFW 1820H 3BFA 2720 681 DEFW 2027H 3BFC 2020 682 DEFW 2020H 3BFE 2020 683 DEFW 2020H 3C00 2020 684 DEFW 2020H 3C02 2020 685 DEFW 2020H 3C04 2020 686 DEFW 2020H 3C06 2020 687 DEFW 2020H 3C08 2020 688 DEFW 2020H 3C0A 2020 689 DEFW 2020H 3C0C 2020 690 DEFW 2020H 3C0E 2020 691 DEFW 2020H 3C10 2020 692 DEFW 2020H 3C12 2020 693 DEFW 2020H 3C14 2020 694 DEFW 2020H 3C16 2020 695 DEFW 2020H 3C18 2020 696 DEFW 2020H 3C1A 20 697 DEFB 20H 3C1B 24 698 DEFB 24H 3C1C 25 699 DEFB 25H 3C1D 26 700 DEFB 26H 3C1E 02 701 DEFB 02H 3C1F 1C 702 DEFB 1CH 3C20 1D 703 DEFB 1DH 3C21 1E 704 DEFB 1EH 3C22 17 705 DEFB 17H 706 *I ZXTAS.S 3C24 707 org 3c24h 708 ZXT 3C24 D5 709 push de 3C25 E5 710 push hl 3C26 210400 711 ld hl,4 3C29 39 712 add hl,sp 3C2A 5E 713 ld e,(hl) 3C2B 23 714 inc hl 3C2C 56 715 ld d,(hl) 3C2D 13 716 inc de HCX Hardwaresteuerteil HARDWARE BLATT 10 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 3C2E 72 717 ld (hl),d 3C2F 2B 718 dec hl 3C30 73 719 ld (hl),e 3C31 C5 720 push bc 3C32 F5 721 push af 3C33 1B 722 dec de 3C34 1A 723 ld a,(de) 3C35 0E01 724 ld c,1 3C37 FEFE 725 cp 0feh 3C39 2837 726 jr z,inn 3C3B FE78 727 cp 78h 3C3D 2836 728 jr z,inr 3C3F 0C 729 inc c 3C40 FE48 730 cp 48h 3C42 2831 731 jr z,inr 3C44 0C 732 inc c 3C45 FE40 733 cp 40h 3C47 282C 734 jr z,inr 3C49 0C 735 inc c 3C4A FE68 736 cp 68h 3C4C 2827 737 jr z,inr 3C4E 0C 738 inc c 3C4F FE60 739 cp 60h 3C51 2822 740 jr z,inr 3C53 0C 741 inc c 3C54 FE58 742 cp 58h 3C56 281D 743 jr z,inr 3C58 0C 744 inc c 3C59 FE50 745 cp 50h 3C5B 2818 746 jr z,inr 3C5D FE5E 747 cp 5eh 3C5F 2864 748 jr z,imm2 3C61 FE56 749 cp 56h 3C63 2867 750 jr z,imm1 3C65 F1 751 pop af 3C66 C1 752 pop bc 3C67 E1 753 pop hl 3C68 D1 754 pop de 3C69 E1 755 pop hl 3C6A 2B 756 dec hl 3C6B E5 757 push hl 3C6C 2A5D5C 758 ld hl,(05c5dh) 3C6F C30000 X 759 jp L_ERR 760 ; 761 ; 762 ; 763 inn: 3C72 F1 764 pop af 3C73 F5 765 push af 3C74 47 766 ld b,a 767 inr: 3C75 C5 768 push bc 3C76 DB94 769 in a,(PIOAD) 3C78 F5 770 push af 3C79 3EFF 771 ld a,-1 772 t1: 3C7B 3C 773 inc a 3C7C CB08 774 rrc b HCX Hardwaresteuerteil HARDWARE BLATT 11 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 3C7E 38FB 775 jr c,t1 3C80 47 776 ld b,a 3C81 17 777 rla 3C82 17 778 rla 3C83 80 779 add a,b 3C84 21D33C 780 ld hl,tabzx 3C87 0600 781 ld b,0 3C89 4F 782 ld c,a 3C8A 09 783 add hl,bc 3C8B 3EFF 784 ld a,-1 3C8D 1E01 785 ld e,1 786 m2: 3C8F F5 787 push af 3C90 7E 788 ld a,(hl) 3C91 4F 789 ld c,a 3C92 E60F 790 and 0fh 3C94 47 791 ld b,a 3C95 3E7F 792 ld a,7fh 3C97 00 793 nop 794 m1: 3C98 07 795 rlca 3C99 05 796 dec b 3C9A 20FC 797 jr nz,m1 3C9C 57 798 ld d,a 3C9D 79 799 ld a,c 3C9E E6F0 800 and 0f0h 3CA0 F60E 801 or 0eh 3CA2 D394 802 out (PIOAD),a 3CA4 DB96 803 in a,(PIOBD) 3CA6 BA 804 cp d 3CA7 2818 805 jr z,m3 3CA9 F1 806 pop af 3CAA 23 807 m21: inc hl 3CAB CB03 808 rlc e 3CAD CB6B 809 bit 5,e 3CAF 28DE 810 jr z,m2 3CB1 47 811 ld b,a 3CB2 F1 812 pop af 3CB3 D394 813 out (PIOAD),a 3CB5 78 814 ld a,b 3CB6 C1 815 pop bc 3CB7 69 816 ld l,c 3CB8 2600 817 ld h,0 3CBA 39 818 add hl,sp 3CBB 77 819 ld (hl),a 3CBC F1 820 m33: pop af 3CBD C1 821 pop bc 3CBE E1 822 pop hl 3CBF D1 823 pop de 3CC0 C9 824 ret 825 m3: 3CC1 F1 826 pop af 3CC2 AB 827 xor e 3CC3 18E5 828 jr m21 829 imm2: 3CC5 21C13B 830 ld hl,BILDAD-2 3CC8 3602 831 ld (hl),2 3CCA 18F0 832 jr m33 HCX Hardwaresteuerteil HARDWARE BLATT 12 LOC OBJ CODE M ZEILE QUELLE COPYRIGHT INSTITUT FUER REGELUNGSTECHNIK 833 imm1: 3CCC 21C13B 834 ld hl,BILDAD-2 3CCF 3601 835 ld (hl),1 3CD1 18E9 836 jr m33 837 tabzx: 3CD3 68 838 defb 68h 3CD4 16 839 defb 16h 3CD5 B8 840 defb 0b8h 3CD6 04 841 defb 04 3CD7 08 842 defb 08 3CD8 B3 843 defb 0b3h 3CD9 B7 844 defb 0b7h 3CDA 03 845 defb 3 3CDB 07 846 defb 7 3CDC 13 847 defb 13h 3CDD B2 848 defb 0b2h 3CDE B6 849 defb 0b6h 3CDF 02 850 defb 2 3CE0 06 851 defb 6 3CE1 12 852 defb 12h 3CE2 B1 853 defb 0b1h 3CE3 B5 854 defb 0b5h 3CE4 01 855 defb 1 3CE5 05 856 defb 5 3CE6 11 857 defb 11h 3CE7 35 858 defb 35h 3CE8 31 859 defb 31h 3CE9 25 860 defb 25h 3CEA 21 861 defb 21h 3CEB 15 862 defb 15h 3CEC 36 863 defb 36h 3CED 32 864 defb 32h 3CEE 26 865 defb 26h 3CEF 22 866 defb 22h 3CF0 B4 867 defb 0b4h 3CF1 52 868 defb 52h 3CF2 33 869 defb 33h 3CF3 27 870 defb 27h 3CF4 23 871 defb 23h 3CF5 17 872 defb 17h 3CF6 55 873 defb 55h 3CF7 67 874 defb 67h 3CF8 24 875 defb 24h 3CF9 18 876 defb 18h 3CFA 14 877 defb 14h 878 ; 879 ENDC