PRINTSORT2.ASM
FILE INFORMATION
FILENAME(S): PRINTSORT2.ASM
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:27:21
APPEARS ON: 1 disk(s)
FILE HASH
f9385ed1aef513a74c5e515da2bc599799ca602c43acc8a0af1827d075abaeaa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | PRINTSORT2.ASM | PRG | DuncanTwain | 29 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: FF 00 30 C9 3E 2E 00 01 20 BB 10 01 20 3B 20 2A |..0.>... ... ; *| 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 50 52 49 4E 54 3A 20 20 44 52 | ; * PRINT: DR| 00000040: 55 43 4B 52 4F 55 54 49 4E 45 20 20 20 20 20 20 |UCKROUTINE | 00000050: 20 AA 30 01 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | .0. ; *********| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 2A 2A 2A 2A 2A AA 40 01 20 BB 47 01 20 BB 50 01 |*****.@. .G. .P.| 00000080: 50 52 49 4E 54 20 20 20 20 20 20 4C 44 58 20 2A |PRINT LDX *| 00000090: 4E 52 50 41 47 20 20 20 20 20 20 20 20 20 20 20 |NRPAG | 000000A0: 3B 20 57 49 45 56 49 45 4C 45 20 53 45 49 54 45 |; WIEVIELE SEITE| 000000B0: 4E BF 60 01 20 42 4E 45 20 50 52 49 4E 54 31 20 |N.`. BNE PRINT1 | 000000C0: 3B 20 42 3A 20 4D 45 48 52 20 41 4C 53 20 B0 70 |; B: MEHR ALS .p| 000000D0: 01 20 BB 80 01 20 20 20 20 20 20 20 20 20 20 20 |. ... | 000000E0: 4C 44 58 20 2A 46 41 4E 5A 20 20 20 20 20 20 20 |LDX *FANZ | 000000F0: 20 20 20 20 20 3B 20 4C 45 54 5A 54 45 20 53 45 | ; LETZTE SE| 00000100: 49 54 45 20 2F 20 5A 45 49 4C 45 CE 90 01 20 42 |ITE / ZEILE... B| 00000110: 45 51 20 50 52 45 4E 44 20 3B 20 42 3A 20 4E 55 |EQ PREND ; B: NU| 00000120: 4C 4C 20 5A 45 49 4C 45 CE 00 02 20 42 4E 45 20 |LL ZEILE... BNE | 00000130: 50 52 49 4E 54 32 20 3B 20 4D 41 58 49 4D 41 4C |PRINT2 ; MAXIMAL| 00000140: 5A 41 48 4C 20 55 45 42 45 52 47 45 48 45 CE 10 |ZAHL UEBERGEHE..| 00000150: 02 20 BB 20 02 50 52 49 4E 54 31 20 20 20 20 20 |. . .PRINT1 | 00000160: 4C 44 58 20 4C 4C 20 3B 20 56 4F 4C 4C 45 20 5A |LDX LL ; VOLLE Z| 00000170: 45 49 4C 45 4E 5A 41 48 CC 30 02 20 BB 40 02 50 |EILENZAH.0. .@.P| 00000180: 52 49 4E 54 32 20 53 54 58 20 2A 4C 49 4E 43 4E |RINT2 STX *LINCN| 00000190: 54 20 3B 20 41 42 57 41 45 52 54 53 5A 41 45 48 |T ; ABWAERTSZAEH| 000001A0: 4C 45 D2 50 02 20 BB 60 02 20 BB 70 02 20 20 20 |LE.P. .`. .p. | 000001B0: 20 20 20 20 20 20 20 20 3B 20 5A 45 49 4C 45 4E | ; ZEILEN| 000001C0: 5A 41 48 4C 20 4D 41 4C 20 32 32 20 3D 20 4F 46 |ZAHL MAL 22 = OF| 000001D0: 46 53 45 54 BA 80 02 20 BB 90 02 20 53 54 58 20 |FSET... ... STX | 000001E0: 2A 24 37 31 20 3B 20 4D 55 4C 54 49 50 4C 49 4B |*$71 ; MULTIPLIK| 000001F0: 41 54 4F 52 20 4C CF 00 03 20 4C 44 41 20 23 B0 |ATOR L... LDA #.| 00000200: 10 03 20 53 54 41 20 2A 24 37 32 20 3B 20 4D 55 |.. STA *$72 ; MU| 00000210: 4C 54 49 50 4C 49 4B 41 54 4F 52 20 48 C9 20 03 |LTIPLIKATOR H. .| 00000220: 20 4C 44 58 20 23 32 32 20 3B 20 4D 55 4C 54 49 | LDX #22 ; MULTI| 00000230: 50 4C 49 4B 41 4E 44 20 4C CF 30 03 20 53 54 58 |PLIKAND L.0. STX| 00000240: 20 2A 24 32 B8 40 03 20 4A 53 52 20 24 42 33 35 | *$2.@. JSR $B35| 00000250: 35 20 3B 20 53 54 41 20 2A 24 32 39 20 2F 20 55 |5 ; STA *$29 / U| 00000260: 4D 55 4C D4 50 03 20 BB 60 03 20 20 20 20 20 20 |MUL.P. .`. | 00000270: 20 20 20 20 20 53 54 58 20 2A 4F 46 46 53 45 D4 | STX *OFFSE.| 00000280: 70 03 20 20 20 20 20 20 20 20 20 20 20 53 54 59 |p. STY| 00000290: 20 2A 4F 46 46 53 45 54 2B B1 80 03 20 BB 90 03 | *OFFSET+... ...| 000002A0: 20 BB 00 04 50 52 49 4E 54 33 20 20 20 20 20 4A | ...PRINT3 J| 000002B0: 53 52 20 50 52 41 44 44 20 3B 20 50 52 49 4E 54 |SR PRADD ; PRINT| 000002C0: 20 2F 20 41 44 44 20 4F 46 46 53 45 D4 10 04 20 | / ADD OFFSE... | 000002D0: 4A 53 52 20 50 52 41 44 C4 20 04 20 4A 53 52 20 |JSR PRAD. . JSR | 000002E0: 50 52 41 44 C4 30 04 20 4A 53 52 20 50 52 41 44 |PRAD.0. JSR PRAD| 000002F0: C4 40 04 20 20 20 20 20 20 20 20 20 20 20 4A 53 |.@. JS| 00000300: 52 20 50 52 4F 55 54 20 3B 20 35 2E 20 45 49 4E |R PROUT ; 5. EIN| 00000310: 54 52 41 47 20 44 52 55 43 4B 45 CE 50 04 20 BB |TRAG DRUCKE.P. .| 00000320: 60 04 20 BB 70 04 20 4C 44 41 20 23 31 33 20 3B |`. .p. LDA #13 ;| 00000330: 20 52 45 54 55 52 4E 20 41 55 53 47 45 42 45 CE | RETURN AUSGEBE.| 00000340: 80 04 20 4A 53 52 20 49 45 43 4F 55 D4 90 04 20 |.. JSR IECOU... | 00000350: 4C 44 41 20 4C 46 20 3B 20 4C 49 4E 45 20 46 45 |LDA LF ; LINE FE| 00000360: 45 44 20 43 48 41 52 AE 00 05 20 42 45 51 20 50 |ED CHAR... BEQ P| 00000370: 52 4E 4F 4C 46 20 3B 20 42 3A 20 30 2C 20 44 2E |RNOLF ; B: 0, D.| 00000380: 48 2E 20 4B 45 49 4E 45 D3 10 05 20 4A 53 52 20 |H. KEINE... JSR | 00000390: 49 45 43 4F 55 54 20 3B 20 4C 46 20 41 55 53 47 |IECOUT ; LF AUSG| 000003A0: 45 42 45 CE 20 05 20 BB 25 05 50 52 4E 4F 4C 46 |EBE. . .%.PRNOLF| 000003B0: 20 20 20 20 20 44 45 43 20 2A 4C 49 4E 43 4E 54 | DEC *LINCNT| 000003C0: 20 20 20 20 20 20 20 20 20 20 3B 20 5A 45 49 4C | ; ZEIL| 000003D0: 45 4E 5A 41 45 48 4C 45 D2 26 05 20 20 20 20 20 |ENZAEHLE.&. | 000003E0: 20 20 20 20 20 20 42 45 51 20 50 52 49 4E 54 34 | BEQ PRINT4| 000003F0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 42 3A 20 | ; B: | 00000400: 4E 45 55 45 20 5A 45 49 4C C5 30 05 20 BB 40 05 |NEUE ZEIL.0. .@.| 00000410: 20 20 20 20 20 20 20 20 20 20 20 43 4C 43 20 20 | CLC | 00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000430: 3B 20 5A 45 49 47 45 52 20 57 45 49 54 45 52 53 |; ZEIGER WEITERS| 00000440: 45 54 5A 45 CE 50 05 20 4C 44 41 20 23 32 B2 60 |ETZE.P. LDA #2.`| 00000450: 05 20 41 44 43 20 2A 46 53 54 41 52 D4 70 05 20 |. ADC *FSTAR.p. | 00000460: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 2A 52 | STA *R| 00000470: 45 41 44 4C 49 CE 80 05 20 53 54 41 20 2A 46 53 |EADLI... STA *FS| 00000480: 54 41 52 D4 90 05 20 20 20 20 20 20 20 20 20 20 |TAR... | 00000490: 20 4C 44 41 20 23 B0 00 06 20 41 44 43 20 2A 46 | LDA #... ADC *F| 000004A0: 53 54 41 52 54 2B B1 10 06 20 20 20 20 20 20 20 |START+... | 000004B0: 20 20 20 20 53 54 41 20 2A 52 45 41 44 4C 49 4E | STA *READLIN| 000004C0: 2B B1 20 06 20 53 54 41 20 2A 46 53 54 41 52 54 |+. . STA *FSTART| 000004D0: 2B B1 25 06 20 42 4E 45 20 50 52 49 4E 54 33 20 |+.%. BNE PRINT3 | 000004E0: 3B 20 42 52 41 4E 43 48 20 41 4C 57 41 59 D3 30 |; BRANCH ALWAY.0| 000004F0: 06 20 BB 70 06 20 BB 80 06 50 52 49 4E 54 34 20 |. .p. ...PRINT4 | 00000500: 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 | CLC | 00000510: 20 20 20 20 20 20 20 20 20 3B 20 5A 45 49 47 45 | ; ZEIGE| 00000520: 52 20 41 55 46 20 4E 45 55 45 20 53 45 49 54 C5 |R AUF NEUE SEIT.| 00000530: 90 06 20 4C 44 41 20 23 32 B2 00 07 20 41 44 43 |.. LDA #2... ADC| 00000540: 20 2A 52 45 41 44 4C 49 CE 10 07 20 53 54 41 20 | *READLI... STA | 00000550: 2A 46 53 54 41 52 D4 20 07 20 53 54 41 20 2A 52 |*FSTAR. . STA *R| 00000560: 45 41 44 4C 49 CE 30 07 20 4C 44 41 20 2A 52 45 |EADLI.0. LDA *RE| 00000570: 41 44 4C 49 4E 2B B1 40 07 20 41 44 43 20 23 B0 |ADLIN+.@. ADC #.| 00000580: 50 07 20 53 54 41 20 2A 46 53 54 41 52 54 2B B1 |P. STA *FSTART+.| 00000590: 60 07 20 53 54 41 20 2A 52 45 41 44 4C 49 4E 2B |`. STA *READLIN+| 000005A0: B1 70 07 20 BB 80 07 20 BB 90 07 20 4C 44 41 20 |.p. ... ... LDA | 000005B0: 46 46 20 3B 20 46 4F 52 4D 20 46 45 45 44 20 43 |FF ; FORM FEED C| 000005C0: 48 41 52 AE 00 08 20 42 4E 45 20 46 46 4F 55 54 |HAR... BNE FFOUT| 000005D0: 20 3B 20 42 3A 20 46 4F 52 4D 20 46 45 45 44 20 | ; B: FORM FEED | 000005E0: 4E 49 43 48 54 20 B0 10 08 20 4C 44 41 20 23 31 |NICHT ... LDA #1| 000005F0: 33 20 3B 20 44 55 52 43 48 20 52 45 54 55 52 4E |3 ; DURCH RETURN| 00000600: 20 45 52 53 45 54 5A 45 CE 20 08 46 46 4F 55 54 | ERSETZE. .FFOUT| 00000610: 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 D4 | JSR IECOU.| 00000620: 30 08 20 20 20 20 20 20 20 20 20 20 20 BB 40 08 |0. .@.| 00000630: 20 BB 50 08 20 20 20 20 20 20 20 20 20 20 20 4C | .P. L| 00000640: 44 41 20 2A 4E 52 50 41 47 20 3B 20 53 45 49 54 |DA *NRPAG ; SEIT| 00000650: 45 4E 5A 41 45 48 4C 45 D2 60 08 20 42 45 51 20 |ENZAEHLE.`. BEQ | 00000660: 50 52 45 4E C4 70 08 20 44 45 43 20 2A 4E 52 50 |PREN.p. DEC *NRP| 00000670: 41 C7 80 08 20 42 50 4C 20 50 52 49 4E 54 20 3B |A... BPL PRINT ;| 00000680: 20 42 52 41 4E 43 48 20 41 4C 57 41 59 D3 90 08 | BRANCH ALWAY...| 00000690: 20 BB 00 09 20 BB 10 09 50 52 45 4E 44 20 20 20 | ... ...PREND | 000006A0: 20 20 20 4C 44 41 20 23 31 33 20 20 20 20 20 20 | LDA #13 | 000006B0: 20 20 20 20 20 20 20 20 3B 20 52 45 54 55 52 CE | ; RETUR.| 000006C0: 20 09 20 4A 53 52 20 49 45 43 4F 55 D4 30 09 20 | . JSR IECOU.0. | 000006D0: BB 40 09 20 4A 53 52 20 43 4C 52 43 48 4E 20 3B |.@. JSR CLRCHN ;| 000006E0: 20 43 4D 44 20 45 4E 44 C5 50 09 20 4C 44 41 20 | CMD END.P. LDA | 000006F0: 47 41 20 3B 20 4C 4F 47 2E 20 46 49 4C 45 4E 52 |GA ; LOG. FILENR| 00000700: AE 60 09 20 4A 4D 50 20 43 4C 4F 53 45 20 3B 20 |.`. JMP CLOSE ; | 00000710: 43 4C 4F 53 45 20 2F 20 52 54 D3 70 09 20 BB 80 |CLOSE / RT.p. ..| 00000720: 09 20 BB 90 09 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |. ... ; ********| 00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000740: 2A 2A 2A 2A 2A 2A AA 00 10 20 3B 20 2A 20 20 50 |******... ; * P| 00000750: 52 4F 55 54 3A 20 20 45 49 4E 54 52 41 47 20 41 |ROUT: EINTRAG A| 00000760: 55 53 44 52 55 43 4B 45 4E 20 AA 10 10 20 3B 20 |USDRUCKEN ... ; | 00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 20 |**************. | 00000790: 10 20 BB 30 10 50 52 4F 55 54 20 20 20 20 20 20 |. .0.PROUT | 000007A0: 4C 44 59 20 23 32 20 20 20 20 20 20 20 20 20 20 |LDY #2 | 000007B0: 20 20 20 20 20 3B 20 33 20 4C 45 45 52 5A 45 49 | ; 3 LEERZEI| 000007C0: 43 48 45 CE 40 10 50 52 4F 55 54 31 20 4C 44 41 |CHE.@.PROUT1 LDA| 000007D0: 20 23 33 32 20 3B 20 53 50 41 43 C5 50 10 20 4A | #32 ; SPAC.P. J| 000007E0: 53 52 20 49 45 43 4F 55 D4 60 10 20 44 45 D9 70 |SR IECOU.`. DE.p| 000007F0: 10 20 42 50 4C 20 50 52 4F 55 54 B1 80 10 20 BB |. BPL PROUT... .| 00000800: 90 10 20 4C 44 59 20 23 30 20 3B 20 46 49 4C 45 |.. LDY #0 ; FILE| 00000810: 4E 41 4D 45 20 41 55 53 47 45 42 45 CE 00 11 50 |NAME AUSGEBE...P| 00000820: 52 4F 55 54 32 20 20 20 20 20 4A 53 52 20 49 4E |ROUT2 JSR IN| 00000830: 4F 55 D4 10 11 20 49 4E D9 20 11 20 43 50 59 20 |OU... IN. . CPY | 00000840: 23 31 36 20 3B 20 31 36 20 5A 45 49 43 48 45 CE |#16 ; 16 ZEICHE.| 00000850: 30 11 20 42 4E 45 20 50 52 4F 55 54 B2 40 11 20 |0. BNE PROUT.@. | 00000860: BB 50 11 20 20 20 20 20 20 20 20 20 20 20 4C 44 |.P. LD| 00000870: 41 20 23 33 32 20 3B 20 53 50 41 43 C5 60 11 20 |A #32 ; SPAC.`. | 00000880: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 49 45 | JSR IE| 00000890: 43 4F 55 D4 70 11 20 BB 80 11 20 4C 44 59 20 23 |COU.p. ... LDY #| 000008A0: 31 B6 90 11 50 52 4F 55 54 33 20 20 20 20 20 4A |1...PROUT3 J| 000008B0: 53 52 20 49 4E 4F 55 D4 00 12 20 49 4E D9 10 12 |SR INOU... IN...| 000008C0: 20 43 50 59 20 23 31 B9 20 12 20 42 4E 45 20 50 | CPY #1. . BNE P| 000008D0: 52 4F 55 54 B3 30 12 20 BB 40 12 20 20 20 20 20 |ROUT.0. .@. | 000008E0: 20 20 20 20 20 20 4C 44 41 20 23 33 32 20 3B 20 | LDA #32 ; | 000008F0: 53 50 41 43 C5 50 12 20 20 20 20 20 20 20 20 20 |SPAC.P. | 00000900: 20 20 4A 53 52 20 49 45 43 4F 55 D4 60 12 20 BB | JSR IECOU.`. .| 00000910: 70 12 20 4C 44 59 20 23 31 B9 80 12 50 52 4F 55 |p. LDY #1...PROU| 00000920: 54 34 20 20 20 20 20 4A 53 52 20 49 4E 4F 55 D4 |T4 JSR INOU.| 00000930: 90 12 20 49 4E D9 00 13 20 43 50 59 20 23 32 B2 |.. IN... CPY #2.| 00000940: 10 13 20 42 4E 45 20 50 52 4F 55 54 B4 20 13 20 |.. BNE PROUT. . | 00000950: BB 30 13 20 52 54 D3 40 13 20 BB 50 13 20 BB 60 |.0. RT.@. .P. .`| 00000960: 13 20 3B 20 45 49 4E 54 52 41 47 20 41 55 53 47 |. ; EINTRAG AUSG| 00000970: 45 42 45 4E 20 55 4E C4 70 13 20 3B 20 5A 45 49 |EBEN UN.p. ; ZEI| 00000980: 47 45 52 20 57 45 49 54 45 52 53 45 54 5A 45 4E |GER WEITERSETZEN| 00000990: BA 80 13 20 BB 90 13 50 52 41 44 44 20 20 20 20 |... ...PRADD | 000009A0: 20 20 4A 53 52 20 50 52 4F 55 54 20 20 20 20 20 | JSR PROUT | 000009B0: 20 20 20 20 20 20 20 3B 20 45 49 4E 54 52 41 47 | ; EINTRAG| 000009C0: 20 44 52 55 43 4B 45 CE 00 14 20 20 20 20 20 20 | DRUCKE... | 000009D0: 20 20 20 20 20 BB 10 14 20 20 20 20 20 20 20 20 | ... | 000009E0: 20 20 20 43 4C C3 20 14 20 20 20 20 20 20 20 20 | CL. . | 000009F0: 20 20 20 4C 44 41 20 2A 4F 46 46 53 45 D4 30 14 | LDA *OFFSE.0.| 00000A00: 20 20 20 20 20 20 20 20 20 20 20 41 44 43 20 2A | ADC *| 00000A10: 52 45 41 44 4C 49 CE 40 14 20 20 20 20 20 20 20 |READLI.@. | 00000A20: 20 20 20 20 53 54 41 20 2A 52 45 41 44 4C 49 CE | STA *READLI.| 00000A30: 50 14 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |P. LDA| 00000A40: 20 2A 4F 46 46 53 45 54 2B B1 60 14 20 20 20 20 | *OFFSET+.`. | 00000A50: 20 20 20 20 20 20 20 41 44 43 20 2A 52 45 41 44 | ADC *READ| 00000A60: 4C 49 4E 2B B1 70 14 20 53 54 41 20 2A 52 45 41 |LIN+.p. STA *REA| 00000A70: 44 4C 49 4E 2B B1 80 14 20 20 20 20 20 20 20 20 |DLIN+... | 00000A80: 20 20 20 52 54 D3 90 14 20 BB 00 15 20 BB 10 15 | RT... ... ...| 00000A90: 20 3B 20 5A 45 49 43 48 45 4E 20 4C 45 53 45 4E | ; ZEICHEN LESEN| 00000AA0: 20 2F 20 41 55 53 47 45 42 45 CE 20 15 20 BB 30 | / AUSGEBE. . .0| 00000AB0: 15 49 4E 4F 55 54 20 53 45 C9 40 15 20 4C 44 58 |.INOUT SE.@. LDX| 00000AC0: 20 23 24 33 B0 50 15 20 53 54 58 20 2A B1 60 15 | #$3.P. STX *.`.| 00000AD0: 20 4C 44 41 20 28 52 45 41 44 4C 49 4E 29 2C D9 | LDA (READLIN),.| 00000AE0: 70 15 20 4C 44 58 20 23 24 33 B7 80 15 20 53 54 |p. LDX #$3... ST| 00000AF0: 58 20 2A B1 90 15 20 43 4C C9 00 16 20 4A 4D 50 |X *... CL... JMP| 00000B00: 20 49 45 43 4F 55 D4 10 16 20 BB 20 16 20 BB 30 | IECOU... . . .0| 00000B10: 16 20 20 20 20 20 20 20 20 20 20 20 3B 20 2A 2A |. ; **| 00000B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 40 16 20 |************.@. | 00000B40: 3B 20 2A 20 20 45 49 4E 2D 20 2F 20 41 55 53 47 |; * EIN- / AUSG| 00000B50: 41 42 45 50 55 46 46 45 52 20 20 20 20 20 20 20 |ABEPUFFER | 00000B60: AA 50 16 20 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.P. ; **********| 00000B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B80: 2A 2A 2A 2A AA 60 16 20 BB 70 16 54 4F 50 54 58 |****.`. .p.TOPTX| 00000B90: 54 20 20 20 20 20 2E 42 59 20 31 34 37 20 27 50 |T .BY 147 'P| 00000BA0: 52 49 4E 54 53 4F 52 54 20 56 31 2E 30 42 20 28 |RINTSORT V1.0B (| 00000BB0: 53 55 50 45 52 53 4F 52 54 20 36 34 29 27 20 31 |SUPERSORT 64)' 1| 00000BC0: B3 80 16 20 2E 42 59 20 27 57 52 49 54 54 45 4E |... .BY 'WRITTEN| 00000BD0: 20 42 59 20 4F 44 59 53 53 45 55 53 27 20 31 33 | BY ODYSSEUS' 13| 00000BE0: 20 31 B3 90 16 20 20 20 20 20 20 20 20 20 20 20 | 1... | 00000BF0: 2E 42 59 20 27 50 52 49 4E 54 45 52 20 49 4E 53 |.BY 'PRINTER INS| 00000C00: 54 41 4C 4C 41 54 49 4F 4E 3A 20 53 45 45 20 24 |TALLATION: SEE $| 00000C10: 30 38 31 42 20 2E 2E 2E 27 20 31 B3 00 17 20 2E |081B ...' 1... .| 00000C20: 42 59 20 27 50 52 49 4E 54 45 52 20 41 44 44 52 |BY 'PRINTER ADDR| 00000C30: 45 53 53 3A 20 34 27 20 31 B3 10 17 20 2E 42 59 |ESS: 4' 1... .BY| 00000C40: 20 27 53 45 43 2E 20 41 44 44 52 2E 3A 20 37 27 | 'SEC. ADDR.: 7'| 00000C50: 20 31 B3 20 17 20 2E 42 59 20 27 4C 49 4E 45 20 | 1. . .BY 'LINE | 00000C60: 46 45 45 44 3A 20 30 20 28 49 47 4E 4F 52 45 44 |FEED: 0 (IGNORED| 00000C70: 29 27 20 31 B3 30 17 20 2E 42 59 20 27 46 4F 52 |)' 1.0. .BY 'FOR| 00000C80: 4D 20 46 45 45 44 3A 20 31 32 27 20 31 B3 40 17 |M FEED: 12' 1.@.| 00000C90: 20 20 20 20 20 20 20 20 20 20 20 2E 42 59 20 27 | .BY '| 00000CA0: 4E 52 2E 20 4F 46 20 4C 49 4E 45 53 20 45 41 43 |NR. OF LINES EAC| 00000CB0: 48 20 50 41 47 45 20 28 24 30 38 31 46 29 3A 20 |H PAGE ($081F): | 00000CC0: 38 38 27 20 31 33 20 B0 50 17 20 BB 60 17 46 54 |88' 13 .P. .`.FT| 00000CD0: 45 58 54 20 20 20 20 20 20 2E 42 59 20 27 46 49 |EXT .BY 'FI| 00000CE0: 52 53 54 20 43 4F 4D 4D 41 4E 44 3A 20 36 20 43 |RST COMMAND: 6 C| 00000CF0: 48 41 52 41 43 54 45 52 53 27 20 31 B3 70 17 20 |HARACTERS' 1.p. | 00000D00: 20 20 20 20 20 20 20 20 20 20 2E 42 59 20 27 32 | .BY '2| 00000D10: 37 20 35 31 20 32 34 20 28 32 34 2F 32 31 36 20 |7 51 24 (24/216 | 00000D20: 49 4E 43 48 29 27 20 31 B3 80 17 20 2E 42 59 20 |INCH)' 1... .BY | 00000D30: 27 32 37 20 38 32 20 30 20 20 30 20 30 20 30 20 |'27 82 0 0 0 0 | 00000D40: 30 20 28 43 42 4D 20 43 48 41 52 53 45 54 29 27 |0 (CBM CHARSET)'| 00000D50: 20 31 B3 90 17 20 2E 42 59 20 27 53 45 43 4F 4E | 1... .BY 'SECON| 00000D60: 44 20 43 4F 4D 4D 41 4E 44 3A 20 33 20 43 48 41 |D COMMAND: 3 CHA| 00000D70: 52 41 43 54 45 52 53 27 20 31 B3 00 18 20 2E 42 |RACTERS' 1... .B| 00000D80: 59 20 27 32 37 20 33 33 20 30 34 20 30 20 30 20 |Y '27 33 04 0 0 | 00000D90: 30 20 30 20 30 20 30 20 30 20 28 4D 41 53 54 45 |0 0 0 0 0 (MASTE| 00000DA0: 52 20 50 52 49 4E 54 29 27 20 31 B3 10 18 20 20 |R PRINT)' 1... | 00000DB0: 20 20 20 20 20 20 20 20 20 2E 42 59 20 27 28 53 | .BY '(S| 00000DC0: 54 41 52 20 4E 4C 31 30 29 27 20 31 33 20 31 B3 |TAR NL10)' 13 1.| 00000DD0: 20 18 20 20 20 20 20 20 20 20 20 20 20 2E 42 59 | . .BY| 00000DE0: 20 27 46 4F 52 4D 41 54 3A 20 31 33 36 20 43 48 | 'FORMAT: 136 CH| 00000DF0: 41 52 41 43 54 45 52 53 27 20 31 33 20 31 B3 30 |ARACTERS' 13 1.0| 00000E00: 18 20 BB 40 18 20 20 20 20 20 20 20 20 20 20 20 |. .@. | 00000E10: 2E 42 59 20 27 46 49 4C 45 4E 41 4D 45 3A 20 27 |.BY 'FILENAME: '| 00000E20: 20 B0 50 18 45 4D 50 54 59 20 2E 42 59 20 31 34 | .P.EMPTY .BY 14| 00000E30: 37 20 27 46 49 4C 45 20 45 4D 50 54 59 21 27 20 |7 'FILE EMPTY!' | 00000E40: B0 60 18 50 54 45 58 54 20 2E 42 59 20 31 33 20 |.`.PTEXT .BY 13 | 00000E50: 31 33 20 27 3C 52 45 54 55 52 4E 3E 20 53 54 41 |13 '<RETURN> STA| 00000E60: 52 54 53 20 50 52 49 4E 54 49 4E 47 3A 20 27 20 |RTS PRINTING: ' | 00000E70: B0 70 18 20 BB 80 18 46 4E 41 4D 20 20 20 20 20 |.p. ...FNAM | 00000E80: 20 20 2E 44 53 20 31 36 20 20 20 20 20 20 20 20 | .DS 16 | 00000E90: 20 20 20 20 20 20 20 3B 20 50 55 46 46 45 52 20 | ; PUFFER | 00000EA0: 46 2E 20 46 49 4C 45 4E 41 4D C5 90 18 46 54 41 |F. FILENAM...FTA| 00000EB0: 42 20 2E 42 59 20 30 20 3B 20 46 49 4C 45 45 49 |B .BY 0 ; FILEEI| 00000EC0: 4E 54 52 41 45 47 C5 00 19 20 BB 10 19 20 BB C5 |NTRAEG... ... ..|
..0I>... ... ; *************************
*****. . ; * PRINT: DRUCKROUTINE
.0. ; ******************************.@.
.G. .P.PRINT LDX *NRPAG
; WIEVIELE SEITEN.`. BNE PRINT1 ; B: MEH
R ALS .P. ... LDX *FANZ
; LETZTE SEITE / ZEILEN.. BEQ PREND
; B: NULL ZEILEN.. BNE PRINT2 ; MAXIMAL
ZAHL UEBERGEHEN.. . .PRINT1 LDX LL ;
VOLLE ZEILENZAHL0. .@.PRINT2 STX *LINCN
T ; ABWAERTSZAEHLERP. .`. .P.
; ZEILENZAHL MAL 22 = OFFSET... ... STX
*$71 ; MULTIPLIKATOR LO.. LDA #... STA *
$72 ; MULTIPLIKATOR HI . LDX #22 ; MULTI
PLIKAND LO0. STX *$2.@. JSR $B355 ; STA
*$29 / UMULTP. .`. STX *OFFSET
P. STY *OFFSET+... ... ...PRIN
T3 JSR PRADD ; PRINT / ADD OFFSET..
JSR PRADD . JSR PRADD0. JSR PRADD@.
JSR PROUT ; 5. EINTRAG DRUCKENP. .
`. .P. LDA #13 ; RETURN AUSGEBEN.. JSR I
ECOUT.. LDA LF ; LINE FEED CHAR... BEQ P
RNOLF ; B: 0, D.H. KEINES.. JSR IECOUT ;
LF AUSGEBEN . .%.PRNOLF DEC *LINCNT
; ZEILENZAEHLER&. BE
Q PRINT4 ; B: NEUE ZEILE0. .@.
CLC ; ZEIGER
WEITERSETZENP. LDA #2.`. ADC *FSTARTP.
STA *READLIN.. STA *FSTART..
LDA #... ADC *FSTART+...
STA *READLIN+. . STA *FSTART+.%. BNE
PRINT3 ; BRANCH ALWAYS0. .P. ...PRINT4
CLC ; ZEIGER AUF NE
UE SEITE.. LDA #2... ADC *READLIN.. STA
*FSTART . STA *READLIN0. LDA *READLIN+.@
. ADC #.P. STA *FSTART+.`. STA *READLIN+
.P. ... ... LDA FF ; FORM FEED CHAR... B
NE FFOUT ; B: FORM FEED NICHT ... LDA #1
3 ; DURCH RETURN ERSETZEN .FFOUT JS
R IECOUT0. .@. .P. L
DA *NRPAG ; SEITENZAEHLER`. BEQ PRENDP.
DEC *NRPAG.. BPL PRINT ; BRANCH ALWAYS..
... ...PREND LDA #13
; RETURN . JSR IECOUT0. .@. JSR CLRCHN ;
CMD ENDEP. LDA GA ; LOG. FILENR.`. JMP
CLOSE ; CLOSE / RTSP. ... ... ; ********
**********************... ; * PROUT: E
INTRAG AUSDRUCKEN ... ; ****************
**************. . .0.PROUT LDY #2
; 3 LEERZEICHEN@.PROUT1 LDA
#32 ; SPACEP. JSR IECOUT`. DEYP. BPL PR
OUT... ... LDY #0 ; FILENAME AUSGEBEN..P
ROUT2 JSR INOUT.. INY . CPY #16 ; 16
ZEICHEN0. BNE PROUT.@. .P. LD
A #32 ; SPACE`. JSR IECOUTP. .
.. LDY #1...PROUT3 JSR INOUT.. INY..
CPY #1. . BNE PROUT.0. .@. LD
A #32 ; SPACEP. JSR IECOUT`. .
P. LDY #1...PROUT4 JSR INOUT.. INY..
CPY #2... BNE PROUT. . .0. RTS@. .P. .`
. ; EINTRAG AUSGEBEN UNDP. ; ZEIGER WEIT
ERSETZEN... ...PRADD JSR PROUT
; EINTRAG DRUCKEN.. ...
CLC . LDA *OFFSET0.
ADC *READLIN@. STA
*READLINP. LDA *OFFSET+.`.
ADC *READLIN+.P. STA *READLIN+...
RTS.. ... ... ; ZEICHEN LESEN
/ AUSGEBEN . .0.INOUT SEI@. LDX #$3.P.
STX *.`. LDA (READLIN),YP. LDX #$3... ST
X *... CLI.. JMP IECOUT.. . . .0.
; ******************************.@.
; * EIN- / AUSGABEPUFFER .P. ; **
****************************.`. .P.TOPTX
T .BY 147 'PRINTSORT V1.0B (SUPERSOR
T 64)' 1... .BY 'WRITTEN BY ODYSSEUS' 13
1... .BY 'PRINTER INSTALLATIO
N: SEE $081B ...' 1... .BY 'PRINTER ADDR
ESS: 4' 1... .BY 'SEC. ADDR.: 7' 1. . .B
Y 'LINE FEED: 0 (IGNORED)' 1.0. .BY 'FOR
M FEED: 12' 1.@. .BY 'NR. OF L
INES EACH PAGE ($081F): 88' 13 .P. .`.FT
EXT .BY 'FIRST COMMAND: 6 CHARACTER
S' 1.P. .BY '27 51 24 (24/216
INCH)' 1... .BY '27 82 0 0 0 0 0 (CBM C
HARSET)' 1... .BY 'SECOND COMMAND: 3 CHA
RACTERS' 1... .BY '27 33 04 0 0 0 0 0 0
0 (MASTER PRINT)' 1... .BY '(S
TAR NL10)' 13 1. . .BY 'FORMAT
: 136 CHARACTERS' 13 1.0. .@.
.BY 'FILENAME: ' .P.EMPTY .BY 147 'FILE
EMPTY!' .`.PTEXT .BY 13 13 '<RETURN> STA
RTS PRINTING: ' .P. ...FNAM .DS 16
; PUFFER F. FILENAME..FTA
B .BY 0 ; FILEEINTRAEGE.. ... .E
> CLICK IMAGE PREVIEW FOR FULL MODAL