Multiple names: SPOOLER V1 QUELL, SPOOLCENTR.SRC

FILE INFORMATION

FILENAME(S):
• SPOOLER&nbspV1&nbspQUELL<br>• SPOOLCENTR.SRC

FILE TYPE(S): PRG

FILE SIZE: 6.4K

FIRST SEEN: 2025-11-02 16:41:32

APPEARS ON: 3 disk(s)

FILE HASH

4fb12ee16741b3c99c025911b74beda78d5405800fbd77c32bbe73bce4e4d161

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15718 SEITE B	SPOOLER V1 QUELL	PRG	Treasure Chest - PrettyOldPixel	19	16	DOWNLOAD FILE
15718 SEITE B	SPOOLER V1 QUELL	PRG	C64er	19	16	DOWNLOAD FILE
10109 SEITE A	SPOOLCENTR.SRC	PRG	C64er	13	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F 1F 20 64 00 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |... d.;*********|
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 2A 2A 2A  |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A  00 66 20 6E 00 3B 2A 20  |********.f n.;* |
00000050: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000060: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000070: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 2A 00  |              *.|
00000090: AD 20 78 00 3B 2A 20 20  20 20 20 20 20 20 20 20  |. x.;*          |
000000A0: 20 20 20 20 44 20 52 20  55 20 43 20 4B 20 45 20  |    D R U C K E |
000000B0: 52 20 2D 20 53 20 50 20  4F 20 4F 20 4C 20 45 20  |R - S P O O L E |
000000C0: 52 20 20 56 31 2E 30 20  20 20 20 20 20 20 20 20  |R  V1.0         |
000000D0: 20 20 20 20 20 2A 00 F4  20 82 00 3B 2A 20 20 20  |     *.. ..;*   |
000000E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000100: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000110: 20 20 20 20 20 20 20 20  20 20 20 20 2A 00 3B 21  |            *.;!|
00000120: 8C 00 3B 2A 20 20 20 20  20 20 20 20 20 20 20 20  |..;*            |
00000130: 46 55 45 52 20 44 52 55  43 4B 45 52 20 4D 49 54  |FUER DRUCKER MIT|
00000140: 20 43 45 4E 54 52 4F 4E  49 43 53 53 43 48 4E 49  | CENTRONICSSCHNI|
00000150: 54 54 53 54 45 4C 4C 45  20 20 20 20 20 20 20 20  |TTSTELLE        |
00000160: 20 20 20 2A 00 82 21 96  00 3B 2A 20 20 20 20 20  |   *..!..;*     |
00000170: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000180: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000190: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001A0: 20 20 20 20 20 20 20 20  20 20 2A 00 C9 21 A0 00  |          *..!..|
000001B0: 3B 2A 20 20 20 57 52 49  54 54 45 4E 20 42 59 3A  |;*   WRITTEN BY:|
000001C0: 52 4F 4C 41 4E 44 20 53  43 48 45 4E 4B 20 44 2D  |ROLAND SCHENK D-|
000001D0: 36 33 34 32 20 48 41 49  47 45 52 20 36 20 57 41  |6342 HAIGER 6 WA|
000001E0: 43 48 45 4E 42 45 52 47  53 54 52 2E 32 37 20 20  |CHENBERGSTR.27  |
000001F0: 20 2A 00 10 22 AA 00 3B  2A 20 20 20 20 20 20 20  | *.."..;*       |
00000200: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000210: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000220: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000230: 20 20 20 20 20 20 20 20  2A 00 57 22 B4 00 3B 2A  |        *.W"..;*|
00000240: 20 44 49 45 53 45 53 20  50 52 4F 47 52 41 4D 4D  | DIESES PROGRAMM|
00000250: 20 53 54 45 4C 4C 54 20  45 49 4E 45 20 45 52 57  | STELLT EINE ERW|
00000260: 45 49 54 45 52 55 4E 47  20 44 45 52 20 49 4E 20  |EITERUNG DER IN |
00000270: 53 4F 4E 44 45 52 48 45  46 54 20 34 2F 38 35 2A  |SONDERHEFT 4/85*|
00000280: 00 9E 22 BE 00 3B 2A 20  28 4D 41 52 4B 54 26 54  |.."..;* (MARKT&T|
00000290: 45 43 48 4E 49 4B 20 56  45 52 4C 41 47 29 20 56  |ECHNIK VERLAG) V|
000002A0: 45 52 4F 45 46 46 45 4E  54 4C 49 43 48 54 45 4E  |EROEFFENTLICHTEN|
000002B0: 20 45 59 53 53 45 4C 45  2D 53 43 48 4E 49 54 54  | EYSSELE-SCHNITT|
000002C0: 53 54 45 4C 4C 45 2A 00  E5 22 C8 00 3B 2A 20 44  |STELLE*.."..;* D|
000002D0: 41 52 2E 20 56 4F 52 20  41 53 53 45 4D 42 4C 49  |AR. VOR ASSEMBLI|
000002E0: 45 52 55 4E 47 20 44 49  45 53 45 53 20 50 52 4F  |ERUNG DIESES PRO|
000002F0: 47 52 41 4D 4D 53 20 4D  55 53 53 20 44 49 45 20  |GRAMMS MUSS DIE |
00000300: 45 59 53 53 45 4C 45 2D  20 20 20 20 20 2A 00 2C  |EYSSELE-     *.,|
00000310: 23 D2 00 3B 2A 20 53 43  48 4E 49 54 54 53 54 45  |#..;* SCHNITTSTE|
00000320: 4C 4C 45 20 49 4E 20 44  45 4E 20 53 50 45 49 43  |LLE IN DEN SPEIC|
00000330: 48 45 52 20 41 42 20 24  43 39 30 30 20 47 45 4C  |HER AB $C900 GEL|
00000340: 41 44 45 4E 20 57 45 52  44 45 4E 20 20 20 20 20  |ADEN WERDEN     |
00000350: 20 20 20 20 2A 00 73 23  DC 00 3B 2A 20 20 20 20  |    *.s#..;*    |
00000360: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000370: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000380: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000390: 20 20 20 20 20 20 20 20  20 20 20 2A 00 BA 23 E6  |           *..#.|
000003A0: 00 3B 2A 2A 2A 2A 2A 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 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000003E0: 2A 2A 2A 00 C0 23 F0 00  3B 00 C6 23 FA 00 3B 00  |***..#..;..#..;.|
000003F0: D4 23 04 01 20 2E 42 41  24 43 39 33 46 00 DA 23  |.#.. .BA$C93F..#|
00000400: 0E 01 3B 00 21 24 18 01  3B 2A 2A 2A 2A 2A 2A 2A  |..;.!$..;*******|
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 2A 2A 2A  |****************|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000440: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 68 24 22 01 3B  |**********.h$".;|
00000450: 2A 20 20 20 20 20 49 4E  49 54 49 41 4C 49 53 49  |*     INITIALISI|
00000460: 45 52 55 4E 47 20 44 45  52 20 45 59 53 53 45 4C  |ERUNG DER EYSSEL|
00000470: 45 2D 53 43 48 4E 49 54  54 53 54 45 4C 4C 45 20  |E-SCHNITTSTELLE |
00000480: 4D 4F 44 49 46 49 5A 49  45 52 45 4E 20 20 20 20  |MODIFIZIEREN    |
00000490: 2A 00 AF 24 2C 01 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |*..$,.;*********|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000004C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000004D0: 2A 2A 2A 2A 2A 2A 2A 2A  00 B5 24 36 01 3B 00 CF  |********..$6.;..|
000004E0: 24 40 01 20 4C 44 41 23  24 30 30 3B 46 4C 41 47  |$@. LDA#$00;FLAG|
000004F0: 52 45 47 49 53 54 45 52  00 F0 24 4A 01 20 53 54  |REGISTER..$J. ST|
00000500: 41 43 4F 55 4E 54 46 4C  41 47 3B 49 4E 49 54 49  |ACOUNTFLAG;INITI|
00000510: 41 4C 49 53 49 45 52 45  4E 00 00 25 54 01 20 53  |ALISIEREN..%T. S|
00000520: 54 41 49 52 51 46 4C 41  47 00 28 25 5E 01 20 4C  |TAIRQFLAG.(%^. L|
00000530: 44 41 23 24 31 38 3B 43  41 4E 43 45 4C 20 41 4E  |DA#$18;CANCEL AN|
00000540: 20 44 52 55 43 4B 45 52  20 41 55 53 47 45 42 45  | DRUCKER AUSGEBE|
00000550: 4E 00 36 25 68 01 20 53  54 41 24 44 44 30 31 00  |N.6%h. STA$DD01.|
00000560: 5F 25 72 01 20 4C 44 41  24 44 44 30 30 3B 53 54  |_%r. LDA$DD00;ST|
00000570: 52 4F 42 45 20 41 4E 20  44 52 55 43 4B 45 52 20  |ROBE AN DRUCKER |
00000580: 41 55 53 47 45 42 45 4E  00 6C 25 7C 01 20 41 4E  |AUSGEBEN.l%|. AN|
00000590: 44 23 24 46 42 00 7A 25  86 01 20 53 54 41 24 44  |D#$FB.z%.. STA$D|
000005A0: 44 30 30 00 87 25 90 01  20 4F 52 41 23 24 30 34  |D00..%.. ORA#$04|
000005B0: 00 95 25 9A 01 20 53 54  41 24 44 44 30 30 00 9E  |..%.. STA$DD00..|
000005C0: 25 A4 01 20 52 54 53 00  E5 25 AE 01 3B 2A 2A 2A  |%.. RTS..%..;***|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000005F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000600: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 2C  |**************.,|
00000610: 26 B8 01 3B 2A 20 20 20  20 20 20 20 20 20 20 20  |&..;*           |
00000620: 41 55 53 47 41 42 45 53  50 52 55 45 4E 47 45 20  |AUSGABESPRUENGE |
00000630: 41 55 46 20 53 50 4F 4F  4C 45 52 20 55 4D 4C 45  |AUF SPOOLER UMLE|
00000640: 49 54 45 4E 20 20 20 20  20 20 20 20 20 20 20 20  |ITEN            |
00000650: 20 20 20 20 2A 00 73 26  C2 01 3B 2A 2A 2A 2A 2A  |    *.s&..;*****|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000690: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 00 81 26 CC  |************..&.|
000006A0: 01 20 2E 42 41 24 43 39  46 46 00 91 26 D6 01 20  |. .BA$C9FF..&.. |
000006B0: 4A 53 52 42 59 54 45 4F  55 54 00 9F 26 E0 01 20  |JSRBYTEOUT..&.. |
000006C0: 2E 42 41 24 43 41 34 31  00 AF 26 EA 01 20 4A 4D  |.BA$CA41..&.. JM|
000006D0: 50 43 52 43 48 45 43 4B  00 BD 26 F4 01 20 2E 42  |PCRCHECK..&.. .B|
000006E0: 41 24 43 41 34 43 00 CD  26 FE 01 20 4A 4D 50 43  |A$CA4C..&.. JMPC|
000006F0: 52 43 48 45 43 4B 00 DB  26 08 02 20 2E 42 41 24  |RCHECK..&.. .BA$|
00000700: 43 41 39 31 00 EB 26 12  02 20 4A 4D 50 43 52 43  |CA91..&.. JMPCRC|
00000710: 48 45 43 4B 00 F9 26 1C  02 20 2E 42 41 24 43 41  |HECK..&.. .BA$CA|
00000720: 41 36 00 09 27 26 02 20  4A 4D 50 43 52 43 48 45  |A6..'&. JMPCRCHE|
00000730: 43 4B 00 17 27 30 02 20  2E 42 41 24 43 42 31 33  |CK..'0. .BA$CB13|
00000740: 00 27 27 3A 02 20 4A 53  52 42 59 54 45 4F 55 54  |.'':. JSRBYTEOUT|
00000750: 00 35 27 44 02 20 2E 42  41 24 43 42 32 30 00 45  |.5'D. .BA$CB20.E|
00000760: 27 4E 02 20 4A 53 52 42  59 54 45 4F 55 54 00 53  |'N. JSRBYTEOUT.S|
00000770: 27 58 02 20 2E 42 41 24  43 42 35 34 00 63 27 62  |'X. .BA$CB54.c'b|
00000780: 02 20 4A 53 52 43 52 43  48 45 43 4B 00 71 27 6C  |. JSRCRCHECK.q'l|
00000790: 02 20 2E 42 41 24 43 42  36 41 00 81 27 76 02 20  |. .BA$CB6A..'v. |
000007A0: 4A 53 52 43 52 43 48 45  43 4B 00 8F 27 80 02 20  |JSRCRCHECK..'.. |
000007B0: 2E 42 41 24 43 42 37 32  00 9F 27 8A 02 20 4A 53  |.BA$CB72..'.. JS|
000007C0: 52 43 52 43 48 45 43 4B  00 AD 27 94 02 20 2E 42  |RCRCHECK..'.. .B|
000007D0: 41 24 43 42 37 37 00 BD  27 9E 02 20 4A 4D 50 43  |A$CB77..'.. JMPC|
000007E0: 52 43 48 45 43 4B 00 C3  27 A8 02 3B 00 0A 28 B2  |RCHECK..'..;..(.|
000007F0: 02 3B 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.;**************|
00000800: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000810: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000830: 2A 2A 2A 00 51 28 BC 02  3B 2A 20 45 49 4E 53 50  |***.Q(..;* EINSP|
00000840: 52 55 4E 47 20 46 55 45  52 20 53 50 45 49 43 48  |RUNG FUER SPEICH|
00000850: 45 52 4E 20 49 4E 20 50  55 46 46 45 52 20 20 28  |ERN IN PUFFER  (|
00000860: 24 41 30 30 30 2D 24 42  46 46 46 2B 24 44 30 30  |$A000-$BFFF+$D00|
00000870: 30 2D 24 46 46 46 46 29  20 2A 00 98 28 C6 02 3B  |0-$FFFF) *..(..;|
00000880: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000008A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000008B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000008C0: 2A 00 9E 28 D0 02 3B 00  AC 28 DA 02 20 2E 42 41  |*..(..;..(.. .BA|
000008D0: 24 43 42 44 37 00 B2 28  E4 02 3B 00 E3 28 EE 02  |$CBD7..(..;..(..|
000008E0: 43 52 43 48 45 43 4B 20  43 4D 50 23 24 30 44 3B  |CRCHECK CMP#$0D;|
000008F0: 49 53 54 20 44 41 53 20  5A 45 49 43 48 45 4E 20  |IST DAS ZEICHEN |
00000900: 45 49 4E 20 52 45 54 55  52 4E 20 3F 00 09 29 F8  |EIN RETURN ?..).|
00000910: 02 20 42 4E 45 42 59 54  45 4F 55 54 3B 4E 45 49  |. BNEBYTEOUT;NEI|
00000920: 4E 20 44 41 4E 4E 20 5A  55 52 20 41 55 53 47 41  |N DANN ZUR AUSGA|
00000930: 42 45 00 1E 29 02 03 20  50 48 41 3B 41 4B 4B 55  |BE..).. PHA;AKKU|
00000940: 20 52 45 54 54 45 4E 00  44 29 0C 03 20 4C 44 41  | RETTEN.D).. LDA|
00000950: 43 4F 55 4E 54 46 4C 41  47 3B 46 52 45 49 47 41  |COUNTFLAG;FREIGA|
00000960: 42 45 46 4C 41 47 20 54  45 53 54 45 4E 00 6F 29  |BEFLAG TESTEN.o)|
00000970: 16 03 20 42 50 4C 49 4E  43 43 4F 55 4E 54 3B 43  |.. BPLINCCOUNT;C|
00000980: 52 2D 5A 41 45 48 4C 45  52 20 49 4E 43 52 45 4D  |R-ZAEHLER INCREM|
00000990: 45 4E 54 49 45 52 45 4E  00 8F 29 20 03 43 4F 4E  |ENTIEREN..) .CON|
000009A0: 54 31 20 50 4C 41 3B 41  4B 4B 55 20 5A 55 52 55  |T1 PLA;AKKU ZURU|
000009B0: 45 43 4B 48 4F 4C 45 4E  00 9F 29 2A 03 20 4A 4D  |ECKHOLEN..)*. JM|
000009C0: 50 42 59 54 45 4F 55 54  00 D6 29 34 03 49 4E 43  |PBYTEOUT..)4.INC|
000009D0: 43 4F 55 4E 54 20 49 4E  43 43 4F 55 4E 54 46 4C  |COUNT INCCOUNTFL|
000009E0: 41 47 3B 36 20 42 49 54  20 5A 41 45 48 4C 45 52  |AG;6 BIT ZAEHLER|
000009F0: 20 49 4E 43 52 45 4D 45  4E 54 49 45 52 45 4E 00  | INCREMENTIEREN.|
00000A00: 06 2A 3E 03 20 4C 44 41  43 4F 55 4E 54 46 4C 41  |.*>. LDACOUNTFLA|
00000A10: 47 3B 41 4B 4B 55 20 4D  49 54 20 41 4B 54 55 45  |G;AKKU MIT AKTUE|
00000A20: 4C 4C 45 4D 20 57 45 52  54 20 4C 41 44 45 4E 00  |LLEM WERT LADEN.|
00000A30: 2E 2A 48 03 20 41 4E 44  23 24 33 46 3B 52 45 53  |.*H. AND#$3F;RES|
00000A40: 54 4C 49 43 48 45 20 46  4C 41 47 53 20 41 55 53  |TLICHE FLAGS AUS|
00000A50: 42 4C 45 4E 44 45 4E 00  4F 2A 52 03 20 43 4D 50  |BLENDEN.O*R. CMP|
00000A60: 23 36 32 3B 3D 36 32 20  5A 45 49 4C 45 4E 20 50  |#62;=62 ZEILEN P|
00000A70: 52 4F 20 42 4C 41 54 54  00 7F 2A 5C 03 20 42 43  |RO BLATT..*\. BC|
00000A80: 43 43 4F 4E 54 31 3B 57  45 4E 4E 20 5A 41 45 48  |CCONT1;WENN ZAEH|
00000A90: 4C 45 52 20 3C 20 36 32  20 4E 4F 52 4D 41 4C 45  |LER < 62 NORMALE|
00000AA0: 20 41 55 53 47 41 42 45  00 9A 2A 66 03 20 50 4C  | AUSGABE..*f. PL|
00000AB0: 41 3B 41 4E 53 4F 4E 53  54 45 4E 20 5A 45 49 43  |A;ANSONSTEN ZEIC|
00000AC0: 48 45 4E 00 B3 2A 70 03  20 4A 53 52 42 59 54 45  |HEN..*p. JSRBYTE|
00000AD0: 4F 55 54 3B 41 55 53 47  45 42 45 4E 00 CD 2A 7A  |OUT;AUSGEBEN..*z|
00000AE0: 03 20 4C 44 41 23 24 30  43 3B 55 4E 44 20 46 4F  |. LDA#$0C;UND FO|
00000AF0: 52 4D 46 45 45 44 00 E6  2A 84 03 20 4A 53 52 42  |RMFEED..*.. JSRB|
00000B00: 59 54 45 4F 55 54 3B 41  55 53 47 45 42 45 4E 00  |YTEOUT;AUSGEBEN.|
00000B10: 06 2B 8E 03 20 4C 44 41  43 4F 55 4E 54 46 4C 41  |.+.. LDACOUNTFLA|
00000B20: 47 3B 36 2D 42 49 54 20  5A 41 45 48 4C 45 52 00  |G;6-BIT ZAEHLER.|
00000B30: 21 2B 98 03 20 41 4E 44  23 24 43 30 3B 5A 55 52  |!+.. AND#$C0;ZUR|
00000B40: 55 45 43 4B 53 45 54 5A  45 4E 00 37 2B A2 03 20  |UECKSETZEN.7+.. |
00000B50: 53 54 41 43 4F 55 4E 54  46 4C 41 47 3B 55 4E 44  |STACOUNTFLAG;UND|
00000B60: 00 47 2B AC 03 20 52 54  53 3B 46 45 52 54 49 47  |.G+.. RTS;FERTIG|
00000B70: 00 79 2B B6 03 42 59 54  45 4F 55 54 20 53 54 41  |.y+..BYTEOUT STA|
00000B80: 42 59 54 45 53 41 56 45  3B 41 55 53 5A 55 47 45  |BYTESAVE;AUSZUGE|
00000B90: 42 45 4E 44 45 53 20 42  59 54 45 20 52 45 54 54  |BENDES BYTE RETT|
00000BA0: 45 4E 00 95 2B C0 03 20  4C 44 41 24 30 31 3B 50  |EN..+.. LDA$01;P|
00000BB0: 52 4F 5A 45 53 53 4F 52  53 54 41 54 55 53 00 A5  |ROZESSORSTATUS..|
00000BC0: 2B CA 03 20 50 48 41 3B  52 45 54 54 45 4E 00 C4  |+.. PHA;RETTEN..|
00000BD0: 2B D4 03 20 53 45 49 3B  49 4E 54 45 52 52 55 50  |+.. SEI;INTERRUP|
00000BE0: 54 53 20 56 45 52 48 49  4E 44 45 52 4E 00 EA 2B  |TS VERHINDERN..+|
00000BF0: DE 03 20 4C 44 41 49 52  51 46 4C 41 47 3B 50 55  |.. LDAIRQFLAG;PU|
00000C00: 46 46 45 52 20 55 45 42  45 52 47 45 4C 41 55 46  |FFER UEBERGELAUF|
00000C10: 45 4E 3F 00 F7 2B E8 03  20 41 4E 44 23 24 34 30  |EN?..+.. AND#$40|
00000C20: 00 06 2C F2 03 20 42 4E  45 4D 30 31 3B 4A 41 00  |..,.. BNEM01;JA.|
00000C30: 23 2C FC 03 20 4C 44 41  49 52 51 46 4C 41 47 3B  |#,.. LDAIRQFLAG;|
00000C40: 50 55 46 46 45 52 20 4C  45 45 52 3F 00 30 2C 06  |PUFFER LEER?.0,.|
00000C50: 04 20 41 4E 44 23 24 31  30 00 41 2C 10 04 20 42  |. AND#$10.A,.. B|
00000C60: 4E 45 4D 30 33 3B 4E 45  49 4E 00 47 2C 1A 04 3B  |NEM03;NEIN.G,..;|
00000C70: 00 8A 2C 24 04 3B 20 20  20 20 20 20 20 20 20 20  |..,$.;          |
00000C80: 20 20 20 20 20 20 20 20  20 20 20 50 4F 49 4E 54  |           POINT|
00000C90: 45 52 20 2B 20 49 4E 54  45 52 52 55 50 54 56 45  |ER + INTERRUPTVE|
00000CA0: 4B 54 4F 52 20 49 4E 49  54 49 41 4C 49 53 49 45  |KTOR INITIALISIE|
00000CB0: 52 45 4E 00 90 2C 2E 04  3B 00 B6 2C 38 04 20 4C  |REN..,..;..,8. L|
00000CC0: 44 41 24 30 33 31 34 3B  49 4E 54 45 52 52 55 50  |DA$0314;INTERRUP|
00000CD0: 54 56 45 4B 54 4F 52 20  53 49 43 48 45 52 4E 00  |TVEKTOR SICHERN.|
00000CE0: C7 2C 42 04 20 53 54 41  49 52 51 4F 4C 44 2B 31  |.,B. STAIRQOLD+1|
00000CF0: 00 D5 2C 4C 04 20 4C 44  41 24 30 33 31 35 00 E6  |..,L. LDA$0315..|
00000D00: 2C 56 04 20 53 54 41 49  52 51 4F 4C 44 2B 32 00  |,V. STAIRQOLD+2.|
00000D10: 17 2D 60 04 20 4C 44 41  23 3C 28 49 52 51 4E 45  |.-`. LDA#<(IRQNE|
00000D20: 57 29 3B 49 4E 54 45 52  52 55 50 54 56 45 4B 20  |W);INTERRUPTVEK |
00000D30: 41 55 46 20 4E 45 55 45  20 52 4F 55 54 49 4E 45  |AUF NEUE ROUTINE|
00000D40: 00 2F 2D 6A 04 20 53 54  41 24 30 33 31 34 3B 56  |./-j. STA$0314;V|
00000D50: 45 52 42 49 45 47 45 4E  00 42 2D 74 04 20 4C 44  |ERBIEGEN.B-t. LD|
00000D60: 41 23 3E 28 49 52 51 4E  45 57 29 00 50 2D 7E 04  |A#>(IRQNEW).P-~.|
00000D70: 20 53 54 41 24 30 33 31  35 00 70 2D 88 04 20 4C  | STA$0315.p-.. L|
00000D80: 44 41 23 24 30 34 3B 49  4E 54 45 52 52 55 50 54  |DA#$04;INTERRUPT|
00000D90: 54 49 4D 45 52 20 41 55  46 00 88 2D 92 04 20 53  |TIMER AUF..-.. S|
00000DA0: 54 41 24 44 43 30 34 3B  31 2F 34 38 30 20 53 45  |TA$DC04;1/480 SE|
00000DB0: 4B 00 9C 2D 9C 04 20 4C  44 41 23 24 30 38 3B 53  |K..-.. LDA#$08;S|
00000DC0: 45 54 5A 45 4E 00 AA 2D  A6 04 20 53 54 41 24 44  |ETZEN..-.. STA$D|
00000DD0: 43 30 35 00 BA 2D B0 04  20 4C 44 41 49 52 51 46  |C05..-.. LDAIRQF|
00000DE0: 4C 41 47 00 DE 2D BA 04  20 4F 52 41 23 24 31 30  |LAG..-.. ORA#$10|
00000DF0: 3B 46 4C 41 47 20 46 55  45 52 20 50 55 46 46 45  |;FLAG FUER PUFFE|
00000E00: 52 20 4E 49 43 48 54 00  FA 2D C4 04 20 53 54 41  |R NICHT..-.. STA|
00000E10: 49 52 51 46 4C 41 47 3B  4C 45 45 52 20 53 45 54  |IRQFLAG;LEER SET|
00000E20: 5A 45 4E 00 26 2E CE 04  20 4C 44 41 23 24 41 30  |ZEN.&... LDA#$A0|
00000E30: 3B 42 45 49 44 45 20 50  4F 49 4E 54 45 52 20 41  |;BEIDE POINTER A|
00000E40: 55 46 20 24 41 30 30 30  20 53 45 54 5A 45 4E 00  |UF $A000 SETZEN.|
00000E50: 39 2E D8 04 20 53 54 41  50 4F 49 4E 54 45 52 31  |9... STAPOINTER1|
00000E60: 2B 32 00 4C 2E E2 04 20  53 54 41 50 4F 49 4E 54  |+2.L... STAPOINT|
00000E70: 45 52 32 2B 32 00 59 2E  EC 04 20 4C 44 41 23 24  |ER2+2.Y... LDA#$|
00000E80: 30 30 00 6C 2E F6 04 20  53 54 41 50 4F 49 4E 54  |00.l... STAPOINT|
00000E90: 45 52 31 2B 31 00 7F 2E  00 05 20 53 54 41 50 4F  |ER1+1..... STAPO|
00000EA0: 49 4E 54 45 52 32 2B 31  00 8B 2E 0A 05 20 4A 4D  |INTER2+1..... JM|
00000EB0: 50 4D 30 33 00 AB 2E 14  05 4D 30 31 20 43 4C 49  |PM03.....M01 CLI|
00000EC0: 3B 49 4E 54 45 52 52 55  50 54 53 20 5A 55 4C 41  |;INTERRUPTS ZULA|
00000ED0: 53 53 45 4E 00 DA 2E 1E  05 57 41 49 54 20 4C 44  |SSEN.....WAIT LD|
00000EE0: 41 50 4F 49 4E 54 45 52  31 2B 31 3B 50 4F 49 4E  |APOINTER1+1;POIN|
00000EF0: 54 45 52 20 31 20 3D 20  50 4F 49 4E 54 45 52 20  |TER 1 = POINTER |
00000F00: 32 20 3F 00 ED 2E 28 05  20 43 4D 50 50 4F 49 4E  |2 ?...(. CMPPOIN|
00000F10: 54 45 52 32 2B 31 00 FE  2E 32 05 20 42 4E 45 4D  |TER2+1...2. BNEM|
00000F20: 30 32 3B 4E 45 49 4E 00  22 2F 3C 05 20 4C 44 41  |02;NEIN."/<. LDA|
00000F30: 50 4F 49 4E 54 45 52 31  2B 32 3B 57 45 4E 4E 20  |POINTER1+2;WENN |
00000F40: 47 4C 45 49 43 48 20 44  41 4E 4E 00 40 2F 46 05  |GLEICH DANN.@/F.|
00000F50: 20 43 4D 50 50 4F 49 4E  54 45 52 32 2B 32 3B 57  | CMPPOINTER2+2;W|
00000F60: 41 52 54 45 4E 20 42 49  53 00 63 2F 50 05 20 42  |ARTEN BIS.c/P. B|
00000F70: 45 51 57 41 49 54 3B 50  4F 49 4E 54 45 52 20 32  |EQWAIT;POINTER 2|
00000F80: 20 3E 20 50 4F 49 4E 54  45 52 20 31 00 85 2F 5A  | > POINTER 1../Z|
00000F90: 05 4D 30 32 20 53 45 49  3B 49 4E 54 45 52 52 55  |.M02 SEI;INTERRU|
00000FA0: 50 54 53 20 56 45 52 48  49 4E 44 45 52 4E 00 AB  |PTS VERHINDERN..|
00000FB0: 2F 64 05 4D 30 33 20 4C  44 41 23 24 33 34 3B 52  |/d.M03 LDA#$34;R|
00000FC0: 4F 4D 20 2B 20 49 2F 4F  20 41 55 53 53 43 48 41  |OM + I/O AUSSCHA|
00000FD0: 4C 54 45 4E 00 B7 2F 6E  05 20 53 54 41 24 30 31  |LTEN../n. STA$01|
00000FE0: 00 D3 2F 78 05 20 4C 44  41 42 59 54 45 53 41 56  |../x. LDABYTESAV|
00000FF0: 45 3B 42 59 54 45 20 48  4F 4C 45 4E 00 09 30 82  |E;BYTE HOLEN..0.|
00001000: 05 50 4F 49 4E 54 45 52  31 20 53 54 41 24 46 46  |.POINTER1 STA$FF|
00001010: 46 46 3B 28 44 55 4D 4D  59 29 20 55 4E 44 20 49  |FF;(DUMMY) UND I|
00001020: 4E 20 50 55 46 46 45 52  20 53 50 45 49 43 48 45  |N PUFFER SPEICHE|
00001030: 52 4E 00 2F 30 8C 05 20  50 4C 41 3B 50 52 4F 5A  |RN./0.. PLA;PROZ|
00001040: 45 53 53 4F 52 53 54 41  54 55 53 20 5A 55 52 55  |ESSORSTATUS ZURU|
00001050: 45 43 4B 48 4F 4C 45 4E  00 55 30 96 05 20 53 54  |ECKHOLEN.U0.. ST|
00001060: 41 24 30 31 3B 55 4E 44  20 52 4F 4D 20 2B 20 49  |A$01;UND ROM + I|
00001070: 2F 4F 20 45 49 4E 53 43  48 41 4C 54 45 4E 00 81  |/O EINSCHALTEN..|
00001080: 30 A0 05 20 49 4E 43 50  4F 49 4E 54 45 52 31 2B  |0.. INCPOINTER1+|
00001090: 31 3B 50 4F 49 4E 54 45  52 20 31 20 49 4E 43 52  |1;POINTER 1 INCR|
000010A0: 45 4D 45 4E 54 49 45 52  45 4E 00 A5 30 AA 05 20  |EMENTIEREN..0.. |
000010B0: 42 4E 45 4D 30 35 3B 57  45 4E 4E 20 4C 53 42 3C  |BNEM05;WENN LSB<|
000010C0: 3E 30 20 44 41 4E 4E 20  46 45 52 54 49 47 00 D4  |>0 DANN FERTIG..|
000010D0: 30 B4 05 20 49 4E 43 50  4F 49 4E 54 45 52 31 2B  |0.. INCPOINTER1+|
000010E0: 32 3B 57 45 4E 4E 20 4D  53 42 3D 30 20 44 41 4E  |2;WENN MSB=0 DAN|
000010F0: 4E 20 46 4C 41 47 20 53  45 54 5A 45 4E 00 E3 30  |N FLAG SETZEN..0|
00001100: BE 05 20 42 45 51 4D 30  34 3B 4A 41 00 0F 31 C8  |.. BEQM04;JA..1.|
00001110: 05 20 4C 44 41 50 4F 49  4E 54 45 52 31 2B 32 3B  |. LDAPOINTER1+2;|
00001120: 41 44 52 45 53 53 45 20  24 43 30 30 30 20 45 52  |ADRESSE $C000 ER|
00001130: 52 45 49 43 48 54 20 3F  00 1C 31 D2 05 20 43 4D  |REICHT ?..1.. CM|
00001140: 50 23 24 43 30 00 39 31  DC 05 20 42 4E 45 4D 30  |P#$C0.91.. BNEM0|
00001150: 35 3B 4E 45 49 4E 20 44  41 4E 4E 20 46 45 52 54  |5;NEIN DANN FERT|
00001160: 49 47 00 62 31 E6 05 20  4C 44 41 23 24 44 30 3B  |IG.b1.. LDA#$D0;|
00001170: 4A 41 20 44 41 4E 4E 20  50 4F 49 4E 54 45 52 20  |JA DANN POINTER |
00001180: 31 20 41 55 46 20 24 44  30 30 30 00 75 31 F0 05  |1 AUF $D000.u1..|
00001190: 20 53 54 41 50 4F 49 4E  54 45 52 31 2B 32 00 81  | STAPOINTER1+2..|
000011A0: 31 FA 05 20 4A 4D 50 4D  30 35 00 94 31 04 06 4D  |1.. JMPM05..1..M|
000011B0: 30 34 20 4C 44 41 49 52  51 46 4C 41 47 00 A1 31  |04 LDAIRQFLAG..1|
000011C0: 0E 06 20 4F 52 41 23 24  34 30 00 C6 31 18 06 20  |.. ORA#$40..1.. |
000011D0: 53 54 41 49 52 51 46 4C  41 47 3B 55 45 42 45 52  |STAIRQFLAG;UEBER|
000011E0: 4C 41 55 46 46 4C 41 47  20 53 45 54 5A 45 4E 00  |LAUFFLAG SETZEN.|
000011F0: E7 31 22 06 20 4C 44 41  23 24 41 30 3B 50 4F 49  |.1". LDA#$A0;POI|
00001200: 4E 54 45 52 20 31 20 41  55 46 20 24 41 30 30 30  |NTER 1 AUF $A000|
00001210: 00 01 32 2C 06 20 53 54  41 50 4F 49 4E 54 45 52  |..2,. STAPOINTER|
00001220: 31 2B 32 3B 53 45 54 5A  45 4E 00 21 32 36 06 4D  |1+2;SETZEN.!26.M|
00001230: 30 35 20 43 4C 49 3B 49  4E 54 45 52 52 55 50 54  |05 CLI;INTERRUPT|
00001240: 53 20 5A 55 4C 41 53 53  45 4E 00 2A 32 40 06 20  |S ZULASSEN.*2@. |
00001250: 52 54 53 00 30 32 4A 06  3B 00 56 32 54 06 3B 2A  |RTS.02J.;.V2T.;*|
00001260: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001270: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
00001280: 7C 32 5E 06 3B 2A 20 20  20 20 20 20 49 4E 54 45  ||2^.;*      INTE|
00001290: 52 52 55 50 54 45 49 4E  53 50 52 55 4E 47 20 20  |RRUPTEINSPRUNG  |
000012A0: 20 20 20 20 2A 00 A2 32  68 06 3B 2A 2A 2A 2A 2A  |    *..2h.;*****|
000012B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000012C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 A8 32 72 06  |***********..2r.|
000012D0: 3B 00 AE 32 7C 06 3B 00  C2 32 86 06 49 52 51 4E  |;..2|.;..2..IRQN|
000012E0: 45 57 20 4C 44 41 24 44  44 30 44 00 E0 32 90 06  |EW LDA$DD0D..2..|
000012F0: 20 41 4E 44 23 24 31 30  3B 44 52 55 43 4B 45 52  | AND#$10;DRUCKER|
00001300: 20 42 45 52 45 49 54 20  3F 00 F5 32 9A 06 20 42  | BEREIT ?..2.. B|
00001310: 45 51 49 52 51 45 58 49  54 3B 4E 45 49 4E 00 18  |EQIRQEXIT;NEIN..|
00001320: 33 A4 06 20 4C 44 59 24  30 31 3B 50 52 4F 5A 45  |3.. LDY$01;PROZE|
00001330: 53 53 4F 52 53 54 41 54  55 53 20 52 45 54 54 45  |SSORSTATUS RETTE|
00001340: 4E 00 3B 33 AE 06 20 4C  44 41 23 24 33 34 3B 52  |N.;3.. LDA#$34;R|
00001350: 4F 4D 20 2B 20 49 2F 4F  20 41 55 53 53 43 48 41  |OM + I/O AUSSCHA|
00001360: 4C 54 45 4E 00 47 33 B8  06 20 53 54 41 24 30 31  |LTEN.G3.. STA$01|
00001370: 00 7B 33 C2 06 50 4F 49  4E 54 45 52 32 20 4C 44  |.{3..POINTER2 LD|
00001380: 41 24 46 46 46 46 3B 28  44 55 4D 4D 59 29 20 42  |A$FFFF;(DUMMY) B|
00001390: 59 54 45 20 41 55 53 20  50 55 46 46 45 52 20 48  |YTE AUS PUFFER H|
000013A0: 4F 4C 45 4E 00 9D 33 CC  06 20 53 54 59 24 30 31  |OLEN..3.. STY$01|
000013B0: 3B 52 4F 4D 20 2B 20 49  2F 4F 20 45 49 4E 53 43  |;ROM + I/O EINSC|
000013C0: 48 41 4C 54 45 4E 00 C5  33 D6 06 20 53 54 41 24  |HALTEN..3.. STA$|
000013D0: 44 44 30 31 3B 42 59 54  45 20 41 4E 20 55 53 45  |DD01;BYTE AN USE|
000013E0: 52 50 4F 52 54 20 41 55  53 47 45 42 45 4E 00 E1  |RPORT AUSGEBEN..|
000013F0: 33 E0 06 20 4C 44 41 24  44 44 30 30 3B 53 54 52  |3.. LDA$DD00;STR|
00001400: 4F 42 45 20 53 49 47 4E  41 4C 00 F5 33 EA 06 20  |OBE SIGNAL..3.. |
00001410: 41 4E 44 23 24 46 42 3B  53 45 54 5A 45 4E 00 03  |AND#$FB;SETZEN..|
00001420: 34 F4 06 20 53 54 41 24  44 44 30 30 00 10 34 FE  |4.. STA$DD00..4.|
00001430: 06 20 4F 52 41 23 24 30  34 00 1E 34 08 07 20 53  |. ORA#$04..4.. S|
00001440: 54 41 24 44 44 30 30 00  4A 34 12 07 20 49 4E 43  |TA$DD00.J4.. INC|
00001450: 50 4F 49 4E 54 45 52 32  2B 31 3B 50 4F 49 4E 54  |POINTER2+1;POINT|
00001460: 45 52 20 32 20 49 4E 43  52 45 4D 45 4E 54 49 45  |ER 2 INCREMENTIE|
00001470: 52 45 4E 00 56 34 1C 07  20 42 4E 45 4D 30 37 00  |REN.V4.. BNEM07.|
00001480: 87 34 26 07 20 49 4E 43  50 4F 49 4E 54 45 52 32  |.4&. INCPOINTER2|
00001490: 2B 32 3B 57 45 4E 4E 20  4D 53 42 3D 30 20 44 41  |+2;WENN MSB=0 DA|
000014A0: 4E 4E 20 46 4C 41 47 20  4C 4F 45 53 43 48 45 4E  |NN FLAG LOESCHEN|
000014B0: 00 93 34 30 07 20 42 45  51 4D 30 36 00 BF 34 3A  |..40. BEQM06..4:|
000014C0: 07 20 4C 44 41 50 4F 49  4E 54 45 52 32 2B 32 3B  |. LDAPOINTER2+2;|
000014D0: 41 44 52 45 53 53 45 20  24 43 30 30 30 20 45 52  |ADRESSE $C000 ER|
000014E0: 52 45 49 43 48 54 20 3F  00 CC 34 44 07 20 43 4D  |REICHT ?..4D. CM|
000014F0: 50 23 24 43 30 00 DD 34  4E 07 20 42 4E 45 4D 30  |P#$C0..4N. BNEM0|
00001500: 37 3B 4E 45 49 4E 00 06  35 58 07 20 4C 44 41 23  |7;NEIN..5X. LDA#|
00001510: 24 44 30 3B 4A 41 20 44  41 4E 4E 20 50 4F 49 4E  |$D0;JA DANN POIN|
00001520: 54 45 52 20 32 20 41 55  46 20 24 44 30 30 30 00  |TER 2 AUF $D000.|
00001530: 19 35 62 07 20 53 54 41  50 4F 49 4E 54 45 52 32  |.5b. STAPOINTER2|
00001540: 2B 32 00 25 35 6C 07 20  4A 4D 50 4D 30 37 00 45  |+2.%5l. JMPM07.E|
00001550: 35 76 07 4D 30 36 20 4C  44 41 49 52 51 46 4C 41  |5v.M06 LDAIRQFLA|
00001560: 47 3B 55 42 45 52 4C 41  55 46 46 4C 41 47 00 5B  |G;UBERLAUFFLAG.[|
00001570: 35 80 07 20 41 4E 44 23  24 42 46 3B 4C 4F 45 53  |5.. AND#$BF;LOES|
00001580: 43 48 45 4E 00 6B 35 8A  07 20 53 54 41 49 52 51  |CHEN.k5.. STAIRQ|
00001590: 46 4C 41 47 00 93 35 94  07 20 4C 44 41 23 24 41  |FLAG..5.. LDA#$A|
000015A0: 30 3B 50 4F 49 4E 54 45  52 20 32 20 41 55 46 20  |0;POINTER 2 AUF |
000015B0: 24 41 30 30 30 20 53 45  54 5A 45 4E 00 A6 35 9E  |$A000 SETZEN..5.|
000015C0: 07 20 53 54 41 50 4F 49  4E 54 45 52 32 2B 32 00  |. STAPOINTER2+2.|
000015D0: D4 35 A8 07 4D 30 37 20  4C 44 41 50 4F 49 4E 54  |.5..M07 LDAPOINT|
000015E0: 45 52 31 2B 31 3B 50 4F  49 4E 54 45 52 20 31 20  |ER1+1;POINTER 1 |
000015F0: 3D 20 50 4F 49 4E 54 45  52 20 32 20 3F 00 E7 35  |= POINTER 2 ?..5|
00001600: B2 07 20 43 4D 50 50 4F  49 4E 54 45 52 32 2B 31  |.. CMPPOINTER2+1|
00001610: 00 FC 35 BC 07 20 42 4E  45 49 52 51 45 58 49 54  |..5.. BNEIRQEXIT|
00001620: 3B 4E 45 49 4E 00 0F 36  C6 07 20 4C 44 41 50 4F  |;NEIN..6.. LDAPO|
00001630: 49 4E 54 45 52 31 2B 32  00 22 36 D0 07 20 43 4D  |INTER1+2."6.. CM|
00001640: 50 50 4F 49 4E 54 45 52  32 2B 32 00 37 36 DA 07  |PPOINTER2+2.76..|
00001650: 20 42 4E 45 49 52 51 45  58 49 54 3B 4E 45 49 4E  | BNEIRQEXIT;NEIN|
00001660: 00 5A 36 E4 07 20 4C 44  41 23 24 30 30 3B 49 4E  |.Z6.. LDA#$00;IN|
00001670: 54 45 52 52 55 50 54 46  4C 41 47 52 45 47 49 53  |TERRUPTFLAGREGIS|
00001680: 54 45 52 00 73 36 EE 07  20 53 54 41 49 52 51 46  |TER.s6.. STAIRQF|
00001690: 4C 41 47 3B 4C 4F 45 53  43 48 45 4E 00 9A 36 F8  |LAG;LOESCHEN..6.|
000016A0: 07 20 4C 44 41 49 52 51  4F 4C 44 2B 31 3B 41 4C  |. LDAIRQOLD+1;AL|
000016B0: 54 45 4E 20 49 4E 54 45  52 52 55 50 54 56 45 4B  |TEN INTERRUPTVEK|
000016C0: 54 4F 52 00 B9 36 02 08  20 53 54 41 24 30 33 31  |TOR..6.. STA$031|
000016D0: 34 3B 5A 55 52 55 45 43  4B 53 50 45 49 43 48 45  |4;ZURUECKSPEICHE|
000016E0: 52 4E 00 CA 36 0C 08 20  4C 44 41 49 52 51 4F 4C  |RN..6.. LDAIRQOL|
000016F0: 44 2B 32 00 D8 36 16 08  20 53 54 41 24 30 33 31  |D+2..6.. STA$031|
00001700: 35 00 F8 36 20 08 20 4C  44 41 23 24 32 35 3B 49  |5..6 . LDA#$25;I|
00001710: 4E 54 45 52 52 55 50 54  54 49 4D 45 52 20 41 55  |NTERRUPTTIMER AU|
00001720: 46 00 0F 37 2A 08 20 53  54 41 24 44 43 30 34 3B  |F..7*. STA$DC04;|
00001730: 31 2F 36 30 20 53 45 4B  00 2A 37 34 08 20 4C 44  |1/60 SEK.*74. LD|
00001740: 41 23 24 34 30 3B 5A 55  52 55 45 43 4B 53 45 54  |A#$40;ZURUECKSET|
00001750: 5A 45 4E 00 38 37 3E 08  20 53 54 41 24 44 43 30  |ZEN.87>. STA$DC0|
00001760: 35 00 51 37 48 08 20 4A  4D 50 49 52 51 4F 4C 44  |5.Q7H. JMPIRQOLD|
00001770: 3B 55 4E 44 46 45 52 54  49 47 00 88 37 52 08 49  |;UNDFERTIG..7R.I|
00001780: 52 51 45 58 49 54 20 49  4E 43 49 52 51 46 4C 41  |RQEXIT INCIRQFLA|
00001790: 47 3B 49 4E 54 45 52 52  55 50 54 5A 41 45 48 4C  |G;INTERRUPTZAEHL|
000017A0: 45 52 20 49 4E 43 52 45  4D 45 4E 54 49 45 52 45  |ER INCREMENTIERE|
000017B0: 4E 00 AD 37 5C 08 20 4C  44 41 49 52 51 46 4C 41  |N..7\. LDAIRQFLA|
000017C0: 47 3B 41 4B 4B 55 20 4D  49 54 20 57 45 52 54 20  |G;AKKU MIT WERT |
000017D0: 4C 44 41 44 45 4E 00 CD  37 66 08 20 41 4E 44 23  |LDADEN..7f. AND#|
000017E0: 24 30 46 3B 46 4C 41 47  53 20 41 55 53 4D 41 53  |$0F;FLAGS AUSMAS|
000017F0: 4B 49 45 52 45 4E 00 F6  37 70 08 20 43 4D 50 23  |KIEREN..7p. CMP#|
00001800: 24 30 38 3B 53 43 48 4F  4E 20 44 45 52 20 41 43  |$08;SCHON DER AC|
00001810: 48 54 45 20 49 4E 54 45  52 52 55 50 54 20 3F 00  |HTE INTERRUPT ?.|
00001820: 1D 38 7A 08 20 42 43 53  4D 30 38 3B 57 45 4E 4E  |.8z. BCSM08;WENN|
00001830: 20 4A 41 20 5A 41 45 48  4C 42 49 54 53 20 4C 4F  | JA ZAEHLBITS LO|
00001840: 45 53 43 48 45 4E 00 4B  38 84 08 49 52 51 45 4E  |ESCHEN.K8..IRQEN|
00001850: 44 20 4A 4D 50 24 45 41  37 45 3B 53 50 52 55 4E  |D JMP$EA7E;SPRUN|
00001860: 47 20 4E 41 43 48 20 49  4E 54 45 52 52 55 50 54  |G NACH INTERRUPT|
00001870: 45 4E 44 45 00 6F 38 8E  08 4D 30 38 20 4C 44 41  |ENDE.o8..M08 LDA|
00001880: 49 52 51 46 4C 41 47 3B  49 4E 54 45 52 52 55 50  |IRQFLAG;INTERRUP|
00001890: 54 5A 41 45 48 4C 45 52  00 8A 38 98 08 20 41 4E  |TZAEHLER..8.. AN|
000018A0: 44 23 24 46 30 3B 5A 55  52 55 45 43 4B 53 45 54  |D#$F0;ZURUECKSET|
000018B0: 5A 45 4E 00 9A 38 A2 08  20 53 54 41 49 52 51 46  |ZEN..8.. STAIRQF|
000018C0: 4C 41 47 00 CF 38 AC 08  49 52 51 4F 4C 44 20 4A  |LAG..8..IRQOLD J|
000018D0: 4D 50 24 46 46 46 46 3B  28 44 55 4D 4D 59 29 20  |MP$FFFF;(DUMMY) |
000018E0: 53 50 52 55 4E 47 20 5A  55 52 20 52 4F 4D 49 52  |SPRUNG ZUR ROMIR|
000018F0: 51 52 4F 55 54 49 4E 45  00 04 39 B6 08 42 59 54  |QROUTINE..9..BYT|
00001900: 45 53 41 56 45 20 2E 42  59 24 30 30 3B 53 50 45  |ESAVE .BY$00;SPE|
00001910: 49 43 48 45 52 20 46 55  45 52 20 41 55 53 5A 55  |ICHER FUER AUSZU|
00001920: 47 45 42 45 4E 44 45 53  20 42 59 54 45 00 24 39  |GEBENDES BYTE.$9|
00001930: C0 08 49 52 51 46 4C 41  47 20 2E 42 59 24 30 30  |..IRQFLAG .BY$00|
00001940: 3B 46 4C 41 47 52 45 47  49 53 54 45 52 00 51 39  |;FLAGREGISTER.Q9|
00001950: CA 08 43 4F 55 4E 54 46  4C 41 47 20 2E 42 59 24  |..COUNTFLAG .BY$|
00001960: 30 30 3B 46 4C 41 47 2B  5A 41 45 48 4C 52 45 47  |00;FLAG+ZAEHLREG|
00001970: 49 53 54 45 52 20 46 55  45 52 00 95 39 D4 08 3B  |ISTER FUER..9..;|
00001980: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001990: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000019A0: 20 20 20 20 20 20 20 20  20 20 20 20 50 45 52 46  |            PERF|
000019B0: 4F 52 41 54 49 4F 4E 53  53 50 52 55 4E 47 00 00  |ORATIONSSPRUNG..|
000019C0: 00                                                |.               |

X.. D.;*********************************
********************************.F N.;* 
                                        
                      *.. X.;*          
    D R U C K E R - S P O O L E R  V1.0 
             *.. ..;*                   
                                        
    *.;!..;*            FUER DRUCKER MIT
 CENTRONICSSCHNITTSTELLE           *..!.
.;*                                     
                          *.I! .;*   WRI
TTEN BY:ROLAND SCHENK D-6342 HAIGER 6 WA
CHENBERGSTR.27   *.."..;*               
                                        
        *.W"..;* DIESES PROGRAMM STELLT 
EINE ERWEITERUNG DER IN SONDERHEFT 4/85*
.."..;* (MARKT&TECHNIK VERLAG) VEROEFFEN
TLICHTEN EYSSELE-SCHNITTSTELLE*.."H.;* D
AR. VOR ASSEMBLIERUNG DIESES PROGRAMMS M
USS DIE EYSSELE-     *.,#R.;* SCHNITTSTE
LLE IN DEN SPEICHER AB $C900 GELADEN WER
DEN         *.S#..;*                    
                                        
   *..#..;******************************
***********************************..#..
;.F#..;.T#.. .BA$C93F.Z#..;.!$..;*******
****************************************
******************.H$".;*     INITIALISI
ERUNG DER EYSSELE-SCHNITTSTELLE MODIFIZI
EREN    *..$,.;*************************
****************************************
..$6.;.O$@. LDA#$00;FLAGREGISTER..$J. ST
ACOUNTFLAG;INITIALISIEREN..%T. STAIRQFLA
G.(%^. LDA#$18;CANCEL AN DRUCKER AUSGEBE
N.6%H. STA$DD01._%R. LDA$DD00;STROBE AN 
DRUCKER AUSGEBEN.L%|. AND#$FB.Z%.. STA$D
D00..%.. ORA#$04..%.. STA$DD00..%.. RTS.
.%..;***********************************
******************************.,&..;*   
        AUSGABESPRUENGE AUF SPOOLER UMLE
ITEN                *.S&B.;*************
****************************************
************..&L. .BA$C9FF..&V. JSRBYTEO
UT..&.. .BA$CA41..&.. JMPCRCHECK..&.. .B
A$CA4C.M&.. JMPCRCHECK..&.. .BA$CA91..&.
. JMPCRCHECK..&.. .BA$CAA6..'&. JMPCRCHE
CK..'0. .BA$CB13.'':. JSRBYTEOUT.5'D. .B
A$CB20.E'N. JSRBYTEOUT.S'X. .BA$CB54.C'B
. JSRCRCHECK.Q'L. .BA$CB6A..'V. JSRCRCHE
CK..'.. .BA$CB72..'.. JSRCRCHECK..'.. .B
A$CB77..'.. JMPCRCHECK.C'..;..(..;******
****************************************
*******************.Q(..;* EINSPRUNG FUE
R SPEICHERN IN PUFFER  ($A000-$BFFF+$D00
0-$FFFF) *..(F.;************************
****************************************
*..(P.;..(Z. .BA$CBD7..(..;..(..CRCHECK 
CMP#$0D;IST DAS ZEICHEN EIN RETURN ?..).
. BNEBYTEOUT;NEIN DANN ZUR AUSGABE..).. 
PHA;AKKU RETTEN.D).. LDACOUNTFLAG;FREIGA
BEFLAG TESTEN.O).. BPLINCCOUNT;CR-ZAEHLE
R INCREMENTIEREN..) .CONT1 PLA;AKKU ZURU
ECKHOLEN..)*. JMPBYTEOUT.V)4.INCCOUNT IN
CCOUNTFLAG;6 BIT ZAEHLER INCREMENTIEREN.
.*>. LDACOUNTFLAG;AKKU MIT AKTUELLEM WER
T LADEN..*H. AND#$3F;RESTLICHE FLAGS AUS
BLENDEN.O*R. CMP#62;=62 ZEILEN PRO BLATT
.*\. BCCCONT1;WENN ZAEHLER < 62 NORMALE
 AUSGABE..*F. PLA;ANSONSTEN ZEICHEN..*P.
 JSRBYTEOUT;AUSGEBEN.M*Z. LDA#$0C;UND FO
RMFEED..*.. JSRBYTEOUT;AUSGEBEN..+.. LDA
COUNTFLAG;6-BIT ZAEHLER.!+.. AND#$C0;ZUR
UECKSETZEN.7+.. STACOUNTFLAG;UND.G+.. RT
S;FERTIG.Y+..BYTEOUT STABYTESAVE;AUSZUGE
BENDES BYTE RETTEN..+.. LDA$01;PROZESSOR
STATUS..+J. PHA;RETTEN.D+T. SEI;INTERRUP
TS VERHINDERN..+.. LDAIRQFLAG;PUFFER UEB
ERGELAUFEN?..+.. AND#$40..,.. BNEM01;JA.
#,.. LDAIRQFLAG;PUFFER LEER?.0,.. AND#$1
0.A,.. BNEM03;NEIN.G,..;..,$.;          
           POINTER + INTERRUPTVEKTOR INI
TIALISIEREN..,..;..,8. LDA$0314;INTERRUP
TVEKTOR SICHERN.G,B. STAIRQOLD+1.U,L. LD
A$0315..,V. STAIRQOLD+2..-`. LDA#<(IRQNE
W);INTERRUPTVEK AUF NEUE ROUTINE./-J. ST
A$0314;VERBIEGEN.B-T. LDA#>(IRQNEW).P-~.
 STA$0315.P-.. LDA#$04;INTERRUPTTIMER AU
