PRINTER 801.SRC
FILE INFORMATION
FILENAME(S): PRINTER 801.SRC
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-11-02 17:01:55
APPEARS ON: 2 disk(s)
FILE HASH
0f042f0869cf8f3f2bcae4a19b0e2eb18c7bbd1b8f8b4abba52b0807b40b60fe
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC04 | PRINTER 801.SRC | PRG | Treasure Chest - Spook | 10 | 9 | DOWNLOAD FILE |
| MAGIC DISK 64 | PRINTER 801.SRC | PRG | hedning, German ebay | 10 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 07 10 64 00 CC 00 14 10 6E 00 AC B2 20 24 |....d.....n... $|
00000010: 43 30 30 30 00 20 10 78 00 2E 4F 50 54 20 4F 4F |C000. .x..OPT OO|
00000020: 00 2C 10 82 00 3B 4B 45 52 4E 41 4C 00 3A 10 8C |.,...;KERNAL.:..|
00000030: 00 99 20 B2 20 24 46 46 44 32 00 4D 10 96 00 53 |.. . $FFD2.M...S|
00000040: 45 54 4E 41 4D 20 B2 20 24 46 46 42 44 00 60 10 |ETNAM . $FFBD.`.|
00000050: A0 00 53 45 54 46 4C 53 20 B2 20 24 46 46 42 41 |..SETFLS . $FFBA|
00000060: 00 6E 10 AA 00 9F 20 B2 20 24 46 46 43 30 00 7C |.n.... . $FFC0.||
00000070: 10 B4 00 A0 20 B2 20 24 46 46 43 33 00 8F 10 BE |.... . $FFC3....|
00000080: 00 43 48 4B 4F 55 54 20 B2 20 24 46 46 43 39 00 |.CHKOUT . $FFC9.|
00000090: A1 10 C8 00 43 48 4B 49 4E 20 B2 20 24 46 46 43 |....CHKIN . $FFC|
000000A0: 36 00 B1 10 D2 00 9C 43 48 20 B2 20 24 46 46 43 |6......CH . $FFC|
000000B0: 43 00 C1 10 DC 00 42 41 BF 20 B2 20 24 46 46 43 |C.....BA. . $FFC|
000000C0: 46 00 CF 10 E6 00 93 20 B2 20 24 46 46 44 35 00 |F...... . $FFD5.|
000000D0: DA 10 F0 00 3B 5A 45 52 4F EE 00 E9 10 FA 00 46 |....;ZERO......F|
000000E0: 49 52 45 20 B2 20 24 30 33 00 F7 10 04 01 EC 53 |IRE . $03......S|
000000F0: 54 20 B2 20 24 46 39 00 06 11 0E 01 52 45 47 33 |T . $F9.....REG3|
00000100: 20 B2 20 24 46 44 00 15 11 18 01 52 45 47 34 20 | . $FD.....REG4 |
00000110: B2 20 24 46 45 00 24 11 22 01 57 B0 44 31 20 B2 |. $FE.$.".W.D1 .|
00000120: 20 24 31 34 00 33 11 2C 01 57 B0 44 32 20 B2 20 | $14.3.,.W.D2 . |
00000130: 24 30 35 00 41 11 36 01 B8 45 33 20 B2 20 24 42 |$05.A.6..E3 . $B|
00000140: 36 00 52 11 40 01 4C 41 53 54 20 B2 20 24 30 32 |6.R.@.LAST . $02|
00000150: 35 37 00 60 11 4A 01 82 20 B2 20 24 30 32 35 38 |57.`.J.. . $0258|
00000160: 00 73 11 54 01 42 55 46 42 45 47 20 B2 20 24 30 |.s.T.BUFBEG . $0|
00000170: 33 38 36 00 82 11 5E 01 57 59 20 B2 20 24 30 33 |386...^.WY . $03|
00000180: 46 33 00 91 11 68 01 57 58 20 B2 20 24 30 33 46 |F3...h.WX . $03F|
00000190: 34 00 A0 11 72 01 57 48 20 B2 20 24 30 33 46 35 |4...r.WH . $03F5|
000001A0: 00 AF 11 7C 01 57 57 20 B2 20 24 30 33 46 36 00 |...|.WW . $03F6.|
000001B0: C4 11 86 01 53 54 41 52 54 56 45 43 20 B2 20 24 |....STARTVEC . $|
000001C0: 30 33 31 31 00 D1 11 90 01 3B 53 91 53 54 49 47 |0311.....;S.STIG|
000001D0: 45 00 E1 11 9A 01 56 49 43 20 B2 20 24 44 30 30 |E.....VIC . $D00|
000001E0: 30 00 EE 11 A4 01 3B 46 41 4E 54 41 53 59 00 FF |0.....;FANTASY..|
000001F0: 11 AE 01 EC 4F 55 54 20 B2 20 24 37 44 33 31 00 |....OUT . $7D31.|
00000200: 0D 12 B8 01 E7 20 B2 20 24 37 44 37 38 00 21 12 |..... . $7D78.!.|
00000210: C2 01 41 4E 41 4C 59 5A 45 20 B2 20 24 38 31 32 |..ANALYZE . $812|
00000220: 30 00 34 12 CC 01 57 49 4E 44 4F 57 20 B2 20 24 |0.4...WINDOW . $|
00000230: 38 31 37 41 00 45 12 D6 01 53 43 52 A1 20 B2 20 |817A.E...SCR. . |
00000240: 24 37 45 46 41 00 54 12 E0 01 D3 A1 20 B2 20 24 |$7EFA.T..... . $|
00000250: 38 34 37 33 00 67 12 EA 01 D3 45 43 A4 52 59 20 |8473.g....EC.RY |
00000260: B2 20 24 38 35 37 34 00 7B 12 F4 01 4E 41 4D 45 |. $8574.{...NAME|
00000270: 32 30 30 20 B2 20 24 38 38 31 35 00 8E 12 FE 01 |200 . $8815.....|
00000280: A1 53 54 41 52 54 20 B2 20 24 38 38 32 30 00 A2 |.START . $8820..|
00000290: 12 08 02 44 4F 55 42 4C 45 A1 20 B2 20 24 38 38 |...DOUBLE. . $88|
000002A0: 45 34 00 B2 12 12 02 9F 4E B0 20 B2 20 24 38 38 |E4......N. . $88|
000002B0: 46 31 00 D1 12 1C 02 4E B0 49 4E 32 20 B2 20 24 |F1.....N.IN2 . $|
000002C0: 38 39 30 32 20 3B 45 49 4E 47 41 42 45 4E 20 23 |8902 ;EINGABEN #|
000002D0: 38 00 E0 12 26 02 92 57 20 B2 20 24 38 41 37 33 |8...&..W . $8A73|
000002E0: 00 F1 12 30 02 5A 45 52 4F 20 B2 20 24 38 37 41 |...0.ZERO . $87A|
000002F0: 39 00 00 13 3A 02 43 52 20 B2 20 24 38 41 43 45 |9...:.CR . $8ACE|
00000300: 00 11 13 44 02 57 53 45 54 20 B2 20 24 38 41 46 |...D.WSET . $8AF|
00000310: 43 00 17 13 4E 02 3B 00 47 13 58 02 3B 20 41 4C |C...N.;.G.X.; AL|
00000320: 54 45 52 4E 41 54 49 56 45 4E 20 5A 45 49 43 48 |TERNATIVEN ZEICH|
00000330: 45 4E 53 41 54 5A 20 4E 41 43 48 20 24 33 30 30 |ENSATZ NACH $300|
00000340: 30 20 4C 41 44 45 4E 00 4D 13 62 02 3B 00 5A 13 |0 LADEN.M.b.;.Z.|
00000350: 6C 02 4C 44 41 20 23 24 30 45 00 68 13 76 02 4C |l.LDA #$0E.h.v.L|
00000360: 44 58 20 23 B3 41 4C 54 00 76 13 80 02 4C 44 59 |DX #.ALT.v...LDY|
00000370: 20 23 B1 41 4C 54 00 85 13 8A 02 4A 53 52 20 53 | #.ALT.....JSR S|
00000380: 45 54 4E 41 4D 00 92 13 94 02 4C 44 58 20 23 24 |ETNAM.....LDX #$|
00000390: 30 38 00 9A 13 9E 02 54 58 41 00 A7 13 A8 02 4C |08.....TXA.....L|
000003A0: 44 59 20 23 24 30 30 00 B6 13 B2 02 4A 53 52 20 |DY #$00.....JSR |
000003B0: 53 45 54 46 4C 53 00 C3 13 BC 02 4C 44 41 20 23 |SETFLS.....LDA #|
000003C0: 24 30 30 00 D3 13 C6 02 4C 44 58 20 23 B3 24 33 |$00.....LDX #.$3|
000003D0: 30 30 30 00 E3 13 D0 02 4C 44 59 20 23 B1 24 33 |000.....LDY #.$3|
000003E0: 30 30 30 00 ED 13 DA 02 4A 53 52 20 93 00 FD 13 |000.....JSR ....|
000003F0: E4 02 4C 44 41 20 23 B1 24 30 38 30 30 00 10 14 |..LDA #.$0800...|
00000400: EE 02 53 54 41 20 43 48 52 53 54 41 52 54 AA 31 |..STA CHRSTART.1|
00000410: 00 16 14 F8 02 3B 00 44 14 02 03 3B 20 4E 41 4D |.....;.D...; NAM|
00000420: 45 20 48 4F C3 2C 20 57 49 4E 44 4F 57 20 41 55 |E HO., WINDOW AU|
00000430: 53 47 45 42 45 4E 2C 20 46 49 4C 45 53 20 4F 45 |SGEBEN, FILES OE|
00000440: 46 A5 45 4E 00 4A 14 0C 03 3B 00 55 14 16 03 4A |F.EN.J...;.U...J|
00000450: 53 52 20 D3 A1 00 64 14 20 03 4A 53 52 20 D3 45 |SR ...d. .JSR .E|
00000460: 43 A4 52 59 00 74 14 2A 03 4A 53 52 20 4E 41 4D |C.RY.t.*.JSR NAM|
00000470: 45 32 30 30 00 80 14 34 03 4C 44 41 20 24 42 37 |E200...4.LDA $B7|
00000480: 00 8B 14 3E 03 42 4E 45 20 99 31 00 98 14 48 03 |...>.BNE .1...H.|
00000490: 4A 53 52 20 53 43 52 A1 00 AB 14 52 03 4A 4D 50 |JSR SCR....R.JMP|
000004A0: 20 28 53 54 41 52 54 56 45 43 29 00 BB 14 5C 03 | (STARTVEC)...\.|
000004B0: 99 31 20 4C 44 41 20 23 24 30 42 00 C6 14 66 03 |.1 LDA #$0B...f.|
000004C0: 53 54 41 20 57 57 00 CE 14 70 03 54 41 59 00 DB |STA WW...p.TAY..|
000004D0: 14 7A 03 4C 44 41 20 23 24 30 34 00 E8 14 84 03 |.z.LDA #$04.....|
000004E0: 4C 44 58 20 23 24 31 39 00 F5 14 8E 03 4A 53 52 |LDX #$19.....JSR|
000004F0: 20 57 53 45 54 00 04 15 98 03 4C 44 41 20 23 B3 | WSET.....LDA #.|
00000500: 5A 45 52 4F 00 13 15 A2 03 4C 44 59 20 23 B1 5A |ZERO.....LDY #.Z|
00000510: 45 52 4F 00 22 15 AC 03 4A 53 52 20 57 49 4E 44 |ERO."...JSR WIND|
00000520: 4F 57 00 2E 15 B6 03 4C 44 41 20 23 B3 EC 00 3A |OW.....LDA #...:|
00000530: 15 C0 03 4C 44 59 20 23 B1 EC 00 47 15 CA 03 4A |...LDY #...G...J|
00000540: 53 52 20 EC 4F 55 54 00 54 15 D4 03 4C 44 41 20 |SR .OUT.T...LDA |
00000550: 23 24 45 36 00 60 15 DE 03 53 54 41 20 56 49 43 |#$E6.`...STA VIC|
00000560: 00 6D 15 E8 03 4C 44 41 20 23 24 38 46 00 7B 15 |.m...LDA #$8F.{.|
00000570: F2 03 53 54 41 20 56 49 43 AA 31 00 8A 15 FC 03 |..STA VIC.1.....|
00000580: 4A 53 52 20 A1 53 54 41 52 54 00 9A 15 06 04 4A |JSR .START.....J|
00000590: 53 52 20 4E 41 4D 45 32 30 30 00 A6 15 10 04 4A |SR NAME200.....J|
000005A0: 53 52 20 9F 4E B0 00 B3 15 1A 04 4C 44 41 20 23 |SR .N......LDA #|
000005B0: 24 30 30 00 C2 15 24 04 4A 53 52 20 53 45 54 4E |$00...$.JSR SETN|
000005C0: 41 4D 00 CF 15 2E 04 4C 44 58 20 23 24 30 34 00 |AM.....LDX #$04.|
000005D0: DC 15 38 04 4C 44 41 20 23 24 30 32 00 E9 15 42 |..8.LDA #$02...B|
000005E0: 04 4C 44 59 20 23 24 30 30 00 F8 15 4C 04 4A 53 |.LDY #$00...L.JS|
000005F0: 52 20 53 45 54 46 4C 53 00 02 16 56 04 4A 53 52 |R SETFLS...V.JSR|
00000600: 20 9F 00 10 16 60 04 4A 53 52 20 4E B0 49 4E 32 | ....`.JSR N.IN2|
00000610: 00 1C 16 6A 04 4A 53 52 20 42 41 BF 00 28 16 74 |...j.JSR BA..(.t|
00000620: 04 4A 53 52 20 42 41 BF 00 34 16 7E 04 4A 53 52 |.JSR BA..4.~.JSR|
00000630: 20 9C 43 48 00 41 16 88 04 4C 44 41 20 23 24 30 | .CH.A...LDA #$0|
00000640: 30 00 4D 16 92 04 53 54 41 20 EC 53 54 00 5A 16 |0.M...STA .ST.Z.|
00000650: 9C 04 53 54 41 20 57 B0 44 31 00 69 16 A6 04 53 |..STA W.D1.i...S|
00000660: 54 41 20 57 B0 44 31 AA 31 00 6F 16 B0 04 3B 00 |TA W.D1.1.o...;.|
00000670: 88 16 BA 04 3B 20 45 49 4E 4C 45 53 45 4E 20 26 |....; EINLESEN &|
00000680: 20 44 52 55 43 4B 45 4E 00 8E 16 C4 04 3B 00 9B | DRUCKEN.....;..|
00000690: 16 CE 04 4C 44 41 20 23 24 30 30 00 A8 16 D8 04 |...LDA #$00.....|
000006A0: 53 54 41 20 4C 41 53 54 00 B2 16 E2 04 53 54 41 |STA LAST.....STA|
000006B0: 20 82 00 BF 16 EC 04 4C 44 58 20 23 24 30 32 00 | ......LDX #$02.|
000006C0: CE 16 F6 04 4A 53 52 20 43 48 4B 4F 55 54 00 D9 |....JSR CHKOUT..|
000006D0: 16 00 05 4A 53 52 20 43 52 00 E5 16 0A 05 4A 53 |...JSR CR.....JS|
000006E0: 52 20 9C 43 48 00 F8 16 14 05 99 46 49 4C 20 4A |R .CH......FIL J|
000006F0: 53 52 20 4E B0 49 4E 32 00 04 17 1E 05 4A 53 52 |SR N.IN2.....JSR|
00000700: 20 42 41 BF 00 10 17 28 05 4C 44 58 20 24 39 30 | BA....(.LDX $90|
00000710: 00 1E 17 32 05 42 45 51 20 99 46 49 4C 31 00 29 |...2.BEQ .FIL1.)|
00000720: 17 3C 05 4A 4D 50 20 90 99 00 4B 17 46 05 99 45 |.<.JMP ...K.F..E|
00000730: 52 80 20 4C 44 58 20 23 24 30 32 20 3B 20 44 52 |R. LDX #$02 ; DR|
00000740: 55 43 4B 45 4E 20 42 45 80 45 4E 00 5A 17 50 05 |UCKEN BE.EN.Z.P.|
00000750: 4A 53 52 20 43 48 4B 4F 55 54 00 65 17 5A 05 4A |JSR CHKOUT.e.Z.J|
00000760: 53 52 20 43 52 00 72 17 64 05 4C 44 41 20 23 24 |SR CR.r.d.LDA #$|
00000770: 30 46 00 7C 17 6E 05 4A 53 52 20 99 00 88 17 78 |0F.|.n.JSR ....x|
00000780: 05 4A 53 52 20 9C 43 48 00 95 17 82 05 4C 44 41 |.JSR .CH.....LDA|
00000790: 20 23 24 30 38 00 9F 17 8C 05 4A 53 52 20 A0 00 | #$08.....JSR ..|
000007A0: AC 17 96 05 4C 44 41 20 23 24 30 32 00 B6 17 A0 |....LDA #$02....|
000007B0: 05 4A 53 52 20 A0 00 C3 17 AA 05 4A 53 52 20 53 |.JSR ......JSR S|
000007C0: 43 52 A1 00 D3 17 B4 05 4A 4D 50 20 44 4F 55 42 |CR......JMP DOUB|
000007D0: 4C 45 A1 00 E6 17 BE 05 99 46 49 4C 31 20 43 4D |LE.......FIL1 CM|
000007E0: 50 20 23 24 30 44 00 F5 17 C8 05 42 4E 45 20 54 |P #$0D.....BNE T|
000007F0: 45 53 54 52 53 00 03 18 D2 05 4A 4D 50 20 EB 52 |ESTRS.....JMP .R|
00000800: 45 53 54 00 17 18 DC 05 54 45 53 54 52 53 20 43 |EST.....TESTRS C|
00000810: 4D 50 20 23 24 30 33 00 21 18 E6 05 42 4E 45 20 |MP #$03.!...BNE |
00000820: 9A 00 2D 18 F0 05 4A 4D 50 20 99 52 53 00 3C 18 |..-...JMP .RS.<.|
00000830: FA 05 9A 20 43 4D 50 20 23 22 12 22 00 47 18 04 |... CMP #".".G..|
00000840: 06 42 4E 45 20 9A 31 00 54 18 0E 06 4C 44 41 20 |.BNE .1.T...LDA |
00000850: 23 24 30 31 00 60 18 18 06 53 54 41 20 24 43 37 |#$01.`...STA $C7|
00000860: 00 6D 18 22 06 42 4E 45 20 99 46 49 4C 00 7D 18 |.m.".BNE .FIL.}.|
00000870: 2C 06 9A 31 20 43 4D 50 20 23 22 92 22 00 88 18 |,..1 CMP #"."...|
00000880: 36 06 42 4E 45 20 9A 32 00 95 18 40 06 4C 44 41 |6.BNE .2...@.LDA|
00000890: 20 23 24 30 30 00 A1 18 4A 06 53 54 41 20 24 43 | #$00...J.STA $C|
000008A0: 37 00 AE 18 54 06 42 45 51 20 99 46 49 4C 00 BE |7...T.BEQ .FIL..|
000008B0: 18 5E 06 9A 32 20 43 4D 50 20 23 22 20 22 00 CB |.^..2 CMP #" "..|
000008C0: 18 68 06 42 43 43 20 99 46 49 4C 00 D8 18 72 06 |.h.BCC .FIL...r.|
000008D0: 43 4D 50 20 23 24 38 30 00 E6 18 7C 06 42 43 43 |CMP #$80...|.BCC|
000008E0: 20 43 48 52 4F 4B 00 F3 18 86 06 43 4D 50 20 23 | CHROK.....CMP #|
000008F0: 24 41 30 00 00 19 90 06 42 43 43 20 99 46 49 4C |$A0.....BCC .FIL|
00000900: 00 29 19 9A 06 43 48 52 4F 4B 20 4A 53 52 20 A1 |.)...CHROK JSR .|
00000910: 53 43 52 43 20 3B 20 42 49 4C 44 53 43 48 49 52 |SCRC ; BILDSCHIR|
00000920: 4D 43 4F 44 45 20 48 4F C3 00 36 19 A4 06 4C 44 |MCODE HO..6...LD|
00000930: 41 20 23 24 30 38 00 43 19 AE 06 4C 44 59 20 23 |A #$08.C...LDY #|
00000940: 24 30 30 00 4D 19 B8 06 4A 53 52 20 E7 00 5D 19 |$00.M...JSR ..].|
00000950: C2 06 4C 44 41 20 23 B3 24 30 38 30 30 00 65 19 |..LDA #.$0800.e.|
00000960: CC 06 43 4C 43 00 72 19 D6 06 41 44 43 20 52 45 |..CLC.r...ADC RE|
00000970: 47 33 00 7F 19 E0 06 53 54 41 20 52 45 47 33 00 |G3.....STA REG3.|
00000980: 98 19 EA 06 43 48 52 53 54 41 52 54 20 4C 44 41 |....CHRSTART LDA|
00000990: 20 23 B1 24 30 38 30 30 00 A5 19 F4 06 41 44 43 | #.$0800.....ADC|
000009A0: 20 52 45 47 34 00 D3 19 FE 06 53 54 41 20 52 45 | REG4.....STA RE|
000009B0: 47 34 20 3B 20 B9 49 54 49 91 20 49 4D 20 5A 45 |G4 ; .ITI. IM ZE|
000009C0: 49 43 48 45 4E 53 41 54 5A 20 45 52 4D 49 54 54 |ICHENSATZ ERMITT|
000009D0: 45 4C 4E 00 E0 19 08 07 4C 44 59 20 23 24 30 30 |ELN.....LDY #$00|
000009E0: 00 F4 19 12 07 99 32 20 4C 44 41 20 28 52 45 47 |......2 LDA (REG|
000009F0: 33 29 2C 59 00 05 1A 1C 07 53 54 41 20 42 55 46 |3),Y.....STA BUF|
00000A00: 42 45 47 2C 59 00 0D 1A 26 07 49 4E 59 00 1A 1A |BEG,Y...&.INY...|
00000A10: 30 07 43 50 59 20 23 24 30 38 00 25 1A 3A 07 42 |0.CPY #$08.%.:.B|
00000A20: 4E 45 20 99 32 00 32 1A 44 07 4C 44 59 20 23 24 |NE .2.2.D.LDY #$|
00000A30: 30 30 00 3F 1A 4E 07 4C 44 58 20 23 24 30 30 00 |00.?.N.LDX #$00.|
00000A40: 73 1A 58 07 99 30 20 4C 44 41 20 23 24 30 30 20 |s.X..0 LDA #$00 |
00000A50: 3B 20 38 20 42 49 54 20 48 B0 49 5A 91 54 41 4C |; 8 BIT H.IZ.TAL|
00000A60: 20 41 55 46 20 37 20 42 49 54 20 56 45 52 54 49 | AUF 7 BIT VERTI|
00000A70: 4B 41 4C 00 82 1A 62 07 41 53 4C 20 42 55 46 42 |KAL...b.ASL BUFB|
00000A80: 45 47 00 8D 1A 6C 07 42 43 43 20 99 33 00 9F 1A |EG...l.BCC .3...|
00000A90: 76 07 B0 41 20 23 25 30 30 30 30 30 30 30 31 00 |v..A #%00000001.|
00000AA0: B3 1A 80 07 99 33 20 41 53 4C 20 42 55 46 42 45 |.....3 ASL BUFBE|
00000AB0: 47 AA 31 00 BE 1A 8A 07 42 43 43 20 99 34 00 D0 |G.1.....BCC .4..|
00000AC0: 1A 94 07 B0 41 20 23 25 30 30 30 30 30 30 31 30 |....A #%00000010|
00000AD0: 00 E4 1A 9E 07 99 34 20 41 53 4C 20 42 55 46 42 |......4 ASL BUFB|
00000AE0: 45 47 AA 32 00 EF 1A A8 07 42 43 43 20 99 35 00 |EG.2.....BCC .5.|
00000AF0: 01 1B B2 07 B0 41 20 23 25 30 30 30 30 30 31 30 |.....A #%0000010|
00000B00: 30 00 15 1B BC 07 99 35 20 41 53 4C 20 42 55 46 |0......5 ASL BUF|
00000B10: 42 45 47 AA 33 00 20 1B C6 07 42 43 43 20 99 36 |BEG.3. ...BCC .6|
00000B20: 00 32 1B D0 07 B0 41 20 23 25 30 30 30 30 31 30 |.2....A #%000010|
00000B30: 30 30 00 46 1B DA 07 99 36 20 41 53 4C 20 42 55 |00.F....6 ASL BU|
00000B40: 46 42 45 47 AA 34 00 51 1B E4 07 42 43 43 20 99 |FBEG.4.Q...BCC .|
00000B50: 37 00 63 1B EE 07 B0 41 20 23 25 30 30 30 31 30 |7.c....A #%00010|
00000B60: 30 30 30 00 77 1B F8 07 99 37 20 41 53 4C 20 42 |000.w....7 ASL B|
00000B70: 55 46 42 45 47 AA 35 00 82 1B 02 08 42 43 43 20 |UFBEG.5.....BCC |
00000B80: 99 38 00 94 1B 0C 08 B0 41 20 23 25 30 30 31 30 |.8......A #%0010|
00000B90: 30 30 30 30 00 A8 1B 16 08 99 38 20 41 53 4C 20 |0000......8 ASL |
00000BA0: 42 55 46 42 45 47 AA 36 00 B3 1B 20 08 42 43 43 |BUFBEG.6... .BCC|
00000BB0: 20 99 39 00 C5 1B 2A 08 B0 41 20 23 25 30 31 30 | .9...*..A #%010|
00000BC0: 30 30 30 30 30 00 E7 1B 34 08 99 39 20 B0 41 20 |00000...4..9 .A |
00000BD0: 23 25 31 30 30 30 30 30 30 30 20 3B 20 4D 53 42 |#%10000000 ; MSB|
00000BE0: 20 53 45 54 5A 45 4E 00 0D 1C 3E 08 53 54 41 20 | SETZEN...>.STA |
00000BF0: 24 43 45 30 30 2C 59 20 3B 20 49 4E 20 50 55 46 |$CE00,Y ; IN PUF|
00000C00: 46 45 52 20 53 50 45 49 43 48 45 52 4E 00 15 1C |FER SPEICHERN...|
00000C10: 48 08 49 4E 59 00 22 1C 52 08 43 50 59 20 23 24 |H.INY.".R.CPY #$|
00000C20: 30 38 00 2D 1C 5C 08 42 4E 45 20 99 30 00 39 1C |08.-.\.BNE .0.9.|
00000C30: 66 08 4A 53 52 20 9C 43 48 00 46 1C 70 08 4C 44 |f.JSR .CH.F.p.LD|
00000C40: 58 20 23 24 30 32 00 55 1C 7A 08 4A 53 52 20 43 |X #$02.U.z.JSR C|
00000C50: 48 4B 4F 55 54 00 62 1C 84 08 4C 44 41 20 23 24 |HKOUT.b...LDA #$|
00000C60: 30 38 00 6C 1C 8E 08 4A 53 52 20 99 00 79 1C 98 |08.l...JSR ..y..|
00000C70: 08 4C 44 59 20 23 24 30 30 00 8C 1C A2 08 99 41 |.LDY #$00......A|
00000C80: 20 4C 44 41 20 24 43 45 30 30 2C 59 00 9A 1C AC | LDA $CE00,Y....|
00000C90: 08 4A 53 52 20 46 41 53 54 99 00 A2 1C B6 08 49 |.JSR FAST......I|
00000CA0: 4E 59 00 AF 1C C0 08 43 50 59 20 23 24 30 38 00 |NY.....CPY #$08.|
00000CB0: BA 1C CA 08 42 4E 45 20 99 41 00 C7 1C D4 08 4C |....BNE .A.....L|
00000CC0: 44 59 20 4C 41 53 54 00 D8 1C DE 08 4C 44 41 20 |DY LAST.....LDA |
00000CD0: 42 55 46 42 45 47 AA 37 00 05 1D E8 08 53 54 41 |BUFBEG.7.....STA|
00000CE0: 20 24 43 45 38 30 2C 59 20 3B 20 42 59 54 45 20 | $CE80,Y ; BYTE |
00000CF0: 38 20 44 45 53 20 5A 45 49 43 48 45 4E 53 20 52 |8 DES ZEICHENS R|
00000D00: 45 54 54 45 4E 00 11 1D F2 08 4C 44 41 20 EC 53 |ETTEN.....LDA .S|
00000D10: 54 00 21 1D FC 08 53 54 41 20 24 43 45 32 30 2C |T.!...STA $CE20,|
00000D20: 59 00 4F 1D 06 09 49 4E 43 20 4C 41 53 54 20 3B |Y.O...INC LAST ;|
00000D30: 20 41 4E 5A 41 48 4C 20 5A 45 49 43 48 45 4E 20 | ANZAHL ZEICHEN |
00000D40: 42 49 53 48 45 52 20 49 4E 20 5A 45 49 4C 45 00 |BISHER IN ZEILE.|
00000D50: 5C 1D 10 09 4C 44 59 20 4C 41 53 54 00 69 1D 1A |\...LDY LAST.i..|
00000D60: 09 43 50 59 20 23 24 33 43 00 77 1D 24 09 42 45 |.CPY #$3C.w.$.BE|
00000D70: 51 20 EB 52 45 53 54 00 84 1D 2E 09 4A 4D 50 20 |Q .REST.....JMP |
00000D80: 99 46 49 4C 00 96 1D 38 09 EB 52 45 53 54 20 4A |.FIL...8..REST J|
00000D90: 53 52 20 9C 43 48 00 A3 1D 42 09 4C 44 58 20 23 |SR .CH...B.LDX #|
00000DA0: 24 30 32 00 B2 1D 4C 09 4A 53 52 20 43 48 4B 4F |$02...L.JSR CHKO|
00000DB0: 55 54 00 C1 1D 56 09 4A 53 52 20 46 41 53 54 43 |UT...V.JSR FASTC|
00000DC0: 52 00 CE 1D 60 09 4C 44 41 20 4C 41 53 54 00 D9 |R...`.LDA LAST..|
00000DD0: 1D 6A 09 42 45 51 20 EB 80 00 E6 1D 74 09 4C 44 |.j.BEQ .....t.LD|
00000DE0: 58 20 23 24 30 30 00 F6 1D 7E 09 EB 30 20 4C 44 |X #$00...~..0 LD|
00000DF0: 41 20 23 24 30 30 00 00 1E 88 09 53 54 41 20 82 |A #$00.....STA .|
00000E00: 00 10 1E 92 09 EB 31 20 4C 44 41 20 23 24 30 30 |......1 LDA #$00|
00000E10: 00 38 1E 9C 09 2E 42 59 54 20 24 31 45 3A 2E 57 |.8....BYT $1E:.W|
00000E20: B0 20 24 43 45 38 30 20 20 3B 20 28 41 53 4C 20 |. $CE80 ; (ASL |
00000E30: 24 43 45 38 30 2C 58 29 00 43 1E A6 09 42 43 43 |$CE80,X).C...BCC|
00000E40: 20 EB 32 00 55 1E B0 09 B0 41 20 23 25 30 30 30 | .2.U....A #%000|
00000E50: 30 30 30 30 31 00 87 1E BA 09 EB 32 20 B0 41 20 |00001......2 .A |
00000E60: 23 25 31 30 30 30 30 30 30 30 20 3B 20 47 45 52 |#%10000000 ; GER|
00000E70: 45 54 54 45 54 45 20 42 59 54 45 53 20 38 20 41 |ETTETE BYTES 8 A|
00000E80: 55 53 47 45 42 45 4E 00 A7 1E C4 09 B0 41 20 24 |USGEBEN......A $|
00000E90: 43 45 32 30 2C 58 20 3B 20 55 4E 54 45 52 53 54 |CE20,X ; UNTERST|
00000EA0: 52 45 49 43 48 45 4E 00 B5 1E CE 09 4A 53 52 20 |REICHEN.....JSR |
00000EB0: 46 41 53 54 99 00 BF 1E D8 09 49 4E 43 20 82 00 |FAST......INC ..|
00000EC0: C9 1E E2 09 4C 44 41 20 82 00 D6 1E EC 09 43 4D |....LDA ......CM|
00000ED0: 50 20 23 24 30 38 00 E1 1E F6 09 42 4E 45 20 EB |P #$08.....BNE .|
00000EE0: 31 00 E9 1E 00 0A 49 4E 58 00 F6 1E 0A 0A 43 50 |1.....INX.....CP|
00000EF0: 58 20 4C 41 53 54 00 01 1F 14 0A 42 45 51 20 EB |X LAST.....BEQ .|
00000F00: 80 00 0C 1F 1E 0A 42 4E 45 20 EB 30 00 1E 1F 28 |......BNE .0...(|
00000F10: 0A EB 80 20 4A 53 52 20 46 41 53 54 43 52 00 2B |... JSR FASTCR.+|
00000F20: 1F 32 0A 4C 44 41 20 23 24 30 30 00 38 1F 3C 0A |.2.LDA #$00.8.<.|
00000F30: 53 54 41 20 4C 41 53 54 00 42 1F 46 0A 53 54 41 |STA LAST.B.F.STA|
00000F40: 20 82 00 60 1F 50 0A 4C 44 41 20 46 49 52 45 20 | ..`.P.LDA FIRE |
00000F50: 3B 20 54 45 53 54 20 41 55 46 20 46 45 55 45 52 |; TEST AUF FEUER|
00000F60: 00 6E 1F 5A 0A 42 45 51 20 9C 42 55 46 46 00 7E |.n.Z.BEQ .BUFF.~|
00000F70: 1F 64 0A 4A 53 52 20 41 4E 41 4C 59 5A 45 00 8B |.d.JSR ANALYZE..|
00000F80: 1F 6E 0A 43 4D 50 20 23 24 46 46 00 99 1F 78 0A |.n.CMP #$FF...x.|
00000F90: 42 4E 45 20 9C 42 55 46 46 00 A5 1F 82 0A 4A 53 |BNE .BUFF.....JS|
00000FA0: 52 20 9C 43 48 00 B2 1F 8C 0A 4C 44 41 20 57 B0 |R .CH.....LDA W.|
00000FB0: 44 31 00 BA 1F 96 0A 50 48 41 00 C9 1F A0 0A 4C |D1.....PHA.....L|
00000FC0: 44 41 20 57 B0 44 31 AA 31 00 D1 1F AA 0A 50 48 |DA W.D1.1.....PH|
00000FD0: 41 00 DD 1F B4 0A 4C 44 41 20 24 43 37 00 E5 1F |A.....LDA $C7...|
00000FE0: BE 0A 50 48 41 00 F2 1F C8 0A 4C 44 41 20 23 24 |..PHA.....LDA #$|
00000FF0: 30 30 00 FE 1F D2 0A 53 54 41 20 24 43 37 00 2C |00.....STA $C7.,|
00001000: 20 DC 0A 4C 44 41 20 23 24 30 41 20 3B 20 9A 49 | ..LDA #$0A ; .I|
00001010: 4E 55 45 AD 43 41 4E 43 45 4C 20 57 49 4E 44 4F |NUE.CANCEL WINDO|
00001020: 57 20 42 45 41 52 42 45 49 54 45 4E 00 37 20 E6 |W BEARBEITEN.7 .|
00001030: 0A 53 54 41 20 57 57 00 44 20 F0 0A 4C 44 41 20 |.STA WW.D ..LDA |
00001040: 23 24 30 38 00 51 20 FA 0A 4C 44 58 20 23 24 30 |#$08.Q ..LDX #$0|
00001050: 45 00 5E 20 04 0B 4C 44 59 20 23 24 30 37 00 6B |E.^ ..LDY #$07.k|
00001060: 20 0E 0B 4A 53 52 20 57 53 45 54 00 7A 20 18 0B | ..JSR WSET.z ..|
00001070: 4C 44 41 20 23 B3 5A 45 52 4F 00 89 20 22 0B 4C |LDA #.ZERO.. ".L|
00001080: 44 59 20 23 B1 5A 45 52 4F 00 98 20 2C 0B 4A 53 |DY #.ZERO.. ,.JS|
00001090: 52 20 57 49 4E 44 4F 57 00 A9 20 36 0B 4C 44 41 |R WINDOW.. 6.LDA|
000010A0: 20 23 B3 43 41 4E 43 45 4C 00 BA 20 40 0B 4C 44 | #.CANCEL.. @.LD|
000010B0: 59 20 23 B1 43 41 4E 43 45 4C 00 C7 20 4A 0B 4A |Y #.CANCEL.. J.J|
000010C0: 53 52 20 EC 4F 55 54 00 D7 20 54 0B 41 42 B0 54 |SR .OUT.. T.AB.T|
000010D0: 20 4A 53 52 20 92 57 00 E4 20 5E 0B 43 4D 50 20 | JSR .W.. ^.CMP |
000010E0: 23 24 46 46 00 F1 20 68 0B 42 45 51 20 41 42 B0 |#$FF.. h.BEQ AB.|
000010F0: 54 00 FE 20 72 0B 43 4D 50 20 23 24 30 30 00 0B |T.. r.CMP #$00..|
00001100: 21 7C 0B 42 45 51 20 41 42 B0 54 00 18 21 86 0B |!|.BEQ AB.T..!..|
00001110: 43 4D 50 20 23 24 30 34 00 25 21 90 0B 42 45 51 |CMP #$04.%!..BEQ|
00001120: 20 41 42 B0 54 00 33 21 9A 0B 42 43 53 20 41 42 | AB.T.3!..BCS AB|
00001130: B0 54 31 00 40 21 A4 0B 4A 53 52 20 53 43 52 A1 |.T1.@!..JSR SCR.|
00001140: 00 4D 21 AE 0B 4C 44 41 20 23 24 45 36 00 59 21 |.M!..LDA #$E6.Y!|
00001150: B8 0B 53 54 41 20 56 49 43 00 66 21 C2 0B 4C 44 |..STA VIC.f!..LD|
00001160: 41 20 23 24 38 46 00 74 21 CC 0B 53 54 41 20 56 |A #$8F.t!..STA V|
00001170: 49 43 AA 31 00 7C 21 D6 0B 50 4C 41 00 88 21 E0 |IC.1.|!..PLA..!.|
00001180: 0B 53 54 41 20 24 43 37 00 90 21 EA 0B 50 4C 41 |.STA $C7..!..PLA|
00001190: 00 9F 21 F4 0B 53 54 41 20 57 B0 44 31 AA 31 00 |..!..STA W.D1.1.|
000011A0: A7 21 FE 0B 50 4C 41 00 B4 21 08 0C 53 54 41 20 |.!..PLA..!..STA |
000011B0: 57 B0 44 31 00 C2 21 12 0C 4A 4D 50 20 9C 42 55 |W.D1..!..JMP .BU|
000011C0: 46 46 00 D5 21 1C 0C 41 42 B0 54 31 20 4A 53 52 |FF..!..AB.T1 JSR|
000011D0: 20 53 43 52 A1 00 DD 21 26 0C 50 4C 41 00 E9 21 | SCR...!&.PLA..!|
000011E0: 30 0C 53 54 41 20 24 43 37 00 F1 21 3A 0C 50 4C |0.STA $C7..!:.PL|
000011F0: 41 00 00 22 44 0C 53 54 41 20 57 B0 44 31 AA 31 |A.."D.STA W.D1.1|
00001200: 00 08 22 4E 0C 50 4C 41 00 15 22 58 0C 53 54 41 |.."N.PLA.."X.STA|
00001210: 20 57 B0 44 31 00 22 22 62 0C 4A 4D 50 20 99 45 | W.D1.""b.JMP .E|
00001220: 52 80 00 4E 22 6C 0C 9C 42 55 46 46 20 4C 44 59 |R..N"l..BUFF LDY|
00001230: 20 23 24 30 30 20 3B 20 5A 45 49 43 48 45 4E 50 | #$00 ; ZEICHENP|
00001240: 55 46 46 45 52 20 4C 4F 45 53 43 48 45 4E 00 56 |UFFER LOESCHEN.V|
00001250: 22 76 0C 54 59 41 00 6E 22 80 0C 9C 42 55 46 46 |"v.TYA.n"...BUFF|
00001260: 45 52 20 53 54 41 20 24 43 45 30 30 2C 59 00 76 |ER STA $CE00,Y.v|
00001270: 22 8A 0C 49 4E 59 00 86 22 94 0C 42 4E 45 20 9C |"..INY.."..BNE .|
00001280: 42 55 46 46 45 52 00 99 22 9E 0C 4D 41 4E 49 50 |BUFFER.."..MANIP|
00001290: 20 4A 4D 50 20 99 46 49 4C 00 9F 22 A8 0C 3B 00 | JMP .FIL.."..;.|
000012A0: C4 22 B2 0C 3B 20 55 4D 57 AF 4C 55 4E 47 20 C6 |."..; UMW.LUNG .|
000012B0: 49 49 20 B2 B1 20 42 49 4C 44 53 43 48 49 52 4D |II .. BILDSCHIRM|
000012C0: 43 4F 44 45 00 CA 22 BC 0C 3B 00 DC 22 C6 0C A1 |CODE.."..;.."...|
000012D0: 53 43 52 43 20 53 54 41 20 B8 45 33 00 E8 22 D0 |SCRC STA .E3..".|
000012E0: 0C 4A 53 52 20 9C 43 48 00 F6 22 DA 0C 4C 44 41 |.JSR .CH.."..LDA|
000012F0: 20 24 30 32 38 38 00 FE 22 E4 0C 50 48 41 00 0B | $0288.."..PHA..|
00001300: 23 EE 0C 4C 44 41 20 23 24 43 46 00 19 23 F8 0C |#..LDA #$CF..#..|
00001310: 53 54 41 20 24 30 32 38 38 00 2E 23 02 0D 4A 53 |STA $0288..#..JS|
00001320: 52 20 24 45 35 36 36 20 3B 20 48 4F 4D 45 00 3A |R $E566 ; HOME.:|
00001330: 23 0C 0D 4C 44 41 20 B8 45 33 00 48 23 16 0D 4A |#..LDA .E3.H#..J|
00001340: 53 52 20 24 45 37 31 36 00 50 23 20 0D 50 4C 41 |SR $E716.P# .PLA|
00001350: 00 5E 23 2A 0D 53 54 41 20 24 30 32 38 38 00 6C |.^#*.STA $0288.l|
00001360: 23 34 0D 4C 44 58 20 24 43 46 30 30 00 74 23 3E |#4.LDX $CF00.t#>|
00001370: 0D 52 54 53 00 7A 23 48 0D 3B 00 A3 23 52 0D 3B |.RTS.z#H.;..#R.;|
00001380: 20 41 4E 41 4C 59 53 49 45 52 45 4E 20 56 91 20 | ANALYSIEREN V. |
00001390: 53 54 45 55 45 52 5A 45 49 43 48 45 4E 20 28 8A |STEUERZEICHEN (.|
000013A0: AD 90 29 00 A9 23 5C 0D 3B 00 B9 23 66 0D 99 52 |..)..#\.;..#f..R|
000013B0: 53 20 4A 53 52 20 42 41 BF 00 C6 23 70 0D 43 4D |S JSR BA...#p.CM|
000013C0: 50 20 23 24 30 33 00 D2 23 7A 0D 42 4E 45 20 52 |P #$03..#z.BNE R|
000013D0: 53 31 00 E2 23 84 0D 90 99 20 4C 44 41 20 23 24 |S1..#.... LDA #$|
000013E0: 36 30 00 F0 23 8E 0D 53 54 41 20 4D 41 4E 49 50 |60..#..STA MANIP|
000013F0: 00 FE 23 98 0D 4A 53 52 20 EB 52 45 53 54 00 0B |..#..JSR .REST..|
00001400: 24 A2 0D 4C 44 41 20 23 24 34 43 00 19 24 AC 0D |$..LDA #$4C..$..|
00001410: 53 54 41 20 4D 41 4E 49 50 00 26 24 B6 0D 4A 4D |STA MANIP.&$..JM|
00001420: 50 20 99 45 52 80 00 37 24 C0 0D 52 53 31 20 43 |P .ER..7$..RS1 C|
00001430: 4D 50 20 23 22 55 22 00 43 24 CA 0D 42 4E 45 20 |MP #"U".C$..BNE |
00001440: 52 53 32 00 4F 24 D4 0D 4A 53 52 20 42 41 BF 00 |RS2.O$..JSR BA..|
00001450: 5C 24 DE 0D 43 4D 50 20 23 22 30 22 00 6B 24 E8 |\$..CMP #"0".k$.|
00001460: 0D 42 4E 45 20 55 4E 44 45 52 31 00 78 24 F2 0D |.BNE UNDER1.x$..|
00001470: 4C 44 41 20 23 24 30 30 00 8B 24 FC 0D 55 4E 44 |LDA #$00..$..UND|
00001480: 45 52 80 20 53 54 41 20 EC 53 54 00 98 24 06 0E |ER. STA .ST..$..|
00001490: 4A 4D 50 20 99 46 49 4C 00 AC 24 10 0E 55 4E 44 |JMP .FIL..$..UND|
000014A0: 45 52 31 20 43 4D 50 20 23 22 31 22 00 BB 24 1A |ER1 CMP #"1"..$.|
000014B0: 0E 42 4E 45 20 55 4E 44 45 52 32 00 CE 24 24 0E |.BNE UNDER2..$$.|
000014C0: 4C 44 41 20 23 25 30 30 30 30 30 31 30 30 00 DD |LDA #%00000100..|
000014D0: 24 2E 0E 42 4E 45 20 55 4E 44 45 52 80 00 F1 24 |$..BNE UNDER...$|
000014E0: 38 0E 55 4E 44 45 52 32 20 43 4D 50 20 23 22 32 |8.UNDER2 CMP #"2|
000014F0: 22 00 00 25 42 0E 42 4E 45 20 55 4E 44 45 52 33 |"..%B.BNE UNDER3|
00001500: 00 13 25 4C 0E 4C 44 41 20 23 25 30 30 30 30 31 |..%L.LDA #%00001|
00001510: 31 30 30 00 22 25 56 0E 42 4E 45 20 55 4E 44 45 |100."%V.BNE UNDE|
00001520: 52 80 00 36 25 60 0E 55 4E 44 45 52 33 20 43 4D |R..6%`.UNDER3 CM|
00001530: 50 20 23 22 33 22 00 45 25 6A 0E 42 4E 45 20 55 |P #"3".E%j.BNE U|
00001540: 4E 44 45 52 34 00 58 25 74 0E 4C 44 41 20 23 25 |NDER4.X%t.LDA #%|
00001550: 30 30 30 31 30 31 30 30 00 67 25 7E 0E 42 4E 45 |00010100.g%~.BNE|
00001560: 20 55 4E 44 45 52 80 00 7B 25 88 0E 55 4E 44 45 | UNDER..{%..UNDE|
00001570: 52 34 20 4A 4D 50 20 99 46 49 4C 00 8C 25 92 0E |R4 JMP .FIL..%..|
00001580: 52 53 32 20 43 4D 50 20 23 22 52 22 00 98 25 9C |RS2 CMP #"R"..%.|
00001590: 0E 42 4E 45 20 52 53 33 00 A4 25 A6 0E 4A 53 52 |.BNE RS3..%..JSR|
000015A0: 20 42 41 BF 00 B1 25 B0 0E 43 4D 50 20 23 22 30 | BA...%..CMP #"0|
000015B0: 22 00 BE 25 BA 0E 42 4E 45 20 52 45 56 31 00 CB |"..%..BNE REV1..|
000015C0: 25 C4 0E 4C 44 41 20 23 24 30 30 00 DC 25 CE 0E |%..LDA #$00..%..|
000015D0: 52 45 56 30 20 53 54 41 20 24 43 37 00 EB 25 D8 |REV0 STA $C7..%.|
000015E0: 0E 4A 4D 50 20 55 4E 44 45 52 34 00 FD 25 E2 0E |.JMP UNDER4..%..|
000015F0: 52 45 56 31 20 4C 44 41 20 23 24 30 31 00 0A 26 |REV1 LDA #$01..&|
00001600: EC 0E 42 4E 45 20 52 45 56 30 00 1B 26 F6 0E 52 |..BNE REV0..&..R|
00001610: 53 33 20 43 4D 50 20 23 22 41 22 00 27 26 00 0F |S3 CMP #"A".'&..|
00001620: 42 4E 45 20 52 53 34 00 33 26 0A 0F 4A 53 52 20 |BNE RS4.3&..JSR |
00001630: 42 41 BF 00 40 26 14 0F 43 4D 50 20 23 22 31 22 |BA..@&..CMP #"1"|
00001640: 00 4E 26 1E 0F 42 4E 45 20 41 4C A4 46 46 00 5E |.N&..BNE AL.FF.^|
00001650: 26 28 0F 4C 44 41 20 23 B1 24 33 30 30 30 00 6B |&(.LDA #.$3000.k|
00001660: 26 32 0F 2E 42 59 54 20 24 32 43 00 81 26 3C 0F |&2..BYT $2C..&<.|
00001670: 41 4C A4 46 46 20 4C 44 41 20 23 B1 24 30 38 30 |AL.FF LDA #.$080|
00001680: 30 00 94 26 46 0F 53 54 41 20 43 48 52 53 54 41 |0..&F.STA CHRSTA|
00001690: 52 54 AA 31 00 A5 26 50 0F 52 53 34 20 4A 4D 50 |RT.1..&P.RS4 JMP|
000016A0: 20 99 46 49 4C 00 AB 26 5A 0F 3B 00 BF 26 64 0F | .FIL..&Z.;..&d.|
000016B0: 3B 20 46 41 53 54 99 AB 52 4F 55 54 49 4E 45 00 |; FAST..ROUTINE.|
000016C0: C5 26 6E 0F 3B 00 D8 26 78 0F 46 41 53 54 99 20 |.&n.;..&x.FAST. |
000016D0: 53 54 58 20 57 B0 44 32 00 E7 26 82 0F 53 54 59 |STX W.D2..&..STY|
000016E0: 20 57 B0 44 32 AA 31 00 FB 26 8C 0F 46 41 53 54 | W.D2.1..&..FAST|
000016F0: 99 30 20 43 4D 50 20 57 B0 44 31 00 08 27 96 0F |.0 CMP W.D1..'..|
00001700: 42 4E 45 20 99 4F 55 54 00 17 27 A0 0F 49 4E 43 |BNE .OUT..'..INC|
00001710: 20 57 B0 44 31 AA 31 00 26 27 AA 0F 4C 44 41 20 | W.D1.1.&'..LDA |
00001720: 57 B0 44 31 AA 31 00 33 27 B4 0F 43 4D 50 20 23 |W.D1.1.3'..CMP #|
00001730: 24 46 46 00 3F 27 BE 0F 42 45 51 20 46 99 31 00 |$FF.?'..BEQ F.1.|
00001740: 50 27 C8 0F 46 99 80 20 4C 44 58 20 57 B0 44 32 |P'..F.. LDX W.D2|
00001750: 00 5F 27 D2 0F 4C 44 59 20 57 B0 44 32 AA 31 00 |._'..LDY W.D2.1.|
00001760: 67 27 DC 0F 52 54 53 00 78 27 E6 0F 46 99 31 20 |g'..RTS.x'..F.1 |
00001770: 4C 44 41 20 23 24 31 41 00 82 27 F0 0F 4A 53 52 |LDA #$1A..'..JSR|
00001780: 20 99 00 8F 27 FA 0F 4C 44 41 20 23 24 46 46 00 | ...'..LDA #$FF.|
00001790: 99 27 04 10 4A 53 52 20 99 00 A6 27 0E 10 4C 44 |.'..JSR ...'..LD|
000017A0: 41 20 57 B0 44 31 00 B0 27 18 10 4A 53 52 20 99 |A W.D1..'..JSR .|
000017B0: 00 BD 27 22 10 4C 44 41 20 23 24 30 30 00 CC 27 |..'".LDA #$00..'|
000017C0: 2C 10 53 54 41 20 57 B0 44 31 AA 31 00 D8 27 36 |,.STA W.D1.1..'6|
000017D0: 10 4A 4D 50 20 46 99 80 00 E5 27 40 10 99 4F 55 |.JMP F....'@..OU|
000017E0: 54 20 50 48 41 00 F4 27 4A 10 4C 44 41 20 57 B0 |T PHA..'J.LDA W.|
000017F0: 44 31 AA 31 00 01 28 54 10 43 4D 50 20 23 24 30 |D1.1..(T.CMP #$0|
00001800: 34 00 10 28 5E 10 42 43 53 20 46 41 53 A4 55 54 |4..(^.BCS FAS.UT|
00001810: 00 1D 28 68 10 43 4D 50 20 23 24 30 30 00 2B 28 |..(h.CMP #$00.+(|
00001820: 72 10 42 45 51 20 4E 4F 55 54 31 00 38 28 7C 10 |r.BEQ NOUT1.8(|.|
00001830: 4C 44 41 20 57 B0 44 31 00 47 28 86 10 4E 4F 55 |LDA W.D1.G(..NOU|
00001840: 54 20 4A 53 52 20 99 00 56 28 90 10 44 45 43 20 |T JSR ..V(..DEC |
00001850: 57 B0 44 31 AA 31 00 63 28 9A 10 42 4E 45 20 4E |W.D1.1.c(..BNE N|
00001860: 4F 55 54 00 76 28 A4 10 4E 4F 55 54 31 20 4C 44 |OUT.v(..NOUT1 LD|
00001870: 41 20 23 24 30 31 00 85 28 AE 10 53 54 41 20 57 |A #$01..(..STA W|
00001880: B0 44 31 AA 31 00 8D 28 B8 10 50 4C 41 00 9A 28 |.D1.1..(..PLA..(|
00001890: C2 10 53 54 41 20 57 B0 44 31 00 A6 28 CC 10 4A |..STA W.D1..(..J|
000018A0: 4D 50 20 46 99 80 00 BA 28 D6 10 46 41 53 A4 55 |MP F....(..FAS.U|
000018B0: 54 20 4C 44 41 20 23 24 31 41 00 C4 28 E0 10 4A |T LDA #$1A..(..J|
000018C0: 53 52 20 99 00 D3 28 EA 10 4C 44 41 20 57 B0 44 |SR ...(..LDA W.D|
000018D0: 31 AA 31 00 DD 28 F4 10 4A 53 52 20 99 00 EA 28 |1.1..(..JSR ...(|
000018E0: FE 10 4C 44 41 20 57 B0 44 31 00 F4 28 08 11 4A |..LDA W.D1..(..J|
000018F0: 53 52 20 99 00 02 29 12 11 4A 4D 50 20 4E 4F 55 |SR ...)..JMP NOU|
00001900: 54 31 00 16 29 1C 11 46 41 53 54 43 52 20 4C 44 |T1..)..FASTCR LD|
00001910: 41 20 23 22 20 22 00 24 29 26 11 4A 53 52 20 46 |A #" ".$)&.JSR F|
00001920: 41 53 54 99 00 31 29 30 11 4C 44 41 20 23 24 30 |AST..1)0.LDA #$0|
00001930: 44 00 3F 29 3A 11 4A 4D 50 20 46 41 53 54 99 00 |D.?):.JMP FAST..|
00001940: 45 29 44 11 3B 00 52 29 4E 11 3B 20 54 41 42 45 |E)D.;.R)N.; TABE|
00001950: 4C C3 00 58 29 58 11 3B 00 7C 29 62 11 EC 20 2E |L..X)X.;.|)b.. .|
00001960: C6 20 22 D0 52 49 4E 54 49 4E 47 2E 2E 2E 22 3A |. ".RINTING...":|
00001970: 2E 42 59 54 20 24 30 44 2C 24 30 44 00 9A 29 6C |.BYT $0D,$0D..)l|
00001980: 11 2E C6 20 22 D0 4C 45 41 53 45 20 57 41 49 54 |... ".LEASE WAIT|
00001990: 22 3A 2E 42 59 54 20 24 30 30 00 BE 29 76 11 43 |":.BYT $00..)v.C|
000019A0: 41 4E 43 45 4C 20 2E 42 59 54 20 22 B9 22 2C 24 |ANCEL .BYT ".",$|
000019B0: 30 32 2C 22 A3 22 2C 24 30 38 2C 22 B8 22 00 D2 |02,".",$08,"."..|
000019C0: 29 80 11 2E C6 20 22 B4 C3 4F 4E 54 49 4E 55 45 |).... "..ONTINUE|
000019D0: B5 22 00 F7 29 8A 11 2E 42 59 54 20 22 AD 22 2C |."..)...BYT ".",|
000019E0: 24 30 32 2C 22 A4 22 2C 24 30 38 2C 22 B3 22 2C |$02,".",$08,".",|
000019F0: 24 30 44 2C 24 30 44 00 14 2A 94 11 2E 42 59 54 |$0D,$0D..*...BYT|
00001A00: 20 22 B9 22 2C 24 30 32 2C 22 A3 22 2C 24 30 38 | ".",$02,".",$08|
00001A10: 2C 22 B8 22 00 28 2A 9E 11 2E C6 20 22 B4 20 C3 |,".".(*.... ". .|
00001A20: 41 4E 43 45 4C 20 B5 22 00 49 2A A8 11 2E 42 59 |ANCEL .".I*...BY|
00001A30: 54 20 22 AD 22 2C 24 30 32 2C 22 A4 22 2C 24 30 |T ".",$02,".",$0|
00001A40: 38 2C 22 B3 22 2C 24 30 30 00 65 2A B2 11 41 4C |8,".",$00.e*..AL|
00001A50: 54 20 2E C6 20 22 43 48 2E 41 4C 54 45 52 4E 41 |T .. "CH.ALTERNA|
00001A60: 54 49 56 45 22 00 00 00 |TIVE"... |
....D.L...N... $C000. .X..OPT OO.,...;KE
RNAL.:.... . $FFD2.M...SETNAM . $FFBD.`.
.SETFLS . $FFBA.N.... . $FFC0.|... . $
FFC3.....CHKOUT . $FFC9...H.CHKIN . $FFC
6...R..CH . $FFCC.A...BA. . $FFCF.O....
. $FFD5.Z...;ZERO......FIRE . $03......S
T . $F9.....REG3 . $FD.....REG4 . $FE.$.
".W.D1 . $14.3.,.W.D2 . $05.A.6..E3 . $B
6.R.@.LAST . $0257.`.J.. . $0258.S.T.BUF
BEG . $0386...^.WY . $03F3...H.WX . $03F
4. .R.WH . $03F5...|.WW . $03F6.D...STAR
TVEC . $0311.Q...;S.STIGE.....VIC . $D00
0.....;FANTASY......OUT . $7D31...... .
$7D78.!.B.ANALYZE . $8120.4.L.WINDOW . $
817A.E.V.SCR. . $7EFA.T...S. . $8473.G..
.SEC.RY . $8574.{...NAME200 . $8815.....
.START . $8820.....DOUBLE. . $88E4......
N. . $88F1.Q...N.IN2 . $8902 ;EINGABEN #
8...&..W . $8A73...0.ZERO . $87A9...:.CR
. $8ACE...D.WSET . $8AFC...N.;.G.X.; AL
TERNATIVEN ZEICHENSATZ NACH $3000 LADEN.
M.B.;.Z.L.LDA #$0E.H.V.LDX #.ALT.V...LDY
#.ALT.....JSR SETNAM.....LDX #$08.....T
XA.....LDY #$00.....JSR SETFLS.C...LDA #
$00.S.F.LDX #.$3000...P.LDY #.$3000...Z.
JSR ......LDA #.$0800.....STA CHRSTART.1
.....;.D...; NAME HOC, WINDOW AUSGEBEN,
FILES OEF.EN.J...;.U...JSR S..D. .JSR SE
C.RY.T.*.JSR NAME200...4.LDA $B7...>.BNE
.1...H.JSR SCR....R.JMP (STARTVEC)...\.
.1 LDA #$0B.F.F.STA WW.N.P.TAY...Z.LDA #
$04.....LDX #$19.....JSR WSET.....LDA #.
ZERO.....LDY #.ZERO."...JSR WINDOW.....L
DA #...:...LDY #...G.J.JSR .OUT.T.T.LDA
#$E6.`...STA VIC.M...LDA #$8F.{...STA VI
C.1.....JSR .START.....JSR NAME200.....J
SR .N......LDA #$00.B.$.JSR SETNAM.O...L
DX #$04...8.LDA #$02...B.LDY #$00...L.JS
R SETFLS...V.JSR ....`.JSR N.IN2...J.JSR
BA..(.T.JSR BA..4.~.JSR .CH.A...LDA #$0
0.M...STA .ST.Z...STA W.D1.I...STA W.D1.
1.O...;.....; EINLESEN & DRUCKEN...D.;..
.N.LDA #$00...X.STA LAST.....STA ......L
DX #$02.N...JSR CHKOUT.Y...JSR CR.....JS
R .CH......FIL JSR N.IN2.....JSR BA....(
.LDX $90...2.BEQ .FIL1.).<.JMP ...K.F..E
R. LDX #$02 ; DRUCKEN BE.EN.Z.P.JSR CHKO
UT.E.Z.JSR CR.R.D.LDA #$0F.|.N.JSR ....X
.JSR .CH.....LDA #$08.....JSR .....LDA
#$02... .JSR .C...JSR SCR..S...JMP DOUB
LE.......FIL1 CMP #$0D...H.BNE TESTRS...
R.JMP .REST.....TESTRS CMP #$03.!...BNE
..-...JMP .RS.<.... CMP #".".G...BNE .1.
T...LDA #$01.`...STA $C7.M.".BNE .FIL.}.
,..1 CMP #"."...6.BNE .2...@.LDA #$00...
J.STA $C7...T.BEQ .FIL...^..2 CMP #" ".K
.H.BCC .FIL.X.R.CMP #$80...|.BCC CHROK..
...CMP #$A0.....BCC .FIL.)...CHROK JSR .
SCRC ; BILDSCHIRMCODE HOC.6...LDA #$08.C
...LDY #$00.M...JSR ..].B.LDA #.$0800.E.
L.CLC.R.V.ADC REG3....STA REG3.....CHRS
TART LDA #.$0800.....ADC REG4.S...STA RE
G4 ; .ITI. IM ZEICHENSATZ ERMITTELN.....
LDY #$00......2 LDA (REG3),Y.....STA BUF
BEG,Y...&.INY...0.CPY #$08.%.:.BNE .2.2.
D.LDY #$00.?.N.LDX #$00.S.X..0 LDA #$00
; 8 BIT H.IZ.TAL AUF 7 BIT VERTIKAL...B.
ASL BUFBEG...L.BCC .3...V..A #%00000001.
.....3 ASL BUFBEG.1.....BCC .4.P....A #%
00000010......4 ASL BUFBEG.2.....BCC .5.
.....A #%00000100......5 ASL BUFBEG.3. .
F.BCC .6.2.P..A #%00001000.F.Z..6 ASL BU
FBEG.4.Q...BCC .7.C....A #%00010000.W...
.7 ASL BUFBEG.5.....BCC .8......A #%0010
0000......8 ASL BUFBEG.6... .BCC .9.E.*.
.A #%01000000...4..9 .A #%10000000 ; MSB
SETZEN...>.STA $CE00,Y ; IN PUFFER SPEI
CHERN...H.INY.".R.CPY #$08.-.\.BNE .0.9.
F.JSR .CH.F.P.LDX #$02.U.Z.JSR CHKOUT.B.
..LDA #$08.L...JSR ..Y...LDY #$00......A
LDA $CE00,Y.....JSR FAST......INY.....C
PY #$08...J.BNE .A.G.T.LDY LAST.X...LDA
BUFBEG.7.....STA $CE80,Y ; BYTE 8 DES ZE
ICHENS RETTEN.....LDA .ST.!...STA $CE20,
Y.O...INC LAST ; ANZAHL ZEICHEN BISHER I
N ZEILE.\...LDY LAST.I...CPY #$3C.W.$.BE
Q .REST.....JMP .FIL...8..REST JSR .CH..
.B.LDX #$02...L.JSR CHKOUT.A.V.JSR FASTC
R.N.`.LDA LAST.Y.J.BEQ .....T.LDX #$00..
.~..0 LDA #$00.....STA .......1 LDA #$00
.8....BYT $1E:.W. $CE80 ; (ASL $CE80,X)
.C...BCC .2.U....A #%00000001......2 .A
#%10000000 ; GERETTETE BYTES 8 AUSGEBEN.
..D..A $CE20,X ; UNTERSTREICHEN...N.JSR
FAST....X.INC ..I...LDA ..V...CMP #$08..
...BNE .1.....INX.....CPX LAST.....BEQ .
......BNE .0...(... JSR FASTCR.+.2.LDA #
$00.8.<.STA LAST.B.F.STA ..`.P.LDA FIRE
; TEST AUF FEUER.N.Z.BEQ .BUFF.~.D.JSR A
NALYZE...N.CMP #$FF...X.BNE .BUFF.....JS
R .CH.....LDA W.D1.....PHA.I. .LDA W.D1.
1.Q...PHA.....LDA $C7.....PHA...H.LDA #$
00...R.STA $C7., ..LDA #$0A ; .INUE.CANC
EL WINDOW BEARBEITEN.7 ..STA WW.D ..LDA
#$08.Q ..LDX #$0E.^ ..LDY #$07.K ..JSR W
SET.Z ..LDA #.ZERO.. ".LDY #.ZERO.. ,.JS
R WINDOW.. 6.LDA #.CANCEL.. @.LDY #.CANC
EL.G J.JSR .OUT.W T.AB.T JSR .W.. ^.CMP
#$FF.. H.BEQ AB.T.. R.CMP #$00..!|.BEQ A
B.T..!..CMP #$04.%!..BEQ AB.T.3!..BCS AB
.T1.@!..JSR SCR..M!..LDA #$E6.Y!..STA VI
C.F!B.LDA #$8F.T!L.STA VIC.1.|!V.PLA..!.
.STA $C7..!..PLA..!..STA W.D1.1..!..PLA.
.!..STA W.D1.B!..JMP .BUFF.U!..AB.T1 JSR
SCR...!&.PLA..!0.STA $C7..!:.PLA.."D.ST
A W.D1.1.."N.PLA.."X.STA W.D1.""B.JMP .E
R..N"L..BUFF LDY #$00 ; ZEICHENPUFFER LO
ESCHEN.V"V.TYA.N"...BUFFER STA $CE00,Y.V
"..INY.."..BNE .BUFFER.."..MANIP JMP .FI
L.."..;.D"..; UMW.LUNG FII .. BILDSCHIRM
CODE.J"..;.."F..SCRC STA .E3.."P.JSR .CH
.."Z.LDA $0288.."..PHA..#..LDA #$CF..#..
STA $0288..#..JSR $E566 ; HOME.:#..LDA .
E3.H#..JSR $E716.P# .PLA.^#*.STA $0288.L
#4.LDX $CF00.T#>.RTS.Z#H.;..#R.; ANALYSI
EREN V. STEUERZEICHEN (...)..#\.;..#F..R
S JSR BA..F#P.CMP #$03.R#Z.BNE RS1..#...
. LDA #$60..#..STA MANIP..#..JSR .REST..
$..LDA #$4C..$..STA MANIP.&$..JMP .ER..7
$..RS1 CMP #"U".C$J.BNE RS2.O$T.JSR BA..
\$..CMP #"0".K$..BNE UNDER1.X$..LDA #$00
..$..UNDER. STA .ST..$..JMP .FIL..$..UND
ER1 CMP #"1"..$..BNE UNDER2.N$$.LDA #%00
000100..$..BNE UNDER...$8.UNDER2 CMP #"2
"..%B.BNE UNDER3..%L.LDA #%00001100."%V.
BNE UNDER..6%`.UNDER3 CMP #"3".E%J.BNE U
NDER4.X%T.LDA #%00010100.G%~.BNE UNDER..
{%..UNDER4 JMP .FIL..%..RS2 CMP #"R"..%.
.BNE RS3..%..JSR BA...%..CMP #"0"..%..BN
E REV1.K%D.LDA #$00..%N.REV0 STA $C7..%X
.JMP UNDER4..%..REV1 LDA #$01..&..BNE RE
V0..&..RS3 CMP #"A".'&..BNE RS4.3&..JSR
BA..@&..CMP #"1".N&..BNE AL.FF.^&(.LDA #
.$3000.K&2..BYT $2C..&<.AL.FF LDA #.$080
0..&F.STA CHRSTART.1..&P.RS4 JMP .FIL..&
Z.;..&D.; FAST..ROUTINE.E&N.;.X&X.FAST.
STX W.D2..&..STY W.D2.1..&..FAST.0 CMP W
.D1..'..BNE .OUT..' .INC W.D1.1.&'..LDA
W.D1.1.3'..CMP #$FF.?'..BEQ F.1.P'H.F..
LDX W.D2._'R.LDY W.D2.1.G'..RTS.X'..F.1
LDA #$1A..'..JSR ...'..LDA #$FF..'..JSR
...'..LDA W.D1..'..JSR ...'".LDA #$00.L'
,.STA W.D1.1.X'6.JMP F....'@..OUT PHA..'
J.LDA W.D1.1..(T.CMP #$04..(^.BCS FAS.UT
..(H.CMP #$00.+(R.BEQ NOUT1.8(|.LDA W.D1
.G(..NOUT JSR ..V(..DEC W.D1.1.C(..BNE N
OUT.V(..NOUT1 LDA #$01..(..STA W.D1.1..(
..PLA..(B.STA W.D1..(L.JMP F....(V.FAS.U
T LDA #$1A.D(..JSR ..S(..LDA W.D1.1..(..
JSR ...(..LDA W.D1..(..JSR ...)..JMP NOU
T1..)..FASTCR LDA #" ".$)&.JSR FAST..1)0
.LDA #$0D.?):.JMP FAST..E)D.;.R)N.; TABE
LC.X)X.;.|)B.. .F "PRINTING...":.BYT $0D
,$0D..)L..F "PLEASE WAIT":.BYT $00..)V.C
ANCEL .BYT ".",$02,".",$08,".".R)...F ".
CONTINUE."..)...BYT ".",$02,".",$08,".",
$0D,$0D..*...BYT ".",$02,".",$08,".".(*.
..F ". CANCEL .".I*...BYT ".",$02,".",$0
8,".",$00.E*..ALT .F "CH.ALTERNATIVE"...
> CLICK IMAGE PREVIEW FOR FULL MODAL