SUPDUM.ASM
FILE INFORMATION
FILENAME(S): SUPDUM.ASM
FILE TYPE(S): SEQ
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
c122f59659eebdcf44476ffd28045339bffb9d83bf0393e6d6c99a0dbd738f72
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | SUPDUM.ASM | SEQ | DuncanTwain | 28 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 6D FF 67 FF FF | *=m.g..| 00000010: FA FF FF D2 DD FF FF FF FF FF FF FF FF FF FF FF |................| 00000020: FF FF FF FF FF FF FF FF FF FF FF D0 D0 FF ED FF |................| 00000030: FB FF FF FF FF FF FF FF FF FF FF FF FF FF FF FB |................| 00000040: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00000050: FF FF FF D0 FF FF DD FF FF D2 FF FF FF FF FF FB |................| 00000060: FF FF FF FF FF FF FF FF E3 FF FF FF FF FF FF FF |................| 00000070: FF FF FF FF FF D2 FF FF FF FF FF FB FF FF FF FF |................| 00000080: FF FF FF FF FF 20 23 30 30 30 0D 20 20 20 20 20 |..... #000. | 00000090: 20 4A 53 52 20 20 36 35 34 36 36 20 20 3B 2A 53 | JSR 65466 ;*S| 000000A0: 45 54 4C 46 53 2A 0D 20 20 20 20 20 20 4C 44 41 |ETLFS*. LDA| 000000B0: 20 23 30 30 30 0D 20 20 20 20 20 20 4A 53 52 20 | #000. JSR | 000000C0: 20 36 35 34 36 39 20 20 3B 2A 53 45 54 4E 41 4D | 65469 ;*SETNAM| 000000D0: 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |*. JSR 654| 000000E0: 37 32 20 20 3B 2A 20 4F 50 45 4E 20 2A 0D 20 20 |72 ;* OPEN *. | 000000F0: 20 20 20 20 4C 44 58 20 23 30 30 31 20 20 20 20 | LDX #001 | 00000100: 3B 46 49 4C 45 20 31 2E 0D 20 20 20 20 20 20 4A |;FILE 1.. J| 00000110: 53 52 20 20 36 35 34 38 31 20 20 3B 2A 43 48 4B |SR 65481 ;*CHK| 00000120: 4F 55 54 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 |OUT*. LDA #| 00000130: 24 31 38 20 20 20 20 3B 42 55 46 46 45 52 20 4C |$18 ;BUFFER L| 00000140: 45 45 47 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |EEG.. JSR | 00000150: 36 35 34 39 30 0D 20 20 20 20 20 20 4C 44 41 20 |65490. LDA | 00000160: 23 24 31 42 20 20 20 20 3B 50 52 49 4E 54 45 52 |#$1B ;PRINTER| 00000170: 0D 20 20 20 20 20 20 4C 44 58 20 23 24 34 31 20 |. LDX #$41 | 00000180: 20 20 20 3B 49 4E 53 54 45 4C 4C 45 4E 20 4F 50 | ;INSTELLEN OP| 00000190: 0D 20 20 20 20 20 20 4C 44 59 20 23 24 30 38 20 |. LDY #$08 | 000001A0: 20 20 20 3B 52 45 47 45 4C 20 38 2F 37 32 20 49 | ;REGEL 8/72 I| 000001B0: 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 41 |N.. JSR LA| 000001C0: 58 59 0D 20 20 20 20 20 20 4C 44 58 20 23 24 35 |XY. LDX #$5| 000001D0: 35 20 20 20 20 3B 45 45 4E 52 49 43 48 54 49 4E |5 ;EENRICHTIN| 000001E0: 47 0D 20 20 20 20 20 20 4C 44 59 20 23 24 30 31 |G. LDY #$01| 000001F0: 20 20 20 20 3B 50 52 49 4E 54 45 4E 2E 0D 20 20 | ;PRINTEN.. | 00000200: 20 20 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 | JSR LAXY. | 00000210: 20 20 20 20 4C 44 58 20 23 24 34 44 20 20 20 20 | LDX #$4D | 00000220: 3B 4B 41 4E 54 4C 49 4A 4E 20 32 30 2E 0D 20 20 |;KANTLIJN 20.. | 00000230: 20 20 20 20 4C 44 59 20 23 24 31 34 0D 20 20 20 | LDY #$14. | 00000240: 20 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 20 | JSR LAXY. | 00000250: 20 20 20 4C 44 41 20 23 32 30 38 20 20 20 20 3B | LDA #208 ;| 00000260: 42 45 47 49 4E 41 44 52 45 53 20 56 41 4E 0D 20 |BEGINADRES VAN. | 00000270: 20 20 20 20 20 53 54 41 20 20 32 35 34 20 20 20 | STA 254 | 00000280: 20 3B 4B 41 52 41 4B 54 45 52 2D 52 4F 4D 2E 0D | ;KARAKTER-ROM..| 00000290: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 | LDA #000. | 000002A0: 20 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 | STA 253. | 000002B0: 20 20 20 20 4C 44 41 20 20 30 30 36 34 38 20 20 | LDA 00648 | 000002C0: 3B 42 45 47 49 4E 41 44 52 45 53 20 56 41 4E 0D |;BEGINADRES VAN.| 000002D0: 20 20 20 20 20 20 53 54 41 20 20 32 35 32 20 20 | STA 252 | 000002E0: 20 20 3B 53 43 48 45 52 4D 47 45 48 45 55 47 45 | ;SCHERMGEHEUGE| 000002F0: 4E 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 38 |N. STA 168| 00000300: 20 20 20 20 3B 45 4E 20 56 41 4E 20 42 45 47 49 | ;EN VAN BEGI| 00000310: 4E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |N. LDA #000| 00000320: 20 20 20 20 3B 56 41 4E 20 52 45 47 45 4C 2E 0D | ;VAN REGEL..| 00000330: 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 | STA 251. | 00000340: 20 20 20 20 20 53 54 41 20 20 31 36 37 0D 20 20 | STA 167. | 00000350: 20 20 20 20 4C 44 41 20 23 30 32 34 20 20 20 20 | LDA #024 | 00000360: 3B 52 45 47 45 4C 41 46 54 45 4C 4C 45 52 2E 0D |;REGELAFTELLER..| 00000370: 20 20 20 20 20 20 53 54 41 20 20 32 34 38 0D 48 | STA 248.H| 00000380: 50 49 32 20 20 4C 44 41 20 23 24 31 42 20 20 20 |PI2 LDA #$1B | 00000390: 20 3B 4B 4F 50 20 56 41 4E 20 52 45 47 45 4C 3A | ;KOP VAN REGEL:| 000003A0: 0D 20 20 20 20 20 20 4C 44 58 20 23 24 36 37 20 |. LDX #$67 | 000003B0: 20 20 20 3B 49 4E 53 54 45 4C 4C 45 4E 0D 20 20 | ;INSTELLEN. | 000003C0: 20 20 20 20 4C 44 59 20 23 24 30 35 20 20 20 20 | LDY #$05 | 000003D0: 3B 50 52 49 4E 54 45 52 20 4F 50 0D 20 20 20 20 |;PRINTER OP. | 000003E0: 20 20 4A 53 52 20 20 4C 41 58 59 20 20 20 3B 47 | JSR LAXY ;G| 000003F0: 52 41 46 49 53 43 48 2E 0D 20 20 20 20 20 20 4C |RAFISCH.. L| 00000400: 44 58 20 23 24 34 30 20 20 20 20 3B 41 41 4E 54 |DX #$40 ;AANT| 00000410: 2E 47 52 41 46 49 53 43 48 45 0D 20 20 20 20 20 |.GRAFISCHE. | 00000420: 20 4C 44 59 20 23 24 30 31 20 20 20 20 3B 42 59 | LDY #$01 ;BY| 00000430: 54 45 53 20 3D 20 33 32 30 2E 0D 20 20 20 20 20 |TES = 320.. | 00000440: 20 4A 53 52 20 20 4C 58 59 0D 20 20 20 20 20 20 | JSR LXY. | 00000450: 4C 44 59 20 23 30 30 30 20 20 20 20 3B 50 4F 53 |LDY #000 ;POS| 00000460: 49 54 49 45 20 4E 55 4C 2E 0D 48 50 49 33 20 20 |ITIE NUL..HPI3 | 00000470: 53 54 59 20 20 31 36 39 0D 20 20 20 20 20 20 4C |STY 169. L| 00000480: 44 41 20 20 32 34 37 20 20 20 20 3B 4C 45 54 54 |DA 247 ;LETT| 00000490: 45 52 53 4F 4F 52 54 2D 42 49 54 0D 20 20 20 20 |ERSOORT-BIT. | 000004A0: 20 20 2E 42 59 54 45 20 24 34 41 20 20 20 3B 53 | .BYTE $4A ;S| 000004B0: 43 48 55 49 56 45 4E 20 4E 41 41 52 0D 20 20 20 |CHUIVEN NAAR. | 000004C0: 20 20 20 2E 42 59 54 45 20 24 34 41 20 20 20 3B | .BYTE $4A ;| 000004D0: 43 41 52 52 59 2E 0D 20 20 20 20 20 20 4C 44 41 |CARRY.. LDA| 000004E0: 20 28 31 36 37 29 2C 59 20 3B 43 4F 44 45 2E 0D | (167),Y ;CODE..| 000004F0: 20 20 20 20 20 20 4A 53 52 20 20 52 4F 50 55 20 | JSR ROPU | 00000500: 20 20 3B 54 45 4B 45 4E 20 50 52 49 4E 54 45 4E | ;TEKEN PRINTEN| 00000510: 2E 0D 20 20 20 20 20 20 4C 44 59 20 20 31 36 39 |.. LDY 169| 00000520: 20 20 20 20 3B 50 4F 53 49 54 49 45 0D 20 20 20 | ;POSITIE. | 00000530: 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B | INY ;| 00000540: 4F 50 48 4F 47 45 4E 2E 0D 20 20 20 20 20 20 43 |OPHOGEN.. C| 00000550: 50 59 20 23 30 34 30 20 20 20 20 3B 34 30 3F 20 |PY #040 ;40? | 00000560: 4E 45 45 3A 5B 48 50 4A FF FF FB FF FF FF FF FF |NEE:[HPJ........| 00000570: FF FF FF FF FF FF FF FF D6 FF FF FF FF FF FF FF |................| 00000580: 23 31 33 FF FF FF FF FF FF FF FF FF FF EB FF 3B |#13............;| 00000590: FB 3B 31 D3 3B FF E3 3B FF 72 FF FF FF FF FF FF |.;1.;..;.r......| 000005A0: 23 63 FF FF FF FF FF FF FF E0 A2 FF FF FF FF FF |#c..............| 000005B0: FF 23 FF 31 FF FF FF FF FF FF FF FF FF FF EB F1 |.#.1............| 000005C0: A3 21 F1 FB 3B FF 23 2B 33 FF 3B FF FF FF FF FF |.!..;.#+3.;.....| 000005D0: FF FF 23 31 33 FF FF FF FF FF FF FF FF FF FF EB |..#13...........| 000005E0: D3 2B FF 23 FF FF 21 3B FF FF 72 FF FF FF FF FF |.+.#..!;..r.....| 000005F0: FF 23 2B FF 43 20 20 31 36 37 0D 20 20 20 20 20 |.#+.C 167. | 00000600: 20 53 54 41 20 20 31 36 37 0D 20 20 20 20 20 20 | STA 167. | 00000610: 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 41 |LDA #000. A| 00000620: 44 43 20 20 31 36 38 0D 20 20 20 20 20 20 53 54 |DC 168. ST| 00000630: 41 20 20 31 36 38 0D 20 20 20 20 20 20 44 45 43 |A 168. DEC| 00000640: 20 20 32 34 38 20 20 20 20 3B 41 46 54 45 4C 4C | 248 ;AFTELL| 00000650: 45 4E 20 56 41 4E 0D 20 20 20 20 20 20 42 50 4C |EN VAN. BPL| 00000660: 20 20 48 50 49 32 20 20 20 3B 52 45 47 45 4C 53 | HPI2 ;REGELS| 00000670: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 24 31 42 |.. LDX #$1B| 00000680: 20 20 20 20 3B 48 45 52 5A 45 54 20 50 52 49 4E | ;HERZET PRIN| 00000690: 54 45 52 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |TER.. LDY #| 000006A0: 24 34 30 0D 20 20 20 20 20 20 4A 53 52 20 20 4C |$40. JSR L| 000006B0: 58 59 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |XY. LDA #00| 000006C0: 31 20 20 20 20 3B 53 4C 55 49 54 20 46 49 4C 45 |1 ;SLUIT FILE| 000006D0: 20 31 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 | 1.. JSR 6| 000006E0: 35 34 37 35 20 20 3B 2A 20 43 4C 4F 53 45 2A 0D |5475 ;* CLOSE*.| 000006F0: 20 20 20 20 20 20 4A 53 52 20 20 36 35 35 31 31 | JSR 65511| 00000700: 20 20 3B 2A 20 43 4C 41 4C 4C 2A 0D 20 20 20 20 | ;* CLALL*. | 00000710: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 00000720: 41 41 52 20 48 4F 4F 46 44 50 52 47 52 2E 0D 4C |AAR HOOFDPRGR..L| 00000730: 41 58 59 FF FF FF 77 FF FF FF 8F 8F 89 FF FF FF |AXY...w.........| 00000740: FF 8D 79 FF FF FF FF FF 9C 85 FF FF FF FF FF FF |..y.............| 00000750: FF FF FF 79 FF FF 8B 87 97 8D FF FF FF 8D FF FF |...y............| 00000760: FF FF 3F 1B BB 3A 3B BB FF 27 13 1A 1E 08 08 08 |..?..:;..'......| 00000770: 8D 9D FF 48 08 08 08 08 08 08 08 08 05 48 FF FF |...H.........H..| 00000780: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00000790: FF FF FF FF FF FF 26 FF FF FF FF FF FF FF FF 0E |......&.........| 000007A0: EE FF FF EE FF FF FF FF FF FF FF FF FF FF FF FF |................| 000007B0: FF FF FF FF FF FF FF FF FF FF FF FF F5 65 A8 FF |.............e..| 000007C0: 41 FF 91 68 08 08 08 08 08 8B 8E CE 08 08 04 AC |A..h............| 000007D0: EC A5 FF FF FF FF FF 12 FF FF 3F 1B BB 3A 3B BB |..........?..:;.| 000007E0: FF 27 FF FF FF FF FF FF 33 13 32 FF FF FF FF FF |.'......3.2.....| 000007F0: 20 20 20 20 3B 48 45 52 53 54 45 4C 20 28 41 29 | ;HERSTEL (A)| 00000800: 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 |.. RTS | 00000810: 20 20 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 | ;NAAR HOOFDP| 00000820: 52 47 52 2E 0D 52 4F 50 55 20 20 53 54 41 20 20 |RGR..ROPU STA | 00000830: 30 30 32 20 20 20 20 3B 28 43 2C 41 2A 20 43 4F |002 ;(C,A* CO| 00000840: 44 45 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |DE.. LDA #0| 00000850: 30 30 20 20 20 20 3B 4D 41 41 4C 20 38 2C 20 49 |00 ;MAAL 8, I| 00000860: 4E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 |N. .BYTE $2| 00000870: 41 20 20 20 3B 28 41 29 28 32 29 2E 0D 20 20 20 |A ;(A)(2).. | 00000880: 20 20 20 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 | ROL 002. | 00000890: 20 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 | .BYTE $2A. | 000008A0: 20 20 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 | ROL 002. | 000008B0: 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 | .BYTE $2A. | 000008C0: 20 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 20 | ROL 002. | 000008D0: 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 20 |.BYTE $2A. | 000008E0: 54 41 58 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |TAX. LDA 0| 000008F0: 30 32 20 20 20 20 3B 41 44 52 45 53 20 56 41 4E |02 ;ADRES VAN| 00000900: 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 33 20 |. ADC 253 | 00000910: 20 20 20 3B 4B 41 52 41 4B 54 45 52 2D 52 4F 4D | ;KARAKTER-ROM| 00000920: 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 39 20 |. STA 249 | 00000930: 20 20 20 3B 45 52 42 49 4A 20 45 4E 20 49 4E 0D | ;ERBIJ EN IN.| 00000940: 20 20 20 20 20 20 54 58 41 20 20 20 20 20 20 20 | TXA | 00000950: 20 20 3B 28 32 35 30 2C 32 34 39 29 2E 0D 20 20 | ;(250,249).. | 00000960: 20 20 20 20 41 44 43 20 20 32 35 34 0D 20 20 20 | ADC 254. | 00000970: 20 20 20 53 54 41 20 20 32 35 30 0D 20 20 20 20 | STA 250. | 00000980: 20 20 4C 44 41 20 20 35 36 33 33 34 20 20 3B 47 | LDA 56334 ;G| 00000990: 45 45 4E 20 54 49 4D 45 52 2D 0D 20 20 20 20 20 |EEN TIMER-. | 000009A0: 20 41 4E 44 20 23 32 35 34 20 20 20 20 3B 49 4E | AND #254 ;IN| 000009B0: 54 45 52 52 55 50 54 53 2E 0D 20 20 20 20 20 20 |TERRUPTS.. | 000009C0: 53 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 20 |STA 56334. | 000009D0: 20 4C 44 41 20 20 30 30 31 20 20 20 20 3B 4D 41 | LDA 001 ;MA| 000009E0: 41 4B 20 4B 41 52 2E 52 4F 4D 0D 20 20 20 20 20 |AK KAR.ROM. | 000009F0: 20 41 4E 44 20 23 32 35 31 20 20 20 20 3B 4F 50 | AND #251 ;OP| 00000A00: 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 |EN.. STA 0| 00000A10: 30 31 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |01. LDY #00| 00000A20: 37 20 20 20 20 3B 54 52 41 4E 53 50 4F 52 54 20 |7 ;TRANSPORT | 00000A30: 4E 41 41 52 0D 54 52 41 31 20 20 4C 44 41 20 28 |NAAR.TRA1 LDA (| 00000A40: 32 34 39 29 2C 59 20 3B 28 38 32 30 29 2E 2E 28 |249),Y ;(820)..(| 00000A50: 38 32 37 29 2E 0D 20 20 20 20 20 20 53 54 41 20 |827).. STA | 00000A60: 20 30 30 38 32 30 2C 59 0D 20 20 20 20 20 20 44 | 00820,Y. D| 00000A70: 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 54 52 |EY. BPL TR| 00000A80: 41 31 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 |A1. LDA 00| 00000A90: 31 20 20 20 20 3B 4D 41 41 4B 20 4B 41 52 2E 52 |1 ;MAAK KAR.R| 00000AA0: 4F 4D 0D 20 20 20 20 20 20 4F 52 41 20 23 30 30 |OM. ORA #00| 00000AB0: 34 20 20 20 20 3B 44 49 43 48 54 2E 0D 20 20 20 |4 ;DICHT.. | 00000AC0: 20 20 20 53 54 41 20 20 30 30 31 0D 20 20 20 20 | STA 001. | 00000AD0: 20 20 4C 44 41 20 20 35 36 33 33 34 20 20 3B 57 | LDA 56334 ;W| 00000AE0: 45 4C 20 54 49 4D 45 52 2D 0D 20 20 20 20 20 20 |EL TIMER-. | 00000AF0: 4F 52 41 20 23 30 30 31 20 20 20 20 3B 49 4E 54 |ORA #001 ;INT| 00000B00: 45 52 52 55 50 54 53 2E 0D 20 20 20 20 20 20 53 |ERRUPTS.. S| 00000B10: 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 20 20 |TA 56334. | 00000B20: 4C 44 59 20 23 30 30 37 20 20 20 20 3B 54 52 41 |LDY #007 ;TRA| 00000B30: 4E 53 50 4F 53 49 54 49 45 0D 54 52 41 32 20 20 |NSPOSITIE.TRA2 | 00000B40: 4C 44 58 20 23 30 30 37 20 20 20 20 3B 45 4E 20 |LDX #007 ;EN | 00000B50: 4F 55 54 50 55 54 2E 0D 54 52 41 33 20 20 52 4F |OUTPUT..TRA3 RO| 00000B60: 4C 20 20 30 30 38 32 30 2C 58 0D 20 20 20 20 20 |L 00820,X. | 00000B70: 20 2E 42 59 54 45 20 24 36 41 0D 20 20 20 20 20 | .BYTE $6A. | 00000B80: 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 | DEX. BPL | 00000B90: 54 52 41 33 0D 20 20 20 20 20 20 4A 53 52 20 20 |TRA3. JSR | 00000BA0: 36 35 34 39 30 0D 20 20 20 20 20 20 44 45 59 0D |65490. DEY.| 00000BB0: 20 20 20 20 20 20 42 50 4C 20 20 54 52 41 32 0D | BPL TRA2.| 00000BC0: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 00000BD0: 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 | ;NAAR HOOFDPRG| 00000BE0: 52 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 |R.. .BYTE $| 00000BF0: 46 46 2C 24 46 46 2C 24 46 46 2C 24 46 46 0D 20 |FF,$FF,$FF,$FF. | 00000C00: 20 20 20 20 20 2E 45 4E 44 0D | .END. |
*=M.G.....R....................
...PP...................................
...P.....R...........................R..
............. #000. JSR 65466 ;*S
ETLFS*. LDA #000. JSR 65469
;*SETNAM*. JSR 65472 ;* OPEN *.
LDX #001 ;FILE 1.. JSR 6548
1 ;*CHKOUT*. LDA #$18 ;BUFFER L
EEG.. JSR 65490. LDA #$1B
;PRINTER. LDX #$41 ;INSTELLEN OP
. LDY #$08 ;REGEL 8/72 IN..
JSR LAXY. LDX #$55 ;EENRICHTIN
G. LDY #$01 ;PRINTEN.. JSR
LAXY. LDX #$4D ;KANTLIJN 20..
LDY #$14. JSR LAXY. LDA #
208 ;BEGINADRES VAN. STA 254
;KARAKTER-ROM.. LDA #000. STA
253. LDA 00648 ;BEGINADRES VAN.
STA 252 ;SCHERMGEHEUGEN.
STA 168 ;EN VAN BEGIN. LDA #000
;VAN REGEL.. STA 251. STA
167. LDA #024 ;REGELAFTELLER..
STA 248.HPI2 LDA #$1B ;KOP VA
N REGEL:. LDX #$67 ;INSTELLEN.
LDY #$05 ;PRINTER OP. JSR L
AXY ;GRAFISCH.. LDX #$40 ;AANT
.GRAFISCHE. LDY #$01 ;BYTES = 32
0.. JSR LXY. LDY #000 ;POS
ITIE NUL..HPI3 STY 169. LDA 247
;LETTERSOORT-BIT. .BYTE $4A ;S
CHUIVEN NAAR. .BYTE $4A ;CARRY..
LDA (167),Y ;CODE.. JSR ROPU
;TEKEN PRINTEN.. LDY 169 ;POS
ITIE. INY ;OPHOGEN.. C
PY #040 ;40? NEE:[HPJ................
V.......#13............;.;1S;..;.R......
#C...............#.1.............!..;.#+
3.;.......#13...........S+.#..!;..R.....
.#+.C 167. STA 167. LDA #000
. ADC 168. STA 168. DEC
248 ;AFTELLEN VAN. BPL HPI2
;REGELS.. LDX #$1B ;HERZET PRIN
TER.. LDY #$40. JSR LXY.
LDA #001 ;SLUIT FILE 1.. JSR 6
5475 ;* CLOSE*. JSR 65511 ;* CLA
LL*. RTS ;NAAR HOOFDPRGR..L
AXY...W...........Y................Y....
..........?..:;..'.........H.........H..
......................&.................
.....................E..A..H.......N....
..........?..:;..'......3.2..... ;HER
STEL (A).. RTS ;NAAR HOOFDP
RGR..ROPU STA 002 ;(C,A* CODE..
LDA #000 ;MAAL 8, IN. .BYTE $2
A ;(A)(2).. ROL 002. .BYTE
$2A. ROL 002. .BYTE $2A.
ROL 002. .BYTE $2A. TAX.
LDA 002 ;ADRES VAN. ADC 253
;KARAKTER-ROM. STA 249 ;ERBI
J EN IN. TXA ;(250,249)..
ADC 254. STA 250. LDA 5
6334 ;GEEN TIMER-. AND #254 ;IN
TERRUPTS.. STA 56334. LDA 00
1 ;MAAK KAR.ROM. AND #251 ;OP
EN.. STA 001. LDY #007 ;TR
ANSPORT NAAR.TRA1 LDA (249),Y ;(820)..(
827).. STA 00820,Y. DEY.
BPL TRA1. LDA 001 ;MAAK KAR.R
OM. ORA #004 ;DICHT.. STA
001. LDA 56334 ;WEL TIMER-.
ORA #001 ;INTERRUPTS.. STA 5633
4. LDY #007 ;TRANSPOSITIE.TRA2
LDX #007 ;EN OUTPUT..TRA3 ROL 00820
,X. .BYTE $6A. DEX. BPL
TRA3. JSR 65490. DEY. BP
L TRA2. RTS ;NAAR HOOFDPRG
R.. .BYTE $FF,$FF,$FF,$FF. .EN
D.
> CLICK IMAGE PREVIEW FOR FULL MODAL