PRINTSORT1.ASM
FILE INFORMATION
FILENAME(S): PRINTSORT1.ASM
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 21:27:21
APPEARS ON: 1 disk(s)
FILE HASH
ec223f99797798762a49a1ab2004d4a88b3f7b880ab18944bac6b20f15922aeb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | PRINTSORT1.ASM | PRG | DuncanTwain | 8 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 00 30 FB 49 2E 00 01 20 2E 4F D3 10 01 20 2E |..0.I... .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 31 35 2E 31 30 2E 39 |AST REV. 15.10.9| 00000050: B1 60 01 20 BB 70 01 20 BB 80 01 20 3B 20 4B 45 |.`. .p. ... ; KE| 00000060: 52 4E 41 4C 20 53 50 52 55 4E 47 54 41 42 45 4C |RNAL SPRUNGTABEL| 00000070: 4C C5 90 01 20 3B 20 28 46 4C 4F 50 50 59 52 4F |L... ; (FLOPPYRO| 00000080: 55 54 49 4E 45 4E A9 00 02 20 BB 10 02 43 4C 41 |UTINEN... ...CLA| 00000090: 4C 4C 20 2E 44 45 20 24 46 46 45 B7 20 02 43 4C |LL .DE $FFE. .CL| 000000A0: 52 43 48 4E 20 2E 44 45 20 24 46 46 43 C3 30 02 |RCHN .DE $FFC.0.| 000000B0: 46 49 4C 50 41 52 20 2E 44 45 20 24 46 46 42 C1 |FILPAR .DE $FFB.| 000000C0: 40 02 46 49 4C 4E 41 4D 20 2E 44 45 20 24 46 46 |@.FILNAM .DE $FF| 000000D0: 42 C4 50 02 4F 50 45 4E 20 2E 44 45 20 24 46 46 |B.P.OPEN .DE $FF| 000000E0: 43 B0 60 02 43 4C 4F 53 45 20 2E 44 45 20 24 46 |C.`.CLOSE .DE $F| 000000F0: 46 43 B3 70 02 4C 49 53 54 45 4E 20 2E 44 45 20 |FC.p.LISTEN .DE | 00000100: 24 46 46 42 B1 80 02 55 4E 4C 49 53 54 20 2E 44 |$FFB...UNLIST .D| 00000110: 45 20 24 46 46 42 B1 90 02 54 41 4C 4B 20 2E 44 |E $FFB...TALK .D| 00000120: 45 20 24 46 46 42 B4 00 03 55 4E 54 41 4C 4B 20 |E $FFB...UNTALK | 00000130: 2E 44 45 20 24 46 46 41 C2 10 03 53 45 43 54 41 |.DE $FFA...SECTA| 00000140: 4C 4B 20 2E 44 45 20 24 46 46 39 B6 20 03 53 45 |LK .DE $FF9. .SE| 00000150: 43 4C 49 53 54 20 20 20 20 20 2E 44 45 20 24 46 |CLIST .DE $F| 00000160: 46 39 B3 30 03 49 45 43 4F 55 54 20 20 20 20 20 |F9.0.IECOUT | 00000170: 2E 44 45 20 24 45 44 44 C4 40 03 49 45 43 49 4E |.DE $EDD.@.IECIN| 00000180: 20 20 20 20 20 20 2E 44 45 20 24 45 45 31 B3 50 | .DE $EE1.P| 00000190: 03 43 48 52 4F 55 54 20 20 20 20 20 2E 44 45 20 |.CHROUT .DE | 000001A0: 24 46 46 44 B2 60 03 43 48 4B 4F 55 54 20 2E 44 |$FFD.`.CHKOUT .D| 000001B0: 45 20 24 46 46 43 B9 80 03 53 54 52 4F 55 54 20 |E $FFC...STROUT | 000001C0: 2E 44 45 20 24 41 42 31 C5 00 04 20 BB 10 04 20 |.DE $AB1... ... | 000001D0: BB 20 04 20 20 20 20 20 20 20 20 20 20 20 2E 42 |. . .B| 000001E0: 59 20 24 31 36 20 24 30 38 20 24 43 37 20 24 30 |Y $16 $08 $C7 $0| 000001F0: 37 20 24 39 45 20 3B 20 42 41 53 49 43 53 54 41 |7 $9E ; BASICSTA| 00000200: 52 D4 30 04 20 2E 42 59 20 24 32 38 20 24 33 32 |R.0. .BY $28 $32| 00000210: 20 24 33 30 20 24 33 37 20 24 33 32 20 24 32 39 | $30 $37 $32 $29| 00000220: 20 24 32 B0 40 04 20 2E 42 59 20 27 4F 44 59 53 | $2.@. .BY 'ODYS| 00000230: 53 45 55 53 27 20 30 20 30 20 B0 50 04 20 BB 60 |SEUS' 0 0 .P. .`| 00000240: 04 20 BB 70 04 20 3B 20 5A 45 52 4F 50 41 47 45 |. .p. ; ZEROPAGE| 00000250: 41 44 52 45 53 53 45 4E BA 80 04 20 BB 90 04 52 |ADRESSEN... ...R| 00000260: 45 41 44 4C 49 4E 20 20 20 20 2E 44 45 20 24 41 |EADLIN .DE $A| 00000270: 38 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |8 ; | 00000280: 5A 45 49 47 45 52 20 41 55 46 20 45 49 4E 54 52 |ZEIGER AUF EINTR| 00000290: 41 C7 00 05 46 41 4E 5A 20 20 20 20 20 20 20 2E |A...FANZ .| 000002A0: 44 45 20 24 41 43 20 20 20 20 20 20 20 20 20 20 |DE $AC | 000002B0: 20 20 20 20 3B 20 41 4E 5A 41 48 4C 20 45 49 4E | ; ANZAHL EIN| 000002C0: 54 52 41 45 47 C5 10 05 4F 46 46 53 45 54 20 20 |TRAEG...OFFSET | 000002D0: 20 20 20 2E 44 45 20 24 41 45 20 3B 20 41 42 53 | .DE $AE ; ABS| 000002E0: 54 2E 20 53 50 41 4C 54 45 2F 53 50 41 4C 54 C5 |T. SPALTE/SPALT.| 000002F0: 20 05 46 53 54 41 52 54 20 2E 44 45 20 24 46 42 | .FSTART .DE $FB| 00000300: 20 3B 20 4C 45 53 45 5A 45 49 47 45 D2 30 05 4E | ; LESEZEIGE.0.N| 00000310: 52 50 41 47 20 2E 44 45 20 24 46 44 20 3B 20 5A |RPAG .DE $FD ; Z| 00000320: 55 20 44 52 55 43 4B 45 4E 44 45 20 53 45 49 54 |U DRUCKENDE SEIT| 00000330: 45 CE 40 05 4C 49 4E 43 4E 54 20 2E 44 45 20 24 |E.@.LINCNT .DE $| 00000340: 46 45 20 3B 20 5A 45 49 4C 45 4E 5A 41 45 48 4C |FE ; ZEILENZAEHL| 00000350: 45 D2 50 05 20 BB 60 05 20 BB 80 05 20 3B 20 2A |E.P. .`. ... ; *| 00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 90 05 |*************...| 00000380: 20 3B 20 2A 20 20 20 48 41 55 50 54 50 52 4F 47 | ; * HAUPTPROG| 00000390: 52 41 4D 4D 20 20 20 20 20 20 20 20 20 20 20 20 |RAMM | 000003A0: 20 AA 00 06 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | ... ; *********| 000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003C0: 2A 2A 2A 2A 2A AA 10 06 20 BB 20 06 20 3B 20 28 |*****... . . ; (| 000003D0: 53 59 53 20 32 30 37 32 A9 30 06 20 BB 40 06 20 |SYS 2072.0. .@. | 000003E0: 4A 4D 50 20 53 54 41 52 54 20 3B 20 54 41 42 45 |JMP START ; TABE| 000003F0: 4C 4C 45 20 55 45 42 45 52 53 50 52 49 4E 47 45 |LLE UEBERSPRINGE| 00000400: CE 50 06 20 BB 60 06 20 BB 70 06 20 3B 20 2A 2A |.P. .`. .p. ; **| 00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 80 06 |*************...| 00000430: 20 3B 20 2A 20 20 44 52 55 43 4B 45 52 49 4E 53 | ; * DRUCKERINS| 00000440: 54 41 4C 4C 41 54 49 4F 4E 3A 20 20 20 20 20 20 |TALLATION: | 00000450: 20 20 AA 90 06 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A | ... ; ********| 00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000470: 2A 2A 2A 2A 2A 2A 2A AA 00 07 20 BB 20 07 47 41 |*******... . .GA| 00000480: 20 2E 42 59 20 34 20 3B 20 44 52 55 43 4B 45 52 | .BY 4 ; DRUCKER| 00000490: 41 44 52 45 53 53 C5 30 07 53 41 20 2E 42 59 20 |ADRESS.0.SA .BY | 000004A0: 37 20 3B 20 53 45 4B 55 4E 44 41 45 52 41 44 52 |7 ; SEKUNDAERADR| 000004B0: 45 53 53 C5 40 07 20 BB 50 07 4C 46 20 2E 42 59 |ESS.@. .P.LF .BY| 000004C0: 20 30 20 3B 20 30 3A 20 4B 45 49 4E 20 4C 49 4E | 0 ; 0: KEIN LIN| 000004D0: 45 2D 46 45 45 C4 60 07 46 46 20 2E 42 59 20 31 |E-FEE.`.FF .BY 1| 000004E0: 32 20 3B 20 46 4F 52 4D 20 46 45 45 C4 70 07 4C |2 ; FORM FEE.p.L| 000004F0: 4C 20 2E 42 59 20 38 38 20 3B 20 50 41 50 49 45 |L .BY 88 ; PAPIE| 00000500: 52 4C 41 45 4E 47 C5 80 07 20 BB 90 07 5A 41 20 |RLAENG... ...ZA | 00000510: 20 20 20 20 20 20 20 20 2E 42 59 20 36 20 20 20 | .BY 6 | 00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 5A | ; Z| 00000530: 45 49 4C 45 4E 41 42 53 54 41 4E 44 20 4C 41 45 |EILENABSTAND LAE| 00000540: 4E 47 C5 00 08 20 20 20 20 20 20 20 20 20 20 20 |NG... | 00000550: 2E 42 59 20 32 37 20 35 31 20 32 33 20 32 37 20 |.BY 27 51 23 27 | 00000560: 38 32 20 30 20 30 20 30 20 30 20 B0 10 08 4D 50 |82 0 0 0 0 ...MP| 00000570: 20 2E 42 59 20 33 20 3B 20 4D 41 53 54 45 52 2D | .BY 3 ; MASTER-| 00000580: 50 52 49 4E 54 20 4C 41 45 4E 47 C5 20 08 20 2E |PRINT LAENG. . .| 00000590: 42 59 20 32 37 20 33 33 20 30 34 20 30 20 30 20 |BY 27 33 04 0 0 | 000005A0: 30 20 30 20 30 20 30 20 B0 30 08 20 BB 40 08 20 |0 0 0 0 .0. .@. | 000005B0: BB 50 08 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.P. ; **********| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005D0: 2A 2A 2A 2A 2A AA 60 08 20 BB 70 08 53 54 41 52 |*****.`. .p.STAR| 000005E0: 54 20 20 20 20 20 20 4C 44 41 20 23 4C 2C 54 4F |T LDA #L,TO| 000005F0: 50 54 58 D4 80 08 20 4C 44 59 20 23 48 2C 54 4F |PTX... LDY #H,TO| 00000600: 50 54 58 D4 90 08 20 4A 53 52 20 53 54 52 4F 55 |PTX... JSR STROU| 00000610: D4 00 09 20 BB 30 09 20 20 20 20 20 20 20 20 20 |... .0. | 00000620: 20 20 4A 53 52 20 47 45 54 44 41 54 20 3B 20 44 | JSR GETDAT ; D| 00000630: 41 54 45 49 20 45 49 4E 4C 45 53 45 CE 40 09 20 |ATEI EINLESE.@. | 00000640: BB 50 09 20 20 20 20 20 20 20 20 20 20 20 4A 53 |.P. JS| 00000650: 52 20 50 52 49 4E 49 54 20 3B 20 44 52 55 43 4B |R PRINIT ; DRUCK| 00000660: 45 52 4B 41 4E 41 CC 60 09 20 BB 70 09 20 20 20 |ERKANA.`. .p. | 00000670: 20 20 20 20 20 20 20 20 4A 53 52 20 50 52 49 4E | JSR PRIN| 00000680: 54 20 3B 20 44 52 55 43 4B 45 CE 80 09 20 BB 90 |T ; DRUCKE... ..| 00000690: 09 20 4A 4D 50 20 24 41 34 37 34 20 3B 20 52 45 |. JMP $A474 ; RE| 000006A0: 41 44 D9 00 10 20 BB 20 10 20 BB 30 10 20 3B 20 |AD... . . .0. ; | 000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 40 |**************.@| 000006D0: 10 20 3B 20 2A 20 20 50 52 49 4E 49 54 3A 20 20 |. ; * PRINIT: | 000006E0: 49 4E 49 54 49 41 4C 49 53 49 45 52 55 4E 47 20 |INITIALISIERUNG | 000006F0: 20 20 AA 50 10 20 3B 20 2A 20 20 55 4E 44 20 44 | .P. ; * UND D| 00000700: 52 55 43 4B 45 52 4B 41 4E 41 4C 20 4F 45 46 46 |RUCKERKANAL OEFF| 00000710: 4E 45 4E 20 20 20 AA 60 10 20 3B 20 2A 2A 2A 2A |NEN .`. ; ****| 00000720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 70 10 20 BB 80 |**********.p. ..| 00000740: 10 50 52 49 4E 49 54 20 20 20 20 20 53 45 49 20 |.PRINIT SEI | 00000750: 3B 20 34 20 4C 45 45 52 5A 45 49 4C 45 4E 20 44 |; 4 LEERZEILEN D| 00000760: 41 5A D5 90 10 20 20 20 20 20 20 20 20 20 20 20 |AZ... | 00000770: 4C 44 58 20 23 24 33 B0 00 11 20 53 54 58 20 2A |LDX #$3... STX *| 00000780: 24 30 B1 10 11 20 BB 20 11 20 20 20 20 20 20 20 |$0... . . | 00000790: 20 20 20 20 4C 44 41 20 23 33 32 20 3B 20 53 50 | LDA #32 ; SP| 000007A0: 41 43 C5 30 11 20 BB 40 11 20 20 20 20 20 20 20 |AC.0. .@. | 000007B0: 20 20 20 20 4C 44 59 20 23 38 37 20 3B 20 34 20 | LDY #87 ; 4 | 000007C0: 2A 20 32 32 20 42 59 54 45 D3 50 11 49 4E 49 54 |* 22 BYTE.P.INIT| 000007D0: 31 20 53 54 41 20 28 52 45 41 44 4C 49 4E 29 2C |1 STA (READLIN),| 000007E0: D9 60 11 20 44 45 D9 70 11 20 42 50 4C 20 49 4E |.`. DE.p. BPL IN| 000007F0: 49 54 B1 80 11 20 BB 90 11 20 4C 44 58 20 23 24 |IT... ... LDX #$| 00000800: 33 B7 00 12 20 53 54 58 20 2A B1 10 12 20 43 4C |3... STX *... CL| 00000810: C9 20 12 20 BB 30 12 20 4C 44 41 20 2A 4C 49 4E |. . .0. LDA *LIN| 00000820: 43 4E 54 20 3B 20 5A 41 45 48 4C 45 D2 40 12 20 |CNT ; ZAEHLE.@. | 00000830: 43 4D 50 20 23 35 20 3B 20 35 20 44 2E 48 2E 20 |CMP #5 ; 5 D.H. | 00000840: 4E 45 55 20 47 45 53 45 54 5A 54 BF 50 12 20 20 |NEU GESETZT.P. | 00000850: 20 20 20 20 20 20 20 20 20 42 45 51 20 49 4E 49 | BEQ INI| 00000860: 54 32 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |T2 ; | 00000870: 42 3A 20 4A C1 60 12 20 49 4E 43 20 2A 46 41 4E |B: J.`. INC *FAN| 00000880: 5A 20 3B 20 41 4E 47 45 46 41 4E 47 45 4E 45 20 |Z ; ANGEFANGENE | 00000890: 35 2D 45 52 20 5A 45 49 4C C5 70 12 20 20 20 20 |5-ER ZEIL.p. | 000008A0: 20 20 20 20 20 20 20 42 4E 45 20 49 4E 49 54 B2 | BNE INIT.| 000008B0: 80 12 20 49 4E 43 20 2A 46 41 4E 5A 2B B1 90 12 |.. INC *FANZ+...| 000008C0: 20 BB 91 12 49 4E 49 54 32 20 4C 44 58 20 2A 46 | ...INIT2 LDX *F| 000008D0: 41 4E DA 92 12 20 4C 44 59 20 2A 46 41 4E 5A 2B |AN... LDY *FANZ+| 000008E0: B1 93 12 20 20 20 20 20 20 20 20 20 20 20 53 54 |... ST| 000008F0: 58 20 2A 4F 46 46 53 45 54 20 3B 20 28 48 49 4C |X *OFFSET ; (HIL| 00000900: 46 53 56 41 52 2E A9 94 12 20 20 20 20 20 20 20 |FSVAR.... | 00000910: 20 20 20 20 53 54 59 20 2A 4F 46 46 53 45 54 2B | STY *OFFSET+| 00000920: B1 95 12 20 BB 00 13 49 4E 49 54 33 20 20 20 20 |... ...INIT3 | 00000930: 20 20 4C 44 41 20 23 30 20 20 20 20 20 20 20 20 | LDA #0 | 00000940: 20 20 20 20 20 20 20 3B 20 4E 55 4D 42 45 52 20 | ; NUMBER | 00000950: 4F 46 20 50 41 47 45 D3 10 13 20 53 54 41 20 2A |OF PAGE... STA *| 00000960: 4E 52 50 41 C7 20 13 20 BB 30 13 49 4E 49 54 34 |NRPA. . .0.INIT4| 00000970: 20 49 4E 43 20 2A 4E 52 50 41 C7 40 13 20 20 20 | INC *NRPA.@. | 00000980: 20 20 20 20 20 20 20 20 4C 44 41 20 2A 4F 46 46 | LDA *OFF| 00000990: 53 45 D4 50 13 20 53 54 41 20 2A 46 41 4E DA 60 |SE.P. STA *FAN.`| 000009A0: 13 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |. LDA | 000009B0: 2A 4F 46 46 53 45 54 2B B1 70 13 20 53 54 41 20 |*OFFSET+.p. STA | 000009C0: 2A 46 41 4E 5A 2B B1 80 13 20 BB 90 13 20 53 45 |*FANZ+... ... SE| 000009D0: 43 20 3B 20 4C 4C 20 41 42 5A 49 45 48 45 CE 00 |C ; LL ABZIEHE..| 000009E0: 14 20 4C 44 41 20 2A 46 41 4E DA 10 14 20 53 42 |. LDA *FAN... SB| 000009F0: 43 20 4C CC 20 14 20 20 20 20 20 20 20 20 20 20 |C L. . | 00000A00: 20 53 54 41 20 2A 4F 46 46 53 45 D4 30 14 20 4C | STA *OFFSE.0. L| 00000A10: 44 41 20 2A 46 41 4E 5A 2B B1 40 14 20 53 42 43 |DA *FANZ+.@. SBC| 00000A20: 20 23 B0 50 14 20 20 20 20 20 20 20 20 20 20 20 | #.P. | 00000A30: 53 54 41 20 2A 4F 46 46 53 45 54 2B B1 60 14 20 |STA *OFFSET+.`. | 00000A40: BB 70 14 20 42 43 53 20 49 4E 49 54 34 20 3B 20 |.p. BCS INIT4 ; | 00000A50: 42 3A 20 4E 4F 43 48 4D 41 4C 20 4C 4C 20 41 42 |B: NOCHMAL LL AB| 00000A60: 5A AE 80 14 20 BB 90 14 20 44 45 43 20 2A 4E 52 |Z... ... DEC *NR| 00000A70: 50 41 C7 00 15 20 BB 10 15 20 BB 20 15 20 3B 20 |PA... ... . . ; | 00000A80: 4A 45 54 5A 54 20 45 4E 54 48 41 45 4C 54 20 4E |JETZT ENTHAELT N| 00000A90: 52 50 41 47 20 44 49 45 20 41 4E 5A 41 48 CC 30 |RPAG DIE ANZAH.0| 00000AA0: 15 20 3B 20 44 45 52 20 53 45 49 54 45 4E 20 5A |. ; DER SEITEN Z| 00000AB0: 55 20 4A 45 20 4C 4C 20 44 4F 50 50 45 4C 5A 45 |U JE LL DOPPELZE| 00000AC0: 49 4C 45 CE 40 15 20 3B 20 55 4E 44 20 46 41 4E |ILE.@. ; UND FAN| 00000AD0: 5A 20 45 4E 54 48 41 45 4C 54 20 44 49 45 20 41 |Z ENTHAELT DIE A| 00000AE0: 4E 5A 41 48 4C 20 44 45 D2 50 15 20 3B 20 55 45 |NZAHL DE.P. ; UE| 00000AF0: 42 52 49 47 45 4E 20 44 4F 50 50 45 4C 5A 45 49 |BRIGEN DOPPELZEI| 00000B00: 4C 45 CE 60 15 20 BB 70 15 20 4C 44 58 20 23 4C |LE.`. .p. LDX #L| 00000B10: 2C 46 54 41 42 20 3B 20 52 41 4D 41 4E 46 41 4E |,FTAB ; RAMANFAN| 00000B20: C7 80 15 20 4C 44 59 20 23 48 2C 46 54 41 C2 90 |... LDY #H,FTA..| 00000B30: 15 20 53 54 58 20 2A 46 53 54 41 52 D4 00 16 20 |. STX *FSTAR... | 00000B40: 53 54 58 20 2A 52 45 41 44 4C 49 CE 10 16 20 53 |STX *READLI... S| 00000B50: 54 59 20 2A 46 53 54 41 52 54 2B B1 20 16 20 53 |TY *FSTART+. . S| 00000B60: 54 59 20 2A 52 45 41 44 4C 49 4E 2B B1 30 16 20 |TY *READLIN+.0. | 00000B70: BB 40 16 20 3B 20 46 53 54 41 52 54 3A 20 5A 45 |.@. ; FSTART: ZE| 00000B80: 49 47 45 52 20 41 55 46 20 4C 49 4E 4B 45 20 20 |IGER AUF LINKE | 00000B90: 5A 45 49 4C C5 50 16 20 20 20 20 20 20 20 20 20 |ZEIL.P. | 00000BA0: 20 20 3B 20 52 45 41 44 4C 49 4E 3A 20 5A 45 49 | ; READLIN: ZEI| 00000BB0: 47 45 52 20 41 55 46 20 41 4B 54 55 45 4C 4C 45 |GER AUF AKTUELLE| 00000BC0: 20 5A 45 49 4C C5 55 16 20 3B 20 52 45 41 44 4C | ZEIL.U. ; READL| 00000BD0: 49 4E 20 3D 20 46 53 54 41 52 54 20 2B 20 30 2E |IN = FSTART + 0.| 00000BE0: 2E 34 20 2A 20 4F 46 46 53 45 D4 60 16 20 BB 70 |.4 * OFFSE.`. .p| 00000BF0: 16 20 BB 80 16 20 3B 20 44 52 55 43 4B 45 52 4B |. ... ; DRUCKERK| 00000C00: 41 4E 41 4C 20 4F 45 46 46 4E 45 4E BA 90 16 20 |ANAL OEFFNEN... | 00000C10: BB 00 17 44 52 4F 50 4E 20 20 20 20 20 4C 44 41 |...DROPN LDA| 00000C20: 20 23 4C 2C 50 54 45 58 54 20 20 20 20 20 20 20 | #L,PTEXT | 00000C30: 20 20 3B 20 4D 45 4C 44 55 4E 47 20 41 55 53 47 | ; MELDUNG AUSG| 00000C40: 45 42 45 CE 10 17 20 4C 44 59 20 23 48 2C 50 54 |EBE... LDY #H,PT| 00000C50: 45 58 D4 20 17 20 4A 53 52 20 53 54 52 4F 55 D4 |EX. . JSR STROU.| 00000C60: 30 17 20 4A 53 52 20 47 45 54 4E 41 4D 20 3B 20 |0. JSR GETNAM ; | 00000C70: 45 49 4E 47 41 42 45 20 45 52 57 41 52 54 45 CE |EINGABE ERWARTE.| 00000C80: 40 17 20 BB 50 17 20 4C 44 41 20 47 41 20 3B 20 |@. .P. LDA GA ; | 00000C90: 47 45 52 41 45 54 41 44 52 45 53 53 C5 60 17 20 |GERAETADRESS.`. | 00000CA0: 54 41 D8 70 17 20 4C 44 59 20 53 41 20 3B 20 53 |TA.p. LDY SA ; S| 00000CB0: 45 4B 55 4E 44 41 45 52 41 44 52 45 53 53 C5 80 |EKUNDAERADRESS..| 00000CC0: 17 20 4A 53 52 20 46 49 4C 50 41 52 20 3B 20 47 |. JSR FILPAR ; G| 00000CD0: 41 2C 47 41 2C 53 C1 90 17 20 BB 00 18 20 4C 44 |A,GA,S... ... LD| 00000CE0: 41 20 23 B0 10 18 20 53 54 41 20 2A 24 42 37 20 |A #... STA *$B7 | 00000CF0: 3B 20 4C 41 45 4E 47 45 20 46 49 4C 45 4E 41 4D |; LAENGE FILENAM| 00000D00: C5 20 18 20 BB 30 18 20 4A 53 52 20 4F 50 45 CE |. . .0. JSR OPE.| 00000D10: 40 18 20 BB 50 18 20 20 20 20 20 20 20 20 20 20 |@. .P. | 00000D20: 20 42 43 53 20 44 52 4F 50 CE 70 18 20 BB 80 18 | BCS DROP.p. ...| 00000D30: 44 52 4F 4B 20 20 20 20 20 20 20 20 20 4C 44 58 |DROK LDX| 00000D40: 20 47 41 20 20 20 20 20 20 20 20 20 20 20 20 20 | GA | 00000D50: 20 20 3B 20 4C 4F 47 2E 20 46 49 4C 45 4E 55 4D | ; LOG. FILENUM| 00000D60: 4D 45 D2 90 18 20 4A 53 52 20 43 48 4B 4F 55 54 |ME... JSR CHKOUT| 00000D70: 20 3B 20 43 4D 44 20 47 41 20 2F 20 4C 49 53 54 | ; CMD GA / LIST| 00000D80: 45 CE 00 19 20 BB 10 19 20 4C 44 59 20 23 30 20 |E... ... LDY #0 | 00000D90: 3B 20 5A 45 49 4C 45 4E 41 42 53 54 41 4E 44 20 |; ZEILENABSTAND | 00000DA0: 41 55 53 47 AE 20 19 44 52 4F 4B 30 31 20 20 20 |AUSG. .DROK01 | 00000DB0: 20 20 20 20 43 50 59 20 5A 41 20 20 20 20 20 20 | CPY ZA | 00000DC0: 20 20 20 20 20 20 20 20 20 3B 20 41 4E 5A 41 48 | ; ANZAH| 00000DD0: 4C 20 5A 45 49 43 48 45 4E BF 30 19 20 20 20 20 |L ZEICHEN.0. | 00000DE0: 20 20 20 20 20 20 20 42 45 51 20 44 52 4F 4B 30 | BEQ DROK0| 00000DF0: B2 40 19 20 4C 44 41 20 5A 41 2B 31 2C D9 50 19 |.@. LDA ZA+1,.P.| 00000E00: 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 49 | JSR I| 00000E10: 45 43 4F 55 D4 60 19 20 49 4E D9 70 19 20 20 20 |ECOU.`. IN.p. | 00000E20: 20 20 20 20 20 20 20 20 42 4E 45 20 44 52 4F 4B | BNE DROK| 00000E30: 30 B1 80 19 20 BB 90 19 44 52 4F 4B 30 32 20 20 |0... ...DROK02 | 00000E40: 20 20 20 20 20 4C 44 59 20 23 30 20 20 20 20 20 | LDY #0 | 00000E50: 20 20 20 20 20 20 20 20 20 20 3B 20 4D 41 53 54 | ; MAST| 00000E60: 45 52 50 52 49 4E 54 2D 42 45 46 45 48 CC 00 20 |ERPRINT-BEFEH.. | 00000E70: 44 52 4F 4B 30 33 20 20 20 20 20 20 20 43 50 59 |DROK03 CPY| 00000E80: 20 4D D0 10 20 20 20 20 20 20 20 20 20 20 20 20 | M.. | 00000E90: 42 45 51 20 44 52 4F 4B 30 B4 20 20 20 4C 44 41 |BEQ DROK0. LDA| 00000EA0: 20 4D 50 2B 31 2C D9 30 20 20 4A 53 52 20 49 45 | MP+1,.0 JSR IE| 00000EB0: 43 4F 55 D4 40 20 20 49 4E D9 50 20 20 20 20 20 |COU.@ IN.P | 00000EC0: 20 20 20 20 20 20 20 42 4E 45 20 44 52 4F 4B 30 | BNE DROK0| 00000ED0: B3 60 20 20 BB 70 20 44 52 4F 4B 30 34 20 20 20 |.` .p DROK04 | 00000EE0: 20 20 52 54 D3 80 20 20 BB 90 20 20 BB 00 21 20 | RT.. .. ..! | 00000EF0: 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |; **************| 00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA |***************.| 00000F10: 10 21 20 20 20 20 20 20 20 20 20 20 20 3B 20 2A |.! ; *| 00000F20: 20 20 47 45 54 44 41 54 3A 20 44 41 54 45 49 20 | GETDAT: DATEI | 00000F30: 45 49 4E 4C 45 53 45 4E 20 20 20 20 AA 20 21 20 |EINLESEN . ! | 00000F40: 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |; **************| 00000F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA |***************.| 00000F60: 30 21 20 BB 40 21 47 45 54 44 41 54 20 20 4A 53 |0! .@!GETDAT JS| 00000F70: 52 20 43 4C 41 4C 4C 20 3B 20 46 49 4C 45 54 41 |R CLALL ; FILETA| 00000F80: 42 2E 20 4C 4F 45 53 43 48 45 CE 50 21 20 BB 60 |B. LOESCHE.P! .`| 00000F90: 21 20 20 20 20 4C 44 41 20 23 4C 2C 46 54 45 58 |! LDA #L,FTEX| 00000FA0: 54 20 20 20 20 20 20 20 20 20 3B 20 27 46 49 4C |T ; 'FIL| 00000FB0: 45 4E 41 4D 45 3A 20 A7 70 21 20 20 20 20 20 20 |ENAME: .p! | 00000FC0: 20 20 20 20 20 4C 44 59 20 23 48 2C 46 54 45 58 | LDY #H,FTEX| 00000FD0: 54 20 20 20 20 20 20 20 20 20 3B 20 41 55 53 47 |T ; AUSG| 00000FE0: 45 42 45 CE 80 21 20 20 20 20 20 20 20 20 20 20 |EBE..! | 00000FF0: 20 4A 53 52 20 53 54 52 4F 55 D4 90 21 20 20 20 | JSR STROU..! | 00001000: 20 20 4A 53 52 20 47 45 54 4E 41 4D 20 20 20 20 | JSR GETNAM | 00001010: 20 20 20 20 20 20 20 3B 20 46 49 4C 45 4E 41 4D | ; FILENAM| 00001020: 45 20 41 42 46 52 41 47 45 CE 00 22 20 BB 10 22 |E ABFRAGE.." .."| 00001030: 20 4C 44 59 20 2A 24 42 37 20 3B 20 4C 41 45 4E | LDY *$B7 ; LAEN| 00001040: 47 45 20 46 49 4C 45 4E 41 4D C5 20 22 20 4C 44 |GE FILENAM. " LD| 00001050: 41 20 23 27 2C 27 20 3B 20 46 49 4C 45 4E 41 4D |A #',' ; FILENAM| 00001060: 45 BA 30 22 20 53 54 41 20 46 4E 41 4D 2C 59 20 |E.0" STA FNAM,Y | 00001070: 3B 20 2C 53 20 41 4E 48 41 45 4E 47 45 CE 40 22 |; ,S ANHAENGE.@"| 00001080: 20 49 4E D9 50 22 20 4C 44 41 20 23 27 53 A7 60 | IN.P" LDA #'S.`| 00001090: 22 20 53 54 41 20 46 4E 41 4D 2C D9 70 22 20 49 |" STA FNAM,.p" I| 000010A0: 4E D9 80 22 20 20 20 20 20 20 20 20 20 20 20 53 |N.." S| 000010B0: 54 59 20 2A 24 42 B7 90 22 20 BB 00 23 20 4C 44 |TY *$B.." ..# LD| 000010C0: 41 20 23 B0 10 23 20 20 20 20 20 20 20 20 20 20 |A #..# | 000010D0: 20 53 54 41 20 2A 46 41 4E 5A 20 20 20 20 20 20 | STA *FANZ | 000010E0: 20 20 20 20 20 20 20 3B 20 5A 41 48 4C 20 44 45 | ; ZAHL DE| 000010F0: 52 20 45 49 4E 54 52 41 45 47 C5 20 23 20 20 20 |R EINTRAEG. # | 00001100: 20 20 20 20 20 20 20 20 53 54 41 20 2A 46 41 4E | STA *FAN| 00001110: 5A 2B 31 20 20 20 20 20 20 20 20 20 20 20 3B 20 |Z+1 ; | 00001120: 41 55 46 20 30 20 53 45 54 5A 54 45 CE 30 23 20 |AUF 0 SETZTE.0# | 00001130: 4C 44 41 20 23 35 20 3B 20 41 42 57 2E 5A 41 45 |LDA #5 ; ABW.ZAE| 00001140: 48 4C 45 D2 40 23 20 53 54 41 20 2A 4C 49 4E 43 |HLE.@# STA *LINC| 00001150: 4E D4 50 23 20 BB 60 23 20 20 20 20 20 20 20 20 |N.P# .`# | 00001160: 20 20 20 4C 44 58 20 23 4C 2C 46 54 41 42 20 20 | LDX #L,FTAB | 00001170: 20 20 20 20 20 20 20 20 3B 20 50 4F 49 4E 54 45 | ; POINTE| 00001180: 52 20 41 55 46 20 52 41 4D 41 4E 46 AE 70 23 20 |R AUF RAMANF.p# | 00001190: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 48 | LDY #H| 000011A0: 2C 46 54 41 C2 80 23 20 20 20 20 20 20 20 20 20 |,FTA..# | 000011B0: 20 20 53 54 58 20 2A 52 45 41 44 4C 49 4E 20 20 | STX *READLIN | 000011C0: 20 20 20 20 20 20 20 20 3B 20 53 43 48 52 45 49 | ; SCHREI| 000011D0: 42 5A 45 49 47 45 D2 90 23 20 20 20 20 20 20 20 |BZEIGE..# | 000011E0: 20 20 20 20 53 54 59 20 2A 52 45 41 44 4C 49 4E | STY *READLIN| 000011F0: 2B B1 00 24 20 BB 10 24 20 4C 44 41 20 23 31 20 |+..$ ..$ LDA #1 | 00001200: 3B 20 46 49 4C 45 50 41 52 41 4D 45 54 45 52 20 |; FILEPARAMETER | 00001210: 53 45 54 5A 45 CE 20 24 20 4C 44 58 20 23 B8 30 |SETZE. $ LDX #.0| 00001220: 24 20 4C 44 59 20 23 24 36 B0 40 24 20 4A 53 52 |$ LDY #$6.@$ JSR| 00001230: 20 46 49 4C 50 41 52 20 3B 20 31 2C 38 2C 30 20 | FILPAR ; 1,8,0 | 00001240: 28 3D 20 4C 4F 41 44 A9 50 24 20 BB 60 24 20 4A |(= LOAD.P$ .`$ J| 00001250: 53 52 20 4F 50 45 CE 70 24 20 20 20 20 20 20 20 |SR OPE.p$ | 00001260: 20 20 20 20 42 43 43 20 4F 4B 20 20 20 20 20 20 | BCC OK | 00001270: 20 20 20 20 20 20 20 20 20 3B 20 42 3A 20 44 52 | ; B: DR| 00001280: 49 56 45 20 52 45 41 47 49 45 52 54 C5 80 24 20 |IVE REAGIERT..$ | 00001290: 4A 4D 50 20 24 41 34 37 34 20 3B 20 5A 55 4D 20 |JMP $A474 ; ZUM | 000012A0: 52 45 41 44 D9 90 24 20 BB 00 25 4F 4B 20 4C 44 |READ..$ ..%OK LD| 000012B0: 41 20 2A 24 42 41 20 3B 20 47 45 52 41 45 54 45 |A *$BA ; GERAETE| 000012C0: 4E 52 AE 10 25 20 4A 53 52 20 54 41 4C CB 20 25 |NR..% JSR TAL. %| 000012D0: 20 4C 44 41 20 2A 24 42 39 20 3B 20 53 45 4B 55 | LDA *$B9 ; SEKU| 000012E0: 4E 44 41 45 52 41 44 52 AE 30 25 20 4A 53 52 20 |NDAERADR.0% JSR | 000012F0: 53 45 43 54 41 4C CB 40 25 20 BB 50 25 20 BB 60 |SECTAL.@% .P% .`| 00001300: 25 20 20 20 20 20 20 20 20 20 20 20 3B 20 44 49 |% ; DI| 00001310: 45 20 45 52 53 54 45 4E 20 35 2D 36 20 42 59 54 |E ERSTEN 5-6 BYT| 00001320: 45 53 20 45 4E 54 48 41 4C 54 45 CE 70 25 20 3B |ES ENTHALTE.p% ;| 00001330: 20 44 49 45 20 41 4E 5A 41 48 4C 20 44 45 52 20 | DIE ANZAHL DER | 00001340: 45 49 4E 54 52 41 45 47 C5 80 25 20 3B 20 44 41 |EINTRAEG..% ; DA| 00001350: 53 20 36 2E 20 42 59 54 45 20 49 53 54 20 52 45 |S 6. BYTE IST RE| 00001360: 54 55 52 4E AE 90 25 20 3B 20 36 20 42 59 54 45 |TURN..% ; 6 BYTE| 00001370: 53 20 57 45 52 44 45 4E 20 55 45 42 45 52 4C 45 |S WERDEN UEBERLE| 00001380: 53 45 CE 00 26 20 BB 10 26 20 4C 44 59 20 23 34 |SE..& ..& LDY #4| 00001390: 30 20 3B 20 4D 41 58 2E 20 34 30 20 42 59 54 45 |0 ; MAX. 40 BYTE| 000013A0: 53 20 54 45 53 54 45 CE 20 26 4F 4B 31 20 4A 53 |S TESTE. &OK1 JS| 000013B0: 52 20 49 45 43 49 CE 30 26 20 43 4D 50 20 23 31 |R IECI.0& CMP #1| 000013C0: 33 20 3B 20 52 45 54 55 52 4E BF 40 26 20 42 45 |3 ; RETURN.@& BE| 000013D0: 51 20 4F 4B B2 50 26 20 44 45 D9 60 26 20 42 50 |Q OK.P& DE.`& BP| 000013E0: 4C 20 4F 4B B1 70 26 20 BB 80 26 20 BB 90 26 4F |L OK.p& ..& ..&O| 000013F0: 4B 32 20 20 20 20 20 20 20 20 4C 44 41 20 2A 24 |K2 LDA *$| 00001400: 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |90 ;| 00001410: 20 53 54 41 54 55 D3 00 27 20 42 45 51 20 52 45 | STATU..' BEQ RE| 00001420: 41 C4 10 27 20 4C 44 41 20 23 4C 2C 45 4D 50 54 |A..' LDA #L,EMPT| 00001430: D9 20 27 20 4C 44 59 20 23 48 2C 45 4D 50 54 D9 |. ' LDY #H,EMPT.| 00001440: 30 27 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 |0' JSR| 00001450: 20 53 54 52 4F 55 54 20 20 20 20 20 20 20 20 20 | STROUT | 00001460: 20 20 3B 20 46 45 48 4C 45 52 4D 45 4C 44 47 2E | ; FEHLERMELDG.| 00001470: 20 41 55 53 47 AE 40 27 20 4A 4D 50 20 24 41 34 | AUSG.@' JMP $A4| 00001480: 37 34 20 3B 20 52 45 41 44 D9 50 27 20 BB 60 27 |74 ; READ.P' .`'| 00001490: 20 3B 20 46 49 4C 45 45 49 4E 54 52 41 45 47 45 | ; FILEEINTRAEGE| 000014A0: 20 45 49 4E 4C 45 53 45 4E BA 70 27 20 BB 80 27 | EINLESEN.p' ..'| 000014B0: 52 45 41 44 20 20 20 20 20 20 20 4C 44 59 20 23 |READ LDY #| 000014C0: B0 90 27 20 BB 00 28 52 45 41 44 31 20 4A 53 52 |..' ..(READ1 JSR| 000014D0: 20 49 45 43 49 4E 20 3B 20 45 49 4E 45 4E 20 45 | IECIN ; EINEN E| 000014E0: 49 4E 54 52 41 47 20 4C 45 53 45 CE 10 28 20 BB |INTRAG LESE..( .| 000014F0: 20 28 52 45 41 44 31 41 20 20 20 20 20 53 45 C9 | (READ1A SE.| 00001500: 30 28 20 4C 44 58 20 23 24 33 B0 40 28 20 53 54 |0( LDX #$3.@( ST| 00001510: 58 20 2A 24 30 B1 50 28 20 20 20 20 20 20 20 20 |X *$0.P( | 00001520: 20 20 20 53 54 41 20 28 52 45 41 44 4C 49 4E 29 | STA (READLIN)| 00001530: 2C D9 60 28 20 4C 44 58 20 23 24 33 B7 70 28 20 |,.`( LDX #$3.p( | 00001540: 53 54 58 20 2A 24 30 B1 80 28 20 43 4C C9 90 28 |STX *$0..( CL..(| 00001550: 20 BB 00 29 20 49 4E D9 10 29 20 20 20 20 20 20 | ..) IN..) | 00001560: 20 20 20 20 20 43 50 59 20 23 32 32 20 20 20 20 | CPY #22 | 00001570: 20 20 20 20 20 20 20 20 20 20 3B 20 32 32 20 42 | ; 22 B| 00001580: 59 54 45 53 20 47 45 4C 45 53 45 4E BF 20 29 20 |YTES GELESEN. ) | 00001590: 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 52 45 | BNE RE| 000015A0: 41 44 B1 30 29 20 BB 40 29 20 4A 53 52 20 49 45 |AD.0) .@) JSR IE| 000015B0: 43 49 4E 20 3B 20 52 45 54 55 52 4E 20 55 45 42 |CIN ; RETURN UEB| 000015C0: 45 52 4C 45 53 45 CE 50 29 20 BB 60 29 20 44 45 |ERLESE.P) .`) DE| 000015D0: 43 20 2A 4C 49 4E 43 4E D4 70 29 20 42 4E 45 20 |C *LINCN.p) BNE | 000015E0: 52 45 41 44 B2 80 29 20 BB 90 29 20 4C 44 41 20 |READ..) ..) LDA | 000015F0: 23 B5 00 30 20 53 54 41 20 2A 4C 49 4E 43 4E D4 |#..0 STA *LINCN.| 00001600: 10 30 20 20 20 20 20 20 20 20 20 20 20 49 4E 43 |.0 INC| 00001610: 20 2A 46 41 4E 5A 20 20 20 20 20 20 20 20 20 20 | *FANZ | 00001620: 20 20 20 3B 20 5A 41 45 48 4C 45 52 20 45 52 48 | ; ZAEHLER ERH| 00001630: 4F 45 48 45 CE 20 30 20 42 4E 45 20 52 45 41 44 |OEHE. 0 BNE READ| 00001640: B2 30 30 20 20 20 20 20 20 20 20 20 20 20 49 4E |.00 IN| 00001650: 43 20 2A 46 41 4E 5A 2B B1 40 30 20 BB 50 30 52 |C *FANZ+.@0 .P0R| 00001660: 45 41 44 32 20 20 20 20 20 20 4C 44 41 20 2A 52 |EAD2 LDA *R| 00001670: 45 41 44 4C 49 4E 20 20 20 20 20 20 20 20 20 20 |EADLIN | 00001680: 3B 20 5A 45 49 47 45 52 20 57 45 49 54 45 52 53 |; ZEIGER WEITERS| 00001690: 45 54 5A 45 CE 60 30 20 43 4C C3 70 30 20 20 20 |ETZE.`0 CL.p0 | 000016A0: 20 20 20 20 20 20 20 20 41 44 43 20 23 32 B2 80 | ADC #2..| 000016B0: 30 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |0 STA | 000016C0: 2A 52 45 41 44 4C 49 CE 90 30 20 20 20 20 20 20 |*READLI..0 | 000016D0: 20 20 20 20 20 4C 44 41 20 2A 52 45 41 44 4C 49 | LDA *READLI| 000016E0: 4E 2B B1 00 31 20 41 44 43 20 23 B0 10 31 20 20 |N+..1 ADC #..1 | 000016F0: 20 20 20 20 20 20 20 20 20 53 54 41 20 2A 52 45 | STA *RE| 00001700: 41 44 4C 49 4E 2B B1 20 31 20 BB 30 31 52 45 41 |ADLIN+. 1 .01REA| 00001710: 44 33 20 42 49 54 20 2A 24 39 30 20 3B 20 53 54 |D3 BIT *$90 ; ST| 00001720: 41 54 55 53 20 54 45 53 54 45 CE 40 31 20 42 56 |ATUS TESTE.@1 BV| 00001730: 43 20 52 45 41 44 20 3B 20 42 3A 20 57 45 49 54 |C READ ; B: WEIT| 00001740: 45 52 4C 45 53 45 CE 50 31 20 BB 60 31 20 4C 44 |ERLESE.P1 .`1 LD| 00001750: 41 20 23 31 20 3B 20 46 49 4C 45 20 53 43 48 4C |A #1 ; FILE SCHL| 00001760: 49 45 53 53 45 CE 70 31 20 20 20 20 20 20 20 20 |IESSE.p1 | 00001770: 20 20 20 4A 4D 50 20 43 4C 4F 53 C5 80 31 20 BB | JMP CLOS..1 .| 00001780: 90 31 20 BB 00 32 20 BB 10 32 20 3B 20 2A 2A 2A |.1 ..2 ..2 ; ***| 00001790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000017A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 20 32 20 3B |***********. 2 ;| 000017B0: 20 2A 20 20 47 45 54 4E 41 4D 3A 20 46 49 4C 45 | * GETNAM: FILE| 000017C0: 4E 41 4D 45 20 41 42 46 52 41 47 45 4E 20 20 AA |NAME ABFRAGEN .| 000017D0: 30 32 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |02 ; ***********| 000017E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000017F0: 2A 2A 2A AA 40 32 20 BB 50 32 20 BB 60 32 47 45 |***.@2 .P2 .`2GE| 00001800: 54 4E 41 4D 20 20 20 20 20 4C 44 41 20 23 30 20 |TNAM LDA #0 | 00001810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 | ; | 00001820: 4B 45 49 4E 20 5A 45 49 43 48 45 4E 20 49 4D 20 |KEIN ZEICHEN IM | 00001830: 50 55 46 46 45 D2 70 32 20 53 54 41 20 2A 24 43 |PUFFE.p2 STA *$C| 00001840: B6 80 32 20 4A 53 52 20 24 41 35 36 30 20 3B 20 |..2 JSR $A560 ; | 00001850: 45 49 4E 47 41 42 45 20 48 4F 4C 45 CE 90 32 20 |EINGABE HOLE..2 | 00001860: BB 00 33 20 4C 44 41 20 23 30 20 3B 20 45 49 4E |..3 LDA #0 ; EIN| 00001870: 47 41 42 45 50 55 46 46 45 52 20 4C 45 53 45 4E |GABEPUFFER LESEN| 00001880: BA 10 33 20 54 41 59 20 3B 20 4C 41 45 4E 47 45 |..3 TAY ; LAENGE| 00001890: 20 45 52 4D 49 54 54 45 4C CE 20 33 47 45 54 4E | ERMITTEL. 3GETN| 000018A0: 41 31 20 43 4D 50 20 24 30 32 30 30 2C 59 20 3B |A1 CMP $0200,Y ;| 000018B0: 20 30 20 41 4C 53 20 45 4E 44 45 20 53 55 43 48 | 0 ALS ENDE SUCH| 000018C0: 45 CE 30 33 20 42 45 51 20 47 45 54 4E 41 32 20 |E.03 BEQ GETNA2 | 000018D0: 3B 20 42 3A 20 30 20 47 45 46 55 4E 44 45 CE 40 |; B: 0 GEFUNDE.@| 000018E0: 33 20 49 4E D9 50 33 20 43 50 59 20 23 31 36 20 |3 IN.P3 CPY #16 | 000018F0: 3B 20 31 36 20 5A 45 49 43 48 45 4E 20 47 45 4C |; 16 ZEICHEN GEL| 00001900: 45 53 45 4E BF 60 33 20 42 43 43 20 47 45 54 4E |ESEN.`3 BCC GETN| 00001910: 41 31 20 3B 20 42 3A 20 4E 45 49 CE 70 33 20 BB |A1 ; B: NEI.p3 .| 00001920: 80 33 47 45 54 4E 41 32 20 54 59 41 20 3B 20 4C |.3GETNA2 TYA ; L| 00001930: 41 45 4E 47 45 20 44 45 53 20 4E 41 4D 45 4E D3 |AENGE DES NAMEN.| 00001940: 90 33 20 54 41 D8 00 34 47 45 54 4E 41 33 20 4C |.3 TA..4GETNA3 L| 00001950: 44 41 20 24 30 32 30 30 2C 58 20 3B 20 4E 41 4D |DA $0200,X ; NAM| 00001960: 45 20 49 4E 20 50 55 46 46 45 D2 10 34 20 53 54 |E IN PUFFE..4 ST| 00001970: 41 20 46 4E 41 4D 2C D8 20 34 20 44 45 D8 30 34 |A FNAM,. 4 DE.04| 00001980: 20 42 50 4C 20 47 45 54 4E 41 B3 40 34 20 BB 50 | BPL GETNA.@4 .P| 00001990: 34 20 54 59 41 20 3B 20 4E 41 4D 45 4E 50 41 52 |4 TYA ; NAMENPAR| 000019A0: 41 4D 45 54 45 52 20 53 45 54 5A 45 CE 60 34 20 |AMETER SETZE.`4 | 000019B0: 4C 44 58 20 23 4C 2C 46 4E 41 CD 70 34 20 4C 44 |LDX #L,FNA.p4 LD| 000019C0: 59 20 23 48 2C 46 4E 41 CD 80 34 20 20 20 20 20 |Y #H,FNA..4 | 000019D0: 20 20 20 20 20 20 4A 4D 50 20 46 49 4C 4E 41 4D | JMP FILNAM| 000019E0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 45 54 | ; SET| 000019F0: 5A 45 4E 20 2F 20 52 54 D3 90 34 20 BB 00 35 20 |ZEN / RT..4 ..5 | 00001A00: BB 00 |.. |
..0.I... .OS.. .RS . .0. .BA $
080.@. .P. ; LAST REV. 15.10.9
.`. .P. ... ; KERNAL SPRUNGTABELLE.. ; (
FLOPPYROUTINEN... ...CLALL .DE $FFE. .CL
RCHN .DE $FFCC0.FILPAR .DE $FFBA@.FILNAM
.DE $FFBDP.OPEN .DE $FFC.`.CLOSE .DE $F
FC.P.LISTEN .DE $FFB...UNLIST .DE $FFB..
.TALK .DE $FFB...UNTALK .DE $FFAB..SECTA
LK .DE $FF9. .SECLIST .DE $FF9.0.IEC
OUT .DE $EDDD@.IECIN .DE $EE1.P
.CHROUT .DE $FFD.`.CHKOUT .DE $FFC..
.STROUT .DE $AB1E.. ... . . .B
Y $16 $08 $C7 $07 $9E ; BASICSTART0. .BY
$28 $32 $30 $37 $32 $29 $2.@. .BY 'ODYS
SEUS' 0 0 .P. .`. .P. ; ZEROPAGEADRESSEN
... ...READLIN .DE $A8 ;
ZEIGER AUF EINTRAG..FANZ .DE $AC
; ANZAHL EINTRAEGE..OFFSET
.DE $AE ; ABST. SPALTE/SPALTE .FSTART
.DE $FB ; LESEZEIGER0.NRPAG .DE $FD ; Z
U DRUCKENDE SEITEN@.LINCNT .DE $FE ; ZEI
LENZAEHLERP. .`. ... ; *****************
*************... ; * HAUPTPROGRAMM
... ; *************************
*****... . . ; (SYS 2072.0. .@. JMP STAR
T ; TABELLE UEBERSPRINGENP. .`. .P. ; **
*****************************... ; * DR
UCKERINSTALLATION: ... ; ********
***********************... . .GA .BY 4 ;
DRUCKERADRESSE0.SA .BY 7 ; SEKUNDAERADR
ESSE@. .P.LF .BY 0 ; 0: KEIN LINE-FEED`.
FF .BY 12 ; FORM FEEDP.LL .BY 88 ; PAPIE
RLAENGE.. ...ZA .BY 6
; ZEILENABSTAND LAENGE..
.BY 27 51 23 27 82 0 0 0 0 ...MP .BY 3 ;
MASTER-PRINT LAENGE . .BY 27 33 04 0 0
0 0 0 0 .0. .@. .P. ; ******************
*************.`. .P.START LDA #L,TO
PTXT.. LDY #H,TOPTXT.. JSR STROUT.. .0.
JSR GETDAT ; DATEI EINLESEN@.
.P. JSR PRINIT ; DRUCKERKANAL`
. .P. JSR PRINT ; DRUCKEN.. ..
. JMP $A474 ; READY.. . . .0. ; ********
**********************.@. ; * PRINIT:
INITIALISIERUNG .P. ; * UND DRUCKERKA
NAL OEFFNEN .`. ; ********************
**********.P. ...PRINIT SEI ; 4 LEER
ZEILEN DAZU.. LDX #$3... STX *
$0... . . LDA #32 ; SPACE0. .@
. LDY #87 ; 4 * 22 BYTESP.INIT
1 STA (READLIN),Y`. DEYP. BPL INIT... ..
. LDX #$3... STX *... CLI . .0. LDA *LIN
CNT ; ZAEHLER@. CMP #5 ; 5 D.H. NEU GESE
TZT.P. BEQ INIT2 ;
B: JA`. INC *FANZ ; ANGEFANGENE 5-ER ZEI
LEP. BNE INIT... INC *FANZ+...
...INIT2 LDX *FANZ.. LDY *FANZ+...
STX *OFFSET ; (HILFSVAR....
STY *OFFSET+... ...INIT3 LDA #0
; NUMBER OF PAGES.. STA *
NRPAG . .0.INIT4 INC *NRPAG@.
LDA *OFFSETP. STA *FANZ`. LDA
*OFFSET+.P. STA *FANZ+... ... SEC ; LL A
BZIEHEN.. LDA *FANZ.. SBC LL .
STA *OFFSET0. LDA *FANZ+.@. SBC #.P.
STA *OFFSET+.`. .P. BCS INIT4 ;
B: NOCHMAL LL ABZ... ... DEC *NRPAG.. ..
. . . ; JETZT ENTHAELT NRPAG DIE ANZAHL0
. ; DER SEITEN ZU JE LL DOPPELZEILEN@. ;
UND FANZ ENTHAELT DIE ANZAHL DERP. ; UE
BRIGEN DOPPELZEILEN`. .P. LDX #L,FTAB ;
RAMANFANG.. LDY #H,FTAB.. STX *FSTART..
STX *READLIN.. STY *FSTART+. . STY *READ
LIN+.0. .@. ; FSTART: ZEIGER AUF LINKE
ZEILEP. ; READLIN: ZEIGER AUF
AKTUELLE ZEILEU. ; READLIN = FSTART + 0.
.4 * OFFSET`. .P. ... ; DRUCKERKANAL OEF
FNEN... ...DROPN LDA #L,PTEXT
; MELDUNG AUSGEBEN.. LDY #H,PTEXT . JS
R STROUT0. JSR GETNAM ; EINGABE ERWARTEN
@. .P. LDA GA ; GERAETADRESSE`. TAXP. LD
Y SA ; SEKUNDAERADRESSE.. JSR FILPAR ; G
A,GA,SA.. ... LDA #... STA *$B7 ; LAENGE
FILENAME . .0. JSR OPEN@. .P.
BCS DROPNP. ...DROK LDX GA
; LOG. FILENUMMER.. JSR CHKOUT
; CMD GA / LISTEN.. ... LDY #0 ; ZEILEN
ABSTAND AUSG. .DROK01 CPY ZA
; ANZAHL ZEICHEN.0. B
EQ DROK0.@. LDA ZA+1,YP. JSR I
ECOUT`. INYP. BNE DROK0... ...
DROK02 LDY #0 ; MAST
ERPRINT-BEFEHL. DROK03 CPY MP.
BEQ DROK0. LDA MP+1,Y0 JSR IE
COUT@ INYP BNE DROK0.` .P D
ROK04 RTS. .. ..! ; **************
***************..! ; * GETDAT
: DATEI EINLESEN . ! ; **************
***************.0! .@!GETDAT JSR CLALL
; FILETAB. LOESCHENP! .`! LDA #L,FTEX
T ; 'FILENAME: .P! LDY
#H,FTEXT ; AUSGEBEN.!
JSR STROUT.! JSR GETNAM ;
FILENAME ABFRAGEN." .." LDY *$B7 ; LAEN
GE FILENAME " LDA #',' ; FILENAME.0" STA
FNAM,Y ; ,S ANHAENGEN@" INYP" LDA #'S.`
" STA FNAM,YP" INY." STY *$B..
" ..# LDA #..# STA *FANZ
; ZAHL DER EINTRAEGE #
STA *FANZ+1 ; AUF 0 SETZTEN0#
LDA #5 ; ABW.ZAEHLER@# STA *LINCNTP# .`#
LDX #L,FTAB ; POINTE
R AUF RAMANF.P# LDY #H,FTAB.#
STX *READLIN ; SCHREI
BZEIGER.# STY *READLIN+..$ ..$
LDA #1 ; FILEPARAMETER SETZEN $ LDX #.0
$ LDY #$6.@$ JSR FILPAR ; 1,8,0 (= LOAD.
P$ .`$ JSR OPENP$ BCC OK
; B: DRIVE REAGIERTE.$ JMP $A47
4 ; ZUM READY.$ ..%OK LDA *$BA ; GERAETE
NR..% JSR TALK % LDA *$B9 ; SEKUNDAERADR
.0% JSR SECTALK@% .P% .`% ; DI
E ERSTEN 5-6 BYTES ENTHALTENP% ; DIE ANZ
AHL DER EINTRAEGE.% ; DAS 6. BYTE IST RE
TURN..% ; 6 BYTES WERDEN UEBERLESEN.& ..
& LDY #40 ; MAX. 40 BYTES TESTEN &OK1 JS
R IECIN0& CMP #13 ; RETURN.@& BEQ OK.P&
DEY`& BPL OK.P& ..& ..&OK2 LDA *$
90 ; STATUS.' BEQ READ.' LDA
#L,EMPTY ' LDY #H,EMPTY0' JSR
STROUT ; FEHLERMELDG. AUSG.@'
JMP $A474 ; READYP' .`' ; FILEEINTRAEGE
EINLESEN.P' ..'READ LDY #..' ..(R
EAD1 JSR IECIN ; EINEN EINTRAG LESEN.( .
(READ1A SEI0( LDX #$3.@( STX *$0.P(
STA (READLIN),Y`( LDX #$3.P(
STX *$0..( CLI.( ..) INY.) CPY
#22 ; 22 BYTES GELESEN. )
BNE READ.0) .@) JSR IECIN ; RE
TURN UEBERLESENP) .`) DEC *LINCNTP) BNE
READ..) ..) LDA #..0 STA *LINCNT.0
INC *FANZ ; ZAEHLER ERH
OEHEN 0 BNE READ.00 INC *FANZ+
.@0 .P0READ2 LDA *READLIN
; ZEIGER WEITERSETZEN`0 CLCP0
ADC #2..0 STA *READLIN.0
LDA *READLIN+..1 ADC #..1
STA *READLIN+. 1 .01READ3 BIT *$90 ; ST
ATUS TESTEN@1 BVC READ ; B: WEITERLESENP
1 .`1 LDA #1 ; FILE SCHLIESSENP1
JMP CLOSE.1 ..1 ..2 ..2 ; ***********
*******************. 2 ; * GETNAM: FILE
NAME ABFRAGEN .02 ; *******************
***********.@2 .P2 .`2GETNAM LDA #0
; KEIN ZEICHEN IM PUFFERP2
STA *$C..2 JSR $A560 ; EINGABE HOLEN.2
..3 LDA #0 ; EINGABEPUFFER LESEN..3 TAY
; LAENGE ERMITTELN 3GETNA1 CMP $0200,Y ;
0 ALS ENDE SUCHEN03 BEQ GETNA2 ; B: 0 G
EFUNDEN@3 INYP3 CPY #16 ; 16 ZEICHEN GEL
ESEN.`3 BCC GETNA1 ; B: NEINP3 ..3GETNA2
TYA ; LAENGE DES NAMENS.3 TAX.4GETNA3 L
DA $0200,X ; NAME IN PUFFER.4 STA FNAM,X
4 DEX04 BPL GETNA.@4 .P4 TYA ; NAMENPAR
AMETER SETZEN`4 LDX #L,FNAMP4 LDY #H,FNA
M.4 JMP FILNAM ; SET
ZEN / RTS.4 ..5 ..
> CLICK IMAGE PREVIEW FOR FULL MODAL