SHOWSORT1.ASM
FILE INFORMATION
FILENAME(S): SHOWSORT1.ASM
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 21:27:21
APPEARS ON: 1 disk(s)
FILE HASH
41ca78f0c77f51a1b27db0d0f52e0c9dc6bee30d6a463eceb7c1dea1f01457c7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | SHOWSORT1.ASM | PRG | DuncanTwain | 26 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 00 30 22 45 2E 00 01 20 2E 4F D3 10 01 20 2E |..0"E... .O... .| 00000010: 52 D3 20 01 20 BB 30 01 20 20 20 20 20 20 20 20 |R. . .0. | 00000020: 20 20 20 2E 42 41 20 24 30 38 30 B1 40 01 20 BB | .BA $080.@. .| 00000030: 50 01 20 20 20 20 20 20 20 20 20 20 20 3B 20 4C |P. ; L| 00000040: 41 53 54 20 52 45 56 2E 20 30 36 2E 31 30 2E 31 |AST REV. 06.10.1| 00000050: 39 39 B1 60 01 20 BB 70 01 20 3B 20 4B 45 52 4E |99.`. .p. ; KERN| 00000060: 41 4C 20 53 50 52 55 4E 47 54 41 42 45 4C 4C C5 |AL SPRUNGTABELL.| 00000070: 80 01 20 3B 20 28 46 4C 4F 50 50 59 52 4F 55 54 |.. ; (FLOPPYROUT| 00000080: 49 4E 45 4E A9 90 01 20 BB 00 02 43 4C 41 4C 4C |INEN... ...CLALL| 00000090: 20 2E 44 45 20 24 46 46 45 B7 10 02 43 4C 52 43 | .DE $FFE...CLRC| 000000A0: 48 4E 20 2E 44 45 20 24 46 46 43 C3 20 02 46 49 |HN .DE $FFC. .FI| 000000B0: 4C 50 41 52 20 2E 44 45 20 24 46 46 42 C1 30 02 |LPAR .DE $FFB.0.| 000000C0: 46 49 4C 4E 41 4D 20 2E 44 45 20 24 46 46 42 C4 |FILNAM .DE $FFB.| 000000D0: 40 02 4F 50 45 4E 20 2E 44 45 20 24 46 46 43 B0 |@.OPEN .DE $FFC.| 000000E0: 50 02 43 4C 4F 53 45 20 2E 44 45 20 24 46 46 43 |P.CLOSE .DE $FFC| 000000F0: B3 60 02 4C 49 53 54 45 4E 20 2E 44 45 20 24 46 |.`.LISTEN .DE $F| 00000100: 46 42 B1 70 02 55 4E 4C 49 53 54 20 2E 44 45 20 |FB.p.UNLIST .DE | 00000110: 24 46 46 42 B1 80 02 54 41 4C 4B 20 2E 44 45 20 |$FFB...TALK .DE | 00000120: 24 46 46 42 B4 90 02 55 4E 54 41 4C 4B 20 2E 44 |$FFB...UNTALK .D| 00000130: 45 20 24 46 46 41 C2 00 03 53 45 43 54 41 4C 4B |E $FFA...SECTALK| 00000140: 20 2E 44 45 20 24 46 46 39 B6 10 03 53 45 43 4C | .DE $FF9...SECL| 00000150: 49 53 54 20 20 20 20 20 2E 44 45 20 24 46 46 39 |IST .DE $FF9| 00000160: B3 20 03 49 45 43 4F 55 54 20 20 20 20 20 2E 44 |. .IECOUT .D| 00000170: 45 20 24 46 46 41 B8 30 03 49 45 43 49 4E 20 2E |E $FFA.0.IECIN .| 00000180: 44 45 20 24 46 46 41 B5 40 03 43 48 52 4F 55 54 |DE $FFA.@.CHROUT| 00000190: 20 20 20 20 20 2E 44 45 20 24 46 46 44 B2 50 03 | .DE $FFD.P.| 000001A0: 43 48 4B 4F 55 54 20 2E 44 45 20 24 46 46 43 B9 |CHKOUT .DE $FFC.| 000001B0: 60 03 20 BB 70 03 53 54 52 4F 55 54 20 2E 44 45 |`. .p.STROUT .DE| 000001C0: 20 24 41 42 31 C5 80 03 20 BB 90 03 20 BB 00 04 | $AB1... ... ...| 000001D0: 20 BB 10 04 20 20 20 20 20 20 20 20 20 20 20 2E | ... .| 000001E0: 42 59 20 24 31 36 20 24 30 38 20 24 43 37 20 24 |BY $16 $08 $C7 $| 000001F0: 30 37 20 24 39 45 20 3B 20 42 41 53 49 43 53 54 |07 $9E ; BASICST| 00000200: 41 52 D4 20 04 20 2E 42 59 20 24 32 38 20 24 33 |AR. . .BY $28 $3| 00000210: 32 20 24 33 30 20 24 33 37 20 24 33 32 20 24 32 |2 $30 $37 $32 $2| 00000220: 39 20 24 32 B0 30 04 20 2E 42 59 20 27 4F 44 59 |9 $2.0. .BY 'ODY| 00000230: 53 53 45 55 53 27 20 30 20 30 20 B0 40 04 20 BB |SSEUS' 0 0 .@. .| 00000240: 50 04 20 BB 60 04 20 3B 20 5A 45 52 4F 50 41 47 |P. .`. ; ZEROPAG| 00000250: 45 41 44 52 45 53 53 45 4E BA 70 04 20 BB 80 04 |EADRESSEN.p. ...| 00000260: 52 45 41 44 4C 49 4E 20 20 20 20 2E 44 45 20 24 |READLIN .DE $| 00000270: 41 38 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |A8 ;| 00000280: 20 5A 45 49 47 45 52 20 41 55 46 20 45 49 4E 54 | ZEIGER AUF EINT| 00000290: 52 41 C7 90 04 41 4E 46 4C 49 4E 20 20 20 20 20 |RA...ANFLIN | 000002A0: 2E 44 45 20 24 46 42 20 20 20 20 20 20 20 20 20 |.DE $FB | 000002B0: 20 20 20 20 3B 20 5A 45 49 47 45 52 20 41 55 46 | ; ZEIGER AUF| 000002C0: 20 45 49 4E 54 52 41 47 20 5A 45 49 4C 45 20 B0 | EINTRAG ZEILE .| 000002D0: 00 05 45 4E 44 4C 49 4E 20 20 20 20 20 2E 44 45 |..ENDLIN .DE| 000002E0: 20 24 46 44 20 20 20 20 20 20 20 20 20 20 20 20 | $FD | 000002F0: 20 3B 20 5A 45 49 47 45 52 20 41 55 46 20 45 49 | ; ZEIGER AUF EI| 00000300: 4E 54 52 41 47 20 5A 45 49 4C 45 20 32 B4 10 05 |NTRAG ZEILE 2...| 00000310: 46 4E 52 20 20 20 20 20 20 20 20 2E 44 45 20 24 |FNR .DE $| 00000320: 41 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |AC | 00000330: 3B 20 4E 52 2E 20 41 4B 54 55 45 4C 4C 45 52 20 |; NR. AKTUELLER | 00000340: 45 49 4E 54 52 41 C7 20 05 46 41 4E 5A 20 20 20 |EINTRA. .FANZ | 00000350: 20 20 20 20 2E 44 45 20 24 41 45 20 20 20 20 20 | .DE $AE | 00000360: 20 20 20 20 20 20 20 20 3B 20 41 4E 5A 41 48 4C | ; ANZAHL| 00000370: 20 41 4C 4C 45 52 20 45 49 4E 54 52 41 45 47 C5 | ALLER EINTRAEG.| 00000380: 30 05 43 4E 54 4F 55 54 20 2E 44 45 20 24 41 41 |0.CNTOUT .DE $AA| 00000390: 20 3B 20 5A 41 48 4C 20 47 45 57 41 45 48 4C 54 | ; ZAHL GEWAEHLT| 000003A0: 45 52 20 45 49 4E 54 52 41 45 47 C5 40 05 41 43 |ER EINTRAEG.@.AC| 000003B0: 54 4C 49 4E 20 20 20 20 20 2E 44 45 20 24 41 37 |TLIN .DE $A7| 000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 | ; | 000003D0: 4E 55 4D 4D 45 52 20 44 45 52 20 41 4B 54 55 45 |NUMMER DER AKTUE| 000003E0: 4C 4C 45 4E 20 5A 45 49 4C C5 50 05 43 4E 54 4C |LLEN ZEIL.P.CNTL| 000003F0: 49 4E 20 20 20 20 20 2E 44 45 20 24 30 32 20 20 |IN .DE $02 | 00000400: 20 20 20 20 20 20 20 20 20 20 20 3B 20 5A 41 45 | ; ZAE| 00000410: 48 4C 45 52 20 42 2E 5A 45 49 4C 45 CE 60 05 20 |HLER B.ZEILE.`. | 00000420: BB 70 05 20 BB 80 05 20 BB 90 05 20 3B 20 2A 2A |.p. ... ... ; **| 00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 00 06 20 |************... | 00000450: 3B 20 2A 20 20 20 48 41 55 50 54 50 52 4F 47 52 |; * HAUPTPROGR| 00000460: 41 4D 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 |AMM | 00000470: AA 10 06 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ; **********| 00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000490: 2A 2A 2A 2A AA 20 06 20 BB 30 06 20 3B 20 28 53 |****. . .0. ; (S| 000004A0: 59 53 20 32 30 37 32 A9 40 06 20 BB 50 06 20 BB |YS 2072.@. .P. .| 000004B0: 60 06 20 3B 20 54 49 54 45 4C 20 41 55 53 47 45 |`. ; TITEL AUSGE| 000004C0: 42 45 CE 70 06 20 BB 80 06 20 4C 44 41 20 23 4C |BE.p. ... LDA #L| 000004D0: 2C 54 4F 50 54 58 D4 90 06 20 4C 44 59 20 23 48 |,TOPTX... LDY #H| 000004E0: 2C 54 4F 50 54 58 D4 00 07 20 4A 53 52 20 53 54 |,TOPTX... JSR ST| 000004F0: 52 4F 55 D4 10 07 20 BB 20 07 20 BB 30 07 20 3B |ROU... . . .0. ;| 00000500: 20 44 41 54 45 49 46 49 4C 45 20 4B 4F 4D 50 4C | DATEIFILE KOMPL| 00000510: 45 54 54 20 45 49 4E 4C 45 53 45 CE 40 07 20 BB |ETT EINLESE.@. .| 00000520: 50 07 20 4A 53 52 20 47 45 54 44 41 D4 60 07 20 |P. JSR GETDA.`. | 00000530: BB 70 07 20 BB 80 07 20 3B 20 42 49 4C 44 53 43 |.p. ... ; BILDSC| 00000540: 48 49 52 4D 20 41 55 46 42 41 55 20 55 4E 44 20 |HIRM AUFBAU UND | 00000550: 49 4E 49 54 49 41 4C 49 53 49 45 52 55 4E 47 BA |INITIALISIERUNG.| 00000560: 90 07 20 BB 00 08 4D 4F 56 30 20 20 20 20 20 20 |.. ...MOV0 | 00000570: 20 4A 53 52 20 42 49 4E 49 D4 10 08 20 BB 20 08 | JSR BINI... . .| 00000580: 20 BB 30 08 20 3B 20 42 45 57 45 47 55 4E 47 53 | .0. ; BEWEGUNGS| 00000590: 2D 53 54 45 55 45 52 55 4E 47 20 4D 49 54 20 4A |-STEUERUNG MIT J| 000005A0: 4F 59 53 54 49 43 CB 40 08 20 20 20 20 20 20 20 |OYSTIC.@. | 000005B0: 20 20 20 20 3B 20 49 4E 20 50 4F 52 54 20 32 3A | ; IN PORT 2:| 000005C0: 20 55 50 20 55 4E 44 20 44 4F 57 4E AC 50 08 20 | UP UND DOWN.P. | 000005D0: 3B 20 46 49 52 45 20 55 45 42 45 52 4E 49 4D 4D |; FIRE UEBERNIMM| 000005E0: 54 20 45 49 4E 54 52 41 47 AE 60 08 20 3B 20 48 |T EINTRAG.`. ; H| 000005F0: 4F 4D 45 3A 20 5A 55 4D 20 44 41 54 45 49 41 4E |OME: ZUM DATEIAN| 00000600: 46 41 4E C7 70 08 20 3B 20 45 53 43 41 50 45 20 |FAN.p. ; ESCAPE | 00000610: 28 50 46 45 49 4C 20 4C 49 4E 4B 53 29 3A 20 50 |(PFEIL LINKS): P| 00000620: 52 47 2E 45 4E 44 C5 80 08 20 BB 90 08 4D 4F 56 |RG.END... ...MOV| 00000630: 31 20 20 20 20 20 20 20 4C 44 41 20 24 44 43 30 |1 LDA $DC0| 00000640: 30 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 4A |0 ; J| 00000650: 4F 59 53 54 49 43 4B 2D 50 4F 52 54 20 B2 00 09 |OYSTICK-PORT ...| 00000660: 20 20 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 | CMP #| 00000670: 24 37 46 20 20 20 20 20 20 20 20 20 20 20 20 20 |$7F | 00000680: 3B 20 4B 45 49 4E 20 45 52 45 49 47 4E 49 53 BF |; KEIN EREIGNIS.| 00000690: 10 09 20 20 20 20 20 20 20 20 20 20 20 42 45 51 |.. BEQ| 000006A0: 20 4D 4F 56 B4 20 09 20 BB 30 09 20 20 20 20 20 | MOV. . .0. | 000006B0: 20 20 20 20 20 20 43 4D 50 20 23 24 36 46 20 20 | CMP #$6F | 000006C0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 46 49 52 | ; FIR| 000006D0: 45 2C 20 41 42 45 52 20 53 4F 4E 53 54 20 4B 45 |E, ABER SONST KE| 000006E0: 49 4E C5 40 09 20 42 4E 45 20 4D 4F 56 32 20 3B |IN.@. BNE MOV2 ;| 000006F0: 20 42 45 57 45 47 55 4E 47 3F 20 42 3A 20 4E 45 | BEWEGUNG? B: NE| 00000700: 49 CE 50 09 20 4A 53 52 20 54 41 4B 45 20 3B 20 |I.P. JSR TAKE ; | 00000710: 45 49 4E 54 52 41 47 20 55 45 42 45 52 4E 45 48 |EINTRAG UEBERNEH| 00000720: 4D 45 CE 60 09 20 20 20 20 20 20 20 20 20 20 20 |ME.`. | 00000730: 4C 44 41 20 23 24 37 46 20 20 20 20 20 20 20 20 |LDA #$7F | 00000740: 20 20 20 20 20 3B 20 43 4F 44 45 20 27 4B 45 49 | ; CODE 'KEI| 00000750: 4E 20 45 52 45 49 47 4E 49 53 A7 70 09 20 BB 80 |N EREIGNIS.p. ..| 00000760: 09 4D 4F 56 32 20 52 4F 52 20 41 20 3B 20 52 41 |.MOV2 ROR A ; RA| 00000770: 55 46 BF 90 09 20 42 43 53 20 4D 4F 56 33 20 3B |UF... BCS MOV3 ;| 00000780: 20 42 3A 20 4E 45 49 CE 00 10 20 4A 53 52 20 4F | B: NEI... JSR O| 00000790: 4C 44 4C 49 4E 20 3B 20 4E 41 43 48 20 4F 42 45 |LDLIN ; NACH OBE| 000007A0: 4E 20 47 45 48 45 CE 10 10 20 20 20 20 20 20 20 |N GEHE... | 000007B0: 20 20 20 20 4C 44 41 20 23 24 37 C6 20 10 20 BB | LDA #$7. . .| 000007C0: 30 10 4D 4F 56 33 20 52 4F 52 20 41 20 3B 20 52 |0.MOV3 ROR A ; R| 000007D0: 55 4E 54 45 52 BF 40 10 20 20 20 20 20 20 20 20 |UNTER.@. | 000007E0: 20 20 20 42 43 53 20 4D 4F 56 31 20 20 20 20 20 | BCS MOV1 | 000007F0: 20 20 20 20 20 20 20 20 3B 20 42 3A 20 4E 45 49 | ; B: NEI| 00000800: CE 50 10 20 4A 53 52 20 4E 45 57 4C 49 4E 20 3B |.P. JSR NEWLIN ;| 00000810: 20 4E 41 43 48 20 55 4E 54 45 4E 20 47 45 48 45 | NACH UNTEN GEHE| 00000820: CE 60 10 20 4A 4D 50 20 4D 4F 56 B1 70 10 20 BB |.`. JMP MOV.p. .| 00000830: 80 10 4D 4F 56 34 20 20 20 20 20 20 20 4C 44 41 |..MOV4 LDA| 00000840: 20 2A 24 43 42 20 20 20 20 20 20 20 20 20 20 20 | *$CB | 00000850: 20 20 3B 20 54 41 53 54 41 54 55 52 43 4F 44 C5 | ; TASTATURCOD.| 00000860: 90 10 20 43 4D 50 20 23 35 31 20 3B 20 48 4F 4D |.. CMP #51 ; HOM| 00000870: 45 20 47 45 44 52 55 45 43 4B 54 BF 00 11 20 20 |E GEDRUECKT... | 00000880: 20 20 20 20 20 20 20 20 20 42 4E 45 20 4D 4F 56 | BNE MOV| 00000890: 35 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |5 ; | 000008A0: 42 3A 20 4A C1 10 11 20 20 20 20 20 20 20 20 20 |B: J... | 000008B0: 20 20 4A 53 52 20 50 41 55 53 45 20 3B 20 56 45 | JSR PAUSE ; VE| 000008C0: 52 5A 4F 45 47 45 52 55 4E C7 20 11 20 42 45 51 |RZOEGERUN. . BEQ| 000008D0: 20 4D 4F 56 30 20 3B 20 42 52 41 4E 43 48 20 41 | MOV0 ; BRANCH A| 000008E0: 4C 57 41 59 D3 30 11 20 BB 40 11 4D 4F 56 35 20 |LWAY.0. .@.MOV5 | 000008F0: 20 20 20 20 20 20 43 4D 50 20 23 35 37 20 20 20 | CMP #57 | 00000900: 20 20 20 20 20 20 20 20 20 20 20 3B 20 45 53 43 | ; ESC| 00000910: 41 50 45 20 47 45 44 52 55 45 43 4B 54 BF 50 11 |APE GEDRUECKT.P.| 00000920: 20 42 4E 45 20 4D 4F 56 31 20 3B 20 42 3A 20 4E | BNE MOV1 ; B: N| 00000930: 45 49 CE 60 11 20 BB 70 11 20 BB 80 11 20 3B 20 |EI.`. .p. ... ; | 00000940: 45 53 43 41 50 45 3A 20 50 52 4F 47 52 41 4D 4D |ESCAPE: PROGRAMM| 00000950: 20 42 45 45 4E 44 45 CE 90 11 20 BB 00 12 20 4A | BEENDE... ... J| 00000960: 53 52 20 44 49 53 49 52 51 20 3B 20 52 41 53 54 |SR DISIRQ ; RAST| 00000970: 45 52 2D 49 52 51 20 41 42 53 43 48 41 4C 54 45 |ER-IRQ ABSCHALTE| 00000980: CE 10 12 20 BB 20 12 20 20 20 20 20 20 20 20 20 |... . . | 00000990: 20 20 4A 53 52 20 24 45 35 31 38 20 20 20 20 20 | JSR $E518 | 000009A0: 20 20 20 20 20 20 20 3B 20 53 43 52 45 45 4E 20 | ; SCREEN | 000009B0: 52 45 53 45 D4 30 12 20 BB 40 12 20 20 20 20 20 |RESE.0. .@. | 000009C0: 20 20 20 20 20 20 4A 53 52 20 53 41 56 44 41 54 | JSR SAVDAT| 000009D0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 47 45 57 | ; GEW| 000009E0: 55 45 4E 53 43 48 54 45 53 20 53 41 56 45 CE 50 |UENSCHTES SAVE.P| 000009F0: 12 20 BB 60 12 20 4A 4D 50 20 24 41 34 37 34 20 |. .`. JMP $A474 | 00000A00: 3B 20 52 45 41 44 D9 70 12 20 BB 80 12 20 BB 90 |; READ.p. ... ..| 00000A10: 12 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. ; ************| 00000A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A30: 2A AA 00 13 20 20 20 20 20 20 20 20 20 20 20 3B |*... ;| 00000A40: 20 2A 20 20 47 45 54 44 41 54 3A 20 44 41 54 45 | * GETDAT: DATE| 00000A50: 49 20 45 49 4E 4C 45 53 45 4E 20 20 20 20 AA 10 |I EINLESEN ..| 00000A60: 13 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. ; ************| 00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A80: 2A AA 20 13 20 BB 30 13 47 45 54 44 41 54 20 20 |*. . .0.GETDAT | 00000A90: 4A 53 52 20 43 4C 41 4C 4C 20 3B 20 46 49 4C 45 |JSR CLALL ; FILE| 00000AA0: 54 41 42 2E 20 4C 4F 45 53 43 48 45 CE 40 13 20 |TAB. LOESCHE.@. | 00000AB0: BB 50 13 20 20 20 20 4C 44 41 20 23 4C 2C 46 54 |.P. LDA #L,FT| 00000AC0: 45 58 54 20 20 20 20 20 20 20 20 20 3B 20 27 46 |EXT ; 'F| 00000AD0: 49 4C 45 4E 41 4D 45 3A 20 A7 60 13 20 20 20 20 |ILENAME: .`. | 00000AE0: 20 20 20 20 20 20 20 4C 44 59 20 23 48 2C 46 54 | LDY #H,FT| 00000AF0: 45 58 54 20 20 20 20 20 20 20 20 20 3B 20 41 55 |EXT ; AU| 00000B00: 53 47 45 42 45 CE 70 13 20 20 20 20 20 20 20 20 |SGEBE.p. | 00000B10: 20 20 20 4A 53 52 20 53 54 52 4F 55 D4 80 13 20 | JSR STROU... | 00000B20: 20 20 20 20 4A 53 52 20 47 45 54 4E 41 4D 20 20 | JSR GETNAM | 00000B30: 20 20 20 20 20 20 20 20 20 3B 20 46 49 4C 45 4E | ; FILEN| 00000B40: 41 4D 45 20 41 42 46 52 41 47 45 CE 90 13 20 BB |AME ABFRAGE... .| 00000B50: 00 14 20 4C 44 59 20 2A 24 42 37 20 3B 20 4C 41 |.. LDY *$B7 ; LA| 00000B60: 45 4E 47 45 20 46 49 4C 45 4E 41 4D C5 10 14 20 |ENGE FILENAM... | 00000B70: 4C 44 41 20 23 27 2C 27 20 3B 20 46 49 4C 45 4E |LDA #',' ; FILEN| 00000B80: 41 4D 45 BA 20 14 20 53 54 41 20 46 4E 41 4D 2C |AME. . STA FNAM,| 00000B90: 59 20 3B 20 2C 53 20 41 4E 48 41 45 4E 47 45 CE |Y ; ,S ANHAENGE.| 00000BA0: 30 14 20 49 4E D9 40 14 20 4C 44 41 20 23 27 53 |0. IN.@. LDA #'S| 00000BB0: A7 50 14 20 53 54 41 20 46 4E 41 4D 2C D9 60 14 |.P. STA FNAM,.`.| 00000BC0: 20 49 4E D9 70 14 20 20 20 20 20 20 20 20 20 20 | IN.p. | 00000BD0: 20 53 54 59 20 2A 24 42 B7 80 14 20 BB 90 14 20 | STY *$B... ... | 00000BE0: 4C 44 41 20 23 B0 00 15 20 20 20 20 20 20 20 20 |LDA #... | 00000BF0: 20 20 20 53 54 41 20 2A 46 41 4E 5A 20 20 20 20 | STA *FANZ | 00000C00: 20 20 20 20 20 20 20 20 20 3B 20 5A 41 48 4C 20 | ; ZAHL | 00000C10: 44 45 52 20 45 49 4E 54 52 41 45 47 C5 10 15 20 |DER EINTRAEG... | 00000C20: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 2A 46 | STA *F| 00000C30: 41 4E 5A 2B 31 20 20 20 20 20 20 20 20 20 20 20 |ANZ+1 | 00000C40: 3B 20 41 55 46 20 30 20 53 45 54 5A 54 45 CE 20 |; AUF 0 SETZTE. | 00000C50: 15 20 53 54 41 20 2A 43 4E 54 4F 55 54 20 3B 20 |. STA *CNTOUT ; | 00000C60: 5A 41 48 4C 20 44 45 52 20 47 45 57 41 45 48 4C |ZAHL DER GEWAEHL| 00000C70: 54 45 CE 30 15 20 53 54 41 20 2A 43 4E 54 4F 55 |TE.0. STA *CNTOU| 00000C80: 54 2B 31 20 3B 20 45 49 4E 54 52 41 45 47 45 20 |T+1 ; EINTRAEGE | 00000C90: 41 55 46 20 B0 40 15 20 BB 50 15 20 20 20 20 20 |AUF .@. .P. | 00000CA0: 20 20 20 20 20 20 4C 44 58 20 23 4C 2C 46 54 41 | LDX #L,FTA| 00000CB0: 42 20 20 20 20 20 20 20 20 20 20 3B 20 50 4F 49 |B ; POI| 00000CC0: 4E 54 45 52 20 41 55 46 20 52 41 4D 41 4E 46 AE |NTER AUF RAMANF.| 00000CD0: 60 15 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 |`. LDY| 00000CE0: 20 23 48 2C 46 54 41 C2 70 15 20 20 20 20 20 20 | #H,FTA.p. | 00000CF0: 20 20 20 20 20 53 54 58 20 2A 52 45 41 44 4C 49 | STX *READLI| 00000D00: 4E 20 20 20 20 20 20 20 20 20 20 3B 20 53 43 48 |N ; SCH| 00000D10: 52 45 49 42 5A 45 49 47 45 D2 80 15 20 20 20 20 |REIBZEIGE... | 00000D20: 20 20 20 20 20 20 20 53 54 59 20 2A 52 45 41 44 | STY *READ| 00000D30: 4C 49 4E 2B B1 90 15 20 BB 00 16 20 4C 44 41 20 |LIN+... ... LDA | 00000D40: 23 31 20 3B 20 46 49 4C 45 50 41 52 41 4D 45 54 |#1 ; FILEPARAMET| 00000D50: 45 52 20 53 45 54 5A 45 CE 10 16 20 4C 44 58 20 |ER SETZE... LDX | 00000D60: 23 B8 20 16 20 4C 44 59 20 23 24 36 B0 30 16 20 |#. . LDY #$6.0. | 00000D70: 4A 53 52 20 46 49 4C 50 41 52 20 3B 20 31 2C 38 |JSR FILPAR ; 1,8| 00000D80: 2C 30 20 28 3D 20 4C 4F 41 44 A9 40 16 20 BB 50 |,0 (= LOAD.@. .P| 00000D90: 16 20 4A 53 52 20 4F 50 45 CE 60 16 20 20 20 20 |. JSR OPE.`. | 00000DA0: 20 20 20 20 20 20 20 42 43 43 20 4F 4B 20 20 20 | BCC OK | 00000DB0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 42 3A | ; B:| 00000DC0: 20 44 52 49 56 45 20 52 45 41 47 49 45 52 54 C5 | DRIVE REAGIERT.| 00000DD0: 70 16 20 4A 4D 50 20 24 41 34 37 34 20 3B 20 5A |p. JMP $A474 ; Z| 00000DE0: 55 4D 20 52 45 41 44 D9 80 16 20 BB 90 16 4F 4B |UM READ... ...OK| 00000DF0: 20 4C 44 41 20 2A 24 42 41 20 3B 20 47 45 52 41 | LDA *$BA ; GERA| 00000E00: 45 54 45 4E 52 AE 00 17 20 4A 53 52 20 54 41 4C |ETENR... JSR TAL| 00000E10: CB 10 17 20 4C 44 41 20 2A 24 42 39 20 3B 20 53 |... LDA *$B9 ; S| 00000E20: 45 4B 55 4E 44 41 45 52 41 44 52 AE 20 17 20 4A |EKUNDAERADR. . J| 00000E30: 53 52 20 53 45 43 54 41 4C CB 30 17 20 BB 40 17 |SR SECTAL.0. .@.| 00000E40: 20 BB 50 17 20 20 20 20 20 20 20 20 20 20 20 3B | .P. ;| 00000E50: 20 44 49 45 20 45 52 53 54 45 4E 20 35 2D 36 20 | DIE ERSTEN 5-6 | 00000E60: 42 59 54 45 53 20 45 4E 54 48 41 4C 54 45 CE 60 |BYTES ENTHALTE.`| 00000E70: 17 20 3B 20 44 49 45 20 41 4E 5A 41 48 4C 20 44 |. ; DIE ANZAHL D| 00000E80: 45 52 20 45 49 4E 54 52 41 45 47 C5 70 17 20 3B |ER EINTRAEG.p. ;| 00000E90: 20 44 41 53 20 36 2E 20 42 59 54 45 20 49 53 54 | DAS 6. BYTE IST| 00000EA0: 20 52 45 54 55 52 4E AE 80 17 20 3B 20 36 20 42 | RETURN... ; 6 B| 00000EB0: 59 54 45 53 20 57 45 52 44 45 4E 20 55 45 42 45 |YTES WERDEN UEBE| 00000EC0: 52 4C 45 53 45 CE 90 17 20 BB 00 18 20 4C 44 59 |RLESE... ... LDY| 00000ED0: 20 23 34 30 20 3B 20 4D 41 58 2E 20 34 30 20 42 | #40 ; MAX. 40 B| 00000EE0: 59 54 45 53 20 54 45 53 54 45 CE 10 18 4F 4B 31 |YTES TESTE...OK1| 00000EF0: 20 4A 53 52 20 49 45 43 49 CE 20 18 20 43 4D 50 | JSR IECI. . CMP| 00000F00: 20 23 31 33 20 3B 20 52 45 54 55 52 4E BF 30 18 | #13 ; RETURN.0.| 00000F10: 20 42 45 51 20 4F 4B B2 40 18 20 44 45 D9 50 18 | BEQ OK.@. DE.P.| 00000F20: 20 42 50 4C 20 4F 4B B1 60 18 20 BB 70 18 20 BB | BPL OK.`. .p. .| 00000F30: 80 18 4F 4B 32 20 20 20 20 20 20 20 20 4C 44 41 |..OK2 LDA| 00000F40: 20 2A 24 39 30 20 20 20 20 20 20 20 20 20 20 20 | *$90 | 00000F50: 20 20 3B 20 53 54 41 54 55 D3 90 18 20 42 45 51 | ; STATU... BEQ| 00000F60: 20 52 45 41 C4 00 19 20 4C 44 41 20 23 4C 2C 45 | REA... LDA #L,E| 00000F70: 4D 50 54 D9 10 19 20 4C 44 59 20 23 48 2C 45 4D |MPT... LDY #H,EM| 00000F80: 50 54 D9 20 19 20 20 20 20 20 20 20 20 20 20 20 |PT. . | 00000F90: 4A 53 52 20 53 54 52 4F 55 54 20 20 20 20 20 20 |JSR STROUT | 00000FA0: 20 20 20 20 20 3B 20 46 45 48 4C 45 52 4D 45 4C | ; FEHLERMEL| 00000FB0: 44 47 2E 20 41 55 53 47 AE 30 19 20 4A 4D 50 20 |DG. AUSG.0. JMP | 00000FC0: 24 41 34 37 34 20 3B 20 52 45 41 44 D9 40 19 20 |$A474 ; READ.@. | 00000FD0: BB 50 19 20 3B 20 46 49 4C 45 45 49 4E 54 52 41 |.P. ; FILEEINTRA| 00000FE0: 45 47 45 20 45 49 4E 4C 45 53 45 4E BA 60 19 20 |EGE EINLESEN.`. | 00000FF0: BB 70 19 52 45 41 44 20 20 20 20 20 20 20 4C 44 |.p.READ LD| 00001000: 59 20 23 B0 80 19 20 4C 44 41 20 23 33 32 20 3B |Y #... LDA #32 ;| 00001010: 20 53 50 41 43 C5 90 19 20 20 20 20 20 20 20 20 | SPAC... | 00001020: 20 20 20 42 4E 45 20 52 45 41 44 31 41 20 3B 20 | BNE READ1A ; | 00001030: 42 52 41 4E 43 48 20 41 4C 57 41 59 D3 00 20 20 |BRANCH ALWAY.. | 00001040: BB 10 20 52 45 41 44 31 20 4A 53 52 20 49 45 43 |.. READ1 JSR IEC| 00001050: 49 4E 20 3B 20 45 49 4E 45 4E 20 45 49 4E 54 52 |IN ; EINEN EINTR| 00001060: 41 47 20 4C 45 53 45 CE 20 20 20 BB 30 20 52 45 |AG LESE. .0 RE| 00001070: 41 44 31 41 20 20 20 20 20 53 45 C9 40 20 20 4C |AD1A SE.@ L| 00001080: 44 58 20 23 24 33 B0 50 20 20 53 54 58 20 2A 24 |DX #$3.P STX *$| 00001090: 30 B1 60 20 20 20 20 20 20 20 20 20 20 20 20 53 |0.` S| 000010A0: 54 41 20 28 52 45 41 44 4C 49 4E 29 2C D9 70 20 |TA (READLIN),.p | 000010B0: 20 4C 44 58 20 23 24 33 B7 80 20 20 53 54 58 20 | LDX #$3.. STX | 000010C0: 2A 24 30 B1 90 20 20 43 4C C9 00 21 20 BB 10 21 |*$0.. CL..! ..!| 000010D0: 20 49 4E D9 20 21 20 20 20 20 20 20 20 20 20 20 | IN. ! | 000010E0: 20 43 50 59 20 23 32 33 20 20 20 20 20 20 20 20 | CPY #23 | 000010F0: 20 20 20 20 20 20 3B 20 32 32 20 42 59 54 45 53 | ; 22 BYTES| 00001100: 20 47 45 4C 45 53 45 4E BF 30 21 20 20 20 20 20 | GELESEN.0! | 00001110: 20 20 20 20 20 20 42 4E 45 20 52 45 41 44 B1 40 | BNE READ.@| 00001120: 21 20 BB 50 21 20 4A 53 52 20 49 45 43 49 4E 20 |! .P! JSR IECIN | 00001130: 3B 20 52 45 54 55 52 4E 20 55 45 42 45 52 4C 45 |; RETURN UEBERLE| 00001140: 53 45 CE 60 21 20 BB 70 21 20 20 20 20 20 20 20 |SE.`! .p! | 00001150: 20 20 20 20 49 4E 43 20 2A 46 41 4E 5A 20 20 20 | INC *FANZ | 00001160: 20 20 20 20 20 20 20 20 20 20 3B 20 5A 41 45 48 | ; ZAEH| 00001170: 4C 45 52 20 45 52 48 4F 45 48 45 CE 80 21 20 42 |LER ERHOEHE..! B| 00001180: 4E 45 20 52 45 41 44 B2 90 21 20 20 20 20 20 20 |NE READ..! | 00001190: 20 20 20 20 20 49 4E 43 20 2A 46 41 4E 5A 2B B1 | INC *FANZ+.| 000011A0: 00 22 20 BB 10 22 52 45 41 44 32 20 20 20 20 20 |." .."READ2 | 000011B0: 20 4C 44 41 20 2A 52 45 41 44 4C 49 4E 20 20 20 | LDA *READLIN | 000011C0: 20 20 20 20 20 20 20 3B 20 5A 45 49 47 45 52 20 | ; ZEIGER | 000011D0: 57 45 49 54 45 52 53 45 54 5A 45 CE 20 22 20 43 |WEITERSETZE. " C| 000011E0: 4C C3 30 22 20 20 20 20 20 20 20 20 20 20 20 41 |L.0" A| 000011F0: 44 43 20 23 32 B3 40 22 20 20 20 20 20 20 20 20 |DC #2.@" | 00001200: 20 20 20 53 54 41 20 2A 52 45 41 44 4C 49 CE 50 | STA *READLI.P| 00001210: 22 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |" LDA | 00001220: 2A 52 45 41 44 4C 49 4E 2B B1 60 22 20 41 44 43 |*READLIN+.`" ADC| 00001230: 20 23 B0 70 22 20 20 20 20 20 20 20 20 20 20 20 | #.p" | 00001240: 53 54 41 20 2A 52 45 41 44 4C 49 4E 2B B1 80 22 |STA *READLIN+.."| 00001250: 20 BB 90 22 52 45 41 44 33 20 42 49 54 20 2A 24 | .."READ3 BIT *$| 00001260: 39 30 20 3B 20 53 54 41 54 55 53 20 54 45 53 54 |90 ; STATUS TEST| 00001270: 45 CE 00 23 20 42 56 43 20 52 45 41 44 20 3B 20 |E..# BVC READ ; | 00001280: 42 3A 20 57 45 49 54 45 52 4C 45 53 45 CE 10 23 |B: WEITERLESE..#| 00001290: 20 BB 20 23 20 4C 44 41 20 23 31 20 3B 20 46 49 | . # LDA #1 ; FI| 000012A0: 4C 45 20 53 43 48 4C 49 45 53 53 45 CE 30 23 20 |LE SCHLIESSE.0# | 000012B0: 4A 53 52 20 43 4C 4F 53 C5 40 23 20 BB 50 23 20 |JSR CLOS.@# .P# | 000012C0: BB 60 23 20 3B 20 45 56 54 4C 2E 20 41 55 46 20 |.`# ; EVTL. AUF | 000012D0: 32 35 20 5A 45 49 4C 45 4E 20 41 55 46 46 55 45 |25 ZEILEN AUFFUE| 000012E0: 4C 4C 45 4E BA 70 23 20 BB 80 23 20 20 20 20 20 |LLEN.p# ..# | 000012F0: 20 20 20 20 20 20 4C 44 41 20 2A 46 41 4E 5A 2B | LDA *FANZ+| 00001300: B1 90 23 20 42 4E 45 20 52 45 41 44 36 20 3B 20 |..# BNE READ6 ; | 00001310: 42 3A 20 4D 49 4E 44 45 53 54 45 4E 53 20 32 35 |B: MINDESTENS 25| 00001320: 36 20 56 4F 52 48 AE 00 24 20 BB 10 24 52 45 41 |6 VORH..$ ..$REA| 00001330: 44 34 20 20 20 20 20 20 4C 44 41 20 2A 46 41 4E |D4 LDA *FAN| 00001340: DA 20 24 20 43 4D 50 20 23 32 B5 30 24 20 42 43 |. $ CMP #2.0$ BC| 00001350: 53 20 52 45 41 44 36 20 3B 20 42 3A 20 4D 49 4E |S READ6 ; B: MIN| 00001360: 44 45 53 54 45 4E 53 20 32 35 20 56 4F 52 48 AE |DESTENS 25 VORH.| 00001370: 40 24 20 BB 50 24 20 20 20 20 20 20 20 20 20 20 |@$ .P$ | 00001380: 20 4C 44 41 20 23 33 32 20 3B 20 53 50 41 43 C5 | LDA #32 ; SPAC.| 00001390: 60 24 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 |`$ LDY| 000013A0: 20 23 32 32 20 20 20 20 20 20 20 20 20 20 20 20 | #22 | 000013B0: 20 20 3B 20 4C 45 45 52 45 4E 20 45 49 4E 54 52 | ; LEEREN EINTR| 000013C0: 41 47 20 45 52 5A 45 55 47 45 CE 70 24 52 45 41 |AG ERZEUGE.p$REA| 000013D0: 44 35 20 53 54 41 20 28 52 45 41 44 4C 49 4E 29 |D5 STA (READLIN)| 000013E0: 2C D9 80 24 20 44 45 D9 90 24 20 20 20 20 20 20 |,..$ DE..$ | 000013F0: 20 20 20 20 20 42 4E 45 20 52 45 41 44 B5 00 25 | BNE READ..%| 00001400: 20 BB 10 25 20 20 20 20 20 20 20 20 20 20 20 4C | ..% L| 00001410: 44 59 20 23 B0 20 25 20 20 20 20 20 20 20 20 20 |DY #. % | 00001420: 20 20 4C 44 41 20 23 27 2A 27 20 20 20 20 20 20 | LDA #'*' | 00001430: 20 20 20 20 20 20 20 3B 20 4D 41 52 4B 49 45 52 | ; MARKIER| 00001440: 55 4E 47 20 53 45 54 5A 45 CE 30 25 20 53 54 41 |UNG SETZE.0% STA| 00001450: 20 28 52 45 41 44 4C 49 4E 29 2C D9 40 25 20 BB | (READLIN),.@% .| 00001460: 50 25 20 4C 44 41 20 2A 52 45 41 44 4C 49 4E 20 |P% LDA *READLIN | 00001470: 3B 20 5A 45 49 47 45 52 20 57 45 49 54 45 52 53 |; ZEIGER WEITERS| 00001480: 45 54 5A 45 CE 60 25 20 43 4C C3 70 25 20 20 20 |ETZE.`% CL.p% | 00001490: 20 20 20 20 20 20 20 20 41 44 43 20 23 32 B3 80 | ADC #2..| 000014A0: 25 20 53 54 41 20 2A 52 45 41 44 4C 49 CE 90 25 |% STA *READLI..%| 000014B0: 20 4C 44 41 20 2A 52 45 41 44 4C 49 4E 2B B1 00 | LDA *READLIN+..| 000014C0: 26 20 41 44 43 20 23 B0 10 26 20 53 54 41 20 2A |& ADC #..& STA *| 000014D0: 52 45 41 44 4C 49 4E 2B B1 20 26 20 BB 30 26 20 |READLIN+. & .0& | 000014E0: 20 20 20 20 20 20 20 20 20 20 49 4E 43 20 2A 46 | INC *F| 000014F0: 41 4E DA 40 26 20 42 4E 45 20 52 45 41 44 34 20 |AN.@& BNE READ4 | 00001500: 3B 20 28 42 52 41 4E 43 48 20 41 4C 57 41 59 53 |; (BRANCH ALWAYS| 00001510: A9 50 26 20 BB 60 26 52 45 41 44 36 20 20 20 20 |.P& .`&READ6 | 00001520: 20 52 54 D3 70 26 20 BB 49 | RT.p& .I |
..0"E... .OS.. .RS . .0. .BA $
080.@. .P. ; LAST REV. 06.10.1
99.`. .P. ; KERNAL SPRUNGTABELLE.. ; (FL
OPPYROUTINEN... ...CLALL .DE $FFE...CLRC
HN .DE $FFCC .FILPAR .DE $FFBA0.FILNAM .
DE $FFBD@.OPEN .DE $FFC.P.CLOSE .DE $FFC
.`.LISTEN .DE $FFB.P.UNLIST .DE $FFB...T
ALK .DE $FFB...UNTALK .DE $FFAB..SECTALK
.DE $FF9...SECLIST .DE $FF9. .IECOU
T .DE $FFA.0.IECIN .DE $FFA.@.CHROUT
.DE $FFD.P.CHKOUT .DE $FFC.`. .P.ST
ROUT .DE $AB1E.. ... ... ... .
BY $16 $08 $C7 $07 $9E ; BASICSTART . .B
Y $28 $32 $30 $37 $32 $29 $2.0. .BY 'ODY
SSEUS' 0 0 .@. .P. .`. ; ZEROPAGEADRESSE
N.P. ...READLIN .DE $A8 ;
ZEIGER AUF EINTRAG..ANFLIN .DE $FB
; ZEIGER AUF EINTRAG ZEILE .
..ENDLIN .DE $FD ; ZEIGE
R AUF EINTRAG ZEILE 2...FNR .DE $
AC ; NR. AKTUELLER EINTRAG
.FANZ .DE $AE ; ANZAHL
ALLER EINTRAEGE0.CNTOUT .DE $AA ; ZAHL
GEWAEHLTER EINTRAEGE@.ACTLIN .DE $A7
; NUMMER DER AKTUELLEN ZEI
LEP.CNTLIN .DE $02 ; ZAE
HLER B.ZEILEN`. .P. ... ... ; **********
********************... ; * HAUPTPROGR
AMM ... ; ******************
************. . .0. ; (SYS 2072.@. .P. .
`. ; TITEL AUSGEBENP. ... LDA #L,TOPTXT.
. LDY #H,TOPTXT.. JSR STROUT.. . . .0. ;
DATEIFILE KOMPLETT EINLESEN@. .P. JSR G
ETDAT`. .P. ... ; BILDSCHIRM AUFBAU UND
INITIALISIERUNG... ...MOV0 JSR BIN
IT.. . . .0. ; BEWEGUNGS-STEUERUNG MIT J
OYSTICK@. ; IN PORT 2: UP UND
DOWN.P. ; FIRE UEBERNIMMT EINTRAG.`. ; H
OME: ZUM DATEIANFANGP. ; ESCAPE (PFEIL L
INKS): PRG.ENDE.. ...MOV1 LDA $DC0
0 ; JOYSTICK-PORT ...
CMP #$7F ; KEIN EREIGNIS.
.. BEQ MOV. . .0. CM
P #$6F ; FIRE, ABER SONST KE
INE@. BNE MOV2 ; BEWEGUNG? B: NEINP. JSR
TAKE ; EINTRAG UEBERNEHMEN`.
LDA #$7F ; CODE 'KEIN EREIGN
IS.P. ...MOV2 ROR A ; RAUF... BCS MOV3 ;
B: NEIN.. JSR OLDLIN ; NACH OBEN GEHEN.
. LDA #$7F . .0.MOV3 ROR A ; R
UNTER.@. BCS MOV1
; B: NEINP. JSR NEWLIN ; NACH UNTEN GEHE
N`. JMP MOV.P. ...MOV4 LDA *$CB
; TASTATURCODE.. CMP #51 ; HOM
E GEDRUECKT... BNE MOV5
; B: JA.. JSR PAUSE ; VE
RZOEGERUNG . BEQ MOV0 ; BRANCH ALWAYS0.
.@.MOV5 CMP #57 ; ESC
APE GEDRUECKT.P. BNE MOV1 ; B: NEIN`. .P
. ... ; ESCAPE: PROGRAMM BEENDEN.. ... J
SR DISIRQ ; RASTER-IRQ ABSCHALTEN.. . .
JSR $E518 ; SCREEN
RESET0. .@. JSR SAVDAT
; GEWUENSCHTES SAVENP. .`. JMP $A474
; READYP. ... ... ; ********************
*********... ; * GETDAT: DATE
I EINLESEN ... ; ********************
*********. . .0.GETDAT JSR CLALL ; FILE
TAB. LOESCHEN@. .P. LDA #L,FTEXT
; 'FILENAME: .`. LDY #H,FT
EXT ; AUSGEBENP. JSR S
TROUT.. JSR GETNAM ; FILEN
AME ABFRAGEN.. ... LDY *$B7 ; LAENGE FIL
ENAME.. LDA #',' ; FILENAME. . STA FNAM,
Y ; ,S ANHAENGEN0. INY@. LDA #'S.P. STA
FNAM,Y`. INYP. STY *$B... ...
LDA #... STA *FANZ
; ZAHL DER EINTRAEGE.. STA *F
ANZ+1 ; AUF 0 SETZTEN . STA *C
NTOUT ; ZAHL DER GEWAEHLTEN0. STA *CNTOU
T+1 ; EINTRAEGE AUF .@. .P. LD
X #L,FTAB ; POINTER AUF RAMANF.
`. LDY #H,FTABP. STX
*READLIN ; SCHREIBZEIGER..
STY *READLIN+... ... LDA #1 ; FIL
EPARAMETER SETZEN.. LDX #. . LDY #$6.0.
JSR FILPAR ; 1,8,0 (= LOAD.@. .P. JSR OP
EN`. BCC OK ; B:
DRIVE REAGIERTEP. JMP $A474 ; ZUM READY
.. ...OK LDA *$BA ; GERAETENR... JSR TAL
K.. LDA *$B9 ; SEKUNDAERADR. . JSR SECTA
LK0. .@. .P. ; DIE ERSTEN 5-6
BYTES ENTHALTEN`. ; DIE ANZAHL DER EINTR
AEGEP. ; DAS 6. BYTE IST RETURN... ; 6 B
YTES WERDEN UEBERLESEN.. ... LDY #40 ; M
AX. 40 BYTES TESTEN..OK1 JSR IECIN . CMP
#13 ; RETURN.0. BEQ OK.@. DEYP. BPL OK.
`. .P. ...OK2 LDA *$90
; STATUS.. BEQ READ.. LDA #L,EMPTY.. L
DY #H,EMPTY . JSR STROUT
; FEHLERMELDG. AUSG.0. JMP $A474 ;
READY@. .P. ; FILEEINTRAEGE EINLESEN.`.
.P.READ LDY #... LDA #32 ; SPACE..
BNE READ1A ; BRANCH ALWAYS.
.. READ1 JSR IECIN ; EINEN EINTRAG LESEN
.0 READ1A SEI@ LDX #$3.P STX *$
0.` STA (READLIN),YP LDX #$3
.. STX *$0.. CLI.! ..! INY !
CPY #23 ; 22 BYTES GELESEN
.0! BNE READ.@! .P! JSR IECIN
; RETURN UEBERLESEN`! .P! INC
*FANZ ; ZAEHLER ERHOEHEN.! B
NE READ..! INC *FANZ+.." .."RE
AD2 LDA *READLIN ; ZEIGER
WEITERSETZEN " CLC0" ADC #2.@"
STA *READLINP" LDA
*READLIN+.`" ADC #.P" STA *REA
DLIN+.." .."READ3 BIT *$90 ; STATUS TEST
EN.# BVC READ ; B: WEITERLESEN.# . # LDA
#1 ; FILE SCHLIESSEN0# JSR CLOSE@# .P#
.`# ; EVTL. AUF 25 ZEILEN AUFFUELLEN.P#
..# LDA *FANZ+..# BNE READ6 ;
B: MINDESTENS 256 VORH..$ ..$READ4
LDA *FANZ $ CMP #2.0$ BCS READ6 ; B: MIN
DESTENS 25 VORH.@$ .P$ LDA #32
; SPACE`$ LDY #22
; LEEREN EINTRAG ERZEUGENP$READ5 STA (
READLIN),Y.$ DEY.$ BNE READ..%
..% LDY #. % LDA #'
*' ; MARKIERUNG SETZEN0% STA
(READLIN),Y@% .P% LDA *READLIN ; ZEIGER
WEITERSETZEN`% CLCP% ADC #2..
% STA *READLIN.% LDA *READLIN+..& ADC #.
.& STA *READLIN+. & .0& INC *F
ANZ@& BNE READ4 ; (BRANCH ALWAYS.P& .`&R
EAD6 RTSP& .I
> CLICK IMAGE PREVIEW FOR FULL MODAL