ZSL DL900.SRC
FILE INFORMATION
FILENAME(S): ZSL DL900.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 01:13:03
APPEARS ON: 1 disk(s)
FILE HASH
80ceaf93f3045154879b1d0e2e54a9e62a99976bfa19dbf5e1d6092c6bafde96
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10305 SEITE B | ZSL DL900.SRC | PRG | C64er | 16 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 5A 00 97 35 36 2C 38 30 30 30 AD 32 |....Z..56,8000.2| 00000010: 35 36 3A 9C 00 1F 08 64 00 9E 33 36 38 36 34 00 |56:....d..36864.| 00000020: 2B 08 6E 00 2E 4F 50 54 20 4F 4F 00 36 08 78 00 |+.n..OPT OO.6.x.| 00000030: AC B2 38 30 30 30 00 41 08 DC 00 54 4D 50 20 B2 |..8000.A...TMP .| 00000040: 32 00 53 08 E6 00 53 45 54 4C 46 53 20 B2 24 46 |2.S...SETLFS .$F| 00000050: 46 42 41 00 65 08 F0 00 53 45 54 4E 41 4D 20 B2 |FBA.e...SETNAM .| 00000060: 24 46 46 42 44 00 72 08 FA 00 9F 20 B2 24 45 31 |$FFBD.r.... .$E1| 00000070: 43 31 00 7F 08 04 01 A0 20 B2 24 45 31 43 43 00 |C1...... .$E1CC.| 00000080: 90 08 0E 01 43 48 4B 49 4E 20 B2 24 45 31 31 45 |....CHKIN .$E11E| 00000090: 00 A2 08 18 01 43 48 4B 4F 55 54 20 B2 24 45 31 |.....CHKOUT .$E1| 000000A0: 31 38 00 B2 08 22 01 9C 43 48 4E 20 B2 24 46 46 |18..."..CHN .$FF| 000000B0: 43 43 00 C4 08 2C 01 43 48 52 4F 55 54 20 B2 24 |CC...,.CHROUT .$| 000000C0: 46 46 44 32 00 D1 08 36 01 93 20 B2 24 46 46 44 |FFD2...6.. .$FFD| 000000D0: 35 00 DE 08 40 01 A1 20 B2 24 46 46 45 34 00 EE |5...@.. .$FFE4..| 000000E0: 08 68 01 9C 53 43 4E 20 B2 24 45 35 34 34 00 FE |.h..SCN .$E544..| 000000F0: 08 7C 01 43 52 53 43 4F 4C 20 B2 36 34 36 00 0C |.|.CRSCOL .646..| 00000100: 09 B8 01 54 45 58 54 20 B2 24 34 31 00 1C 09 CC |...TEXT .$41....| 00000110: 01 41 4C 50 43 54 52 20 B2 24 39 32 00 2A 09 D6 |.ALPCTR .$92.*..| 00000120: 01 42 49 4C 44 20 B2 24 39 42 00 3B 09 EA 01 51 |.BILD .$9B.;...Q| 00000130: 55 41 4C 49 54 59 20 B2 24 41 37 00 4A 09 F4 01 |UALITY .$A7.J...| 00000140: 53 54 59 4C 45 20 B2 24 41 38 00 58 09 12 02 46 |STYLE .$A8.X...F| 00000150: 91 54 C3 20 B2 24 42 35 00 66 09 1C 02 46 A1 20 |.T. .$B5.f...F. | 00000160: B2 24 45 31 32 34 00 74 09 B2 02 4A 53 52 20 24 |.$E124.t...JSR $| 00000170: 46 46 45 37 00 82 09 BC 02 4A 53 52 20 43 4F 4C |FFE7.....JSR COL| 00000180: B0 53 00 A8 09 3E 03 4C 44 41 20 23 B3 54 49 54 |.S...>.LDA #.TIT| 00000190: 45 4C 3A 4C 44 59 20 23 B1 54 49 54 45 4C 3A 4A |EL:LDY #.TITEL:J| 000001A0: 53 52 20 24 41 42 31 45 00 B8 09 48 03 4A 53 52 |SR $AB1E...H.JSR| 000001B0: 20 4C 41 42 30 41 39 42 00 C8 09 52 03 4A 53 52 | LAB0A9B...R.JSR| 000001C0: 20 4C 41 42 30 38 43 39 00 D6 09 DE 03 4A 4D 50 | LAB08C9.....JMP| 000001D0: 20 43 4F 4C B0 53 00 0C 0A E8 03 42 55 46 48 4F | COL.S.....BUFHO| 000001E0: 4D 45 20 4C 44 41 20 23 B3 42 55 46 3A 4C 44 59 |ME LDA #.BUF:LDY| 000001F0: 20 23 B1 42 55 46 3A 53 54 41 20 54 4D 50 3A 53 | #.BUF:STA TMP:S| 00000200: 54 59 20 54 4D 50 AA 31 3A 52 54 53 00 47 0A F2 |TY TMP.1:RTS.G..| 00000210: 03 48 4F 4C 20 4C 44 59 20 23 30 3A 4C 44 41 20 |.HOL LDY #0:LDA | 00000220: 28 54 4D 50 29 2C 59 3A 50 48 41 3A 49 4E 43 20 |(TMP),Y:PHA:INC | 00000230: 54 4D 50 3A 42 4E 45 20 4E 4F 49 4E 43 3A 49 4E |TMP:BNE NOINC:IN| 00000240: 43 20 54 4D 50 AA 31 00 59 0A FC 03 4E 4F 49 4E |C TMP.1.Y...NOIN| 00000250: 43 20 50 4C 41 3A 52 54 53 00 5F 0A 88 04 3B 00 |C PLA:RTS._...;.| 00000260: 71 0A 92 04 43 4F 4C B0 53 20 4C 44 41 20 23 31 |q...COL.S LDA #1| 00000270: 35 00 7F 0A 9C 04 53 54 41 20 24 44 30 32 30 00 |5.....STA $D020.| 00000280: 8D 0A B0 04 53 54 41 20 24 44 30 32 31 00 99 0A |....STA $D021...| 00000290: BA 04 4C 44 41 20 23 31 31 00 A8 0A C4 04 53 54 |..LDA #11.....ST| 000002A0: 41 20 43 52 53 43 4F 4C 00 B5 0A CE 04 4A 4D 50 |A CRSCOL.....JMP| 000002B0: 20 9C 53 43 4E 00 BB 0A E2 04 3B 00 D1 0A F6 04 | .SCN.....;.....| 000002C0: 4C 41 42 30 38 43 39 20 4A 53 52 20 54 45 53 54 |LAB08C9 JSR TEST| 000002D0: C3 00 DE 0A 00 05 53 54 41 20 46 91 54 C3 00 F6 |......STA F.T...| 000002E0: 0A 0A 05 4C 41 42 30 38 43 46 20 4A 53 52 20 4C |...LAB08CF JSR L| 000002F0: 41 42 30 39 31 36 00 08 0B 14 05 4C 41 42 30 38 |AB0916.....LAB08| 00000300: 44 32 20 4A 53 52 20 A1 00 18 0B 1E 05 42 45 51 |D2 JSR ......BEQ| 00000310: 20 4C 41 42 30 38 44 32 00 24 0B 28 05 43 4D 50 | LAB08D2.$.(.CMP| 00000320: 20 23 31 33 00 31 0B 32 05 42 45 51 20 51 44 45 | #13.1.2.BEQ QDE| 00000330: 31 00 3D 0B 3C 05 43 4D 50 20 23 32 30 00 4A 0B |1.=.<.CMP #20.J.| 00000340: 46 05 42 45 51 20 44 45 88 45 00 56 0B 50 05 43 |F.BEQ DE.E.V.P.C| 00000350: 4D 50 20 23 22 5F 00 62 0B 5A 05 42 45 51 20 45 |MP #"_.b.Z.BEQ E| 00000360: 49 32 00 72 0B 64 05 4A 53 52 20 4C 41 42 30 38 |I2.r.d.JSR LAB08| 00000370: 46 34 00 82 0B 6E 05 4A 4D 50 20 4C 41 42 30 38 |F4...n.JMP LAB08| 00000380: 43 46 00 88 0B 78 05 3B 00 99 0B 82 05 44 45 88 |CF...x.;.....DE.| 00000390: 45 20 4A 53 52 20 45 49 33 00 A9 0B 8C 05 4A 4D |E JSR EI3.....JM| 000003A0: 50 20 4C 41 42 30 38 43 46 00 AF 0B 96 05 3B 00 |P LAB08CF.....;.| 000003B0: C0 0B B4 05 51 44 45 31 20 4A 4D 50 20 44 45 31 |....QDE1 JMP DE1| 000003C0: 00 C6 0B C8 05 3B 00 DB 0B D2 05 4C 41 42 30 38 |.....;.....LAB08| 000003D0: 46 34 20 4C 44 58 20 46 91 54 C3 00 E7 0B DC 05 |F4 LDX F.T......| 000003E0: 43 50 58 20 23 31 36 00 F3 0B E6 05 42 43 53 20 |CPX #16.....BCS | 000003F0: 45 49 32 00 03 0C F0 05 53 54 41 20 46 91 54 AA |EI2.....STA F.T.| 00000400: 31 2C 58 00 0F 0C FA 05 4C 44 41 20 23 22 3C 00 |1,X.....LDA #"<.| 00000410: 1F 0C 04 06 53 54 41 20 46 91 54 AA 32 2C 58 00 |....STA F.T.2,X.| 00000420: 2C 0C 0E 06 49 4E 43 20 46 91 54 C3 00 38 0C 18 |,...INC F.T..8..| 00000430: 06 45 49 32 20 52 54 53 00 3E 0C 22 06 3B 00 4F |.EI2 RTS.>.".;.O| 00000440: 0C 2C 06 45 49 33 20 4C 44 58 20 46 91 54 C3 00 |.,.EI3 LDX F.T..| 00000450: 5B 0C 36 06 42 45 51 20 45 49 31 00 67 0C 40 06 |[.6.BEQ EI1.g.@.| 00000460: 4C 44 41 20 23 33 32 00 77 0C 4A 06 53 54 41 20 |LDA #32.w.J.STA | 00000470: 46 91 54 AA 31 2C 58 00 83 0C 54 06 4C 44 41 20 |F.T.1,X...T.LDA | 00000480: 23 22 3C 00 91 0C 5E 06 53 54 41 20 46 91 54 2C |#"<...^.STA F.T,| 00000490: 58 00 9E 0C 68 06 44 45 43 20 46 91 54 C3 00 AA |X...h.DEC F.T...| 000004A0: 0C 72 06 45 49 31 20 52 54 53 00 B0 0C 7C 06 3B |.r.EI1 RTS...|.;| 000004B0: 00 C6 0C 86 06 4C 41 42 30 39 31 36 20 4C 44 58 |.....LAB0916 LDX| 000004C0: 20 23 B3 46 91 54 00 D3 0C 90 06 53 54 58 20 54 | #.F.T.....STX T| 000004D0: 45 58 54 00 E1 0C 9A 06 4C 44 58 20 23 B1 46 91 |EXT.....LDX #.F.| 000004E0: 54 00 F0 0C A4 06 53 54 58 20 54 45 58 54 AA 31 |T.....STX TEXT.1| 000004F0: 00 FD 0C AE 06 4C 44 58 20 23 24 41 38 00 0A 0D |.....LDX #$A8...| 00000500: B8 06 53 54 58 20 42 49 4C 44 00 15 0D C2 06 4C |..STX BILD.....L| 00000510: 44 58 20 23 36 00 24 0D CC 06 53 54 58 20 42 49 |DX #6.$...STX BI| 00000520: 4C 44 AA 31 00 33 0D D6 06 4A 4D 50 20 53 54 52 |LD.1.3...JMP STR| 00000530: 4F 55 54 00 39 0D EA 06 3B 00 4A 0D F4 06 54 45 |OUT.9...;.J...TE| 00000540: 53 54 C3 20 4C 44 58 20 23 30 00 5E 0D FE 06 45 |ST. LDX #0.^...E| 00000550: 49 35 20 4C 44 41 20 46 91 54 AA 31 2C 58 00 6A |I5 LDA F.T.1,X.j| 00000560: 0D 08 07 43 4D 50 20 23 22 3C 00 76 0D 12 07 42 |...CMP #"<.v...B| 00000570: 45 51 20 45 49 34 00 7E 0D 1C 07 49 4E 58 00 8A |EQ EI4.~...INX..| 00000580: 0D 26 07 42 4E 45 20 45 49 35 00 96 0D 3A 07 45 |.&.BNE EI5...:.E| 00000590: 49 34 20 54 58 41 00 A2 0D 44 07 53 54 32 20 52 |I4 TXA...D.ST2 R| 000005A0: 54 53 00 A8 0D 4E 07 3B 00 BA 0D 58 07 53 54 52 |TS...N.;...X.STR| 000005B0: 4F 55 54 20 4C 44 59 20 23 30 00 CF 0D 62 07 53 |OUT LDY #0...b.S| 000005C0: 54 31 20 4C 44 41 20 28 54 45 58 54 29 2C 59 00 |T1 LDA (TEXT),Y.| 000005D0: DB 0D 6C 07 42 45 51 20 53 54 32 00 E8 0D 76 07 |..l.BEQ ST2...v.| 000005E0: 41 4E 44 20 23 24 42 46 00 F9 0D 80 07 53 54 41 |AND #$BF.....STA| 000005F0: 20 28 42 49 4C 44 29 2C 59 00 01 0E 8A 07 49 4E | (BILD),Y.....IN| 00000600: 59 00 0D 0E 94 07 42 4E 45 20 53 54 31 00 13 0E |Y.....BNE ST1...| 00000610: A8 07 3B 00 46 0E B2 07 49 4E 49 54 44 49 53 4B |..;.F...INITDISK| 00000620: 20 4C 44 58 20 23 B3 8A 31 3A 4C 44 59 20 23 B1 | LDX #..1:LDY #.| 00000630: 8A 31 3A 53 54 58 20 54 45 58 54 3A 53 54 59 20 |.1:STX TEXT:STY | 00000640: 54 45 58 54 AA 31 00 7F 0E B4 07 4C 44 58 20 23 |TEXT.1.....LDX #| 00000650: B3 31 38 32 34 3A 4C 44 59 20 23 B1 31 38 32 34 |.1824:LDY #.1824| 00000660: 3A 53 54 58 20 42 49 4C 44 3A 53 54 59 20 42 49 |:STX BILD:STY BI| 00000670: 4C 44 AA 31 3A 4A 53 52 20 53 54 52 4F 55 54 00 |LD.1:JSR STROUT.| 00000680: 8D 0E B8 07 4A 53 52 20 54 45 53 54 C3 00 9F 0E |....JSR TEST....| 00000690: BC 07 4C 44 58 20 23 B3 28 46 91 54 AA 31 29 00 |..LDX #.(F.T.1).| 000006A0: B1 0E C6 07 4C 44 59 20 23 B1 28 46 91 54 AA 31 |....LDY #.(F.T.1| 000006B0: 29 00 C0 0E D0 07 4A 53 52 20 53 45 54 4E 41 4D |).....JSR SETNAM| 000006C0: 00 CB 0E DA 07 4C 44 41 20 23 33 00 D6 0E E4 07 |.....LDA #3.....| 000006D0: 4C 44 58 20 23 38 00 E1 0E EE 07 4C 44 59 20 23 |LDX #8.....LDY #| 000006E0: 30 00 F0 0E F8 07 4A 53 52 20 53 45 54 4C 46 53 |0.....JSR SETLFS| 000006F0: 00 FA 0E 02 08 4A 53 52 20 9F 00 05 0F 0C 08 4C |.....JSR ......L| 00000700: 44 58 20 23 33 00 13 0F 16 08 4A 53 52 20 43 48 |DX #3.....JSR CH| 00000710: 4B 49 4E 00 3B 0F 2A 08 4A 53 52 20 42 55 46 48 |KIN.;.*.JSR BUFH| 00000720: 4F 4D 45 3A 4A 53 52 20 46 A1 3A 4C 44 58 20 31 |OME:JSR F.:LDX 1| 00000730: 34 34 3A 42 45 51 20 52 45 49 4E 00 50 0F 2C 08 |44:BEQ REIN.P.,.| 00000740: 4C 44 58 20 23 34 3A 4A 4D 50 20 24 41 34 33 37 |LDX #4:JMP $A437| 00000750: 00 6E 0F 34 08 46 49 4C 4C 49 4E 20 4C 44 41 20 |.n.4.FILLIN LDA | 00000760: 31 34 34 3A 42 4E 45 20 46 49 4C 4C 45 44 00 79 |144:BNE FILLED.y| 00000770: 0F 3E 08 4A 53 52 20 46 A1 00 BD 0F 43 08 52 45 |.>.JSR F....C.RE| 00000780: 49 4E 20 4C 44 59 20 23 30 3A 53 54 41 20 28 54 |IN LDY #0:STA (T| 00000790: 4D 50 29 2C 59 3A 49 4E 43 20 54 4D 50 3A 42 4E |MP),Y:INC TMP:BN| 000007A0: 45 20 46 49 4C 4C 49 4E 3A 49 4E 43 20 54 4D 50 |E FILLIN:INC TMP| 000007B0: AA 31 3A 42 4E 45 20 46 49 4C 4C 49 4E 00 DE 0F |.1:BNE FILLIN...| 000007C0: 48 08 46 49 4C 4C 45 44 20 4A 53 52 20 9C 43 48 |H.FILLED JSR .CH| 000007D0: 4E 3A 4C 44 41 20 23 33 3A 4A 4D 50 20 A0 00 FF |N:LDA #3:JMP ...| 000007E0: 0F 6A 09 44 45 31 20 4A 53 52 20 49 4E 49 54 44 |.j.DE1 JSR INITD| 000007F0: 49 53 4B 3A 4A 53 52 20 42 55 46 48 4F 4D 45 00 |ISK:JSR BUFHOME.| 00000800: 0F 10 74 09 4A 53 52 20 49 4E 49 54 50 54 52 00 |..t.JSR INITPTR.| 00000810: 1F 10 7E 09 44 45 32 20 4A 53 52 20 48 4F 4C 00 |..~.DE2 JSR HOL.| 00000820: 2E 10 88 09 42 45 51 20 46 45 52 54 49 47 00 36 |....BEQ FERTIG.6| 00000830: 10 92 09 50 48 41 00 59 10 9C 09 4A 53 52 20 45 |...PHA.Y...JSR E| 00000840: 53 43 3A 4C 44 41 20 23 22 26 22 3A 4A 53 52 20 |SC:LDA #"&":JSR | 00000850: 99 3A 4A 53 52 20 4E 49 4C 00 61 10 A6 09 50 4C |.:JSR NIL.a...PL| 00000860: 41 00 6E 10 B0 09 4A 53 52 20 96 43 48 52 00 7A |A.n...JSR .CHR.z| 00000870: 10 BA 09 4A 4D 50 20 44 45 32 00 80 10 C4 09 3B |...JMP DE2.....;| 00000880: 00 97 10 CE 09 46 45 52 54 49 47 20 4A 53 52 20 |.....FERTIG JSR | 00000890: 41 4C 46 41 42 45 54 00 A4 10 D8 09 4A 53 52 20 |ALFABET.....JSR | 000008A0: 9C 43 48 4E 00 B5 10 E2 09 4C 44 41 20 23 34 3A |.CHN.....LDA #4:| 000008B0: 4A 4D 50 20 A0 00 BB 10 EC 09 3B 00 CD 10 0A 0A |JMP ......;.....| 000008C0: 4D 41 4C 33 20 53 54 41 20 54 45 58 54 00 D5 10 |MAL3 STA TEXT...| 000008D0: 14 0A 41 53 4C 00 DD 10 1E 0A 43 4C 43 00 EA 10 |..ASL.....CLC...| 000008E0: 28 0A 41 44 43 20 54 45 58 54 00 F7 10 32 0A 53 |(.ADC TEXT...2.S| 000008F0: 54 41 20 54 45 58 54 00 04 11 3C 0A 49 4E 43 20 |TA TEXT...<.INC | 00000900: 54 45 58 54 00 0C 11 46 0A 52 54 53 00 12 11 50 |TEXT...F.RTS...P| 00000910: 0A 3B 00 21 11 5A 0A 96 43 48 52 20 4A 53 52 20 |.;.!.Z..CHR JSR | 00000920: 99 00 2B 11 78 0A 4A 53 52 20 99 00 37 11 82 0A |..+.x.JSR ..7...| 00000930: 4A 53 52 20 48 4F 4C 00 41 11 8C 0A 4A 53 52 20 |JSR HOL.A...JSR | 00000940: 99 00 4D 11 96 0A 4A 53 52 20 48 4F 4C 00 57 11 |..M...JSR HOL.W.| 00000950: A0 0A 4A 53 52 20 99 00 64 11 AA 0A 4A 53 52 20 |..JSR ..d...JSR | 00000960: 4D 41 4C 33 00 75 11 C8 0A 4C 4F 4F 50 20 4A 53 |MAL3.u...LOOP JS| 00000970: 52 20 48 4F 4C 00 7F 11 D2 0A 4A 53 52 20 99 00 |R HOL.....JSR ..| 00000980: 8C 11 DC 0A 44 45 43 20 54 45 58 54 00 99 11 E6 |....DEC TEXT....| 00000990: 0A 42 4E 45 20 4C 4F 4F 50 00 A1 11 F0 0A 52 54 |.BNE LOOP.....RT| 000009A0: 53 00 A7 11 FA 0A 3B 00 D9 11 04 0B 49 4E 49 54 |S.....;.....INIT| 000009B0: 50 54 52 20 4C 44 58 20 23 B3 8A 32 3A 4C 44 59 |PTR LDX #..2:LDY| 000009C0: 20 23 B1 8A 32 3A 53 54 58 20 54 45 58 54 3A 53 | #..2:STX TEXT:S| 000009D0: 54 59 20 54 45 58 54 AA 31 00 12 12 06 0B 4C 44 |TY TEXT.1.....LD| 000009E0: 58 20 23 B3 31 39 30 34 3A 4C 44 59 20 23 B1 31 |X #.1904:LDY #.1| 000009F0: 39 30 34 3A 53 54 58 20 42 49 4C 44 3A 53 54 59 |904:STX BILD:STY| 00000A00: 20 42 49 4C 44 AA 31 3A 4A 53 52 20 53 54 52 4F | BILD.1:JSR STRO| 00000A10: 55 54 00 1D 12 0A 0B 4C 44 41 20 23 30 00 2C 12 |UT.....LDA #0.,.| 00000A20: 0E 0B 4A 53 52 20 53 45 54 4E 41 4D 00 37 12 18 |..JSR SETNAM.7..| 00000A30: 0B 4C 44 41 20 23 34 00 42 12 22 0B 4C 44 58 20 |.LDA #4.B.".LDX | 00000A40: 23 34 00 4D 12 2C 0B 4C 44 59 20 23 31 00 5C 12 |#4.M.,.LDY #1.\.| 00000A50: 36 0B 4A 53 52 20 53 45 54 4C 46 53 00 78 12 40 |6.JSR SETLFS.x.@| 00000A60: 0B 4A 53 52 20 9F 3A 4C 44 58 20 23 34 3A 4A 53 |.JSR .:LDX #4:JS| 00000A70: 52 20 43 48 4B 4F 55 54 00 84 12 62 0C 4A 53 52 |R CHKOUT...b.JSR| 00000A80: 20 45 53 43 00 9D 12 76 0C 4C 44 41 20 23 31 32 | ESC...v.LDA #12| 00000A90: 30 20 3B 20 4B 4C 45 49 4E 45 53 20 58 00 A7 12 |0 ; KLEINES X...| 00000AA0: 80 0C 4A 53 52 20 99 00 B7 12 8A 0C 4C 44 41 20 |..JSR ......LDA | 00000AB0: 51 55 41 4C 49 54 59 00 C1 12 94 0C 4A 53 52 20 |QUALITY.....JSR | 00000AC0: 99 00 CD 12 9E 0C 4A 53 52 20 45 53 43 00 D9 12 |......JSR ESC...| 00000AD0: B2 0C 4C 44 41 20 23 22 21 00 E3 12 BC 0C 4A 53 |..LDA #"!.....JS| 00000AE0: 52 20 99 00 F1 12 C6 0C 4C 44 41 20 53 54 59 4C |R ......LDA STYL| 00000AF0: 45 00 FB 12 D0 0C 4A 53 52 20 99 00 07 13 DA 0C |E.....JSR ......| 00000B00: 4A 53 52 20 45 53 43 00 13 13 EE 0C 4C 44 41 20 |JSR ESC.....LDA | 00000B10: 23 22 3A 00 1D 13 F8 0C 4A 53 52 20 99 00 29 13 |#":.....JSR ..).| 00000B20: 02 0D 4A 53 52 20 4E 49 4C 00 33 13 20 0D 4A 53 |..JSR NIL.3. .JS| 00000B30: 52 20 99 00 3D 13 34 0D 4A 53 52 20 99 00 49 13 |R ..=.4.JSR ..I.| 00000B40: 3E 0D 4A 53 52 20 45 53 43 00 55 13 52 0D 4C 44 |>.JSR ESC.U.R.LD| 00000B50: 41 20 23 22 25 00 5F 13 5C 0D 4A 53 52 20 99 00 |A #"%._.\.JSR ..| 00000B60: 73 13 66 0D 4C 44 41 20 23 31 3A 2E 42 59 54 20 |s.f.LDA #1:.BYT | 00000B70: 24 32 43 00 8C 13 70 0D 45 53 43 20 4C 44 41 20 |$2C...p.ESC LDA | 00000B80: 23 32 37 3A 2E 42 59 54 20 24 32 43 00 9B 13 75 |#27:.BYT $2C...u| 00000B90: 0D 4E 49 4C 20 4C 44 41 20 23 30 00 AC 13 7A 0D |.NIL LDA #0...z.| 00000BA0: 99 20 4A 4D 50 20 43 48 52 4F 55 54 00 B2 13 84 |. JMP CHROUT....| 00000BB0: 0D 3B 00 C7 13 DE 0D 41 4C 46 41 42 45 54 20 4C |.;.....ALFABET L| 00000BC0: 44 41 20 23 24 31 46 00 D6 13 E8 0D 53 54 41 20 |DA #$1F.....STA | 00000BD0: 41 4C 50 43 54 52 00 E2 13 F2 0D 4C 44 41 20 23 |ALPCTR.....LDA #| 00000BE0: 31 33 00 EF 13 FC 0D 41 31 20 4A 53 52 20 99 00 |13.....A1 JSR ..| 00000BF0: FE 13 06 0E 49 4E 43 20 41 4C 50 43 54 52 00 0D |....INC ALPCTR..| 00000C00: 14 10 0E 4C 44 41 20 41 4C 50 43 54 52 00 1A 14 |...LDA ALPCTR...| 00000C10: 1A 0E 43 4D 50 20 23 24 38 30 00 25 14 24 0E 42 |..CMP #$80.%.$.B| 00000C20: 4E 45 20 41 31 00 31 14 2E 0E 4C 44 41 20 23 31 |NE A1.1...LDA #1| 00000C30: 33 00 3B 14 38 0E 4A 4D 50 20 99 00 41 14 4C 0E |3.;.8.JMP ..A.L.| 00000C40: 3B 00 59 14 74 0E 4C 41 42 30 41 39 42 20 4C 44 |;.Y.t.LAB0A9B LD| 00000C50: 58 20 23 B3 4C 51 41 4E 46 00 69 14 7E 0E 4C 44 |X #.LQANF.i.~.LD| 00000C60: 59 20 23 B1 4C 51 41 4E 46 00 76 14 88 0E 53 54 |Y #.LQANF.v...ST| 00000C70: 58 20 54 45 58 54 00 85 14 92 0E 53 54 59 20 54 |X TEXT.....STY T| 00000C80: 45 58 54 AA 31 00 95 14 9C 0E 4A 53 52 20 4C 41 |EXT.1.....JSR LA| 00000C90: 42 30 42 34 32 00 A4 14 A6 0E 4A 53 52 20 53 54 |B0B42.....JSR ST| 00000CA0: 52 4F 55 54 00 B1 14 B0 0E 4A 53 52 20 4C 4F 45 |ROUT.....JSR LOE| 00000CB0: 96 00 C3 14 BA 0E 4C 41 42 30 41 41 46 20 4A 53 |......LAB0AAF JS| 00000CC0: 52 20 A1 00 D3 14 C4 0E 42 45 51 20 4C 41 42 30 |R ......BEQ LAB0| 00000CD0: 41 41 46 00 DF 14 CE 0E 43 4D 50 20 23 22 4A 00 |AAF.....CMP #"J.| 00000CE0: EB 14 D8 0E 42 45 51 20 51 55 31 00 F7 14 E2 0E |....BEQ QU1.....| 00000CF0: 43 4D 50 20 23 22 4E 00 07 15 EC 0E 42 4E 45 20 |CMP #"N.....BNE | 00000D00: 4C 41 42 30 41 41 46 00 16 15 F6 0E 4A 53 52 20 |LAB0AAF.....JSR | 00000D10: 53 54 52 4F 55 54 00 21 15 00 0F 4C 44 41 20 23 |STROUT.!...LDA #| 00000D20: 30 00 2D 15 0A 0F 42 45 51 20 51 55 30 00 33 15 |0.-...BEQ QU0.3.| 00000D30: 1E 0F 3B 00 44 15 28 0F 51 55 31 20 4C 44 58 20 |..;.D.(.QU1 LDX | 00000D40: 23 24 34 42 00 51 15 32 0F 53 54 58 20 42 49 4C |#$4B.Q.2.STX BIL| 00000D50: 44 00 60 15 3C 0F 4A 53 52 20 53 54 52 4F 55 54 |D.`.<.JSR STROUT| 00000D60: 00 6B 15 46 0F 4C 44 41 20 23 31 00 7F 15 50 0F |.k.F.LDA #1...P.| 00000D70: 51 55 30 20 53 54 41 20 51 55 41 4C 49 54 59 00 |QU0 STA QUALITY.| 00000D80: 90 15 5A 0F 4C 44 58 20 23 B3 50 52 4F 41 4E 46 |..Z.LDX #.PROANF| 00000D90: 00 A1 15 64 0F 4C 44 59 20 23 B1 50 52 4F 41 4E |...d.LDY #.PROAN| 00000DA0: 46 00 AE 15 6E 0F 53 54 58 20 54 45 58 54 00 BD |F...n.STX TEXT..| 00000DB0: 15 78 0F 53 54 59 20 54 45 58 54 AA 31 00 CA 15 |.x.STY TEXT.1...| 00000DC0: 82 0F 4C 44 58 20 23 24 42 38 00 D7 15 8C 0F 53 |..LDX #$B8.....S| 00000DD0: 54 58 20 42 49 4C 44 00 E6 15 96 0F 4A 53 52 20 |TX BILD.....JSR | 00000DE0: 53 54 52 4F 55 54 00 F3 15 A0 0F 4A 53 52 20 4C |STROUT.....JSR L| 00000DF0: 4F 45 96 00 05 16 AA 0F 4C 41 42 30 41 45 33 20 |OE......LAB0AE3 | 00000E00: 4A 53 52 20 A1 00 15 16 B4 0F 42 45 51 20 4C 41 |JSR ......BEQ LA| 00000E10: 42 30 41 45 33 00 21 16 BE 0F 43 4D 50 20 23 22 |B0AE3.!...CMP #"| 00000E20: 4A 00 31 16 C8 0F 42 45 51 20 4C 41 42 30 41 46 |J.1...BEQ LAB0AF| 00000E30: 44 00 3D 16 D2 0F 43 4D 50 20 23 22 4E 00 4D 16 |D.=...CMP #"N.M.| 00000E40: DC 0F 42 45 51 20 4C 41 42 30 41 46 33 00 5D 16 |..BEQ LAB0AF3.].| 00000E50: E6 0F 4A 4D 50 20 4C 41 42 30 41 39 42 00 63 16 |..JMP LAB0A9B.c.| 00000E60: F0 0F 3B 00 7A 16 FA 0F 4C 41 42 30 41 46 33 20 |..;.z...LAB0AF3 | 00000E70: 4A 53 52 20 53 54 52 4F 55 54 00 85 16 04 10 4C |JSR STROUT.....L| 00000E80: 44 41 20 23 30 00 93 16 0E 10 53 54 41 20 53 54 |DA #0.....STA ST| 00000E90: 59 4C 45 00 A3 16 18 10 42 45 51 20 4C 41 42 30 |YLE.....BEQ LAB0| 00000EA0: 42 30 38 00 A9 16 22 10 3B 00 BE 16 2C 10 4C 41 |B08...".;...,.LA| 00000EB0: 42 30 41 46 44 20 4C 44 58 20 23 24 43 35 00 CB |B0AFD LDX #$C5..| 00000EC0: 16 36 10 53 54 58 20 42 49 4C 44 00 DA 16 40 10 |.6.STX BILD...@.| 00000ED0: 4A 53 52 20 53 54 52 4F 55 54 00 E5 16 4A 10 4C |JSR STROUT...J.L| 00000EE0: 44 41 20 23 32 00 F3 16 54 10 53 54 41 20 53 54 |DA #2...T.STA ST| 00000EF0: 59 4C 45 00 0B 17 5E 10 4C 41 42 30 42 30 38 20 |YLE...^.LAB0B08 | 00000F00: 4C 44 58 20 23 B3 4B 55 41 4E 46 00 1B 17 68 10 |LDX #.KUANF...h.| 00000F10: 4C 44 59 20 23 B1 4B 55 41 4E 46 00 28 17 72 10 |LDY #.KUANF.(.r.| 00000F20: 53 54 58 20 54 45 58 54 00 37 17 7C 10 53 54 59 |STX TEXT.7.|.STY| 00000F30: 20 54 45 58 54 AA 31 00 44 17 86 10 4C 44 58 20 | TEXT.1.D...LDX | 00000F40: 23 24 33 30 00 4F 17 90 10 4C 44 59 20 23 36 00 |#$30.O...LDY #6.| 00000F50: 5C 17 9A 10 53 54 58 20 42 49 4C 44 00 6B 17 A4 |\...STX BILD.k..| 00000F60: 10 53 54 59 20 42 49 4C 44 AA 31 00 7A 17 AE 10 |.STY BILD.1.z...| 00000F70: 4A 53 52 20 53 54 52 4F 55 54 00 87 17 B8 10 4A |JSR STROUT.....J| 00000F80: 53 52 20 4C 4F 45 96 00 99 17 C2 10 4C 41 42 30 |SR LOE......LAB0| 00000F90: 42 31 45 20 4A 53 52 20 A1 00 A9 17 CC 10 42 45 |B1E JSR ......BE| 00000FA0: 51 20 4C 41 42 30 42 31 45 00 B5 17 D6 10 43 4D |Q LAB0B1E.....CM| 00000FB0: 50 20 23 22 4A 00 C5 17 E0 10 42 45 51 20 4C 41 |P #"J.....BEQ LA| 00000FC0: 42 30 42 33 34 00 D1 17 EA 10 43 4D 50 20 23 22 |B0B34.....CMP #"| 00000FD0: 4E 00 E1 17 F4 10 42 45 51 20 4C 41 42 30 42 32 |N.....BEQ LAB0B2| 00000FE0: 45 00 F1 17 FE 10 4A 4D 50 20 4C 41 42 30 41 39 |E.....JMP LAB0A9| 00000FF0: 42 00 F7 17 08 11 3B 00 0E 18 12 11 4C 41 42 30 |B.....;.....LAB0| 00001000: 42 32 45 20 4A 53 52 20 53 54 52 4F 55 54 00 1E |B2E JSR STROUT..| 00001010: 18 1C 11 4A 4D 50 20 4C 41 42 30 42 34 31 00 24 |...JMP LAB0B41.$| 00001020: 18 26 11 3B 00 39 18 30 11 4C 41 42 30 42 33 34 |.&.;.9.0.LAB0B34| 00001030: 20 4C 44 58 20 23 24 33 37 00 46 18 3A 11 53 54 | LDX #$37.F.:.ST| 00001040: 58 20 42 49 4C 44 00 55 18 44 11 4A 53 52 20 53 |X BILD.U.D.JSR S| 00001050: 54 52 4F 55 54 00 63 18 4E 11 4C 44 41 20 53 54 |TROUT.c.N.LDA ST| 00001060: 59 4C 45 00 70 18 58 11 4F 52 41 20 23 24 34 30 |YLE.p.X.ORA #$40| 00001070: 00 7E 18 62 11 53 54 41 20 53 54 59 4C 45 00 8E |.~.b.STA STYLE..| 00001080: 18 6C 11 4C 41 42 30 42 34 31 20 52 54 53 00 94 |.l.LAB0B41 RTS..| 00001090: 18 76 11 3B 00 A9 18 80 11 4C 41 42 30 42 34 32 |.v.;.....LAB0B42| 000010A0: 20 4C 44 58 20 23 24 34 30 00 B4 18 8A 11 4C 44 | LDX #$40.....LD| 000010B0: 59 20 23 35 00 C1 18 94 11 53 54 58 20 42 49 4C |Y #5.....STX BIL| 000010C0: 44 00 D0 18 9E 11 53 54 59 20 42 49 4C 44 AA 31 |D.....STY BILD.1| 000010D0: 00 D8 18 A8 11 52 54 53 00 DE 18 B2 11 3B 00 F4 |.....RTS.....;..| 000010E0: 18 BC 11 4C 4F 45 96 20 4C 44 58 20 23 B3 4C 4F |...LOE. LDX #.LO| 000010F0: 45 41 4E 46 00 05 19 C6 11 4C 44 59 20 23 B1 4C |EANF.....LDY #.L| 00001100: 4F 45 41 4E 46 00 12 19 D0 11 53 54 58 20 54 45 |OEANF.....STX TE| 00001110: 58 54 00 21 19 DA 11 53 54 59 20 54 45 58 54 AA |XT.!...STY TEXT.| 00001120: 31 00 29 19 E4 11 52 54 53 00 2F 19 EE 11 3B 00 |1.)...RTS./...;.| 00001130: 53 19 F8 11 46 91 54 20 2E C6 20 22 3E 3C 20 20 |S...F.T .. ">< | 00001140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 00001150: 42 52 4B 00 85 19 2A 12 54 49 54 45 4C 20 2E C6 |BRK...*.TITEL ..| 00001160: 20 22 93 97 5A 45 49 43 48 45 4E 53 41 54 5A 4C | "..ZEICHENSATZL| 00001170: 41 44 45 52 20 44 4C 20 39 30 30 2F 57 49 45 53 |ADER DL 900/WIES| 00001180: 45 4D 41 4E 4E 00 B5 19 34 12 2E 42 59 54 20 31 |EMANN...4..BYT 1| 00001190: 33 3A 2E C6 20 22 56 45 52 42 45 53 53 45 52 54 |3:.. "VERBESSERT| 000011A0: 20 56 4F 4E 20 4E 2E 20 48 45 55 53 4C 45 52 2C | VON N. HEUSLER,| 000011B0: 20 34 2E 39 32 00 E9 19 36 12 2E 42 59 54 20 31 | 4.92...6..BYT 1| 000011C0: 33 3A 2E C6 20 22 44 52 55 43 4B 45 52 20 41 55 |3:.. "DRUCKER AU| 000011D0: 46 20 12 45 50 53 4F 4E 2D 45 4D 55 4C 2E 92 20 |F .EPSON-EMUL.. | 000011E0: 53 43 48 41 4C 54 45 4E 21 00 22 1A 38 12 2E 42 |SCHALTEN!.".8..B| 000011F0: 59 54 20 31 33 3A 2E C6 20 22 12 50 55 46 46 45 |YT 13:.. ".PUFFE| 00001200: 52 92 20 49 4D 20 44 52 55 43 4B 45 52 20 41 55 |R. IM DRUCKER AU| 00001210: 53 52 45 49 43 48 45 4E 44 20 57 41 45 48 4C 45 |SREICHEND WAEHLE| 00001220: 4E 21 00 64 1A 3A 12 2E 42 59 54 20 31 33 3A 2E |N!.d.:..BYT 13:.| 00001230: C6 20 22 28 4D 41 58 49 4D 41 4C 20 38 20 4B 49 |. "(MAXIMAL 8 KI| 00001240: 4C 4F 42 59 54 45 20 49 4D 20 48 41 52 44 57 41 |LOBYTE IM HARDWA| 00001250: 52 45 2D 4D 45 4E 55 45 29 22 3A 2E 42 59 54 20 |RE-MENUE)":.BYT | 00001260: 31 33 2C 30 00 8B 1A 70 12 4C 4F 45 41 4E 46 20 |13,0...p.LOEANF | 00001270: 2E C6 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |.. " | 00001280: 20 20 20 20 20 20 22 3A 42 52 4B 00 A8 1A 7A 12 | ":BRK...z.| 00001290: 2E 42 59 54 20 24 32 30 2C 24 32 30 2C 24 32 30 |.BYT $20,$20,$20| 000012A0: 2C 24 32 30 2C 24 30 30 00 CC 1A 84 12 4C 51 41 |,$20,$00.....LQA| 000012B0: 4E 46 20 2E C6 20 22 4C 51 2D 53 43 48 52 49 46 |NF .. "LQ-SCHRIF| 000012C0: 54 20 28 4A 2F 4E 29 22 3A 42 52 4B 00 F3 1A 8E |T (J/N)":BRK....| 000012D0: 12 50 52 4F 41 4E 46 20 2E C6 20 22 50 52 4F 50 |.PROANF .. "PROP| 000012E0: 4F 52 54 49 4F 4E 41 4C 20 28 4A 2F 4E 29 22 3A |ORTIONAL (J/N)":| 000012F0: 42 52 4B 00 13 1B AC 12 4B 55 41 4E 46 20 2E C6 |BRK.....KUANF ..| 00001300: 20 22 4B 55 52 53 49 56 20 28 4A 2F 4E 29 22 3A | "KURSIV (J/N)":| 00001310: 42 52 4B 00 36 1B C0 12 8A 31 20 2E C6 20 22 44 |BRK.6....1 .. "D| 00001320: 41 54 45 49 20 57 49 52 44 20 47 45 4C 41 44 45 |ATEI WIRD GELADE| 00001330: 4E 22 3A 42 52 4B 00 6C 1B C2 12 8A 32 20 2E C6 |N":BRK.l....2 ..| 00001340: 20 22 5A 45 49 43 48 45 4E 53 41 54 5A 20 57 49 | "ZEICHENSATZ WI| 00001350: 52 44 20 5A 55 4D 20 44 52 55 43 4B 45 52 20 47 |RD ZUM DRUCKER G| 00001360: 45 53 45 4E 44 45 54 22 3A 42 52 4B 00 77 1B 88 |ESENDET":BRK.w..| 00001370: 13 42 55 46 20 B2 AC 00 00 00 |.BUF ..... |
....Z..56,8000.256:....D..36864.+.N..OPT OO.6.X...8000.A...TMP .2.S...SETLFS .$F FBA.E...SETNAM .$FFBD.R.... .$E1C1.... .$E1CC.....CHKIN .$E11E.....CHKOUT .$E1 18..."..CHN .$FFCC.D.,.CHROUT .$FFD2.Q.6 .. .$FFD5...@.. .$FFE4...H..SCN .$E544.. .|.CRSCOL .646.....TEXT .$41...L.ALPCTR .$92.*.V.BILD .$9B.;...QUALITY .$A7.J... STYLE .$A8.X...F.TC .$B5.F...F. .$E124.T ...JSR $FFE7.....JSR COL.S...>.LDA #.TIT EL:LDY #.TITEL:JSR $AB1E...H.JSR LAB0A9B .H.R.JSR LAB08C9.V...JMP COL.S.....BUFHO ME LDA #.BUF:LDY #.BUF:STA TMP:STY TMP.1 :RTS.G...HOL LDY #0:LDA (TMP),Y:PHA:INC TMP:BNE NOINC:INC TMP.1.Y...NOINC PLA:RT S._...;.Q...COL.S LDA #15....STA $D020. ....STA $D021.....LDA #11...D.STA CRSCOL ...N.JMP .SCN.....;.Q...LAB08C9 JSR TEST C.....STA F.TC.....LAB08CF JSR LAB0916.. ...LAB08D2 JSR ......BEQ LAB08D2.$.(.CMP #13.1.2.BEQ QDE1.=.<.CMP #20.J.F.BEQ DE .E.V.P.CMP #"_.B.Z.BEQ EI2.R.D.JSR LAB08 F4...N.JMP LAB08CF...X.;.....DE.E JSR EI 3.....JMP LAB08CF.....;.....QDE1 JMP DE1 .F.H.;...R.LAB08F4 LDX F.TC.....CPX #16. ....BCS EI2.....STA F.T.1,X.....LDA #"<. ....STA F.T.2,X.,...INC F.TC.8...EI2 RTS .>.".;.O.,.EI3 LDX F.TC.[.6.BEQ EI1.G.@. LDA #32.W.J.STA F.T.1,X...T.LDA #"<...^. STA F.T,X...H.DEC F.TC...R.EI1 RTS...|.; .F...LAB0916 LDX #.F.T.S...STX TEXT..... LDX #.F.T.....STX TEXT.1.....LDX #$A8... ..STX BILD...B.LDX #6.$.L.STX BILD.1.3.V .JMP STROUT.9...;.J...TESTC LDX #0.^...E I5 LDA F.T.1,X.J...CMP #"<.V...BEQ EI4.~ ...INX...&.BNE EI5...:.EI4 TXA...D.ST2 R TS...N.;...X.STROUT LDY #0.O.B.ST1 LDA ( TEXT),Y...L.BEQ ST2...V.AND #$BF.....STA (BILD),Y.....INY.....BNE ST1.....;.F... INITDISK LDX #..1:LDY #..1:STX TEXT:STY TEXT.1....LDX #.1824:LDY #.1824:STX BIL D:STY BILD.1:JSR STROUT.....JSR TESTC... ..LDX #.(F.T.1)...F.LDY #.(F.T.1)...P.JS R SETNAM.K.Z.LDA #3.V...LDX #8.....LDY # 0.....JSR SETLFS.....JSR ......LDX #3... ..JSR CHKIN.;.*.JSR BUFHOME:JSR F.:LDX 1 44:BEQ REIN.P.,.LDX #4:JMP $A437.N.4.FIL LIN LDA 144:BNE FILLED.Y.>.JSR F....C.RE IN LDY #0:STA (TMP),Y:INC TMP:BNE FILLIN :INC TMP.1:BNE FILLIN...H.FILLED JSR .CH N:LDA #3:JMP ...J.DE1 JSR INITDISK:JSR BUFHOME...T.JSR INITPTR...~.DE2 JSR HOL. ....BEQ FERTIG.6...PHA.Y...JSR ESC:LDA # "&":JSR .:JSR NIL.A...PLA.N...JSR .CHR.Z ...JMP DE2...D.;...N.FERTIG JSR ALFABET. ..X.JSR .CHN.....LDA #4:JMP .....;.M... MAL3 STA TEXT.U...ASL.....CLC...(.ADC TE XT...2.STA TEXT...<.INC TEXT...F.RTS...P .;.!.Z..CHR JSR ..+.X.JSR ..7...JSR HOL. A...JSR ..M...JSR HOL.W. .JSR ..D...JSR MAL3.U.H.LOOP JSR HOL..R.JSR ......DEC TEXT.....BNE LOOP.....RTS.....;.Y...INIT PTR LDX #..2:LDY #..2:STX TEXT:STY TEXT. 1.....LDX #.1904:LDY #.1904:STX BILD:STY BILD.1:JSR STROUT.....LDA #0.,...JSR SE TNAM.7...LDA #4.B.".LDX #4.M.,.LDY #1.\. 6.JSR SETLFS.X.@.JSR .:LDX #4:JSR CHKOUT ...B.JSR ESC...V.LDA #120 ; KLEINES X... ..JSR ......LDA QUALITY.A...JSR ..M...JS R ESC.Y...LDA #"!.....JSR ....F.LDA STYL E...P.JSR ....Z.JSR ESC.....LDA #":..... JSR ..)...JSR NIL.3. .JSR ..=.4.JSR ..I. >.JSR ESC.U.R.LDA #"%._.\.JSR ..S.F.LDA #1:.BYT $2C...P.ESC LDA #27:.BYT $2C...U .NIL LDA #0...Z.. JMP CHROUT.....;.G...A LFABET LDA #$1F.V...STA ALPCTR.....LDA # 13.....A1 JSR ......INC ALPCTR.....LDA A LPCTR.....CMP #$80.%.$.BNE A1.1...LDA #1 3.;.8.JMP ..A.L.;.Y.T.LAB0A9B LDX #.LQAN F.I.~.LDY #.LQANF.V...STX TEXT.....STY T EXT.1.....JSR LAB0B42.....JSR STROUT.... .JSR LOE..C...LAB0AAF JSR ..S.D.BEQ LAB0 AAF...N.CMP #"J...X.BEQ QU1.....CMP #"N. ....BNE LAB0AAF.....JSR STROUT.!...LDA # 0.-...BEQ QU0.3...;.D.(.QU1 LDX #$4B.Q.2 .STX BILD.`.<.JSR STROUT.K.F.LDA #1..P. QU0 STA QUALITY...Z.LDX #.PROANF...D.LDY #.PROANF...N.STX TEXT...X.STY TEXT.1.J. ..LDX #$B8.W...STX BILD.....JSR STROUT.. . .JSR LOE......LAB0AE3 JSR ......BEQ LA B0AE3.!...CMP #"J.1.H.BEQ LAB0AFD.=.R.CM P #"N.M...BEQ LAB0AF3.]...JMP LAB0A9B.C. ..;.Z...LAB0AF3 JSR STROUT.....LDA #0... ..STA STYLE.....BEQ LAB0B08...".;...,.LA B0AFD LDX #$C5.K.6.STX BILD.Z.@.JSR STRO UT...J.LDA #2...T.STA STYLE...^.LAB0B08 LDX #.KUANF...H.LDY #.KUANF.(.R.STX TEXT .7.|.STY TEXT.1.D...LDX #$30.O...LDY #6. \...STX BILD.K...STY BILD.1.Z...JSR STRO UT.....JSR LOE....B.LAB0B1E JSR ....L.BE Q LAB0B1E...V.CMP #"J.E...BEQ LAB0B34.Q. ..CMP #"N.....BEQ LAB0B2E.....JMP LAB0A9 B.....;.....LAB0B2E JSR STROUT.....JMP L AB0B41.$.&.;.9.0.LAB0B34 LDX #$37.F.:.ST X BILD.U.D.JSR STROUT.C.N.LDA STYLE.P.X. ORA #$40.~.B.STA STYLE...L.LAB0B41 RTS.. .V.;.....LAB0B42 LDX #$40.....LDY #5.A.. .STX BILD.P...STY BILD.1.X...RTS.....;.. ...LOE. LDX #.LOEANF...F.LDY #.LOEANF... P.STX TEXT.!.Z.STY TEXT.1.)...RTS./...;. S...F.T .F ">< ":BRK...*. TITEL .F "..ZEICHENSATZLADER DL 900/WIES EMANN...4..BYT 13:.F "VERBESSERT VON N. HEUSLER, 4.92...6..BYT 13:.F "DRUCKER AU F .EPSON-EMUL.. SCHALTEN!.".8..BYT 13:.F ".PUFFER. IM DRUCKER AUSREICHEND WAEHLE N!.D.:..BYT 13:.F "(MAXIMAL 8 KILOBYTE I M HARDWARE-MENUE)":.BYT 13,0...P.LOEANF .F " ":BRK...Z..BYT $20 ,$20,$20,$20,$00.L...LQANF .F "LQ-SCHRIF T (J/N)":BRK.....PROANF .F "PROPORTIONAL (J/N)":BRK.....KUANF .F "KURSIV (J/N)": BRK.6....1 .F "DATEI WIRD GELADEN":BRK.L .B..2 .F "ZEICHENSATZ WIRD ZUM DRUCKER G ESENDET":BRK.W...BUF .....
> CLICK IMAGE PREVIEW FOR FULL MODAL