CENTRONICS SEQ
FILE INFORMATION
FILENAME(S): CENTRONICS SEQ
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-10-20 00:40:15
APPEARS ON: 1 disk(s)
FILE HASH
d5662490463e117edc46bc1ff264af9040c3ed1f4f3bd282ba6adec9f6637169
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GEOSBUCHNA | CENTRONICS SEQ | PRG | Treasure Chest - Joker79 | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 3B C5 50 53 4F 4E 20 C6 D8 38 30 20 C4 | ;.PSON ..80 .| 00000010: 52 55 43 4B 45 52 54 52 45 49 42 45 52 0D 20 20 |RUCKERTREIBER. | 00000020: 20 3B 4D 4F 44 49 46 49 5A 49 45 52 54 0D 0D 20 | ;MODIFIZIERT.. | 00000030: 20 20 2A 20 3D 24 37 39 30 30 0D 2E 4F 46 46 53 | * =$7900..OFFS| 00000040: 20 24 43 30 30 30 20 2D 20 2A 0D 0D 20 20 20 43 | $C000 - *.. C| 00000050: 30 20 3D 20 24 43 32 35 46 0D 0D 20 20 20 52 54 |0 = $C25F.. RT| 00000060: 53 0D 20 20 20 4E 4F 50 0D 20 20 20 4E 4F 50 0D |S. NOP. NOP.| 00000070: 20 20 20 4A 4D 50 20 41 49 20 20 20 20 20 20 20 | JMP AI | 00000080: 20 20 20 3B C2 49 54 4D 41 50 20 C9 4E 49 54 2E | ;.ITMAP .NIT.| 00000090: 0D 20 20 20 4A 4D 50 20 41 4E 20 20 20 20 20 20 |. JMP AN | 000000A0: 20 20 20 20 3B C2 49 54 4D 41 50 5A 45 49 4C 45 | ;.ITMAPZEILE| 000000B0: 20 44 52 55 43 4B 45 4E 0D 20 20 20 4A 4D 50 20 | DRUCKEN. JMP | 000000C0: 42 43 20 20 20 20 20 20 20 20 20 20 3B C6 4F 52 |BC ;.OR| 000000D0: 4D 55 4C 41 52 20 C6 45 45 44 0D 20 20 20 4A 4D |MULAR .EED. JM| 000000E0: 50 20 41 50 20 20 20 20 20 20 20 20 20 20 3B C4 |P AP ;.| 000000F0: 52 55 43 4B 45 52 44 41 54 45 4E 20 48 4F 4C 45 |RUCKERDATEN HOLE| 00000100: 4E 0D 0D 20 20 20 3B C4 52 55 43 4B 45 52 20 49 |N.. ;.RUCKER I| 00000110: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 0D 0D 41 |NITIALISIEREN..A| 00000120: 49 20 4A 53 52 20 43 31 0D 0D 20 20 20 4C 44 41 |I JSR C1.. LDA| 00000130: 20 23 24 31 42 20 20 20 3B C5 D3 C3 0D 20 20 20 | #$1B ;.... | 00000140: 53 54 41 20 24 44 44 30 31 0D 0D 20 20 20 4C 44 |STA $DD01.. LD| 00000150: 41 20 23 24 31 30 20 20 20 3B C2 49 54 20 34 20 |A #$10 ;.IT 4 | 00000160: 54 45 53 54 45 4E 0D 0D 20 20 20 4C 44 58 20 23 |TESTEN.. LDX #| 00000170: 24 30 30 20 20 20 3B 41 55 46 20 C8 41 4E 44 53 |$00 ;AUF .ANDS| 00000180: 48 41 4B 45 20 57 41 52 54 45 4E 0D 20 20 20 4C |HAKE WARTEN. L| 00000190: 44 59 20 23 24 30 30 0D 57 41 20 42 49 54 20 24 |DY #$00.WA BIT $| 000001A0: 44 44 30 44 0D 20 20 20 42 4E 45 20 4F 4B 20 20 |DD0D. BNE OK | 000001B0: 20 20 20 3B C4 52 55 43 4B 45 52 20 44 41 20 21 | ;.RUCKER DA !| 000001C0: 0D 20 20 20 44 45 59 0D 20 20 20 42 4E 45 20 57 |. DEY. BNE W| 000001D0: 41 0D 20 20 20 44 45 58 0D 20 20 20 42 4E 45 20 |A. DEX. BNE | 000001E0: 57 41 0D 0D 20 20 20 4A 53 52 20 43 30 20 20 20 |WA.. JSR C0 | 000001F0: 20 20 3B C5 58 49 54 20 C2 55 53 0D 0D 20 20 20 | ;.XIT .US.. | 00000200: 4C 44 58 20 23 24 46 46 20 20 20 3B C6 45 48 4C |LDX #$FF ;.EHL| 00000210: 45 52 21 0D 20 20 20 52 54 53 0D 0D 4F 4B 20 4A |ER!. RTS..OK J| 00000220: 53 52 20 41 58 20 20 20 20 20 3B DA 45 49 4C 45 |SR AX ;.EILE| 00000230: 4E 41 42 53 54 41 4E 44 0D 0D 20 20 20 4A 53 52 |NABSTAND.. JSR| 00000240: 20 43 30 20 20 20 20 20 3B C5 58 49 54 20 C2 55 | C0 ;.XIT .U| 00000250: 53 0D 0D 20 20 20 4C 44 58 20 23 24 30 30 20 20 |S.. LDX #$00 | 00000260: 20 3B CF 2E CB 2E 0D 41 4A 20 52 54 53 0D 0D 0D | ;.....AJ RTS...| 00000270: 20 20 20 3B 2A 20 C2 49 54 4D 41 50 5A 45 49 4C | ;* .ITMAPZEIL| 00000280: 45 20 41 55 53 47 45 42 45 4E 20 2A 0D 0D 41 4E |E AUSGEBEN *..AN| 00000290: 20 4A 53 52 20 43 31 0D 0D 20 20 20 4C 44 41 20 | JSR C1.. LDA | 000002A0: 24 30 33 0D 20 20 20 53 54 41 20 24 30 39 0D 20 |$03. STA $09. | 000002B0: 20 20 4C 44 41 20 24 30 32 0D 20 20 20 53 54 41 | LDA $02. STA| 000002C0: 20 24 30 38 0D 20 20 20 4A 53 52 20 41 51 20 20 | $08. JSR AQ | 000002D0: 20 20 20 20 20 20 20 20 3B DA 45 49 4C 45 20 44 | ;.EILE D| 000002E0: 52 55 43 4B 45 4E 0D 0D 0D 20 20 20 3B D0 4C 41 |RUCKEN... ;.LA| 000002F0: 54 5A 20 46 55 45 52 20 C4 4F 50 50 45 4C 44 52 |TZ FUER .OPPELDR| 00000300: 55 43 4B 0D 0D 20 20 20 42 49 54 20 46 4C 20 20 |UCK.. BIT FL | 00000310: 20 20 20 20 20 20 20 20 3B C4 4F 50 50 45 4C 44 | ;.OPPELD| 00000320: 52 55 43 4B 20 3F 0D 20 20 20 42 45 51 20 42 49 |RUCK ?. BEQ BI| 00000330: 20 20 20 20 20 20 20 20 20 20 3B 4E 45 49 4E 20 | ;NEIN | 00000340: 21 0D 0D 20 20 20 4C 44 41 20 23 24 30 44 20 20 |!.. LDA #$0D | 00000350: 20 20 20 20 20 20 3B C3 D2 20 41 55 53 47 45 42 | ;.. AUSGEB| 00000360: 45 4E 0D 20 20 20 4A 53 52 20 4F 55 0D 0D 20 20 |EN. JSR OU.. | 00000370: 20 4C 44 41 20 24 30 33 20 20 20 20 20 20 20 20 | LDA $03 | 00000380: 20 3B 41 4C 54 45 20 C4 41 54 45 4E 0D 20 20 20 | ;ALTE .ATEN. | 00000390: 53 54 41 20 24 30 39 0D 20 20 20 4C 44 41 20 24 |STA $09. LDA $| 000003A0: 30 32 0D 20 20 20 53 54 41 20 24 30 38 0D 0D 20 |02. STA $08.. | 000003B0: 20 20 4A 53 52 20 41 51 20 20 20 20 20 20 20 20 | JSR AQ | 000003C0: 20 20 3B 5A 57 45 49 54 45 52 20 C4 52 55 43 4B | ;ZWEITER .RUCK| 000003D0: 0D 0D 42 49 20 4A 53 52 20 42 42 20 20 20 20 20 |..BI JSR BB | 000003E0: 20 20 20 20 20 3B C3 D2 2C 20 CC 49 4E 45 46 45 | ;.., .INEFE| 000003F0: 45 44 0D 0D 20 20 20 4A 53 52 20 43 30 0D 0D 20 |ED.. JSR C0.. | 00000400: 20 20 52 54 53 0D 0D 41 51 20 4C 44 41 20 24 30 | RTS..AQ LDA $0| 00000410: 39 0D 20 20 20 50 48 41 0D 20 20 20 4C 44 41 20 |9. PHA. LDA | 00000420: 24 30 38 0D 20 20 20 50 48 41 0D 20 20 20 4A 53 |$08. PHA. JS| 00000430: 52 20 41 54 0D 20 20 20 42 43 53 20 41 52 0D 20 |R AT. BCS AR. | 00000440: 20 20 50 4C 41 0D 20 20 20 53 54 41 20 24 30 38 | PLA. STA $08| 00000450: 0D 20 20 20 50 4C 41 0D 20 20 20 53 54 41 20 24 |. PLA. STA $| 00000460: 30 39 0D 20 20 20 52 54 53 0D 0D 41 52 20 4A 53 |09. RTS..AR JS| 00000470: 52 20 41 59 20 20 20 20 20 20 20 20 20 20 3B C5 |R AY ;.| 00000480: D3 C3 20 2A 20 36 34 30 20 41 55 53 47 45 42 45 |.. * 640 AUSGEBE| 00000490: 4E 0D 20 20 20 50 4C 41 0D 20 20 20 53 54 41 20 |N. PLA. STA | 000004A0: 24 30 38 0D 20 20 20 50 4C 41 0D 20 20 20 53 54 |$08. PLA. ST| 000004B0: 41 20 24 30 39 0D 20 20 20 4C 44 58 20 23 24 34 |A $09. LDX #$4| 000004C0: 46 0D 41 53 20 54 58 41 0D 20 20 20 50 48 41 0D |F.AS TXA. PHA.| 000004D0: 20 20 20 4A 53 52 20 42 44 20 20 20 20 20 20 20 | JSR BD | 000004E0: 20 20 20 3B 4B 4F 44 49 45 52 45 4E 0D 20 20 20 | ;KODIEREN. | 000004F0: 4A 53 52 20 41 5A 20 20 20 20 20 20 20 20 20 20 |JSR AZ | 00000500: 3B 41 55 53 47 45 42 45 4E 0D 20 20 20 43 4C 43 |;AUSGEBEN. CLC| 00000510: 0D 20 20 20 4C 44 41 20 23 24 30 38 0D 20 20 20 |. LDA #$08. | 00000520: 41 44 43 20 24 30 38 0D 20 20 20 53 54 41 20 24 |ADC $08. STA $| 00000530: 30 38 0D 20 20 20 4C 44 41 20 23 24 30 30 0D 20 |08. LDA #$00. | 00000540: 20 20 41 44 43 20 24 30 39 0D 20 20 20 53 54 41 | ADC $09. STA| 00000550: 20 24 30 39 0D 20 20 20 50 4C 41 0D 20 20 20 54 | $09. PLA. T| 00000560: 41 58 0D 20 20 20 44 45 58 0D 20 20 20 42 50 4C |AX. DEX. BPL| 00000570: 20 41 53 0D 20 20 20 52 54 53 0D 0D 42 43 20 4A | AS. RTS..BC J| 00000580: 53 52 20 43 31 0D 20 20 20 4C 44 41 20 23 24 30 |SR C1. LDA #$0| 00000590: 43 20 20 20 20 20 20 20 20 3B C6 4F 52 4D 55 4C |C ;.ORMUL| 000005A0: 41 52 20 46 45 45 44 0D 20 20 20 4A 53 52 20 4F |AR FEED. JSR O| 000005B0: 55 0D 20 20 20 4A 53 52 20 43 30 0D 20 20 20 52 |U. JSR C0. R| 000005C0: 54 53 0D 0D 41 54 20 4C 44 58 20 23 24 30 37 0D |TS..AT LDX #$07.| 000005D0: 20 20 20 53 54 58 20 41 42 0D 20 20 20 4C 44 58 | STX AB. LDX| 000005E0: 20 23 24 34 46 0D 41 55 20 4C 44 59 20 41 42 0D | #$4F.AU LDY AB.| 000005F0: 41 56 20 4C 44 41 20 28 24 30 38 29 2C 59 0D 20 |AV LDA ($08),Y. | 00000600: 20 20 42 4E 45 20 41 57 0D 20 20 20 44 45 59 0D | BNE AW. DEY.| 00000610: 20 20 20 42 50 4C 20 41 56 0D 20 20 20 43 4C 43 | BPL AV. CLC| 00000620: 0D 20 20 20 4C 44 41 20 23 24 30 38 0D 20 20 20 |. LDA #$08. | 00000630: 41 44 43 20 24 30 38 0D 20 20 20 53 54 41 20 24 |ADC $08. STA $| 00000640: 30 38 0D 20 20 20 4C 44 41 20 23 24 30 30 0D 20 |08. LDA #$00. | 00000650: 20 20 41 44 43 20 24 30 39 0D 20 20 20 53 54 41 | ADC $09. STA| 00000660: 20 24 30 39 0D 20 20 20 44 45 58 0D 20 20 20 42 | $09. DEX. B| 00000670: 50 4C 20 41 55 0D 20 20 20 43 4C 43 0D 20 20 20 |PL AU. CLC. | 00000680: 52 54 53 0D 0D 41 57 20 53 45 43 0D 20 20 20 52 |RTS..AW SEC. R| 00000690: 54 53 0D 0D 0D 20 20 20 3B 2A 20 C4 52 55 43 4B |TS... ;* .RUCK| 000006A0: 45 52 44 41 54 45 4E 20 48 4F 4C 45 4E 20 2A 0D |ERDATEN HOLEN *.| 000006B0: 0D 41 50 20 4C 44 58 20 23 24 35 30 0D 20 20 20 |.AP LDX #$50. | 000006C0: 4C 44 59 20 23 24 35 41 0D 20 20 20 4C 44 41 20 |LDY #$5A. LDA | 000006D0: 23 24 30 30 0D 20 20 20 52 54 53 0D 0D 0D 20 20 |#$00. RTS... | 000006E0: 20 3B 2A 20 C4 41 54 45 4E 20 41 55 53 47 45 42 | ;* .ATEN AUSGEB| 000006F0: 45 4E 20 2A 0D 0D 41 47 20 53 54 41 20 41 42 20 |EN *..AG STA AB | 00000700: 20 20 20 20 3B C1 4E 5A 41 48 4C 20 4D 45 52 4B | ;.NZAHL MERK| 00000710: 45 4E 0D 20 20 20 44 45 43 20 41 42 0D 41 48 20 |EN. DEC AB.AH | 00000720: 4C 44 59 20 41 42 0D 20 20 20 4C 44 41 20 28 24 |LDY AB. LDA ($| 00000730: 30 38 29 2C 59 0D 20 20 20 4A 53 52 20 4F 55 20 |08),Y. JSR OU | 00000740: 20 20 20 20 3B 41 55 53 47 45 42 45 4E 0D 20 20 | ;AUSGEBEN. | 00000750: 20 44 45 43 20 41 42 0D 20 20 20 42 50 4C 20 41 | DEC AB. BPL A| 00000760: 48 0D 20 20 20 52 54 53 0D 0D 20 20 20 3B 2A 20 |H. RTS.. ;* | 00000770: CC 49 4E 45 2D C6 45 45 44 20 46 45 53 54 4C 45 |.INE-.EED FESTLE| 00000780: 47 45 4E 0D 0D 41 58 20 4C 44 41 20 23 3E 42 47 |GEN..AX LDA #>BG| 00000790: 0D 20 20 20 53 54 41 20 24 30 39 0D 20 20 20 4C |. STA $09. L| 000007A0: 44 41 20 23 3C 42 47 0D 20 20 20 53 54 41 20 24 |DA #<BG. STA $| 000007B0: 30 38 0D 20 20 20 4C 44 41 20 23 24 30 35 0D 20 |08. LDA #$05. | 000007C0: 20 20 4A 4D 50 20 41 47 0D 0D 42 47 20 2E 42 59 | JMP AG..BG .BY| 000007D0: 54 45 20 24 30 38 2C 24 34 31 2C 24 31 42 2C 24 |TE $08,$41,$1B,$| 000007E0: 34 30 2C 24 31 42 20 20 3B 38 2F 37 32 20 27 27 |40,$1B ;8/72 ''| 000007F0: 0D 0D 0D 20 20 20 3B 2A 20 D0 49 58 45 4C 2D CD |... ;* .IXEL-.| 00000800: 4F 44 55 53 20 45 49 4E 53 43 48 41 4C 54 45 4E |ODUS EINSCHALTEN| 00000810: 20 2A 0D 0D 41 59 20 4C 44 41 20 23 3E 42 48 0D | *..AY LDA #>BH.| 00000820: 20 20 20 53 54 41 20 24 30 39 0D 20 20 20 4C 44 | STA $09. LD| 00000830: 41 20 23 3C 42 48 0D 20 20 20 53 54 41 20 24 30 |A #<BH. STA $0| 00000840: 38 0D 20 20 20 4C 44 41 20 23 24 30 35 0D 20 20 |8. LDA #$05. | 00000850: 20 4A 4D 50 20 41 47 0D 0D 42 48 20 2E 42 59 54 | JMP AG..BH .BYT| 00000860: 45 20 24 30 32 2C 24 38 30 2C 24 30 34 2C 24 32 |E $02,$80,$04,$2| 00000870: 41 2C 24 31 42 20 3B 36 34 30 20 D0 49 58 45 4C |A,$1B ;640 .IXEL| 00000880: 0D 0D 20 20 20 3B 2A 20 D0 49 58 45 4C 20 44 52 |.. ;* .IXEL DR| 00000890: 55 43 4B 45 4E 0D 0D 41 5A 20 4C 44 58 20 23 24 |UCKEN..AZ LDX #$| 000008A0: 30 30 0D 42 41 20 54 58 41 0D 20 20 20 50 48 41 |00.BA TXA. PHA| 000008B0: 0D 20 20 20 4C 44 41 20 41 41 2C 58 0D 20 20 20 |. LDA AA,X. | 000008C0: 4A 53 52 20 4F 55 0D 20 20 20 50 4C 41 0D 20 20 |JSR OU. PLA. | 000008D0: 20 54 41 58 0D 20 20 20 49 4E 58 0D 20 20 20 43 | TAX. INX. C| 000008E0: 50 58 20 23 24 30 38 0D 20 20 20 42 4E 45 20 42 |PX #$08. BNE B| 000008F0: 41 0D 20 20 20 52 54 53 0D 0D 42 42 20 4C 44 41 |A. RTS..BB LDA| 00000900: 20 23 24 30 44 0D 20 20 20 4A 53 52 20 4F 55 0D | #$0D. JSR OU.| 00000910: 20 20 20 4C 44 41 20 23 24 30 41 0D 20 20 20 4A | LDA #$0A. J| 00000920: 53 52 20 4F 55 0D 20 20 20 52 54 53 0D 0D 0D 20 |SR OU. RTS... | 00000930: 20 20 3B 2A 20 C4 41 54 45 4E 20 55 4D 52 45 43 | ;* .ATEN UMREC| 00000940: 48 4E 45 4E 0D 0D 42 44 20 53 45 49 0D 20 20 20 |HNEN..BD SEI. | 00000950: 4C 44 59 20 23 24 30 37 0D 42 45 20 4C 44 41 20 |LDY #$07.BE LDA | 00000960: 28 24 30 38 29 2C 59 0D 20 20 20 4C 44 58 20 23 |($08),Y. LDX #| 00000970: 24 30 37 0D 42 46 20 52 4F 52 20 41 0D 20 20 20 |$07.BF ROR A. | 00000980: 52 4F 52 20 41 41 2C 58 0D 20 20 20 44 45 58 0D |ROR AA,X. DEX.| 00000990: 20 20 20 42 50 4C 20 42 46 0D 20 20 20 44 45 59 | BPL BF. DEY| 000009A0: 0D 20 20 20 42 50 4C 20 42 45 0D 20 20 20 43 4C |. BPL BE. CL| 000009B0: 49 0D 20 20 20 52 54 53 0D 0D 0D 20 20 20 3B 2A |I. RTS... ;*| 000009C0: 20 41 55 46 20 D0 4F 52 54 20 4C 45 47 45 4E 20 | AUF .ORT LEGEN | 000009D0: 2A 0D 0D 4F 55 20 53 54 41 20 24 44 44 30 31 0D |*..OU STA $DD01.| 000009E0: 20 20 20 4C 44 41 20 23 24 31 30 0D 57 42 20 42 | LDA #$10.WB B| 000009F0: 49 54 20 24 44 44 30 44 0D 20 20 20 42 45 51 20 |IT $DD0D. BEQ | 00000A00: 57 42 0D 20 20 20 52 54 53 0D 0D 0D 43 31 20 3B |WB. RTS...C1 ;| 00000A10: 2A 20 C3 C9 C1 20 45 49 4E 42 4C 45 4E 44 45 4E |* ... EINBLENDEN| 00000A20: 20 2A 0D 0D 20 20 20 4A 53 52 20 24 43 32 35 43 | *.. JSR $C25C| 00000A30: 20 20 3B C9 4E 49 54 20 C2 55 53 0D 0D 20 20 20 | ;.NIT .US.. | 00000A40: 4C 44 41 20 23 24 46 46 20 20 20 3B D0 4F 52 54 |LDA #$FF ;.ORT| 00000A50: 20 C2 20 41 55 46 20 C1 55 53 47 41 42 45 0D 20 | . AUF .USGABE. | 00000A60: 20 20 53 54 41 20 24 44 44 30 33 0D 20 20 20 4C | STA $DD03. L| 00000A70: 44 41 20 23 24 37 46 20 20 20 3B 4B 45 49 4E 20 |DA #$7F ;KEIN | 00000A80: CE CD C9 0D 20 20 20 53 54 41 20 24 44 44 30 44 |.... STA $DD0D| 00000A90: 0D 20 20 20 4C 44 41 20 24 44 44 30 44 20 20 3B |. LDA $DD0D ;| 00000AA0: C3 4C 45 41 52 0D 0D 20 20 20 52 54 53 0D 0D 0D |.LEAR.. RTS...| 00000AB0: 46 4C 20 2E 42 59 54 45 20 30 20 20 20 20 3B C6 |FL .BYTE 0 ;.| 00000AC0: 4C 41 47 20 46 55 45 52 20 C4 4F 50 50 45 4C 44 |LAG FUER .OPPELD| 00000AD0: 52 55 43 4B 0D 0D 41 41 20 42 52 4B 20 20 20 20 |RUCK..AA BRK | 00000AE0: 20 20 20 20 3B D0 55 46 46 45 52 20 46 55 45 52 | ;.UFFER FUER| 00000AF0: 20 C4 52 55 43 4B 44 41 54 45 4E 0D 20 20 20 42 | .RUCKDATEN. B| 00000B00: 52 4B 0D 20 20 20 42 52 4B 0D 20 20 20 42 52 4B |RK. BRK. BRK| 00000B10: 0D 20 20 20 42 52 4B 0D 20 20 20 42 52 4B 0D 20 |. BRK. BRK. | 00000B20: 20 20 42 52 4B 0D 20 20 20 42 52 4B 0D 0D 41 42 | BRK. BRK..AB| 00000B30: 20 42 52 4B 20 20 20 20 20 20 20 20 3B DA 41 45 | BRK ;.AE| 00000B40: 48 4C 45 52 20 46 2E 20 DA 45 49 43 48 45 4E 0D |HLER F. .EICHEN.| 00000B50: 0D 20 20 20 2E 45 4E 44 0D 0D 0D 0D 0D 0D 0D 0D |. .END........| 00000B60: 0D 0D |.. |
;EPSON FX80 DRUCKERTREIBER. ;MODIFI
ZIERT.. * =$7900..OFFS $C000 - *.. C
0 = $C25F.. RTS. NOP. NOP. JMP A
I ;BITMAP INIT.. JMP AN
;BITMAPZEILE DRUCKEN. JMP BC
;FORMULAR FEED. JMP AP ;D
RUCKERDATEN HOLEN.. ;DRUCKER INITIALIS
IEREN..AI JSR C1.. LDA #$1B ;ESC.
STA $DD01.. LDA #$10 ;BIT 4 TESTEN..
LDX #$00 ;AUF HANDSHAKE WARTEN. L
DY #$00.WA BIT $DD0D. BNE OK ;DRUC
KER DA !. DEY. BNE WA. DEX. BNE
WA.. JSR C0 ;EXIT BUS.. LDX #$FF
;FEHLER!. RTS..OK JSR AX ;ZEILE
NABSTAND.. JSR C0 ;EXIT BUS.. LD
X #$00 ;O.K..AJ RTS... ;* BITMAPZEIL
E AUSGEBEN *..AN JSR C1.. LDA $03. S
TA $09. LDA $02. STA $08. JSR AQ
;ZEILE DRUCKEN... ;PLATZ FUER
DOPPELDRUCK.. BIT FL ;DOPPELD
RUCK ?. BEQ BI ;NEIN !.. LD
A #$0D ;CR AUSGEBEN. JSR OU..
LDA $03 ;ALTE DATEN. STA $09.
LDA $02. STA $08.. JSR AQ
;ZWEITER DRUCK..BI JSR BB ;CR
, LINEFEED.. JSR C0.. RTS..AQ LDA $0
9. PHA. LDA $08. PHA. JSR AT.
BCS AR. PLA. STA $08. PLA. STA $
09. RTS..AR JSR AY ;ESC * 640
AUSGEBEN. PLA. STA $08. PLA. ST
A $09. LDX #$4F.AS TXA. PHA. JSR B
D ;KODIEREN. JSR AZ
;AUSGEBEN. CLC. LDA #$08. ADC $08.
STA $08. LDA #$00. ADC $09. STA
$09. PLA. TAX. DEX. BPL AS. R
TS..BC JSR C1. LDA #$0C ;FORMUL
AR FEED. JSR OU. JSR C0. RTS..AT L
DX #$07. STX AB. LDX #$4F.AU LDY AB.
AV LDA ($08),Y. BNE AW. DEY. BPL A
V. CLC. LDA #$08. ADC $08. STA $
08. LDA #$00. ADC $09. STA $09.
DEX. BPL AU. CLC. RTS..AW SEC. R
TS... ;* DRUCKERDATEN HOLEN *..AP LDX
#$50. LDY #$5A. LDA #$00. RTS...
;* DATEN AUSGEBEN *..AG STA AB ;ANZ
AHL MERKEN. DEC AB.AH LDY AB. LDA ($
08),Y. JSR OU ;AUSGEBEN. DEC AB.
BPL AH. RTS.. ;* LINE-FEED FESTLE
GEN..AX LDA #>BG. STA $09. LDA #<BG.
STA $08. LDA #$05. JMP AG..BG .BY
TE $08,$41,$1B,$40,$1B ;8/72 ''... ;*
PIXEL-MODUS EINSCHALTEN *..AY LDA #>BH.
STA $09. LDA #<BH. STA $08. LDA
#$05. JMP AG..BH .BYTE $02,$80,$04,$2
A,$1B ;640 PIXEL.. ;* PIXEL DRUCKEN..A
Z LDX #$00.BA TXA. PHA. LDA AA,X.
JSR OU. PLA. TAX. INX. CPX #$08.
BNE BA. RTS..BB LDA #$0D. JSR OU.
LDA #$0A. JSR OU. RTS... ;* DAT
EN UMRECHNEN..BD SEI. LDY #$07.BE LDA
($08),Y. LDX #$07.BF ROR A. ROR AA,X
. DEX. BPL BF. DEY. BPL BE. CL
I. RTS... ;* AUF PORT LEGEN *..OU ST
A $DD01. LDA #$10.WB BIT $DD0D. BEQ
WB. RTS...C1 ;* CIA EINBLENDEN *.. J
SR $C25C ;INIT BUS.. LDA #$FF ;PORT
B AUF AUSGABE. STA $DD03. LDA #$7F
;KEIN NMI. STA $DD0D. LDA $DD0D ;
CLEAR.. RTS...FL .BYTE 0 ;FLAG FUER
DOPPELDRUCK..AA BRK ;PUFFER FUER
DRUCKDATEN. BRK. BRK. BRK. BRK.
BRK. BRK. BRK..AB BRK ;ZAE
HLER F. ZEICHEN.. .END..........
> CLICK IMAGE PREVIEW FOR FULL MODAL