00000000: 01 08 0B 08 0A 00 4F 55 54 20 34 00 28 08 14 00 |......OUT 4.(...|
00000010: AC B2 24 43 30 30 30 20 21 D5 45 53 43 48 41 52 |..$C000 !.ESCHAR|
00000020: 49 4E 47 20 4B 4C 4F 4B 00 48 08 1E 00 4C 44 41 |ING KLOK.H...LDA|
00000030: 20 24 44 43 30 45 20 21 53 45 54 20 4B 4C 4F 4B | $DC0E !SET KLOK|
00000040: 20 4F 50 20 35 30 48 5A 00 54 08 28 00 B0 41 20 | OP 50HZ.T.(..A |
00000050: 23 24 38 30 00 62 08 32 00 53 54 41 20 24 44 43 |#$80.b.2.STA $DC|
00000060: 30 45 00 7C 08 3C 00 4C 44 41 20 24 44 43 30 46 |0E.|.<.LDA $DC0F|
00000070: 20 21 53 54 41 52 54 20 4B 4C 4F 4B 00 87 08 46 | !START KLOK...F|
00000080: 00 AF 20 23 24 37 46 00 95 08 50 00 53 54 41 20 |.. #$7F...P.STA |
00000090: 24 44 43 30 46 00 AE 08 5A 00 4A 53 52 20 24 37 |$DC0F...Z.JSR $7|
000000A0: 39 20 21 A1 20 43 48 41 52 41 43 54 45 52 00 CA |9 !. CHARACTER..|
000000B0: 08 64 00 42 45 51 20 24 36 35 20 21 4B 4C 4F 4B |.d.BEQ $65 !KLOK|
000000C0: 20 4F 4D 53 43 48 41 4B 45 C3 00 D8 08 6E 00 4A | OMSCHAKE....n.J|
000000D0: 53 52 20 24 41 45 46 44 00 F2 08 78 00 4A 53 52 |SR $AEFD...x.JSR|
000000E0: 20 24 41 44 39 45 20 21 53 54 52 49 4E 47 20 48 | $AD9E !STRING H|
000000F0: 41 C3 00 0B 09 82 00 4A 53 52 20 24 42 36 41 33 |A......JSR $B6A3|
00000100: 20 21 50 41 52 41 4D 45 54 45 52 00 21 09 8C 00 | !PARAMETER.!...|
00000110: 43 4D 50 20 23 36 20 21 36 20 54 45 4B 45 4E 53 |CMP #6 !6 TEKENS|
00000120: 99 00 3E 09 96 00 42 4E 45 20 41 37 20 21 49 4C |..>...BNE A7 !IL|
00000130: 4C 45 47 41 4C 20 51 55 41 4E 54 49 54 59 00 4A |LEGAL QUANTITY.J|
00000140: 09 A0 00 4C 44 59 20 23 24 30 00 68 09 AA 00 4C |...LDY #$0.h...L|
00000150: 44 41 20 28 24 32 32 29 2C 59 20 21 55 55 52 AB |DA ($22),Y !UUR.|
00000160: 54 49 45 4E 54 41 4C C3 00 70 09 B4 00 53 45 43 |TIENTAL..p...SEC|
00000170: 00 87 09 BE 00 53 42 43 20 23 24 33 30 20 21 4E |.....SBC #$30 !N|
00000180: 41 41 52 20 48 45 58 00 93 09 C8 00 43 4D 50 20 |AAR HEX.....CMP |
00000190: 23 24 33 00 9E 09 D2 00 42 43 53 20 41 37 00 A8 |#$3.....BCS A7..|
000001A0: 09 DC 00 41 53 4C 20 41 00 B2 09 E6 00 41 53 4C |...ASL A.....ASL|
000001B0: 20 41 00 BC 09 F0 00 41 53 4C 20 41 00 C6 09 FA | A.....ASL A....|
000001C0: 00 41 53 4C 20 41 00 D2 09 04 01 53 54 41 20 24 |.ASL A.....STA $|
000001D0: 46 42 00 DA 09 0E 01 49 4E 59 00 F8 09 18 01 4C |FB.....INY.....L|
000001E0: 44 41 20 28 24 32 32 29 2C 59 20 21 55 55 52 20 |DA ($22),Y !UUR |
000001F0: 45 45 4E 48 45 44 45 4E 00 00 0A 22 01 53 45 43 |EENHEDEN...".SEC|
00000200: 00 0D 0A 2C 01 53 42 43 20 23 24 33 30 00 1A 0A |...,.SBC #$30...|
00000210: 36 01 43 4D 50 20 23 24 31 30 00 26 0A 40 01 42 |6.CMP #$10.&.@.B|
00000220: 43 53 20 24 35 30 00 31 0A 4A 01 B0 41 20 24 46 |CS $50.1.J..A $F|
00000230: 42 00 3C 0A 54 01 42 4E 45 20 41 34 00 53 0A 5E |B.<.T.BNE A4.S.^|
00000240: 01 4C 44 41 20 24 39 32 20 21 31 32 20 55 55 52 |.LDA $92 !12 UUR|
00000250: 20 50 4D 00 5E 0A 68 01 42 4E 45 20 41 35 00 6E | PM.^.h.BNE A5.n|
00000260: 0A 72 01 41 34 20 43 4D 50 20 23 24 32 34 00 7A |.r.A4 CMP #$24.z|
00000270: 0A 7C 01 42 43 53 20 24 34 34 00 87 0A 86 01 43 |.|.BCS $44.....C|
00000280: 4D 50 20 23 24 31 33 00 92 0A 90 01 42 43 43 20 |MP #$13.....BCC |
00000290: 41 35 00 9A 0A 9A 01 53 45 43 00 A2 0A A4 01 53 |A5.....SEC.....S|
000002A0: 45 44 00 AF 0A AE 01 53 42 43 20 23 24 31 32 00 |ED.....SBC #$12.|
000002B0: B7 0A B8 01 43 4C 44 00 C2 0A C2 01 B0 41 20 24 |....CLD......A $|
000002C0: 38 30 00 D3 0A CC 01 41 35 20 53 54 41 20 24 44 |80.....A5 STA $D|
000002D0: 43 30 42 00 DE 0A D6 01 4A 53 52 20 41 36 00 EC |C0B.....JSR A6..|
000002E0: 0A E0 01 53 54 41 20 24 44 43 30 41 00 F7 0A EA |...STA $DC0A....|
000002F0: 01 4A 53 52 20 41 36 00 05 0B F4 01 53 54 41 20 |.JSR A6.....STA |
00000300: 24 44 43 30 39 00 11 0B FE 01 4C 44 41 20 23 24 |$DC09.....LDA #$|
00000310: 30 00 1F 0B 08 02 53 54 41 20 24 44 43 30 38 00 |0.....STA $DC08.|
00000320: 2B 0B 12 02 4A 53 52 20 24 37 39 00 37 0B 1C 02 |+...JSR $79.7...|
00000330: 42 45 51 20 24 30 44 00 45 0B 26 02 4A 53 52 20 |BEQ $0D.E.&.JSR |
00000340: 24 41 45 46 44 00 53 0B 30 02 4A 53 52 20 24 42 |$AEFD.S.0.JSR $B|
00000350: 37 39 45 00 5F 0B 3A 02 43 50 58 20 23 31 36 00 |79E._.:.CPX #16.|
00000360: 6A 0B 44 02 42 43 53 20 41 37 00 78 0B 4E 02 53 |j.D.BCS A7.x.N.S|
00000370: 54 58 20 24 30 32 41 37 00 8F 0B 58 02 41 38 20 |TX $02A7...X.A8 |
00000380: 53 45 49 20 21 4B 4C 45 55 52 20 43 4F 44 45 00 |SEI !KLEUR CODE.|
00000390: 9D 0B 62 02 4C 44 41 20 24 30 33 31 34 00 A8 0B |..b.LDA $0314...|
000003A0: 6C 02 45 B0 20 24 41 31 00 B6 0B 76 02 53 54 41 |l.E. $A1...v.STA|
000003B0: 20 24 30 33 31 34 00 C4 0B 80 02 4C 44 41 20 24 | $0314.....LDA $|
000003C0: 30 33 31 35 00 CF 0B 8A 02 45 B0 20 24 32 32 00 |0315.....E. $22.|
000003D0: DD 0B 94 02 53 54 41 20 24 30 33 31 35 00 E5 0B |....STA $0315...|
000003E0: 9E 02 43 4C 49 00 ED 0B A8 02 52 54 53 00 FE 0B |..CLI.....RTS...|
000003F0: B2 02 41 37 20 4A 4D 50 20 24 42 32 34 38 00 0A |..A7 JMP $B248..|
00000400: 0C BC 02 4C 44 41 20 24 46 42 00 12 0C C6 02 50 |...LDA $FB.....P|
00000410: 48 41 00 1E 0C D0 02 4C 44 41 20 24 46 43 00 26 |HA.....LDA $FC.&|
00000420: 0C DA 02 50 48 41 00 46 0C E4 02 4C 44 41 20 24 |...PHA.F...LDA $|
00000430: 30 32 38 38 20 21 48 49 20 42 49 54 20 56 49 44 |0288 !HI BIT VID|
00000440: 49 4F 20 52 41 4D 00 52 0C EE 02 53 54 41 20 24 |IO RAM.R...STA $|
00000450: 46 43 00 5E 0C F8 02 4C 44 41 20 23 24 30 00 6A |FC.^...LDA #$0.j|
00000460: 0C 02 03 53 54 41 20 24 46 42 00 7A 0C 0C 03 4C |...STA $FB.z...L|
00000470: 44 59 20 23 33 30 20 21 49 45 00 88 0C 16 03 4C |DY #30 !IE.....L|
00000480: 44 41 20 24 44 43 30 42 00 93 0C 20 03 42 45 51 |DA $DC0B... .BEQ|
00000490: 20 41 39 00 A0 0C 2A 03 43 50 4D 20 23 24 38 30 | A9...*.CPM #$80|
000004A0: 00 AC 0C 34 03 42 43 43 20 41 31 30 00 B7 0C 3E |...4.BCC A10...>|
000004B0: 03 AF 20 23 24 37 46 00 C4 0C 48 03 43 4D 50 20 |.. #$7F...H.CMP |
000004C0: 23 24 31 32 00 D0 0C 52 03 42 45 51 20 41 31 30 |#$12...R.BEQ A10|
000004D0: 00 D8 0C 5C 03 53 45 44 00 E0 0C 66 03 43 4C 43 |...\.SED...f.CLC|
000004E0: 00 ED 0C 70 03 41 44 43 20 23 24 31 32 00 F5 0C |...p.ADC #$12...|
000004F0: 7A 03 43 4C 44 00 01 0D 84 03 42 4E 45 20 41 31 |z.CLD.....BNE A1|
00000500: 30 00 0F 0D 8E 03 41 39 20 4C 44 41 20 23 30 00 |0.....A9 LDA #0.|
00000510: 1F 0D 98 03 41 31 30 20 4A 53 52 20 41 31 31 00 |....A10 JSR A11.|
00000520: 00 00 |.. |
......OUT 4.(.....$C000 !UESCHARING KLOK
.H...LDA $DC0E !SET KLOK OP 50HZ.T.(..A
#$80.B.2.STA $DC0E.|.<.LDA $DC0F !START
KLOK...F.. #$7F...P.STA $DC0F...Z.JSR $7
9 !. CHARACTER.J.D.BEQ $65 !KLOK OMSCHAK
EC.X.N.JSR $AEFD...X.JSR $AD9E !STRING H
AC.....JSR $B6A3 !PARAMETER.!...CMP #6 !
6 TEKENS..>...BNE A7 !ILLEGAL QUANTITY.J
. .LDY #$0.H...LDA ($22),Y !UUR.TIENTALC
.P...SEC.....SBC #$30 !NAAR HEX...H.CMP
#$3...R.BCS A7.....ASL A.....ASL A.....A
SL A.F...ASL A.R...STA $FB.Z...INY.....L
DA ($22),Y !UUR EENHEDEN...".SEC...,.SBC
#$30...6.CMP #$10.&.@.BCS $50.1.J..A $F
B.<.T.BNE A4.S.^.LDA $92 !12 UUR PM.^.H.
BNE A5.N.R.A4 CMP #$24.Z.|.BCS $44.....C
MP #$13.....BCC A5.....SEC.....SED.....S
BC #$12.....CLD.B.B..A $80.S.L.A5 STA $D
C0B...V.JSR A6.....STA $DC0A.....JSR A6.
....STA $DC09.....LDA #$0.....STA $DC08.
+...JSR $79.7...BEQ $0D.E.&.JSR $AEFD.S.
0.JSR $B79E._.:.CPX #16.J.D.BCS A7.X.N.S
TX $02A7...X.A8 SEI !KLEUR CODE...B.LDA
$0314...L.E. $A1...V.STA $0314.D...LDA $
0315.O...E. $22.....STA $0315.....CLI...
..RTS.....A7 JMP $B248.....LDA $FB...F.P
HA...P.LDA $FC.&.Z.PHA.F...LDA $0288 !HI
BIT VIDIO RAM.R...STA $FC.^...LDA #$0.J
...STA $FB.Z...LDY #30 !IE.....LDA $DC0B
... .BEQ A9. .*.CPM #$80...4.BCC A10...>
.. #$7F.D.H.CMP #$12.P.R.BEQ A10.X.\.SED
...F.CLC...P.ADC #$12...Z.CLD.....BNE A1
0.....A9 LDA #0.....A10 JSR A11...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL