_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SPOOLING.SRC

FILE INFORMATION

FILENAME(S): SPOOLING.SRC

FILE TYPE(S): PRG

FILE SIZE: 3.1K

FIRST SEEN: 2025-11-30 21:23:14

APPEARS ON: 1 disk(s)

FILE HASH

0e6af3470559d1777004be7e85b588d2658514da0cce56c82a5ef0e40d7d329d

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C64 HULP 1 1 SPOOLING.SRC PRG DuncanTwain 26 4 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0E 08 5A 00 9E 20  38 AC 34 30 39 36 00 1C  |....Z.. 8.4096..|
00000010: 08 64 00 2E 4F 50 54 20  50 2C 4F 4F 00 22 08 6E  |.d..OPT P,OO.".n|
00000020: 00 3B 00 38 08 78 00 3B  20 44 52 55 43 4B 45 52  |.;.8.x.; DRUCKER|
00000030: 53 50 4F 4F 4C 49 4E 47  00 3E 08 82 00 3B 00 50  |SPOOLING.>...;.P|
00000040: 08 8C 00 3B 20 49 AD 4F  AB 56 45 4B A4 52 45 4E  |...; I.O.VEK.REN|
00000050: 00 5D 08 96 00 9F 20 B2  20 24 33 31 41 00 6A 08  |.].... . $31A.j.|
00000060: A0 00 A0 20 B2 20 24 33  31 43 00 7B 08 AA 00 43  |... . $31C.{...C|
00000070: 4B 4F 55 54 20 B2 20 24  33 32 30 00 8A 08 B4 00  |KOUT . $320.....|
00000080: 9C 43 48 20 B2 20 24 33  32 32 00 9B 08 BE 00 42  |.CH . $322.....B|
00000090: 53 4F 55 54 20 B2 20 24  33 32 36 00 A1 08 C8 00  |SOUT . $326.....|
000000A0: 3B 00 C0 08 D2 00 57 50  4E 54 20 B2 20 24 46 37  |;.....WPNT . $F7|
000000B0: 20 3B 20 53 43 48 52 45  49 42 5A 45 49 47 45 52  | ; SCHREIBZEIGER|
000000C0: 00 E6 08 DC 00 52 50 4E  54 20 B2 20 24 46 39 20  |.....RPNT . $F9 |
000000D0: 3B 20 4C 45 53 45 5A 45  49 47 45 52 20 49 4E 20  |; LESEZEIGER IN |
000000E0: 50 55 46 46 45 52 00 EC  08 E6 00 3B 00 FC 08 F0  |PUFFER.....;....|
000000F0: 00 4E 52 46 4C 53 20 B2  20 24 39 38 00 09 09 FA  |.NRFLS . $98....|
00000100: 00 4C 46 20 B2 20 24 42  38 00 16 09 04 01 46 41  |.LF . $B8.....FA|
00000110: 20 B2 20 24 42 41 00 23  09 0E 01 53 41 20 B2 20  | . $BA.#...SA . |
00000120: 24 42 39 00 34 09 18 01  4C 46 54 41 42 20 B2 20  |$B9.4...LFTAB . |
00000130: 24 32 35 39 00 49 09 22  01 46 41 54 41 42 20 B2  |$259.I.".FATAB .|
00000140: 20 4C 46 54 41 42 AA 31  30 00 5E 09 2C 01 53 41  | LFTAB.10.^.,.SA|
00000150: 54 41 42 20 B2 20 46 41  54 41 42 AA 31 30 00 6D  |TAB . FATAB.10.m|
00000160: 09 36 01 43 48 41 52 20  B2 20 24 39 45 00 90 09  |.6.CHAR . $9E...|
00000170: 40 01 4B 91 46 49 47 20  B2 20 31 20 3B 20 53 50  |@.K.FIG . 1 ; SP|
00000180: 45 49 43 48 45 52 41 55  46 54 45 49 4C 55 4E 47  |EICHERAUFTEILUNG|
00000190: 00 A1 09 4A 01 4F 55 54  44 45 56 20 B2 20 24 39  |...J.OUTDEV . $9|
000001A0: 41 00 B3 09 54 01 49 52  51 56 45 4B 20 B2 20 24  |A...T.IRQVEK . $|
000001B0: 33 31 34 00 C6 09 5E 01  49 52 51 41 4C 54 20 B2  |314...^.IRQALT .|
000001C0: 20 24 45 41 33 31 00 CC  09 68 01 3B 00 DD 09 72  | $EA31...h.;...r|
000001D0: 01 9F 4F 4C 44 20 B2 20  24 46 33 34 41 00 F1 09  |..OLD . $F34A...|
000001E0: 7C 01 42 53 4F 55 A4 4C  44 20 B2 20 24 46 31 43  ||.BSOU.LD . $F1C|
000001F0: 41 00 05 0A 86 01 53 45  54 50 41 52 41 20 B2 20  |A.....SETPARA . |
00000200: 24 46 33 31 46 00 18 0A  90 01 53 55 43 48 4C 46  |$F31F.....SUCHLF|
00000210: 20 B2 20 24 46 33 31 34  00 2C 0A 9A 01 53 55 43  | . $F314.,...SUC|
00000220: 48 4C 46 58 20 B2 20 24  46 33 30 46 00 3D 0A A4  |HLFX . $F30F.=..|
00000230: 01 4F 4C 44 A0 20 B2 20  24 46 32 41 31 00 4E 0A  |.OLD. . $F2A1.N.|
00000240: AE 01 9A 43 4C 53 20 B2  20 24 46 32 46 31 00 60  |...CLS . $F2F1.`|
00000250: 0A B8 01 46 49 4C 45 9F  20 B2 20 24 46 36 46 45  |...FILE. . $F6FE|
00000260: 00 73 0A C2 01 A4 4F 4D  41 4E 59 20 B2 20 24 46  |.s....OMANY . $F|
00000270: 36 34 42 00 79 0A CC 01  3B 00 91 0A D6 01 43 49  |64B.y...;.....CI|
00000280: 41 20 B2 20 24 44 44 30  30 20 3B 20 43 49 41 20  |A . $DD00 ; CIA |
00000290: 32 00 A0 0A E0 01 50 B0  54 41 20 B2 20 43 49 41  |2.....P.TA . CIA|
000002A0: 00 B1 0A EA 01 50 B0 54  42 20 B2 20 43 49 41 AA  |.....P.TB . CIA.|
000002B0: 31 00 C6 0A F4 01 52 49  43 48 54 55 4E 47 20 B2  |1.....RICHTUNG .|
000002C0: 20 43 49 41 AA 33 00 EF  0A FE 01 49 43 52 20 B2  | CIA.3.....ICR .|
000002D0: 20 43 49 41 AA 31 33 20  3B 20 B5 45 52 52 55 50  | CIA.13 ; .ERRUP|
000002E0: 54 20 9A 52 4F 4C 20 52  45 47 49 53 54 45 52 00  |T .ROL REGISTER.|
000002F0: F5 0A 08 02 3B 00 25 0B  12 02 50 55 46 46 45 52  |....;.%...PUFFER|
00000300: 20 B2 20 24 45 30 30 30  20 3B 20 44 52 55 43 4B  | . $E000 ; DRUCK|
00000310: 45 52 50 55 46 46 45 52  20 55 4E 54 45 52 20 4B  |ERPUFFER UNTER K|
00000320: 45 52 4E 41 4C 00 2B 0B  1C 02 3B 00 38 0B 26 02  |ERNAL.+...;.8.&.|
00000330: AC B2 20 24 43 43 30 30  00 4B 0B 30 02 49 4E 49  |.. $CC00.K.0.INI|
00000340: 54 20 4C 44 41 20 23 B3  20 9F A2 00 59 0B 3A 02  |T LDA #. ...Y.:.|
00000350: 4C 44 59 20 23 B1 20 9F  A2 00 78 0B 44 02 53 54  |LDY #. ...x.D.ST|
00000360: 41 20 9F 20 3B 20 9F AB  56 45 4B A4 52 20 4E 45  |A . ; ..VEK.R NE|
00000370: 55 20 53 45 54 5A 45 4E  00 84 0B 4E 02 53 54 59  |U SETZEN...N.STY|
00000380: 20 9F AA 31 00 8C 0B 58  02 52 54 53 00 92 0B 62  | ..1...X.RTS...b|
00000390: 02 3B 00 B1 0B 6C 02 9F  A2 20 4C 44 58 20 4C 46  |.;...l... LDX LF|
000003A0: 3B 20 BC 49 53 43 48 45  20 46 49 C3 55 4D 4D 45  |; .ISCHE FI.UMME|
000003B0: 52 00 BE 0B 76 02 42 45  51 20 45 52 52 B0 00 CE  |R...v.BEQ ERR...|
000003C0: 0B 80 02 4A 53 52 20 53  55 43 48 4C 46 58 00 DA  |...JSR SUCHLFX..|
000003D0: 0B 8A 02 42 4E 45 20 4F  4B 32 00 ED 0B 94 02 45  |...BNE OK2.....E|
000003E0: 52 52 B0 20 4A 4D 50 20  46 49 4C 45 9F 00 FF 0B  |RR. JMP FILE....|
000003F0: 9E 02 4F 4B 32 20 4C 44  58 20 4E 52 46 4C 53 00  |..OK2 LDX NRFLS.|
00000400: 0B 0C A8 02 43 50 58 20  23 31 30 00 2B 0C B2 02  |....CPX #10.+...|
00000410: 42 43 43 20 4F 4B 20 3B  20 57 45 4E 49 47 45 52  |BCC OK ; WENIGER|
00000420: 20 41 4C 53 20 31 30 2C  20 4F 4B 00 4C 0C BC 02  | ALS 10, OK.L...|
00000430: 4A 4D 50 20 A4 4F 4D 41  4E 59 20 3B 20 27 A4 4F  |JMP .OMANY ; '.O|
00000440: 20 4D 41 4E 59 20 46 49  4C 45 53 27 00 66 0C C6  | MANY FILES'.f..|
00000450: 02 4F 4B 20 4C 44 41 20  46 41 20 3B 20 47 45 52  |.OK LDA FA ; GER|
00000460: 41 45 54 45 4E 52 00 71  0C D0 02 43 4D 50 20 23  |AETENR.q...CMP #|
00000470: 34 00 8E 0C DA 02 42 45  51 20 53 50 4F 4F 4C 20  |4.....BEQ SPOOL |
00000480: 3B 20 4A 41 2C 20 53 50  4F 4F 4C 49 4E 47 00 9B  |; JA, SPOOLING..|
00000490: 0C E4 02 4A 4D 50 20 9F  4F 4C 44 00 C1 0C EE 02  |...JMP .OLD.....|
000004A0: 53 50 4F 4F 4C 20 49 4E  43 20 4E 52 46 4C 53 20  |SPOOL INC NRFLS |
000004B0: 3B 20 41 4E 5A 41 48 4C  20 45 52 48 4F 45 48 45  |; ANZAHL ERHOEHE|
000004C0: 4E 00 EE 0C F8 02 53 54  41 20 46 41 54 41 42 2C  |N.....STA FATAB,|
000004D0: 58 20 3B 20 47 45 52 41  45 54 45 41 44 52 45 53  |X ; GERAETEADRES|
000004E0: 53 45 20 49 4E 20 54 41  42 45 45 4C 4C 45 00 F9  |SE IN TABEELLE..|
000004F0: 0C 02 03 4C 44 41 20 4C  46 00 09 0D 0C 03 53 54  |...LDA LF.....ST|
00000500: 41 20 4C 46 54 41 42 2C  58 00 14 0D 16 03 4C 44  |A LFTAB,X.....LD|
00000510: 41 20 53 41 00 24 0D 20  03 53 54 41 20 53 41 54  |A SA.$. .STA SAT|
00000520: 41 42 2C 58 00 36 0D 2A  03 4C 44 41 20 23 B1 20  |AB,X.6.*.LDA #. |
00000530: 50 55 46 46 45 52 00 56  0D 34 03 53 54 41 20 57  |PUFFER.V.4.STA W|
00000540: 50 4E 54 AA 31 20 3B 20  53 43 48 52 45 49 42 AB  |PNT.1 ; SCHREIB.|
00000550: 5A 45 49 47 45 52 00 73  0D 3E 03 53 54 41 20 52  |ZEIGER.s.>.STA R|
00000560: 50 4E 54 AA 31 20 3B 20  4C 45 53 45 AB 5A 45 49  |PNT.1 ; LESE.ZEI|
00000570: 47 45 52 00 7E 0D 48 03  4C 44 41 20 23 30 00 8B  |GER.~.H.LDA #0..|
00000580: 0D 52 03 53 54 41 20 57  50 4E 54 00 98 0D 5C 03  |.R.STA WPNT...\.|
00000590: 53 54 41 20 52 50 4E 54  00 CB 0D 66 03 4C 44 41  |STA RPNT...f.LDA|
000005A0: 20 23 24 46 46 20 3A 20  53 54 41 20 52 49 43 48  | #$FF : STA RICH|
000005B0: 54 55 4E 47 20 3B 20 55  53 45 52 AB 50 B0 54 20  |TUNG ; USER.P.T |
000005C0: 41 55 46 20 41 55 53 47  41 42 45 00 D8 0D 70 03  |AUF AUSGABE...p.|
000005D0: 4C 44 41 20 50 B0 54 41  00 F1 0D 7A 03 B0 41 20  |LDA P.TA...z..A |
000005E0: 23 25 31 30 30 20 3B 20  53 54 52 4F 42 45 20 48  |#%100 ; STROBE H|
000005F0: 49 00 FE 0D 84 03 53 54  41 20 50 B0 54 41 00 10  |I.....STA P.TA..|
00000600: 0E 8E 03 4C 44 41 20 23  B3 20 42 53 4F 55 54 A2  |...LDA #. BSOUT.|
00000610: 00 22 0E 98 03 4C 44 59  20 23 B1 20 42 53 4F 55  |."...LDY #. BSOU|
00000620: 54 A2 00 30 0E A2 03 53  54 41 20 42 53 4F 55 54  |T..0...STA BSOUT|
00000630: 00 40 0E AC 03 53 54 59  20 42 53 4F 55 54 AA 31  |.@...STY BSOUT.1|
00000640: 00 4E 0E B6 03 4C 44 41  20 23 B3 20 A0 A2 00 5C  |.N...LDA #. ...\|
00000650: 0E C0 03 4C 44 59 20 23  B1 20 A0 A2 00 66 0E CA  |...LDY #. ...f..|
00000660: 03 53 54 41 20 A0 00 72  0E D4 03 53 54 59 20 A0  |.STA ..r...STY .|
00000670: AA 31 00 86 0E DE 03 4C  44 41 20 23 B3 20 53 50  |.1.....LDA #. SP|
00000680: 4F 4F 4C 49 4E 47 00 9A  0E E8 03 4C 44 59 20 23  |OOLING.....LDY #|
00000690: B1 20 53 50 4F 4F 4C 49  4E 47 00 A2 0E F2 03 53  |. SPOOLING.....S|
000006A0: 45 49 00 B1 0E FC 03 53  54 41 20 49 52 51 56 45  |EI.....STA IRQVE|
000006B0: 4B 00 C2 0E 06 04 53 54  59 20 49 52 51 56 45 4B  |K.....STY IRQVEK|
000006C0: AA 31 00 E6 0E 10 04 43  4C 49 20 3A 20 43 4C 43  |.1.....CLI : CLC|
000006D0: 20 3B 20 46 45 48 4C 45  52 46 4C 41 47 20 4C 4F  | ; FEHLERFLAG LO|
000006E0: 45 53 43 48 45 4E 00 EE  0E 1A 04 52 54 53 00 F4  |ESCHEN.....RTS..|
000006F0: 0E 24 04 3B 00 0B 0F 2E  04 53 50 4F 4F 4C 49 4E  |.$.;.....SPOOLIN|
00000700: 47 20 4C 44 41 20 4B 91  46 49 47 00 13 0F 38 04  |G LDA K.FIG...8.|
00000710: 50 48 41 00 2F 0F 42 04  4C 44 41 20 23 24 33 35  |PHA./.B.LDA #$35|
00000720: 20 3B 20 52 41 4D 20 41  55 53 57 41 45 48 C3 00  | ; RAM AUSWAEH..|
00000730: 3D 0F 4C 04 53 54 41 20  4B 91 46 49 47 00 50 0F  |=.L.STA K.FIG.P.|
00000740: 56 04 54 45 53 54 82 20  4C 44 41 20 52 50 4E 54  |V.TEST. LDA RPNT|
00000750: 00 5D 0F 60 04 43 4D 50  20 57 50 4E 54 00 7B 0F  |.].`.CMP WPNT.{.|
00000760: 6A 04 42 4E 45 20 53 80  43 48 41 52 20 3B 20 5A  |j.BNE S.CHAR ; Z|
00000770: 45 49 43 48 45 4E 20 53  80 45 4E 00 8A 0F 74 04  |EICHEN S.EN...t.|
00000780: 4C 44 41 20 52 50 4E 54  AA 31 00 99 0F 7E 04 43  |LDA RPNT.1...~.C|
00000790: 4D 50 20 57 50 4E 54 AA  31 00 A6 0F 88 04 42 45  |MP WPNT.1.....BE|
000007A0: 51 20 45 58 49 54 00 BD  0F 92 04 53 80 43 48 41  |Q EXIT.....S.CHA|
000007B0: 52 20 4C 44 41 20 23 25  31 30 30 30 30 00 DA 0F  |R LDA #%10000...|
000007C0: 9C 04 42 49 54 20 49 43  52 20 3B 20 44 52 55 43  |..BIT ICR ; DRUC|
000007D0: 4B 45 52 20 42 45 52 45  49 54 00 EE 0F A6 04 42  |KER BEREIT.....B|
000007E0: 45 51 20 45 58 49 54 20  3B 20 4E 45 49 4E 00 F9  |EQ EXIT ; NEIN..|
000007F0: 0F B0 04 4C 44 59 20 23  30 00 20 10 BA 04 4C 44  |...LDY #0. ...LD|
00000800: 41 20 28 52 50 4E 54 29  2C 59 20 3B 20 41 55 53  |A (RPNT),Y ; AUS|
00000810: 5A 55 47 45 42 80 45 53  20 5A 45 49 43 48 45 4E  |ZUGEB.ES ZEICHEN|
00000820: 00 41 10 C4 04 53 54 41  20 50 B0 54 42 20 3B 20  |.A...STA P.TB ; |
00000830: 41 55 46 20 44 45 4E 20  50 B0 54 20 47 45 42 45  |AUF DEN P.T GEBE|
00000840: 4E 00 4E 10 CE 04 4C 44  41 20 50 B0 54 41 00 6B  |N.N...LDA P.TA.k|
00000850: 10 D8 04 AF 20 23 25 31  31 31 31 31 30 31 31 20  |.... #%11111011 |
00000860: 3B 20 53 54 52 4F 42 45  20 4C 4F 00 78 10 E2 04  |; STROBE LO.x...|
00000870: 53 54 41 20 50 B0 54 41  00 96 10 EC 04 B0 41 20  |STA P.TA......A |
00000880: 23 25 30 30 30 30 30 31  30 30 20 3B 20 53 54 52  |#%00000100 ; STR|
00000890: 4F 42 45 20 48 49 00 A3  10 F6 04 53 54 41 20 50  |OBE HI.....STA P|
000008A0: B0 54 41 00 BC 10 00 05  49 4E 43 20 52 50 4E 54  |.TA.....INC RPNT|
000008B0: 20 3A 20 42 4E 45 20 54  45 53 54 82 00 D7 10 0A  | : BNE TEST.....|
000008C0: 05 49 4E 43 20 52 50 4E  54 AA 31 20 3A 20 42 4E  |.INC RPNT.1 : BN|
000008D0: 45 20 54 45 53 54 82 00  E9 10 14 05 4C 44 41 20  |E TEST......LDA |
000008E0: 23 B1 20 50 55 46 46 45  52 00 F8 10 1E 05 53 54  |#. PUFFER.....ST|
000008F0: 41 20 52 50 4E 54 AA 31  00 1F 11 28 05 42 4E 45  |A RPNT.1...(.BNE|
00000900: 20 54 45 53 54 82 20 3B  20 4E 41 45 43 48 53 54  | TEST. ; NAECHST|
00000910: 45 53 20 5A 45 49 43 48  45 4E 20 53 80 45 4E 00  |ES ZEICHEN S.EN.|
00000920: 25 11 32 05 3B 00 32 11  3C 05 45 58 49 54 20 50  |%.2.;.2.<.EXIT P|
00000930: 4C 41 00 5A 11 46 05 53  54 41 20 4B 91 46 49 47  |LA.Z.F.STA K.FIG|
00000940: 20 3B 20 41 4C 54 45 20  53 50 45 49 43 48 45 52  | ; ALTE SPEICHER|
00000950: 41 55 46 54 45 49 4C 55  4E 47 00 69 11 50 05 4A  |AUFTEILUNG.i.P.J|
00000960: 4D 50 20 49 52 51 41 4C  54 00 6F 11 5A 05 3B 00  |MP IRQALT.o.Z.;.|
00000970: 8F 11 64 05 42 53 4F 55  54 A2 20 50 48 41 20 3B  |..d.BSOUT. PHA ;|
00000980: 20 5A 45 49 43 48 45 4E  20 4D 45 52 4B 45 4E 00  | ZEICHEN MERKEN.|
00000990: AF 11 6E 05 4C 44 41 20  4F 55 54 44 45 56 20 3B  |..n.LDA OUTDEV ;|
000009A0: 20 47 45 52 41 45 54 45  41 44 52 45 53 53 45 00  | GERAETEADRESSE.|
000009B0: BA 11 78 05 43 4D 50 20  23 34 00 C6 11 82 05 42  |..x.CMP #4.....B|
000009C0: 45 51 20 4F 4B 31 00 DC  11 8C 05 50 4C 41 20 3A  |EQ OK1.....PLA :|
000009D0: 20 4A 4D 50 20 42 53 4F  55 A4 4C 44 00 FA 11 96  | JMP BSOU.LD....|
000009E0: 05 4F 4B 31 20 50 4C 41  20 3B 20 5A 45 49 43 48  |.OK1 PLA ; ZEICH|
000009F0: 45 4E 20 5A 55 52 55 45  43 4B 00 10 12 A0 05 53  |EN ZURUECK.....S|
00000A00: 54 41 20 43 48 41 52 20  3B 20 4D 45 52 4B 45 4E  |TA CHAR ; MERKEN|
00000A10: 00 29 12 AA 05 54 59 41  20 3A 20 50 48 41 20 3B  |.)...TYA : PHA ;|
00000A20: 20 59 20 52 45 54 54 45  4E 00 36 12 B4 05 4C 44  | Y RETTEN.6...LD|
00000A30: 41 20 43 48 41 52 00 41  12 BE 05 4C 44 59 20 23  |A CHAR.A...LDY #|
00000A40: 30 00 68 12 C8 05 53 54  41 20 28 57 50 4E 54 29  |0.h...STA (WPNT)|
00000A50: 2C 59 20 3B 20 49 4E 20  50 55 46 46 45 52 20 53  |,Y ; IN PUFFER S|
00000A60: 43 48 52 45 49 42 45 4E  00 75 12 D2 05 49 4E 43  |CHREIBEN.u...INC|
00000A70: 20 57 50 4E 54 00 9B 12  DC 05 42 4E 45 20 4E 4F  | WPNT.....BNE NO|
00000A80: 49 4E 43 20 3B 20 50 55  46 46 45 52 5A 45 49 47  |INC ; PUFFERZEIG|
00000A90: 45 52 20 45 52 48 4F 45  48 45 4E 00 AA 12 E6 05  |ER ERHOEHEN.....|
00000AA0: 49 4E 43 20 57 50 4E 54  AA 31 00 B8 12 F0 05 42  |INC WPNT.1.....B|
00000AB0: 4E 45 20 4E 4F 49 4E 43  00 E4 12 FA 05 4C 44 41  |NE NOINC.....LDA|
00000AC0: 20 23 B1 20 50 55 46 46  45 52 20 3B 20 50 55 46  | #. PUFFER ; PUF|
00000AD0: 46 45 52 5A 45 49 47 45  52 20 41 55 46 20 41 4E  |FERZEIGER AUF AN|
00000AE0: 46 41 4E 47 00 F3 12 04  06 53 54 41 20 57 50 4E  |FANG.....STA WPN|
00000AF0: 54 AA 31 00 01 13 0E 06  4E 4F 49 4E 43 20 50 4C  |T.1.....NOINC PL|
00000B00: 41 00 15 13 18 06 54 41  59 20 3B 20 59 20 5A 55  |A.....TAY ; Y ZU|
00000B10: 52 55 45 43 4B 00 22 13  22 06 4C 44 41 20 43 48  |RUECK.".".LDA CH|
00000B20: 41 52 00 37 13 2C 06 46  45 52 54 49 47 20 43 4C  |AR.7.,.FERTIG CL|
00000B30: 43 20 3A 20 52 54 53 00  3D 13 36 06 3B 00 4F 13  |C : RTS.=.6.;.O.|
00000B40: 40 06 A0 A2 20 4A 53 52  20 53 55 43 48 4C 46 00  |@... JSR SUCHLF.|
00000B50: 5E 13 4A 06 42 4E 45 20  46 45 52 54 49 47 00 6E  |^.J.BNE FERTIG.n|
00000B60: 13 54 06 4A 53 52 20 53  45 54 50 41 52 41 00 7C  |.T.JSR SETPARA.||
00000B70: 13 5E 06 54 58 41 20 3A  20 50 48 41 00 87 13 68  |.^.TXA : PHA...h|
00000B80: 06 4C 44 41 20 46 41 00  92 13 72 06 43 4D 50 20  |.LDA FA...r.CMP |
00000B90: 23 34 00 9D 13 7C 06 42  45 51 20 A0 31 00 AA 13  |#4...|.BEQ .1...|
00000BA0: 86 06 4A 4D 50 20 4F 4C  44 A0 00 C0 13 90 06 A0  |..JMP OLD.......|
00000BB0: 31 20 4C 44 41 20 23 B3  20 42 53 4F 55 A4 4C 44  |1 LDA #. BSOU.LD|
00000BC0: 00 D3 13 9A 06 4C 44 58  20 23 B1 20 42 53 4F 55  |.....LDX #. BSOU|
00000BD0: A4 4C 44 00 E1 13 A4 06  53 54 41 20 42 53 4F 55  |.LD.....STA BSOU|
00000BE0: 54 00 F1 13 AE 06 53 54  58 20 42 53 4F 55 54 AA  |T.....STX BSOUT.|
00000BF0: 31 00 01 14 B8 06 4C 44  41 20 23 B3 20 A0 4F 4C  |1.....LDA #. .OL|
00000C00: 44 00 11 14 C2 06 4C 44  58 20 23 B1 20 A0 4F 4C  |D.....LDX #. .OL|
00000C10: 44 00 1B 14 CC 06 53 54  41 20 A0 00 27 14 D6 06  |D.....STA ..'...|
00000C20: 53 54 58 20 A0 AA 31 00  39 14 E0 06 4C 44 41 20  |STX ..1.9...LDA |
00000C30: 23 B3 20 49 52 51 41 4C  54 00 4B 14 EA 06 4C 44  |#. IRQALT.K...LD|
00000C40: 58 20 23 B1 20 49 52 51  41 4C 54 00 53 14 F4 06  |X #. IRQALT.S...|
00000C50: 53 45 49 00 62 14 FE 06  53 54 41 20 49 52 51 56  |SEI.b...STA IRQV|
00000C60: 45 4B 00 73 14 08 07 53  54 58 20 49 52 51 56 45  |EK.s...STX IRQVE|
00000C70: 4B AA 31 00 7B 14 12 07  43 4C 49 00 88 14 1C 07  |K.1.{...CLI.....|
00000C80: 4A 4D 50 20 9A 43 4C 53  00 00 00                 |JMP .CLS...     |
....Z.. 8.4096...D..OPT P,OO.".N.;.8.X.;
 DRUCKERSPOOLING.>...;.P...; I.O.VEK.REN
.].... . $31A.J. .  . $31C.{...CKOUT . $
320......CH . $322.....BSOUT . $326...H.
;...R.WPNT . $F7 ; SCHREIBZEIGER.....RPN
T . $F9 ; LESEZEIGER IN PUFFER.....;....
.NRFLS . $98.....LF . $B8.....FA . $BA.#
...SA . $B9.4...LFTAB . $259.I.".FATAB .
 LFTAB.10.^.,.SATAB . FATAB.10.M.6.CHAR 
. $9E...@.K.FIG . 1 ; SPEICHERAUFTEILUNG
...J.OUTDEV . $9A...T.IRQVEK . $314.F.^.
IRQALT . $EA31.L.H.;...R..OLD . $F34A...
|.BSOU.LD . $F1CA.....SETPARA . $F31F...
..SUCHLF . $F314.,...SUCHLFX . $F30F.=..
.OLD  . $F2A1.N....CLS . $F2F1.`...FILE.
 . $F6FE.S.B..OMANY . $F64B.Y.L.;...V.CI
A . $DD00 ; CIA 2. ...P.TA . CIA.....P.T
B . CIA.1.F...RICHTUNG . CIA.3.....ICR .
 CIA.13 ; .ERRUPT .ROL REGISTER.....;.%.
..PUFFER . $E000 ; DRUCKERPUFFER UNTER K
ERNAL.+...;.8.&... $CC00.K.0.INIT LDA #.
 ...Y.:.LDY #. ...X.D.STA . ; ..VEK.R NE
U SETZEN...N.STY ..1...X.RTS...B.;...L..
. LDX LF; .ISCHE FICUMMER...V.BEQ ERR..N
...JSR SUCHLFX.Z...BNE OK2.....ERR. JMP 
FILE......OK2 LDX NRFLS.....CPX #10.+...
BCC OK ; WENIGER ALS 10, OK.L...JMP .OMA
NY ; '.O MANY FILES'.F.F.OK LDA FA ; GER
AETENR.Q.P.CMP #4...Z.BEQ SPOOL ; JA, SP
OOLING.....JMP .OLD.A...SPOOL INC NRFLS 
; ANZAHL ERHOEHEN.....STA FATAB,X ; GERA
ETEADRESSE IN TABEELLE.....LDA LF.....ST
A LFTAB,X.....LDA SA.$. .STA SATAB,X.6.*
.LDA #. PUFFER.V.4.STA WPNT.1 ; SCHREIB.
ZEIGER.S.>.STA RPNT.1 ; LESE.ZEIGER.~.H.
LDA #0...R.STA WPNT...\.STA RPNT.K.F.LDA
 #$FF : STA RICHTUNG ; USER.P.T AUF AUSG
ABE.X.P.LDA P.TA...Z..A #%100 ; STROBE H
I.....STA P.TA.....LDA #. BSOUT.."...LDY
 #. BSOUT..0...STA BSOUT.@...STY BSOUT.1
.N...LDA #.  ..\...LDY #.  ..F.J.STA  .R
.T.STY  .1.....LDA #. SPOOLING.....LDY #
. SPOOLING.....SEI.....STA IRQVEK.B...ST
Y IRQVEK.1.....CLI : CLC ; FEHLERFLAG LO
ESCHEN.....RTS...$.;.....SPOOLING LDA K.
FIG...8.PHA./.B.LDA #$35 ; RAM AUSWAEHC.
=.L.STA K.FIG.P.V.TEST. LDA RPNT.].`.CMP
 WPNT.{.J.BNE S.CHAR ; ZEICHEN S.EN...T.
LDA RPNT.1...~.CMP WPNT.1.....BEQ EXIT..
...S.CHAR LDA #%10000.Z...BIT ICR ; DRUC
KER BEREIT.....BEQ EXIT ; NEIN.....LDY #
0. ...LDA (RPNT),Y ; AUSZUGEB.ES ZEICHEN
.A.D.STA P.TB ; AUF DEN P.T GEBEN.N.N.LD
A P.TA.K.X.. #%11111011 ; STROBE LO.X...
STA P.TA......A #%00000100 ; STROBE HI..
...STA P.TA.....INC RPNT : BNE TEST..W..
.INC RPNT.1 : BNE TEST......LDA #. PUFFE
R.....STA RPNT.1...(.BNE TEST. ; NAECHST
ES ZEICHEN S.EN.%.2.;.2.<.EXIT PLA.Z.F.S
TA K.FIG ; ALTE SPEICHERAUFTEILUNG.I.P.J
MP IRQALT.O.Z.;...D.BSOUT. PHA ; ZEICHEN
 MERKEN...N.LDA OUTDEV ; GERAETEADRESSE.
..X.CMP #4.F...BEQ OK1.....PLA : JMP BSO
U.LD.....OK1 PLA ; ZEICHEN ZURUECK... .S
TA CHAR ; MERKEN.)...TYA : PHA ; Y RETTE
N.6...LDA CHAR.A...LDY #0.H.H.STA (WPNT)
,Y ; IN PUFFER SCHREIBEN.U.R.INC WPNT...
..BNE NOINC ; PUFFERZEIGER ERHOEHEN.....
INC WPNT.1.....BNE NOINC.....LDA #. PUFF
ER ; PUFFERZEIGER AUF ANFANG.....STA WPN
T.1.....NOINC PLA.....TAY ; Y ZURUECK.".
".LDA CHAR.7.,.FERTIG CLC : RTS.=.6.;.O.
@. . JSR SUCHLF.^.J.BNE FERTIG.N.T.JSR S
ETPARA.|.^.TXA : PHA...H.LDA FA...R.CMP 
#4...|.BEQ  1.....JMP OLD ..... 1 LDA #.
 BSOU.LD.S...LDX #. BSOU.LD.....STA BSOU
T.....STX BSOUT.1.....LDA #.  OLD...B.LD
X #.  OLD...L.STA  .'.V.STX  .1.9...LDA 
#. IRQALT.K...LDX #. IRQALT.S...SEI.B...
STA IRQVEK.S...STX IRQVEK.1.{...CLI.....
JMP .CLS...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL