00000000: 20 30 30 32 20 20 20 20 3B 41 44 52 45 53 20 56 | 002 ;ADRES V|
00000010: 41 4E 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 |AN. ADC 25|
00000020: 33 20 20 20 20 3B 4B 41 52 41 4B 54 45 52 2D 52 |3 ;KARAKTER-R|
00000030: 4F 4D 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 |OM. STA 24|
00000040: 39 20 20 20 20 3B 45 52 42 49 4A 20 45 4E 20 49 |9 ;ERBIJ EN I|
00000050: 4E 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 20 |N. TXA |
00000060: 20 20 20 20 3B 28 32 35 30 2C 32 34 39 29 2E 0D | ;(250,249)..|
00000070: 20 20 20 20 20 20 41 44 43 20 20 32 35 34 0D 20 | ADC 254. |
00000080: 20 20 20 20 20 53 54 41 20 20 32 35 30 0D 20 20 | STA 250. |
00000090: 20 20 20 20 4C 44 41 20 20 35 36 33 33 34 20 20 | LDA 56334 |
000000A0: 3B 47 45 45 4E 20 54 49 4D 45 52 2D 0D 20 20 20 |;GEEN TIMER-. |
000000B0: 20 20 20 41 4E 44 20 23 32 35 34 20 20 20 20 3B | AND #254 ;|
000000C0: 49 4E 54 45 52 52 55 50 54 53 2E 0D 20 20 20 20 |INTERRUPTS.. |
000000D0: 20 20 53 54 41 20 20 35 36 33 33 34 0D 20 20 20 | STA 56334. |
000000E0: 20 20 20 4C 44 41 20 20 30 30 31 20 20 20 20 3B | LDA 001 ;|
000000F0: 4D 41 41 4B 20 4B 41 52 2E 52 4F 4D 0D 20 20 20 |MAAK KAR.ROM. |
00000100: 20 20 20 41 4E 44 20 23 32 35 31 20 20 20 20 3B | AND #251 ;|
00000110: 4F 50 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 |OPEN.. STA |
00000120: 20 30 30 31 0D 20 20 20 20 20 20 4C 44 59 20 23 | 001. LDY #|
00000130: 30 30 37 20 20 20 20 3B 54 52 41 4E 53 50 4F 52 |007 ;TRANSPOR|
00000140: 54 20 4E 41 41 52 0D 54 52 41 31 20 20 4C 44 41 |T NAAR.TRA1 LDA|
00000150: 20 28 32 34 39 29 2C 59 20 3B 28 38 32 30 29 2E | (249),Y ;(820).|
00000160: 2E 28 38 32 37 29 2E 0D 20 20 20 20 20 20 53 54 |.(827).. ST|
00000170: 41 20 20 30 30 38 32 30 2C 59 0D 20 20 20 20 20 |A 00820,Y. |
00000180: 20 44 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 | DEY. BPL |
00000190: 54 52 41 31 0D 20 20 20 20 20 20 4C 44 41 20 20 |TRA1. LDA |
000001A0: 30 30 31 20 20 20 20 3B 4D 41 41 4B 20 4B 41 52 |001 ;MAAK KAR|
000001B0: 2E 52 4F 4D 0D 20 20 20 20 20 20 4F 52 41 20 23 |.ROM. ORA #|
000001C0: 30 30 34 20 20 20 20 3B 44 49 43 48 54 2E 0D 20 |004 ;DICHT.. |
000001D0: 20 20 20 20 20 53 54 41 20 20 30 30 31 0D 20 20 | STA 001. |
000001E0: 20 20 20 20 4C 44 41 20 20 35 36 33 33 34 20 20 | LDA 56334 |
000001F0: 3B 57 45 4C 20 54 49 4D 45 52 2D 0D 20 20 20 20 |;WEL TIMER-. |
00000200: 20 20 4F 52 41 20 23 30 30 31 20 20 20 20 3B 49 | ORA #001 ;I|
00000210: 4E 54 45 52 52 55 50 54 53 2E 0D 20 20 20 20 20 |NTERRUPTS.. |
00000220: 20 53 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 | STA 56334. |
00000230: 20 20 4C 44 59 20 23 30 30 37 20 20 20 20 3B 54 | LDY #007 ;T|
00000240: 52 41 4E 53 50 4F 53 49 54 49 45 0D 54 52 41 32 |RANSPOSITIE.TRA2|
00000250: 20 20 4C 44 58 20 23 30 30 37 20 20 20 20 3B 45 | LDX #007 ;E|
00000260: 4E 20 4F 55 54 50 55 54 2E 0D 54 52 41 33 20 20 |N OUTPUT..TRA3 |
00000270: 52 4F 4C 20 20 30 30 38 32 30 2C 58 0D 20 20 20 |ROL 00820,X. |
00000280: 20 20 20 2E 42 59 54 45 20 24 36 41 0D 20 20 20 | .BYTE $6A. |
00000290: 20 20 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C | DEX. BPL|
000002A0: 20 20 54 52 41 33 0D 20 20 20 20 20 20 4A 53 52 | TRA3. JSR|
000002B0: 20 20 36 35 34 39 30 0D 20 20 20 20 20 20 44 45 | 65490. DE|
000002C0: 59 0D 20 20 20 20 20 20 42 50 4C 20 20 54 52 41 |Y. BPL TRA|
000002D0: 32 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 |2. RTS |
000002E0: 20 20 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 | ;NAAR HOOFDP|
000002F0: 52 47 52 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 |RGR.. .BYTE|
00000300: 20 24 46 46 2C 24 46 46 2C 24 46 46 2C 24 46 46 | $FF,$FF,$FF,$FF|
00000310: 0D 20 20 20 20 20 20 2E 45 4E 44 0D |. .END. |
002 ;ADRES VAN. ADC 253 ;KA
RAKTER-ROM. STA 249 ;ERBIJ EN I
N. TXA ;(250,249).. AD
C 254. STA 250. LDA 56334
;GEEN TIMER-. AND #254 ;INTERRUP
TS.. STA 56334. LDA 001 ;
MAAK KAR.ROM. AND #251 ;OPEN..
STA 001. LDY #007 ;TRANSPOR
T NAAR.TRA1 LDA (249),Y ;(820)..(827)..
STA 00820,Y. DEY. BPL
TRA1. LDA 001 ;MAAK KAR.ROM.
ORA #004 ;DICHT.. STA 001.
LDA 56334 ;WEL TIMER-. ORA #0
01 ;INTERRUPTS.. STA 56334.
LDY #007 ;TRANSPOSITIE.TRA2 LDX #0
07 ;EN OUTPUT..TRA3 ROL 00820,X.
.BYTE $6A. DEX. BPL TRA3.
JSR 65490. DEY. BPL TRA
2. RTS ;NAAR HOOFDPRGR..
.BYTE $FF,$FF,$FF,$FF. .END.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL