E-A-ROUTINEN 1
FILE INFORMATION
FILENAME(S): E-A-ROUTINEN 1
FILE TYPE(S): PRG
FILE SIZE: 7.8K
FIRST SEEN: 2025-11-30 21:27:21
APPEARS ON: 1 disk(s)
FILE HASH
4a6c607e2553d1e13da5448532d99d726ff074c5d3667155214c07852eae13f0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | E-A-ROUTINEN 1 | PRG | DuncanTwain | 13 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 40 97 30 97 35 C9 C5 C3 20 2D 20 C2 55 53 20 |.@.0.5... - .US | 00000010: D2 4F 55 54 49 4E 45 4E 98 35 98 30 20 20 20 20 |.OUTINEN.5.0 | 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000030: 20 20 20 20 20 20 CC 41 53 54 20 D2 45 56 2E 20 | .AST .EV. | 00000040: 37 2E 31 31 2E 39 31 0D 0D 97 30 97 35 C4 45 52 |7.11.91...0.5.ER| 00000050: 20 53 45 52 49 45 4C 4C 45 20 C2 55 53 98 35 98 | SERIELLE .US.5.| 00000060: 30 0D 0D C1 54 4E 2D 4F 55 54 2C 20 C3 4C 4B 2D |0...TN-OUT, .LK-| 00000070: 4F 55 54 20 55 4E 44 20 C4 41 54 41 2D 4F 55 54 |OUT UND .ATA-OUT| 00000080: 20 4C 49 45 47 45 4E 20 41 4D 20 C5 49 4E 47 41 | LIEGEN AM .INGA| 00000090: 4E 47 20 45 49 4E 45 53 20 C9 4E 56 45 52 2D 0D |NG EINES .NVER-.| 000000A0: 54 45 52 53 2C 20 44 45 53 53 45 4E 20 4F 50 45 |TERS, DESSEN OPE| 000000B0: 4E 2D 43 4F 4C 4C 45 43 54 4F 52 2D C1 55 53 47 |N-COLLECTOR-.USG| 000000C0: 41 4E 47 20 87 42 45 52 20 45 49 4E 45 4E 20 50 |ANG .BER EINEN P| 000000D0: 55 4C 4C 2D 55 50 2D 0D D7 49 44 45 52 53 54 41 |ULL-UP-..IDERSTA| 000000E0: 4E 44 20 41 4E 20 2B 35 D6 20 47 45 46 87 48 52 |ND AN +5. GEF.HR| 000000F0: 54 20 49 53 54 2E 20 CC 49 45 47 45 4E 20 44 49 |T IST. .IEGEN DI| 00000100: 45 20 C1 55 53 47 85 4E 47 45 20 4D 45 48 52 45 |E .USG.NGE MEHRE| 00000110: 52 45 52 0D C7 45 52 85 54 45 20 41 4E 20 45 49 |RER..ER.TE AN EI| 00000120: 4E 45 52 20 CC 45 49 54 55 4E 47 2C 20 53 4F 20 |NER .EITUNG, SO | 00000130: 4B 41 4E 4E 20 45 49 4E 20 45 49 4E 5A 49 47 45 |KANN EIN EINZIGE| 00000140: 52 20 D4 52 45 49 42 45 52 20 44 49 45 0D CC 45 |R .REIBER DIE..E| 00000150: 49 54 55 4E 47 20 4E 41 43 48 20 CC 4F 57 20 5A |ITUNG NACH .OW Z| 00000160: 49 45 48 45 4E 2E 20 D3 49 45 20 49 53 54 20 44 |IEHEN. .IE IST D| 00000170: 41 4D 49 54 20 49 4D 20 41 4B 54 49 56 45 4E 20 |AMIT IM AKTIVEN | 00000180: DA 55 53 54 41 4E 44 2E 0D C4 41 53 20 4C 41 4E |.USTAND...AS LAN| 00000190: 47 53 41 4D 53 54 45 20 C7 45 52 85 54 20 4B 41 |GSAMSTE .ER.T KA| 000001A0: 4E 4E 20 44 41 4D 49 54 20 55 2E D5 2E 20 41 4C |NN DAMIT U... AL| 000001B0: 4C 45 20 41 4E 44 45 52 45 4E 20 5A 55 4D 20 D7 |LE ANDEREN ZUM .| 000001C0: 41 52 54 45 4E 0D 42 52 49 4E 47 45 4E 2E 0D C1 |ARTEN.BRINGEN...| 000001D0: 54 4E 2D 4F 55 54 20 4C 86 53 54 20 49 4E 20 44 |TN-OUT L.ST IN D| 000001E0: 45 52 20 C6 4C 4F 50 50 59 20 45 49 4E 45 4E 20 |ER .LOPPY EINEN | 000001F0: C9 4E 54 45 52 52 55 50 54 20 41 55 53 20 55 4E |.NTERRUPT AUS UN| 00000200: 44 20 49 53 54 20 56 4F 4E 0D 44 49 45 53 45 52 |D IST VON.DIESER| 00000210: 20 4E 49 43 48 54 20 5A 55 20 42 45 45 49 4E 46 | NICHT ZU BEEINF| 00000220: 4C 55 53 53 45 4E 3A 20 44 49 45 53 20 49 53 54 |LUSSEN: DIES IST| 00000230: 20 41 4C 4C 45 49 4E 49 47 45 20 C1 55 46 47 41 | ALLEINIGE .UFGA| 00000240: 42 45 20 44 45 53 0D C2 55 53 43 4F 4E 54 52 4F |BE DES..USCONTRO| 00000250: 4C 4C 45 52 53 2E 0D C4 45 52 20 DA 55 53 54 41 |LLERS...ER .USTA| 00000260: 4E 44 20 56 4F 4E 20 C4 41 54 41 20 55 4E 44 20 |ND VON .ATA UND | 00000270: C3 4C 4B 20 57 49 52 44 20 41 4E 20 C3 C9 C1 2D |.LK WIRD AN ...-| 00000280: C5 49 4E 47 85 4E 47 45 20 47 45 46 87 48 52 54 |.ING.NGE GEF.HRT| 00000290: 2E 0D C6 41 4C 4C 53 20 4B 45 49 4E 20 D0 45 52 |...ALLS KEIN .ER| 000002A0: 49 50 48 45 52 49 45 47 45 52 85 54 20 45 49 4E |IPHERIEGER.T EIN| 000002B0: 45 20 CC 45 49 54 55 4E 47 20 4E 41 43 48 20 CC |E .EITUNG NACH .| 000002C0: 4F 57 20 5A 49 45 48 54 2C 0D 48 41 42 45 4E 20 |OW ZIEHT,.HABEN | 000002D0: C4 41 54 41 2D 49 4E 20 2F 20 C3 4C 4B 2D 49 4E |.ATA-IN / .LK-IN| 000002E0: 20 44 49 45 20 5A 55 20 C4 41 54 41 2D 4F 55 54 | DIE ZU .ATA-OUT| 000002F0: 20 2F 20 C3 4C 4B 2D 4F 55 54 20 49 4E 56 45 52 | / .LK-OUT INVER| 00000300: 53 45 4E 0D D7 45 52 54 45 2E 0D 0D 97 35 C4 45 |SEN..ERTE....5.E| 00000310: 52 20 C3 C9 C1 2D D0 4F 52 54 20 24 C4 C4 30 30 |R ...-.ORT $..00| 00000320: 3A 98 35 0D C2 49 54 20 37 2E 2E 33 3A 20 20 C4 |:.5..IT 7..3: .| 00000330: 41 54 41 2D 49 4E 20 20 C3 4C 4B 2D 49 4E 20 20 |ATA-IN .LK-IN | 00000340: C4 41 54 41 2D 4F 55 54 20 20 C3 4C 4B 2D 4F 55 |.ATA-OUT .LK-OU| 00000350: 54 20 20 C1 54 4E 2D 4F 55 54 0D 0D 97 35 C6 4C |T .TN-OUT...5.L| 00000360: 4F 50 50 59 3A 20 20 D6 C9 C1 2D D0 4F 52 54 20 |OPPY: ...-.ORT | 00000370: 24 31 38 30 30 3A 98 35 0D 37 3A 20 C1 54 4E 2D |$1800:.5.7: .TN-| 00000380: 49 4E 20 20 28 4C 49 45 47 54 20 41 4E 20 C3 C2 |IN (LIEGT AN ..| 00000390: 32 20 55 4E 44 20 4B 41 4E 4E 20 C9 D2 D1 20 41 |2 UND KANN ... A| 000003A0: 55 53 4C 86 53 45 4E 29 0D 36 2C 35 3A 20 C7 45 |USL.SEN).6,5: .E| 000003B0: 52 85 54 45 4E 55 4D 4D 45 52 0D 34 3A 20 C1 54 |R.TENUMMER.4: .T| 000003C0: 4E 2D 4F 55 54 0D 33 2E 2E 30 3A 20 20 43 4C 4B |N-OUT.3..0: CLK| 000003D0: 2D 4F 55 54 20 20 43 4C 4B 2D 49 4E 20 20 44 41 |-OUT CLK-IN DA| 000003E0: 54 41 2D 4F 55 54 20 20 44 41 54 41 2D 49 4E 0D |TA-OUT DATA-IN.| 000003F0: 0D 0D 97 30 97 35 C5 2D 2F C1 2D D2 4F 55 54 49 |...0.5.-/.-.OUTI| 00000400: 4E 45 4E 20 87 42 45 52 20 44 45 4E 20 53 45 52 |NEN .BER DEN SER| 00000410: 49 45 4C 4C 45 4E 20 C2 55 53 98 35 98 30 0D 0D |IELLEN .US.5.0..| 00000420: 97 35 D5 4E 54 45 52 50 52 4F 47 52 41 4D 4D 45 |.5.NTERPROGRAMME| 00000430: 20 28 45 4E 44 45 4E 20 4D 49 54 20 52 54 53 29 | (ENDEN MIT RTS)| 00000440: 3A 98 35 0D 0D 43 4C 4B 48 49 20 20 45 45 38 35 |:.5..CLKHI EE85| 00000450: 20 20 C3 4C 4F 43 4B 2D CC 45 49 54 55 4E 47 20 | .LOCK-.EITUNG | 00000460: 41 55 46 20 C8 C9 20 53 45 54 5A 45 4E 20 28 C3 |AUF .. SETZEN (.| 00000470: C9 C1 20 C2 49 54 20 34 20 4C 86 53 43 48 45 4E |.. .IT 4 L.SCHEN| 00000480: 29 0D 43 4C 4B 4C 4F 20 20 45 45 38 45 20 20 C3 |).CLKLO EE8E .| 00000490: 4C 4F 43 4B 2D CC 45 49 54 55 4E 47 20 41 55 46 |LOCK-.EITUNG AUF| 000004A0: 20 CC 4F 57 20 53 45 54 5A 45 4E 0D 44 41 54 41 | .OW SETZEN.DATA| 000004B0: 48 49 20 45 45 39 37 20 20 C4 41 54 41 2D CC 45 |HI EE97 .ATA-.E| 000004C0: 49 54 55 4E 47 20 20 41 55 46 20 C8 49 20 53 45 |ITUNG AUF .I SE| 000004D0: 54 5A 45 4E 0D 44 41 54 41 4C 4F 20 45 45 41 30 |TZEN.DATALO EEA0| 000004E0: 20 20 C4 41 54 41 2D CC 45 49 54 55 4E 47 20 20 | .ATA-.EITUNG | 000004F0: 41 55 46 20 CC 4F 57 20 53 45 54 5A 45 4E 0D 41 |AUF .OW SETZEN.A| 00000500: 54 4E 48 49 20 20 45 44 42 45 20 20 C1 54 4E 2D |TNHI EDBE .TN-| 00000510: 4C 45 49 54 55 4E 47 20 20 20 41 55 46 20 C8 49 |LEITUNG AUF .I| 00000520: 20 53 45 54 5A 45 4E 0D 0D 0D 97 35 DA 45 52 4F | SETZEN....5.ERO| 00000530: 50 41 47 45 41 44 52 45 53 53 45 4E 3A 98 35 0D |PAGEADRESSEN:.5.| 00000540: 0D 24 39 34 20 20 20 20 C6 4C 41 47 3A 20 DA 45 |.$94 .LAG: .E| 00000550: 49 43 48 45 4E 20 49 4D 20 D0 55 46 46 45 52 20 |ICHEN IM .UFFER | 00000560: 46 87 52 20 C9 C5 C3 2D C2 55 53 20 28 30 3D 4C |F.R ...-.US (0=L| 00000570: 45 45 52 2C 20 31 3D 56 4F 4C 4C 29 0D 24 39 35 |EER, 1=VOLL).$95| 00000580: 20 20 20 20 D0 55 46 46 45 52 20 46 87 52 20 45 | .UFFER F.R E| 00000590: 49 4E 20 41 55 46 20 44 45 4E 20 C2 55 53 20 5A |IN AUF DEN .US Z| 000005A0: 55 20 47 45 42 45 4E 44 45 53 20 DA 45 49 43 48 |U GEBENDES .EICH| 000005B0: 45 4E 0D 24 C1 33 20 20 20 20 C8 49 4C 46 53 53 |EN.$.3 .ILFSS| 000005C0: 50 45 49 43 48 45 52 20 2F 20 C6 4C 41 47 20 46 |PEICHER / .LAG F| 000005D0: 87 52 20 C5 CF C9 20 20 28 C2 49 54 20 37 29 0D |.R ... (.IT 7).| 000005E0: 24 C1 35 20 20 20 20 D3 45 52 49 45 4C 4C 45 52 |$.5 .ERIELLER| 000005F0: 20 C2 49 54 5A 85 48 4C 45 52 0D 0D 0D 97 35 C1 | .ITZ.HLER....5.| 00000600: 55 53 47 41 42 45 52 4F 55 54 49 4E 45 4E 20 41 |USGABEROUTINEN A| 00000610: 55 46 20 C9 C5 C3 2D C2 55 53 20 28 C2 49 54 2D |UF ...-.US (.IT-| 00000620: C5 42 45 4E 45 29 98 35 0D 0D D4 C1 CC CB 20 20 |.BENE).5...... | 00000630: 20 20 45 44 30 39 20 20 4F 52 41 20 23 25 30 31 | ED09 ORA #%01| 00000640: 30 30 20 30 30 30 30 20 20 D4 41 4C 4B 2D C2 49 |00 0000 .ALK-.I| 00000650: 54 20 49 4D 20 C1 4B 4B 55 20 53 45 54 5A 45 4E |T IM .KKU SETZEN| 00000660: 0D 20 20 20 20 20 20 20 20 45 44 30 42 20 20 C2 |. ED0B .| 00000670: 49 54 2D C2 45 46 45 48 4C 20 28 4E 85 43 48 53 |IT-.EFEHL (N.CHS| 00000680: 54 45 52 20 C2 45 46 45 48 4C 20 57 49 52 44 20 |TER .EFEHL WIRD | 00000690: 49 47 4E 4F 52 49 45 52 54 29 0D CC C9 D3 D4 C5 |IGNORIERT)......| 000006A0: CE 20 20 45 44 30 43 20 20 4F 52 41 20 23 25 30 |. ED0C ORA #%0| 000006B0: 30 31 30 20 30 30 30 30 20 20 CC 49 53 54 45 4E |010 0000 .ISTEN| 000006C0: 2D C2 49 54 20 49 4D 20 C1 4B 4B 55 20 53 45 54 |-.IT IM .KKU SET| 000006D0: 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ZEN. | 000006E0: 20 20 4A 53 52 20 46 30 41 34 20 20 20 20 20 20 | JSR F0A4 | 000006F0: 20 20 20 C5 4E 44 45 20 D2 D3 32 33 32 2D C9 2F | .NDE ..232-./| 00000700: CF 20 41 42 57 41 52 54 45 4E 0D 20 20 20 20 20 |. ABWARTEN. | 00000710: 20 20 20 45 44 31 31 20 20 20 20 20 20 20 20 20 | ED11 | 00000720: 20 20 20 20 20 20 20 20 20 20 C2 59 54 45 20 55 | .YTE U| 00000730: 4E 54 45 52 20 C1 D4 CE 20 41 55 53 47 45 42 45 |NTER ... AUSGEBE| 00000740: 4E 0D 0D 0D C5 C4 31 31 20 20 20 20 20 20 20 20 |N.....11 | 00000750: 20 20 C2 59 54 45 20 49 4D 20 C1 4B 4B 55 20 4D | .YTE IM .KKU M| 00000760: 49 54 20 41 4B 54 49 56 45 4D 20 C1 54 4E 2D D3 |IT AKTIVEM .TN-.| 00000770: 49 47 4E 41 4C 20 41 55 53 47 45 42 45 4E 0D 0D |IGNAL AUSGEBEN..| 00000780: 20 20 20 20 20 20 20 20 45 44 31 31 20 20 C6 41 | ED11 .A| 00000790: 4C 4C 53 20 45 49 4E 20 C2 59 54 45 20 49 4D 20 |LLS EIN .YTE IM | 000007A0: D0 55 46 46 45 52 3A 20 44 49 45 53 45 53 20 5A |.UFFER: DIESES Z| 000007B0: 55 45 52 53 54 20 87 42 45 52 0D 20 20 20 20 20 |UERST .BER. | 000007C0: 20 20 20 20 20 20 20 20 20 45 44 34 30 20 41 55 | ED40 AU| 000007D0: 46 20 44 45 4E 20 C2 55 53 20 47 45 42 45 4E 20 |F DEN .US GEBEN | 000007E0: 28 C2 49 54 20 37 20 49 4E 20 24 C1 33 20 47 45 |(.IT 7 IN $.3 GE| 000007F0: 53 45 54 5A 54 29 2E 0D 20 20 20 20 20 20 20 20 |SETZT).. | 00000800: 20 20 20 20 20 20 C6 4C 41 47 20 24 39 34 20 4C | .LAG $94 L| 00000810: 86 53 43 48 45 4E 2E 0D 0D 20 20 20 20 20 20 20 |.SCHEN... | 00000820: 20 20 20 20 20 20 20 C2 59 54 45 20 49 4E 20 D0 | .YTE IN .| 00000830: 55 46 46 45 52 20 24 39 35 20 47 45 42 45 4E 20 |UFFER $95 GEBEN | 00000840: 28 C6 4C 41 47 20 24 39 34 20 42 4C 45 49 42 54 |(.LAG $94 BLEIBT| 00000850: 20 30 29 2E 0D 20 20 20 20 20 20 20 20 20 20 20 | 0).. | 00000860: 20 20 20 24 C1 33 20 4C 86 53 43 48 45 4E 3B 20 | $.3 L.SCHEN; | 00000870: 53 45 49 3B 20 44 41 54 41 48 49 3B 20 42 45 49 |SEI; DATAHI; BEI| 00000880: 20 45 44 32 45 20 57 45 49 54 45 52 4D 41 43 48 | ED2E WEITERMACH| 00000890: 45 4E 0D 0D C5 C4 32 C2 20 20 20 20 45 44 32 42 |EN....2. ED2B| 000008A0: 20 20 4A 53 52 20 43 4C 4B 48 49 0D 0D C5 C4 32 | JSR CLKHI....2| 000008B0: C5 20 20 20 20 45 44 32 45 20 20 C1 54 4E 4C 4F |. ED2E .TNLO| 000008C0: 0D 0D C5 C4 33 36 20 20 20 20 45 44 33 36 20 20 |....36 ED36 | 000008D0: D3 C5 C9 0D 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 000008E0: 20 20 43 4C 4B 4C 4F 2C 20 44 41 54 41 48 49 0D | CLKLO, DATAHI.| 000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 | 1 | 00000900: 4D 53 20 57 41 52 54 45 4E 0D 0D 49 45 43 42 59 |MS WARTEN..IECBY| 00000910: 54 20 20 45 44 34 30 20 20 D3 C5 C9 0D 20 20 20 |T ED40 .... | 00000920: 20 20 20 20 20 20 20 20 20 20 20 C4 41 54 41 2D | .ATA-| 00000930: 49 4E 20 48 49 47 48 3A 20 44 45 56 49 43 45 20 |IN HIGH: DEVICE | 00000940: 4E 4F 54 20 50 52 45 53 45 4E 54 20 45 52 52 4F |NOT PRESENT ERRO| 00000950: 52 20 C1 55 53 47 41 4E 47 0D 20 20 20 20 20 20 |R .USGANG. | 00000960: 20 20 20 20 20 20 20 20 43 4C 4B 48 49 0D 20 20 | CLKHI. | 00000970: 20 20 20 20 20 20 20 20 20 20 20 20 24 C1 33 20 | $.3 | 00000980: 4E 45 47 41 54 49 56 3A 20 45 52 53 54 20 44 41 |NEGATIV: ERST DA| 00000990: 54 41 2D 49 4E 2D C8 49 2C 20 44 41 4E 4E 20 44 |TA-IN-.I, DANN D| 000009A0: 41 54 41 2D 49 4E 2D CC 4F 57 0D 20 20 20 20 20 |ATA-IN-.OW. | 000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009C0: 20 20 20 20 20 20 41 42 57 41 52 54 45 4E 0D 20 | ABWARTEN. | 000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 | DAT| 000009E0: 41 2D 49 4E 20 C8 49 20 41 42 57 41 52 54 45 4E |A-IN .I ABWARTEN| 000009F0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 |. C| 00000A00: 4C 4B 4C 4F 0D 20 20 20 20 20 20 20 20 20 20 20 |LKLO. | 00000A10: 20 20 20 24 C1 35 3A 20 C2 49 54 5A 85 48 4C 45 | $.5: .ITZ.HLE| 00000A20: 52 20 4D 49 54 20 D7 45 52 54 20 38 20 4C 41 44 |R MIT .ERT 8 LAD| 00000A30: 45 4E 0D 0D 20 20 20 20 20 20 20 20 45 44 36 36 |EN.. ED66| 00000A40: 20 20 C1 55 53 47 41 42 45 53 43 48 4C 45 49 46 | .USGABESCHLEIF| 00000A50: 45 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |E:. | 00000A60: 20 44 41 54 41 2D 49 4E 20 41 55 46 20 CC 4F 3A | DATA-IN AUF .O:| 00000A70: 20 D4 49 4D 45 20 4F 55 54 20 45 52 52 4F 52 20 | .IME OUT ERROR | 00000A80: 41 55 53 4C 86 53 45 4E 0D 20 20 20 20 20 20 20 |AUSL.SEN. | 00000A90: 20 20 20 20 20 20 20 C2 49 54 20 53 45 4E 44 45 | .IT SENDE| 00000AA0: 4E 20 28 CC D3 C2 20 5A 55 45 52 53 54 29 3A 20 |N (... ZUERST): | 00000AB0: 44 41 54 41 2D 4F 55 54 20 3D 20 C2 49 54 20 53 |DATA-OUT = .IT S| 00000AC0: 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 20 |ETZEN. | 00000AD0: 20 20 20 20 43 4C 4B 48 49 0D 20 20 20 20 20 20 | CLKHI. | 00000AE0: 20 20 20 20 20 20 20 20 38 20 D4 41 4B 54 45 20 | 8 .AKTE | 00000AF0: 57 41 52 54 45 4E 0D 20 20 20 20 20 20 20 20 20 |WARTEN. | 00000B00: 20 20 20 20 20 44 41 54 41 2D 4F 55 54 20 41 55 | DATA-OUT AU| 00000B10: 46 20 C8 49 20 2F 20 43 4C 4B 2D 4F 55 54 20 41 |F .I / CLK-OUT A| 00000B20: 55 46 20 CC 4F 20 28 47 4C 45 49 43 48 5A 45 49 |UF .O (GLEICHZEI| 00000B30: 54 49 47 29 0D 20 20 20 20 20 20 20 20 20 20 20 |TIG). | 00000B40: 20 20 20 24 C1 35 20 54 45 53 54 45 4E 3A 20 4E | $.5 TESTEN: N| 00000B50: 85 43 48 53 54 45 53 20 C2 49 54 20 53 45 4E 44 |.CHSTES .IT SEND| 00000B60: 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 |EN.. | 00000B70: 20 20 D4 49 4D 45 52 20 41 55 46 20 4D 49 54 20 | .IMER AUF MIT | 00000B80: 31 4D 53 20 53 45 54 5A 45 4E 20 55 4E 44 20 53 |1MS SETZEN UND S| 00000B90: 54 85 4E 44 49 47 20 C9 C3 D2 20 55 4E 44 0D 20 |T.NDIG ... UND. | 00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 | DAT| 00000BB0: 41 2D 49 4E 20 54 45 53 54 45 4E 2E 0D 20 20 20 |A-IN TESTEN.. | 00000BC0: 20 20 20 20 20 20 20 20 20 20 20 D4 49 4D 45 52 | .IMER| 00000BD0: 20 41 42 47 45 4C 41 55 46 45 4E 3A 20 D4 49 4D | ABGELAUFEN: .IM| 00000BE0: 45 20 4F 55 54 20 45 52 52 4F 52 20 41 55 53 4C |E OUT ERROR AUSL| 00000BF0: 86 53 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 |.SEN. | 00000C00: 20 20 20 C4 41 54 41 2D 49 4E 20 52 45 43 48 54 | .ATA-IN RECHT| 00000C10: 5A 45 49 54 49 47 20 41 55 46 20 CC 4F 3A 0D 0D |ZEITIG AUF .O:..| 00000C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C3 CC | ..| 00000C30: C9 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000C40: D2 D4 D3 0D 0D 0D 97 35 C6 45 48 4C 45 52 42 45 |.......5.EHLERBE| 00000C50: 48 41 4E 44 4C 55 4E 47 3A 98 35 0D 0D C5 C4 C1 |HANDLUNG:.5.....| 00000C60: C4 20 20 20 20 45 44 41 44 20 20 4C 44 41 20 23 |. EDAD LDA #| 00000C70: 24 38 30 20 20 C6 45 48 4C 45 52 4E 55 4D 4D 45 |$80 .EHLERNUMME| 00000C80: 52 20 46 87 52 20 C4 45 56 49 43 45 20 4E 4F 54 |R F.R .EVICE NOT| 00000C90: 20 50 52 45 53 45 4E 54 0D 20 20 20 20 20 20 20 | PRESENT. | 00000CA0: 20 45 44 41 46 20 20 42 49 54 0D C5 C4 C2 30 20 | EDAF BIT....0 | 00000CB0: 20 20 20 45 44 42 30 20 20 4C 44 41 20 23 24 30 | EDB0 LDA #$0| 00000CC0: 33 20 20 C6 45 48 4C 45 52 4E 55 4D 4D 45 52 20 |3 .EHLERNUMMER | 00000CD0: 46 87 52 20 D4 49 4D 45 20 4F 55 54 20 4C 41 44 |F.R .IME OUT LAD| 00000CE0: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |EN. | 00000CF0: 20 4A 53 52 20 46 45 31 43 20 20 28 4F 52 41 20 | JSR FE1C (ORA | 00000D00: 24 39 30 20 20 53 54 41 20 24 39 30 29 20 20 49 |$90 STA $90) I| 00000D10: 4E 20 D3 54 41 54 55 53 20 47 45 42 45 4E 0D 20 |N .TATUS GEBEN. | 00000D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4C 49 | CLI| 00000D30: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4A |. J| 00000D40: 4D 50 20 45 45 30 33 0D 0D 0D 97 35 C1 55 53 47 |MP EE03....5.USG| 00000D50: 41 42 45 52 4F 55 54 49 4E 45 4E 20 41 55 46 20 |ABEROUTINEN AUF | 00000D60: C9 C5 C3 2D C2 55 53 20 28 87 42 45 52 47 45 4F |...-.US (.BERGEO| 00000D70: 52 44 4E 45 54 45 20 C5 42 45 4E 45 29 98 35 0D |RDNETE .BENE).5.| 00000D80: 0D D3 C5 C3 CC C9 D3 D4 20 C5 C4 C2 39 20 20 53 |........ ...9 S| 00000D90: 54 41 20 24 39 35 20 20 20 49 4E 20 D0 55 46 46 |TA $95 IN .UFF| 00000DA0: 45 52 20 47 45 42 45 4E 0D 20 20 20 20 20 20 20 |ER GEBEN. | 00000DB0: 20 20 20 20 20 20 20 4A 53 52 20 45 44 33 36 20 | JSR ED36 | 00000DC0: 20 53 45 4E 44 45 4E 0D 20 20 20 20 20 20 20 20 | SENDEN. | 00000DD0: C5 C4 C2 C5 20 20 41 54 4E 48 49 20 20 20 20 20 |.... ATNHI | 00000DE0: 28 4B 45 49 4E 20 4A 53 52 21 29 0D 20 20 20 20 |(KEIN JSR!). | 00000DF0: 20 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 0D | RTS...| 00000E00: D3 C5 C3 D4 C1 CC CB 20 C5 C4 C3 37 20 20 53 54 |....... ...7 ST| 00000E10: 41 20 24 39 35 20 20 20 49 4E 20 D0 55 46 46 45 |A $95 IN .UFFE| 00000E20: 52 20 47 45 42 45 4E 0D 20 20 20 20 20 20 20 20 |R GEBEN. | 00000E30: 20 20 20 20 20 20 4A 53 52 20 45 44 33 36 20 20 | JSR ED36 | 00000E40: 53 45 4E 44 45 4E 0D 20 20 20 20 20 20 20 20 20 |SENDEN. | 00000E50: 20 20 20 20 20 53 45 49 0D 20 20 20 20 20 20 20 | SEI. | 00000E60: 20 20 20 20 20 20 20 44 41 54 41 4C 4F 2C 20 41 | DATALO, A| 00000E70: 54 4E 48 49 2C 20 43 4C 4B 48 49 0D 20 20 20 20 |TNHI, CLKHI. | 00000E80: 20 20 20 20 20 20 20 20 20 20 41 55 46 20 43 4C | AUF CL| 00000E90: 4B 4C 4F 20 57 41 52 54 45 4E 0D 20 20 20 20 20 |KLO WARTEN. | 00000EA0: 20 20 20 20 20 20 20 20 20 43 4C 49 0D 20 20 20 | CLI. | 00000EB0: 20 20 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D | RTS..| 00000EC0: 0D C9 C5 C3 CF D5 D4 20 20 C5 C4 C4 C4 20 20 24 |....... .... $| 00000ED0: 39 34 20 54 45 53 54 45 4E 0D 20 20 20 20 20 20 |94 TESTEN. | 00000EE0: 20 20 20 20 20 20 20 20 C2 59 54 45 20 49 4D 20 | .YTE IM | 00000EF0: D0 55 46 46 45 52 20 24 39 35 3A 20 44 49 45 53 |.UFFER $95: DIES| 00000F00: 45 53 20 4D 49 54 20 4A 53 52 20 C5 C4 34 30 20 |ES MIT JSR ..40 | 00000F10: 53 45 4E 44 45 4E 0D 20 20 20 20 20 20 20 20 20 |SENDEN. | 00000F20: 20 20 20 20 20 28 CE 45 55 45 53 29 20 C2 59 54 | (.EUES) .YT| 00000F30: 45 20 49 4E 20 D0 55 46 46 45 52 20 24 39 35 20 |E IN .UFFER $95 | 00000F40: 41 42 4C 45 47 45 4E 0D 20 20 20 20 20 20 20 20 |ABLEGEN. | 00000F50: 20 20 20 20 20 20 43 4C 43 20 52 54 53 0D 0D 0D | CLC RTS...| 00000F60: D5 CE D4 C1 CC CB 20 20 C5 C4 C5 C6 20 20 53 45 |...... .... SE| 00000F70: 49 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |I. | 00000F80: 43 4C 4B 4C 4F 0D 20 20 20 20 20 20 20 20 20 20 |CLKLO. | 00000F90: 20 20 20 20 41 54 4E 4C 4F 0D 20 20 20 20 20 20 | ATNLO. | 00000FA0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 35 46 | LDA #$5F| 00000FB0: 20 20 C2 49 54 4D 55 53 54 45 52 20 46 87 52 20 | .ITMUSTER F.R | 00000FC0: 55 4E 54 41 4C 4B 20 4C 41 44 45 4E 0D 20 20 20 |UNTALK LADEN. | 00000FD0: 20 20 20 20 20 45 44 46 44 20 20 42 49 54 0D D5 | EDFD BIT..| 00000FE0: CE CC C9 D3 D4 20 20 C5 C4 C6 C5 20 20 4C 44 41 |..... .... LDA| 00000FF0: 20 23 24 33 46 20 20 C2 49 54 4D 55 53 54 45 52 | #$3F .ITMUSTER| 00001000: 20 46 87 52 20 55 4E 4C 49 53 54 45 4E 20 4C 41 | F.R UNLISTEN LA| 00001010: 44 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |DEN. | 00001020: 20 20 4A 53 52 20 C5 C4 31 31 20 20 55 4E 54 45 | JSR ..11 UNTE| 00001030: 52 20 41 54 4E 20 53 45 4E 44 45 4E 20 28 D0 55 |R ATN SENDEN (.U| 00001040: 46 46 45 52 20 42 45 41 43 48 54 45 54 29 0D C5 |FFER BEACHTET)..| 00001050: C5 30 33 20 20 20 20 45 45 30 33 20 20 41 54 4E |.03 EE03 ATN| 00001060: 48 49 0D C5 C5 30 36 20 20 20 20 45 45 30 36 20 |HI...06 EE06 | 00001070: 20 34 32 20 D4 41 4B 54 45 20 57 41 52 54 45 4E | 42 .AKTE WARTEN| 00001080: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 |. C| 00001090: 4C 4B 48 49 2C 20 44 41 54 41 48 49 0D 20 20 20 |LKHI, DATAHI. | 000010A0: 20 20 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D | RTS..| 000010B0: 0D 97 35 C5 49 4E 47 41 42 45 20 87 42 45 52 20 |..5.INGABE .BER | 000010C0: C9 C5 C3 2D C2 55 53 98 35 0D 0D C9 C5 C3 C9 CE |...-.US.5.......| 000010D0: 20 20 20 C5 C5 31 33 20 20 D3 C5 C9 0D 20 20 20 | ..13 .... | 000010E0: 20 20 20 20 20 20 20 20 20 20 20 C2 49 54 5A 85 | .ITZ.| 000010F0: 48 4C 45 52 20 24 C1 35 20 41 55 46 20 30 0D 20 |HLER $.5 AUF 0. | 00001100: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4C 4B | CLK| 00001110: 48 49 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |HI. | 00001120: 20 57 41 52 54 45 4E 20 41 55 46 20 43 4C 4B 48 | WARTEN AUF CLKH| 00001130: 49 0D 20 20 20 20 20 20 20 20 C5 C5 32 30 20 20 |I. ..20 | 00001140: D4 49 4D 45 52 20 4D 49 54 20 D7 41 52 54 45 57 |.IMER MIT .ARTEW| 00001150: 45 52 54 20 4C 41 44 45 4E 0D 20 20 20 20 20 20 |ERT LADEN. | 00001160: 20 20 20 20 20 20 20 20 44 41 54 41 48 49 0D 20 | DATAHI. | 00001170: 20 20 20 20 20 20 20 20 20 20 20 20 20 41 55 46 | AUF| 00001180: 20 43 4C 4B 4C 4F 20 57 41 52 54 45 4E 20 55 4E | CLKLO WARTEN UN| 00001190: 44 20 D4 49 4D 45 52 20 42 45 4F 42 41 43 48 54 |D .IMER BEOBACHT| 000011A0: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |EN. | 000011B0: 20 43 4C 4B 4C 4F 20 54 52 49 54 54 20 45 49 4E | CLKLO TRITT EIN| 000011C0: 3A 20 4A 4D 50 20 45 45 35 36 0D 0D 20 20 20 20 |: JMP EE56.. | 000011D0: 20 20 20 20 20 20 20 20 20 20 C6 41 4C 4C 53 20 | .ALLS | 000011E0: 24 C1 35 20 4E 49 43 48 54 20 30 3A 20 D4 49 4D |$.5 NICHT 0: .IM| 000011F0: 45 20 4F 55 54 20 45 52 52 4F 52 20 28 45 44 42 |E OUT ERROR (EDB| 00001200: 32 29 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |2).. | 00001210: 20 20 24 C1 35 20 49 53 54 20 30 3A 20 44 41 54 | $.5 IST 0: DAT| 00001220: 41 4C 4F 2C 20 43 4C 4B 48 49 0D 20 20 20 20 20 |ALO, CLKHI. | 00001230: 20 20 20 20 20 20 20 20 20 C5 4E 44 2D 4F 46 2D | .ND-OF-| 00001240: C6 49 4C 45 20 28 24 34 30 29 20 2D 20 C2 49 54 |.ILE ($40) - .IT| 00001250: 20 49 4D 20 D3 54 41 54 55 53 42 59 54 45 20 53 | IM .TATUSBYTE S| 00001260: 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 20 |ETZEN. | 00001270: 20 20 20 20 49 4E 43 20 24 C1 35 0D 20 20 20 20 | INC $.5. | 00001280: 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 C5 C5 | JMP ..| 00001290: 32 30 0D 0D 20 20 20 20 20 20 20 20 C5 C5 35 36 |20.. ..56| 000012A0: 20 20 24 C1 35 20 4D 49 54 20 38 20 4C 41 44 45 | $.5 MIT 8 LADE| 000012B0: 4E 0D 0D 20 20 20 20 20 20 20 20 45 45 35 41 20 |N.. EE5A | 000012C0: 20 41 55 46 20 43 4C 4B 48 49 20 57 41 52 54 45 | AUF CLKHI WARTE| 000012D0: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N. | 000012E0: C2 49 54 20 41 55 53 20 C4 41 54 41 2D 49 4E 20 |.IT AUS .ATA-IN | 000012F0: 49 4E 20 24 C1 34 20 45 49 4E 52 4F 54 49 45 52 |IN $.4 EINROTIER| 00001300: 45 4E 20 28 CC D3 C2 20 5A 55 45 52 53 54 29 0D |EN (... ZUERST).| 00001310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 55 | AU| 00001320: 46 20 43 4C 4B 4C 4F 20 57 41 52 54 45 4E 0D 20 |F CLKLO WARTEN. | 00001330: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 C1 35 | $.5| 00001340: 20 45 52 4E 49 45 44 52 49 47 45 4E 3B 20 46 41 | ERNIEDRIGEN; FA| 00001350: 4C 4C 53 20 4E 49 43 48 54 20 41 42 47 45 4C 41 |LLS NICHT ABGELA| 00001360: 55 46 45 4E 3A 20 45 45 35 41 0D 0D 20 20 20 20 |UFEN: EE5A.. | 00001370: 20 20 20 20 20 20 20 20 20 20 44 41 54 41 4C 4F | DATALO| 00001380: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 |. F| 00001390: 41 4C 4C 53 20 C5 CF C6 2D C2 49 54 20 49 4D 20 |ALLS ...-.IT IM | 000013A0: D3 54 41 54 55 53 42 59 54 45 20 47 45 53 45 54 |.TATUSBYTE GESET| 000013B0: 5A 54 3A 20 4A 53 52 20 C5 C5 30 36 0D 20 20 20 |ZT: JSR ..06. | 000013C0: 20 20 20 20 20 20 20 20 20 20 20 C1 4B 4B 55 20 | .KKU | 000013D0: 4D 49 54 20 C2 59 54 45 20 41 55 53 20 24 C1 34 |MIT .YTE AUS $.4| 000013E0: 20 4C 41 44 45 4E 0D 20 20 20 20 20 20 20 20 20 | LADEN. | 000013F0: 20 20 20 20 20 43 4C 49 20 43 4C 43 20 52 54 53 | CLI CLC RTS| 00001400: 0D 0D 0D 97 30 97 35 8B 42 45 52 47 45 4F 52 44 |....0.5.BERGEORD| 00001410: 4E 45 54 45 20 D2 4F 55 54 49 4E 45 4E 98 35 98 |NETE .OUTINEN.5.| 00001420: 30 0D 0D 97 35 C1 55 53 47 41 42 45 20 41 55 46 |0...5.USGABE AUF| 00001430: 20 C9 C5 C3 2D C2 55 53 3A 98 35 0D 0D C6 49 4C | ...-.US:.5...IL| 00001440: 4E 41 4D 20 28 24 C6 C6 C2 C4 29 20 55 4E 44 20 |NAM ($....) UND | 00001450: C6 49 4C 50 41 52 20 28 24 C6 C6 C2 C1 29 20 5A |.ILPAR ($....) Z| 00001460: 55 4D 20 D3 45 54 5A 45 4E 20 44 45 52 20 D0 41 |UM .ETZEN DER .A| 00001470: 52 41 4D 45 54 45 52 0D CF 50 45 4E 20 52 49 43 |RAMETER..PEN RIC| 00001480: 48 54 45 54 20 4E 4F 52 4D 41 4C 45 52 57 45 49 |HTET NORMALERWEI| 00001490: 53 45 20 4E 55 52 20 44 49 45 20 C6 49 4C 45 54 |SE NUR DIE .ILET| 000014A0: 41 42 45 4C 4C 45 20 49 4D 20 C3 4F 4D 50 55 54 |ABELLE IM .OMPUT| 000014B0: 45 52 0D 45 49 4E 3B 20 49 53 54 20 44 49 45 20 |ER.EIN; IST DIE | 000014C0: CC 85 4E 47 45 20 44 45 53 20 C6 49 4C 45 4E 41 |..NGE DES .ILENA| 000014D0: 4D 45 4E 53 20 56 4F 4E 20 30 20 56 45 52 53 43 |MENS VON 0 VERSC| 000014E0: 48 49 45 44 45 4E 2C 20 53 4F 20 57 49 52 44 0D |HIEDEN, SO WIRD.| 000014F0: 44 49 45 53 45 52 20 28 45 49 4E 47 45 52 41 48 |DIESER (EINGERAH| 00001500: 4D 54 20 56 4F 4E 20 4C 49 53 54 45 4E 20 2F 20 |MT VON LISTEN / | 00001510: 53 45 43 4C 49 53 54 20 55 4E 44 20 55 4E 4C 49 |SECLIST UND UNLI| 00001520: 53 54 29 20 87 42 45 52 2D 0D 54 52 41 47 45 4E |ST) .BER-.TRAGEN| 00001530: 2E 0D C6 4C 4F 50 50 59 3A 20 D3 45 4B 55 4E 44 |...LOPPY: .EKUND| 00001540: 85 52 41 44 52 45 53 53 45 20 30 20 3D 20 CC 4F |.RADRESSE 0 = .O| 00001550: 41 44 2C 20 31 20 3D 20 D3 41 56 45 2C 20 31 35 |AD, 1 = .AVE, 15| 00001560: 20 3D 20 CB 4F 4D 4D 41 4E 44 4F 0D 20 20 20 20 | = .OMMANDO. | 00001570: 20 20 20 20 C9 4E 20 C1 53 53 45 4D 42 4C 45 52 | .N .SSEMBLER| 00001580: 45 42 45 4E 45 3A 20 24 36 30 20 44 41 5A 55 41 |EBENE: $60 DAZUA| 00001590: 44 44 49 45 52 45 4E 20 28 24 36 30 2E 2E 24 36 |DDIEREN ($60..$6| 000015A0: C6 29 21 0D 20 20 20 20 20 20 20 20 C3 4C 4F 53 |.)!. .LOS| 000015B0: 45 20 CB 41 4E 41 4C 20 31 35 20 53 43 48 4C 49 |E .ANAL 15 SCHLI| 000015C0: 45 53 53 54 20 41 4C 4C 45 20 C6 4C 4F 50 50 59 |ESST ALLE .LOPPY| 000015D0: 4B 41 4E 85 4C 45 3B 20 4E 41 43 48 0D 20 20 20 |KAN.LE; NACH. | 000015E0: 20 20 20 20 20 D2 45 43 48 4E 45 52 46 45 48 4C | .ECHNERFEHL| 000015F0: 45 52 20 D2 45 54 54 55 4E 47 20 4D 49 54 20 4F |ER .ETTUNG MIT O| 00001600: 50 45 4E 20 31 2C 38 2C 31 35 20 3A 20 43 4C 4F |PEN 1,8,15 : CLO| 00001610: 53 45 20 31 2E 0D C3 4C 4F 53 45 20 20 28 24 C6 |SE 1...LOSE ($.| 00001620: C6 C3 33 29 3A 20 53 43 48 4C 49 45 88 54 20 C6 |..3): SCHLIE.T .| 00001630: 4C 4F 50 50 59 4B 41 4E 41 4C 2C 20 4C 86 53 43 |LOPPYKANAL, L.SC| 00001640: 48 54 20 C6 49 4C 45 45 49 4E 54 52 41 47 0D C3 |HT .ILEEINTRAG..| 00001650: 48 4B 4F 55 54 20 28 24 C6 C6 C3 39 29 3A 20 89 |HKOUT ($...9): .| 00001660: 51 55 49 56 41 4C 45 4E 54 20 44 45 53 20 C3 CD |QUIVALENT DES ..| 00001670: C4 2D C2 45 46 45 48 4C 45 53 3B 20 42 45 49 4E |.-.EFEHLES; BEIN| 00001680: 48 41 4C 54 45 54 20 44 41 53 0D 20 20 20 20 20 |HALTET DAS. | 00001690: 20 20 20 CC 49 53 54 45 4E 2D CB 4F 4D 4D 41 4E | .ISTEN-.OMMAN| 000016A0: 44 4F 2E 0D C3 4C 52 43 48 4E 20 28 24 C6 C6 C3 |DO...LRCHN ($...| 000016B0: C3 29 3A 20 D3 54 45 4C 4C 54 20 41 55 46 20 D4 |.): .TELLT AUF .| 000016C0: 41 53 54 41 54 55 52 20 55 4E 44 20 C2 49 4C 44 |ASTATUR UND .ILD| 000016D0: 53 43 48 49 52 4D 20 5A 55 52 87 43 4B 20 55 4E |SCHIRM ZUR.CK UN| 000016E0: 44 0D 20 20 20 20 20 20 20 20 47 49 42 54 20 47 |D. GIBT G| 000016F0: 47 46 2E 20 55 4E 4C 49 53 54 45 4E 20 2F 20 55 |GF. UNLISTEN / U| 00001700: 4E 54 41 4C 4B 20 41 55 53 2E 0D C3 4C 41 4C 4C |NTALK AUS...LALL| 00001710: 20 20 28 24 C6 C6 C5 37 29 3A 20 4C 86 53 43 48 | ($...7): L.SCH| 00001720: 54 20 C6 49 4C 45 54 41 42 45 4C 4C 45 2C 20 44 |T .ILETABELLE, D| 00001730: 41 4E 4E 20 C3 4C 52 43 48 4E 0D 0D C2 45 49 20 |ANN .LRCHN...EI | 00001740: C1 55 53 47 41 42 45 20 5A 55 52 20 C6 4C 4F 50 |.USGABE ZUR .LOP| 00001750: 50 59 20 49 53 54 20 45 53 20 45 47 41 4C 2C 20 |PY IST ES EGAL, | 00001760: 4F 42 20 4D 41 4E 20 44 49 52 45 4B 54 20 87 42 |OB MAN DIREKT .B| 00001770: 45 52 20 49 45 43 4F 55 54 0D 4F 44 45 52 20 87 |ER IECOUT.ODER .| 00001780: 42 45 52 20 C3 48 52 4F 55 54 20 28 24 C6 C6 C4 |BER .HROUT ($...| 00001790: 32 29 20 41 55 53 47 49 42 54 2E 20 C2 45 49 20 |2) AUSGIBT. .EI | 000017A0: 4B 4F 4E 54 49 4E 55 49 45 52 4C 49 43 48 45 4E |KONTINUIERLICHEN| 000017B0: 20 C1 55 53 2D 0D 47 41 42 45 4E 3A 20 4F 50 45 | .US-.GABEN: OPE| 000017C0: 4E 20 2F 20 4C 49 53 54 45 4E 20 2F 20 C1 55 53 |N / LISTEN / .US| 000017D0: 47 41 42 45 53 43 48 4C 45 49 46 45 20 2F 20 43 |GABESCHLEIFE / C| 000017E0: 4C 4F 53 45 2E 0D C2 45 49 20 55 4E 54 45 52 42 |LOSE...EI UNTERB| 000017F0: 52 4F 43 48 45 4E 45 4E 20 C1 55 53 47 41 42 45 |ROCHENEN .USGABE| 00001800: 4E 3A 20 4F 50 45 4E 20 32 2C 38 2C 32 2C 22 4E |N: OPEN 2,8,2,"N| 00001810: 41 4D 45 2C 50 2C 57 22 2C 20 44 41 4E 4E 20 47 |AME,P,W", DANN G| 00001820: 47 46 2E 0D 4D 45 48 52 4D 41 4C 53 20 43 48 4B |GF..MEHRMALS CHK| 00001830: 4F 55 54 20 2F 20 C1 55 53 47 41 42 45 53 43 48 |OUT / .USGABESCH| 00001840: 4C 45 49 46 45 20 2F 20 43 4C 52 43 48 4E 2C 20 |LEIFE / CLRCHN, | 00001850: 44 41 4E 4E 20 43 4C 4F 53 45 2E 0D D7 49 43 48 |DANN CLOSE...ICH| 00001860: 54 49 47 45 52 20 D5 4E 54 45 52 53 43 48 49 45 |TIGER .NTERSCHIE| 00001870: 44 3A 20 4A 45 54 5A 54 20 57 49 52 44 20 44 45 |D: JETZT WIRD DE| 00001880: 52 20 C6 4C 4F 50 50 59 4D 4F 54 4F 52 20 41 55 |R .LOPPYMOTOR AU| 00001890: 53 47 45 53 43 48 41 4C 2D 0D 54 45 54 2C 20 57 |SGESCHAL-.TET, W| 000018A0: 45 4E 4E 20 45 52 20 4E 49 43 48 54 20 47 45 42 |ENN ER NICHT GEB| 000018B0: 52 41 55 43 48 54 20 57 49 52 44 2E 0D C5 49 4E |RAUCHT WIRD...IN| 000018C0: 20 C4 52 55 43 4B 45 52 20 49 53 54 20 55 2E D5 | .RUCKER IST U..| 000018D0: 2E 20 53 45 48 52 20 45 4D 50 46 49 4E 44 4C 49 |. SEHR EMPFINDLI| 000018E0: 43 48 2C 20 57 41 53 20 D6 45 52 5A 86 47 45 52 |CH, WAS .ERZ.GER| 000018F0: 55 4E 47 45 4E 20 42 45 49 0D 44 45 52 20 C1 55 |UNGEN BEI.DER .U| 00001900: 53 47 41 42 45 20 41 4E 42 45 4C 41 4E 47 54 2E |SGABE ANBELANGT.| 00001910: 0D 0D CF D0 C5 CE 20 20 20 20 C6 33 34 C1 20 20 |...... .34. | 00001920: 41 4B 54 55 45 4C 4C 45 20 C6 49 4C 45 4E 55 4D |AKTUELLE .ILENUM| 00001930: 4D 45 52 20 41 55 53 20 24 C2 38 20 48 4F 4C 45 |MER AUS $.8 HOLE| 00001940: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N. | 00001950: 46 41 4C 4C 53 20 30 3A 20 4E 4F 54 20 49 4E 50 |FALLS 0: NOT INP| 00001960: 55 54 20 46 49 4C 45 20 45 52 52 4F 52 20 23 36 |UT FILE ERROR #6| 00001970: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001980: D0 41 52 41 4D 45 54 45 52 20 49 4E 20 C6 49 4C |.ARAMETER IN .IL| 00001990: 45 54 41 42 45 4C 4C 45 20 47 45 42 45 4E 3B 20 |ETABELLE GEBEN; | 000019A0: 44 41 42 45 49 20 D3 45 4B 2E 41 44 52 2E 0D 20 |DABEI .EK.ADR.. | 000019B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 49 54 | MIT| 000019C0: 20 CB 45 4E 4E 55 4E 47 20 4F 46 46 45 4E 45 52 | .ENNUNG OFFENER| 000019D0: 20 C6 49 4C 45 53 20 56 45 52 53 45 48 45 4E 3A | .ILES VERSEHEN:| 000019E0: 20 4F 52 41 20 23 24 36 30 2E 0D 20 20 20 20 20 | ORA #$60.. | 000019F0: 20 20 20 20 20 20 20 20 20 C6 45 48 4C 45 52 3A | .EHLER:| 00001A00: 20 C6 49 4C 45 20 4F 50 45 4E 20 45 52 52 4F 52 | .ILE OPEN ERROR| 00001A10: 20 23 32 3B 20 54 4F 4F 20 4D 41 4E 59 20 46 49 | #2; TOO MANY FI| 00001A20: 4C 45 53 20 28 23 31 29 0D 20 20 20 20 20 20 20 |LES (#1). | 00001A30: 20 20 20 20 20 20 20 D3 45 4B 55 4E 44 85 52 41 | .EKUND.RA| 00001A40: 44 52 45 53 53 45 20 2B 24 36 30 20 57 49 45 44 |DRESSE +$60 WIED| 00001A50: 45 52 20 49 4E 20 24 C2 39 20 41 42 4C 45 47 45 |ER IN $.9 ABLEGE| 00001A60: 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |N.. | 00001A70: 20 CA 53 52 20 C6 33 C4 35 20 20 49 45 43 4F 50 | .SR .3.5 IECOP| 00001A80: 4E 20 20 46 41 4C 4C 53 20 C9 C5 C3 2D C2 55 53 |N FALLS ...-.US| 00001A90: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 |. (| 00001AA0: 43 4C 43 20 52 54 53 29 0D 0D C9 C5 C3 CF D0 CE |CLC RTS)........| 00001AB0: 20 20 C6 33 C4 35 20 20 C6 41 4C 4C 53 20 D3 45 | .3.5 .ALLS .E| 00001AC0: 4B 55 4E 44 85 52 41 44 52 45 53 53 45 20 28 24 |KUND.RADRESSE ($| 00001AD0: C2 39 29 20 47 45 20 31 32 38 3A 20 20 20 20 43 |.9) GE 128: C| 00001AE0: 4C 43 20 52 54 53 0D 20 20 20 20 20 20 20 20 20 |LC RTS. | 00001AF0: 20 20 20 20 20 C6 41 4C 4C 53 20 CC 85 4E 47 45 | .ALLS ..NGE| 00001B00: 20 44 45 53 20 C6 49 4C 45 4E 41 4D 45 4E 53 20 | DES .ILENAMENS | 00001B10: 28 24 C2 37 29 20 45 51 20 30 3A 20 43 4C 43 20 |($.7) EQ 0: CLC | 00001B20: 52 54 53 0D 20 20 20 20 20 20 20 20 20 20 20 20 |RTS. | 00001B30: 20 20 D3 54 41 54 55 53 20 28 24 39 30 29 20 41 | .TATUS ($90) A| 00001B40: 55 46 20 30 20 53 45 54 5A 45 4E 0D 20 20 20 20 |UF 0 SETZEN. | 00001B50: 20 20 20 20 20 20 20 20 20 20 CC 49 53 54 45 4E | .ISTEN| 00001B60: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D3 |. .| 00001B70: 45 43 4C 49 53 54 20 4D 49 54 20 D3 45 4B 55 4E |ECLIST MIT .EKUN| 00001B80: 44 85 52 41 44 52 45 53 53 45 20 28 24 C2 39 29 |D.RADRESSE ($.9)| 00001B90: 20 4F 52 41 20 23 24 C6 30 0D 20 20 20 20 20 20 | ORA #$.0. | 00001BA0: 20 20 20 20 20 20 20 20 D3 54 41 54 55 53 20 54 | .TATUS T| 00001BB0: 45 53 54 45 4E 3B 20 47 47 46 2E 20 44 45 56 49 |ESTEN; GGF. DEVI| 00001BC0: 43 45 20 4E 4F 54 20 50 52 45 53 45 4E 54 20 45 |CE NOT PRESENT E| 00001BD0: 52 52 4F 52 20 23 35 0D 20 20 20 20 20 20 20 20 |RROR #5. | 00001BE0: 20 20 20 20 20 20 C7 47 46 2E 20 C6 49 4C 45 4E | .GF. .ILEN| 00001BF0: 41 4D 45 20 4D 49 54 20 C5 C4 C4 C4 20 28 49 45 |AME MIT .... (IE| 00001C00: 43 4F 55 54 29 20 41 55 53 47 45 42 45 4E 0D 20 |COUT) AUSGEBEN. | 00001C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 4C | UNL| 00001C20: 49 53 54 20 20 43 4C 43 20 20 52 54 53 0D 0D 0D |IST CLC RTS...| 00001C30: C3 CC CF D3 C5 20 20 20 C6 32 39 31 20 20 8B 42 |..... .291 .B| 00001C40: 45 52 20 4C 4F 47 2E 20 C6 49 4C 45 4E 55 4D 4D |ER LOG. .ILENUMM| 00001C50: 45 52 20 49 4E 20 D8 20 D0 41 52 41 4D 45 54 45 |ER IN . .ARAMETE| 00001C60: 52 20 4E 41 43 48 20 24 C2 38 2D C2 C1 0D 20 20 |R NACH $.8-... | 00001C70: 20 20 20 20 20 20 20 20 20 20 20 20 47 45 42 45 | GEBE| 00001C80: 4E 2E 20 C6 41 4C 4C 53 20 4E 49 43 48 54 20 49 |N. .ALLS NICHT I| 00001C90: 4E 20 C6 49 4C 45 54 41 42 45 4C 4C 45 3A 20 43 |N .ILETABELLE: C| 00001CA0: 4C 43 20 52 54 53 0D 20 20 20 20 20 20 20 20 20 |LC RTS. | 00001CB0: 20 20 20 20 20 CA 53 52 20 C9 C5 C3 C3 CC D3 20 | .SR ...... | 00001CC0: 20 C6 36 34 32 20 20 46 41 4C 4C 53 20 C7 45 52 | .642 FALLS .ER| 00001CD0: 2E 41 44 52 2E 20 47 54 20 33 0D 20 20 20 20 20 |.ADR. GT 3. | 00001CE0: 20 20 20 20 20 20 20 20 20 C1 55 53 20 C6 49 4C | .US .IL| 00001CF0: 45 54 41 42 45 4C 4C 45 20 45 4E 54 46 45 52 4E |ETABELLE ENTFERN| 00001D00: 45 4E 20 20 20 43 4C 43 20 20 52 54 53 0D 0D C9 |EN CLC RTS...| 00001D10: C5 C3 C3 CC D3 20 20 C6 36 34 36 20 20 4C 49 53 |..... .646 LIS| 00001D20: 54 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |TEN. | 00001D30: 20 20 53 45 43 4C 49 53 54 20 4D 49 54 20 D3 45 | SECLIST MIT .E| 00001D40: 4B 2E 41 44 52 2E 20 41 4E 44 20 23 24 C5 C6 2F |K.ADR. AND #$../| 00001D50: 4F 52 41 20 23 24 C5 30 20 28 D3 C1 2B 24 C5 30 |ORA #$.0 (..+$.0| 00001D60: 29 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |). | 00001D70: 55 4E 4C 49 53 54 45 4E 20 20 43 4C 43 20 20 52 |UNLISTEN CLC R| 00001D80: 54 53 0D 0D 28 49 45 43 43 4C 53 29 C6 36 33 C6 |TS..(IECCLS).63.| 00001D90: 20 20 55 4E 4C 49 53 54 45 4E 0D 20 20 20 20 20 | UNLISTEN. | 00001DA0: 20 20 20 20 20 20 20 20 20 46 41 4C 4C 53 20 53 | FALLS S| 00001DB0: 45 4B 2E 20 41 44 52 2E 20 28 24 C2 39 29 20 4B |EK. ADR. ($.9) K| 00001DC0: 4C 45 49 4E 45 52 20 31 32 38 3A 20 C6 36 34 36 |LEINER 128: .646| 00001DD0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D3 |. .| 00001DE0: 4F 4E 53 54 3A 20 43 4C 43 20 52 54 53 0D 0D 0D |ONST: CLC RTS...| 00001DF0: C3 C8 CB CF D5 D4 20 20 C6 32 35 30 20 20 4C 4F |...... .250 LO| 00001E00: 47 2E 20 C6 49 4C 45 4E 55 4D 4D 45 52 20 49 4E |G. .ILENUMMER IN| 00001E10: 20 D8 20 49 4E 20 C6 49 4C 45 54 41 42 45 4C 4C | . IN .ILETABELL| 00001E20: 45 20 53 55 43 48 45 4E 3B 0D 20 20 20 20 20 20 |E SUCHEN;. | 00001E30: 20 20 20 20 20 20 20 20 D0 41 52 41 4D 45 54 45 | .ARAMETE| 00001E40: 52 20 4E 41 43 48 20 24 C2 39 2D C2 C1 20 4F 44 |R NACH $.9-.. OD| 00001E50: 45 52 20 46 49 4C 45 20 4E 4F 54 20 4F 50 45 4E |ER FILE NOT OPEN| 00001E60: 20 45 52 52 4F 52 0D 20 20 20 20 20 20 20 20 20 | ERROR. | 00001E70: 20 20 20 20 20 4A 53 52 20 4C 49 53 54 45 4E 20 | JSR LISTEN | 00001E80: 20 20 46 41 4C 4C 53 20 41 55 46 20 C9 C5 C3 2D | FALLS AUF ...-| 00001E90: C2 55 53 0D 20 20 20 20 20 20 20 20 20 20 20 20 |.US. | 00001EA0: 20 20 D3 45 4B 2E 41 44 52 2E 20 47 45 20 31 32 | .EK.ADR. GE 12| 00001EB0: 38 3A 20 20 41 54 4E 48 49 20 28 4A 53 52 20 45 |8: ATNHI (JSR E| 00001EC0: 44 42 45 29 0D 20 20 20 20 20 20 20 20 20 20 20 |DBE). | 00001ED0: 20 20 20 D3 45 4B 2E 41 44 52 2E 20 4C 45 20 31 | .EK.ADR. LE 1| 00001EE0: 32 37 3A 20 20 53 45 43 4C 49 53 54 20 28 4A 53 |27: SECLIST (JS| 00001EF0: 52 20 45 44 42 39 29 0D 20 20 20 20 20 20 20 20 |R EDB9). | 00001F00: 20 20 20 20 20 20 C6 41 4C 4C 53 20 D3 54 41 54 | .ALLS .TAT| 00001F10: 55 53 20 4E 45 20 30 3A 20 C7 45 52 85 54 45 4E |US NE 0: .ER.TEN| 00001F20: 52 2E 20 4E 41 43 48 20 24 39 C1 3B 20 43 4C 43 |R. NACH $9.; CLC| 00001F30: 20 52 54 53 0D | RTS. |
.@.0.5IEC - BUS ROUTINEN.5.0
LAST REV. 7.11.91...0.5DER
SERIELLE BUS.5.0..ATN-OUT, CLK-OUT UND
DATA-OUT LIEGEN AM EINGANG EINES INVER-.
TERS, DESSEN OPEN-COLLECTOR-AUSGANG .BER
EINEN PULL-UP-.WIDERSTAND AN +5V GEF.HR
T IST. LIEGEN DIE AUSG.NGE MEHRERER.GER.
TE AN EINER LEITUNG, SO KANN EIN EINZIGE
R TREIBER DIE.LEITUNG NACH LOW ZIEHEN. S
IE IST DAMIT IM AKTIVEN ZUSTAND..DAS LAN
GSAMSTE GER.T KANN DAMIT U.U. ALLE ANDER
EN ZUM WARTEN.BRINGEN..ATN-OUT L.ST IN D
ER FLOPPY EINEN INTERRUPT AUS UND IST VO
N.DIESER NICHT ZU BEEINFLUSSEN: DIES IST
ALLEINIGE AUFGABE DES.BUSCONTROLLERS..D
ER ZUSTAND VON DATA UND CLK WIRD AN CIA-
EING.NGE GEF.HRT..FALLS KEIN PERIPHERIEG
ER.T EINE LEITUNG NACH LOW ZIEHT,.HABEN
DATA-IN / CLK-IN DIE ZU DATA-OUT / CLK-O
UT INVERSEN.WERTE....5DER CIA-PORT $DD00
:.5.BIT 7..3: DATA-IN CLK-IN DATA-OUT
CLK-OUT ATN-OUT...5FLOPPY: VIA-PORT
$1800:.5.7: ATN-IN (LIEGT AN CB2 UND KA
NN IRQ AUSL.SEN).6,5: GER.TENUMMER.4: AT
N-OUT.3..0: CLK-OUT CLK-IN DATA-OUT
DATA-IN....0.5E-/A-ROUTINEN .BER DEN SER
IELLEN BUS.5.0...5UNTERPROGRAMME (ENDEN
MIT RTS):.5..CLKHI EE85 CLOCK-LEITUNG
AUF HI SETZEN (CIA BIT 4 L.SCHEN).CLKLO
EE8E CLOCK-LEITUNG AUF LOW SETZEN.DATA
HI EE97 DATA-LEITUNG AUF HI SETZEN.DAT
ALO EEA0 DATA-LEITUNG AUF LOW SETZEN.A
TNHI EDBE ATN-LEITUNG AUF HI SETZEN.
...5ZEROPAGEADRESSEN:.5..$94 FLAG: ZE
ICHEN IM PUFFER F.R IEC-BUS (0=LEER, 1=V
OLL).$95 PUFFER F.R EIN AUF DEN BUS Z
U GEBENDES ZEICHEN.$A3 HILFSSPEICHER
/ FLAG F.R EOI (BIT 7).$A5 SERIELLER
BITZ.HLER....5AUSGABEROUTINEN AUF IEC-B
US (BIT-EBENE).5..TALK ED09 ORA #%01
00 0000 TALK-BIT IM AKKU SETZEN.
ED0B BIT-BEFEHL (N.CHSTER BEFEHL WIRD
IGNORIERT).LISTEN ED0C ORA #%0010 0000
LISTEN-BIT IM AKKU SETZEN.
JSR F0A4 ENDE RS232-I/O ABWART
EN. ED11 BYTE U
NTER ATN AUSGEBEN...ED11 BYTE I
M AKKU MIT AKTIVEM ATN-SIGNAL AUSGEBEN..
ED11 FALLS EIN BYTE IM PUFFER:
DIESES ZUERST .BER. ED40 AU
F DEN BUS GEBEN (BIT 7 IN $A3 GESETZT)..
FLAG $94 L.SCHEN...
BYTE IN PUFFER $95 GEBEN (FLAG $9
4 BLEIBT 0).. $A3 L.SCHEN;
SEI; DATAHI; BEI ED2E WEITERMACHEN..ED2B
ED2B JSR CLKHI..ED2E ED2E ATNLO
..ED36 ED36 SEI. CLKLO,
DATAHI. 1 MS WARTEN..IECBY
T ED40 SEI. DATA-IN HIGH:
DEVICE NOT PRESENT ERROR AUSGANG.
CLKHI. $A3 NEGATIV:
ERST DATA-IN-HI, DANN DATA-IN-LOW.
ABWARTEN.
DATA-IN HI ABWARTEN. C
LKLO. $A5: BITZ.HLER MIT WE
RT 8 LADEN.. ED66 AUSGABESCHLEIF
E:. DATA-IN AUF LO: TIME OU
T ERROR AUSL.SEN. BIT SENDE
N (LSB ZUERST): DATA-OUT = BIT SETZEN.
CLKHI. 8 TAKTE
WARTEN. DATA-OUT AUF HI / C
LK-OUT AUF LO (GLEICHZEITIG).
$A5 TESTEN: N.CHSTES BIT SENDEN..
TIMER AUF MIT 1MS SETZEN UND S
T.NDIG ICR UND. DATA-IN TES
TEN.. TIMER ABGELAUFEN: TIM
E OUT ERROR AUSL.SEN. DATA-
IN RECHTZEITIG AUF LO:.. CL
I. RTS....5FEHLERBEHANDLUNG
:.5..EDAD EDAD LDA #$80 FEHLERNUMME
R F.R DEVICE NOT PRESENT. EDAF B
IT.EDB0 EDB0 LDA #$03 FEHLERNUMMER
F.R TIME OUT LADEN. JSR FE1
C (ORA $90 STA $90) IN STATUS GEBEN.
CLI. JMP EE03.
...5AUSGABEROUTINEN AUF IEC-BUS (.BERGEO
RDNETE EBENE).5..SECLIST EDB9 STA $95
IN PUFFER GEBEN. JSR ED36
SENDEN. EDBE ATNHI (KEIN JS
R!). RTS...SECTALK EDC7 ST
A $95 IN PUFFER GEBEN. JS
R ED36 SENDEN. SEI.
DATALO, ATNHI, CLKHI.
AUF CLKLO WARTEN. CLI.
RTS...IECOUT EDDD $94 TESTE
N. BYTE IM PUFFER $95: DIES
ES MIT JSR ED40 SENDEN. (NE
UES) BYTE IN PUFFER $95 ABLEGEN.
CLC RTS...UNTALK EDEF SEI.
CLKLO. ATNLO.
LDA #$5F BITMUSTER F.R UNTALK L
ADEN. EDFD BIT.UNLIST EDFE LDA
#$3F BITMUSTER F.R UNLISTEN LADEN.
JSR ED11 UNTER ATN SENDEN (PU
FFER BEACHTET).EE03 EE03 ATNHI.EE06
EE06 42 TAKTE WARTEN. C
LKHI, DATAHI. RTS....5EINGA
BE .BER IEC-BUS.5..IECIN EE13 SEI.
BITZ.HLER $A5 AUF 0.
CLKHI. WARTEN AUF CLKH
I. EE20 TIMER MIT WARTEWERT LADE
N. DATAHI. AUF
CLKLO WARTEN UND TIMER BEOBACHTEN.
CLKLO TRITT EIN: JMP EE56..
FALLS $A5 NICHT 0: TIME OUT ER
ROR (EDB2).. $A5 IST 0: DAT
ALO, CLKHI. END-OF-FILE ($4
0) - BIT IM STATUSBYTE SETZEN.
INC $A5. JMP EE20..
EE56 $A5 MIT 8 LADEN.. EE5A
AUF CLKHI WARTEN. BIT AUS
DATA-IN IN $A4 EINROTIEREN (LSB ZUERST).
AUF CLKLO WARTEN.
$A5 ERNIEDRIGEN; FALLS NICHT ABGELA
UFEN: EE5A.. DATALO.
FALLS EOF-BIT IM STATUSBYTE GESET
ZT: JSR EE06. AKKU MIT BYTE
AUS $A4 LADEN. CLI CLC RTS
....0.5.BERGEORDNETE ROUTINEN.5.0...5AUS
GABE AUF IEC-BUS:.5..FILNAM ($FFBD) UND
FILPAR ($FFBA) ZUM SETZEN DER PARAMETER.
OPEN RICHTET NORMALERWEISE NUR DIE FILET
ABELLE IM COMPUTER.EIN; IST DIE L.NGE DE
S FILENAMENS VON 0 VERSCHIEDEN, SO WIRD.
DIESER (EINGERAHMT VON LISTEN / SECLIST
UND UNLIST) .BER-.TRAGEN..FLOPPY: SEKUND
.RADRESSE 0 = LOAD, 1 = SAVE, 15 = KOMMA
NDO. IN ASSEMBLEREBENE: $60 DAZUA
DDIEREN ($60..$6F)!. CLOSE KANAL
15 SCHLIESST ALLE FLOPPYKAN.LE; NACH.
RECHNERFEHLER RETTUNG MIT OPEN 1,8,
15 : CLOSE 1..CLOSE ($FFC3): SCHLIE.T F
LOPPYKANAL, L.SCHT FILEEINTRAG.CHKOUT ($
FFC9): .QUIVALENT DES CMD-BEFEHLES; BEIN
HALTET DAS. LISTEN-KOMMANDO..CLRC
HN ($FFCC): STELLT AUF TASTATUR UND BILD
SCHIRM ZUR.CK UND. GIBT GGF. UNLI
STEN / UNTALK AUS..CLALL ($FFE7): L.SCH
T FILETABELLE, DANN CLRCHN..BEI AUSGABE
ZUR FLOPPY IST ES EGAL, OB MAN DIREKT .B
ER IECOUT.ODER .BER CHROUT ($FFD2) AUSGI
BT. BEI KONTINUIERLICHEN AUS-.GABEN: OPE
N / LISTEN / AUSGABESCHLEIFE / CLOSE..BE
I UNTERBROCHENEN AUSGABEN: OPEN 2,8,2,"N
AME,P,W", DANN GGF..MEHRMALS CHKOUT / AU
SGABESCHLEIFE / CLRCHN, DANN CLOSE..WICH
TIGER UNTERSCHIED: JETZT WIRD DER FLOPPY
MOTOR AUSGESCHAL-.TET, WENN ER NICHT GEB
RAUCHT WIRD..EIN DRUCKER IST U.U. SEHR E
MPFINDLICH, WAS VERZ.GERUNGEN BEI.DER AU
SGABE ANBELANGT...OPEN F34A AKTUELLE
FILENUMMER AUS $B8 HOLEN.
FALLS 0: NOT INPUT FILE ERROR #6..
PARAMETER IN FILETABELLE GEBEN;
DABEI SEK.ADR.. MIT KENNUNG
OFFENER FILES VERSEHEN: ORA #$60..
FEHLER: FILE OPEN ERROR #2; TOO
MANY FILES (#1). SEKUND.RA
DRESSE +$60 WIEDER IN $B9 ABLEGEN..
JSR F3D5 IECOPN FALLS IEC-BUS
. (CLC RTS)..IECOPN F3D5
FALLS SEKUND.RADRESSE ($B9) GE 128: C
LC RTS. FALLS L.NGE DES FIL
ENAMENS ($B7) EQ 0: CLC RTS.
STATUS ($90) AUF 0 SETZEN.
LISTEN. SECLIST MIT SEKUN
D.RADRESSE ($B9) ORA #$F0.
STATUS TESTEN; GGF. DEVICE NOT PRESENT E
RROR #5. GGF. FILENAME MIT
EDDD (IECOUT) AUSGEBEN. UNL
IST CLC RTS...CLOSE F291 .BER LOG.
FILENUMMER IN X PARAMETER NACH $B8-BA.
GEBEN. FALLS NICHT IN FILETA
BELLE: CLC RTS. JSR IECCLS
F642 FALLS GER.ADR. GT 3.
AUS FILETABELLE ENTFERNEN CLC RTS..I
ECCLS F646 LISTEN. SECLIS
T MIT SEK.ADR. AND #$EF/ORA #$E0 (SA+$E0
). UNLISTEN CLC RTS..(IEC
CLS)F63F UNLISTEN. FALLS S
EK. ADR. ($B9) KLEINER 128: F646.
SONST: CLC RTS...CHKOUT F250 LO
G. FILENUMMER IN X IN FILETABELLE SUCHEN
;. PARAMETER NACH $B9-BA OD
ER FILE NOT OPEN ERROR. JSR
LISTEN FALLS AUF IEC-BUS.
SEK.ADR. GE 128: ATNHI (JSR EDBE).
SEK.ADR. LE 127: SECLIST (JS
R EDB9). FALLS STATUS NE 0:
GER.TENR. NACH $9A; CLC RTS.
> CLICK IMAGE PREVIEW FOR FULL MODAL