INTERFACE SOURCE
FILE INFORMATION
FILENAME(S): INTERFACE SOURCE
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 01:12:35
APPEARS ON: 2 disk(s)
FILE HASH
81ecd1cb09b6fe7151904aeb1ecec29fcb85eeb5262b5895b8f359e8b457302d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 3 86 | INTERFACE SOURCE | PRG | C64er | 13 | 4 | DOWNLOAD FILE |
| AUSGABE 3 86 | INTERFACE SOURCE | PRG | DuncanTwain | 13 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 20 0C 20 60 04 9E 33 36 38 36 34 00 1A 20 6A |. . `..36864.. j|
00000010: 04 2E 4F 50 54 20 50 2C 4F 4F 00 27 20 74 04 AC |..OPT P,OO.' t..|
00000020: B2 20 24 31 34 30 30 00 31 20 7E 04 3B 3A 3B 3A |. $1400.1 ~.;:;:|
00000030: 3B 00 58 20 88 04 3B 22 20 2A 2A 2A 2A 2A 2A 2A |;.X ..;" *******|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 00 80 20 92 04 3B 22 2A |********.. ..;"*|
00000060: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A | ***|
00000080: 00 A8 20 9C 04 3B 22 2A 2A 2A 20 C3 45 4E 54 52 |.. ..;"*** .ENTR|
00000090: 4F 4E 49 43 53 2D C9 4E 54 45 52 46 41 43 45 20 |ONICS-.NTERFACE |
000000A0: C3 31 32 38 20 2A 2A 2A 00 D0 20 A6 04 3B 22 2A |.128 ***.. ..;"*|
000000B0: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A | ***|
000000D0: 00 F7 20 B0 04 3B 22 20 2A 2A 2A 2A 2A 2A 2A 2A |.. ..;" ********|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 2A 2A 2A 2A 2A 2A 00 1F 21 BA 04 3B 22 2A 2A |*******..!..;"**|
00000100: 2A 20 57 52 49 54 54 45 4E 20 42 59 20 20 CD 41 |* WRITTEN BY .A|
00000110: 52 43 55 53 20 C8 45 49 4E 5A 45 20 2A 2A 2A 00 |RCUS .EINZE ***.|
00000120: 47 21 C4 04 3B 22 2A 2A 2A 20 20 20 20 20 20 20 |G!..;"*** |
00000130: 20 20 20 20 20 20 D6 4F 47 45 4C 48 45 52 44 20 | .OGELHERD |
00000140: 39 37 41 20 2A 2A 2A 00 6F 21 CE 04 3B 22 2A 2A |97A ***.o!..;"**|
00000150: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 38 35 |* 85|
00000160: 32 30 20 C5 52 4C 41 4E 47 45 4E 20 2A 2A 2A 00 |20 .RLANGEN ***.|
00000170: 96 21 D8 04 3B 22 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.!..;" *********|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000190: 2A 2A 2A 2A 2A 2A 00 9C 21 D9 04 3B 00 A2 21 DA |******..!..;..!.|
000001A0: 04 3B 00 A8 21 DB 04 3B 00 D9 21 E2 04 3B 22 20 |.;..!..;..!..;" |
000001B0: C5 53 20 53 54 45 48 45 4E 20 46 4F 4C 47 45 4E |.S STEHEN FOLGEN|
000001C0: 44 45 20 CB 41 4E 5B 4C 45 20 5A 55 52 20 D6 45 |DE .AN[LE ZUR .E|
000001D0: 52 46 5D 47 55 4E 47 20 3A 00 FA 21 EC 04 3B 22 |RF]GUNG :..!..;"|
000001E0: 20 31 2E 20 C4 49 52 45 4B 54 4B 41 4E 41 4C 20 | 1. .IREKTKANAL |
000001F0: 3A 20 CF D0 C5 CE 20 31 2C 35 00 47 22 F6 04 3B |: .... 1,5.G"..;|
00000200: 22 20 20 20 20 20 20 20 C8 49 45 52 20 57 45 52 |" .IER WER|
00000210: 44 45 4E 20 41 4C 4C 45 20 C3 4F 44 45 53 20 55 |DEN ALLE .ODES U|
00000220: 4E 47 45 57 41 4E 44 45 4C 54 20 41 4E 20 44 45 |NGEWANDELT AN DE|
00000230: 4E 20 C4 52 55 43 4B 45 52 20 57 45 49 54 45 52 |N .RUCKER WEITER|
00000240: 47 45 47 45 42 45 4E 00 7F 22 F7 04 3B 22 20 20 |GEGEBEN.."..;" |
00000250: 20 20 20 20 20 28 4E 5C 54 49 47 20 46 5D 52 20 | (N\TIG F]R |
00000260: C8 41 52 44 43 4F 50 49 45 53 20 55 4E 44 20 C5 |.ARDCOPIES UND .|
00000270: D3 C3 C1 D0 C5 53 45 51 55 45 4E 5A 45 4E 29 00 |.....SEQUENZEN).|
00000280: 86 22 F8 04 3B 22 00 AA 22 00 05 3B 22 20 32 2E |."..;".."..;" 2.|
00000290: 20 D7 41 4E 44 4C 55 4E 47 53 4B 41 4E 41 4C 20 | .ANDLUNGSKANAL |
000002A0: 3A 20 CF D0 C5 CE 20 31 2C 34 00 F9 22 0A 05 3B |: .... 1,4.."..;|
000002B0: 22 20 20 20 20 20 20 20 CE 55 4E 20 57 45 52 44 |" .UN WERD|
000002C0: 45 4E 20 44 49 45 20 DA 45 49 43 48 45 4E 20 4A |EN DIE .EICHEN J|
000002D0: 45 20 4E 41 43 48 20 57 41 48 4C 20 44 45 52 20 |E NACH WAHL DER |
000002E0: C1 D3 C3 C9 C9 2F C4 C9 CE 20 D4 41 53 54 45 20 |...../... .ASTE |
000002F0: 47 45 57 41 4E 44 45 4C 54 00 44 23 14 05 3B 22 |GEWANDELT.D#..;"|
00000300: 20 20 20 20 20 20 20 55 4E 44 20 41 55 46 20 44 | UND AUF D|
00000310: 45 4D 20 C4 52 55 43 4B 45 52 20 41 55 53 47 45 |EM .RUCKER AUSGE|
00000320: 47 45 42 45 4E 2E 20 C4 41 53 20 C9 4E 54 45 52 |GEBEN. .AS .NTER|
00000330: 46 41 43 45 20 45 52 4B 45 4E 4E 54 20 53 45 4C |FACE ERKENNT SEL|
00000340: 42 53 54 2D 00 83 23 1E 05 3B 22 20 20 20 20 20 |BST-..#..;" |
00000350: 20 20 53 54 5B 4E 44 49 47 2C 20 4F 42 20 44 49 | ST[NDIG, OB DI|
00000360: 45 20 D5 4D 4C 41 55 54 45 20 41 55 53 47 45 47 |E .MLAUTE AUSGEG|
00000370: 45 42 45 4E 20 57 45 52 44 45 4E 20 4D 5D 53 53 |EBEN WERDEN M]SS|
00000380: 45 4E 2E 00 8B 23 1F 05 3B 3A 3B 00 A1 23 20 05 |EN...#..;:;..# .|
00000390: 3B 22 C4 41 53 20 D3 54 45 55 45 52 42 59 54 45 |;".AS .TEUERBYTE|
000003A0: 3A 00 D0 23 21 05 3B 22 20 20 20 20 20 20 20 C8 |:..#!.;" .|
000003B0: 45 58 20 24 31 34 30 37 20 2D 20 C4 45 5A 20 35 |EX $1407 - .EZ 5|
000003C0: 31 32 37 20 3A 20 20 20 30 30 30 30 31 31 30 30 |127 : 00001100|
000003D0: 00 FF 23 22 05 3B 22 20 20 20 20 20 20 20 20 20 |..#".;" |
000003E0: 20 20 20 20 20 20 20 20 20 C2 49 54 4E 55 4D 4D | .ITNUMM|
000003F0: 45 52 4E 3A 20 20 20 37 36 35 34 33 32 31 30 00 |ERN: 76543210.|
00000400: 4F 24 23 05 3B 22 20 20 20 20 20 20 20 C2 49 54 |O$#.;" .IT|
00000410: 20 32 20 3A 20 C9 53 54 20 45 53 20 47 45 53 45 | 2 : .ST ES GESE|
00000420: 54 5A 54 2C 20 53 4F 20 57 49 52 44 20 4E 41 43 |TZT, SO WIRD NAC|
00000430: 48 20 4A 45 44 45 4D 20 3C 43 41 52 52 49 41 47 |H JEDEM <CARRIAG|
00000440: 45 20 52 45 54 55 52 4E 3E 28 3D 24 30 44 29 00 |E RETURN>(=$0D).|
00000450: 88 24 24 05 3B 22 20 20 20 20 20 20 20 20 20 20 |.$$.;" |
00000460: 20 20 20 20 20 45 49 4E 20 5A 55 53 5B 54 5A 4C | EIN ZUS[TZL|
00000470: 49 43 48 45 53 20 CC 49 4E 45 20 C6 45 45 44 20 |ICHES .INE .EED |
00000480: 41 55 53 47 45 42 45 4E 00 D6 24 25 05 3B 22 20 |AUSGEBEN..$%.;" |
00000490: 20 20 20 20 20 20 C2 49 54 20 33 20 3A 20 C9 53 | .IT 3 : .S|
000004A0: 54 20 45 53 20 47 45 53 45 54 5A 54 2C 20 53 4F |T ES GESETZT, SO|
000004B0: 20 57 49 52 44 20 44 41 53 20 C9 4E 54 45 52 46 | WIRD DAS .NTERF|
000004C0: 41 43 45 20 42 45 49 20 3C 52 45 53 54 4F 52 45 |ACE BEI <RESTORE|
000004D0: 3E 20 4F 44 45 52 00 11 25 26 05 3B 22 20 20 20 |> ODER..%&.;" |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 3C D2 55 4E | <.UN|
000004F0: D3 54 4F 50 3E 2B 3C D2 45 53 54 4F 52 45 3E 20 |.TOP>+<.ESTORE> |
00000500: 4E 45 55 20 49 4E 49 54 49 41 4C 49 53 49 45 52 |NEU INITIALISIER|
00000510: 54 00 17 25 27 05 3B 00 25 25 28 05 99 20 B2 20 |T..%'.;.%%(.. . |
00000520: 24 46 46 44 32 00 2D 25 32 05 3B 3A 3B 00 5F 25 |$FFD2.-%2.;:;._%|
00000530: 3C 05 4A 4D 50 20 49 4E 49 54 20 20 3B 45 49 4E |<.JMP INIT ;EIN|
00000540: 53 43 48 41 4C 54 45 4E 20 44 45 53 20 4E 54 45 |SCHALTEN DES NTE|
00000550: 52 46 41 43 45 53 20 B2 20 9E 20 35 31 32 30 00 |RFACES . . 5120.|
00000560: 91 25 46 05 4A 4D 50 20 45 58 49 54 20 20 3B 41 |.%F.JMP EXIT ;A|
00000570: 55 53 53 43 48 41 4C 54 45 4E 20 44 45 53 20 4E |USSCHALTEN DES N|
00000580: 54 45 52 46 41 43 45 53 20 B2 20 9E 20 35 31 32 |TERFACES . . 512|
00000590: 33 00 AE 25 50 05 53 54 45 55 45 52 20 2E 42 59 |3..%P.STEUER .BY|
000005A0: 54 45 20 25 30 30 30 30 30 30 30 30 20 3B 00 B4 |TE %00000000 ;..|
000005B0: 25 5A 05 3B 00 C1 25 6E 05 49 4E 49 54 20 53 45 |%Z.;..%n.INIT SE|
000005C0: 49 00 DE 25 78 05 4C 44 41 20 23 24 46 46 20 20 |I..%x.LDA #$FF |
000005D0: 3B 20 49 AD 4F 20 52 45 47 49 53 54 45 52 00 F8 |; I.O REGISTER..|
000005E0: 25 82 05 53 54 41 20 24 44 44 30 33 20 3B 20 50 |%..STA $DD03 ; P|
000005F0: B0 54 20 42 20 41 55 46 00 17 26 8C 05 4C 44 41 |.T B AUF..&..LDA|
00000600: 20 24 44 44 30 32 20 3B 20 41 55 53 47 41 4E 47 | $DD02 ; AUSGANG|
00000610: 20 53 45 54 5A 45 4E 00 26 26 96 05 B0 41 20 23 | SETZEN.&&...A #|
00000620: 24 30 34 20 20 3B 00 36 26 A0 05 53 54 41 20 24 |$04 ;.6&..STA $|
00000630: 44 44 30 32 20 3B 00 3C 26 AA 05 3B 00 5D 26 B4 |DD02 ;.<&..;.]&.|
00000640: 05 4C 44 41 20 23 B3 9F 20 20 3B 4B 41 4E 41 4C |.LDA #.. ;KANAL|
00000650: 20 46 55 45 52 20 41 55 53 47 41 42 45 00 78 26 | FUER AUSGABE.x&|
00000660: BE 05 53 54 41 20 24 30 33 32 30 20 3B 41 55 46 |..STA $0320 ;AUF|
00000670: 20 B5 45 52 46 41 43 45 00 8C 26 C8 05 4C 44 41 | .ERFACE..&..LDA|
00000680: 20 23 B1 9F 20 3B 53 45 54 5A 45 4E 00 A9 26 D2 | #.. ;SETZEN..&.|
00000690: 05 53 54 41 20 24 30 33 32 31 20 3B 28 43 4B 4F |.STA $0321 ;(CKO|
000006A0: 55 54 20 56 45 43 A4 52 29 00 AF 26 DC 05 3B 00 |UT VEC.R)..&..;.|
000006B0: CE 26 E6 05 4C 44 41 20 23 B3 4F 55 54 50 55 54 |.&..LDA #.OUTPUT|
000006C0: 20 3B 4F 55 54 50 55 54 20 56 45 43 A4 52 00 E9 | ;OUTPUT VEC.R..|
000006D0: 26 F0 05 53 54 41 20 24 30 33 32 36 20 3B 41 55 |&..STA $0326 ;AU|
000006E0: 46 20 B5 45 52 46 41 43 45 00 02 27 FA 05 4C 44 |F .ERFACE..'..LD|
000006F0: 41 20 23 B1 4F 55 54 50 55 54 20 3B 53 45 54 5A |A #.OUTPUT ;SETZ|
00000700: 45 4E 00 12 27 04 06 53 54 41 20 24 30 33 32 37 |EN..'..STA $0327|
00000710: 20 3B 00 2D 27 0E 06 4C 44 58 20 23 24 30 30 20 | ;.-'..LDX #$00 |
00000720: 20 3B 9E 54 45 4D 4D 45 4C 44 55 4E 47 00 33 27 | ;.TEMMELDUNG.3'|
00000730: 18 06 3B 00 47 27 22 06 4C 30 30 20 4C 44 41 20 |..;.G'".L00 LDA |
00000740: 54 45 58 54 2C 58 3B 00 52 27 2C 06 4A 53 52 20 |TEXT,X;.R',.JSR |
00000750: 99 3B 00 5C 27 36 06 49 4E 58 20 3B 00 6B 27 40 |.;.\'6.INX ;.k'@|
00000760: 06 43 4D 50 20 23 24 30 30 20 3B 00 78 27 4A 06 |.CMP #$00 ;.x'J.|
00000770: 42 4E 45 20 4C 30 30 3B 00 7E 27 54 06 3B 00 9A |BNE L00;.~'T.;..|
00000780: 27 5E 06 4C 44 41 20 23 B3 4E 4D 49 53 54 52 20 |'^.LDA #.NMISTR |
00000790: 3B 4E 4D 49 20 56 45 43 A4 52 00 B4 27 68 06 53 |;NMI VEC.R..'h.S|
000007A0: 54 41 20 24 30 33 31 38 3B 41 55 46 20 B5 45 52 |TA $0318;AUF .ER|
000007B0: 46 41 43 45 00 CD 27 72 06 4C 44 41 20 23 B1 4E |FACE..'r.LDA #.N|
000007C0: 4D 49 53 54 52 20 3B 53 45 54 5A 45 4E 00 DC 27 |MISTR ;SETZEN..'|
000007D0: 7C 06 53 54 41 20 24 30 33 31 39 3B 00 E2 27 86 ||.STA $0319;..'.|
000007E0: 06 3B 00 EA 27 90 06 43 4C 49 00 F2 27 9A 06 52 |.;..'..CLI..'..R|
000007F0: 54 53 00 F8 27 A4 06 3B 00 12 28 B8 06 4E 4D 49 |TS..'..;..(..NMI|
00000800: 53 54 52 20 4C 44 41 20 23 25 30 30 30 30 31 30 |STR LDA #%000010|
00000810: 30 30 00 1F 28 C2 06 AF 20 53 54 45 55 45 52 00 |00..(... STEUER.|
00000820: 2A 28 CC 06 42 45 51 20 4C 31 00 3B 28 D6 06 43 |*(..BEQ L1.;(..C|
00000830: 4C 49 3A 4A 53 52 20 49 4E 49 54 00 4B 28 E0 06 |LI:JSR INIT.K(..|
00000840: 4A 4D 50 20 28 24 30 41 30 30 29 00 70 28 EA 06 |JMP ($0A00).p(..|
00000850: 4C 31 20 4A 4D 50 20 24 46 41 34 30 20 3B 4E 4D |L1 JMP $FA40 ;NM|
00000860: 49 20 52 4F 55 54 49 4E 45 20 4B 45 52 4E 41 4C |I ROUTINE KERNAL|
00000870: 00 76 28 F4 06 3B 00 A5 28 08 07 9F 20 4A 53 52 |.v(..;..(... JSR|
00000880: 20 24 46 32 30 32 3B 53 55 43 48 54 20 BC 49 53 | $F202;SUCHT .IS|
00000890: 43 48 45 20 46 49 C3 55 4D 4D 45 52 20 28 20 49 |CHE FI.UMMER ( I|
000008A0: 4E 20 58 20 29 00 CC 28 12 07 42 45 51 20 4F 50 |N X )..(..BEQ OP|
000008B0: 4E 3B 47 45 46 55 4E 44 45 4E 20 AB B1 20 41 55 |N;GEFUNDEN .. AU|
000008C0: 53 47 41 42 45 20 53 45 54 5A 45 4E 00 F8 28 1C |SGABE SETZEN..(.|
000008D0: 07 4A 4D 50 20 24 46 36 38 32 3B 20 42 45 54 52 |.JMP $F682; BETR|
000008E0: 49 45 42 53 9E 54 45 4D 4D 45 4C 44 55 4E 47 20 |IEBS.TEMMELDUNG |
000008F0: 41 55 53 47 45 42 45 4E 00 FE 28 26 07 3B 00 18 |AUSGEBEN..(&.;..|
00000900: 29 30 07 4F 50 4E 20 4A 53 52 20 24 46 32 31 32 |)0.OPN JSR $F212|
00000910: 3B 46 4C 50 41 52 41 4D 00 37 29 3A 07 4C 44 41 |;FLPARAM.7):.LDA|
00000920: 20 24 42 41 20 20 3B 41 4B 54 55 45 4C 4C 45 53 | $BA ;AKTUELLES|
00000930: 20 47 45 52 41 45 54 00 3D 29 44 07 3B 00 56 29 | GERAET.=)D.;.V)|
00000940: 4E 07 43 4D 50 20 23 24 30 34 20 20 20 20 20 3B |N.CMP #$04 ;|
00000950: 20 B2 34 20 22 3F 00 6E 29 58 07 42 4E 45 20 4C | .4 "?.n)X.BNE L|
00000960: 30 32 20 20 20 20 20 20 3B 20 4E 45 49 4E 00 A8 |02 ; NEIN..|
00000970: 29 62 07 4A 4D 50 20 4C 30 35 20 20 20 20 20 20 |)b.JMP L05 |
00000980: 3B 20 4A 41 20 2C 20 4E 55 4D 4D 45 52 20 44 45 |; JA , NUMMER DE|
00000990: 53 20 41 55 53 47 41 42 45 47 45 52 41 45 54 45 |S AUSGABEGERAETE|
000009A0: 53 20 53 45 54 5A 45 4E 00 AE 29 6C 07 3B 00 C8 |S SETZEN..)l.;..|
000009B0: 29 76 07 4C 30 32 20 43 4D 50 20 23 24 30 35 20 |)v.L02 CMP #$05 |
000009C0: 20 3B 20 B2 35 20 22 3F 00 E0 29 80 07 42 4E 45 | ; .5 "?..)..BNE|
000009D0: 20 4C 30 33 20 20 20 20 20 20 3B 20 4E 45 49 4E | L03 ; NEIN|
000009E0: 00 1A 2A 8A 07 4A 4D 50 20 4C 30 35 20 20 20 20 |..*..JMP L05 |
000009F0: 20 20 3B 20 4A 41 20 2C 20 4E 55 4D 4D 45 52 20 | ; JA , NUMMER |
00000A00: 44 45 53 20 41 55 53 47 41 42 45 47 45 52 41 45 |DES AUSGABEGERAE|
00000A10: 54 45 53 20 53 45 54 5A 45 4E 00 20 2A 94 07 3B |TES SETZEN. *..;|
00000A20: 00 55 2A C6 07 4C 30 33 20 4A 4D 50 20 24 46 31 |.U*..L03 JMP $F1|
00000A30: 35 36 20 3B 4E 55 4D 4D 45 52 20 44 45 53 20 41 |56 ;NUMMER DES A|
00000A40: 55 53 47 41 42 45 47 45 52 41 45 54 45 53 20 53 |USGABEGERAETES S|
00000A50: 45 54 5A 45 4E 00 97 2A D0 07 3B 20 56 45 52 4B |ETZEN..*..; VERK|
00000A60: 55 45 52 5A 54 45 53 20 43 4B 4F 55 54 3B 20 4D |UERZTES CKOUT; M|
00000A70: 49 54 20 55 45 42 45 52 50 52 55 45 46 55 4E 47 |IT UEBERPRUEFUNG|
00000A80: 20 4F 42 20 41 55 46 20 42 49 4C 44 53 43 48 49 | OB AUF BILDSCHI|
00000A90: 52 4D 2C 20 55 53 57 00 CD 2A DA 07 4C 30 35 20 |RM, USW..*..L05 |
00000AA0: 4A 4D 50 20 24 46 31 36 39 20 3B 20 4E 55 4D 4D |JMP $F169 ; NUMM|
00000AB0: 45 52 20 44 45 53 20 41 55 53 47 41 42 45 47 45 |ER DES AUSGABEGE|
00000AC0: 52 41 45 54 45 53 20 53 45 54 5A 45 4E 00 D3 2A |RAETES SETZEN..*|
00000AD0: E4 07 3B 00 EF 2A F8 07 4F 55 54 50 55 54 20 50 |..;..*..OUTPUT P|
00000AE0: 48 41 20 3B 41 4B 4B 55 20 52 45 54 54 45 4E 00 |HA ;AKKU RETTEN.|
00000AF0: 14 2B 02 08 4C 44 41 20 24 39 41 20 3B 41 4B 54 |.+..LDA $9A ;AKT|
00000B00: 55 45 4C 4C 45 20 47 45 52 41 45 54 45 20 4E 55 |UELLE GERAETE NU|
00000B10: 4D 4D 45 52 00 21 2B 0C 08 43 4D 50 20 23 24 30 |MMER.!+..CMP #$0|
00000B20: 34 00 2D 2B 16 08 42 4E 45 20 4C 30 36 00 3C 2B |4.-+..BNE L06.<+|
00000B30: 20 08 4A 4D 50 20 50 52 4C 45 4C 4C 00 4D 2B 2A | .JMP PRLELL.M+*|
00000B40: 08 4C 30 36 20 43 4D 50 20 23 24 30 35 00 59 2B |.L06 CMP #$05.Y+|
00000B50: 34 08 42 4E 45 20 4C 30 39 00 67 2B 3E 08 4A 4D |4.BNE L09.g+>.JM|
00000B60: 50 20 44 52 55 43 4B 00 73 2B 66 08 4C 30 39 20 |P DRUCK.s+f.L09 |
00000B70: 50 4C 41 00 84 2B 70 08 4A 4D 50 20 24 45 46 37 |PLA..+p.JMP $EF7|
00000B80: 39 20 3B 99 00 8A 2B 7A 08 3B 00 90 2B 10 09 3B |9 ;...+z.;..+..;|
00000B90: 00 A9 2B 24 09 50 52 4C 45 4C 4C 20 50 4C 41 3A |..+$.PRLELL PLA:|
00000BA0: 4A 53 52 20 43 4F 44 45 57 00 B6 2B 2E 09 43 4D |JSR CODEW..+..CM|
00000BB0: 50 20 23 24 30 44 00 C2 2B 38 09 42 45 51 20 4C |P #$0D..+8.BEQ L|
00000BC0: 31 33 00 D1 2B 42 09 4A 4D 50 20 44 52 55 43 4B |13..+B.JMP DRUCK|
00000BD0: 45 00 FD 2B 4C 09 4C 31 33 20 4C 44 41 20 23 25 |E..+L.L13 LDA #%|
00000BE0: 30 30 30 30 30 31 30 30 20 20 3B 20 41 55 46 20 |00000100 ; AUF |
00000BF0: 5A 55 53 41 45 54 5A 4C 49 43 48 45 53 00 27 2C |ZUSAETZLICHES.',|
00000C00: 56 09 AF 20 53 54 45 55 45 52 20 20 20 20 20 20 |V.. STEUER |
00000C10: 20 20 20 20 3B 20 4C 49 4E 45 20 46 45 45 44 20 | ; LINE FEED |
00000C20: 50 52 55 45 46 45 4E 00 33 2C 60 09 42 4E 45 20 |PRUEFEN.3,`.BNE |
00000C30: 4C 31 35 00 40 2C 6A 09 4C 44 41 20 23 24 30 44 |L15.@,j.LDA #$0D|
00000C40: 00 4C 2C 74 09 4A 4D 50 20 4C 31 34 00 5D 2C 7E |.L,t.JMP L14.],~|
00000C50: 09 4C 31 35 20 4C 44 41 20 23 24 30 41 00 6C 2C |.L15 LDA #$0A.l,|
00000C60: 88 09 4A 53 52 20 44 52 55 43 4B 45 00 79 2C 92 |..JSR DRUCKE.y,.|
00000C70: 09 4C 44 41 20 23 24 30 44 00 8C 2C 9C 09 4C 31 |.LDA #$0D..,..L1|
00000C80: 34 20 4A 4D 50 20 44 52 55 43 4B 45 00 92 2C A6 |4 JMP DRUCKE..,.|
00000C90: 09 3B 00 B2 2C C4 09 43 4F 44 45 57 20 43 4D 50 |.;..,..CODEW CMP|
00000CA0: 20 23 32 39 3B 20 20 43 55 52 53 B0 20 52 49 47 | #29; CURS. RIG|
00000CB0: 48 54 00 BD 2C CE 09 42 4E 45 20 43 57 00 D7 2C |HT..,..BNE CW..,|
00000CC0: D8 09 4C 44 41 20 23 33 32 20 20 20 20 20 20 3B |..LDA #32 ;|
00000CD0: 20 B2 53 50 41 43 45 00 FA 2C E2 09 43 57 20 43 | .SPACE..,..CW C|
00000CE0: 4D 50 20 23 24 38 30 20 20 3B 20 47 52 4F 45 53 |MP #$80 ; GROES|
00000CF0: 53 45 52 20 31 32 37 20 22 3F 00 0A 2D EC 09 42 |SER 127 "?..-..B|
00000D00: 50 4C 20 4C 31 36 20 20 20 3B 00 26 2D F6 09 43 |PL L16 ;.&-..C|
00000D10: 4D 50 20 23 36 35 20 20 20 3B 20 4B 4C 45 49 4E |MP #65 ; KLEIN|
00000D20: 45 52 20 22 41 22 00 36 2D 00 0A 42 4D 49 20 4C |ER "A".6-..BMI L|
00000D30: 31 37 20 20 20 3B 00 46 2D 0A 0A 43 4D 50 20 23 |17 ;.F-..CMP #|
00000D40: 39 33 20 20 20 3B 00 63 2D 14 0A 42 50 4C 20 4C |93 ;.c-..BPL L|
00000D50: 31 37 20 20 20 3B 20 47 52 4F 45 53 53 45 52 22 |17 ; GROESSER"|
00000D60: 55 45 22 00 6B 2D 1E 0A 43 4C 43 00 90 2D 28 0A |UE".k-..CLC..-(.|
00000D70: 41 44 43 20 23 33 32 20 20 20 3B 20 49 4E 20 4B |ADC #32 ; IN K|
00000D80: 4C 45 49 4E 53 43 48 52 8B 54 20 57 AF 45 4C 4E |LEINSCHR.T W.ELN|
00000D90: 00 A3 2D 32 0A 4C 31 37 20 4A 53 52 20 43 4F 44 |..-2.L17 JSR COD|
00000DA0: 45 57 32 00 AB 2D 3C 0A 52 54 53 00 D0 2D 46 0A |EW2..-<.RTS..-F.|
00000DB0: 4C 31 36 20 43 4D 50 20 23 31 39 33 3B 20 47 52 |L16 CMP #193; GR|
00000DC0: 4F 45 53 53 45 52 20 47 52 4F 53 53 20 22 41 22 |OESSER GROSS "A"|
00000DD0: 00 DC 2D 50 0A 42 4D 49 20 4C 31 37 00 F1 2D 5A |..-P.BMI L17..-Z|
00000DE0: 0A 43 4D 50 20 23 32 32 32 20 20 3B 20 53 2E 4F |.CMP #222 ; S.O|
00000DF0: 2E 00 FD 2D 64 0A 42 50 4C 20 4C 31 37 00 05 2E |...-d.BPL L17...|
00000E00: 6E 0A 53 45 43 00 12 2E 78 0A 53 42 43 20 23 31 |n.SEC...x.SBC #1|
00000E10: 32 38 00 1E 2E 82 0A 4A 4D 50 20 4C 31 37 00 24 |28.....JMP L17.$|
00000E20: 2E 8C 0A 3A 00 40 2E 96 0A 43 4F 44 45 57 32 20 |...:.@...CODEW2 |
00000E30: 50 48 41 20 3B 41 4B 4B 55 20 52 45 54 54 45 4E |PHA ;AKKU RETTEN|
00000E40: 00 56 2E A0 0A 4C 44 41 20 24 44 33 20 3B 20 C6 |.V...LDA $D3 ; .|
00000E50: 49 49 AD 44 49 4E 00 78 2E AA 0A AF 20 23 25 30 |II.DIN.x.... #%0|
00000E60: 30 30 31 30 30 30 30 20 3B 55 4D 47 45 53 43 48 |0010000 ;UMGESCH|
00000E70: 41 4C 54 45 54 20 22 3F 00 85 2E B4 0A 42 4E 45 |ALTET "?.....BNE|
00000E80: 20 57 AF 45 4C 00 A7 2E BE 0A 47 45 57 AF 45 4C | W.EL.....GEW.EL|
00000E90: 54 20 50 4C 41 3A 52 54 53 20 3B 4E 45 49 4E 3B |T PLA:RTS ;NEIN;|
00000EA0: 5A 55 52 55 45 43 4B 00 BF 2E C8 0A 3B 57 AF 45 |ZURUECK.....;W.E|
00000EB0: 4C 20 50 4C 41 20 20 3B 5A 55 52 55 45 43 4B 00 |L PLA ;ZURUECK.|
00000EC0: DD 2E D2 0A 57 AF 45 4C 20 50 4C 41 20 20 20 20 |....W.EL PLA |
00000ED0: 20 20 20 20 3B 4A 41 3B 57 AF 45 4C 4E 00 03 2F | ;JA;W.ELN../|
00000EE0: DC 0A 43 4D 50 20 23 31 38 37 3A 42 4D 49 20 4C |..CMP #187:BMI L|
00000EF0: 52 20 3B 20 4B 4C 45 49 4E 45 52 20 41 4C 53 20 |R ; KLEINER ALS |
00000F00: 31 38 38 00 2A 2F E6 0A 43 4D 50 20 23 31 39 31 |188.*/..CMP #191|
00000F10: 3A 42 50 4C 20 4C 52 20 3B 20 47 52 4F 45 53 53 |:BPL LR ; GROESS|
00000F20: 45 52 20 41 4C 53 20 31 39 30 00 3A 2F F0 0A 43 |ER ALS 190.:/..C|
00000F30: 4C 43 3A 53 42 43 20 23 36 33 00 52 2F FA 0A 4C |LC:SBC #63.R/..L|
00000F40: 52 20 50 48 41 20 3A 4A 4D 50 20 47 45 57 AF 45 |R PHA :JMP GEW.E|
00000F50: 4C 54 00 58 2F 2C 0B 3B 00 67 2F 36 0B 44 52 55 |LT.X/,.;.g/6.DRU|
00000F60: 43 4B 20 20 50 4C 41 00 7B 2F 40 0B 44 52 55 43 |CK PLA.{/@.DRUC|
00000F70: 4B 45 20 43 4D 50 20 23 24 32 32 00 86 2F 4A 0B |KE CMP #$22../J.|
00000F80: 42 4E 45 20 4C 50 00 92 2F 54 0B 4C 44 41 20 24 |BNE LP../T.LDA $|
00000F90: 31 31 00 9E 2F 5E 0B 45 B0 20 23 24 46 46 00 AA |11../^.E. #$FF..|
00000FA0: 2F 68 0B 53 54 41 20 24 31 31 00 B7 2F 72 0B 4C |/h.STA $11../r.L|
00000FB0: 44 41 20 23 24 32 32 00 DB 2F 7C 0B 4C 50 20 53 |DA #$22../|.LP S|
00000FC0: 54 41 20 24 44 44 30 31 3B 41 4B 4B 55 20 41 55 |TA $DD01;AKKU AU|
00000FD0: 46 20 42 55 53 20 4C 45 47 45 4E 00 FE 2F 86 0B |F BUS LEGEN../..|
00000FE0: 4C 44 41 20 24 44 44 30 44 3B 4F 55 54 50 55 54 |LDA $DD0D;OUTPUT|
00000FF0: 20 42 49 54 53 20 4C 4F 45 53 43 48 45 4E 00 1A | BITS LOESCHEN..|
00001000: 30 90 0B 4C 44 41 20 24 44 44 30 30 3B 53 54 52 |0..LDA $DD00;STR|
00001010: 4F 42 45 20 53 45 54 5A 45 4E 00 27 30 9A 0B AF |OBE SETZEN.'0...|
00001020: 20 23 24 46 42 20 3B 00 36 30 A4 0B 53 54 41 20 | #$FB ;.60..STA |
00001030: 24 44 44 30 30 3B 00 4E 30 AE 0B B0 41 20 23 24 |$DD00;.N0...A #$|
00001040: 30 34 20 3B 55 4E 44 20 57 49 45 44 45 52 00 65 |04 ;UND WIEDER.e|
00001050: 30 B8 0B 53 54 41 20 24 44 44 30 30 3B 4C 4F 45 |0..STA $DD00;LOE|
00001060: 53 43 48 45 4E 00 6B 30 C2 0B 3B 00 82 30 CC 0B |SCHEN.k0..;..0..|
00001070: 4C 44 41 20 23 24 31 30 20 20 20 20 20 3B 20 41 |LDA #$10 ; A|
00001080: 55 46 00 A1 30 D6 0B 4C 30 37 20 42 49 54 20 24 |UF..0..L07 BIT $|
00001090: 44 44 30 44 3B 20 41 43 4B 4E 4F 57 4C 45 44 47 |DD0D; ACKNOWLEDG|
000010A0: 45 00 BB 30 E0 0B 42 45 51 20 4C 30 37 20 20 20 |E..0..BEQ L07 |
000010B0: 20 20 20 3B 20 57 41 52 54 45 4E 00 C3 30 EA 0B | ; WARTEN..0..|
000010C0: 43 4C 43 00 CB 30 F4 0B 52 54 53 00 D1 30 FE 0B |CLC..0..RTS..0..|
000010D0: 3B 00 06 31 12 0C 45 58 49 54 20 53 45 49 3A 4C |;..1..EXIT SEI:L|
000010E0: 44 58 20 23 24 46 31 3A 4C 44 41 20 23 24 34 43 |DX #$F1:LDA #$4C|
000010F0: 3A 20 53 54 58 20 24 30 33 32 30 3A 20 53 54 41 |: STX $0320: STA|
00001100: 20 24 30 33 32 31 00 32 31 1C 0C 4C 44 58 20 23 | $0321.21..LDX #|
00001110: 24 37 39 3A 4C 44 41 20 23 24 45 46 3A 20 53 54 |$79:LDA #$EF: ST|
00001120: 58 20 24 30 33 32 36 3A 20 53 54 41 20 24 30 33 |X $0326: STA $03|
00001130: 32 37 00 3A 31 26 0C 43 4C 49 00 42 31 30 0C 52 |27.:1&.CLI.B10.R|
00001140: 54 53 00 48 31 3A 0C 3B 00 95 31 76 0C 54 45 58 |TS.H1:.;..1v.TEX|
00001150: 54 20 2E 42 59 54 45 20 31 38 2C 31 34 3A 2E C6 |T .BYTE 18,14:..|
00001160: 20 22 31 32 38 20 C3 45 4E 54 52 4F 4E 49 43 53 | "128 .ENTRONICS|
00001170: 2D C9 4E 54 45 52 46 41 43 45 20 20 20 20 20 D6 |-.NTERFACE .|
00001180: 45 52 53 49 4F 4E 20 32 2E 30 22 3A 2E 42 59 54 |ERSION 2.0":.BYT|
00001190: 45 20 31 34 36 00 A3 31 80 0C 2E 42 59 54 45 20 |E 146..1...BYTE |
000011A0: 24 32 30 00 D4 31 8A 0C 2E C6 22 20 28 28 43 29 |$20..1...." ((C)|
000011B0: 20 42 59 20 CD 2E C8 45 49 4E 5A 45 20 31 37 2E | BY ...EINZE 17.|
000011C0: 31 31 2E 31 39 38 35 20 49 4E 20 C5 52 4C 41 4E |11.1985 IN .RLAN|
000011D0: 47 45 4E 22 00 E2 31 94 0C 2E 42 59 54 45 20 24 |GEN"..1...BYTE $|
000011E0: 30 44 00 EF 31 9E 0C 2E 42 59 54 45 20 30 30 00 |0D..1...BYTE 00.|
000011F0: 00 00 |.. |
. . `..36864.. J..OPT P,OO.' T... $1400.
1 ~.;:;:;.X ..;" ***********************
********.. ..;"***
***.. ..;"*** CENTRONICS-INTERFACE
C128 ***.P ..;"***
***.. ..;" ************************
*******..!..;"*** WRITTEN BY MARCUS HEI
NZE ***.G!D.;"*** VOGELHERD
97A ***.O!N.;"*** 8520 ERLAN
GEN ***..!X.;" *************************
******..!Y.;..!Z.;..!..;.Y!..;" ES STEHE
N FOLGENDE KAN[LE ZUR VERF]GUNG :..!..;"
1. DIREKTKANAL : OPEN 1,5.G"..;"
HIER WERDEN ALLE CODES UNGEWANDELT AN DE
N DRUCKER WEITERGEGEBEN."..;" (N\
TIG F]R HARDCOPIES UND ESCAPESEQUENZEN).
."..;".."..;" 2. WANDLUNGSKANAL : OPEN 1
,4.."..;" NUN WERDEN DIE ZEICHEN J
E NACH WAHL DER ASCII/DIN TASTE GEWANDEL
T.D#..;" UND AUF DEM DRUCKER AUSGE
GEBEN. DAS INTERFACE ERKENNT SELBST-..#.
.;" ST[NDIG, OB DIE UMLAUTE AUSGEG
EBEN WERDEN M]SSEN...#..;:;..# .;"DAS ST
EUERBYTE:.P#!.;" HEX $1407 - DEZ 5
127 : 00001100..#".;"
BITNUMMERN: 76543210.O$#.;" BIT
2 : IST ES GESETZT, SO WIRD NACH JEDEM
<CARRIAGE RETURN>(=$0D)..$$.;"
EIN ZUS[TZLICHES LINE FEED AUSGEBEN
.V$%.;" BIT 3 : IST ES GESETZT, SO
WIRD DAS INTERFACE BEI <RESTORE> ODER..
%&.;" <RUNSTOP>+<RESTORE>
NEU INITIALISIERT..%'.;.%%(.. . $FFD2.-%
2.;:;._%<.JMP INIT ;EINSCHALTEN DES NTE
RFACES . . 5120..%F.JMP EXIT ;AUSSCHALT
EN DES NTERFACES . . 5123..%P.STEUER .BY
TE %00000000 ;..%Z.;.A%N.INIT SEI..%X.LD
A #$FF ; I.O REGISTER..%..STA $DD03 ; P
.T B AUF..&..LDA $DD02 ; AUSGANG SETZEN.
&&...A #$04 ;.6& .STA $DD02 ;.<&..;.]&.
.LDA #.. ;KANAL FUER AUSGABE.X&..STA $0
320 ;AUF .ERFACE..&H.LDA #.. ;SETZEN..&R
.STA $0321 ;(CKOUT VEC.R)..&..;.N&..LDA
#.OUTPUT ;OUTPUT VEC.R..&..STA $0326 ;AU
F .ERFACE..'..LDA #.OUTPUT ;SETZEN..'..S
TA $0327 ;.-'..LDX #$00 ;.TEMMELDUNG.3'
..;.G'".L00 LDA TEXT,X;.R',.JSR .;.\'6.I
NX ;.K'@.CMP #$00 ;.X'J.BNE L00;.~'T.;..
'^.LDA #.NMISTR ;NMI VEC.R..'H.STA $0318
;AUF .ERFACE.M'R.LDA #.NMISTR ;SETZEN..'
|.STA $0319;..'..;..'..CLI..'..RTS..'..;
..(..NMISTR LDA #%00001000..(B.. STEUER.
*(L.BEQ L1.;(V.CLI:JSR INIT.K(..JMP ($0A
00).P(..L1 JMP $FA40 ;NMI ROUTINE KERNAL
.V(..;..(... JSR $F202;SUCHT .ISCHE FICU
MMER ( IN X ).L(..BEQ OPN;GEFUNDEN .. AU
SGABE SETZEN..(..JMP $F682; BETRIEBS.TEM
MELDUNG AUSGEBEN..(&.;..)0.OPN JSR $F212
;FLPARAM.7):.LDA $BA ;AKTUELLES GERAET.
=)D.;.V)N.CMP #$04 ; .4 "?.N)X.BNE L
02 ; NEIN..)B.JMP L05 ; JA , N
UMMER DES AUSGABEGERAETES SETZEN..)L.;.H
)V.L02 CMP #$05 ; .5 "?..)..BNE L03
; NEIN..*..JMP L05 ; JA , NUMMER
DES AUSGABEGERAETES SETZEN. *..;.U*F.L03
JMP $F156 ;NUMMER DES AUSGABEGERAETES S
ETZEN..*P.; VERKUERZTES CKOUT; MIT UEBER
PRUEFUNG OB AUF BILDSCHIRM, USW.M*Z.L05
JMP $F169 ; NUMMER DES AUSGABEGERAETES S
ETZEN.S*..;..*..OUTPUT PHA ;AKKU RETTEN.
.+..LDA $9A ;AKTUELLE GERAETE NUMMER.!+.
.CMP #$04.-+..BNE L06.<+ .JMP PRLELL.M+*
.L06 CMP #$05.Y+4.BNE L09.G+>.JMP DRUCK.
S+F.L09 PLA..+P.JMP $EF79 ;...+Z.;..+..;
..+$.PRLELL PLA:JSR CODEW..+..CMP #$0D.B
+8.BEQ L13.Q+B.JMP DRUCKE..+L.L13 LDA #%
00000100 ; AUF ZUSAETZLICHES.',V.. STEU
ER ; LINE FEED PRUEFEN.3,`.BNE
L15.@,J.LDA #$0D.L,T.JMP L14.],~.L15 LDA
#$0A.L,..JSR DRUCKE.Y,..LDA #$0D..,..L1
4 JMP DRUCKE..,..;..,D.CODEW CMP #29; C
URS. RIGHT..,N.BNE CW.W,X.LDA #32 ;
.SPACE..,..CW CMP #$80 ; GROESSER 127
"?..-..BPL L16 ;.&-..CMP #65 ; KLEIN
ER "A".6-..BMI L17 ;.F-..CMP #93 ;.C
-..BPL L17 ; GROESSER"UE".K-..CLC..-(.
ADC #32 ; IN KLEINSCHR.T W.ELN..-2.L17
JSR CODEW2..-<.RTS.P-F.L16 CMP #193; GR
OESSER GROSS "A"..-P.BMI L17..-Z.CMP #22
2 ; S.O...-D.BPL L17...N.SEC...X.SBC #1
28.....JMP L17.$...:.@...CODEW2 PHA ;AKK
U RETTEN.V. .LDA $D3 ; FII.DIN.X.... #%0
0010000 ;UMGESCHALTET "?.....BNE W.EL...
..GEW.ELT PLA:RTS ;NEIN;ZURUECK...H.;W.E
L PLA ;ZURUECK...R.W.EL PLA ;JA;
W.ELN../..CMP #187:BMI LR ; KLEINER ALS
188.*/..CMP #191:BPL LR ; GROESSER ALS 1
90.:/..CLC:SBC #63.R/..LR PHA :JMP GEW.E
LT.X/,.;.G/6.DRUCK PLA.{/@.DRUCKE CMP #
$22../J.BNE LP../T.LDA $11../^.E. #$FF..
/H.STA $11../R.LDA #$22../|.LP STA $DD01
;AKKU AUF BUS LEGEN../..LDA $DD0D;OUTPUT
BITS LOESCHEN..0..LDA $DD00;STROBE SETZ
EN.'0... #$FB ;.60..STA $DD00;.N0...A #$
04 ;UND WIEDER.E0..STA $DD00;LOESCHEN.K0
B.;..0L.LDA #$10 ; AUF..0V.L07 BIT $
DD0D; ACKNOWLEDGE..0..BEQ L07 ; WAR
TEN.C0..CLC.K0..RTS.Q0..;..1..EXIT SEI:L
DX #$F1:LDA #$4C: STX $0320: STA $0321.2
1..LDX #$79:LDA #$EF: STX $0326: STA $03
27.:1&.CLI.B10.RTS.H1:.;..1V.TEXT .BYTE
18,14:.F "128 CENTRONICS-INTERFACE V
ERSION 2.0":.BYTE 146..1...BYTE $20.T1..
.F" ((C) BY M.HEINZE 17.11.1985 IN ERLAN
GEN"..1...BYTE $0D..1...BYTE 00...
> CLICK IMAGE PREVIEW FOR FULL MODAL