F..-.. STA$DC04;1/480 SEK..-.. LDA#$08;S
ETZEN..-.. STA$DC05..-.. LDAIRQFLAG..-..
 ORA#$10;FLAG FUER PUFFER NICHT..-D. STA
IRQFLAG;LEER SETZEN.&.N. LDA#$A0;BEIDE P
OINTER AUF $A000 SETZEN.9.X. STAPOINTER1
+2.L... STAPOINTER2+2.Y... LDA#$00.L... 
STAPOINTER1+1.... STAPOINTER2+1..... JM
PM03.....M01 CLI;INTERRUPTS ZULASSEN.Z..
.WAIT LDAPOINTER1+1;POINTER 1 = POINTER 
2 ?...(. CMPPOINTER2+1...2. BNEM02;NEIN.
"/<. LDAPOINTER1+2;WENN GLEICH DANN.@/F.
 CMPPOINTER2+2;WARTEN BIS.C/P. BEQWAIT;P
OINTER 2 > POINTER 1../Z.M02 SEI;INTERRU
PTS VERHINDERN../D.M03 LDA#$34;ROM + I/O
 AUSSCHALTEN../N. STA$01.S/X. LDABYTESAV
E;BYTE HOLEN..0..POINTER1 STA$FFFF;(DUMM
Y) UND IN PUFFER SPEICHERN./0.. PLA;PROZ
ESSORSTATUS ZURUECKHOLEN.U0.. STA$01;UND
 ROM + I/O EINSCHALTEN..0 . INCPOINTER1+
1;POINTER 1 INCREMENTIEREN..0.. BNEM05;W
ENN LSB<>0 DANN FERTIG.T0.. INCPOINTER1+
2;WENN MSB=0 DANN FLAG SETZEN..0.. BEQM0
4;JA..1H. LDAPOINTER1+2;ADRESSE $C000 ER
REICHT ?..1R. CMP#$C0.91.. BNEM05;NEIN D
ANN FERTIG.B1.. LDA#$D0;JA DANN POINTER 
1 AUF $D000.U1.. STAPOINTER1+2..1.. JMPM
05..1..M04 LDAIRQFLAG..1.. ORA#$40.F1.. 
STAIRQFLAG;UEBERLAUFFLAG SETZEN..1". LDA
#$A0;POINTER 1 AUF $A000..2,. STAPOINTER
1+2;SETZEN.!26.M05 CLI;INTERRUPTS ZULASS
EN.*2@. RTS.02J.;.V2T.;*****************
***************.|2^.;*      INTERRUPTEIN
SPRUNG      *..2H.;*********************
***********..2R.;..2|.;.B2..IRQNEW LDA$D
D0D..2.. AND#$10;DRUCKER BEREIT ?..2.. B
EQIRQEXIT;NEIN..3.. LDY$01;PROZESSORSTAT
US RETTEN.;3.. LDA#$34;ROM + I/O AUSSCHA
LTEN.G3.. STA$01.{3B.POINTER2 LDA$FFFF;(
DUMMY) BYTE AUS PUFFER HOLEN..3L. STY$01
;ROM + I/O EINSCHALTEN.E3V. STA$DD01;BYT
E AN USERPORT AUSGEBEN..3.. LDA$DD00;STR
OBE SIGNAL..3.. AND#$FB;SETZEN..4.. STA$
DD00..4.. ORA#$04..4.. STA$DD00.J4.. INC
POINTER2+1;POINTER 2 INCREMENTIEREN.V4..
 BNEM07..4&. INCPOINTER2+2;WENN MSB=0 DA
NN FLAG LOESCHEN..40. BEQM06..4:. LDAPOI
NTER2+2;ADRESSE $C000 ERREICHT ?.L4D. CM
P#$C0..4N. BNEM07;NEIN..5X. LDA#$D0;JA D
ANN POINTER 2 AUF $D000..5B. STAPOINTER2
+2.%5L. JMPM07.E5V.M06 LDAIRQFLAG;UBERLA
UFFLAG.[5.. AND#$BF;LOESCHEN.K5.. STAIRQ
FLAG..5.. LDA#$A0;POINTER 2 AUF $A000 SE
TZEN..5.. STAPOINTER2+2.T5..M07 LDAPOINT
ER1+1;POINTER 1 = POINTER 2 ?..5.. CMPPO
INTER2+1..5.. BNEIRQEXIT;NEIN..6F. LDAPO
INTER1+2."6P. CMPPOINTER2+2.76Z. BNEIRQE
XIT;NEIN.Z6.. LDA#$00;INTERRUPTFLAGREGIS
TER.S6.. STAIRQFLAG;LOESCHEN..6.. LDAIRQ
OLD+1;ALTEN INTERRUPTVEKTOR..6.. STA$031
4;ZURUECKSPEICHERN.J6.. LDAIRQOLD+2.X6..
 STA$0315..6 . LDA#$25;INTERRUPTTIMER AU
F..7*. STA$DC04;1/60 SEK.*74. LDA#$40;ZU
RUECKSETZEN.87>. STA$DC05.Q7H. JMPIRQOLD
;UNDFERTIG..7R.IRQEXIT INCIRQFLAG;INTERR
UPTZAEHLER INCREMENTIEREN..7\. LDAIRQFLA
G;AKKU MIT WERT LDADEN.M7F. AND#$0F;FLAG
S AUSMASKIEREN..7P. CMP#$08;SCHON DER AC
HTE INTERRUPT ?..8Z. BCSM08;WENN JA ZAEH
LBITS LOESCHEN.K8..IRQEND JMP$EA7E;SPRUN
G NACH INTERRUPTENDE.O8..M08 LDAIRQFLAG;
INTERRUPTZAEHLER..8.. AND#$F0;ZURUECKSET
ZEN..8.. STAIRQFLAG.O8..IRQOLD JMP$FFFF;
(DUMMY) SPRUNG ZUR ROMIRQROUTINE..9..BYT
ESAVE .BY$00;SPEICHER FUER AUSZUGEBENDES
 BYTE.$9..IRQFLAG .BY$00;FLAGREGISTER.Q9
J.COUNTFLAG .BY$00;FLAG+ZAEHLREGISTER FU
ER..9T.;                                
            PERFORATIONSSPRUNG...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL