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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL