ERWEITERUNG.SRC
FILE INFORMATION
FILENAME(S): ERWEITERUNG.SRC
FILE TYPE(S): PRG
FILE SIZE: 7.1K
FIRST SEEN: 2025-11-30 01:12:41
APPEARS ON: 1 disk(s)
FILE HASH
0d4053f5fa93ab0efcaeb691f012d419146920e94b55cbf52d7076ba7ef6981a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER SONDERH 67 | ERWEITERUNG.SRC | PRG | C64er, DuncanTwain | 17 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 64 00 3B 45 52 57 45 49 54 45 8A 47 |....d.;ERWEITE.G|
00000010: 2E 53 52 43 00 1A 08 6E 00 3B 00 26 08 78 00 AC |.SRC...n.;.&.x..|
00000020: B2 34 39 31 35 32 00 2E 08 82 00 26 B2 AC 00 34 |.49152.....&...4|
00000030: 08 8C 00 3B 00 55 08 96 00 5A 50 31 B2 24 46 42 |...;.U...ZP1.$FB|
00000040: 20 20 20 20 20 20 3B 50 4F B5 45 52 20 5A 45 52 | ;PO.ER ZER|
00000050: 4F 50 41 47 45 00 76 08 A0 00 5A 50 32 B2 24 46 |OPAGE.v...ZP2.$F|
00000060: 44 20 20 20 20 20 20 3B 56 91 20 32 35 32 20 42 |D ;V. 252 B|
00000070: 49 53 20 32 35 35 00 7C 08 AA 00 3B 00 8E 08 B4 |IS 255.|...;....|
00000080: 00 42 53 43 48 20 20 20 B2 24 30 34 30 30 00 A6 |.BSCH .$0400..|
00000090: 08 BE 00 42 55 46 46 45 52 20 B2 24 43 34 30 30 |...BUFFER .$C400|
000000A0: 3B 20 42 49 4C 44 00 CB 08 C8 00 43 48 52 4F 55 |; BILD.....CHROU|
000000B0: 54 20 B2 24 46 46 44 32 3B 20 41 55 53 47 41 42 |T .$FFD2; AUSGAB|
000000C0: 45 20 31 20 5A 45 49 43 48 45 4E 00 D1 08 D2 00 |E 1 ZEICHEN.....|
000000D0: 3B 00 EE 08 DC 00 50 41 B2 35 36 35 37 36 20 20 |;.....PA.56576 |
000000E0: 20 20 20 3B 20 55 53 45 52 50 B0 54 20 41 00 0B | ; USERP.T A..|
000000F0: 09 E6 00 50 42 B2 35 36 35 37 37 20 20 20 20 20 |...PB.56577 |
00000100: 3B 20 55 53 45 52 50 B0 54 20 42 00 30 09 F0 00 |; USERP.T B.0...|
00000110: 44 31 B2 35 36 35 37 38 20 20 20 20 20 3B 20 44 |D1.56578 ; D|
00000120: 41 54 45 4E 52 49 43 48 54 2E 20 50 B0 54 20 41 |ATENRICHT. P.T A|
00000130: 00 55 09 FA 00 44 32 B2 35 36 35 37 39 20 20 20 |.U...D2.56579 |
00000140: 20 20 3B 20 44 41 54 45 4E 52 49 43 48 54 2E 20 | ; DATENRICHT. |
00000150: 50 B0 54 20 42 00 5B 09 04 01 3B 00 79 09 0E 01 |P.T B.[...;.y...|
00000160: 44 41 50 31 B2 38 33 30 20 20 20 20 20 3B 20 38 |DAP1.830 ; 8|
00000170: 32 35 35 20 50 B0 54 20 41 00 97 09 18 01 44 41 |255 P.T A.....DA|
00000180: 50 32 B2 38 33 31 20 20 20 20 20 3B 20 38 32 35 |P2.831 ; 825|
00000190: 35 20 50 B0 54 20 42 00 B5 09 22 01 44 41 50 33 |5 P.T B...".DAP3|
000001A0: B2 38 33 32 20 20 20 20 20 3B 20 38 32 35 35 20 |.832 ; 8255 |
000001B0: 50 B0 54 20 43 00 BB 09 2C 01 3B 00 C1 09 36 01 |P.T C...,.;...6.|
000001C0: 3B 00 E1 09 40 01 4A 4D 50 20 44 45 4D 4F 20 20 |;...@.JMP DEMO |
000001D0: 20 20 20 3B 20 54 45 53 54 50 52 4F 47 52 41 4D | ; TESTPROGRAM|
000001E0: 4D 00 06 0A 4A 01 4A 4D 50 20 52 45 53 45 A4 55 |M...J.JMP RESE.U|
000001F0: 54 20 3B 20 52 45 53 45 54 20 46 55 45 52 20 41 |T ; RESET FUER A|
00000200: 55 53 47 41 42 45 00 2B 0A 54 01 4A 4D 50 20 41 |USGABE.+.T.JMP A|
00000210: 55 53 47 41 42 45 20 20 3B 20 41 55 53 47 41 42 |USGABE ; AUSGAB|
00000220: 45 20 44 41 50 31 AB 44 41 50 33 00 51 0A 5E 01 |E DAP1.DAP3.Q.^.|
00000230: 4A 4D 50 20 52 45 53 45 54 49 4E 20 20 3B 20 52 |JMP RESETIN ; R|
00000240: 45 53 45 54 20 46 55 45 52 20 45 49 4E 47 41 42 |ESET FUER EINGAB|
00000250: 45 00 76 0A 68 01 4A 4D 50 20 45 49 4E 47 41 42 |E.v.h.JMP EINGAB|
00000260: 45 20 20 3B 20 38 32 35 35 20 49 4E 20 44 41 50 |E ; 8255 IN DAP|
00000270: 31 AB 44 41 50 33 00 98 0A 72 01 4A 4D 50 20 46 |1.DAP3...r.JMP F|
00000280: 41 52 42 45 20 20 20 20 3B 20 41 55 53 47 41 42 |ARBE ; AUSGAB|
00000290: 45 20 4D 55 53 54 45 52 00 BC 0A 7C 01 4A 4D 50 |E MUSTER...|.JMP|
000002A0: 20 42 53 43 48 93 20 3B 20 42 49 4C 44 53 43 48 | BSCH. ; BILDSCH|
000002B0: 49 52 4D 20 41 55 46 42 41 55 45 4E 00 C2 0A 86 |IRM AUFBAUEN....|
000002C0: 01 3B 00 E5 0A 90 01 52 45 53 45 54 20 20 20 20 |.;.....RESET |
000002D0: 20 20 20 20 20 3B 52 45 53 45 54 20 41 4C 4C 47 | ;RESET ALLG|
000002E0: 45 4D 45 49 4E 00 07 0B 9A 01 53 45 49 20 20 20 |EMEIN.....SEI |
000002F0: 20 20 20 20 20 20 20 20 3B 49 52 51 20 56 45 52 | ;IRQ VER|
00000300: 48 49 4E 44 45 52 4E 00 2C 0B A4 01 4C 44 41 20 |HINDERN.,...LDA |
00000310: 44 31 20 20 20 20 20 20 20 20 3B 50 B0 54 41 2C |D1 ;P.TA,|
00000320: 20 50 41 32 B2 41 55 53 47 41 42 45 00 36 0B AE | PA2.AUSGABE.6..|
00000330: 01 B0 41 20 23 34 00 41 0B B8 01 53 54 41 20 44 |..A #4.A...STA D|
00000340: 31 00 47 0B C2 01 3B 00 67 0B CC 01 4C 44 41 20 |1.G...;.g...LDA |
00000350: 23 32 35 35 20 20 20 20 20 20 3B 50 B0 54 42 B2 |#255 ;P.TB.|
00000360: 41 55 53 47 41 42 45 00 72 0B D6 01 53 54 41 20 |AUSGABE.r...STA |
00000370: 44 32 00 78 0B E0 01 3B 00 83 0B EA 01 4C 44 41 |D2.x...;.....LDA|
00000380: 20 50 41 00 A2 0B F4 01 50 48 41 20 20 20 20 20 | PA.....PHA |
00000390: 20 20 20 20 20 20 3B 50 B0 54 41 20 4D 45 52 4B | ;P.TA MERK|
000003A0: 45 4E 00 B4 0B FE 01 B0 41 20 23 25 30 30 30 30 |EN......A #%0000|
000003B0: 30 31 30 30 00 D2 0B 08 02 53 54 41 20 50 41 20 |0100.....STA PA |
000003C0: 20 20 20 20 20 20 20 3B 57 41 45 48 4C 54 34 30 | ;WAEHLT40|
000003D0: 34 32 00 F3 0B 12 02 4C 44 41 20 23 25 30 30 30 |42.....LDA #%000|
000003E0: 30 31 31 31 30 3B 82 20 83 20 46 55 45 52 20 38 |01110;. . FUER 8|
000003F0: 32 35 35 00 17 0C 1C 02 53 54 41 20 50 42 20 20 |255.....STA PB |
00000400: 20 20 20 20 20 20 3B 49 53 54 20 53 54 45 55 45 | ;IST STEUE|
00000410: 52 42 45 46 45 48 4C 00 22 0C 26 02 4C 44 41 20 |RBEFEHL.".&.LDA |
00000420: 50 41 00 33 0C 30 02 AF 20 23 25 31 31 31 31 31 |PA.3.0.. #%11111|
00000430: 30 31 31 00 52 0C 3A 02 53 54 41 20 50 41 20 20 |011.R.:.STA PA |
00000440: 20 20 20 20 20 20 3B 57 41 45 48 4C 54 20 38 32 | ;WAEHLT 82|
00000450: 35 35 00 58 0C 44 02 3B 00 5E 0C 4E 02 3B 00 83 |55.X.D.;.^.N.;..|
00000460: 0C 58 02 4C 44 41 20 42 54 52 20 20 20 20 20 20 |.X.LDA BTR |
00000470: 20 3B 53 54 45 55 45 52 42 45 46 45 48 4C 20 46 | ;STEUERBEFEHL F|
00000480: 55 45 52 00 9D 0C 62 02 B0 41 20 23 25 31 30 30 |UER...b..A #%100|
00000490: 30 30 30 30 30 3B 20 20 20 38 32 35 35 00 A8 0C |00000; 8255...|
000004A0: 6C 02 53 54 41 20 50 42 00 AE 0C 76 02 3B 00 CE |l.STA PB...v.;..|
000004B0: 0C 80 02 4C 44 41 20 23 30 20 20 20 20 20 20 20 |...LDA #0 |
000004C0: 20 3B 50 B0 54 42 B2 45 49 4E 47 41 42 45 00 D9 | ;P.TB.EINGABE..|
000004D0: 0C 8A 02 53 54 41 20 44 32 00 F1 0C 94 02 50 4C |...STA D2.....PL|
000004E0: 41 20 20 20 20 20 20 20 20 20 20 20 3B 50 B0 54 |A ;P.T|
000004F0: 41 00 0F 0D 9E 02 53 54 41 20 50 41 20 20 20 20 |A.....STA PA |
00000500: 20 20 20 20 3B 41 4C 54 45 52 20 57 45 52 54 00 | ;ALTER WERT.|
00000510: 17 0D A8 02 43 4C 49 00 1F 0D B2 02 52 54 53 00 |....CLI.....RTS.|
00000520: 25 0D BC 02 3B 00 31 0D C6 02 46 4C 41 47 2E 20 |%...;.1...FLAG. |
00000530: 30 00 51 0D D0 02 42 54 52 20 2E 25 30 30 30 30 |0.Q...BTR .%0000|
00000540: 30 30 30 30 3B 53 54 45 55 45 52 42 45 46 45 48 |0000;STEUERBEFEH|
00000550: 4C 00 71 0D DA 02 BC 49 4B 4F 20 20 20 20 20 20 |L.q....IKO |
00000560: 20 20 3B 41 55 53 47 41 42 45 42 45 46 45 48 4C | ;AUSGABEBEFEHL|
00000570: 45 00 94 0D E4 02 2E 25 30 30 30 30 30 30 31 30 |E......%00000010|
00000580: 2C 25 30 30 30 30 30 31 31 30 2C 25 30 30 30 30 |,%00000110,%0000|
00000590: 31 30 31 30 00 9A 0D EE 02 3B 00 B5 0D F8 02 4F |1010.....;.....O|
000005A0: 55 54 20 20 20 20 20 20 20 20 20 20 20 3B 41 55 |UT ;AU|
000005B0: 53 47 41 42 45 00 BD 0D 02 03 53 45 49 00 C3 0D |SGABE.....SEI...|
000005C0: 0C 03 3B 00 E1 0D 16 03 4C 44 58 20 23 30 20 20 |..;.....LDX #0 |
000005D0: 20 20 20 20 20 20 3B 53 43 48 4C 45 8B 45 20 B2 | ;SCHLE.E .|
000005E0: 30 00 03 0E 20 03 4C 44 41 20 23 32 35 35 20 20 |0... .LDA #255 |
000005F0: 20 20 20 20 3B 50 B0 54 42 20 B2 20 41 55 53 47 | ;P.TB . AUSG|
00000600: 41 42 45 00 0E 0E 2A 03 53 54 41 20 44 32 00 19 |ABE...*.STA D2..|
00000610: 0E 34 03 4C 44 41 20 50 41 00 39 0E 3E 03 50 48 |.4.LDA PA.9.>.PH|
00000620: 41 20 20 20 20 20 20 20 20 20 20 20 3B 50 B0 54 |A ;P.T|
00000630: 20 41 20 4D 45 52 4B 45 4E 00 5B 0E 48 03 4C 4F | A MERKEN.[.H.LO|
00000640: 55 54 31 20 20 20 20 20 20 20 20 20 3B 42 45 47 |UT1 ;BEG|
00000650: 49 4E 4E 20 53 43 48 4C 45 8B 45 00 66 0E 52 03 |INN SCHLE.E.f.R.|
00000660: 4C 44 41 20 50 41 00 78 0E 5C 03 B0 41 20 23 25 |LDA PA.x.\..A #%|
00000670: 30 30 30 30 30 31 30 30 00 97 0E 66 03 53 54 41 |00000100...f.STA|
00000680: 20 50 41 20 20 20 20 20 20 20 20 3B 57 41 45 48 | PA ;WAEH|
00000690: 4C 54 20 34 30 34 32 00 BA 0E 70 03 4C 44 41 20 |LT 4042...p.LDA |
000006A0: BC 49 4B 4F 2C 58 20 20 3B 44 41 54 45 4E 20 BF |.IKO,X ;DATEN .|
000006B0: 44 20 41 55 53 47 41 42 45 4E 00 D8 0E 7A 03 53 |D AUSGABEN...z.S|
000006C0: 54 41 20 50 42 20 20 20 20 20 20 20 20 3B 20 46 |TA PB ; F|
000006D0: 55 45 52 20 38 32 35 35 00 E3 0E 84 03 4C 44 41 |UER 8255.....LDA|
000006E0: 20 50 41 00 F4 0E 8E 03 AF 20 23 25 31 31 31 31 | PA...... #%1111|
000006F0: 31 30 31 31 00 13 0F 98 03 53 54 41 20 50 41 20 |1011.....STA PA |
00000700: 20 20 20 20 20 20 20 3B 57 41 45 48 4C 54 20 38 | ;WAEHLT 8|
00000710: 32 35 35 00 34 0F A2 03 4C 44 41 20 44 41 50 31 |255.4...LDA DAP1|
00000720: 2C 58 20 20 20 20 3B 44 41 54 45 4E 20 41 4E 20 |,X ;DATEN AN |
00000730: 38 32 35 35 00 3F 0F AC 03 53 54 41 20 50 42 00 |8255.?...STA PB.|
00000740: 47 0F B6 03 49 4E 58 00 52 0F C0 03 43 50 58 20 |G...INX.R...CPX |
00000750: 23 33 00 70 0F CA 03 42 4E 45 20 4C 4F 55 54 31 |#3.p...BNE LOUT1|
00000760: 20 20 20 20 20 3B 53 43 48 4C 45 8B 45 4E 80 45 | ;SCHLE.EN.E|
00000770: 00 7B 0F D4 03 4C 44 41 20 23 30 00 9B 0F DE 03 |.{...LDA #0.....|
00000780: 53 54 41 20 44 32 20 20 20 20 20 20 20 20 3B 50 |STA D2 ;P|
00000790: 42 20 B2 20 45 49 4E 47 41 42 45 00 A3 0F E8 03 |B . EINGABE.....|
000007A0: 50 4C 41 00 C6 0F F2 03 53 54 41 20 50 41 20 20 |PLA.....STA PA |
000007B0: 20 20 20 20 20 20 3B 50 41 20 B2 20 41 4C 54 45 | ;PA . ALTE|
000007C0: 52 20 57 45 52 54 00 CE 0F FC 03 43 4C 49 00 E7 |R WERT.....CLI..|
000007D0: 0F 06 04 52 54 53 20 20 20 20 20 20 20 20 20 20 |...RTS |
000007E0: 3B 80 45 20 4F 55 54 00 ED 0F 10 04 3B 00 0C 10 |;.E OUT.....;...|
000007F0: 1A 04 42 53 43 48 93 20 20 20 20 20 3B 48 4F 4C |..BSCH. ;HOL|
00000800: 54 20 42 49 4C 44 53 43 48 49 52 4D 00 18 10 24 |T BILDSCHIRM...$|
00000810: 04 4C 44 41 20 23 31 31 00 26 10 2E 04 53 54 41 |.LDA #11.&...STA|
00000820: 20 35 33 32 38 30 00 34 10 38 04 53 54 41 20 35 | 53280.4.8.STA 5|
00000830: 33 32 38 31 00 41 10 42 04 4C 44 41 20 23 22 90 |3281.A.B.LDA #".|
00000840: 22 00 50 10 4C 04 4A 53 52 20 43 48 52 4F 55 54 |".P.L.JSR CHROUT|
00000850: 00 5D 10 56 04 4C 44 41 20 23 22 93 22 00 6C 10 |.].V.LDA #".".l.|
00000860: 60 04 4A 53 52 20 43 48 52 4F 55 54 00 72 10 6A |`.JSR CHROUT.r.j|
00000870: 04 3B 00 81 10 74 04 4C 44 41 20 23 B3 42 53 43 |.;...t.LDA #.BSC|
00000880: 48 00 90 10 7E 04 4C 44 58 20 23 B1 42 53 43 48 |H...~.LDX #.BSCH|
00000890: 00 9C 10 88 04 53 54 41 20 5A 50 31 00 AA 10 92 |.....STA ZP1....|
000008A0: 04 53 54 58 20 5A 50 31 AA 31 00 BB 10 9C 04 4C |.STX ZP1.1.....L|
000008B0: 44 41 20 23 B3 42 55 46 46 45 52 00 CC 10 A6 04 |DA #.BUFFER.....|
000008C0: 4C 44 58 20 23 B1 42 55 46 46 45 52 00 D8 10 B0 |LDX #.BUFFER....|
000008D0: 04 53 54 41 20 5A 50 32 00 E6 10 BA 04 53 54 58 |.STA ZP2.....STX|
000008E0: 20 5A 50 32 AA 31 00 EC 10 C4 04 3B 00 F7 10 CE | ZP2.1.....;....|
000008F0: 04 4C 44 58 20 23 33 00 02 11 D8 04 4C 44 59 20 |.LDX #3.....LDY |
00000900: 23 30 00 0C 11 E2 04 42 53 4C 4F 31 00 1C 11 EC |#0.....BSLO1....|
00000910: 04 4C 44 41 20 28 5A 50 32 29 2C 59 00 2C 11 F6 |.LDA (ZP2),Y.,..|
00000920: 04 53 54 41 20 28 5A 50 31 29 2C 59 00 34 11 00 |.STA (ZP1),Y.4..|
00000930: 05 49 4E 59 00 42 11 0A 05 42 4E 45 20 42 53 4C |.INY.B...BNE BSL|
00000940: 4F 31 00 50 11 14 05 49 4E 43 20 5A 50 31 AA 31 |O1.P...INC ZP1.1|
00000950: 00 5E 11 1E 05 49 4E 43 20 5A 50 32 AA 31 00 66 |.^...INC ZP2.1.f|
00000960: 11 28 05 44 45 58 00 74 11 32 05 42 4E 45 20 42 |.(.DEX.t.2.BNE B|
00000970: 53 4C 4F 31 00 7C 11 3C 05 52 54 53 00 82 11 46 |SLO1.|.<.RTS...F|
00000980: 05 3B 00 A6 11 50 05 54 42 53 20 2E 22 51 57 45 |.;...P.TBS ."QWE|
00000990: 52 54 59 55 49 4F 50 40 2A 41 53 44 46 47 48 4A |RTYUIOP@*ASDFGHJ|
000009A0: 4B 4C 3A 3B 3D 22 00 CA 11 5A 05 54 42 52 20 2E |KL:;="...Z.TBR .|
000009B0: AD 51 57 45 52 54 59 55 49 4F 50 40 AC 41 53 44 |.QWERTYUIOP@.ASD|
000009C0: 46 47 48 4A 4B 4C 3A 3B B2 AD 00 EE 11 64 05 54 |FGHJKL:;.....d.T|
000009D0: 42 5A 20 2E 27 51 57 45 52 54 59 55 49 4F 50 40 |BZ .'QWERTYUIOP@|
000009E0: AC 41 53 44 46 47 48 4A 4B 4C 3A 3B B2 27 00 0F |.ASDFGHJKL:;.'..|
000009F0: 12 6E 05 54 B9 4C 2E B3 33 32 31 2C B3 33 32 34 |.n.T.L..321,.324|
00000A00: 2C B3 33 32 37 2C B3 33 33 30 2C B3 33 33 33 00 |,.327,.330,.333.|
00000A10: 32 12 78 05 2E B3 33 33 36 2C B3 33 33 39 2C B3 |2.x...336,.339,.|
00000A20: 33 34 32 2C B3 33 34 38 2C B3 33 35 31 2C B3 33 |342,.348,.351,.3|
00000A30: 35 34 00 55 12 82 05 2E B3 33 35 37 2C B3 35 32 |54.U.....357,.52|
00000A40: 32 2C B3 35 32 35 2C B3 35 32 38 2C B3 35 33 31 |2,.525,.528,.531|
00000A50: 2C B3 35 33 34 00 78 12 8C 05 2E B3 35 33 37 2C |,.534.x.....537,|
00000A60: B3 35 34 30 2C B3 35 34 33 2C B3 35 34 36 2C B3 |.540,.543,.546,.|
00000A70: 35 34 39 2C B3 35 35 32 00 82 12 96 05 2E B3 35 |549,.552.......5|
00000A80: 35 35 00 88 12 A0 05 3B 00 A9 12 AA 05 54 B9 48 |55.....;.....T.H|
00000A90: 2E B1 33 32 31 2C B1 33 32 34 2C B1 33 32 37 2C |..321,.324,.327,|
00000AA0: B1 33 33 30 2C B1 33 33 33 00 CC 12 B4 05 2E B1 |.330,.333.......|
00000AB0: 33 33 36 2C B1 33 33 39 2C B1 33 34 32 2C B1 33 |336,.339,.342,.3|
00000AC0: 34 38 2C B1 33 35 31 2C B1 33 35 34 00 EF 12 BE |48,.351,.354....|
00000AD0: 05 2E B1 33 35 37 2C B1 35 32 32 2C B1 35 32 35 |...357,.522,.525|
00000AE0: 2C B1 35 32 38 2C B1 35 33 31 2C B1 35 33 34 00 |,.528,.531,.534.|
00000AF0: 12 13 C8 05 2E B1 35 33 37 2C B1 35 34 30 2C B1 |......537,.540,.|
00000B00: 35 34 33 2C B1 35 34 36 2C B1 35 34 39 2C B1 35 |543,.546,.549,.5|
00000B10: 35 32 00 1C 13 D2 05 2E B1 35 35 35 00 22 13 DC |52.......555."..|
00000B20: 05 3B 00 45 13 E6 05 54 42 59 54 45 20 2E 31 2C |.;.E...TBYTE .1,|
00000B30: 31 2C 31 2C 31 2C 31 2C 32 2C 32 2C 32 2C 30 2C |1,1,1,1,2,2,2,0,|
00000B40: 30 2C 30 2C 30 00 62 13 F0 05 2E 31 2C 31 2C 31 |0,0,0.b....1,1,1|
00000B50: 2C 32 2C 32 2C 32 2C 32 2C 32 2C 30 2C 30 2C 30 |,2,2,2,2,2,0,0,0|
00000B60: 2C 30 00 83 13 FA 05 54 42 49 54 20 2E 38 2C 31 |,0.....TBIT .8,1|
00000B70: 36 2C 33 32 2C 36 34 2C 31 32 38 2C 32 2C 31 36 |6,32,64,128,2,16|
00000B80: 2C 36 34 00 A4 13 04 06 2E 31 2C 32 2C 34 2C 31 |,64......1,2,4,1|
00000B90: 36 2C 34 2C 32 2C 31 2C 38 2C 34 2C 31 2C 33 32 |6,4,2,1,8,4,1,32|
00000BA0: 2C 31 32 38 00 B5 13 0E 06 2E 31 32 38 2C 36 34 |,128......128,64|
00000BB0: 2C 33 32 2C 38 00 C6 13 18 06 5A 45 49 43 48 45 |,32,8.....ZEICHE|
00000BC0: 4E 20 2E 30 2C 30 00 F6 13 22 06 54 45 31 2E 20 |N .0,0...".TE1. |
00000BD0: AD 20 20 20 20 20 44 41 54 45 4E 20 4C 45 53 45 |. DATEN LESE|
00000BE0: 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 |N (|
00000BF0: 43 29 4D 26 54 AD 00 2A 14 2C 06 54 45 32 2E 20 |C)M&T..*.,.TE2. |
00000C00: AD 20 20 20 20 20 44 41 54 45 4E 20 41 55 53 47 |. DATEN AUSG|
00000C10: 45 42 45 4E 20 20 20 20 20 20 20 20 20 20 20 28 |EBEN (|
00000C20: 43 29 4D 26 54 20 20 20 20 AD 00 4E 14 36 06 54 |C)M&T ..N.6.T|
00000C30: 45 41 2E 20 AD 46 45 48 4C 45 52 20 21 20 50 B0 |EA. .FEHLER ! P.|
00000C40: 54 20 49 53 54 20 45 49 4E 47 41 42 45 AD 00 54 |T IST EINGABE..T|
00000C50: 14 40 06 3B 00 77 14 4A 06 44 45 4D 4F 20 20 20 |.@.;.w.J.DEMO |
00000C60: 20 20 20 20 20 20 20 3B 45 49 4E 53 50 8A 47 20 | ;EINSP.G |
00000C70: 54 45 53 54 50 52 47 00 82 14 54 06 4C 44 41 20 |TESTPRG...T.LDA |
00000C80: 23 31 00 8F 14 5E 06 53 54 41 20 46 4C 41 47 00 |#1...^.STA FLAG.|
00000C90: 9B 14 68 06 4C 44 41 20 23 38 37 00 AB 14 72 06 |..h.LDA #87...r.|
00000CA0: 53 54 41 20 5A 45 49 43 48 45 4E 00 B7 14 7C 06 |STA ZEICHEN...|.|
00000CB0: 4C 44 41 20 23 38 31 00 C9 14 86 06 53 54 41 20 |LDA #81.....STA |
00000CC0: 5A 45 49 43 48 45 4E AA 31 00 D4 14 90 06 4C 44 |ZEICHEN.1.....LD|
00000CD0: 41 20 23 30 00 E0 14 9A 06 53 54 41 20 42 54 52 |A #0.....STA BTR|
00000CE0: 00 EE 14 A4 06 4A 53 52 20 52 45 53 45 54 00 FC |.....JSR RESET..|
00000CF0: 14 AE 06 4A 53 52 20 42 53 43 48 93 00 07 15 B8 |...JSR BSCH.....|
00000D00: 06 4C 44 58 20 23 30 00 10 15 C2 06 54 45 4C 32 |.LDX #0.....TEL2|
00000D10: 00 1E 15 CC 06 4C 44 41 20 54 45 32 2C 58 00 2D |.....LDA TE2,X.-|
00000D20: 15 D6 06 53 54 41 20 42 53 43 48 2C 58 00 35 15 |...STA BSCH,X.5.|
00000D30: E0 06 49 4E 58 00 41 15 EA 06 43 50 58 20 23 34 |..INX.A...CPX #4|
00000D40: 30 00 4E 15 F4 06 42 4E 45 20 54 45 4C 32 00 54 |0.N...BNE TEL2.T|
00000D50: 15 FE 06 3B 00 5F 15 08 07 4C 44 41 20 23 30 00 |...;._...LDA #0.|
00000D60: 69 15 12 07 42 53 45 54 30 00 76 15 1C 07 53 54 |i...BSET0.v...ST|
00000D70: 41 20 44 41 50 31 00 83 15 26 07 53 54 41 20 44 |A DAP1...&.STA D|
00000D80: 41 50 32 00 90 15 30 07 53 54 41 20 44 41 50 33 |AP2...0.STA DAP3|
00000D90: 00 9B 15 3A 07 43 48 41 4E 47 45 00 A9 15 44 07 |...:.CHANGE...D.|
00000DA0: 4A 53 52 20 46 41 52 42 45 00 B3 15 4E 07 42 53 |JSR FARBE...N.BS|
00000DB0: 45 54 32 00 BF 15 58 07 4A 53 52 20 4F 55 54 00 |ET2...X.JSR OUT.|
00000DC0: C9 15 62 07 42 53 45 54 31 00 D4 15 6C 07 4C 44 |..b.BSET1...l.LD|
00000DD0: 41 20 23 30 00 E0 15 76 07 53 54 41 20 31 39 38 |A #0...v.STA 198|
00000DE0: 00 E8 15 80 07 54 41 4C 00 F4 15 8A 07 4C 44 41 |.....TAL.....LDA|
00000DF0: 20 31 39 38 00 00 16 94 07 42 45 51 20 54 41 4C | 198.....BEQ TAL|
00000E00: 00 06 16 9E 07 3B 00 11 16 A8 07 4C 44 41 20 23 |.....;.....LDA #|
00000E10: 30 00 1D 16 B2 07 53 54 41 20 31 39 38 00 29 16 |0.....STA 198.).|
00000E20: BC 07 4C 44 41 20 36 33 31 00 31 16 C6 07 53 45 |..LDA 631.1...SE|
00000E30: 43 00 3C 16 D0 07 43 4D 50 20 23 33 00 4A 16 DA |C.<...CMP #3.J..|
00000E40: 07 42 4E 45 20 53 4B 49 50 31 00 57 16 E4 07 4C |.BNE SKIP1.W...L|
00000E50: 44 41 20 23 22 93 22 00 66 16 EE 07 4A 4D 50 20 |DA #".".f...JMP |
00000E60: 43 48 52 4F 55 54 00 6E 16 F8 07 52 54 53 00 78 |CHROUT.n...RTS.x|
00000E70: 16 02 08 53 4B 49 50 31 00 80 16 0C 08 53 45 43 |...SKIP1.....SEC|
00000E80: 00 8D 16 16 08 43 4D 50 20 23 22 13 22 00 9B 16 |.....CMP #"."...|
00000E90: 20 08 42 4E 45 20 53 4B 49 50 32 00 A6 16 2A 08 | .BNE SKIP2...*.|
00000EA0: 4C 44 41 20 23 30 00 B4 16 34 08 4A 4D 50 20 42 |LDA #0...4.JMP B|
00000EB0: 53 45 54 30 00 BE 16 3E 08 53 4B 49 50 32 00 C6 |SET0...>.SKIP2..|
00000EC0: 16 48 08 53 45 43 00 D2 16 52 08 43 4D 50 20 23 |.H.SEC...R.CMP #|
00000ED0: 33 32 00 E0 16 5C 08 42 4E 45 20 53 4B 49 50 33 |32...\.BNE SKIP3|
00000EE0: 00 EB 16 66 08 4C 44 58 20 23 30 00 F5 16 70 08 |...f.LDX #0...p.|
00000EF0: 43 48 41 4C 31 00 04 17 7A 08 4C 44 41 20 44 41 |CHAL1...z.LDA DA|
00000F00: 50 31 2C 58 00 10 17 84 08 45 B0 20 23 32 35 35 |P1,X.....E. #255|
00000F10: 00 1F 17 8E 08 53 54 41 20 44 41 50 31 2C 58 00 |.....STA DAP1,X.|
00000F20: 27 17 98 08 49 4E 58 00 32 17 A2 08 43 50 58 20 |'...INX.2...CPX |
00000F30: 23 33 00 40 17 AC 08 42 4E 45 20 43 48 41 4C 31 |#3.@...BNE CHAL1|
00000F40: 00 4F 17 B6 08 4A 4D 50 20 43 48 41 4E 47 45 00 |.O...JMP CHANGE.|
00000F50: 59 17 C0 08 53 4B 49 50 33 00 61 17 CA 08 53 45 |Y...SKIP3.a...SE|
00000F60: 43 00 6E 17 D4 08 43 4D 50 20 23 22 85 22 00 7C |C.n...CMP #".".||
00000F70: 17 DE 08 42 4E 45 20 53 4B 49 50 34 00 8A 17 E8 |...BNE SKIP4....|
00000F80: 08 4A 4D 50 20 45 B5 45 53 54 00 90 17 F2 08 3B |.JMP E.EST.....;|
00000F90: 00 9A 17 FC 08 53 4B 49 50 34 00 A0 17 06 09 3B |.....SKIP4.....;|
00000FA0: 00 AB 17 10 09 4C 44 58 20 23 30 00 B6 17 1A 09 |.....LDX #0.....|
00000FB0: 42 53 57 45 52 54 00 BE 17 24 09 53 45 43 00 CC |BSWERT...$.SEC..|
00000FC0: 17 2E 09 43 4D 50 20 54 42 53 2C 58 00 DB 17 38 |...CMP TBS,X...8|
00000FD0: 09 42 45 51 20 42 53 45 A4 55 54 00 E3 17 42 09 |.BEQ BSE.UT...B.|
00000FE0: 49 4E 58 00 EF 17 4C 09 43 50 58 20 23 32 34 00 |INX...L.CPX #24.|
00000FF0: FE 17 56 09 42 4E 45 20 42 53 57 45 52 54 00 0C |..V.BNE BSWERT..|
00001000: 18 60 09 42 45 51 20 42 53 45 54 31 00 12 18 6A |.`.BEQ BSET1...j|
00001010: 09 3B 00 1D 18 74 09 42 53 45 A4 55 54 00 2D 18 |.;...t.BSE.UT.-.|
00001020: 7E 09 4C 44 41 20 54 42 59 54 45 2C 58 00 35 18 |~.LDA TBYTE,X.5.|
00001030: 88 09 54 41 59 00 44 18 92 09 4C 44 41 20 44 41 |..TAY.D...LDA DA|
00001040: 50 31 2C 59 00 52 18 9C 09 45 B0 20 54 42 49 54 |P1,Y.R...E. TBIT|
00001050: 2C 58 00 61 18 A6 09 53 54 41 20 44 41 50 31 2C |,X.a...STA DAP1,|
00001060: 59 00 71 18 B0 09 4A 53 52 20 46 41 52 42 53 45 |Y.q...JSR FARBSE|
00001070: 54 00 7F 18 BA 09 4A 4D 50 20 42 53 45 54 32 00 |T.....JMP BSET2.|
00001080: 85 18 C4 09 3B 00 91 18 CE 09 46 41 52 42 53 45 |....;.....FARBSE|
00001090: 54 00 A0 18 D8 09 4C 44 41 20 23 B3 42 53 43 48 |T.....LDA #.BSCH|
000010A0: 00 AC 18 E2 09 53 54 41 20 5A 50 31 00 BB 18 EC |.....STA ZP1....|
000010B0: 09 4C 44 41 20 23 B1 42 53 43 48 00 C9 18 F6 09 |.LDA #.BSCH.....|
000010C0: 53 54 41 20 5A 50 31 AA 31 00 D7 18 00 0A 4C 44 |STA ZP1.1.....LD|
000010D0: 41 20 54 B9 4C 2C 58 00 DF 18 0A 0A 43 4C 43 00 |A T.L,X.....CLC.|
000010E0: EB 18 14 0A 41 44 43 20 5A 50 31 00 F7 18 1E 0A |....ADC ZP1.....|
000010F0: 53 54 41 20 5A 50 31 00 04 19 28 0A 42 43 43 20 |STA ZP1...(.BCC |
00001100: 42 53 4C 31 00 12 19 32 0A 49 4E 43 20 5A 50 31 |BSL1...2.INC ZP1|
00001110: AA 31 00 1B 19 3C 0A 42 53 4C 31 00 29 19 46 0A |.1...<.BSL1.).F.|
00001120: 4C 44 41 20 54 B9 48 2C 58 00 31 19 50 0A 43 4C |LDA T.H,X.1.P.CL|
00001130: 43 00 3F 19 5A 0A 41 44 43 20 5A 50 31 AA 31 00 |C.?.Z.ADC ZP1.1.|
00001140: 4D 19 64 0A 53 54 41 20 5A 50 31 AA 31 00 53 19 |M.d.STA ZP1.1.S.|
00001150: 6E 0A 3B 00 5F 19 78 0A 4C 44 41 20 5A 50 31 00 |n.;._.x.LDA ZP1.|
00001160: 6B 19 82 0A 53 54 41 20 5A 50 32 00 79 19 8C 0A |k...STA ZP2.y...|
00001170: 4C 44 41 20 5A 50 31 AA 31 00 81 19 96 0A 43 4C |LDA ZP1.1.....CL|
00001180: 43 00 8E 19 A0 0A 41 44 43 20 23 24 44 34 00 9C |C.....ADC #$D4..|
00001190: 19 AA 0A 53 54 41 20 5A 50 32 AA 31 00 A2 19 B4 |...STA ZP2.1....|
000011A0: 0A 3B 00 B2 19 BE 0A 4C 44 41 20 54 42 59 54 45 |.;.....LDA TBYTE|
000011B0: 2C 58 00 BA 19 C8 0A 54 41 59 00 C9 19 D2 0A 4C |,X.....TAY.....L|
000011C0: 44 41 20 44 41 50 31 2C 59 00 D6 19 DC 0A AF 20 |DA DAP1,Y...... |
000011D0: 54 42 49 54 2C 58 00 E6 19 E6 0A 42 4E 45 20 47 |TBIT,X.....BNE G|
000011E0: 45 53 45 54 5A 54 00 F1 19 F0 0A 4C 44 59 20 23 |ESETZT.....LDY #|
000011F0: 30 00 01 1A FA 0A 4C 44 41 20 5A 45 49 43 48 45 |0.....LDA ZEICHE|
00001200: 4E 00 11 1A 04 0B 53 54 41 20 28 5A 50 31 29 2C |N.....STA (ZP1),|
00001210: 59 00 1C 1A 0E 0B 4C 44 41 20 23 35 00 2C 1A 18 |Y.....LDA #5.,..|
00001220: 0B 53 54 41 20 28 5A 50 32 29 2C 59 00 39 1A 22 |.STA (ZP2),Y.9."|
00001230: 0B 4C 44 41 20 46 4C 41 47 00 47 1A 2C 0B 42 45 |.LDA FLAG.G.,.BE|
00001240: 51 20 51 55 49 54 31 00 4F 1A 36 0B 49 4E 59 00 |Q QUIT1.O.6.INY.|
00001250: 5D 1A 40 0B 4C 44 41 20 54 42 5A 2C 58 00 6D 1A |].@.LDA TBZ,X.m.|
00001260: 4A 0B 53 54 41 20 28 5A 50 31 29 2C 59 00 79 1A |J.STA (ZP1),Y.y.|
00001270: 54 0B 4C 44 41 20 23 31 33 00 89 1A 5E 0B 53 54 |T.LDA #13...^.ST|
00001280: 41 20 28 5A 50 32 29 2C 59 00 93 1A 68 0B 51 55 |A (ZP2),Y...h.QU|
00001290: 49 54 31 00 9B 1A 72 0B 52 54 53 00 A1 1A 7C 0B |IT1...r.RTS...|.|
000012A0: 3B 00 AD 1A 86 0B 47 45 53 45 54 5A 54 00 B8 1A |;.....GESETZT...|
000012B0: 90 0B 4C 44 59 20 23 30 00 CA 1A 9A 0B 4C 44 41 |..LDY #0.....LDA|
000012C0: 20 5A 45 49 43 48 45 4E AA 31 00 DA 1A A4 0B 53 | ZEICHEN.1.....S|
000012D0: 54 41 20 28 5A 50 31 29 2C 59 00 E6 1A AE 0B 4C |TA (ZP1),Y.....L|
000012E0: 44 41 20 23 32 36 00 F6 1A B8 0B 53 54 41 20 28 |DA #26.....STA (|
000012F0: 5A 50 32 29 2C 59 00 03 1B C2 0B 4C 44 41 20 46 |ZP2),Y.....LDA F|
00001300: 4C 41 47 00 11 1B CC 0B 42 45 51 20 51 55 49 54 |LAG.....BEQ QUIT|
00001310: 31 00 19 1B D6 0B 49 4E 59 00 27 1B E0 0B 4C 44 |1.....INY.'...LD|
00001320: 41 20 54 42 52 2C 58 00 37 1B EA 0B 53 54 41 20 |A TBR,X.7...STA |
00001330: 28 5A 50 31 29 2C 59 00 42 1B F4 0B 4C 44 41 20 |(ZP1),Y.B...LDA |
00001340: 23 31 00 52 1B FE 0B 53 54 41 20 28 5A 50 32 29 |#1.R...STA (ZP2)|
00001350: 2C 59 00 5A 1B 08 0C 52 54 53 00 60 1B 12 0C 3B |,Y.Z...RTS.`...;|
00001360: 00 85 1B 1C 0C 46 41 52 42 45 20 20 20 20 20 20 |.....FARBE |
00001370: 20 20 20 20 3B 45 49 4E 53 50 8A 47 20 42 45 4C | ;EINSP.G BEL|
00001380: 45 47 55 4E 47 00 90 1B 26 0C 4C 44 58 20 23 30 |EGUNG...&.LDX #0|
00001390: 00 99 1B 30 0C 46 41 4C 31 00 A9 1B 3A 0C 4A 53 |...0.FAL1...:.JS|
000013A0: 52 20 46 41 52 42 53 45 54 00 B1 1B 44 0C 49 4E |R FARBSET...D.IN|
000013B0: 58 00 BD 1B 4E 0C 43 50 58 20 23 32 34 00 CA 1B |X...N.CPX #24...|
000013C0: 58 0C 42 4E 45 20 46 41 4C 31 00 D2 1B 62 0C 52 |X.BNE FAL1...b.R|
000013D0: 54 53 00 D8 1B 6C 0C 3B 00 F9 1B 76 0C BC 49 4B |TS...l.;...v..IK|
000013E0: 49 20 20 20 20 20 20 20 20 20 3B 45 49 4E 47 41 |I ;EINGA|
000013F0: 42 45 42 45 46 45 48 4C 45 00 1C 1C 80 0C 2E 25 |BEBEFEHLE......%|
00001400: 30 30 30 30 30 30 30 31 2C 25 30 30 30 30 30 31 |00000001,%000001|
00001410: 30 31 2C 25 30 30 30 30 31 30 30 31 00 22 1C 8A |01,%00001001."..|
00001420: 0C 3B 00 46 1C 94 0C 49 4E 20 20 20 20 20 20 20 |.;.F...IN |
00001430: 20 20 20 20 20 20 3B 45 49 4E 53 50 8A 47 20 45 | ;EINSP.G E|
00001440: 49 4E 47 41 42 45 00 4E 1C 9E 0C 53 45 49 00 54 |INGABE.N...SEI.T|
00001450: 1C A8 0C 3B 00 5F 1C B2 0C 4C 44 58 20 23 30 00 |...;._...LDX #0.|
00001460: 6A 1C BC 0C 4C 44 41 20 50 41 00 88 1C C6 0C 50 |j...LDA PA.....P|
00001470: 48 41 20 20 20 20 20 20 20 20 20 20 20 20 3B 50 |HA ;P|
00001480: 41 20 4D 45 52 4B 45 4E 00 AB 1C D0 0C 4C 49 4E |A MERKEN.....LIN|
00001490: 31 20 20 20 20 20 20 20 20 20 20 20 3B 42 45 47 |1 ;BEG|
000014A0: 49 4E 4E 20 53 43 48 4C 45 8B 45 00 B6 1C DA 0C |INN SCHLE.E.....|
000014B0: 4C 44 41 20 50 41 00 DB 1C E4 0C B0 41 20 23 25 |LDA PA......A #%|
000014C0: 30 30 30 30 30 31 30 30 20 3B 53 43 48 41 4C 54 |00000100 ;SCHALT|
000014D0: 45 54 20 41 55 46 20 34 30 34 32 00 E6 1C EE 0C |ET AUF 4042.....|
000014E0: 53 54 41 20 50 41 00 F3 1C F8 0C 4C 44 41 20 23 |STA PA.....LDA #|
000014F0: 32 35 35 00 12 1D 02 0D 53 54 41 20 44 32 20 20 |255.....STA D2 |
00001500: 20 20 20 20 20 20 20 3B 50 42 B2 41 55 53 47 41 | ;PB.AUSGA|
00001510: 42 45 00 32 1D 0C 0D 4C 44 41 20 BC 49 4B 49 2C |BE.2...LDA .IKI,|
00001520: 58 20 20 20 3B 83 20 49 53 54 20 45 49 4E 47 41 |X ;. IST EINGA|
00001530: 42 45 00 50 1D 16 0D 53 54 41 20 50 42 20 20 20 |BE.P...STA PB |
00001540: 20 20 20 20 20 20 3B 46 55 45 52 20 38 32 35 35 | ;FUER 8255|
00001550: 00 5B 1D 20 0D 4C 44 41 20 50 41 00 6C 1D 2A 0D |.[. .LDA PA.l.*.|
00001560: AF 20 23 25 31 31 31 31 31 30 31 31 00 92 1D 34 |. #%11111011...4|
00001570: 0D 53 54 41 20 50 41 20 20 20 20 20 20 20 20 20 |.STA PA |
00001580: 3B 53 43 48 41 4C 54 45 54 20 41 55 46 20 38 32 |;SCHALTET AUF 82|
00001590: 35 35 00 9D 1D 3E 0D 4C 44 41 20 23 30 00 BE 1D |55...>.LDA #0...|
000015A0: 48 0D 53 54 41 20 44 32 20 20 20 20 20 20 20 20 |H.STA D2 |
000015B0: 20 3B 50 42 20 B2 20 45 49 4E 47 41 42 45 00 DD | ;PB . EINGABE..|
000015C0: 1D 52 0D 4C 44 41 20 50 42 20 20 20 20 20 20 20 |.R.LDA PB |
000015D0: 20 20 3B 57 45 52 54 20 56 91 20 50 42 00 FF 1D | ;WERT V. PB...|
000015E0: 5C 0D 53 54 41 20 44 41 50 31 2C 58 20 20 20 20 |\.STA DAP1,X |
000015F0: 20 3B 41 55 46 20 44 41 50 31 AB 44 41 50 33 00 | ;AUF DAP1.DAP3.|
00001600: 07 1E 66 0D 49 4E 58 00 12 1E 70 0D 43 50 58 20 |..f.INX...p.CPX |
00001610: 23 33 00 31 1E 7A 0D 42 4E 45 20 4C 49 4E 31 20 |#3.1.z.BNE LIN1 |
00001620: 20 20 20 20 20 20 3B 80 45 20 53 43 48 4C 45 8B | ;.E SCHLE.|
00001630: 45 00 39 1E 84 0D 50 4C 41 00 5D 1E 8E 0D 53 54 |E.9...PLA.]...ST|
00001640: 41 20 50 41 20 20 20 20 20 20 20 20 20 3B 50 41 |A PA ;PA|
00001650: 20 B2 20 41 4C 54 45 52 20 57 45 52 54 00 65 1E | . ALTER WERT.e.|
00001660: 98 0D 43 4C 49 00 6D 1E A2 0D 52 54 53 00 73 1E |..CLI.m...RTS.s.|
00001670: AC 0D 3B 00 8E 1E B6 0D 45 B5 45 53 54 20 20 20 |..;.....E.EST |
00001680: 20 20 20 20 20 3B 20 45 49 4E 53 50 8A 47 00 AB | ; EINSP.G..|
00001690: 1E C0 0D 4A 53 52 20 42 53 43 48 93 20 20 20 3B |...JSR BSCH. ;|
000016A0: 45 49 4E 47 41 42 45 54 45 53 54 00 B6 1E CA 0D |EINGABETEST.....|
000016B0: 4C 44 58 20 23 30 00 BF 1E D4 0D 54 45 4C 31 00 |LDX #0.....TEL1.|
000016C0: CD 1E DE 0D 4C 44 41 20 54 45 31 2C 58 00 DC 1E |....LDA TE1,X...|
000016D0: E8 0D 53 54 41 20 42 53 43 48 2C 58 00 E4 1E F2 |..STA BSCH,X....|
000016E0: 0D 49 4E 58 00 F0 1E FC 0D 43 50 58 20 23 34 30 |.INX.....CPX #40|
000016F0: 00 FD 1E 06 0E 42 4E 45 20 54 45 4C 31 00 03 1F |.....BNE TEL1...|
00001700: 10 0E 3B 00 29 1F 1A 0E 4C 44 41 20 23 25 30 30 |..;.)...LDA #%00|
00001710: 30 31 31 30 31 31 20 3B 53 54 45 55 45 52 42 45 |011011 ;STEUERBE|
00001720: 46 45 48 4C 20 38 32 35 35 00 4F 1F 24 0E 53 54 |FEHL 8255.O.$.ST|
00001730: 41 20 42 54 52 20 20 20 20 20 20 20 20 3B 41 4C |A BTR ;AL|
00001740: 4C 45 20 50 B0 54 53 20 45 49 4E 47 41 42 45 00 |LE P.TS EINGABE.|
00001750: 5D 1F 2E 0E 4A 53 52 20 52 45 53 45 54 00 6A 1F |]...JSR RESET.j.|
00001760: 38 0E 4C 44 41 20 23 31 30 30 00 7A 1F 42 0E 53 |8.LDA #100.z.B.S|
00001770: 54 41 20 5A 45 49 43 48 45 4E 00 87 1F 4C 0E 4C |TA ZEICHEN...L.L|
00001780: 44 41 20 23 32 33 34 00 99 1F 56 0E 53 54 41 20 |DA #234...V.STA |
00001790: 5A 45 49 43 48 45 4E AA 31 00 9F 1F 60 0E 3B 00 |ZEICHEN.1...`.;.|
000017A0: AA 1F 6A 0E 4C 44 41 20 23 30 00 B6 1F 74 0E 53 |..j.LDA #0...t.S|
000017B0: 54 41 20 31 39 38 00 BC 1F 7E 0E 3B 00 C5 1F 88 |TA 198...~.;....|
000017C0: 0E 54 41 4C 31 00 D1 1F 92 0E 4C 44 41 20 31 39 |.TAL1.....LDA 19|
000017D0: 38 00 DE 1F 9C 0E 42 45 51 20 54 41 4C 32 00 E4 |8.....BEQ TAL2..|
000017E0: 1F A6 0E 3B 00 EF 1F B0 0E 4C 44 41 20 23 30 00 |...;.....LDA #0.|
000017F0: FB 1F BA 0E 53 54 41 20 31 39 38 00 07 20 C4 0E |....STA 198.. ..|
00001800: 4C 44 41 20 36 33 31 00 0F 20 CE 0E 53 45 43 00 |LDA 631.. ..SEC.|
00001810: 1A 20 D8 0E 43 4D 50 20 23 33 00 27 20 E2 0E 42 |. ..CMP #3.' ..B|
00001820: 4E 45 20 54 41 4C 33 00 34 20 EC 0E 4C 44 41 20 |NE TAL3.4 ..LDA |
00001830: 23 22 93 22 00 43 20 F6 0E 4A 4D 50 20 43 48 52 |#".".C ..JMP CHR|
00001840: 4F 55 54 00 4B 20 00 0F 52 54 53 00 51 20 0A 0F |OUT.K ..RTS.Q ..|
00001850: 3B 00 5A 20 14 0F 54 41 4C 33 00 62 20 1E 0F 53 |;.Z ..TAL3.b ..S|
00001860: 45 43 00 6F 20 28 0F 43 4D 50 20 23 22 85 22 00 |EC.o (.CMP #".".|
00001870: 7C 20 32 0F 42 4E 45 20 54 41 4C 31 00 82 20 3C || 2.BNE TAL1.. <|
00001880: 0F 3B 00 8F 20 46 0F 4A 4D 50 20 44 45 4D 4F 00 |.;.. F.JMP DEMO.|
00001890: 95 20 50 0F 3B 00 9E 20 5A 0F 54 41 4C 32 00 A9 |. P.;.. Z.TAL2..|
000018A0: 20 64 0F 4A 53 52 20 49 4E 00 B7 20 6E 0F 4A 53 | d.JSR IN.. n.JS|
000018B0: 52 20 46 41 52 42 45 00 C4 20 78 0F 4A 4D 50 20 |R FARBE.. x.JMP |
000018C0: 54 41 4C 31 00 CA 20 82 0F 3B 00 D0 20 8C 0F 3B |TAL1.. ..;.. ..;|
000018D0: 00 F0 20 96 0F 52 45 53 45 A4 55 54 20 20 20 20 |.. ..RESE.UT |
000018E0: 20 20 3B 45 49 4E 53 50 8A 47 20 52 45 53 45 54 | ;EINSP.G RESET|
000018F0: 00 10 21 A0 0F 4C 44 41 20 23 30 20 20 20 20 20 |..!..LDA #0 |
00001900: 20 20 20 3B 46 55 45 52 20 41 55 53 47 41 42 45 | ;FUER AUSGABE|
00001910: 00 1D 21 AA 0F 53 54 41 20 46 4C 41 47 00 29 21 |..!..STA FLAG.)!|
00001920: B4 0F 4C 44 41 20 23 38 37 00 39 21 BE 0F 53 54 |..LDA #87.9!..ST|
00001930: 41 20 5A 45 49 43 48 45 4E 00 45 21 C8 0F 4C 44 |A ZEICHEN.E!..LD|
00001940: 41 20 23 38 31 00 57 21 D2 0F 53 54 41 20 5A 45 |A #81.W!..STA ZE|
00001950: 49 43 48 45 4E AA 31 00 7C 21 DC 0F 4C 44 41 20 |ICHEN.1.|!..LDA |
00001960: 23 30 20 20 20 20 20 20 20 20 3B 53 54 45 55 45 |#0 ;STEUE|
00001970: 52 42 45 46 45 48 4C 20 38 32 35 35 00 A1 21 E6 |RBEFEHL 8255..!.|
00001980: 0F 53 54 41 20 42 54 52 20 20 20 20 20 20 20 3B |.STA BTR ;|
00001990: 41 4C 4C 45 20 50 B0 54 53 B2 41 55 53 47 41 42 |ALLE P.TS.AUSGAB|
000019A0: 45 00 C6 21 F0 0F 53 54 41 20 44 41 50 31 20 20 |E..!..STA DAP1 |
000019B0: 20 20 20 20 3B 48 49 4C 46 53 52 45 47 49 53 54 | ;HILFSREGIST|
000019C0: 45 52 20 31 B2 30 00 EB 21 FA 0F 53 54 41 20 44 |ER 1.0..!..STA D|
000019D0: 41 50 32 20 20 20 20 20 20 3B 20 20 20 20 20 20 |AP2 ; |
000019E0: 20 20 20 20 20 20 20 20 32 B2 30 00 10 22 04 10 | 2.0.."..|
000019F0: 53 54 41 20 44 41 50 33 20 20 20 20 20 20 3B 20 |STA DAP3 ; |
00001A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 33 B2 30 | 3.0|
00001A10: 00 1E 22 0E 10 4A 4D 50 20 52 45 53 45 54 00 24 |.."..JMP RESET.$|
00001A20: 22 18 10 3B 00 4A 22 22 10 52 45 53 45 54 49 4E |"..;.J"".RESETIN|
00001A30: 20 20 20 20 20 20 20 3B 45 49 4E 53 50 52 2E 52 | ;EINSPR.R|
00001A40: 45 53 45 54 20 45 49 4E 47 2E 00 55 22 2C 10 4C |ESET EING..U",.L|
00001A50: 44 41 20 23 30 00 62 22 36 10 53 54 41 20 46 4C |DA #0.b"6.STA FL|
00001A60: 41 47 00 84 22 40 10 4C 44 41 20 23 25 30 30 30 |AG.."@.LDA #%000|
00001A70: 31 31 30 31 31 3B 38 32 35 35 20 41 4C 4C 45 20 |11011;8255 ALLE |
00001A80: 50 B0 54 53 00 9F 22 4A 10 53 54 41 20 42 54 52 |P.TS.."J.STA BTR|
00001A90: 20 20 20 20 20 20 20 3B 45 49 4E 47 41 42 45 00 | ;EINGABE.|
00001AA0: AD 22 54 10 4A 53 52 20 52 45 53 45 54 00 BA 22 |."T.JSR RESET.."|
00001AB0: 5E 10 4C 44 41 20 23 31 30 30 00 CA 22 68 10 53 |^.LDA #100.."h.S|
00001AC0: 54 41 20 5A 45 49 43 48 45 4E 00 D7 22 72 10 4C |TA ZEICHEN.."r.L|
00001AD0: 44 41 20 23 32 33 34 00 E9 22 7C 10 53 54 41 20 |DA #234.."|.STA |
00001AE0: 5A 45 49 43 48 45 4E AA 31 00 F7 22 86 10 4A 53 |ZEICHEN.1.."..JS|
00001AF0: 52 20 52 45 53 45 54 00 02 23 90 10 4A 4D 50 20 |R RESET..#..JMP |
00001B00: 49 4E 00 08 23 9A 10 3B 00 12 23 A4 10 41 55 53 |IN..#..;..#..AUS|
00001B10: 47 31 00 1E 23 AE 10 4A 4D 50 20 4F 55 54 00 24 |G1..#..JMP OUT.$|
00001B20: 23 B8 10 3B 00 43 23 C2 10 41 55 53 47 41 42 45 |#..;.C#..AUSGABE|
00001B30: 20 20 20 3B 45 49 4E 53 50 8A 47 20 41 55 53 47 | ;EINSP.G AUSG|
00001B40: 41 42 45 00 60 23 CC 10 4C 44 41 20 42 54 52 20 |ABE.`#..LDA BTR |
00001B50: 20 20 3B 46 41 4C 4C 53 20 42 54 52 20 B3 B1 30 | ;FALLS BTR ..0|
00001B60: 00 6E 23 D6 10 42 45 51 20 41 55 53 47 31 00 74 |.n#..BEQ AUSG1.t|
00001B70: 23 E0 10 3B 00 96 23 EA 10 4C 44 58 20 23 32 32 |#..;..#..LDX #22|
00001B80: 20 20 20 3B 54 59 50 45 20 4D 49 53 4D 41 54 43 | ;TYPE MISMATC|
00001B90: 48 20 45 52 52 B0 00 AE 23 F4 10 4A 4D 50 20 24 |H ERR...#..JMP $|
00001BA0: 41 34 33 41 20 3B 41 55 53 47 45 42 45 4E 00 B4 |A43A ;AUSGEBEN..|
00001BB0: 23 FE 10 3B 00 BE 23 08 11 45 49 4E 47 31 00 C9 |#..;..#..EING1..|
00001BC0: 23 12 11 4A 4D 50 20 49 4E 00 CF 23 1C 11 3B 00 |#..JMP IN..#..;.|
00001BD0: EE 23 26 11 45 49 4E 47 41 42 45 20 20 20 3B 45 |.#&.EINGABE ;E|
00001BE0: 49 4E 53 50 8A 47 20 45 49 4E 47 41 42 45 00 0B |INSP.G EINGABE..|
00001BF0: 24 30 11 4C 44 41 20 42 54 52 20 20 20 3B 46 41 |$0.LDA BTR ;FA|
00001C00: 4C 4C 53 20 42 54 52 20 B3 B1 30 00 19 24 3A 11 |LLS BTR ..0..$:.|
00001C10: 42 4E 45 20 45 49 4E 47 31 00 1F 24 44 11 3B 00 |BNE EING1..$D.;.|
00001C20: 41 24 4E 11 4C 44 58 20 23 32 32 20 20 20 3B 54 |A$N.LDX #22 ;T|
00001C30: 59 50 45 20 4D 49 53 4D 41 54 43 48 20 45 52 52 |YPE MISMATCH ERR|
00001C40: B0 00 59 24 58 11 4A 4D 50 20 24 41 34 33 41 20 |..Y$X.JMP $A43A |
00001C50: 3B 41 55 53 47 45 42 45 4E 00 00 00 |;AUSGEBEN... |
....D.;ERWEITE.G.SRC...N.;.&.X...49152..
...&...4...;.U...ZP1.$FB ;PO.ER ZER
OPAGE.V. .ZP2.$FD ;V. 252 BIS 255.|
...;.....BSCH .$0400.....BUFFER .$C400
; BILD.K.H.CHROUT .$FFD2; AUSGABE 1 ZEIC
HEN.Q.R.;.....PA.56576 ; USERP.T A..
...PB.56577 ; USERP.T B.0...D1.56578
; DATENRICHT. P.T A.U...D2.56579
; DATENRICHT. P.T B.[...;.Y...DAP1.830
; 8255 P.T A.....DAP2.831 ; 825
5 P.T B...".DAP3.832 ; 8255 P.T C...
,.;.A.6.;...@.JMP DEMO ; TESTPROGRAM
M...J.JMP RESE.UT ; RESET FUER AUSGABE.+
.T.JMP AUSGABE ; AUSGABE DAP1.DAP3.Q.^.
JMP RESETIN ; RESET FUER EINGABE.V.H.JM
P EINGABE ; 8255 IN DAP1.DAP3...R.JMP F
ARBE ; AUSGABE MUSTER...|.JMP BSCH. ;
BILDSCHIRM AUFBAUEN.B...;.....RESET
;RESET ALLGEMEIN.....SEI
;IRQ VERHINDERN.,...LDA D1 ;P.TA,
PA2.AUSGABE.6....A #4.A...STA D1.G.B.;.
G.L.LDA #255 ;P.TB.AUSGABE.R.V.STA
D2.X...;.....LDA PA.....PHA ;P
.TA MERKEN......A #%00000100.R...STA PA
;WAEHLT4042.....LDA #%00001110;.
. FUER 8255.....STA PB ;IST STEUE
RBEFEHL.".&.LDA PA.3.0.. #%11111011.R.:.
STA PA ;WAEHLT 8255.X.D.;.^.N.;..
.X.LDA BTR ;STEUERBEFEHL FUER...B.
.A #%10000000; 8255...L.STA PB...V.;.N
...LDA #0 ;P.TB.EINGABE.Y...STA D
2.....PLA ;P.TA.....STA PA
;ALTER WERT.....CLI.....RTS.%...;.1.
F.FLAG. 0.Q.P.BTR .%00000000;STEUERBEFEH
L.Q.Z..IKO ;AUSGABEBEFEHLE......%
00000010,%00000110,%00001010.....;.....O
UT ;AUSGABE.....SEI.C...;.....
LDX #0 ;SCHLE.E .0... .LDA #255
;P.TB . AUSGABE...*.STA D2...4.LDA P
A.9.>.PHA ;P.T A MERKEN.[.H.LO
UT1 ;BEGINN SCHLE.E.F.R.LDA PA.X
.\..A #%00000100...F.STA PA ;WAEH
LT 4042...P.LDA .IKO,X ;DATEN .D AUSGAB
EN.X.Z.STA PB ; FUER 8255.....LDA
PA...... #%11111011.....STA PA ;
WAEHLT 8255.4...LDA DAP1,X ;DATEN AN
8255.?...STA PB.G...INX.R...CPX #3.P.J.B
NE LOUT1 ;SCHLE.EN.E.{.T.LDA #0.....
STA D2 ;PB . EINGABE.....PLA.F...
STA PA ;PA . ALTER WERT.N...CLI..
...RTS ;.E OUT.....;.....BSCH.
;HOLT BILDSCHIRM...$.LDA #11.&...STA
53280.4.8.STA 53281.A.B.LDA #".".P.L.JS
R CHROUT.].V.LDA #".".L.`.JSR CHROUT.R.J
.;...T.LDA #.BSCH...~.LDX #.BSCH.....STA
ZP1.....STX ZP1.1.....LDA #.BUFFER.L...
LDX #.BUFFER.X...STA ZP2.....STX ZP2.1..
.D.;...N.LDX #3...X.LDY #0.....BSLO1....
.LDA (ZP2),Y.,...STA (ZP1),Y.4...INY.B..
.BNE BSLO1.P...INC ZP1.1.^...INC ZP2.1.F
.(.DEX.T.2.BNE BSLO1.|.<.RTS...F.;...P.T
BS ."QWERTYUIOP@*ASDFGHJKL:;=".J.Z.TBR .
.QWERTYUIOP@.ASDFGHJKL:;.....D.TBZ .'QWE
RTYUIOP@.ASDFGHJKL:;.'...N.T.L..321,.324
,.327,.330,.333.2.X...336,.339,.342,.348
,.351,.354.U.....357,.522,.525,.528,.531
,.534.X.....537,.540,.543,.546,.549,.552
.......555... .;.....T.H..321,.324,.327,
.330,.333.L.....336,.339,.342,.348,.351,
.354.......357,.522,.525,.528,.531,.534.
..H...537,.540,.543,.546,.549,.552...R..
.555."...;.E...TBYTE .1,1,1,1,1,2,2,2,0,
0,0,0.B....1,1,1,2,2,2,2,2,0,0,0,0.....T
BIT .8,16,32,64,128,2,16,64......1,2,4,1
6,4,2,1,8,4,1,32,128......128,64,32,8.F.
..ZEICHEN .0,0...".TE1. . DATEN LESE
N (C)M&T..*.,.TE2. . DA
TEN AUSGEBEN (C)M&T ..N.6.T
EA. .FEHLER ! P.T IST EINGABE..T.@.;.W.J
.DEMO ;EINSP.G TESTPRG...T.LDA
#1...^.STA FLAG...H.LDA #87...R.STA ZEIC
HEN...|.LDA #81.I...STA ZEICHEN.1.T...LD
A #0.....STA BTR.....JSR RESET.....JSR B
SCH......LDX #0...B.TEL2...L.LDA TE2,X.-
.V.STA BSCH,X.5...INX.A...CPX #40.N...BN
E TEL2.T...;._...LDA #0.I...BSET0.V...ST
A DAP1...&.STA DAP2...0.STA DAP3...:.CHA
NGE...D.JSR FARBE...N.BSET2...X.JSR OUT.
I.B.BSET1.T.L.LDA #0...V.STA 198.....TAL
.....LDA 198.....BEQ TAL.....;.....LDA #
0.....STA 198.)...LDA 631.1.F.SEC.<.P.CM
P #3.J.Z.BNE SKIP1.W...LDA #".".F...JMP
CHROUT.N...RTS.X...SKIP1.....SEC.....CMP
#"."... .BNE SKIP2...*.LDA #0...4.JMP B
SET0...>.SKIP2.F.H.SEC.R.R.CMP #32...\.B
NE SKIP3...F.LDX #0...P.CHAL1...Z.LDA DA
P1,X.....E. #255.....STA DAP1,X.'...INX.
2...CPX #3.@...BNE CHAL1.O...JMP CHANGE.
Y...SKIP3.A.J.SEC.N.T.CMP #".".|...BNE S
KIP4.....JMP E.EST.....;.....SKIP4. ...;
.....LDX #0.....BSWERT...$.SEC.L...CMP T
BS,X...8.BEQ BSE.UT...B.INX...L.CPX #24.
..V.BNE BSWERT...`.BEQ BSET1...J.;...T.B
SE.UT.-.~.LDA TBYTE,X.5...TAY.D...LDA DA
P1,Y.R...E. TBIT,X.A...STA DAP1,Y.Q...JS
R FARBSET....JMP BSET2...D.;...N.FARBSE
T. .X.LDA #.BSCH.....STA ZP1.....LDA #.B
SCH.I...STA ZP1.1.W...LDA T.L,X.....CLC.
....ADC ZP1.....STA ZP1...(.BCC BSL1...2
.INC ZP1.1...<.BSL1.).F.LDA T.H,X.1.P.CL
C.?.Z.ADC ZP1.1.M.D.STA ZP1.1.S.N.;._.X.
LDA ZP1.K...STA ZP2.Y...LDA ZP1.1.....CL
C... .ADC #$D4.....STA ZP2.1.....;.....L
DA TBYTE,X...H.TAY.I.R.LDA DAP1,Y.V....
TBIT,X.....BNE GESETZT.....LDY #0.....LD
A ZEICHEN.....STA (ZP1),Y.....LDA #5.,..
.STA (ZP2),Y.9.".LDA FLAG.G.,.BEQ QUIT1.
O.6.INY.].@.LDA TBZ,X.M.J.STA (ZP1),Y.Y.
T.LDA #13...^.STA (ZP2),Y...H.QUIT1...R.
RTS...|.;.....GESETZT.....LDY #0.J...LDA
ZEICHEN.1.Z...STA (ZP1),Y.....LDA #26..
...STA (ZP2),Y...B.LDA FLAG...L.BEQ QUIT
1...V.INY.'...LDA TBR,X.7...STA (ZP1),Y.
B...LDA #1.R...STA (ZP2),Y.Z...RTS.`...;
.....FARBE ;EINSP.G BELEGUNG...
&.LDX #0...0.FAL1...:.JSR FARBSET...D.IN
X...N.CPX #24.J.X.BNE FAL1.R.B.RTS.X.L.;
...V..IKI ;EINGABEBEFEHLE......%
00000001,%00000101,%00001001."...;.F...I
N ;EINSP.G EINGABE.N...SEI.T
...;._...LDX #0.J...LDA PA...F.PHA
;PA MERKEN...P.LIN1 ;BEG
INN SCHLE.E...Z.LDA PA......A #%00000100
;SCHALTET AUF 4042.....STA PA.....LDA #
255.....STA D2 ;PB.AUSGABE.2...L
DA .IKI,X ;. IST EINGABE.P...STA PB
;FUER 8255.[. .LDA PA.L.*.. #%1111
1011...4.STA PA ;SCHALTET AUF 82
55...>.LDA #0...H.STA D2 ;PB . E
INGABE...R.LDA PB ;WERT V. PB...
\.STA DAP1,X ;AUF DAP1.DAP3...F.INX.
..P.CPX #3.1.Z.BNE LIN1 ;.E SCHLE.
E.9...PLA.]...STA PA ;PA . ALTER
WERT.E...CLI.M...RTS.S...;.....E.EST
; EINSP.G.....JSR BSCH. ;EINGABET
EST...J.LDX #0...T.TEL1.M...LDA TE1,X...
..STA BSCH,X.....INX.....CPX #40.....BNE
TEL1.....;.)...LDA #%00011011 ;STEUERBE
FEHL 8255.O.$.STA BTR ;ALLE P.TS
EINGABE.]...JSR RESET.J.8.LDA #100.Z.B.S
TA ZEICHEN...L.LDA #234...V.STA ZEICHEN.
1...`.;...J.LDA #0...T.STA 198...~.;.E..
.TAL1.Q...LDA 198.....BEQ TAL2.....;....
.LDA #0.....STA 198.. D.LDA 631.. N.SEC.
. X.CMP #3.' ..BNE TAL3.4 ..LDA #".".C .
.JMP CHROUT.K ..RTS.Q ..;.Z ..TAL3.B ..S
EC.O (.CMP #".".| 2.BNE TAL1.. <.;.. F.J
MP DEMO.. P.;.. Z.TAL2.. D.JSR IN.. N.JS
R FARBE.D X.JMP TAL1.J ..;.P ..;.. ..RES
E.UT ;EINSP.G RESET..! .LDA #0
;FUER AUSGABE..!..STA FLAG.)!..LDA #8
7.9!..STA ZEICHEN.E!H.LDA #81.W!R.STA ZE
ICHEN.1.|!..LDA #0 ;STEUERBEFEHL
8255..!..STA BTR ;ALLE P.TS.AUSGAB
E.F!..STA DAP1 ;HILFSREGISTER 1.0..
!..STA DAP2 ; 2.0.."..
STA DAP3 ; 3.0.."..JMP
RESET.$"..;.J"".RESETIN ;EINSPR.R
ESET EING..U",.LDA #0.B"6.STA FLAG.."@.L
DA #%00011011;8255 ALLE P.TS.."J.STA BTR
;EINGABE.."T.JSR RESET.."^.LDA #1
00.J"H.STA ZEICHEN.W"R.LDA #234.."|.STA
ZEICHEN.1.."..JSR RESET..#..JMP IN..#..;
..#..AUSG1..#..JMP OUT.$#..;.C#B.AUSGABE
;EINSP.G AUSGABE.`#L.LDA BTR ;FALLS
BTR ..0.N#V.BEQ AUSG1.T#..;..#..LDX #22
;TYPE MISMATCH ERR...#..JMP $A43A ;AU
SGEBEN..#..;..#..EING1.I#..JMP IN.O#..;.
.#&.EINGABE ;EINSP.G EINGABE..$0.LDA B
TR ;FALLS BTR ..0..$:.BNE EING1..$D.;.
A$N.LDX #22 ;TYPE MISMATCH ERR..Y$X.JM
P $A43A ;AUSGEBEN...
> CLICK IMAGE PREVIEW FOR FULL MODAL