SHOWSORT2.ASM
FILE INFORMATION
FILENAME(S): SHOWSORT2.ASM
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 21:27:21
APPEARS ON: 1 disk(s)
FILE HASH
5bab9df6ca694faa5be7487cfb3b2a4ba220600f7d461efc550311a4ee7d9df6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | SHOWSORT2.ASM | PRG | DuncanTwain | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 00 30 47 4E 2E 00 01 20 BB 10 01 20 3B 20 2A |..0GN... ... ; *| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 20 01 |*************. .| 00000030: 20 3B 20 2A 20 20 53 41 56 44 41 54 3A 20 20 47 | ; * SAVDAT: G| 00000040: 45 57 41 45 48 4C 54 45 20 46 49 4C 45 53 20 20 |EWAEHLTE FILES | 00000050: 20 AA 30 01 20 3B 20 2A 20 20 5A 55 52 20 46 4C | .0. ; * ZUR FL| 00000060: 4F 50 50 59 20 55 45 42 45 52 53 50 49 45 4C 45 |OPPY UEBERSPIELE| 00000070: 4E 20 20 20 20 AA 40 01 20 3B 20 2A 2A 2A 2A 2A |N .@. ; *****| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 50 01 20 BB 60 01 |*********.P. .`.| 000000A0: 53 41 56 44 41 54 20 4C 44 41 20 23 B0 70 01 20 |SAVDAT LDA #.p. | 000000B0: 43 4D 50 20 2A 43 4E 54 4F 55 54 2B 31 20 3B 20 |CMP *CNTOUT+1 ; | 000000C0: 47 45 20 32 35 36 20 47 45 57 41 45 48 4C 54 BF |GE 256 GEWAEHLT.| 000000D0: 80 01 20 42 4E 45 20 57 52 49 54 45 20 3B 20 42 |.. BNE WRITE ; B| 000000E0: 3A 20 4A 41 2C 20 41 55 53 47 45 42 45 CE 90 01 |: JA, AUSGEBE...| 000000F0: 20 43 4D 50 20 2A 43 4E 54 4F 55 54 20 3B 20 4C | CMP *CNTOUT ; L| 00000100: 4F 2D 42 59 54 45 20 54 45 53 54 45 CE 00 02 20 |O-BYTE TESTE... | 00000110: 42 45 51 20 52 45 41 44 36 20 3B 20 42 3A 20 4E |BEQ READ6 ; B: N| 00000120: 49 43 48 54 53 20 47 45 57 41 45 48 4C D4 10 02 |ICHTS GEWAEHL...| 00000130: 20 BB 20 02 57 52 49 54 45 20 20 20 20 20 20 4C | . .WRITE L| 00000140: 44 41 20 23 4C 2C 53 54 45 58 D4 30 02 20 4C 44 |DA #L,STEX.0. LD| 00000150: 59 20 23 48 2C 53 54 45 58 D4 40 02 20 4A 53 52 |Y #H,STEX.@. JSR| 00000160: 20 53 54 52 4F 55 D4 50 02 20 20 20 20 20 20 4A | STROU.P. J| 00000170: 53 52 20 47 45 54 4E 41 4D 20 20 20 20 20 20 20 |SR GETNAM | 00000180: 20 20 20 20 3B 20 46 49 4C 45 4E 41 4D 45 20 48 | ; FILENAME H| 00000190: 4F 4C 45 CE 60 02 20 BB 70 02 20 4C 44 59 20 2A |OLE.`. .p. LDY *| 000001A0: 24 42 37 20 3B 20 4C 41 45 4E 47 45 20 46 49 4C |$B7 ; LAENGE FIL| 000001B0: 45 4E 41 4D C5 80 02 20 20 20 20 20 20 20 20 20 |ENAM... | 000001C0: 20 20 4C 44 41 20 23 27 2C 27 20 20 20 20 20 20 | LDA #',' | 000001D0: 20 20 20 20 20 20 20 3B 20 27 2C 53 27 20 41 4E | ; ',S' AN| 000001E0: 48 41 45 4E 47 45 CE 90 02 20 53 54 41 20 46 4E |HAENGE... STA FN| 000001F0: 41 4D 2C D9 00 03 20 49 4E D9 10 03 20 20 20 20 |AM,... IN... | 00000200: 20 20 20 20 20 20 20 4C 44 41 20 23 27 53 A7 20 | LDA #'S. | 00000210: 03 20 53 54 41 20 46 4E 41 4D 2C D9 30 03 20 49 |. STA FNAM,.0. I| 00000220: 4E D9 40 03 20 53 54 59 20 2A 24 42 37 20 3B 20 |N.@. STY *$B7 ; | 00000230: 4E 45 55 45 20 4C 41 45 4E 47 45 20 53 45 54 5A |NEUE LAENGE SETZ| 00000240: 45 CE 50 03 20 BB 60 03 20 20 20 20 20 20 20 20 |E.P. .`. | 00000250: 20 20 20 4C 44 58 20 2A 43 4E 54 4F 55 54 20 20 | LDX *CNTOUT | 00000260: 20 20 20 20 20 20 20 20 3B 20 41 4E 5A 41 48 4C | ; ANZAHL| 00000270: 20 53 49 43 48 45 52 CE 70 03 20 20 20 20 20 20 | SICHER.p. | 00000280: 20 20 20 20 20 4C 44 59 20 2A 43 4E 54 4F 55 54 | LDY *CNTOUT| 00000290: 2B B1 80 03 20 53 54 58 20 2A 41 4E 46 4C 49 CE |+... STX *ANFLI.| 000002A0: 90 03 20 53 54 59 20 2A 41 4E 46 4C 49 4E 2B B1 |.. STY *ANFLIN+.| 000002B0: 00 04 20 BB 10 04 20 4C 44 41 20 23 32 20 3B 20 |.. ... LDA #2 ; | 000002C0: 46 49 4C 45 50 41 52 41 4D 45 54 45 52 20 53 45 |FILEPARAMETER SE| 000002D0: 54 5A 45 CE 20 04 20 4C 44 58 20 23 B8 30 04 20 |TZE. . LDX #.0. | 000002E0: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 | LDY #$| 000002F0: 36 B1 40 04 20 20 20 20 20 20 20 20 20 20 20 4A |6.@. J| 00000300: 53 52 20 46 49 4C 50 41 52 20 20 20 20 20 20 20 |SR FILPAR | 00000310: 20 20 20 20 3B 20 32 2C 38 2C 31 28 3D 53 41 56 | ; 2,8,1(=SAV| 00000320: 45 A9 50 04 20 BB 60 04 20 4A 53 52 20 4F 50 45 |E.P. .`. JSR OPE| 00000330: CE 70 04 20 20 20 20 20 20 20 20 20 20 20 42 43 |.p. BC| 00000340: 43 20 4F 4B 30 30 20 20 20 20 20 20 20 20 20 20 |C OK00 | 00000350: 20 20 20 3B 20 42 3A 20 44 52 49 56 45 20 41 4E | ; B: DRIVE AN| 00000360: 53 50 52 45 43 48 42 41 D2 80 04 20 20 20 20 20 |SPRECHBA... | 00000370: 20 20 20 20 20 20 4A 4D 50 20 45 52 52 4F 55 D4 | JMP ERROU.| 00000380: 90 04 20 BB 00 05 20 BB 10 05 4F 4B 30 30 20 20 |.. ... ...OK00 | 00000390: 20 20 20 20 20 4C 44 58 20 23 32 20 3B 20 4C 4F | LDX #2 ; LO| 000003A0: 47 2E 20 46 49 4C 45 4E 55 4D 4D 45 D2 20 05 20 |G. FILENUMME. . | 000003B0: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 | JSR CH| 000003C0: 4B 4F 55 54 20 3B 20 43 4D 44 20 32 20 2F 20 4C |KOUT ; CMD 2 / L| 000003D0: 49 53 54 45 CE 30 05 20 BB 40 05 20 BB 50 05 20 |ISTE.0. .@. .P. | 000003E0: 3B 20 41 4E 5A 41 48 4C 20 44 45 52 20 44 41 54 |; ANZAHL DER DAT| 000003F0: 45 4E 20 45 52 52 45 43 48 4E 45 CE 60 05 20 BB |EN ERRECHNE.`. .| 00000400: 70 05 20 4C 44 41 20 2A 43 4E 54 4F 55 54 2B 31 |p. LDA *CNTOUT+1| 00000410: 20 3B 20 48 49 2D 42 59 54 45 20 41 4E 5A 41 48 | ; HI-BYTE ANZAH| 00000420: CC 80 05 20 4C 44 58 20 2A 43 4E 54 4F 55 54 20 |... LDX *CNTOUT | 00000430: 3B 20 4C 4F 2D 42 59 54 C5 90 05 20 53 54 41 20 |; LO-BYT... STA | 00000440: 2A 24 36 32 20 3B 20 49 4E 20 46 41 43 20 47 45 |*$62 ; IN FAC GE| 00000450: 42 45 CE 00 06 20 20 20 20 20 20 20 20 20 20 20 |BE... | 00000460: 53 54 58 20 2A 24 36 B3 10 06 20 4C 44 58 20 23 |STX *$6... LDX #| 00000470: 24 39 B0 20 06 20 53 45 C3 30 06 20 4A 53 52 20 |$9. . SE.0. JSR | 00000480: 24 42 43 34 39 20 3B 20 49 4E 54 45 47 45 52 20 |$BC49 ; INTEGER | 00000490: 54 4F 20 46 4C 50 D4 40 06 20 4A 53 52 20 24 42 |TO FLP.@. JSR $B| 000004A0: 44 44 46 20 3B 20 46 4C 50 54 20 54 4F 20 41 53 |DDF ; FLPT TO AS| 000004B0: 43 49 C9 50 06 20 BB 60 06 20 4C 44 41 20 23 24 |CI.P. .`. LDA #$| 000004C0: 32 30 20 3B 20 53 50 41 43 C5 70 06 20 4A 53 52 |20 ; SPAC.p. JSR| 000004D0: 20 49 45 43 4F 55 54 20 3B 20 41 55 53 47 45 42 | IECOUT ; AUSGEB| 000004E0: 45 CE 80 06 20 BB 90 06 20 4C 44 59 20 23 B0 00 |E... ... LDY #..| 000004F0: 07 53 41 56 44 41 31 20 4C 44 41 20 24 30 31 30 |.SAVDA1 LDA $010| 00000500: 30 2C D9 10 07 20 43 4D 50 20 23 30 20 3B 20 45 |0,... CMP #0 ; E| 00000510: 4E 44 45 BF 20 07 20 42 45 51 20 53 41 56 44 41 |NDE. . BEQ SAVDA| 00000520: 32 20 3B 20 42 3A 20 4A C1 30 07 20 4A 53 52 20 |2 ; B: J.0. JSR | 00000530: 49 45 43 4F 55 D4 40 07 20 49 4E D9 50 07 20 42 |IECOU.@. IN.P. B| 00000540: 4E 45 20 53 41 56 44 41 31 20 3B 20 42 52 41 4E |NE SAVDA1 ; BRAN| 00000550: 43 48 20 41 4C 57 41 59 D3 60 07 20 BB 70 07 53 |CH ALWAY.`. .p.S| 00000560: 41 56 44 41 32 20 4C 44 41 20 23 33 32 20 3B 20 |AVDA2 LDA #32 ; | 00000570: 53 50 41 43 C5 80 07 20 4A 53 52 20 49 45 43 4F |SPAC... JSR IECO| 00000580: 55 D4 90 07 20 4C 44 41 20 23 31 33 20 3B 20 52 |U... LDA #13 ; R| 00000590: 45 54 55 52 CE 00 08 20 4A 53 52 20 49 45 43 4F |ETUR... JSR IECO| 000005A0: 55 D4 10 08 20 BB 20 08 20 BB 30 08 20 3B 20 47 |U... . . .0. ; G| 000005B0: 45 57 41 45 48 4C 54 45 20 44 41 54 45 4E 20 41 |EWAEHLTE DATEN A| 000005C0: 55 53 47 45 42 45 4E BA 40 08 20 BB 50 08 20 4C |USGEBEN.@. .P. L| 000005D0: 44 58 20 23 4C 2C 46 54 41 42 20 3B 20 5A 45 49 |DX #L,FTAB ; ZEI| 000005E0: 47 45 52 20 41 55 46 20 44 41 54 45 49 41 4E 46 |GER AUF DATEIANF| 000005F0: 41 4E C7 60 08 20 4C 44 59 20 23 48 2C 46 54 41 |AN.`. LDY #H,FTA| 00000600: C2 70 08 20 53 54 58 20 2A 52 45 41 44 4C 49 CE |.p. STX *READLI.| 00000610: 80 08 20 53 54 59 20 2A 52 45 41 44 4C 49 4E 2B |.. STY *READLIN+| 00000620: B1 90 08 20 BB 00 09 53 41 56 44 41 33 20 20 20 |... ...SAVDA3 | 00000630: 20 20 53 45 C9 10 09 20 20 20 20 20 20 20 20 20 | SE... | 00000640: 20 20 4C 44 58 20 23 24 33 B0 20 09 20 20 20 20 | LDX #$3. . | 00000650: 20 20 20 20 20 20 20 53 54 58 20 2A 24 30 B1 30 | STX *$0.0| 00000660: 09 53 41 56 44 41 41 20 20 20 20 20 4C 44 59 20 |.SAVDAA LDY | 00000670: 23 B0 40 09 20 20 20 20 20 20 20 20 20 20 20 4C |#.@. L| 00000680: 44 41 20 23 27 2A 27 20 20 20 20 20 20 20 20 20 |DA #'*' | 00000690: 20 20 20 20 3B 20 41 55 46 20 4B 45 4E 4E 55 4E | ; AUF KENNUN| 000006A0: 47 20 54 45 53 54 45 CE 50 09 20 43 4D 50 20 28 |G TESTE.P. CMP (| 000006B0: 52 45 41 44 4C 49 4E 29 2C D9 60 09 20 20 20 20 |READLIN),.`. | 000006C0: 20 20 20 20 20 20 20 42 45 51 20 53 41 56 44 41 | BEQ SAVDA| 000006D0: 42 20 20 20 20 20 20 20 20 20 20 20 3B 20 42 3A |B ; B:| 000006E0: 20 41 55 53 47 45 42 45 CE 70 09 20 BB 80 09 20 | AUSGEBE.p. ... | 000006F0: 20 20 20 20 20 20 20 20 20 20 43 4C 43 20 20 20 | CLC | 00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000710: 20 4C 45 53 45 5A 45 49 47 45 52 20 57 45 49 54 | LESEZEIGER WEIT| 00000720: 45 D2 90 09 20 20 20 20 20 20 20 20 20 20 20 4C |E... L| 00000730: 44 41 20 23 32 B3 00 10 20 20 20 20 20 20 20 20 |DA #2... | 00000740: 20 20 20 41 44 43 20 2A 52 45 41 44 4C 49 CE 10 | ADC *READLI..| 00000750: 10 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |. STA | 00000760: 2A 52 45 41 44 4C 49 CE 20 10 20 20 20 20 20 20 |*READLI. . | 00000770: 20 20 20 20 20 42 43 43 20 53 41 56 44 41 C1 30 | BCC SAVDA.0| 00000780: 10 20 20 20 20 20 20 20 20 20 20 20 49 4E 43 20 |. INC | 00000790: 2A 52 45 41 44 4C 49 4E 2B B1 40 10 20 20 20 20 |*READLIN+.@. | 000007A0: 20 20 20 20 20 20 20 42 4E 45 20 53 41 56 44 41 | BNE SAVDA| 000007B0: 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 42 52 |A ; BR| 000007C0: 41 4E 43 48 20 41 4C 57 41 59 D3 50 10 20 20 20 |ANCH ALWAY.P. | 000007D0: 20 20 20 20 20 20 20 20 BB 60 10 53 41 56 44 41 | .`.SAVDA| 000007E0: 42 20 20 20 20 20 49 4E D9 70 10 53 41 56 44 41 |B IN.p.SAVDA| 000007F0: 34 20 20 20 20 20 53 45 C9 80 10 20 20 20 20 20 |4 SE... | 00000800: 20 20 20 20 20 20 4C 44 58 20 23 24 33 B0 90 10 | LDX #$3...| 00000810: 20 20 20 20 20 20 20 20 20 20 20 53 54 58 20 2A | STX *| 00000820: 24 30 B1 00 11 20 20 20 20 20 4C 44 41 20 28 52 |$0... LDA (R| 00000830: 45 41 44 4C 49 4E 29 2C D9 10 11 20 20 20 20 20 |EADLIN),... | 00000840: 20 20 20 20 20 20 4C 44 58 20 23 24 33 B7 20 11 | LDX #$3. .| 00000850: 20 20 20 20 20 20 20 20 20 20 20 53 54 58 20 2A | STX *| 00000860: 24 30 B1 30 11 20 20 20 20 20 20 20 20 20 20 20 |$0.0. | 00000870: 43 4C C9 40 11 20 4A 53 52 20 49 45 43 4F 55 54 |CL.@. JSR IECOUT| 00000880: 20 3B 20 45 49 4E 54 52 41 47 20 41 55 53 47 45 | ; EINTRAG AUSGE| 00000890: 42 45 CE 50 11 20 49 4E D9 60 11 20 43 50 59 20 |BE.P. IN.`. CPY | 000008A0: 23 32 B3 70 11 20 42 4E 45 20 53 41 56 44 41 B4 |#2.p. BNE SAVDA.| 000008B0: 80 11 20 BB 90 11 20 4C 44 41 20 23 31 33 20 3B |.. ... LDA #13 ;| 000008C0: 20 52 45 54 55 52 CE 00 12 20 4A 53 52 20 49 45 | RETUR... JSR IE| 000008D0: 43 4F 55 D4 10 12 20 BB 20 12 20 43 4C 43 20 3B |COU... . . CLC ;| 000008E0: 20 4C 45 53 45 5A 45 49 47 45 52 20 57 45 49 54 | LESEZEIGER WEIT| 000008F0: 45 D2 30 12 20 4C 44 41 20 23 32 B3 40 12 20 41 |E.0. LDA #2.@. A| 00000900: 44 43 20 2A 52 45 41 44 4C 49 CE 50 12 20 53 54 |DC *READLI.P. ST| 00000910: 41 20 2A 52 45 41 44 4C 49 CE 60 12 20 42 43 43 |A *READLI.`. BCC| 00000920: 20 53 41 56 44 41 B5 70 12 20 49 4E 43 20 2A 52 | SAVDA.p. INC *R| 00000930: 45 41 44 4C 49 4E 2B B1 80 12 20 BB 90 12 53 41 |EADLIN+... ...SA| 00000940: 56 44 41 35 20 4C 44 58 20 2A 43 4E 54 4F 55 54 |VDA5 LDX *CNTOUT| 00000950: 20 3B 20 41 42 57 41 45 52 54 53 5A 41 48 4C 45 | ; ABWAERTSZAHLE| 00000960: D2 00 13 20 42 4E 45 20 53 41 56 44 41 36 20 3B |... BNE SAVDA6 ;| 00000970: 20 45 52 4E 49 45 44 52 49 47 45 CE 10 13 20 44 | ERNIEDRIGE... D| 00000980: 45 43 20 2A 43 4E 54 4F 55 54 2B B1 20 13 53 41 |EC *CNTOUT+. .SA| 00000990: 56 44 41 36 20 44 45 43 20 2A 43 4E 54 4F 55 D4 |VDA6 DEC *CNTOU.| 000009A0: 30 13 20 BB 40 13 20 20 20 20 20 20 20 20 20 20 |0. .@. | 000009B0: 20 4C 44 41 20 2A 43 4E 54 4F 55 54 2B 31 20 20 | LDA *CNTOUT+1 | 000009C0: 20 20 20 20 20 20 3B 20 41 4C 4C 45 53 20 41 55 | ; ALLES AU| 000009D0: 53 47 45 47 45 42 45 4E BF 50 13 20 42 4E 45 20 |SGEGEBEN.P. BNE | 000009E0: 53 41 56 44 41 33 20 3B 20 42 3A 20 4E 4F 43 48 |SAVDA3 ; B: NOCH| 000009F0: 20 47 45 20 32 35 36 20 55 45 42 52 49 C7 60 13 | GE 256 UEBRI.`.| 00000A00: 20 4C 44 41 20 2A 43 4E 54 4F 55 D4 70 13 20 42 | LDA *CNTOU.p. B| 00000A10: 4E 45 20 53 41 56 44 41 33 20 3B 20 42 3A 20 4E |NE SAVDA3 ; B: N| 00000A20: 4F 43 48 20 4D 45 48 52 20 41 4C 53 20 B0 80 13 |OCH MEHR ALS ...| 00000A30: 20 BB 90 13 20 BB 00 14 20 20 20 20 20 20 20 20 | ... ... | 00000A40: 20 20 20 4A 53 52 20 43 4C 52 43 48 CE 10 14 20 | JSR CLRCH... | 00000A50: BB 20 14 20 4C 44 41 20 23 B2 30 14 20 20 20 20 |. . LDA #.0. | 00000A60: 20 20 20 20 20 20 20 4A 53 52 20 43 4C 4F 53 C5 | JSR CLOS.| 00000A70: 40 14 20 BB 50 14 20 BB 60 14 20 3B 20 46 45 48 |@. .P. .`. ; FEH| 00000A80: 4C 45 52 4B 41 4E 41 4C 20 41 55 53 4C 45 53 45 |LERKANAL AUSLESE| 00000A90: CE 70 14 20 BB 80 14 45 52 52 4F 55 54 20 4C 44 |.p. ...ERROUT LD| 00000AA0: 59 20 23 31 B5 90 14 20 54 59 C1 00 15 20 4C 44 |Y #1... TY... LD| 00000AB0: 58 20 23 B8 10 15 20 4A 53 52 20 46 49 4C 50 41 |X #... JSR FILPA| 00000AC0: D2 20 15 20 4C 44 58 20 23 B0 30 15 20 53 54 58 |. . LDX #.0. STX| 00000AD0: 20 2A 24 42 37 20 3B 20 4B 45 49 4E 20 46 49 4C | *$B7 ; KEIN FIL| 00000AE0: 45 4E 41 4D C5 40 15 20 4A 53 52 20 4F 50 45 CE |ENAM.@. JSR OPE.| 00000AF0: 50 15 20 BB 60 15 20 20 20 20 20 4C 44 41 20 23 |P. .`. LDA #| 00000B00: 38 20 BB 70 15 20 4A 53 52 20 54 41 4C 4B 20 3B |8 .p. JSR TALK ;| 00000B10: 20 54 41 4C 4B 20 B8 80 15 20 4C 44 41 20 23 24 | TALK ... LDA #$| 00000B20: 36 C6 90 15 20 20 20 20 20 20 20 20 20 20 20 4A |6... J| 00000B30: 53 52 20 53 45 43 54 41 4C 4B 20 20 20 20 20 20 |SR SECTALK | 00000B40: 20 20 20 20 20 3B 20 53 45 43 54 41 4C 4B 20 31 | ; SECTALK 1| 00000B50: B5 00 16 20 4A 53 52 20 49 45 43 49 CE 10 16 20 |... JSR IECI... | 00000B60: 50 48 41 20 3B 20 46 45 48 4C 45 52 4E 55 4D 4D |PHA ; FEHLERNUMM| 00000B70: 45 D2 20 16 20 BB 30 16 20 50 48 C1 40 16 20 4C |E. . .0. PH.@. L| 00000B80: 44 41 20 23 31 33 20 3B 20 22 52 45 54 55 52 4E |DA #13 ; "RETURN| 00000B90: A2 50 16 20 4A 53 52 20 43 48 52 4F 55 D4 60 16 |.P. JSR CHROU.`.| 00000BA0: 20 50 4C C1 70 16 20 4A 53 52 20 43 48 52 4F 55 | PL.p. JSR CHROU| 00000BB0: D4 80 16 45 52 52 43 48 20 4A 53 52 20 49 45 43 |...ERRCH JSR IEC| 00000BC0: 49 CE 90 16 20 4A 53 52 20 43 48 52 4F 55 D4 00 |I... JSR CHROU..| 00000BD0: 17 20 43 4D 50 20 23 31 33 20 3B 20 22 52 45 54 |. CMP #13 ; "RET| 00000BE0: 55 52 4E 22 BF 10 17 20 42 4E 45 20 45 52 52 43 |URN"... BNE ERRC| 00000BF0: 48 20 3B 20 57 45 49 54 45 52 4C 45 53 45 CE 20 |H ; WEITERLESE. | 00000C00: 17 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |. JSR | 00000C10: 55 4E 54 41 4C CB 30 17 20 4C 44 41 20 23 31 B5 |UNTAL.0. LDA #1.| 00000C20: 40 17 20 4A 53 52 20 43 4C 4F 53 C5 50 17 20 BB |@. JSR CLOS.P. .| 00000C30: 60 17 20 50 4C C1 70 17 20 20 20 20 20 20 20 20 |`. PL.p. | 00000C40: 20 20 20 43 4D 50 20 23 24 33 30 20 3B 20 46 45 | CMP #$30 ; FE| 00000C50: 48 4C 45 52 4E 52 2E 20 30 BF 80 17 20 42 45 51 |HLERNR. 0... BEQ| 00000C60: 20 53 41 56 45 4E 44 20 3B 20 42 3A 20 30 20 4F | SAVEND ; B: 0 O| 00000C70: 4B 20 30 20 B0 90 17 20 BB 00 18 20 4C 44 58 20 |K 0 ... ... LDX | 00000C80: 2A 41 4E 46 4C 49 4E 20 3B 20 41 4E 5A 41 48 4C |*ANFLIN ; ANZAHL| 00000C90: 20 48 4F 4C 45 CE 10 18 20 4C 44 59 20 2A 41 4E | HOLE... LDY *AN| 00000CA0: 46 4C 49 4E 2B B1 20 18 20 20 20 20 20 20 20 20 |FLIN+. . | 00000CB0: 20 20 20 53 54 58 20 2A 43 4E 54 4F 55 D4 30 18 | STX *CNTOU.0.| 00000CC0: 20 20 20 20 20 20 20 20 20 20 20 53 54 59 20 2A | STY *| 00000CD0: 43 4E 54 4F 55 54 2B B1 40 18 20 4A 4D 50 20 57 |CNTOUT+.@. JMP W| 00000CE0: 52 49 54 45 20 3B 20 57 49 45 44 45 52 48 4F 4C |RITE ; WIEDERHOL| 00000CF0: 45 CE 50 18 53 41 56 45 4E 44 20 52 54 D3 60 18 |E.P.SAVEND RT.`.| 00000D00: 20 BB 70 18 20 BB 80 18 20 3B 20 2A 2A 2A 2A 2A | .p. ... ; *****| 00000D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 90 18 20 3B 20 2A |*********... ; *| 00000D30: 20 20 47 45 54 4E 41 4D 3A 20 46 49 4C 45 4E 41 | GETNAM: FILENA| 00000D40: 4D 45 20 41 42 46 52 41 47 45 4E 20 20 AA 00 19 |ME ABFRAGEN ...| 00000D50: 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ; *************| 00000D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D70: 2A AA 10 19 20 BB 20 19 20 BB 30 19 47 45 54 4E |*... . . .0.GETN| 00000D80: 41 4D 20 20 20 20 20 4C 44 41 20 23 30 20 20 20 |AM LDA #0 | 00000D90: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 4B 45 | ; KE| 00000DA0: 49 4E 20 5A 45 49 43 48 45 4E 20 49 4D 20 50 55 |IN ZEICHEN IM PU| 00000DB0: 46 46 45 D2 40 19 20 53 54 41 20 2A 24 43 B6 50 |FFE.@. STA *$C.P| 00000DC0: 19 20 4A 53 52 20 24 41 35 36 30 20 3B 20 45 49 |. JSR $A560 ; EI| 00000DD0: 4E 47 41 42 45 20 48 4F 4C 45 CE 60 19 20 BB 70 |NGABE HOLE.`. .p| 00000DE0: 19 20 4C 44 41 20 23 30 20 3B 20 45 49 4E 47 41 |. LDA #0 ; EINGA| 00000DF0: 42 45 50 55 46 46 45 52 20 4C 45 53 45 4E BA 80 |BEPUFFER LESEN..| 00000E00: 19 20 54 41 59 20 3B 20 4C 41 45 4E 47 45 20 45 |. TAY ; LAENGE E| 00000E10: 52 4D 49 54 54 45 4C CE 90 19 47 45 54 4E 41 31 |RMITTEL...GETNA1| 00000E20: 20 43 4D 50 20 24 30 32 30 30 2C 59 20 3B 20 30 | CMP $0200,Y ; 0| 00000E30: 20 41 4C 53 20 45 4E 44 45 20 53 55 43 48 45 CE | ALS ENDE SUCHE.| 00000E40: 00 20 20 42 45 51 20 47 45 54 4E 41 32 20 3B 20 |. BEQ GETNA2 ; | 00000E50: 42 3A 20 30 20 47 45 46 55 4E 44 45 CE 10 20 20 |B: 0 GEFUNDE.. | 00000E60: 49 4E D9 20 20 20 43 50 59 20 23 31 36 20 3B 20 |IN. CPY #16 ; | 00000E70: 31 36 20 5A 45 49 43 48 45 4E 20 47 45 4C 45 53 |16 ZEICHEN GELES| 00000E80: 45 4E BF 30 20 20 42 43 43 20 47 45 54 4E 41 31 |EN.0 BCC GETNA1| 00000E90: 20 3B 20 42 3A 20 4E 45 49 CE 40 20 20 BB 50 20 | ; B: NEI.@ .P | 00000EA0: 47 45 54 4E 41 32 20 54 59 41 20 3B 20 4C 41 45 |GETNA2 TYA ; LAE| 00000EB0: 4E 47 45 20 44 45 53 20 4E 41 4D 45 4E D3 60 20 |NGE DES NAMEN.` | 00000EC0: 20 54 41 D8 70 20 47 45 54 4E 41 33 20 4C 44 41 | TA.p GETNA3 LDA| 00000ED0: 20 24 30 32 30 30 2C 58 20 3B 20 4E 41 4D 45 20 | $0200,X ; NAME | 00000EE0: 49 4E 20 50 55 46 46 45 D2 80 20 20 53 54 41 20 |IN PUFFE.. STA | 00000EF0: 46 4E 41 4D 2C D8 90 20 20 44 45 D8 00 21 20 42 |FNAM,.. DE..! B| 00000F00: 50 4C 20 47 45 54 4E 41 B3 10 21 20 BB 20 21 20 |PL GETNA..! . ! | 00000F10: 54 59 41 20 3B 20 4E 41 4D 45 4E 50 41 52 41 4D |TYA ; NAMENPARAM| 00000F20: 45 54 45 52 20 53 45 54 5A 45 CE 30 21 20 4C 44 |ETER SETZE.0! LD| 00000F30: 58 20 23 4C 2C 46 4E 41 CD 40 21 20 4C 44 59 20 |X #L,FNA.@! LDY | 00000F40: 23 48 2C 46 4E 41 CD 50 21 20 20 20 20 20 20 20 |#H,FNA.P! | 00000F50: 20 20 20 20 4A 4D 50 20 46 49 4C 4E 41 4D 20 20 | JMP FILNAM | 00000F60: 20 20 20 20 20 20 20 20 20 3B 20 53 45 54 5A 45 | ; SETZE| 00000F70: 4E 20 2F 20 52 54 D3 60 21 20 BB 70 21 20 BB 80 |N / RT.`! .p! ..| 00000F80: 21 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |! ; ************| 00000F90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000FA0: 2A 2A AA 90 21 20 3B 20 2A 20 20 43 4C 45 41 52 |**..! ; * CLEAR| 00000FB0: 3A 20 42 49 4C 44 53 43 48 49 52 4D 20 4C 4F 45 |: BILDSCHIRM LOE| 00000FC0: 53 43 48 45 4E 20 AA 00 22 20 3B 20 2A 2A 2A 2A |SCHEN .." ; ****| 00000FD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 10 22 20 BB 20 |**********.." . | 00000FF0: 22 43 4C 45 41 52 20 4C 44 41 20 23 30 20 3B 20 |"CLEAR LDA #0 ; | 00001000: 53 43 48 57 41 52 DA 30 22 20 53 54 41 20 24 44 |SCHWAR.0" STA $D| 00001010: 30 32 30 20 3B 20 52 41 48 4D 45 4E 46 41 52 42 |020 ; RAHMENFARB| 00001020: C5 40 22 20 53 54 41 20 24 44 30 32 31 20 3B 20 |.@" STA $D021 ; | 00001030: 48 49 4E 54 45 52 47 52 55 4E 44 46 41 52 42 C5 |HINTERGRUNDFARB.| 00001040: 50 22 20 BB 60 22 20 4C 44 41 20 23 24 46 C6 70 |P" .`" LDA #$F.p| 00001050: 22 20 53 54 41 20 2A 24 43 43 20 3B 20 43 55 52 |" STA *$CC ; CUR| 00001060: 53 4F 52 20 41 42 53 43 48 41 4C 54 45 CE 80 22 |SOR ABSCHALTE.."| 00001070: 20 4C 44 41 20 23 31 34 37 20 3B 20 43 4C 45 41 | LDA #147 ; CLEA| 00001080: 52 20 2F 20 48 4F 4D C5 90 22 20 4A 53 52 20 24 |R / HOM.." JSR $| 00001090: 46 46 44 32 20 3B 20 41 55 53 47 45 42 45 CE 00 |FFD2 ; AUSGEBE..| 000010A0: 23 20 4C 44 41 20 23 31 B4 10 23 20 4A 53 52 20 |# LDA #1..# JSR | 000010B0: 24 46 46 44 32 20 3B 20 4B 4C 45 49 4E 42 55 43 |$FFD2 ; KLEINBUC| 000010C0: 48 53 54 41 42 45 CE 20 23 20 4C 44 41 20 23 B8 |HSTABE. # LDA #.| 000010D0: 30 23 20 4A 53 52 20 24 46 46 44 32 20 3B 20 55 |0# JSR $FFD2 ; U| 000010E0: 4D 53 43 48 41 4C 54 55 4E 47 20 56 45 52 52 49 |MSCHALTUNG VERRI| 000010F0: 45 47 45 4C CE 40 23 20 BB 50 23 20 20 20 20 20 |EGEL.@# .P# | 00001100: 20 20 20 20 20 20 4C 44 41 20 23 31 20 20 20 20 | LDA #1 | 00001110: 20 20 20 20 20 20 20 20 20 20 20 3B 20 46 41 52 | ; FAR| 00001120: 42 52 41 4D 20 57 45 49 53 D3 60 23 20 4C 44 59 |BRAM WEIS.`# LDY| 00001130: 20 23 B0 70 23 43 4C 45 41 52 32 20 53 54 41 20 | #.p#CLEAR2 STA | 00001140: 24 44 38 30 30 2C D9 80 23 20 53 54 41 20 24 44 |$D800,..# STA $D| 00001150: 39 30 30 2C D9 90 23 20 53 54 41 20 24 44 41 30 |900,..# STA $DA0| 00001160: 30 2C D9 00 24 20 53 54 41 20 24 44 42 30 30 2C |0,..$ STA $DB00,| 00001170: D9 10 24 20 49 4E D9 20 24 20 42 4E 45 20 43 4C |..$ IN. $ BNE CL| 00001180: 45 41 52 B2 30 24 20 BB 40 24 20 52 54 D3 50 24 |EAR.0$ .@$ RT.P$| 00001190: 20 BB 60 24 20 BB 70 24 20 3B 20 2A 2A 2A 2A 2A | .`$ .p$ ; *****| 000011A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000011B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 80 24 20 3B 20 2A |*********..$ ; *| 000011C0: 20 20 42 49 4E 49 54 3A 20 42 49 4C 44 53 43 48 | BINIT: BILDSCH| 000011D0: 49 52 4D 20 41 55 46 42 41 55 45 4E 20 AA 90 24 |IRM AUFBAUEN ..$| 000011E0: 20 3B 20 2A 20 20 20 20 20 55 4E 44 20 49 4E 49 | ; * UND INI| 000011F0: 54 49 41 4C 49 53 49 45 52 55 4E 47 20 20 20 20 |TIALISIERUNG | 00001200: 20 AA 00 25 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | ..% ; *********| 00001210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001220: 2A 2A 2A 2A 2A AA 10 25 20 BB 20 25 42 49 4E 49 |*****..% . %BINI| 00001230: 54 20 43 4C 43 20 3B 20 5A 45 49 47 45 52 20 41 |T CLC ; ZEIGER A| 00001240: 55 46 20 45 52 53 54 C5 30 25 20 4C 44 41 20 23 |UF ERST.0% LDA #| 00001250: 4C 2C 46 54 41 42 20 3B 20 55 4E 44 20 4C 45 54 |L,FTAB ; UND LET| 00001260: 5A 54 45 20 5A 45 49 4C C5 40 25 20 20 20 20 20 |ZTE ZEIL.@% | 00001270: 20 20 20 20 20 20 53 54 41 20 2A 41 4E 46 4C 49 | STA *ANFLI| 00001280: 4E 20 20 20 20 20 20 20 20 20 20 20 3B 20 49 4D |N ; IM| 00001290: 20 42 49 4C 44 53 43 48 49 52 4D 20 53 45 54 5A | BILDSCHIRM SETZ| 000012A0: 45 CE 50 25 20 20 20 20 20 20 20 20 20 20 20 41 |E.P% A| 000012B0: 44 43 20 4D 55 4C 32 33 4C 2B 32 34 20 20 20 20 |DC MUL23L+24 | 000012C0: 20 20 20 20 3B 20 32 34 20 2A 20 32 33 20 41 44 | ; 24 * 23 AD| 000012D0: 44 49 45 52 45 CE 60 25 20 20 20 20 20 20 20 20 |DIERE.`% | 000012E0: 20 20 20 53 54 41 20 2A 45 4E 44 4C 49 CE 70 25 | STA *ENDLI.p%| 000012F0: 20 4C 44 41 20 23 48 2C 46 54 41 C2 80 25 20 20 | LDA #H,FTA..% | 00001300: 20 20 20 20 20 20 20 20 20 53 54 41 20 2A 41 4E | STA *AN| 00001310: 46 4C 49 4E 2B B1 90 25 20 20 20 20 20 20 20 20 |FLIN+..% | 00001320: 20 20 20 41 44 43 20 4D 55 4C 32 33 48 2B 32 B4 | ADC MUL23H+2.| 00001330: 00 26 20 20 20 20 20 20 20 20 20 20 20 53 54 41 |.& STA| 00001340: 20 2A 45 4E 44 4C 49 4E 2B B1 10 26 20 BB 20 26 | *ENDLIN+..& . &| 00001350: 20 4A 53 52 20 43 4C 45 41 52 20 3B 20 42 49 4C | JSR CLEAR ; BIL| 00001360: 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 CE |DSCHIRM LOESCHE.| 00001370: 30 26 20 BB 40 26 20 4C 44 58 20 23 B1 50 26 20 |0& .@& LDX #.P& | 00001380: 20 20 20 20 20 20 20 20 20 20 53 54 58 20 2A 46 | STX *F| 00001390: 4E 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |NR | 000013A0: 3B 20 41 4B 54 55 45 4C 4C 45 20 4E 55 4D 4D 45 |; AKTUELLE NUMME| 000013B0: D2 60 26 20 44 45 58 20 3B 20 44 45 53 20 45 49 |.`& DEX ; DES EI| 000013C0: 4E 54 52 41 47 45 53 3A 20 B1 70 26 20 20 20 20 |NTRAGES: .p& | 000013D0: 20 20 20 20 20 20 20 53 54 58 20 2A 46 4E 52 2B | STX *FNR+| 000013E0: B1 80 26 20 53 54 58 20 2A 41 43 54 4C 49 4E 20 |..& STX *ACTLIN | 000013F0: 3B 20 41 4B 54 55 45 4C 4C 45 20 42 2E 5A 45 49 |; AKTUELLE B.ZEI| 00001400: 4C C5 90 26 20 BB 00 27 20 4C 44 59 20 23 32 34 |L..& ..' LDY #24| 00001410: 20 3B 20 44 49 45 20 45 52 53 54 45 4E 20 32 35 | ; DIE ERSTEN 25| 00001420: 20 5A 45 49 4C 45 CE 10 27 20 53 54 59 20 2A 43 | ZEILE..' STY *C| 00001430: 4E 54 4C 49 CE 20 27 42 49 4E 49 54 31 20 4A 53 |NTLI. 'BINIT1 JS| 00001440: 52 20 4F 55 54 4C 49 4E 20 3B 20 41 4E 5A 45 49 |R OUTLIN ; ANZEI| 00001450: 47 45 CE 30 27 20 44 45 43 20 2A 43 4E 54 4C 49 |GE.0' DEC *CNTLI| 00001460: CE 40 27 20 42 50 4C 20 42 49 4E 49 54 31 20 3B |.@' BPL BINIT1 ;| 00001470: 20 42 3A 20 57 45 49 54 45 52 45 20 5A 45 49 4C | B: WEITERE ZEIL| 00001480: 45 CE 50 27 20 BB 60 27 20 4A 4D 50 20 45 4E 49 |E.P' .`' JMP ENI| 00001490: 52 51 20 3B 20 52 41 53 54 45 52 49 52 51 20 45 |RQ ; RASTERIRQ E| 000014A0: 49 4E 20 2F 20 52 54 D3 70 27 20 BB 80 27 20 BB |IN / RT.p' ..' .| 000014B0: 90 27 20 20 20 20 20 20 20 20 20 20 20 3B 20 2A |.' ; *| 000014C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000014D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 00 28 |*************..(| 000014E0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 2A 20 20 | ; * | 000014F0: 20 4F 55 54 4C 49 4E 3A 20 5A 45 49 4C 45 20 41 | OUTLIN: ZEILE A| 00001500: 55 53 47 45 42 45 4E 20 20 20 20 AA 10 28 20 20 |USGEBEN ..( | 00001510: 20 20 20 20 20 20 20 20 20 3B 20 2A 2A 2A 2A 2A | ; *****| 00001520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001530: 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 20 28 20 BB 30 28 |*********. ( .0(| 00001540: 4F 55 54 4C 49 4E 20 4A 53 52 20 47 45 54 4C 49 |OUTLIN JSR GETLI| 00001550: 4E 20 3B 20 45 49 4E 54 52 41 47 20 49 4E 20 45 |N ; EINTRAG IN E| 00001560: 42 55 C6 40 28 20 20 20 20 20 20 20 20 20 20 20 |BU.@( | 00001570: 4A 4D 50 20 53 48 4F 4C 49 4E 20 20 20 20 20 20 |JMP SHOLIN | 00001580: 20 20 20 20 20 3B 20 41 55 53 47 41 42 45 20 41 | ; AUSGABE A| 00001590: 55 46 20 53 43 52 45 45 CE 50 28 20 BB 60 28 20 |UF SCREE.P( .`( | 000015A0: BB 70 28 20 BB 80 28 20 3B 20 2A 2A 2A 2A 2A 2A |.p( ..( ; ******| 000015B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000015C0: 2A 2A 2A 2A 2A 2A 2A 2A AA 90 28 20 3B 20 2A 20 |********..( ; * | 000015D0: 20 47 45 54 41 44 3A 20 20 4C 45 53 45 5A 45 49 | GETAD: LESEZEI| 000015E0: 47 45 52 20 53 45 54 5A 45 4E 20 20 AA 00 29 20 |GER SETZEN ..) | 000015F0: 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |; **************| 00001600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001610: AA 10 29 20 BB 20 29 47 45 54 41 44 20 20 20 20 |..) . )GETAD | 00001620: 20 20 4C 44 59 20 2A 43 4E 54 4C 49 4E 20 20 20 | LDY *CNTLIN | 00001630: 20 20 20 20 20 20 20 3B 20 41 4B 54 55 45 4C 4C | ; AKTUELL| 00001640: 45 20 42 2E 41 55 53 47 41 42 45 5A 45 49 4C C5 |E B.AUSGABEZEIL.| 00001650: 30 29 20 43 4C C3 40 29 20 20 20 20 20 20 20 20 |0) CL.@) | 00001660: 20 20 20 4C 44 41 20 2A 41 4E 46 4C 49 4E 20 20 | LDA *ANFLIN | 00001670: 20 20 20 20 20 20 20 20 20 3B 20 5A 45 49 47 45 | ; ZEIGE| 00001680: 52 20 5A 55 20 42 2E 5A 45 49 4C 45 20 B0 50 29 |R ZU B.ZEILE .P)| 00001690: 20 20 20 20 20 20 20 20 20 20 20 41 44 43 20 4D | ADC M| 000016A0: 55 4C 32 33 4C 2C 59 20 20 20 20 20 20 20 20 20 |UL23L,Y | 000016B0: 3B 20 41 43 54 4C 49 4E 20 2A 20 32 33 20 41 44 |; ACTLIN * 23 AD| 000016C0: 44 49 45 52 45 CE 60 29 20 20 20 20 20 20 20 20 |DIERE.`) | 000016D0: 20 20 20 53 54 41 20 2A 52 45 41 44 4C 49 CE 70 | STA *READLI.p| 000016E0: 29 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |) LDA | 000016F0: 2A 41 4E 46 4C 49 4E 2B B1 80 29 20 20 20 20 20 |*ANFLIN+..) | 00001700: 20 20 20 20 20 20 41 44 43 20 4D 55 4C 32 33 48 | ADC MUL23H| 00001710: 2C D9 90 29 20 20 20 20 20 20 20 20 20 20 20 53 |,..) S| 00001720: 54 41 20 2A 52 45 41 44 4C 49 4E 2B B1 00 30 20 |TA *READLIN+..0 | 00001730: 52 54 D3 10 30 20 BB 20 30 20 BB 30 30 20 3B 20 |RT..0 . 0 .00 ; | 00001740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 40 |**************.@| 00001760: 30 20 3B 20 2A 20 20 47 45 54 4C 49 4E 3A 20 20 |0 ; * GETLIN: | 00001770: 45 49 4E 54 52 41 47 20 45 49 4E 4C 45 53 45 4E |EINTRAG EINLESEN| 00001780: 20 20 AA 50 30 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A | .P0 ; ********| 00001790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000017A0: 2A 2A 2A 2A 2A 2A AA 60 30 20 BB 70 30 47 45 54 |******.`0 .p0GET| 000017B0: 4C 49 4E 20 4A 53 52 20 47 45 54 41 44 20 3B 20 |LIN JSR GETAD ; | 000017C0: 4C 45 53 45 5A 45 49 47 45 52 20 53 45 54 5A 45 |LESEZEIGER SETZE| 000017D0: CE 80 30 20 BB 90 30 20 20 20 20 20 20 20 20 20 |..0 ..0 | 000017E0: 20 20 4C 44 59 20 23 32 32 20 20 20 20 20 20 20 | LDY #22 | 000017F0: 20 20 20 20 20 20 20 3B 20 32 33 20 5A 45 49 43 | ; 23 ZEIC| 00001800: 48 45 4E 20 48 4F 4C 45 CE 00 31 20 53 45 C9 10 |HEN HOLE..1 SE..| 00001810: 31 20 4C 44 58 20 23 24 33 B0 20 31 20 53 54 58 |1 LDX #$3. 1 STX| 00001820: 20 2A 31 20 3B 20 52 4F 4D 53 20 41 55 D3 30 31 | *1 ; ROMS AU.01| 00001830: 20 BB 40 31 47 45 54 4C 49 31 20 4C 44 41 20 28 | .@1GETLI1 LDA (| 00001840: 52 45 41 44 4C 49 4E 29 2C D9 50 31 20 53 54 41 |READLIN),.P1 STA| 00001850: 20 45 42 55 46 2C D9 60 31 20 44 45 D9 70 31 20 | EBUF,.`1 DE.p1 | 00001860: 20 20 20 20 20 20 20 20 20 20 42 50 4C 20 47 45 | BPL GE| 00001870: 54 4C 49 B1 80 31 20 BB 90 31 20 4C 44 58 20 23 |TLI..1 ..1 LDX #| 00001880: 24 33 B7 00 32 20 53 54 58 20 2A B1 10 32 20 43 |$3..2 STX *..2 C| 00001890: 4C C9 20 32 20 52 54 D3 30 32 20 BB 40 32 20 BB |L. 2 RT.02 .@2 .| 000018A0: 50 32 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |P2 ; ***********| 000018B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000018C0: 2A 2A 2A AA 60 32 20 20 20 20 20 20 20 20 20 20 |***.`2 | 000018D0: 20 3B 20 2A 20 20 53 48 4F 4C 49 4E 3A 20 20 4C | ; * SHOLIN: L| 000018E0: 49 4E 45 20 54 4F 20 53 43 52 45 45 4E 20 20 20 |INE TO SCREEN | 000018F0: 20 AA 70 32 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | .p2 ; *********| 00001900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001910: 2A 2A 2A 2A 2A AA 80 32 20 BB 90 32 53 48 4F 4C |*****..2 ..2SHOL| 00001920: 49 4E 20 20 20 20 20 4C 44 58 20 2A 43 4E 54 4C |IN LDX *CNTL| 00001930: 49 4E 20 20 20 20 20 20 20 20 20 20 3B 20 57 45 |IN ; WE| 00001940: 4C 43 48 45 20 5A 45 49 4C 45 BF 00 33 20 4C 44 |LCHE ZEILE..3 LD| 00001950: 41 20 42 41 44 52 4C 4F 2C 58 20 3B 20 41 44 52 |A BADRLO,X ; ADR| 00001960: 45 53 53 45 20 44 45 52 20 42 2E 5A 45 49 4C C5 |ESSE DER B.ZEIL.| 00001970: 10 33 20 53 54 41 20 53 48 4F 4C 49 32 2B B1 20 |.3 STA SHOLI2+. | 00001980: 33 20 4C 44 41 20 42 41 44 52 48 49 2C D8 30 33 |3 LDA BADRHI,.03| 00001990: 20 53 54 41 20 53 48 4F 4C 49 32 2B B2 40 33 20 | STA SHOLI2+.@3 | 000019A0: BB 50 33 20 4C 44 58 20 23 B0 60 33 20 4C 44 59 |.P3 LDX #.`3 LDY| 000019B0: 20 23 B0 70 33 20 4A 53 52 20 53 48 4F 57 20 3B | #.p3 JSR SHOW ;| 000019C0: 20 53 54 45 52 4E 20 4F 44 2E 20 53 50 41 43 C5 | STERN OD. SPAC.| 000019D0: 80 33 20 49 4E D8 90 33 20 49 4E 58 20 3B 20 32 |.3 IN..3 INX ; 2| 000019E0: 20 4C 45 45 52 5A 45 49 43 48 45 CE 00 34 20 BB | LEERZEICHE..4 .| 000019F0: 10 34 53 48 4F 4C 49 33 20 4A 53 52 20 53 48 4F |.4SHOLI3 JSR SHO| 00001A00: 57 20 3B 20 46 49 4C 45 4E 41 4D 45 20 41 55 53 |W ; FILENAME AUS| 00001A10: 47 45 42 45 CE 20 34 20 43 50 59 20 23 31 37 20 |GEBE. 4 CPY #17 | 00001A20: 3B 20 31 36 20 5A 45 49 43 48 45 4E 20 46 45 52 |; 16 ZEICHEN FER| 00001A30: 54 49 47 BF 30 34 20 42 4E 45 20 53 48 4F 4C 49 |TIG.04 BNE SHOLI| 00001A40: B3 40 34 20 BB 50 34 20 4A 53 52 20 53 48 4F 57 |.@4 .P4 JSR SHOW| 00001A50: 31 20 3B 20 44 49 53 4B 2D 49 C4 60 34 20 BB 70 |1 ; DISK-I.`4 .p| 00001A60: 34 20 4A 4D 50 20 53 48 4F 57 31 20 3B 20 4C 41 |4 JMP SHOW1 ; LA| 00001A70: 45 4E 47 45 20 2F 20 52 54 D3 80 34 20 BB 90 34 |ENGE / RT..4 ..4| 00001A80: 20 BB 00 35 53 48 4F 57 31 20 49 4E 58 20 3B 20 | ..5SHOW1 INX ; | 00001A90: 32 20 4C 45 45 52 5A 45 49 43 48 45 CE 10 35 20 |2 LEERZEICHE..5 | 00001AA0: 49 4E D8 20 35 20 4A 53 52 20 53 48 4F 57 20 3B |IN. 5 JSR SHOW ;| 00001AB0: 20 32 20 5A 41 48 4C 45 CE 30 35 20 4A 53 52 20 | 2 ZAHLE.05 JSR | 00001AC0: 53 48 4F D7 40 35 20 20 20 20 20 20 20 20 20 20 |SHO.@5 | 00001AD0: 20 4C 44 41 20 45 42 55 46 2C 59 20 20 20 20 20 | LDA EBUF,Y | 00001AE0: 20 3B 20 33 2E 20 5A 45 49 43 48 45 CE 50 35 20 | ; 3. ZEICHE.P5 | 00001AF0: 43 4D 50 20 23 24 41 30 20 3B 20 53 48 49 46 54 |CMP #$A0 ; SHIFT| 00001B00: 20 53 50 41 43 45 BF 60 35 20 42 4E 45 20 53 48 | SPACE.`5 BNE SH| 00001B10: 4F 4C 49 32 20 3B 20 42 3A 20 4E 45 49 4E 2C 20 |OLI2 ; B: NEIN, | 00001B20: 41 55 53 47 45 42 45 CE 70 35 20 4C 44 41 20 23 |AUSGEBE.p5 LDA #| 00001B30: 24 32 30 20 3B 20 44 55 52 43 48 20 53 50 41 43 |$20 ; DURCH SPAC| 00001B40: 45 20 45 52 53 45 54 5A 45 CE 80 35 20 42 4E 45 |E ERSETZE..5 BNE| 00001B50: 20 53 48 4F 4C 49 32 20 3B 20 42 52 41 4E 43 48 | SHOLI2 ; BRANCH| 00001B60: 20 41 4C 57 41 59 D3 90 35 20 BB 00 36 20 BB 10 | ALWAY..5 ..6 ..| 00001B70: 36 53 48 4F 57 20 20 20 20 20 20 20 4C 44 41 20 |6SHOW LDA | 00001B80: 45 42 55 46 2C 59 20 20 20 20 20 20 3B 20 5A 45 |EBUF,Y ; ZE| 00001B90: 49 43 48 45 4E 20 48 4F 4C 45 CE 20 36 53 48 4F |ICHEN HOLE. 6SHO| 00001BA0: 4C 49 32 20 20 20 20 20 53 54 41 20 24 38 38 38 |LI2 STA $888| 00001BB0: 38 2C 58 20 20 20 20 20 20 20 20 20 20 3B 20 41 |8,X ; A| 00001BC0: 44 52 2E 20 4D 4F 44 49 46 49 5A 49 45 52 54 A1 |DR. MODIFIZIERT.| 00001BD0: 30 36 20 49 4E D8 40 36 20 49 4E D9 50 36 20 52 |06 IN.@6 IN.P6 R| 00001BE0: 54 D3 60 36 20 BB 70 36 20 BB 80 36 20 3B 20 2A |T.`6 .p6 ..6 ; *| 00001BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 90 36 |*************..6| 00001C10: 20 20 20 20 20 20 20 20 20 20 20 3B 20 2A 20 20 | ; * | 00001C20: 54 41 4B 45 3A 20 20 45 49 4E 54 52 41 47 20 4D |TAKE: EINTRAG M| 00001C30: 41 52 4B 49 45 52 45 4E 20 20 20 AA 00 37 20 3B |ARKIEREN ..7 ;| 00001C40: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00001C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA |***************.| 00001C60: 10 37 20 BB 20 37 54 41 4B 45 20 4C 44 58 20 2A |.7 . 7TAKE LDX *| 00001C70: 41 43 54 4C 49 CE 30 37 20 20 20 20 20 20 20 20 |ACTLI.07 | 00001C80: 20 20 20 53 54 58 20 2A 43 4E 54 4C 49 CE 40 37 | STX *CNTLI.@7| 00001C90: 20 4C 44 41 20 42 41 44 52 4C 4F 2C D8 50 37 20 | LDA BADRLO,.P7 | 00001CA0: 53 54 41 20 2A 52 45 41 44 4C 49 CE 60 37 20 4C |STA *READLI.`7 L| 00001CB0: 44 41 20 42 41 44 52 48 49 2C D8 70 37 20 53 54 |DA BADRHI,.p7 ST| 00001CC0: 41 20 2A 52 45 41 44 4C 49 4E 2B B1 80 37 20 4C |A *READLIN+..7 L| 00001CD0: 44 59 20 23 B0 90 37 20 4C 44 41 20 23 27 2A A7 |DY #..7 LDA #'*.| 00001CE0: 00 38 20 43 4D 50 20 28 52 45 41 44 4C 49 4E 29 |.8 CMP (READLIN)| 00001CF0: 2C 59 20 3B 20 53 43 48 4F 4E 20 4D 41 52 4B 49 |,Y ; SCHON MARKI| 00001D00: 45 52 54 BF 10 38 20 42 45 51 20 54 41 4B 45 4E |ERT..8 BEQ TAKEN| 00001D10: 20 3B 20 42 3A 20 4A 41 2C 20 46 45 52 54 49 C7 | ; B: JA, FERTI.| 00001D20: 20 38 20 BB 30 38 20 53 54 41 20 28 52 45 41 44 | 8 .08 STA (READ| 00001D30: 4C 49 4E 29 2C D9 40 38 20 BB 50 38 20 BB 60 38 |LIN),.@8 .P8 .`8| 00001D40: 20 3B 20 45 49 4E 54 52 41 47 20 4D 41 52 4B 49 | ; EINTRAG MARKI| 00001D50: 45 52 45 4E BA 70 38 20 BB 80 38 20 4A 53 52 20 |EREN.p8 ..8 JSR | 00001D60: 47 45 54 4C 49 CE 90 38 20 BB 00 39 20 53 45 C9 |GETLI..8 ..9 SE.| 00001D70: 10 39 20 4C 44 58 20 23 24 33 B0 20 39 20 53 54 |.9 LDX #$3. 9 ST| 00001D80: 58 20 2A 31 20 3B 20 52 4F 4D 53 20 41 55 D3 30 |X *1 ; ROMS AU.0| 00001D90: 39 20 BB 40 39 20 20 20 20 20 20 20 20 20 20 20 |9 .@9 | 00001DA0: 4C 44 41 20 23 27 2A A7 50 39 20 20 20 20 20 20 |LDA #'*.P9 | 00001DB0: 20 20 20 20 20 4C 44 59 20 23 B0 60 39 20 53 54 | LDY #.`9 ST| 00001DC0: 41 20 28 52 45 41 44 4C 49 4E 29 2C D9 70 39 20 |A (READLIN),.p9 | 00001DD0: BB 80 39 20 4C 44 58 20 23 24 33 B7 90 39 20 53 |..9 LDX #$3..9 S| 00001DE0: 54 58 20 2A B1 00 40 20 43 4C C9 10 40 20 BB 20 |TX *..@ CL..@ . | 00001DF0: 40 20 49 4E 43 20 2A 43 4E 54 4F 55 54 20 3B 20 |@ INC *CNTOUT ; | 00001E00: 5A 41 45 48 4C 45 52 20 45 52 48 4F 45 48 45 CE |ZAEHLER ERHOEHE.| 00001E10: 30 40 20 42 4E 45 20 54 41 4B 45 CE 40 40 20 20 |0@ BNE TAKE.@@ | 00001E20: 20 20 20 20 20 20 20 20 20 49 4E 43 20 2A 43 4E | INC *CN| 00001E30: 54 4F 55 54 2B B1 50 40 20 BB 60 40 54 41 4B 45 |TOUT+.P@ .`@TAKE| 00001E40: 4E 20 52 54 D3 70 40 20 BB 80 40 20 BB 00 |N RT.p@ ..@ .. |
..0GN... ... ; *************************
*****. . ; * SAVDAT: GEWAEHLTE FILES
.0. ; * ZUR FLOPPY UEBERSPIELEN .@.
; ******************************.P. .`.
SAVDAT LDA #.P. CMP *CNTOUT+1 ; GE 256 G
EWAEHLT... BNE WRITE ; B: JA, AUSGEBEN..
CMP *CNTOUT ; LO-BYTE TESTEN.. BEQ READ
6 ; B: NICHTS GEWAEHLT.. . .WRITE L
DA #L,STEXT0. LDY #H,STEXT@. JSR STROUTP
. JSR GETNAM ; FILENAME H
OLEN`. .P. LDY *$B7 ; LAENGE FILENAME..
LDA #',' ; ',S' AN
HAENGEN.. STA FNAM,Y.. INY.. L
DA #'S. . STA FNAM,Y0. INY@. STY *$B7 ;
NEUE LAENGE SETZENP. .`. LDX *
CNTOUT ; ANZAHL SICHERNP.
LDY *CNTOUT+... STX *ANFLIN.. STY *
ANFLIN+... ... LDA #2 ; FILEPARAMETER SE
TZEN . LDX #.0. LDY #$6.@.
JSR FILPAR ; 2,8,1(=SAV
E.P. .`. JSR OPENP. BCC OK00
; B: DRIVE ANSPRECHBAR..
JMP ERROUT.. ... ...OK00 LDX
#2 ; LOG. FILENUMMER . JSR CH
KOUT ; CMD 2 / LISTEN0. .@. .P. ; ANZAHL
DER DATEN ERRECHNEN`. .P. LDA *CNTOUT+1
; HI-BYTE ANZAHL.. LDX *CNTOUT ; LO-BYT
E.. STA *$62 ; IN FAC GEBEN..
STX *$6... LDX #$9. . SEC0. JSR $BC49 ;
INTEGER TO FLPT@. JSR $BDDF ; FLPT TO AS
CIIP. .`. LDA #$20 ; SPACEP. JSR IECOUT
; AUSGEBEN.. ... LDY #...SAVDA1 LDA $010
0,Y.. CMP #0 ; ENDE. . BEQ SAVDA2 ; B: J
A0. JSR IECOUT@. INYP. BNE SAVDA1 ; BRAN
CH ALWAYS`. .P.SAVDA2 LDA #32 ; SPACE..
JSR IECOUT.. LDA #13 ; RETURN.. JSR IECO
UT.. . . .0. ; GEWAEHLTE DATEN AUSGEBEN.
@. .P. LDX #L,FTAB ; ZEIGER AUF DATEIANF
ANG`. LDY #H,FTABP. STX *READLIN.. STY *
READLIN+... ...SAVDA3 SEI..
LDX #$3. . STX *$0.0.SAVDAA
LDY #.@. LDA #'*'
; AUF KENNUNG TESTENP. CMP (READLIN)
,Y`. BEQ SAVDAB ; B:
AUSGEBENP. ... CLC
; LESEZEIGER WEITER.. L
DA #2... ADC *READLIN..
STA *READLIN . BCC SAVDAA0
. INC *READLIN+.@. B
NE SAVDAA ; BRANCH ALWAYSP.
.`.SAVDAB INYP.SAVDA4 SE
I.. LDX #$3... STX *
$0... LDA (READLIN),Y.. LD
X #$3. . STX *$0.0.
CLI@. JSR IECOUT ; EINTRAG AUSGEBENP. IN
Y`. CPY #2.P. BNE SAVDA... ... LDA #13 ;
RETURN.. JSR IECOUT.. . . CLC ; LESEZEI
GER WEITER0. LDA #2.@. ADC *READLINP. ST
A *READLIN`. BCC SAVDA.P. INC *READLIN+.
.. ...SAVDA5 LDX *CNTOUT ; ABWAERTSZAHLE
R.. BNE SAVDA6 ; ERNIEDRIGEN.. DEC *CNTO
UT+. .SAVDA6 DEC *CNTOUT0. .@.
LDA *CNTOUT+1 ; ALLES AUSGEGEBEN
.P. BNE SAVDA3 ; B: NOCH GE 256 UEBRIG`.
LDA *CNTOUTP. BNE SAVDA3 ; B: NOCH MEHR
ALS ... ... ... JSR CLRCHN..
. . LDA #.0. JSR CLOSE@. .P. .
`. ; FEHLERKANAL AUSLESENP. ...ERROUT LD
Y #1... TYA.. LDX #... JSR FILPAR . LDX
#.0. STX *$B7 ; KEIN FILENAME@. JSR OPEN
P. .`. LDA #8 .P. JSR TALK ; TALK ..
. LDA #$6F.. JSR SECTALK
; SECTALK 1... JSR IECIN.. PHA ; FE
HLERNUMMER . .0. PHA@. LDA #13 ; "RETURN
.P. JSR CHROUT`. PLAP. JSR CHROUT..ERRCH
JSR IECIN.. JSR CHROUT.. CMP #13 ; "RET
URN"... BNE ERRCH ; WEITERLESEN .
JSR UNTALK0. LDA #1.@. JSR CLOSEP. .
`. PLAP. CMP #$30 ; FEHLERNR.
0... BEQ SAVEND ; B: 0 OK 0 ... ... LDX
*ANFLIN ; ANZAHL HOLEN.. LDY *ANFLIN+. .
STX *CNTOUT0. STY *
CNTOUT+.@. JMP WRITE ; WIEDERHOLENP.SAVE
ND RTS`. .P. ... ; *********************
*********... ; * GETNAM: FILENAME ABFRA
GEN ... ; *****************************
*... . . .0.GETNAM LDA #0
; KEIN ZEICHEN IM PUFFER@. STA *$C.P
. JSR $A560 ; EINGABE HOLEN`. .P. LDA #0
; EINGABEPUFFER LESEN... TAY ; LAENGE E
RMITTELN..GETNA1 CMP $0200,Y ; 0 ALS END
E SUCHEN. BEQ GETNA2 ; B: 0 GEFUNDEN.
INY CPY #16 ; 16 ZEICHEN GELESEN.0 BC
C GETNA1 ; B: NEIN@ .P GETNA2 TYA ; LAE
NGE DES NAMENS` TAXP GETNA3 LDA $0200,X
; NAME IN PUFFER. STA FNAM,X. DEX.! B
PL GETNA..! . ! TYA ; NAMENPARAMETER SET
ZEN0! LDX #L,FNAM@! LDY #H,FNAMP!
JMP FILNAM ; SETZEN / RTS`
! .P! ..! ; ****************************
**..! ; * CLEAR: BILDSCHIRM LOESCHEN ..
" ; ******************************.." .
"CLEAR LDA #0 ; SCHWARZ0" STA $D020 ; RA
HMENFARBE@" STA $D021 ; HINTERGRUNDFARBE
P" .`" LDA #$FFP" STA *$CC ; CURSOR ABSC
HALTEN." LDA #147 ; CLEAR / HOME." JSR $
FFD2 ; AUSGEBEN.# LDA #1..# JSR $FFD2 ;
KLEINBUCHSTABEN # LDA #.0# JSR $FFD2 ; U
MSCHALTUNG VERRIEGELN@# .P# LD
A #1 ; FARBRAM WEISS`# LDY
#.P#CLEAR2 STA $D800,Y.# STA $D900,Y.#
STA $DA00,Y.$ STA $DB00,Y.$ INY $ BNE CL
EAR.0$ .@$ RTSP$ .`$ .P$ ; *************
*****************..$ ; * BINIT: BILDSCH
IRM AUFBAUEN ..$ ; * UND INITIALISIE
RUNG ..% ; *************************
*****..% . %BINIT CLC ; ZEIGER AUF ERSTE
0% LDA #L,FTAB ; UND LETZTE ZEILE@%
STA *ANFLIN ; IM BILDSCH
IRM SETZENP% ADC MUL23L+24
; 24 * 23 ADDIEREN`% STA *
ENDLINP% LDA #H,FTAB.% STA *AN
FLIN+..% ADC MUL23H+2..&
STA *ENDLIN+..& . & JSR CLEAR ; BIL
DSCHIRM LOESCHEN0& .@& LDX #.P&
STX *FNR ; AKTUELLE NUMME
R`& DEX ; DES EINTRAGES: .P& S
TX *FNR+..& STX *ACTLIN ; AKTUELLE B.ZEI
LE.& ..' LDY #24 ; DIE ERSTEN 25 ZEILEN.
' STY *CNTLIN 'BINIT1 JSR OUTLIN ; ANZEI
GEN0' DEC *CNTLIN@' BPL BINIT1 ; B: WEIT
ERE ZEILENP' .`' JMP ENIRQ ; RASTERIRQ E
IN / RTSP' ..' ..' ; *********
*********************..( ; *
OUTLIN: ZEILE AUSGEBEN ..(
; ******************************. ( .0(
OUTLIN JSR GETLIN ; EINTRAG IN EBUF@(
JMP SHOLIN ; AUSGABE A
UF SCREENP( .`( .P( ..( ; **************
****************..( ; * GETAD: LESEZEI
GER SETZEN ..) ; **********************
********..) . )GETAD LDY *CNTLIN
; AKTUELLE B.AUSGABEZEILE0) CLC@)
LDA *ANFLIN ; ZEIGE
R ZU B.ZEILE .P) ADC MUL23L,Y
; ACTLIN * 23 ADDIEREN`)
STA *READLINP) LDA *ANFLIN+
..) ADC MUL23H,Y.) S
TA *READLIN+..0 RTS.0 . 0 .00 ; ********
**********************.@0 ; * GETLIN:
EINTRAG EINLESEN .P0 ; ****************
**************.`0 .P0GETLIN JSR GETAD ;
LESEZEIGER SETZEN.0 ..0 LDY #2
2 ; 23 ZEICHEN HOLEN.1 SEI.
1 LDX #$3. 1 STX *1 ; ROMS AUS01 .@1GETL
I1 LDA (READLIN),YP1 STA EBUF,Y`1 DEYP1
BPL GETLI..1 ..1 LDX #$3..2 ST
X *..2 CLI 2 RTS02 .@2 .P2 ; ***********
*******************.`2 ; * SH
OLIN: LINE TO SCREEN .P2 ; *********
*********************..2 ..2SHOLIN L
DX *CNTLIN ; WELCHE ZEILE..3 LD
A BADRLO,X ; ADRESSE DER B.ZEILE.3 STA S
HOLI2+. 3 LDA BADRHI,X03 STA SHOLI2+.@3
.P3 LDX #.`3 LDY #.P3 JSR SHOW ; STERN O
D. SPACE.3 INX.3 INX ; 2 LEERZEICHEN.4 .
.4SHOLI3 JSR SHOW ; FILENAME AUSGEBEN 4
CPY #17 ; 16 ZEICHEN FERTIG.04 BNE SHOLI
.@4 .P4 JSR SHOW1 ; DISK-ID`4 .P4 JMP SH
OW1 ; LAENGE / RTS.4 ..4 ..5SHOW1 INX ;
2 LEERZEICHEN.5 INX 5 JSR SHOW ; 2 ZAHLE
N05 JSR SHOW@5 LDA EBUF,Y
; 3. ZEICHENP5 CMP #$A0 ; SHIFT SPACE.`
5 BNE SHOLI2 ; B: NEIN, AUSGEBENP5 LDA #
$20 ; DURCH SPACE ERSETZEN.5 BNE SHOLI2
; BRANCH ALWAYS.5 ..6 ..6SHOW LDA
EBUF,Y ; ZEICHEN HOLEN 6SHOLI2
STA $8888,X ; ADR. MODIFIZIERT.
06 INX@6 INYP6 RTS`6 .P6 ..6 ; *********
*********************..6 ; *
TAKE: EINTRAG MARKIEREN ..7 ; *******
***********************..7 . 7TAKE LDX *
ACTLIN07 STX *CNTLIN@7 LDA BAD
RLO,XP7 STA *READLIN`7 LDA BADRHI,XP7 ST
A *READLIN+..7 LDY #..7 LDA #'*..8 CMP (
READLIN),Y ; SCHON MARKIERT..8 BEQ TAKEN
; B: JA, FERTIG 8 .08 STA (READLIN),Y@8
.P8 .`8 ; EINTRAG MARKIEREN.P8 ..8 JSR
GETLIN.8 ..9 SEI.9 LDX #$3. 9 STX *1 ; R
OMS AUS09 .@9 LDA #'*.P9
LDY #.`9 STA (READLIN),YP9 ..9 LDX
#$3..9 STX *..@ CLI.@ . @ INC *CNTOUT ;
ZAEHLER ERHOEHEN0@ BNE TAKEN@@
INC *CNTOUT+.P@ .`@TAKEN RTSP@ ..@ ..
> CLICK IMAGE PREVIEW FOR FULL MODAL