PUZDRI.ASM
FILE INFORMATION
FILENAME(S): PUZDRI.ASM
FILE TYPE(S): SEQ
FILE SIZE: 14.2K
FIRST SEEN: 2025-11-30 21:27:02
APPEARS ON: 1 disk(s)
FILE HASH
985f6b5167a9eb948aef054abf30956f7641846c45eb86689220c60533905072
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLERBRON | PUZDRI.ASM | SEQ | DuncanTwain | 21 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 0D 3B 20 50 52 4F 47 52 41 4D 4D 41 20 20 20 |;.; PROGRAMMA | 00000010: 3A 20 20 48 55 4C 50 20 53 45 54 20 44 52 49 45 |: HULP SET DRIE| 00000020: 2E 0D 3B 20 42 52 4F 4E 43 4F 44 45 20 20 20 20 |..; BRONCODE | 00000030: 3A 20 20 50 55 5A 44 52 49 2E 41 53 4D 20 20 20 |: PUZDRI.ASM | 00000040: 2E 0D 3B 20 4F 42 4A 45 43 54 43 4F 44 45 20 20 |..; OBJECTCODE | 00000050: 3A 20 20 50 55 5A 44 52 49 2E 4F 42 4A 20 20 20 |: PUZDRI.OBJ | 00000060: 2E 0D 3B 20 44 49 53 4B 20 20 20 20 20 20 20 20 |..; DISK | 00000070: 3A 20 20 41 53 53 45 4D 42 4C 45 52 42 52 4F 4E |: ASSEMBLERBRON| 00000080: 2E 0D 3B 20 54 41 41 4C 20 20 20 20 20 20 20 20 |..; TAAL | 00000090: 3A 20 20 41 53 53 45 4D 42 4C 45 52 20 43 36 34 |: ASSEMBLER C64| 000000A0: 2E 0D 3B 20 44 41 54 55 4D 20 20 20 20 20 20 20 |..; DATUM | 000000B0: 3A 20 20 32 30 20 53 45 50 54 2E 31 39 39 31 2E |: 20 SEPT.1991.| 000000C0: 0D 3B 20 50 52 4F 47 52 41 4D 4D 45 55 52 20 3A |.; PROGRAMMEUR :| 000000D0: 20 20 4A 2E 48 2E 56 41 4E 20 52 49 4A 4E 2E 0D | J.H.VAN RIJN..| 000000E0: 3B 0D 3B 20 4F 50 20 44 45 5A 45 20 53 45 54 20 |;.; OP DEZE SET | 000000F0: 53 54 41 41 4E 20 53 55 42 50 52 4F 47 52 41 4D |STAAN SUBPROGRAM| 00000100: 4D 41 27 53 0D 3B 20 56 4F 4F 52 20 43 4F 44 45 |MA'S.; VOOR CODE| 00000110: 2D 20 45 4E 20 41 4E 44 45 52 45 20 50 55 5A 5A |- EN ANDERE PUZZ| 00000120: 45 4C 53 2E 0D 3B 0D 3B 3D 3D 3D 3D 3D 3D 3D 3D |ELS..;.;========| 00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 3B 0D 3B 20 44 45 |=========.;.; DE| 00000150: 43 49 4D 20 48 45 58 41 20 53 59 4D 42 4C 20 46 |CIM HEXA SYMBL F| 00000160: 55 4E 43 54 49 45 0D 3B 0D 3B 20 33 30 38 30 34 |UNCTIE.;.; 30804| 00000170: 20 37 38 35 34 20 4D 55 4C 4F 50 20 56 45 52 4D | 7854 MULOP VERM| 00000180: 45 4E 49 47 56 2E 26 20 4F 50 2D 0D 3B 20 20 20 |ENIGV.& OP-.; | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 | T| 000001A0: 45 4C 4C 45 4E 2C 20 32 20 42 59 54 53 2E 0D 3B |ELLEN, 2 BYTS..;| 000001B0: 20 33 30 38 36 38 20 37 38 39 34 20 42 4E 4B 4E | 30868 7894 BNKN| 000001C0: 58 20 4B 49 45 53 20 42 41 4E 4B 20 23 28 58 29 |X KIES BANK #(X)| 000001D0: 3B 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |;.; | 000001E0: 20 20 20 20 20 42 45 52 45 4B 45 4E 20 41 44 52 | BEREKEN ADR| 000001F0: 45 53 2E 0D 3B 20 33 30 39 30 38 20 37 38 42 43 |ES..; 30908 78BC| 00000200: 20 53 43 4D 4E 59 20 4B 49 45 53 20 53 43 48 45 | SCMNY KIES SCHE| 00000210: 52 4D 42 4C 4F 4B 0D 3B 20 20 20 20 20 20 20 20 |RMBLOK.; | 00000220: 20 20 20 20 20 20 20 20 20 20 23 28 59 29 3B 20 | #(Y); | 00000230: 41 44 52 45 53 2E 0D 3B 20 33 30 39 37 36 20 37 |ADRES..; 30976 7| 00000240: 39 30 30 20 43 59 46 56 4C 20 43 49 4A 46 45 52 |900 CYFVL CIJFER| 00000250: 50 41 52 45 4E 20 49 4E 0D 3B 20 20 20 20 20 20 |PAREN IN.; | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 4B 41 52 41 | KARA| 00000270: 4B 54 45 52 2D 52 41 4D 2E 0D 3B 20 33 31 30 37 |KTER-RAM..; 3107| 00000280: 32 20 37 39 36 30 20 4B 41 52 42 4C 20 4B 49 45 |2 7960 KARBL KIE| 00000290: 53 20 4B 41 52 41 4B 2E 42 4C 4F 4B 0D 3B 20 20 |S KARAK.BLOK.; | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002B0: 23 28 59 29 3B 20 41 44 52 45 53 2E 0D 3B 20 33 |#(Y); ADRES..; 3| 000002C0: 31 31 30 34 20 37 39 38 30 20 4B 41 52 54 50 20 |1104 7980 KARTP | 000002D0: 4B 41 52 41 4B 54 45 52 53 20 56 41 4E 0D 3B 20 |KARAKTERS VAN.; | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002F0: 20 52 4F 4D 20 4E 41 41 52 20 52 41 4D 2E 0D 3B | ROM NAAR RAM..;| 00000300: 20 33 31 31 37 36 20 37 39 43 38 20 5A 4F 56 45 | 31176 79C8 ZOVE| 00000310: 54 20 5A 4F 45 4B 20 54 45 4B 45 4E 20 55 49 54 |T ZOEK TEKEN UIT| 00000320: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 00000330: 20 20 20 20 54 59 50 45 56 45 43 54 4F 52 2E 0D | TYPEVECTOR..| 00000340: 3B 20 33 31 31 39 32 20 37 39 44 38 20 49 4E 44 |; 31192 79D8 IND| 00000350: 58 5A 20 5A 45 54 20 49 4E 44 45 58 20 56 4F 4F |XZ ZET INDEX VOO| 00000360: 52 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |R.; | 00000370: 20 20 20 20 20 47 45 50 52 4F 47 2E 52 41 4D 2D | GEPROG.RAM-| 00000380: 4B 41 52 2E 0D 3B 20 33 31 32 31 38 20 37 39 46 |KAR..; 31218 79F| 00000390: 32 20 4D 49 56 55 4C 20 56 55 4C 20 4D 45 54 20 |2 MIVUL VUL MET | 000003A0: 45 45 4E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |EEN.; | 000003B0: 20 20 20 20 20 20 20 42 59 54 45 20 50 45 52 20 | BYTE PER | 000003C0: 42 4C 4F 4B 2E 0D 3B 20 33 31 32 33 32 20 37 41 |BLOK..; 31232 7A| 000003D0: 30 30 20 53 43 48 52 4D 20 56 55 4C 20 47 45 4B |00 SCHRM VUL GEK| 000003E0: 4F 5A 45 4E 0D 3B 20 20 20 20 20 20 20 20 20 20 |OZEN.; | 000003F0: 20 20 20 20 20 20 20 20 53 43 48 45 52 4D 20 4D | SCHERM M| 00000400: 2F 42 59 54 45 53 2E 0D 3B 20 33 31 33 31 34 20 |/BYTES..; 31314 | 00000410: 37 41 35 32 20 4D 49 54 52 41 20 54 52 41 4E 53 |7A52 MITRA TRANS| 00000420: 50 4F 52 54 20 56 41 4E 0D 3B 20 20 20 20 20 20 |PORT VAN.; | 00000430: 20 20 20 20 20 20 20 20 20 20 20 20 45 45 4E 20 | EEN | 00000440: 42 59 54 45 2F 42 4C 4F 4B 2E 0D 3B 20 33 31 33 |BYTE/BLOK..; 313| 00000450: 32 38 20 37 41 36 30 20 4B 41 52 52 56 20 52 45 |28 7A60 KARRV RE| 00000460: 56 45 52 54 45 45 52 20 4B 41 52 2E 2D 0D 3B 20 |VERTEER KAR.-.; | 00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000480: 20 42 4C 4F 4B 20 32 45 20 48 45 4C 46 54 2E 0D | BLOK 2E HELFT..| 00000490: 3B 20 33 31 33 36 38 20 37 41 38 38 20 4B 4C 45 |; 31368 7A88 KLE| 000004A0: 55 52 20 4B 4C 45 55 52 20 4B 47 4B 4C 45 0D 3B |UR KLEUR KGKLE.;| 000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004C0: 20 20 49 4E 20 4B 4C 45 55 52 56 45 4C 44 2E 0D | IN KLEURVELD..| 000004D0: 3B 20 33 31 34 31 32 20 37 41 42 34 20 54 59 56 |; 31412 7AB4 TYV| 000004E0: 45 53 20 54 59 50 45 56 45 43 54 4F 52 0D 3B 20 |ES TYPEVECTOR.; | 000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000500: 20 4E 41 41 52 20 53 43 48 45 52 4D 2E 0D 3B 20 | NAAR SCHERM..; | 00000510: 33 31 34 34 34 20 37 41 44 34 20 42 4C 42 49 54 |31444 7AD4 BLBIT| 00000520: 20 42 49 54 53 20 57 49 4A 5A 49 47 45 4E 0D 3B | BITS WIJZIGEN.;| 00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000540: 20 20 4D 2F 45 58 54 2E 53 55 42 52 4F 55 54 2E | M/EXT.SUBROUT.| 00000550: 0D 3B 0D 3B 0D 3B 20 20 20 20 20 20 20 49 4E 54 |.;.;.; INT| 00000560: 45 52 4E 2E 0D 3B 20 20 20 20 20 20 20 3D 3D 3D |ERN..; ===| 00000570: 3D 3D 3D 3D 0D 3B 0D 3B 20 33 30 37 32 30 20 37 |====.;.; 30720 7| 00000580: 38 30 30 20 42 4C 54 52 41 20 54 52 41 4E 53 50 |800 BLTRA TRANSP| 00000590: 4F 52 54 20 56 41 4E 0D 3B 20 20 20 20 20 20 20 |ORT VAN.; | 000005A0: 20 20 20 20 20 20 20 20 20 20 20 42 59 54 45 42 | BYTEB| 000005B0: 4C 4F 4B 4B 45 4E 2E 0D 3B 20 33 30 37 36 38 20 |LOKKEN..; 30768 | 000005C0: 37 38 33 30 20 42 4C 56 55 4C 20 56 55 4C 4C 45 |7830 BLVUL VULLE| 000005D0: 4E 20 56 41 4E 0D 3B 20 20 20 20 20 20 20 20 20 |N VAN.; | 000005E0: 20 20 20 20 20 20 20 20 20 42 59 54 45 42 4C 4F | BYTEBLO| 000005F0: 4B 4B 45 4E 2E 0D 3B 20 33 30 38 34 38 20 37 38 |KKEN..; 30848 78| 00000600: 38 30 20 44 45 43 58 59 20 31 30 28 58 29 2B 28 |80 DECXY 10(X)+(| 00000610: 59 29 3D 3E 28 32 29 0D 3B 20 20 20 20 20 20 20 |Y)=>(2).; | 00000620: 20 20 20 20 20 20 20 20 20 20 20 54 57 45 45 20 | TWEE | 00000630: 43 49 4A 46 45 52 53 2E 0D 3B 20 33 30 39 33 36 |CIJFERS..; 30936| 00000640: 20 37 38 44 38 20 48 4C 46 42 59 20 38 20 50 41 | 78D8 HLFBY 8 PA| 00000650: 41 52 20 4E 49 42 42 4C 45 53 0D 3B 20 20 20 20 |AR NIBBLES.; | 00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4F | TO| 00000670: 54 20 38 20 42 59 54 45 53 2E 0D 3B 20 33 30 39 |T 8 BYTES..; 309| 00000680: 35 36 20 37 38 45 43 20 58 41 44 45 43 20 28 32 |56 78EC XADEC (2| 00000690: 29 3D 3E 31 30 28 58 29 2B 28 41 29 0D 3B 20 20 |)=>10(X)+(A).; | 000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006B0: 54 57 45 45 20 43 49 4A 46 45 52 53 2E 0D 3B 20 |TWEE CIJFERS..; | 000006C0: 33 31 32 36 34 20 37 41 32 30 20 42 4C 54 52 56 |31264 7A20 BLTRV| 000006D0: 20 54 52 41 4E 53 50 2E 56 2E 52 45 56 45 52 2D | TRANSP.V.REVER-| 000006E0: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 000006F0: 20 20 20 20 54 45 45 52 44 45 20 42 59 54 45 53 | TEERDE BYTES| 00000700: 2E 0D 3B 20 33 31 33 38 38 20 37 41 39 43 20 4D |..; 31388 7A9C M| 00000710: 45 42 4C 4F 20 56 55 4C 4C 45 4E 20 56 4F 4F 52 |EBLO VULLEN VOOR| 00000720: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 00000730: 20 20 20 20 53 43 48 45 52 4D 52 45 47 45 4C 53 | SCHERMREGELS| 00000740: 2E 0D 3B 0D 3B 0D 3B 0D 20 20 20 20 20 20 2A 3D |..;.;.;. *=| 00000750: 33 30 37 32 30 0D 3B 0D 3B 20 42 4C 4F 4B 54 52 |30720.;.; BLOKTR| 00000760: 41 4E 53 50 4F 52 54 2E 0D 3B 20 54 45 20 56 4F |ANSPORT..; TE VO| 00000770: 52 45 4E 20 49 4E 56 55 4C 4C 45 4E 3A 0D 3B 20 |REN INVULLEN:.; | 00000780: 28 30 33 33 29 3D 41 41 4E 54 41 4C 20 42 4C 4F |(033)=AANTAL BLO| 00000790: 4B 4B 45 4E 2E 0D 3B 20 28 30 33 34 29 3D 41 41 |KKEN..; (034)=AA| 000007A0: 4E 54 41 4C 20 42 59 54 45 53 20 50 45 52 20 42 |NTAL BYTES PER B| 000007B0: 4C 4F 4B 2E 0D 3B 20 28 32 35 32 2C 32 35 31 29 |LOK..; (252,251)| 000007C0: 20 20 48 41 41 4C 41 44 52 45 53 20 42 45 47 49 | HAALADRES BEGI| 000007D0: 4E 2E 0D 3B 20 28 32 35 34 2C 32 35 33 29 20 42 |N..; (254,253) B| 000007E0: 52 45 4E 47 41 44 52 45 53 20 42 45 47 49 4E 2E |RENGADRES BEGIN.| 000007F0: 0D 3B 20 28 31 30 31 2C 31 30 30 29 20 4F 50 48 |.; (101,100) OPH| 00000800: 4F 47 45 4E 20 48 41 41 4C 41 44 52 45 53 2E 0D |OGEN HAALADRES..| 00000810: 3B 20 28 31 30 38 2C 31 30 37 29 20 4F 50 48 4F |; (108,107) OPHO| 00000820: 47 45 4E 20 42 52 45 4E 47 41 44 52 45 53 2E 0D |GEN BRENGADRES..| 00000830: 3B 0D 42 4C 54 52 41 20 4C 44 58 20 20 30 33 33 |;.BLTRA LDX 033| 00000840: 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 |. CLC. | 00000850: 20 42 43 43 20 20 42 4C 54 52 34 0D 42 4C 54 52 | BCC BLTR4.BLTR| 00000860: 31 20 4C 44 59 20 20 30 33 34 0D 20 20 20 20 20 |1 LDY 034. | 00000870: 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 | CLC. BCC | 00000880: 42 4C 54 52 33 0D 42 4C 54 52 32 20 4C 44 41 20 |BLTR3.BLTR2 LDA | 00000890: 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 53 54 |(251),Y. ST| 000008A0: 41 20 28 32 35 33 29 2C 59 0D 42 4C 54 52 33 20 |A (253),Y.BLTR3 | 000008B0: 44 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 42 |DEY. BPL B| 000008C0: 4C 54 52 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 |LTR2. CLC. | 000008D0: 20 20 20 20 20 4C 44 41 20 20 32 35 31 0D 20 20 | LDA 251. | 000008E0: 20 20 20 20 41 44 43 20 20 31 30 30 0D 20 20 20 | ADC 100. | 000008F0: 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 20 | STA 251. | 00000900: 20 20 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 | LDA 252. | 00000910: 20 41 44 43 20 20 31 30 31 0D 20 20 20 20 20 20 | ADC 101. | 00000920: 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 43 |STA 252. C| 00000930: 4C 43 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |LC. LDA 25| 00000940: 33 0D 20 20 20 20 20 20 41 44 43 20 20 31 30 37 |3. ADC 107| 00000950: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 0D |. STA 253.| 00000960: 20 20 20 20 20 20 4C 44 41 20 20 32 35 34 0D 20 | LDA 254. | 00000970: 20 20 20 20 20 41 44 43 20 20 31 30 38 0D 20 20 | ADC 108. | 00000980: 20 20 20 20 53 54 41 20 20 32 35 34 0D 42 4C 54 | STA 254.BLT| 00000990: 52 34 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C |R4 DEX. BPL| 000009A0: 20 20 42 4C 54 52 31 0D 20 20 20 20 20 20 52 54 | BLTR1. RT| 000009B0: 53 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 |S. .DBYTE $| 000009C0: 45 41 45 41 2C 24 45 41 45 41 0D 3B 0D 20 20 20 |EAEA,$EAEA.;. | 000009D0: 20 20 20 2A 3D 33 30 37 36 38 0D 3B 0D 3B 20 42 | *=30768.;.; B| 000009E0: 4C 4F 4B 56 55 4C 4C 45 4E 2E 0D 3B 20 54 45 20 |LOKVULLEN..; TE | 000009F0: 56 4F 52 45 4E 20 49 4E 56 55 4C 4C 45 4E 3A 0D |VOREN INVULLEN:.| 00000A00: 3B 20 28 30 33 33 29 3D 41 41 4E 54 41 4C 20 42 |; (033)=AANTAL B| 00000A10: 4C 4F 4B 4B 45 4E 2E 0D 3B 20 28 30 33 34 29 3D |LOKKEN..; (034)=| 00000A20: 41 41 4E 54 41 4C 20 42 59 54 45 53 20 50 45 52 |AANTAL BYTES PER| 00000A30: 20 42 4C 4F 4B 2E 0D 3B 20 28 32 35 31 29 3D 56 | BLOK..; (251)=V| 00000A40: 55 4C 42 59 54 45 2E 0D 3B 20 28 32 35 34 2C 32 |ULBYTE..; (254,2| 00000A50: 35 33 29 20 56 55 4C 41 44 52 45 53 20 42 45 47 |53) VULADRES BEG| 00000A60: 49 4E 2E 0D 3B 20 28 31 30 38 2C 31 30 37 29 20 |IN..; (108,107) | 00000A70: 4F 50 48 4F 47 45 4E 20 56 55 4C 41 44 52 45 53 |OPHOGEN VULADRES| 00000A80: 2E 0D 3B 0D 42 4C 56 55 4C 20 4C 44 58 20 20 30 |..;.BLVUL LDX 0| 00000A90: 33 33 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |33. CLC. | 00000AA0: 20 20 20 42 43 43 20 20 42 4C 56 55 34 0D 42 4C | BCC BLVU4.BL| 00000AB0: 56 55 31 20 4C 44 59 20 20 30 33 34 0D 20 20 20 |VU1 LDY 034. | 00000AC0: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 | CLC. BCC| 00000AD0: 20 20 42 4C 56 55 33 0D 42 4C 56 55 32 20 4C 44 | BLVU3.BLVU2 LD| 00000AE0: 41 20 20 32 35 31 0D 20 20 20 20 20 20 53 54 41 |A 251. STA| 00000AF0: 20 28 32 35 33 29 2C 59 0D 42 4C 56 55 33 20 44 | (253),Y.BLVU3 D| 00000B00: 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 42 4C |EY. BPL BL| 00000B10: 56 55 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |VU2. CLC. | 00000B20: 20 20 20 20 4C 44 41 20 20 32 35 33 0D 20 20 20 | LDA 253. | 00000B30: 20 20 20 41 44 43 20 20 31 30 37 0D 20 20 20 20 | ADC 107. | 00000B40: 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 | STA 253. | 00000B50: 20 4C 44 41 20 20 32 35 34 0D 20 20 20 20 20 20 | LDA 254. | 00000B60: 41 44 43 20 20 31 30 38 0D 20 20 20 20 20 20 53 |ADC 108. S| 00000B70: 54 41 20 20 32 35 34 0D 42 4C 56 55 34 20 44 45 |TA 254.BLVU4 DE| 00000B80: 58 0D 20 20 20 20 20 20 42 50 4C 20 20 42 4C 56 |X. BPL BLV| 00000B90: 55 31 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 |U1. RTS. | 00000BA0: 20 20 20 2E 44 42 59 54 45 20 24 45 41 45 41 2C | .DBYTE $EAEA,| 00000BB0: 24 45 41 45 41 0D 3B 0D 20 20 20 20 20 20 2A 3D |$EAEA.;. *=| 00000BC0: 33 30 38 30 34 0D 3B 0D 3B 20 56 45 52 4D 45 4E |30804.;.; VERMEN| 00000BD0: 49 47 56 55 4C 44 49 47 45 4E 20 4D 45 54 20 4F |IGVULDIGEN MET O| 00000BE0: 50 54 45 4C 4C 45 4E 2E 0D 3B 28 32 35 32 2C 32 |PTELLEN..;(252,2| 00000BF0: 35 31 29 2B 28 31 30 37 29 2A 28 31 36 37 29 3D |51)+(107)*(167)=| 00000C00: 3E 28 32 35 32 2C 32 35 31 29 2E 0D 3B 0D 4D 55 |>(252,251)..;.MU| 00000C10: 4C 4F 50 20 54 58 41 20 20 20 20 20 20 20 20 20 |LOP TXA | 00000C20: 3B 52 45 44 20 28 58 29 2C 28 59 29 2E 0D 20 20 |;RED (X),(Y).. | 00000C30: 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 54 59 | PHA. TY| 00000C40: 41 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 |A. PHA. | 00000C50: 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 3B 47 | LDX #000 ;G| 00000C60: 45 44 45 45 4C 54 45 4C 49 4A 4B 0D 20 20 20 20 |EDEELTELIJK. | 00000C70: 20 20 4C 44 59 20 20 31 36 37 20 20 20 20 3B 50 | LDY 167 ;P| 00000C80: 52 4F 44 55 43 54 2E 0D 20 20 20 20 20 20 43 4C |RODUCT.. CL| 00000C90: 43 0D 4D 55 4C 4F 31 20 4C 44 41 20 20 31 30 37 |C.MULO1 LDA 107| 00000CA0: 20 20 20 20 3B 42 49 54 20 53 45 4E 53 20 56 4F | ;BIT SENS VO| 00000CB0: 4F 52 0D 20 20 20 20 20 20 42 45 51 20 20 4D 55 |OR. BEQ MU| 00000CC0: 4C 4F 33 20 20 3B 4F 50 54 45 4C 4C 45 4E 2E 0D |LO3 ;OPTELLEN..| 00000CD0: 20 20 20 20 20 20 52 4F 52 20 20 31 30 37 20 20 | ROR 107 | 00000CE0: 20 20 3B 53 43 48 55 49 46 20 4F 50 2E 0D 20 20 | ;SCHUIF OP.. | 00000CF0: 20 20 20 20 42 43 43 20 20 4D 55 4C 4F 32 20 20 | BCC MULO2 | 00000D00: 3B 42 49 54 20 3D 20 3F 0D 20 20 20 20 20 20 43 |;BIT = ?. C| 00000D10: 4C 43 0D 20 20 20 20 20 20 54 59 41 20 20 20 20 |LC. TYA | 00000D20: 20 20 20 20 20 3B 42 49 54 20 3D 20 31 3A 20 54 | ;BIT = 1: T| 00000D30: 45 4C 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 |EL. ADC 25| 00000D40: 31 20 20 20 20 3B 47 45 44 45 45 4C 54 45 4C 49 |1 ;GEDEELTELI| 00000D50: 4A 4B 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |JK. STA 25| 00000D60: 31 20 20 20 20 3B 50 52 4F 44 55 43 54 20 42 49 |1 ;PRODUCT BI| 00000D70: 4A 2E 0D 20 20 20 20 20 20 54 58 41 0D 20 20 20 |J.. TXA. | 00000D80: 20 20 20 41 44 43 20 20 32 35 32 0D 20 20 20 20 | ADC 252. | 00000D90: 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 | STA 252. | 00000DA0: 20 43 4C 43 0D 4D 55 4C 4F 32 20 54 59 41 20 20 | CLC.MULO2 TYA | 00000DB0: 20 20 20 20 20 20 20 3B 44 41 41 52 4E 41 20 47 | ;DAARNA G| 00000DC0: 45 44 45 45 4C 2D 0D 20 20 20 20 20 20 52 4F 4C |EDEEL-. ROL| 00000DD0: 20 20 41 20 20 20 20 20 20 3B 54 45 4C 49 4A 4B | A ;TELIJK| 00000DE0: 20 50 52 4F 44 55 43 54 0D 20 20 20 20 20 20 54 | PRODUCT. T| 00000DF0: 41 59 20 20 20 20 20 20 20 20 20 3B 53 43 48 55 |AY ;SCHU| 00000E00: 49 56 45 4E 2E 0D 20 20 20 20 20 20 54 58 41 0D |IVEN.. TXA.| 00000E10: 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 | ROL A. | 00000E20: 20 20 20 54 41 58 0D 20 20 20 20 20 20 43 4C 43 | TAX. CLC| 00000E30: 0D 20 20 20 20 20 20 42 43 43 20 20 4D 55 4C 4F |. BCC MULO| 00000E40: 31 0D 4D 55 4C 4F 33 20 50 4C 41 20 20 20 20 20 |1.MULO3 PLA | 00000E50: 20 20 20 20 3B 48 45 52 53 54 45 4C 20 28 58 29 | ;HERSTEL (X)| 00000E60: 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 |. TAY | 00000E70: 20 20 20 3B 45 4E 20 28 59 29 2E 0D 20 20 20 20 | ;EN (Y).. | 00000E80: 20 20 50 4C 41 0D 20 20 20 20 20 20 54 41 58 0D | PLA. TAX.| 00000E90: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00000EA0: 2E 44 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 |.DBYTE $EAEA,$EA| 00000EB0: 45 41 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 38 |EA.;. *=308| 00000EC0: 34 38 0D 3B 0D 3B 20 5A 45 54 20 47 45 54 41 4C |48.;.; ZET GETAL| 00000ED0: 20 31 30 2A 28 58 29 2B 28 59 29 20 49 4E 20 30 | 10*(X)+(Y) IN 0| 00000EE0: 30 32 2E 0D 3B 0D 44 45 43 58 59 20 54 58 41 0D |02..;.DECXY TXA.| 00000EF0: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 00000F00: 20 20 3B 54 49 45 4E 54 41 4C 4C 45 4E 2E 0D 20 | ;TIENTALLEN.. | 00000F10: 20 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 | ROL A | 00000F20: 20 3B 56 45 52 44 55 42 42 45 4C 2E 0D 20 20 20 | ;VERDUBBEL.. | 00000F30: 20 20 20 53 54 41 20 20 30 30 32 20 20 20 20 3B | STA 002 ;| 00000F40: 54 49 4A 44 45 4C 49 4A 4B 2E 0D 20 20 20 20 20 |TIJDELIJK.. | 00000F50: 20 52 4F 4C 20 20 41 20 20 20 20 20 20 3B 4D 41 | ROL A ;MA| 00000F60: 41 4C 20 41 43 48 54 2E 0D 20 20 20 20 20 20 52 |AL ACHT.. R| 00000F70: 4F 4C 20 20 41 0D 20 20 20 20 20 20 41 44 43 20 |OL A. ADC | 00000F80: 20 30 30 32 20 20 20 20 3B 31 30 2A 28 58 29 20 | 002 ;10*(X) | 00000F90: 49 4E 20 41 2E 0D 20 20 20 20 20 20 53 54 59 20 |IN A.. STY | 00000FA0: 20 30 30 32 20 20 20 20 3B 52 45 44 20 45 45 4E | 002 ;RED EEN| 00000FB0: 48 45 44 45 4E 2E 0D 20 20 20 20 20 20 41 44 43 |HEDEN.. ADC| 00000FC0: 20 20 30 30 32 20 20 20 20 3B 54 45 4C 20 42 49 | 002 ;TEL BI| 00000FD0: 4A 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |J.. STA 00| 00000FE0: 32 20 20 20 20 3B 53 4F 4D 20 4B 4C 41 41 52 2E |2 ;SOM KLAAR.| 00000FF0: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 00001000: 20 2E 44 42 59 54 45 20 24 45 41 45 41 2C 24 45 | .DBYTE $EAEA,$E| 00001010: 41 45 41 0D 20 20 20 20 20 20 2E 44 42 59 54 45 |AEA. .DBYTE| 00001020: 20 24 45 41 45 41 2C 24 45 41 45 41 0D 3B 0D 20 | $EAEA,$EAEA.;. | 00001030: 20 20 20 20 20 2A 3D 33 30 38 36 38 0D 3B 0D 3B | *=30868.;.;| 00001040: 20 4B 49 45 53 20 42 41 4E 4B 20 4E 55 4D 4D 45 | KIES BANK NUMME| 00001050: 52 20 23 28 58 29 2E 0D 3B 0D 42 4E 4B 4E 58 20 |R #(X)..;.BNKNX | 00001060: 4C 44 41 20 20 35 36 35 37 38 20 20 3B 4F 55 54 |LDA 56578 ;OUT| 00001070: 50 55 54 53 20 43 49 41 23 32 2E 0D 20 20 20 20 |PUTS CIA#2.. | 00001080: 20 20 4F 52 41 20 23 30 30 33 0D 20 20 20 20 20 | ORA #003. | 00001090: 20 53 54 41 20 20 35 36 35 37 38 0D 20 20 20 20 | STA 56578. | 000010A0: 20 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 42 | TXA ;B| 000010B0: 41 4E 4B 4E 55 4D 4D 45 52 2E 0D 20 20 20 20 20 |ANKNUMMER.. | 000010C0: 20 45 4F 52 20 23 30 30 33 20 20 20 20 3B 43 4F | EOR #003 ;CO| 000010D0: 4D 50 4C 45 4D 45 4E 54 2E 0D 20 20 20 20 20 20 |MPLEMENT.. | 000010E0: 53 54 41 20 20 30 30 32 0D 20 20 20 20 20 20 4C |STA 002. L| 000010F0: 44 41 20 20 35 36 35 37 36 20 20 3B 42 41 4E 4B |DA 56576 ;BANK| 00001100: 43 45 4C 20 56 49 43 2E 0D 20 20 20 20 20 20 41 |CEL VIC.. A| 00001110: 4E 44 20 23 32 35 32 20 20 20 20 3B 42 49 54 53 |ND #252 ;BITS| 00001120: 20 31 2C 30 2E 0D 20 20 20 20 20 20 4F 52 41 20 | 1,0.. ORA | 00001130: 20 30 30 32 20 20 20 20 3B 20 33 20 2D 20 28 58 | 002 ; 3 - (X| 00001140: 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 35 36 |).. STA 56| 00001150: 35 37 36 20 20 3B 42 45 52 45 4B 45 4E 20 42 41 |576 ;BEREKEN BA| 00001160: 4E 4B 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |NK. CLC | 00001170: 20 20 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 | ;BEGINADRES| 00001180: 2E 0D 20 20 20 20 20 20 54 58 41 0D 20 20 20 20 |.. TXA. | 00001190: 20 20 52 4F 52 20 20 41 0D 20 20 20 20 20 20 52 | ROR A. R| 000011A0: 4F 52 20 20 41 0D 20 20 20 20 20 20 52 4F 52 20 |OR A. ROR | 000011B0: 20 41 0D 20 20 20 20 20 20 53 54 41 20 20 42 4B | A. STA BK| 000011C0: 44 52 48 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |DRH. LDA #0| 000011D0: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 42 4B |00. STA BK| 000011E0: 44 52 4C 0D 20 20 20 20 20 20 52 54 53 0D 20 20 |DRL. RTS. | 000011F0: 20 20 20 20 2E 44 42 59 54 45 20 24 45 41 45 41 | .DBYTE $EAEA| 00001200: 2C 24 45 41 45 41 0D 3B 0D 20 20 20 20 20 20 2A |,$EAEA.;. *| 00001210: 3D 33 30 39 30 38 0D 3B 0D 3B 20 4B 49 45 53 20 |=30908.;.; KIES | 00001220: 49 4E 20 42 41 4E 4B 20 53 43 48 45 52 4D 20 23 |IN BANK SCHERM #| 00001230: 28 59 29 2E 0D 3B 0D 53 43 4D 4E 59 20 43 4C 43 |(Y)..;.SCMNY CLC| 00001240: 20 20 20 20 20 20 20 20 20 3B 53 43 48 45 52 4D | ;SCHERM| 00001250: 4E 55 4D 4D 45 52 2E 0D 20 20 20 20 20 20 54 59 |NUMMER.. TY| 00001260: 41 20 20 20 20 20 20 20 20 20 3B 4D 41 41 4C 20 |A ;MAAL | 00001270: 56 49 45 52 2E 0D 20 20 20 20 20 20 52 4F 4C 20 |VIER.. ROL | 00001280: 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D | A. ROL A.| 00001290: 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 20 | PHA | 000012A0: 20 20 3B 56 4F 4F 52 4C 4F 50 49 47 2E 0D 20 20 | ;VOORLOPIG.. | 000012B0: 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 20 | ROL A | 000012C0: 3B 4D 41 41 4C 20 56 49 45 52 2E 0D 20 20 20 20 |;MAAL VIER.. | 000012D0: 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 53 | ROL A. S| 000012E0: 54 41 20 20 30 30 32 20 20 20 20 3B 56 4F 4F 52 |TA 002 ;VOOR| 000012F0: 4C 4F 50 49 47 2E 0D 20 20 20 20 20 20 4C 44 41 |LOPIG.. LDA| 00001300: 20 20 35 33 32 37 32 20 20 3B 53 43 48 45 52 4D | 53272 ;SCHERM| 00001310: 43 45 4C 20 56 49 43 2E 0D 20 20 20 20 20 20 41 |CEL VIC.. A| 00001320: 4E 44 20 23 30 31 35 20 20 20 20 3B 42 49 54 53 |ND #015 ;BITS| 00001330: 20 37 2C 36 2C 35 2C 34 2E 0D 20 20 20 20 20 20 | 7,6,5,4.. | 00001340: 4F 52 41 20 20 30 30 32 20 20 20 20 3B 28 59 29 |ORA 002 ;(Y)| 00001350: 20 4C 49 4E 4B 53 20 42 49 4A 2E 0D 20 20 20 20 | LINKS BIJ.. | 00001360: 20 20 53 54 41 20 20 35 33 32 37 32 20 20 3B 5A | STA 53272 ;Z| 00001370: 45 54 20 54 45 52 55 47 2E 0D 20 20 20 20 20 20 |ET TERUG.. | 00001380: 50 4C 41 20 20 20 20 20 20 20 20 20 3B 54 45 4C |PLA ;TEL| 00001390: 20 42 41 4E 4B 41 44 52 45 53 0D 20 20 20 20 20 | BANKADRES. | 000013A0: 20 4F 52 41 20 20 42 4B 44 52 48 20 20 3B 42 49 | ORA BKDRH ;BI| 000013B0: 4A 20 53 43 48 45 52 4D 41 44 52 2E 0D 20 20 20 |J SCHERMADR.. | 000013C0: 20 20 20 53 54 41 20 20 30 30 36 34 38 0D 20 20 | STA 00648. | 000013D0: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 2E 44 | RTS. .D| 000013E0: 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 45 41 |BYTE $EAEA,$EAEA| 000013F0: 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 39 33 36 |.;. *=30936| 00001400: 0D 3B 0D 3B 20 20 20 20 20 38 20 50 41 52 45 4E |.;.; 8 PAREN| 00001410: 20 48 41 4C 46 42 59 54 45 53 20 53 41 4D 45 4E | HALFBYTES SAMEN| 00001420: 20 4E 41 41 52 0D 3B 20 20 20 20 20 38 20 43 4F | NAAR.; 8 CO| 00001430: 4D 50 4C 45 54 45 20 42 59 54 45 53 2E 0D 3B 20 |MPLETE BYTES..; | 00001440: 20 20 20 20 42 45 47 49 4E 41 44 52 45 53 20 4C | BEGINADRES L| 00001450: 49 4E 4B 53 20 20 28 32 35 32 2C 32 35 31 29 2E |INKS (252,251).| 00001460: 0D 3B 20 20 20 20 20 42 45 47 49 4E 41 44 52 45 |.; BEGINADRE| 00001470: 53 20 52 45 43 48 54 53 20 28 32 35 34 2C 32 35 |S RECHTS (254,25| 00001480: 33 29 2E 0D 3B 20 20 20 20 20 42 45 47 49 4E 41 |3)..; BEGINA| 00001490: 44 52 45 53 20 42 59 54 45 53 20 20 28 31 36 38 |DRES BYTES (168| 000014A0: 2C 31 36 37 29 2E 0D 3B 0D 48 4C 46 42 59 20 4C |,167)..;.HLFBY L| 000014B0: 44 59 20 23 30 30 37 20 20 20 20 3B 41 41 4E 54 |DY #007 ;AANT| 000014C0: 41 4C 20 38 2E 0D 48 4C 46 42 31 20 4C 44 41 20 |AL 8..HLFB1 LDA | 000014D0: 28 32 35 31 29 2C 59 20 3B 4C 49 4E 4B 45 52 48 |(251),Y ;LINKERH| 000014E0: 45 4C 46 54 2E 0D 20 20 20 20 20 20 43 4C 43 20 |ELFT.. CLC | 000014F0: 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 4C 49 | ;NAAR LI| 00001500: 4E 4B 53 2E 0D 20 20 20 20 20 20 52 4F 4C 20 20 |NKS.. ROL | 00001510: 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 |A. ROL A. | 00001520: 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 | ROL A. | 00001530: 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 4F | ROL A. O| 00001540: 52 41 20 28 32 35 33 29 2C 59 20 3B 4D 45 54 20 |RA (253),Y ;MET | 00001550: 52 45 43 48 54 45 52 2D 0D 20 20 20 20 20 20 53 |RECHTER-. S| 00001560: 54 41 20 28 31 36 37 29 2C 59 20 3B 48 45 4C 46 |TA (167),Y ;HELF| 00001570: 54 20 49 4E 20 42 52 45 4E 47 2D 0D 20 20 20 20 |T IN BRENG-. | 00001580: 20 20 44 45 59 20 20 20 20 20 20 20 20 20 3B 56 | DEY ;V| 00001590: 45 4C 44 3B 20 41 46 54 45 4C 4C 45 4E 2E 0D 20 |ELD; AFTELLEN.. | 000015A0: 20 20 20 20 20 42 50 4C 20 20 48 4C 46 42 31 20 | BPL HLFB1 | 000015B0: 20 3B 4B 4C 41 41 52 3F 0D 20 20 20 20 20 20 52 | ;KLAAR?. R| 000015C0: 54 53 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 |TS. .DBYTE | 000015D0: 24 45 41 45 41 2C 24 45 41 45 41 0D 3B 0D 20 20 |$EAEA,$EAEA.;. | 000015E0: 20 20 20 20 2A 3D 33 30 39 35 36 0D 3B 0D 3B 20 | *=30956.;.; | 000015F0: 20 20 20 20 28 32 29 2D 3E 28 58 29 20 54 49 45 | (2)->(X) TIE| 00001600: 4E 54 41 4C 4C 45 4E 2C 0D 3B 20 20 20 20 20 20 |NTALLEN,.; | 00001610: 20 20 20 20 28 41 29 20 45 45 4E 48 45 44 45 4E | (A) EENHEDEN| 00001620: 2E 0D 3B 0D 58 41 44 45 43 20 4C 44 58 20 23 30 |..;.XADEC LDX #0| 00001630: 30 30 20 20 20 20 3B 50 4F 45 54 53 20 54 49 45 |00 ;POETS TIE| 00001640: 4E 54 41 4C 4C 2E 0D 20 20 20 20 20 20 4C 44 41 |NTALL.. LDA| 00001650: 20 20 30 30 32 20 20 20 20 3B 49 4E 50 55 54 3D | 002 ;INPUT=| 00001660: 3E 52 45 53 54 2E 0D 58 41 44 45 31 20 43 4D 50 |>REST..XADE1 CMP| 00001670: 20 23 30 31 30 20 20 20 20 3B 3C 20 3D 20 3E 20 | #010 ;< = > | 00001680: 31 30 20 3F 0D 20 20 20 20 20 20 42 43 43 20 20 |10 ?. BCC | 00001690: 58 41 44 45 32 20 20 3B 3C 20 3A 20 54 45 52 55 |XADE2 ;< : TERU| 000016A0: 47 2E 0D 20 20 20 20 20 20 49 4E 58 20 20 20 20 |G.. INX | 000016B0: 20 20 20 20 20 3B 3E 3D 3A 54 55 52 46 20 54 49 | ;>=:TURF TI| 000016C0: 45 4E 54 2E 0D 20 20 20 20 20 20 53 42 43 20 23 |ENT.. SBC #| 000016D0: 30 31 30 20 20 20 20 3B 54 52 45 4B 20 31 30 20 |010 ;TREK 10 | 000016E0: 41 46 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 58 |AF.. BNE X| 000016F0: 41 44 45 31 20 20 3B 52 45 53 54 3A 56 45 52 47 |ADE1 ;REST:VERG| 00001700: 45 4C 49 4A 4B 2E 0D 58 41 44 45 32 20 52 54 53 |ELIJK..XADE2 RTS| 00001710: 20 20 20 20 20 20 20 20 20 3B 52 45 53 54 20 4E | ;REST N| 00001720: 55 4C 3A 54 45 52 55 47 2E 0D 20 20 20 20 20 20 |UL:TERUG.. | 00001730: 2E 44 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 |.DBYTE $EAEA,$EA| 00001740: 45 41 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 |EA. .DBYTE | 00001750: 24 45 41 45 41 2C 24 45 41 45 41 0D 3B 0D 20 20 |$EAEA,$EAEA.;. | 00001760: 20 20 20 20 2A 3D 33 30 39 37 36 0D 3B 0D 3B 20 | *=30976.;.; | 00001770: 20 20 20 20 43 49 4A 46 45 52 53 20 49 4E 20 4B | CIJFERS IN K| 00001780: 41 52 41 4B 54 45 52 2D 52 41 4D 2E 0D 3B 20 20 |ARAKTER-RAM..; | 00001790: 20 20 20 45 4C 4B 45 20 50 4C 41 41 54 53 20 54 | ELKE PLAATS T| 000017A0: 57 45 45 20 43 49 4A 46 45 52 53 2E 0D 3B 20 20 |WEE CIJFERS..; | 000017B0: 20 20 20 30 30 2E 2E 2E 2E 2E 2E 32 39 2E 0D 3B | 00......29..;| 000017C0: 0D 43 59 46 56 4C 20 4C 44 58 20 23 30 30 32 20 |.CYFVL LDX #002 | 000017D0: 20 20 20 3B 54 49 45 4E 54 41 4C 4C 45 4E 2E 0D | ;TIENTALLEN..| 000017E0: 43 59 46 56 31 20 4C 44 59 20 23 30 30 39 20 20 |CYFV1 LDY #009 | 000017F0: 20 20 3B 45 45 4E 48 45 44 45 4E 2E 0D 43 59 46 | ;EENHEDEN..CYF| 00001800: 56 32 20 53 54 59 20 20 30 33 34 20 20 20 20 3B |V2 STY 034 ;| 00001810: 52 45 44 44 45 4E 2E 0D 20 20 20 20 20 20 4A 53 |REDDEN.. JS| 00001820: 52 20 20 44 45 43 58 59 20 20 3B 43 4F 4E 56 45 |R DECXY ;CONVE| 00001830: 52 54 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 20 |RT.. CLC | 00001840: 20 20 20 20 20 20 3B 4D 41 41 4C 20 41 43 48 54 | ;MAAL ACHT| 00001850: 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |.. LDA #000| 00001860: 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 30 32 0D |. ROL 002.| 00001870: 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 | ROL A. | 00001880: 20 20 20 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 | ROL 002. | 00001890: 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 | ROL A. R| 000018A0: 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 20 52 4F |OL 002. RO| 000018B0: 4C 20 20 41 0D 20 20 20 20 20 20 50 48 41 20 20 |L A. PHA | 000018C0: 20 20 20 20 20 20 20 3B 52 45 44 20 4D 53 2E 56 | ;RED MS.V| 000018D0: 41 4E 20 38 49 2E 0D 20 20 20 20 20 20 43 4C 43 |AN 8I.. CLC| 000018E0: 20 20 20 20 20 20 20 20 20 3B 54 45 4C 20 42 49 | ;TEL BI| 000018F0: 4A 20 38 49 20 48 45 54 0D 20 20 20 20 20 20 4C |J 8I HET. L| 00001900: 44 41 20 20 30 30 32 20 20 20 20 3B 42 45 47 49 |DA 002 ;BEGI| 00001910: 4E 41 44 52 45 53 20 56 41 4E 0D 20 20 20 20 20 |NADRES VAN. | 00001920: 20 41 44 43 20 20 42 4B 43 52 4C 20 20 3B 44 45 | ADC BKCRL ;DE| 00001930: 20 4B 41 52 41 4B 54 45 52 44 41 54 41 0D 20 20 | KARAKTERDATA. | 00001940: 20 20 20 20 53 54 41 20 20 31 36 37 20 20 20 20 | STA 167 | 00001950: 3B 45 52 20 42 49 4A 20 4F 50 3B 20 5A 45 54 0D |;ER BIJ OP; ZET.| 00001960: 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 | PLA | 00001970: 20 20 3B 49 4E 20 28 31 36 38 2C 31 36 37 29 2E | ;IN (168,167).| 00001980: 0D 20 20 20 20 20 20 41 44 43 20 20 42 4B 43 52 |. ADC BKCR| 00001990: 48 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 38 |H. STA 168| 000019A0: 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 20 20 |. TXA | 000019B0: 20 20 20 3B 54 49 45 4E 54 41 4C 4C 45 4E 2E 0D | ;TIENTALLEN..| 000019C0: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 000019D0: 20 20 3B 4D 41 41 4C 20 41 43 48 54 2E 0D 20 20 | ;MAAL ACHT.. | 000019E0: 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 | ROL A. | 000019F0: 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 4F | ROL A. RO| 00001A00: 4C 20 20 41 0D 20 20 20 20 20 20 41 44 43 20 20 |L A. ADC | 00001A10: 4B 41 52 4B 4C 0D 20 20 20 20 20 20 53 54 41 20 |KARKL. STA | 00001A20: 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 23 | 251. LDA #| 00001A30: 30 30 30 0D 20 20 20 20 20 20 41 44 43 20 20 4B |000. ADC K| 00001A40: 41 52 4B 48 0D 20 20 20 20 20 20 53 54 41 20 20 |ARKH. STA | 00001A50: 32 35 32 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |252. LDA 0| 00001A60: 33 34 20 20 20 20 3B 45 45 4E 48 45 44 45 4E 2E |34 ;EENHEDEN.| 00001A70: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00001A80: 20 20 20 3B 4D 41 41 4C 20 41 43 48 54 2E 0D 20 | ;MAAL ACHT.. | 00001A90: 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 | ROL A. | 00001AA0: 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 | ROL A. R| 00001AB0: 4F 4C 20 20 41 0D 20 20 20 20 20 20 41 44 43 20 |OL A. ADC | 00001AC0: 20 4B 41 52 4B 4C 0D 20 20 20 20 20 20 53 54 41 | KARKL. STA| 00001AD0: 20 20 32 35 33 0D 20 20 20 20 20 20 4C 44 41 20 | 253. LDA | 00001AE0: 23 30 30 30 0D 20 20 20 20 20 20 41 44 43 20 20 |#000. ADC | 00001AF0: 4B 41 52 4B 48 0D 20 20 20 20 20 20 53 54 41 20 |KARKH. STA | 00001B00: 20 32 35 34 0D 20 20 20 20 20 20 4A 53 52 20 20 | 254. JSR | 00001B10: 48 4C 46 42 59 20 20 3B 41 41 4E 20 45 4C 4B 41 |HLFBY ;AAN ELKA| 00001B20: 41 52 2E 0D 20 20 20 20 20 20 4C 44 59 20 20 30 |AR.. LDY 0| 00001B30: 33 34 20 20 20 20 3B 45 45 4E 48 44 2E 4F 50 48 |34 ;EENHD.OPH| 00001B40: 41 4C 45 4E 2E 0D 20 20 20 20 20 20 44 45 59 0D |ALEN.. DEY.| 00001B50: 20 20 20 20 20 20 42 50 4C 20 20 43 59 46 56 32 | BPL CYFV2| 00001B60: 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 |. DEX. | 00001B70: 20 42 50 4C 20 20 43 59 46 56 31 0D 20 20 20 20 | BPL CYFV1. | 00001B80: 20 20 52 54 53 0D 20 20 20 20 20 20 2E 44 42 59 | RTS. .DBY| 00001B90: 54 45 20 24 45 41 45 41 2C 24 45 41 45 41 0D 20 |TE $EAEA,$EAEA. | 00001BA0: 20 20 20 20 20 2E 44 42 59 54 45 20 24 45 41 45 | .DBYTE $EAE| 00001BB0: 41 2C 24 45 41 45 41 0D 20 20 20 20 20 20 2E 44 |A,$EAEA. .D| 00001BC0: 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 45 41 |BYTE $EAEA,$EAEA| 00001BD0: 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 45 |. .DBYTE $E| 00001BE0: 41 45 41 2C 24 45 41 45 41 0D 3B 0D 20 20 20 20 |AEA,$EAEA.;. | 00001BF0: 20 20 2A 3D 33 31 30 37 32 0D 3B 0D 3B 20 4B 49 | *=31072.;.; KI| 00001C00: 45 53 20 49 4E 20 42 41 4E 4B 20 4B 41 52 41 4B |ES IN BANK KARAK| 00001C10: 54 45 52 42 4C 4F 4B 20 23 28 59 29 2E 0D 3B 0D |TERBLOK #(Y)..;.| 00001C20: 4B 41 52 42 4C 20 53 54 59 20 20 30 30 32 20 20 |KARBL STY 002 | 00001C30: 20 20 3B 42 4C 4F 4B 4E 55 4D 4D 45 52 2E 0D 20 | ;BLOKNUMMER.. | 00001C40: 20 20 20 20 20 4C 44 41 20 20 35 33 32 37 32 20 | LDA 53272 | 00001C50: 20 3B 41 44 52 45 53 20 49 4E 20 42 41 4E 4B 2E | ;ADRES IN BANK.| 00001C60: 0D 20 20 20 20 20 20 41 4E 44 20 23 32 34 30 0D |. AND #240.| 00001C70: 20 20 20 20 20 20 4F 52 41 20 20 30 30 32 0D 20 | ORA 002. | 00001C80: 20 20 20 20 20 53 54 41 20 20 35 33 32 37 32 0D | STA 53272.| 00001C90: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00001CA0: 4C 44 41 20 20 30 30 32 20 20 20 20 3B 4E 55 4D |LDA 002 ;NUM| 00001CB0: 4D 45 52 20 2A 20 31 30 32 34 0D 20 20 20 20 20 |MER * 1024. | 00001CC0: 20 52 4F 4C 20 20 41 20 20 20 20 20 20 3B 54 45 | ROL A ;TE| 00001CD0: 4C 4C 45 4E 20 42 49 4A 0D 20 20 20 20 20 20 52 |LLEN BIJ. R| 00001CE0: 4F 4C 20 20 41 20 20 20 20 20 20 3B 42 41 4E 4B |OL A ;BANK| 00001CF0: 41 44 52 45 53 20 45 4E 0D 20 20 20 20 20 20 4F |ADRES EN. O| 00001D00: 52 41 20 20 42 4B 44 52 48 20 20 3B 5A 45 54 54 |RA BKDRH ;ZETT| 00001D10: 45 4E 20 49 4E 0D 20 20 20 20 20 20 53 54 41 20 |EN IN. STA | 00001D20: 20 30 30 36 38 31 20 20 3B 42 45 47 49 4E 41 44 | 00681 ;BEGINAD| 00001D30: 52 45 53 20 56 41 4E 0D 20 20 20 20 20 20 52 54 |RES VAN. RT| 00001D40: 53 20 20 20 20 20 20 20 20 20 3B 4B 41 52 41 4B |S ;KARAK| 00001D50: 54 45 52 2D 52 41 4D 2E 0D 20 20 20 20 20 20 2E |TER-RAM.. .| 00001D60: 44 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 45 |DBYTE $EAEA,$EAE| 00001D70: 41 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 |A. .DBYTE $| 00001D80: 45 41 45 41 2C 24 45 41 45 41 0D 20 20 20 20 20 |EAEA,$EAEA. | 00001D90: 20 2E 44 42 59 54 45 20 24 45 41 45 41 2C 24 45 | .DBYTE $EAEA,$E| 00001DA0: 41 45 41 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 31 |AEA.;. *=31| 00001DB0: 31 30 34 0D 3B 0D 3B 20 4B 41 52 41 4B 54 45 52 |104.;.; KARAKTER| 00001DC0: 53 20 56 41 4E 20 52 4F 4D 20 4E 41 41 52 20 52 |S VAN ROM NAAR R| 00001DD0: 41 4D 2E 0D 3B 0D 4B 41 52 54 50 20 4C 44 41 20 |AM..;.KARTP LDA | 00001DE0: 23 30 31 36 20 20 20 20 3B 31 36 20 42 4C 4F 4B |#016 ;16 BLOK| 00001DF0: 4B 45 4E 0D 20 20 20 20 20 20 53 54 41 20 20 30 |KEN. STA 0| 00001E00: 33 33 20 20 20 20 3B 56 41 4E 20 36 34 20 42 59 |33 ;VAN 64 BY| 00001E10: 54 45 53 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 |TES.. LDA #| 00001E20: 30 36 34 20 20 20 20 3B 48 45 4C 46 54 20 49 53 |064 ;HELFT IS| 00001E30: 20 41 4C 0D 20 20 20 20 20 20 53 54 41 20 20 30 | AL. STA 0| 00001E40: 33 34 20 20 20 20 3B 56 4F 4C 44 4F 45 4E 44 45 |34 ;VOLDOENDE| 00001E50: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 30 |.. STA 100| 00001E60: 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 37 0D |. STA 107.| 00001E70: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 | LDA #000. | 00001E80: 20 20 20 20 20 53 54 41 20 20 31 30 31 0D 20 20 | STA 101. | 00001E90: 20 20 20 20 53 54 41 20 20 31 30 38 0D 20 20 20 | STA 108. | 00001EA0: 20 20 20 4C 44 41 20 20 4B 52 4F 4D 4C 0D 20 20 | LDA KROML. | 00001EB0: 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 | STA 251. | 00001EC0: 20 20 20 4C 44 41 20 20 4B 52 4F 4D 48 0D 20 20 | LDA KROMH. | 00001ED0: 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 | STA 252. | 00001EE0: 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 | LDA #000. | 00001EF0: 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 | STA 253. | 00001F00: 20 4C 44 41 20 20 30 30 36 38 31 0D 20 20 20 20 | LDA 00681. | 00001F10: 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 | STA 254. | 00001F20: 20 4C 44 41 20 20 35 36 33 33 34 0D 20 20 20 20 | LDA 56334. | 00001F30: 20 20 41 4E 44 20 23 32 35 34 0D 20 20 20 20 20 | AND #254. | 00001F40: 20 53 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 | STA 56334. | 00001F50: 20 20 4C 44 41 20 20 30 30 31 0D 20 20 20 20 20 | LDA 001. | 00001F60: 20 41 4E 44 20 23 32 35 31 0D 20 20 20 20 20 20 | AND #251. | 00001F70: 53 54 41 20 20 30 30 31 0D 20 20 20 20 20 20 4A |STA 001. J| 00001F80: 53 52 20 20 42 4C 54 52 41 0D 20 20 20 20 20 20 |SR BLTRA. | 00001F90: 4C 44 41 20 20 30 30 31 0D 20 20 20 20 20 20 4F |LDA 001. O| 00001FA0: 52 41 20 23 30 30 34 0D 20 20 20 20 20 20 53 54 |RA #004. ST| 00001FB0: 41 20 20 30 30 31 0D 20 20 20 20 20 20 4C 44 41 |A 001. LDA| 00001FC0: 20 20 35 36 33 33 34 0D 20 20 20 20 20 20 4F 52 | 56334. OR| 00001FD0: 41 20 23 30 30 31 0D 20 20 20 20 20 20 53 54 41 |A #001. STA| 00001FE0: 20 20 35 36 33 33 34 0D 20 20 20 20 20 20 52 54 | 56334. RT| 00001FF0: 53 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 |S. .DBYTE $| 00002000: 45 41 45 41 2C 24 45 41 45 41 0D 3B 0D 20 20 20 |EAEA,$EAEA.;. | 00002010: 20 20 20 2A 3D 33 31 31 37 36 0D 3B 0D 3B 20 5A | *=31176.;.; Z| 00002020: 4F 45 4B 20 54 45 4B 45 4E 20 28 30 30 32 29 20 |OEK TEKEN (002) | 00002030: 55 49 54 20 54 59 50 45 56 45 43 54 4F 52 2E 0D |UIT TYPEVECTOR..| 00002040: 3B 20 49 4E 44 45 58 20 28 30 31 2E 2E 2E 32 36 |; INDEX (01...26| 00002050: 29 20 49 4E 20 52 45 47 49 53 54 45 52 20 58 2E |) IN REGISTER X.| 00002060: 0D 3B 0D 5A 4F 56 45 54 20 4C 44 58 20 23 30 32 |.;.ZOVET LDX #02| 00002070: 36 20 20 20 20 20 3B 42 45 47 49 4E 20 42 49 4A |6 ;BEGIN BIJ| 00002080: 20 32 36 2E 0D 5A 4F 56 45 31 20 4C 44 41 20 20 | 26..ZOVE1 LDA | 00002090: 54 59 56 45 43 2C 58 0D 20 20 20 20 20 20 43 4D |TYVEC,X. CM| 000020A0: 50 20 20 30 30 32 0D 20 20 20 20 20 20 42 45 51 |P 002. BEQ| 000020B0: 20 20 5A 4F 56 45 32 20 20 20 3B 56 45 52 47 45 | ZOVE2 ;VERGE| 000020C0: 4C 49 4A 4B 2E 0D 20 20 20 20 20 20 44 45 58 0D |LIJK.. DEX.| 000020D0: 20 20 20 20 20 20 42 4E 45 20 20 5A 4F 56 45 31 | BNE ZOVE1| 000020E0: 0D 5A 4F 56 45 32 20 52 54 53 20 20 20 20 20 20 |.ZOVE2 RTS | 000020F0: 20 20 20 20 3B 30 3A 20 49 53 20 46 4F 55 54 2E | ;0: IS FOUT.| 00002100: 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 45 |. .DBYTE $E| 00002110: 41 45 41 2C 24 45 41 45 41 0D 3B 0D 20 20 20 20 |AEA,$EAEA.;. | 00002120: 20 20 2A 3D 33 31 31 39 32 0D 3B 0D 3B 20 5A 45 | *=31192.;.; ZE| 00002130: 54 20 42 45 47 49 4E 41 44 52 45 53 20 56 4F 4F |T BEGINADRES VOO| 00002140: 52 20 47 45 50 52 4F 47 52 41 4D 4D 2E 0D 3B 20 |R GEPROGRAMM..; | 00002150: 4B 41 52 41 4B 54 45 52 53 20 49 4E 20 52 41 4D |KARAKTERS IN RAM| 00002160: 20 4F 50 20 42 45 47 49 4E 20 28 58 29 2E 0D 3B | OP BEGIN (X)..;| 00002170: 0D 49 4E 44 58 5A 20 53 54 58 20 20 42 4B 43 52 |.INDXZ STX BKCR| 00002180: 4C 20 20 3B 52 45 44 20 4F 46 46 53 45 54 2E 0D |L ;RED OFFSET..| 00002190: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 000021A0: 20 20 3B 4D 41 41 4C 20 41 43 48 54 2E 0D 20 20 | ;MAAL ACHT.. | 000021B0: 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 | LDA #000. | 000021C0: 20 20 20 52 4F 4C 20 20 42 4B 43 52 4C 0D 20 20 | ROL BKCRL. | 000021D0: 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 | ROL A. | 000021E0: 20 52 4F 4C 20 20 42 4B 43 52 4C 0D 20 20 20 20 | ROL BKCRL. | 000021F0: 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 | ROL A. R| 00002200: 4F 4C 20 20 42 4B 43 52 4C 0D 20 20 20 20 20 20 |OL BKCRL. | 00002210: 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 43 4C 43 |ROL A. CLC| 00002220: 0D 20 20 20 20 20 20 41 44 43 20 20 30 30 36 38 |. ADC 0068| 00002230: 31 0D 20 20 20 20 20 20 53 54 41 20 20 42 4B 43 |1. STA BKC| 00002240: 52 48 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 |RH. RTS.;. | 00002250: 20 20 20 20 20 2A 3D 33 31 32 31 38 0D 3B 0D 3B | *=31218.;.;| 00002260: 20 4D 49 43 52 4F 56 55 4C 20 31 20 42 59 54 45 | MICROVUL 1 BYTE| 00002270: 2F 42 4C 4F 4B 2E 0D 3B 20 54 45 20 56 4F 52 45 |/BLOK..; TE VORE| 00002280: 4E 20 49 4E 56 55 4C 4C 45 4E 3A 0D 3B 20 28 30 |N INVULLEN:.; (0| 00002290: 33 33 29 3D 41 41 4E 54 41 4C 20 42 4C 4F 4B 4B |33)=AANTAL BLOKK| 000022A0: 45 4E 2E 0D 3B 20 28 32 35 31 29 3D 56 55 4C 42 |EN..; (251)=VULB| 000022B0: 59 54 45 2E 0D 3B 20 28 32 35 34 2C 32 35 33 29 |YTE..; (254,253)| 000022C0: 20 56 55 4C 41 44 52 45 53 20 42 45 47 49 4E 2E | VULADRES BEGIN.| 000022D0: 0D 3B 20 28 31 30 37 29 20 4F 50 48 4F 47 45 4E |.; (107) OPHOGEN| 000022E0: 20 56 55 4C 41 44 52 45 53 2E 0D 3B 0D 4D 49 56 | VULADRES..;.MIV| 000022F0: 55 4C 20 4C 44 41 20 23 30 30 31 0D 20 20 20 20 |UL LDA #001. | 00002300: 20 20 53 54 41 20 20 30 33 34 0D 20 20 20 20 20 | STA 034. | 00002310: 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 | LDA #000. | 00002320: 53 54 41 20 20 31 30 38 0D 20 20 20 20 20 20 4A |STA 108. J| 00002330: 53 52 20 20 42 4C 56 55 4C 0D 20 20 20 20 20 20 |SR BLVUL. | 00002340: 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 31 |RTS.;. *=31| 00002350: 32 33 32 0D 3B 0D 3B 20 20 20 20 20 53 43 48 45 |232.;.; SCHE| 00002360: 52 4D 47 45 48 45 55 47 45 4E 20 56 55 4C 4C 45 |RMGEHEUGEN VULLE| 00002370: 4E 0D 3B 20 20 20 20 20 4D 45 54 20 42 59 54 45 |N.; MET BYTE| 00002380: 53 20 28 32 35 31 29 2E 0D 3B 20 20 20 20 20 54 |S (251)..; T| 00002390: 45 20 56 4F 52 45 4E 20 28 30 30 36 34 38 29 20 |E VOREN (00648) | 000023A0: 4D 45 54 20 4D 53 2E 0D 3B 20 20 20 20 20 56 41 |MET MS..; VA| 000023B0: 4E 20 42 45 47 49 4E 41 44 52 45 53 2E 0D 3B 0D |N BEGINADRES..;.| 000023C0: 53 43 48 52 4D 20 4C 44 41 20 23 30 32 35 20 20 |SCHRM LDA #025 | 000023D0: 20 20 20 3B 32 35 20 42 4C 4F 4B 4B 45 4E 0D 20 | ;25 BLOKKEN. | 000023E0: 20 20 20 20 20 53 54 41 20 20 30 33 33 20 20 20 | STA 033 | 000023F0: 20 20 3B 56 41 4E 20 34 30 20 42 59 54 45 53 2E | ;VAN 40 BYTES.| 00002400: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 30 0D |. LDA #040.| 00002410: 20 20 20 20 20 20 53 54 41 20 20 30 33 34 0D 20 | STA 034. | 00002420: 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 | LDA #000 | 00002430: 20 20 3B 42 45 47 49 4E 41 44 52 45 53 0D 20 20 | ;BEGINADRES. | 00002440: 20 20 20 20 53 54 41 20 20 32 35 33 20 20 20 20 | STA 253 | 00002450: 20 3B 56 41 4E 20 53 43 48 45 52 4D 2E 0D 20 20 | ;VAN SCHERM.. | 00002460: 20 20 20 20 4C 44 41 20 20 30 30 36 34 38 0D 20 | LDA 00648. | 00002470: 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 | STA 254. | 00002480: 20 20 20 20 4C 44 41 20 23 30 34 30 20 20 20 20 | LDA #040 | 00002490: 20 3B 4F 50 48 4F 47 45 4E 20 56 41 4E 0D 20 20 | ;OPHOGEN VAN. | 000024A0: 20 20 20 20 53 54 41 20 20 31 30 37 20 20 20 20 | STA 107 | 000024B0: 20 3B 42 4C 4F 4B 41 44 52 45 53 0D 20 20 20 20 | ;BLOKADRES. | 000024C0: 20 20 4C 44 41 20 23 30 30 30 20 20 20 20 20 3B | LDA #000 ;| 000024D0: 4D 45 54 20 34 30 2E 0D 20 20 20 20 20 20 53 54 |MET 40.. ST| 000024E0: 41 20 20 31 30 38 20 20 20 20 20 3B 44 41 41 52 |A 108 ;DAAR| 000024F0: 4E 41 0D 20 20 20 20 20 20 4A 53 52 20 20 42 4C |NA. JSR BL| 00002500: 56 55 4C 20 20 20 3B 56 55 4C 4C 45 4E 2E 0D 20 |VUL ;VULLEN.. | 00002510: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 2E | RTS. .| 00002520: 44 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 45 |DBYTE $EAEA,$EAE| 00002530: 41 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 31 32 36 |A.;. *=3126| 00002540: 34 0D 3B 0D 3B 20 42 4C 4F 4B 54 52 41 4E 53 50 |4.;.; BLOKTRANSP| 00002550: 4F 52 54 20 4D 45 54 20 42 59 54 45 52 45 56 45 |ORT MET BYTEREVE| 00002560: 52 53 49 45 2E 0D 3B 20 54 45 20 56 4F 52 45 4E |RSIE..; TE VOREN| 00002570: 20 49 4E 56 55 4C 4C 45 4E 3A 0D 3B 20 28 30 33 | INVULLEN:.; (03| 00002580: 33 29 3D 41 41 4E 54 41 4C 20 42 4C 4F 4B 4B 45 |3)=AANTAL BLOKKE| 00002590: 4E 2E 0D 3B 20 28 30 33 34 29 3D 41 41 4E 54 41 |N..; (034)=AANTA| 000025A0: 4C 20 42 59 54 45 53 20 50 45 52 20 42 4C 4F 4B |L BYTES PER BLOK| 000025B0: 2E 0D 3B 20 28 32 35 32 2C 32 35 31 29 20 20 48 |..; (252,251) H| 000025C0: 41 41 4C 41 44 52 45 53 20 42 45 47 49 4E 2E 0D |AALADRES BEGIN..| 000025D0: 3B 20 28 32 35 34 2C 32 35 33 29 20 42 52 45 4E |; (254,253) BREN| 000025E0: 47 41 44 52 45 53 20 42 45 47 49 4E 2E 0D 3B 20 |GADRES BEGIN..; | 000025F0: 28 31 30 31 2C 31 30 30 29 20 4F 50 48 4F 47 45 |(101,100) OPHOGE| 00002600: 4E 20 48 41 41 4C 41 44 52 45 53 2E 0D 3B 20 28 |N HAALADRES..; (| 00002610: 31 30 38 2C 31 30 37 29 20 4F 50 48 4F 47 45 4E |108,107) OPHOGEN| 00002620: 20 42 52 45 4E 47 41 44 52 45 53 2E 0D 3B 0D 42 | BRENGADRES..;.B| 00002630: 4C 54 52 56 20 4C 44 58 20 20 30 33 33 0D 20 20 |LTRV LDX 033. | 00002640: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 | CLC. BC| 00002650: 43 20 20 42 4C 54 56 34 0D 42 4C 54 56 31 20 4C |C BLTV4.BLTV1 L| 00002660: 44 59 20 20 30 33 34 0D 20 20 20 20 20 20 43 4C |DY 034. CL| 00002670: 43 0D 20 20 20 20 20 20 42 43 43 20 20 42 4C 54 |C. BCC BLT| 00002680: 56 33 0D 42 4C 54 56 32 20 4C 44 41 20 28 32 35 |V3.BLTV2 LDA (25| 00002690: 31 29 2C 59 0D 20 20 20 20 20 20 45 4F 52 20 23 |1),Y. EOR #| 000026A0: 32 35 35 0D 20 20 20 20 20 20 53 54 41 20 28 32 |255. STA (2| 000026B0: 35 33 29 2C 59 0D 42 4C 54 56 33 20 44 45 59 0D |53),Y.BLTV3 DEY.| 000026C0: 20 20 20 20 20 20 42 50 4C 20 20 42 4C 54 56 32 | BPL BLTV2| 000026D0: 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 |. CLC. | 000026E0: 20 4C 44 41 20 20 32 35 31 0D 20 20 20 20 20 20 | LDA 251. | 000026F0: 41 44 43 20 20 31 30 30 0D 20 20 20 20 20 20 53 |ADC 100. S| 00002700: 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 |TA 251. LD| 00002710: 41 20 20 32 35 32 0D 20 20 20 20 20 20 41 44 43 |A 252. ADC| 00002720: 20 20 31 30 31 0D 20 20 20 20 20 20 53 54 41 20 | 101. STA | 00002730: 20 32 35 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 | 252. CLC. | 00002740: 20 20 20 20 20 4C 44 41 20 20 32 35 33 0D 20 20 | LDA 253. | 00002750: 20 20 20 20 41 44 43 20 20 31 30 37 0D 20 20 20 | ADC 107. | 00002760: 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 | STA 253. | 00002770: 20 20 4C 44 41 20 20 32 35 34 0D 20 20 20 20 20 | LDA 254. | 00002780: 20 41 44 43 20 20 31 30 38 0D 20 20 20 20 20 20 | ADC 108. | 00002790: 53 54 41 20 20 32 35 34 0D 42 4C 54 56 34 20 44 |STA 254.BLTV4 D| 000027A0: 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 42 4C |EX. BPL BL| 000027B0: 54 56 31 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D |TV1. RTS.;.| 000027C0: 20 20 20 20 20 20 2A 3D 33 31 33 31 34 0D 3B 0D | *=31314.;.| 000027D0: 3B 20 4D 49 43 52 4F 54 52 41 4E 53 50 4F 52 54 |; MICROTRANSPORT| 000027E0: 20 31 20 42 59 54 45 2F 42 4C 4F 4B 2E 0D 3B 20 | 1 BYTE/BLOK..; | 000027F0: 54 45 20 56 4F 52 45 4E 20 49 4E 56 55 4C 4C 45 |TE VOREN INVULLE| 00002800: 4E 3A 0D 3B 20 28 30 33 33 29 3D 41 41 4E 54 41 |N:.; (033)=AANTA| 00002810: 4C 20 42 4C 4F 4B 4B 45 4E 2E 0D 3B 20 28 32 35 |L BLOKKEN..; (25| 00002820: 32 2C 32 35 31 29 20 20 48 41 41 4C 41 44 52 45 |2,251) HAALADRE| 00002830: 53 20 42 45 47 49 4E 2E 0D 3B 20 28 32 35 34 2C |S BEGIN..; (254,| 00002840: 32 35 33 29 20 42 52 45 4E 47 41 44 52 45 53 20 |253) BRENGADRES | 00002850: 42 45 47 49 4E 2E 0D 3B 20 28 31 30 30 29 20 4F |BEGIN..; (100) O| 00002860: 50 48 4F 47 45 4E 20 48 41 41 4C 41 44 52 45 53 |PHOGEN HAALADRES| 00002870: 2E 0D 3B 20 28 31 30 37 29 20 4F 50 48 4F 47 45 |..; (107) OPHOGE| 00002880: 4E 20 42 52 45 4E 47 41 44 52 45 53 2E 0D 3B 0D |N BRENGADRES..;.| 00002890: 4D 49 54 52 41 20 4C 44 41 20 23 30 30 31 0D 20 |MITRA LDA #001. | 000028A0: 20 20 20 20 20 53 54 41 20 20 30 33 34 0D 20 20 | STA 034. | 000028B0: 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 | LDA #000. | 000028C0: 20 20 20 53 54 41 20 20 31 30 31 0D 20 20 20 20 | STA 101. | 000028D0: 20 20 53 54 41 20 20 31 30 38 0D 20 20 20 20 20 | STA 108. | 000028E0: 20 4A 53 52 20 20 42 4C 54 52 41 0D 20 20 20 20 | JSR BLTRA. | 000028F0: 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D | RTS.;. *=| 00002900: 33 31 33 32 38 0D 3B 0D 3B 20 52 45 56 45 52 54 |31328.;.; REVERT| 00002910: 45 45 52 20 54 57 45 45 44 45 20 48 45 4C 46 54 |EER TWEEDE HELFT| 00002920: 0D 3B 20 56 41 4E 20 4B 41 52 41 4B 54 45 52 2D |.; VAN KARAKTER-| 00002930: 52 41 4D 2E 0D 3B 0D 4B 41 52 52 56 20 4C 44 41 |RAM..;.KARRV LDA| 00002940: 20 23 30 31 36 20 20 20 20 3B 31 36 20 42 4C 4F | #016 ;16 BLO| 00002950: 4B 4B 45 4E 0D 20 20 20 20 20 20 53 54 41 20 20 |KKEN. STA | 00002960: 30 33 33 20 20 20 20 3B 56 41 4E 20 36 34 20 42 |033 ;VAN 64 B| 00002970: 59 54 45 53 2E 0D 20 20 20 20 20 20 4C 44 41 20 |YTES.. LDA | 00002980: 23 30 36 34 20 20 20 20 3B 45 4E 45 20 48 45 4C |#064 ;ENE HEL| 00002990: 46 54 20 4E 41 41 52 0D 20 20 20 20 20 20 53 54 |FT NAAR. ST| 000029A0: 41 20 20 30 33 34 20 20 20 20 3B 41 4E 44 45 52 |A 034 ;ANDER| 000029B0: 45 20 48 45 4C 46 54 2E 0D 20 20 20 20 20 20 53 |E HELFT.. S| 000029C0: 54 41 20 20 31 30 30 0D 20 20 20 20 20 20 53 54 |TA 100. ST| 000029D0: 41 20 20 31 30 37 0D 20 20 20 20 20 20 4C 44 41 |A 107. LDA| 000029E0: 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 | #000. STA | 000029F0: 20 31 30 31 0D 20 20 20 20 20 20 53 54 41 20 20 | 101. STA | 00002A00: 31 30 38 0D 20 20 20 20 20 20 53 54 41 20 20 32 |108. STA 2| 00002A10: 35 31 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |51. STA 25| 00002A20: 33 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 36 |3. LDA 006| 00002A30: 38 31 20 20 3B 4D 53 2E 48 41 41 4C 41 44 52 45 |81 ;MS.HAALADRE| 00002A40: 53 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |S.. STA 25| 00002A50: 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 |2. CLC. | 00002A60: 20 20 41 44 43 20 23 30 30 34 20 20 20 20 3B 4D | ADC #004 ;M| 00002A70: 53 2E 42 52 45 4E 47 41 44 52 45 53 2E 0D 20 20 |S.BRENGADRES.. | 00002A80: 20 20 20 20 53 54 41 20 20 32 35 34 20 20 20 20 | STA 254 | 00002A90: 3B 34 2A 32 35 36 3D 31 30 32 34 2E 0D 20 20 20 |;4*256=1024.. | 00002AA0: 20 20 20 4A 53 52 20 20 42 4C 54 52 56 20 20 3B | JSR BLTRV ;| 00002AB0: 52 45 56 45 52 54 45 45 52 2E 0D 20 20 20 20 20 |REVERTEER.. | 00002AC0: 20 52 54 53 0D 20 20 20 20 20 20 2E 44 42 59 54 | RTS. .DBYT| 00002AD0: 45 20 24 45 41 45 41 2C 24 45 41 45 41 0D 20 20 |E $EAEA,$EAEA. | 00002AE0: 20 20 20 20 2E 44 42 59 54 45 20 24 45 41 45 41 | .DBYTE $EAEA| 00002AF0: 2C 24 45 41 45 41 0D 3B 0D 20 20 20 20 20 20 2A |,$EAEA.;. *| 00002B00: 3D 33 31 33 36 38 0D 3B 0D 3B 20 56 55 4C 20 48 |=31368.;.; VUL H| 00002B10: 45 54 20 4B 4C 45 55 52 47 45 48 45 55 47 45 4E |ET KLEURGEHEUGEN| 00002B20: 2E 0D 3B 0D 4B 4C 45 55 52 20 4C 44 41 20 20 4B |..;.KLEUR LDA K| 00002B30: 47 4B 4C 45 20 20 3B 4B 4C 45 55 52 4E 55 4D 4D |GKLE ;KLEURNUMM| 00002B40: 45 52 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 |ER.. STA 2| 00002B50: 35 31 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 |51. LDA #02| 00002B60: 35 20 20 20 20 3B 32 35 20 42 4C 4F 4B 4B 45 4E |5 ;25 BLOKKEN| 00002B70: 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 33 20 |. STA 033 | 00002B80: 20 20 20 3B 40 20 34 30 20 42 59 54 45 53 2E 0D | ;@ 40 BYTES..| 00002B90: 20 20 20 20 20 20 4C 44 41 20 23 30 34 30 0D 20 | LDA #040. | 00002BA0: 20 20 20 20 20 53 54 41 20 20 30 33 34 0D 20 20 | STA 034. | 00002BB0: 20 20 20 20 4C 44 58 20 23 30 30 36 20 20 20 20 | LDX #006 | 00002BC0: 3B 53 45 54 20 36 2E 0D 20 20 20 20 20 20 4A 53 |;SET 6.. JS| 00002BD0: 52 20 20 4D 45 42 4C 4F 20 20 3B 42 4C 4F 4B 4B |R MEBLO ;BLOKK| 00002BE0: 45 4E 5A 45 54 2E 0D 20 20 20 20 20 20 52 54 53 |ENZET.. RTS| 00002BF0: 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 45 |. .DBYTE $E| 00002C00: 41 45 41 2C 24 45 41 45 41 0D 3B 0D 20 20 20 20 |AEA,$EAEA.;. | 00002C10: 20 20 2A 3D 33 31 33 38 38 0D 3B 0D 3B 20 56 55 | *=31388.;.; VU| 00002C20: 4C 4C 45 4E 20 56 4F 4F 52 20 53 43 48 45 52 4D |LLEN VOOR SCHERM| 00002C30: 52 45 47 45 4C 53 2E 0D 3B 0D 4D 45 42 4C 4F 20 |REGELS..;.MEBLO | 00002C40: 4C 44 41 20 20 53 41 44 52 4C 2C 58 20 3B 42 45 |LDA SADRL,X ;BE| 00002C50: 47 49 4E 41 44 52 45 53 0D 20 20 20 20 20 20 53 |GINADRES. S| 00002C60: 54 41 20 20 32 35 33 20 20 20 20 20 3B 56 41 4E |TA 253 ;VAN| 00002C70: 20 52 45 47 45 4C 53 2E 0D 20 20 20 20 20 20 4C | REGELS.. L| 00002C80: 44 41 20 20 53 41 44 52 48 2C 58 0D 20 20 20 20 |DA SADRH,X. | 00002C90: 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 | STA 254. | 00002CA0: 20 4C 44 41 20 23 30 34 30 20 20 20 20 20 3B 41 | LDA #040 ;A| 00002CB0: 46 53 54 41 4E 44 0D 20 20 20 20 20 20 53 54 41 |FSTAND. STA| 00002CC0: 20 20 31 30 37 20 20 20 20 20 3B 34 30 20 42 59 | 107 ;40 BY| 00002CD0: 54 45 53 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |TES. LDA #0| 00002CE0: 30 30 20 20 20 20 20 3B 54 55 53 53 45 4E 20 44 |00 ;TUSSEN D| 00002CF0: 45 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 38 |E. STA 108| 00002D00: 20 20 20 20 20 3B 42 4C 4F 4B 4B 45 4E 2E 0D 20 | ;BLOKKEN.. | 00002D10: 20 20 20 20 20 4A 53 52 20 20 42 4C 56 55 4C 20 | JSR BLVUL | 00002D20: 20 20 3B 56 55 4C 4C 45 4E 2E 0D 20 20 20 20 20 | ;VULLEN.. | 00002D30: 20 52 54 53 0D 20 20 20 20 20 20 2E 44 42 59 54 | RTS. .DBYT| 00002D40: 45 20 24 45 41 45 41 2C 24 45 41 45 41 0D 3B 0D |E $EAEA,$EAEA.;.| 00002D50: 20 20 20 20 20 20 2A 3D 33 31 34 31 32 0D 3B 0D | *=31412.;.| 00002D60: 3B 20 54 59 50 45 56 45 43 54 4F 52 20 4E 41 41 |; TYPEVECTOR NAA| 00002D70: 52 20 53 43 48 45 52 4D 2E 0D 3B 0D 54 59 56 45 |R SCHERM..;.TYVE| 00002D80: 53 20 4C 44 58 20 23 30 30 33 20 20 20 20 20 3B |S LDX #003 ;| 00002D90: 41 44 52 45 53 53 45 4E 20 49 4E 0D 54 59 56 45 |ADRESSEN IN.TYVE| 00002DA0: 31 20 4C 44 41 20 20 30 30 36 39 36 2C 58 20 3B |1 LDA 00696,X ;| 00002DB0: 32 35 31 2E 2E 2E 32 35 34 2E 0D 20 20 20 20 20 |251...254.. | 00002DC0: 20 53 54 41 20 20 32 35 31 2C 58 0D 20 20 20 20 | STA 251,X. | 00002DD0: 20 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C 20 | DEX. BPL | 00002DE0: 20 54 59 56 45 31 0D 20 20 20 20 20 20 4C 44 58 | TYVE1. LDX| 00002DF0: 20 23 30 31 32 0D 20 20 20 20 20 20 4C 44 59 20 | #012. LDY | 00002E00: 23 30 33 36 0D 54 59 56 45 32 20 4C 44 41 20 20 |#036.TYVE2 LDA | 00002E10: 54 59 56 45 43 2B 30 31 2C 58 0D 20 20 20 20 20 |TYVEC+01,X. | 00002E20: 20 53 54 41 20 28 32 35 31 29 2C 59 0D 20 20 20 | STA (251),Y. | 00002E30: 20 20 20 4C 44 41 20 20 54 59 56 45 43 2B 31 34 | LDA TYVEC+14| 00002E40: 2C 58 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |,X. STA (25| 00002E50: 33 29 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 |3),Y. DEY. | 00002E60: 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 44 | DEY. D| 00002E70: 45 59 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 |EY. DEX. | 00002E80: 20 20 20 42 50 4C 20 20 54 59 56 45 32 0D 20 20 | BPL TYVE2. | 00002E90: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 2E 44 | RTS. .D| 00002EA0: 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 45 41 |BYTE $EAEA,$EAEA| 00002EB0: 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 31 34 34 34 |.;. *=31444| 00002EC0: 0D 3B 0D 3B 20 42 59 54 45 42 49 54 53 20 42 49 |.;.; BYTEBITS BI| 00002ED0: 4A 2F 41 46 20 4D 45 54 20 55 49 54 57 45 4E 44 |J/AF MET UITWEND| 00002EE0: 49 47 0D 3B 20 53 55 42 50 52 4F 47 52 41 4D 4D |IG.; SUBPROGRAMM| 00002EF0: 41 20 56 41 4E 41 46 20 30 30 37 35 32 2C 0D 3B |A VANAF 00752,.;| 00002F00: 20 56 4F 4F 52 20 48 45 54 20 53 50 45 45 4C 56 | VOOR HET SPEELV| 00002F10: 45 4C 44 2E 0D 3B 20 54 45 20 56 4F 52 45 4E 3A |ELD..; TE VOREN:| 00002F20: 0D 3B 20 28 30 30 37 33 31 29 3D 41 41 4E 54 41 |.; (00731)=AANTA| 00002F30: 4C 20 52 45 47 45 4C 53 2E 0D 3B 20 28 30 30 37 |L REGELS..; (007| 00002F40: 33 30 29 3D 41 41 4E 54 41 4C 20 42 59 54 45 53 |30)=AANTAL BYTES| 00002F50: 20 50 45 52 20 52 45 47 45 4C 2E 0D 3B 20 53 42 | PER REGEL..; SB| 00002F60: 44 52 4C 2F 48 3D 56 55 4C 41 44 52 45 53 20 42 |DRL/H=VULADRES B| 00002F70: 45 47 49 4E 20 49 4E 20 50 52 4F 47 2E 0D 3B 0D |EGIN IN PROG..;.| 00002F80: 3B 20 28 32 35 31 29 2C 28 32 35 32 29 20 5A 49 |; (251),(252) ZI| 00002F90: 4A 4E 20 45 56 45 4E 54 55 45 45 4C 0D 3B 20 20 |JN EVENTUEEL.; | 00002FA0: 20 20 20 20 20 20 20 20 20 20 20 57 45 52 4B 43 | WERKC| 00002FB0: 45 4C 4C 45 4E 2E 0D 3B 0D 42 4C 42 49 54 20 4C |ELLEN..;.BLBIT L| 00002FC0: 44 41 20 20 53 42 44 52 4C 20 20 20 3B 42 45 47 |DA SBDRL ;BEG| 00002FD0: 49 4E 41 44 52 45 53 0D 20 20 20 20 20 20 53 54 |INADRES. ST| 00002FE0: 41 20 20 32 35 33 20 20 20 20 20 3B 56 2F 49 4E |A 253 ;V/IN| 00002FF0: 44 45 58 56 45 4C 44 2E 0D 20 20 20 20 20 20 4C |DEXVELD.. L| 00003000: 44 41 20 20 53 42 44 52 48 0D 20 20 20 20 20 20 |DA SBDRH. | 00003010: 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 20 4C |STA 254. L| 00003020: 44 58 20 20 30 30 37 33 31 20 20 20 3B 41 41 4E |DX 00731 ;AAN| 00003030: 54 41 4C 20 52 45 47 45 4C 53 2E 0D 20 20 20 20 |TAL REGELS.. | 00003040: 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 | CLC. BCC | 00003050: 20 42 4C 42 49 34 0D 42 4C 42 49 31 20 4C 44 59 | BLBI4.BLBI1 LDY| 00003060: 20 20 30 30 37 33 30 20 20 20 3B 41 41 4E 54 2E | 00730 ;AANT.| 00003070: 42 59 54 45 53 2F 52 47 2E 0D 20 20 20 20 20 20 |BYTES/RG.. | 00003080: 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 42 |CLC. BCC B| 00003090: 4C 42 49 33 0D 42 4C 42 49 32 20 4C 44 41 20 28 |LBI3.BLBI2 LDA (| 000030A0: 32 35 33 29 2C 59 20 20 3B 42 59 54 45 20 42 45 |253),Y ;BYTE BE| 000030B0: 57 45 52 4B 45 4E 2E 0D 20 20 20 20 20 20 4A 53 |WERKEN.. JS| 000030C0: 52 20 20 30 30 37 35 32 0D 20 20 20 20 20 20 53 |R 00752. S| 000030D0: 54 41 20 28 32 35 33 29 2C 59 0D 42 4C 42 49 33 |TA (253),Y.BLBI3| 000030E0: 20 44 45 59 20 20 20 20 20 20 20 20 20 20 3B 42 | DEY ;B| 000030F0: 59 54 45 53 20 49 4E 20 52 45 47 45 4C 0D 20 20 |YTES IN REGEL. | 00003100: 20 20 20 20 42 50 4C 20 20 42 4C 42 49 32 20 20 | BPL BLBI2 | 00003110: 20 3B 41 46 54 45 4C 4C 45 4E 2E 0D 20 20 20 20 | ;AFTELLEN.. | 00003120: 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 3B | CLC ;| 00003130: 56 4F 4C 47 45 4E 44 45 0D 20 20 20 20 20 20 4C |VOLGENDE. L| 00003140: 44 41 20 20 32 35 33 20 20 20 20 20 3B 52 45 47 |DA 253 ;REG| 00003150: 45 4C 3A 20 54 45 4C 20 34 30 0D 20 20 20 20 20 |EL: TEL 40. | 00003160: 20 41 44 43 20 23 30 34 30 20 20 20 20 20 3B 42 | ADC #040 ;B| 00003170: 59 54 45 53 20 50 45 52 20 52 45 2D 0D 20 20 20 |YTES PER RE-. | 00003180: 20 20 20 53 54 41 20 20 32 35 33 20 20 20 20 20 | STA 253 | 00003190: 3B 47 45 4C 20 42 49 4A 20 48 45 54 0D 20 20 20 |;GEL BIJ HET. | 000031A0: 20 20 20 4C 44 41 20 20 32 35 34 20 20 20 20 20 | LDA 254 | 000031B0: 3B 56 45 4C 44 41 44 52 45 53 2E 0D 20 20 20 20 |;VELDADRES.. | 000031C0: 20 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 | ADC #000. | 000031D0: 20 53 54 41 20 20 32 35 34 0D 42 4C 42 49 34 20 | STA 254.BLBI4 | 000031E0: 44 45 58 20 20 20 20 20 20 20 20 20 20 3B 52 45 |DEX ;RE| 000031F0: 47 45 4C 53 20 41 46 54 45 4C 2E 0D 20 20 20 20 |GELS AFTEL.. | 00003200: 20 20 42 50 4C 20 20 42 4C 42 49 31 0D 20 20 20 | BPL BLBI1. | 00003210: 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2E | RTS.;. .| 00003220: 44 42 59 54 45 20 24 46 46 46 46 2C 24 46 46 46 |DBYTE $FFFF,$FFF| 00003230: 46 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 |F. .DBYTE $| 00003240: 46 46 46 46 2C 24 46 46 46 46 0D 3B 0D 20 20 20 |FFFF,$FFFF.;. | 00003250: 20 20 20 2A 3D 33 31 36 30 30 0D 3B 0D 4B 47 4B | *=31600.;.KGK| 00003260: 4C 45 20 2E 42 59 54 45 20 30 31 30 20 20 20 3B |LE .BYTE 010 ;| 00003270: 4B 4C 45 55 52 47 45 48 45 55 47 45 4E 2E 0D 56 |KLEURGEHEUGEN..V| 00003280: 47 4B 4C 45 20 2E 42 59 54 45 20 30 31 35 20 20 |GKLE .BYTE 015 | 00003290: 20 3B 4B 4C 45 55 52 20 56 4F 4F 52 47 52 44 2E | ;KLEUR VOORGRD.| 000032A0: 0D 41 47 4B 4C 45 20 2E 42 59 54 45 20 30 31 35 |.AGKLE .BYTE 015| 000032B0: 20 20 20 3B 4B 4C 45 55 52 20 41 43 48 54 2E 47 | ;KLEUR ACHT.G| 000032C0: 44 2E 0D 54 45 4B 4B 4C 20 2E 42 59 54 45 20 30 |D..TEKKL .BYTE 0| 000032D0: 30 34 20 20 20 3B 4B 4C 45 55 52 20 54 45 4B 45 |04 ;KLEUR TEKE| 000032E0: 4E 53 2E 0D 54 43 4F 4B 4C 20 2E 42 59 54 45 20 |NS..TCOKL .BYTE | 000032F0: 30 30 32 20 20 20 3B 4B 4C 45 55 52 20 42 45 47 |002 ;KLEUR BEG| 00003300: 49 4E 2E 0D 54 43 41 4B 4C 20 2E 42 59 54 45 20 |IN..TCAKL .BYTE | 00003310: 30 30 31 20 20 20 3B 4B 4C 45 55 52 20 43 4F 44 |001 ;KLEUR COD| 00003320: 45 2E 0D 54 43 42 4B 4C 20 2E 42 59 54 45 20 30 |E..TCBKL .BYTE 0| 00003330: 30 37 20 20 20 3B 4B 4C 45 55 52 20 43 4F 44 45 |07 ;KLEUR CODE| 00003340: 2F 43 4F 4D 2E 0D 3B 0D 53 41 44 52 4C 20 2E 42 |/COM..;.SADRL .B| 00003350: 59 54 45 20 30 30 30 20 20 20 3B 53 43 48 45 52 |YTE 000 ;SCHER| 00003360: 4D 56 45 4C 44 0D 53 41 44 52 48 20 2E 42 59 54 |MVELD.SADRH .BYT| 00003370: 45 20 30 30 30 20 20 20 3B 42 45 47 49 4E 41 44 |E 000 ;BEGINAD| 00003380: 52 45 53 2E 0D 53 41 45 52 4C 20 2E 42 59 54 45 |RES..SAERL .BYTE| 00003390: 20 30 30 30 0D 53 41 45 52 48 20 2E 42 59 54 45 | 000.SAERH .BYTE| 000033A0: 20 30 30 30 0D 3B 0D 53 42 44 52 4C 20 2E 42 59 | 000.;.SBDRL .BY| 000033B0: 54 45 20 30 30 30 20 20 20 3B 53 50 45 45 4C 56 |TE 000 ;SPEELV| 000033C0: 45 4C 44 0D 53 42 44 52 48 20 2E 42 59 54 45 20 |ELD.SBDRH .BYTE | 000033D0: 30 30 30 20 20 20 3B 42 45 47 49 4E 41 44 52 45 |000 ;BEGINADRE| 000033E0: 53 2E 0D 3B 0D 53 4B 44 52 4C 20 2E 42 59 54 45 |S..;.SKDRL .BYTE| 000033F0: 20 30 30 30 20 20 20 3B 4B 4C 45 55 52 56 45 4C | 000 ;KLEURVEL| 00003400: 44 0D 53 4B 44 52 48 20 2E 42 59 54 45 20 32 31 |D.SKDRH .BYTE 21| 00003410: 36 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 2E |6 ;BEGINADRES.| 00003420: 0D 3B 0D 53 49 44 52 4C 20 2E 42 59 54 45 20 30 |.;.SIDRL .BYTE 0| 00003430: 30 30 20 20 20 3B 49 4E 44 45 58 56 45 4C 44 0D |00 ;INDEXVELD.| 00003440: 53 49 44 52 48 20 2E 42 59 54 45 20 31 32 34 20 |SIDRH .BYTE 124 | 00003450: 20 20 3B 42 45 47 49 4E 41 44 52 45 53 2E 0D 3B | ;BEGINADRES..;| 00003460: 0D 53 4C 44 52 4C 20 2E 42 59 54 45 20 30 30 30 |.SLDRL .BYTE 000| 00003470: 20 20 20 3B 4B 4C 45 55 52 53 50 45 45 4C 56 45 | ;KLEURSPEELVE| 00003480: 4C 44 0D 53 4C 44 52 48 20 2E 42 59 54 45 20 30 |LD.SLDRH .BYTE 0| 00003490: 30 30 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 |00 ;BEGINADRES| 000034A0: 2E 0D 3B 0D 42 4B 44 52 4C 20 2E 42 59 54 45 20 |..;.BKDRL .BYTE | 000034B0: 30 30 30 20 20 20 3B 56 49 43 2D 43 48 49 50 20 |000 ;VIC-CHIP | 000034C0: 42 41 4E 4B 0D 42 4B 44 52 48 20 2E 42 59 54 45 |BANK.BKDRH .BYTE| 000034D0: 20 30 30 30 20 20 20 3B 42 45 47 49 4E 41 44 52 | 000 ;BEGINADR| 000034E0: 45 53 2E 0D 3B 0D 4B 52 4F 4D 4C 20 2E 42 59 54 |ES..;.KROML .BYT| 000034F0: 45 20 30 30 30 20 20 20 3B 4B 41 52 41 4B 54 45 |E 000 ;KARAKTE| 00003500: 52 2D 52 4F 4D 0D 4B 52 4F 4D 48 20 2E 42 59 54 |R-ROM.KROMH .BYT| 00003510: 45 20 32 30 38 20 20 20 3B 42 45 47 49 4E 41 44 |E 208 ;BEGINAD| 00003520: 52 45 53 2E 0D 3B 0D 42 4B 41 52 4C 20 2E 42 59 |RES..;.BKARL .BY| 00003530: 54 45 20 30 30 30 20 20 20 3B 4B 41 52 41 4B 54 |TE 000 ;KARAKT| 00003540: 45 52 2D 52 41 4D 0D 42 4B 41 52 48 20 2E 42 59 |ER-RAM.BKARH .BY| 00003550: 54 45 20 30 30 30 20 20 20 3B 42 45 47 49 4E 41 |TE 000 ;BEGINA| 00003560: 44 52 45 53 2E 0D 3B 0D 42 4B 43 52 4C 20 2E 42 |DRES..;.BKCRL .B| 00003570: 59 54 45 20 30 30 30 20 20 20 3B 4B 41 52 41 4B |YTE 000 ;KARAK| 00003580: 54 45 52 2D 52 41 4D 0D 42 4B 43 52 48 20 2E 42 |TER-RAM.BKCRH .B| 00003590: 59 54 45 20 30 30 30 20 20 20 3B 42 45 47 49 4E |YTE 000 ;BEGIN| 000035A0: 41 44 52 45 53 2E 0D 3B 0D 4B 41 52 4B 4C 20 2E |ADRES..;.KARKL .| 000035B0: 42 59 54 45 20 31 37 36 20 20 20 3B 4B 41 52 41 |BYTE 176 ;KARA| 000035C0: 4B 54 45 52 44 41 54 41 0D 4B 41 52 4B 48 20 2E |KTERDATA.KARKH .| 000035D0: 42 59 54 45 20 31 32 33 20 20 20 3B 42 45 47 49 |BYTE 123 ;BEGI| 000035E0: 4E 41 44 52 45 53 2E 0D 3B 0D 3B 0D 20 20 20 20 |NADRES..;.;. | 000035F0: 20 20 2A 3D 33 31 36 33 32 0D 3B 0D 54 59 56 45 | *=31632.;.TYVE| 00003600: 43 20 2E 44 42 59 54 45 20 24 32 30 33 31 2C 24 |C .DBYTE $2031,$| 00003610: 33 32 33 33 0D 20 20 20 20 20 20 2E 44 42 59 54 |3233. .DBYT| 00003620: 45 20 24 33 34 33 35 2C 24 33 36 33 37 0D 20 20 |E $3435,$3637. | 00003630: 20 20 20 20 2E 44 42 59 54 45 20 24 33 38 33 39 | .DBYTE $3839| 00003640: 2C 24 33 30 35 31 0D 20 20 20 20 20 20 2E 44 42 |,$3051. .DB| 00003650: 59 54 45 20 24 35 37 34 35 2C 24 35 32 35 34 0D |YTE $5745,$5254.| 00003660: 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 35 39 | .DBYTE $59| 00003670: 35 35 2C 24 34 39 34 46 0D 20 20 20 20 20 20 2E |55,$494F. .| 00003680: 44 42 59 54 45 20 24 35 30 34 31 2C 24 35 33 34 |DBYTE $5041,$534| 00003690: 34 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 |4. .DBYTE $| 000036A0: 34 36 34 37 2C 24 34 38 30 30 0D 3B 0D 3B 0D 20 |4647,$4800.;.;. | 000036B0: 20 20 20 20 20 2A 3D 33 31 36 36 34 0D 3B 0D 4B | *=31664.;.K| 000036C0: 41 52 41 4B 20 2E 44 42 59 54 45 20 24 30 30 30 |ARAK .DBYTE $000| 000036D0: 32 2C 24 30 35 30 35 0D 20 20 20 20 20 20 2E 44 |2,$0505. .D| 000036E0: 42 59 54 45 20 24 30 35 30 35 2C 24 30 32 30 30 |BYTE $0505,$0200| 000036F0: 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 30 |. .DBYTE $0| 00003700: 30 30 32 2C 24 30 36 30 32 0D 20 20 20 20 20 20 |002,$0602. | 00003710: 2E 44 42 59 54 45 20 24 30 32 30 32 2C 24 30 32 |.DBYTE $0202,$02| 00003720: 30 30 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 |00. .DBYTE | 00003730: 24 30 30 30 32 2C 24 30 35 30 31 0D 20 20 20 20 |$0002,$0501. | 00003740: 20 20 2E 44 42 59 54 45 20 24 30 31 30 32 2C 24 | .DBYTE $0102,$| 00003750: 30 37 30 30 0D 20 20 20 20 20 20 2E 44 42 59 54 |0700. .DBYT| 00003760: 45 20 24 30 30 30 36 2C 24 30 31 30 32 0D 20 20 |E $0006,$0102. | 00003770: 20 20 20 20 2E 44 42 59 54 45 20 24 30 31 30 31 | .DBYTE $0101| 00003780: 2C 24 30 36 30 30 0D 20 20 20 20 20 20 2E 44 42 |,$0600. .DB| 00003790: 59 54 45 20 24 30 30 30 32 2C 24 30 32 30 34 0D |YTE $0002,$0204.| 000037A0: 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 30 35 | .DBYTE $05| 000037B0: 30 37 2C 24 30 31 30 30 0D 20 20 20 20 20 20 2E |07,$0100. .| 000037C0: 44 42 59 54 45 20 24 30 30 30 37 2C 24 30 34 30 |DBYTE $0007,$040| 000037D0: 36 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 |6. .DBYTE $| 000037E0: 30 31 30 31 2C 24 30 36 30 30 0D 20 20 20 20 20 |0101,$0600. | 000037F0: 20 2E 44 42 59 54 45 20 24 30 30 30 33 2C 24 30 | .DBYTE $0003,$0| 00003800: 34 30 36 0D 20 20 20 20 20 20 2E 44 42 59 54 45 |406. .DBYTE| 00003810: 20 24 30 35 30 35 2C 24 30 32 30 30 0D 20 20 20 | $0505,$0200. | 00003820: 20 20 20 2E 44 42 59 54 45 20 24 30 30 30 37 2C | .DBYTE $0007,| 00003830: 24 30 31 30 32 0D 20 20 20 20 20 20 2E 44 42 59 |$0102. .DBY| 00003840: 54 45 20 24 30 32 30 34 2C 24 30 34 30 30 0D 20 |TE $0204,$0400. | 00003850: 20 20 20 20 20 2E 44 42 59 54 45 20 24 30 30 30 | .DBYTE $000| 00003860: 32 2C 24 30 35 30 32 0D 20 20 20 20 20 20 2E 44 |2,$0502. .D| 00003870: 42 59 54 45 20 24 30 35 30 35 2C 24 30 32 30 30 |BYTE $0505,$0200| 00003880: 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 30 |. .DBYTE $0| 00003890: 30 30 32 2C 24 30 35 30 35 0D 20 20 20 20 20 20 |002,$0505. | 000038A0: 2E 44 42 59 54 45 20 24 30 33 30 31 2C 24 30 36 |.DBYTE $0301,$06| 000038B0: 30 30 0D 3B 0D 20 20 20 20 20 20 2E 45 4E 44 0D |00.;. .END.|
;.; PROGRAMMA : HULP SET DRIE..; BRON
CODE : PUZDRI.ASM ..; OBJECTCODE
: PUZDRI.OBJ ..; DISK : ASSEM
BLERBRON..; TAAL : ASSEMBLER C64
..; DATUM : 20 SEPT.1991..; PROGR
AMMEUR : J.H.VAN RIJN..;.; OP DEZE SET
STAAN SUBPROGRAMMA'S.; VOOR CODE- EN AND
ERE PUZZELS..;.;========================
=========.;.; DECIM HEXA SYMBL FUNCTIE.;
.; 30804 7854 MULOP VERMENIGV.& OP-.;
TELLEN, 2 BYTS..; 30868 7
894 BNKNX KIES BANK #(X);.;
BEREKEN ADRES..; 30908 78BC SCMNY K
IES SCHERMBLOK.; #(Y);
ADRES..; 30976 7900 CYFVL CIJFERPAREN IN
.; KARAKTER-RAM..; 3107
2 7960 KARBL KIES KARAK.BLOK.;
#(Y); ADRES..; 31104 7980 KARTP
KARAKTERS VAN.; ROM NAA
R RAM..; 31176 79C8 ZOVET ZOEK TEKEN UIT
.; TYPEVECTOR..; 31192
79D8 INDXZ ZET INDEX VOOR.;
GEPROG.RAM-KAR..; 31218 79F2 MIVUL
VUL MET EEN.; BYTE PER
BLOK..; 31232 7A00 SCHRM VUL GEKOZEN.;
SCHERM M/BYTES..; 31314
7A52 MITRA TRANSPORT VAN.;
EEN BYTE/BLOK..; 31328 7A60 KARRV RE
VERTEER KAR.-.; BLOK 2E
HELFT..; 31368 7A88 KLEUR KLEUR KGKLE.;
IN KLEURVELD..; 31412
7AB4 TYVES TYPEVECTOR.;
NAAR SCHERM..; 31444 7AD4 BLBIT BITS WI
JZIGEN.; M/EXT.SUBROUT.
.;.;.; INTERN..; =======.;.;
30720 7800 BLTRA TRANSPORT VAN.;
BYTEBLOKKEN..; 30768 7830 BLV
UL VULLEN VAN.; BYTEBLO
KKEN..; 30848 7880 DECXY 10(X)+(Y)=>(2).
; TWEE CIJFERS..; 30936
78D8 HLFBY 8 PAAR NIBBLES.;
TOT 8 BYTES..; 30956 78EC XADEC (2
)=>10(X)+(A).; TWEE CIJ
FERS..; 31264 7A20 BLTRV TRANSP.V.REVER-
.; TEERDE BYTES..; 3138
8 7A9C MEBLO VULLEN VOOR.;
SCHERMREGELS..;.;.;. *=30720.;.
; BLOKTRANSPORT..; TE VOREN INVULLEN:.;
(033)=AANTAL BLOKKEN..; (034)=AANTAL BYT
ES PER BLOK..; (252,251) HAALADRES BEGI
N..; (254,253) BRENGADRES BEGIN..; (101,
100) OPHOGEN HAALADRES..; (108,107) OPHO
GEN BRENGADRES..;.BLTRA LDX 033. C
LC. BCC BLTR4.BLTR1 LDY 034.
CLC. BCC BLTR3.BLTR2 LDA (251),Y.
STA (253),Y.BLTR3 DEY. BPL B
LTR2. CLC. LDA 251. ADC
100. STA 251. LDA 252.
ADC 101. STA 252. CLC.
LDA 253. ADC 107. STA 253.
LDA 254. ADC 108. STA
254.BLTR4 DEX. BPL BLTR1. RT
S. .DBYTE $EAEA,$EAEA.;. *=307
68.;.; BLOKVULLEN..; TE VOREN INVULLEN:.
; (033)=AANTAL BLOKKEN..; (034)=AANTAL B
YTES PER BLOK..; (251)=VULBYTE..; (254,2
53) VULADRES BEGIN..; (108,107) OPHOGEN
VULADRES..;.BLVUL LDX 033. CLC.
BCC BLVU4.BLVU1 LDY 034. CLC.
BCC BLVU3.BLVU2 LDA 251. STA
(253),Y.BLVU3 DEY. BPL BLVU2.
CLC. LDA 253. ADC 107.
STA 253. LDA 254. ADC 108
. STA 254.BLVU4 DEX. BPL BLV
U1. RTS. .DBYTE $EAEA,$EAEA.;.
*=30804.;.; VERMENIGVULDIGEN MET O
PTELLEN..;(252,251)+(107)*(167)=>(252,25
1)..;.MULOP TXA ;RED (X),(Y)..
PHA. TYA. PHA. LDX #0
00 ;GEDEELTELIJK. LDY 167 ;P
RODUCT.. CLC.MULO1 LDA 107 ;BIT
SENS VOOR. BEQ MULO3 ;OPTELLEN..
ROR 107 ;SCHUIF OP.. BCC
MULO2 ;BIT = ?. CLC. TYA
;BIT = 1: TEL. ADC 251 ;GE
DEELTELIJK. STA 251 ;PRODUCT BI
J.. TXA. ADC 252. STA 2
52. CLC.MULO2 TYA ;DAARNA G
EDEEL-. ROL A ;TELIJK PRODUCT
. TAY ;SCHUIVEN.. TXA.
ROL A. TAX. CLC. B
CC MULO1.MULO3 PLA ;HERSTEL (X)
. TAY ;EN (Y).. PLA.
TAX. RTS. .DBYTE $EAEA,$EA
EA.;. *=30848.;.; ZET GETAL 10*(X)+
(Y) IN 002..;.DECXY TXA. CLC
;TIENTALLEN.. ROL A ;VERDUB
BEL.. STA 002 ;TIJDELIJK..
ROL A ;MAAL ACHT.. ROL A.
ADC 002 ;10*(X) IN A.. STY
002 ;RED EENHEDEN.. ADC 002
;TEL BIJ.. STA 002 ;SOM KLAAR.
. RTS. .DBYTE $EAEA,$EAEA.
.DBYTE $EAEA,$EAEA.;. *=30868.;.;
KIES BANK NUMMER #(X)..;.BNKNX LDA 565
78 ;OUTPUTS CIA#2.. ORA #003.
STA 56578. TXA ;BANKNUMME
R.. EOR #003 ;COMPLEMENT..
STA 002. LDA 56576 ;BANKCEL VIC.
. AND #252 ;BITS 1,0.. ORA
002 ; 3 - (X).. STA 56576 ;BE
REKEN BANK. CLC ;BEGINADRES
.. TXA. ROR A. ROR A.
ROR A. STA BKDRH. LDA #0
00. STA BKDRL. RTS. .DBY
TE $EAEA,$EAEA.;. *=30908.;.; KIES
IN BANK SCHERM #(Y)..;.SCMNY CLC
;SCHERMNUMMER.. TYA ;MAAL
VIER.. ROL A. ROL A. PH
A ;VOORLOPIG.. ROL A
;MAAL VIER.. ROL A. STA 002
;VOORLOPIG.. LDA 53272 ;SCHERM
CEL VIC.. AND #015 ;BITS 7,6,5,4
.. ORA 002 ;(Y) LINKS BIJ..
STA 53272 ;ZET TERUG.. PLA
;TEL BANKADRES. ORA BKDRH ;BI
J SCHERMADR.. STA 00648. RTS.
.DBYTE $EAEA,$EAEA.;. *=30936
.;.; 8 PAREN HALFBYTES SAMEN NAAR.;
8 COMPLETE BYTES..; BEGINADRES L
INKS (252,251)..; BEGINADRES RECHTS
(254,253)..; BEGINADRES BYTES (168
,167)..;.HLFBY LDY #007 ;AANTAL 8..HL
FB1 LDA (251),Y ;LINKERHELFT.. CLC
;NAAR LINKS.. ROL A.
ROL A. ROL A. ROL A. O
RA (253),Y ;MET RECHTER-. STA (167)
,Y ;HELFT IN BRENG-. DEY ;V
ELD; AFTELLEN.. BPL HLFB1 ;KLAAR?
. RTS. .DBYTE $EAEA,$EAEA.;.
*=30956.;.; (2)->(X) TIENTALLEN,
.; (A) EENHEDEN..;.XADEC LDX #0
00 ;POETS TIENTALL.. LDA 002
;INPUT=>REST..XADE1 CMP #010 ;< = >
10 ?. BCC XADE2 ;< : TERUG..
INX ;>=:TURF TIENT.. SBC #
010 ;TREK 10 AF.. BNE XADE1 ;R
EST:VERGELIJK..XADE2 RTS ;REST N
UL:TERUG.. .DBYTE $EAEA,$EAEA.
.DBYTE $EAEA,$EAEA.;. *=30976.;.;
CIJFERS IN KARAKTER-RAM..; ELKE
PLAATS TWEE CIJFERS..; 00......29..;
.CYFVL LDX #002 ;TIENTALLEN..CYFV1 LD
Y #009 ;EENHEDEN..CYFV2 STY 034 ;
REDDEN.. JSR DECXY ;CONVERT..
CLC ;MAAL ACHT.. LDA #000
. ROL 002. ROL A. ROL
002. ROL A. ROL 002. RO
L A. PHA ;RED MS.VAN 8I..
CLC ;TEL BIJ 8I HET. L
DA 002 ;BEGINADRES VAN. ADC BK
CRL ;DE KARAKTERDATA. STA 167
;ER BIJ OP; ZET. PLA ;IN (1
68,167).. ADC BKCRH. STA 168
. TXA ;TIENTALLEN.. CL
C ;MAAL ACHT.. ROL A.
ROL A. ROL A. ADC KARKL.
STA 251. LDA #000. ADC K
ARKH. STA 252. LDA 034 ;E
ENHEDEN.. CLC ;MAAL ACHT..
ROL A. ROL A. ROL A.
ADC KARKL. STA 253. LDA
#000. ADC KARKH. STA 254.
JSR HLFBY ;AAN ELKAAR.. LDY 0
34 ;EENHD.OPHALEN.. DEY. BP
L CYFV2. DEX. BPL CYFV1.
RTS. .DBYTE $EAEA,$EAEA. .DB
YTE $EAEA,$EAEA. .DBYTE $EAEA,$EAEA
. .DBYTE $EAEA,$EAEA.;. *=3107
2.;.; KIES IN BANK KARAKTERBLOK #(Y)..;.
KARBL STY 002 ;BLOKNUMMER.. LDA
53272 ;ADRES IN BANK.. AND #240.
ORA 002. STA 53272. CL
C. LDA 002 ;NUMMER * 1024.
ROL A ;TELLEN BIJ. ROL A
;BANKADRES EN. ORA BKDRH ;ZETT
EN IN. STA 00681 ;BEGINADRES VAN.
RTS ;KARAKTER-RAM.. .
DBYTE $EAEA,$EAEA. .DBYTE $EAEA,$EA
EA. .DBYTE $EAEA,$EAEA.;. *=31
104.;.; KARAKTERS VAN ROM NAAR RAM..;.KA
RTP LDA #016 ;16 BLOKKEN. STA 0
33 ;VAN 64 BYTES.. LDA #064 ;
HELFT IS AL. STA 034 ;VOLDOENDE
.. STA 100. STA 107. LD
A #000. STA 101. STA 108.
LDA KROML. STA 251. LDA
KROMH. STA 252. LDA #000.
STA 253. LDA 00681. STA 2
54. LDA 56334. AND #254.
STA 56334. LDA 001. AND #25
1. STA 001. JSR BLTRA.
LDA 001. ORA #004. STA 001.
LDA 56334. ORA #001. STA
56334. RTS. .DBYTE $EAEA,$EA
EA.;. *=31176.;.; ZOEK TEKEN (002)
UIT TYPEVECTOR..; INDEX (01...26) IN REG
ISTER X..;.ZOVET LDX #026 ;BEGIN BIJ
26..ZOVE1 LDA TYVEC,X. CMP 002.
BEQ ZOVE2 ;VERGELIJK.. DEX.
BNE ZOVE1.ZOVE2 RTS ;0:
IS FOUT.. .DBYTE $EAEA,$EAEA.;.
*=31192.;.; ZET BEGINADRES VOOR GEPROG
RAMM..; KARAKTERS IN RAM OP BEGIN (X)..;
.INDXZ STX BKCRL ;RED OFFSET.. CL
C ;MAAL ACHT.. LDA #000.
ROL BKCRL. ROL A. ROL BK
CRL. ROL A. ROL BKCRL.
ROL A. CLC. ADC 00681.
STA BKCRH. RTS.;. *=31218.;.;
MICROVUL 1 BYTE/BLOK..; TE VOREN INVULL
EN:.; (033)=AANTAL BLOKKEN..; (251)=VULB
YTE..; (254,253) VULADRES BEGIN..; (107)
OPHOGEN VULADRES..;.MIVUL LDA #001.
STA 034. LDA #000. STA 108
. JSR BLVUL. RTS.;. *=31
232.;.; SCHERMGEHEUGEN VULLEN.;
MET BYTES (251)..; TE VOREN (00648)
MET MS..; VAN BEGINADRES..;.SCHRM LD
A #025 ;25 BLOKKEN. STA 033
;VAN 40 BYTES.. LDA #040. ST
A 034. LDA #000 ;BEGINADRES.
STA 253 ;VAN SCHERM.. LDA
00648. STA 254. LDA #040
;OPHOGEN VAN. STA 107 ;BLOKAD
RES. LDA #000 ;MET 40.. ST
A 108 ;DAARNA. JSR BLVUL ;V
ULLEN.. RTS. .DBYTE $EAEA,$EAE
A.;. *=31264.;.; BLOKTRANSPORT MET
BYTEREVERSIE..; TE VOREN INVULLEN:.; (03
3)=AANTAL BLOKKEN..; (034)=AANTAL BYTES
PER BLOK..; (252,251) HAALADRES BEGIN..
; (254,253) BRENGADRES BEGIN..; (101,100
) OPHOGEN HAALADRES..; (108,107) OPHOGEN
BRENGADRES..;.BLTRV LDX 033. CLC.
BCC BLTV4.BLTV1 LDY 034. CL
C. BCC BLTV3.BLTV2 LDA (251),Y.
EOR #255. STA (253),Y.BLTV3 DEY.
BPL BLTV2. CLC. LDA 25
1. ADC 100. STA 251. LD
A 252. ADC 101. STA 252.
CLC. LDA 253. ADC 107.
STA 253. LDA 254. ADC 10
8. STA 254.BLTV4 DEX. BPL BL
TV1. RTS.;. *=31314.;.; MICROT
RANSPORT 1 BYTE/BLOK..; TE VOREN INVULLE
N:.; (033)=AANTAL BLOKKEN..; (252,251)
HAALADRES BEGIN..; (254,253) BRENGADRES
BEGIN..; (100) OPHOGEN HAALADRES..; (107
) OPHOGEN BRENGADRES..;.MITRA LDA #001.
STA 034. LDA #000. STA
101. STA 108. JSR BLTRA.
RTS.;. *=31328.;.; REVERTEER TWEE
DE HELFT.; VAN KARAKTER-RAM..;.KARRV LDA
#016 ;16 BLOKKEN. STA 033 ;
VAN 64 BYTES.. LDA #064 ;ENE HEL
FT NAAR. STA 034 ;ANDERE HELFT.
. STA 100. STA 107. LDA
#000. STA 101. STA 108.
STA 251. STA 253. LDA 006
81 ;MS.HAALADRES.. STA 252.
CLC. ADC #004 ;MS.BRENGADRES..
STA 254 ;4*256=1024.. JSR
BLTRV ;REVERTEER.. RTS. .DBYT
E $EAEA,$EAEA. .DBYTE $EAEA,$EAEA.;
. *=31368.;.; VUL HET KLEURGEHEUGEN
..;.KLEUR LDA KGKLE ;KLEURNUMMER..
STA 251. LDA #025 ;25 BLOKKEN
. STA 033 ;@ 40 BYTES.. LD
A #040. STA 034. LDX #006
;SET 6.. JSR MEBLO ;BLOKKENZET..
RTS. .DBYTE $EAEA,$EAEA.;.
*=31388.;.; VULLEN VOOR SCHERMREGELS..
;.MEBLO LDA SADRL,X ;BEGINADRES. S
TA 253 ;VAN REGELS.. LDA SADR
H,X. STA 254. LDA #040 ;A
FSTAND. STA 107 ;40 BYTES.
LDA #000 ;TUSSEN DE. STA 108
;BLOKKEN.. JSR BLVUL ;VULLE
N.. RTS. .DBYTE $EAEA,$EAEA.;.
*=31412.;.; TYPEVECTOR NAAR SCHERM
..;.TYVES LDX #003 ;ADRESSEN IN.TYVE
1 LDA 00696,X ;251...254.. STA 25
1,X. DEX. BPL TYVE1. LDX
#012. LDY #036.TYVE2 LDA TYVEC+01
,X. STA (251),Y. LDA TYVEC+14
,X. STA (253),Y. DEY. DEY
. DEY. DEX. BPL TYVE2.
RTS. .DBYTE $EAEA,$EAEA.;.
*=31444.;.; BYTEBITS BIJ/AF MET UITWEND
IG.; SUBPROGRAMMA VANAF 00752,.; VOOR HE
T SPEELVELD..; TE VOREN:.; (00731)=AANTA
L REGELS..; (00730)=AANTAL BYTES PER REG
EL..; SBDRL/H=VULADRES BEGIN IN PROG..;.
; (251),(252) ZIJN EVENTUEEL.;
WERKCELLEN..;.BLBIT LDA SBDRL ;BEG
INADRES. STA 253 ;V/INDEXVELD.
. LDA SBDRH. STA 254. L
DX 00731 ;AANTAL REGELS.. CLC.
BCC BLBI4.BLBI1 LDY 00730 ;AANT.
BYTES/RG.. CLC. BCC BLBI3.BLB
I2 LDA (253),Y ;BYTE BEWERKEN.. JS
R 00752. STA (253),Y.BLBI3 DEY
;BYTES IN REGEL. BPL BLBI2
;AFTELLEN.. CLC ;VOLGENDE
. LDA 253 ;REGEL: TEL 40.
ADC #040 ;BYTES PER RE-. STA
253 ;GEL BIJ HET. LDA 254
;VELDADRES.. ADC #000. STA 25
4.BLBI4 DEX ;REGELS AFTEL..
BPL BLBI1. RTS.;. .DBYTE $F
FFF,$FFFF. .DBYTE $FFFF,$FFFF.;.
*=31600.;.KGKLE .BYTE 010 ;KLEURGEH
EUGEN..VGKLE .BYTE 015 ;KLEUR VOORGRD.
.AGKLE .BYTE 015 ;KLEUR ACHT.GD..TEKKL
.BYTE 004 ;KLEUR TEKENS..TCOKL .BYTE
002 ;KLEUR BEGIN..TCAKL .BYTE 001 ;K
LEUR CODE..TCBKL .BYTE 007 ;KLEUR CODE
/COM..;.SADRL .BYTE 000 ;SCHERMVELD.SA
DRH .BYTE 000 ;BEGINADRES..SAERL .BYTE
000.SAERH .BYTE 000.;.SBDRL .BYTE 000
;SPEELVELD.SBDRH .BYTE 000 ;BEGINADRE
S..;.SKDRL .BYTE 000 ;KLEURVELD.SKDRH
.BYTE 216 ;BEGINADRES..;.SIDRL .BYTE 0
00 ;INDEXVELD.SIDRH .BYTE 124 ;BEGIN
ADRES..;.SLDRL .BYTE 000 ;KLEURSPEELVE
LD.SLDRH .BYTE 000 ;BEGINADRES..;.BKDR
L .BYTE 000 ;VIC-CHIP BANK.BKDRH .BYTE
000 ;BEGINADRES..;.KROML .BYTE 000
;KARAKTER-ROM.KROMH .BYTE 208 ;BEGINAD
RES..;.BKARL .BYTE 000 ;KARAKTER-RAM.B
KARH .BYTE 000 ;BEGINADRES..;.BKCRL .B
YTE 000 ;KARAKTER-RAM.BKCRH .BYTE 000
;BEGINADRES..;.KARKL .BYTE 176 ;KARA
KTERDATA.KARKH .BYTE 123 ;BEGINADRES..
;.;. *=31632.;.TYVEC .DBYTE $2031,$
3233. .DBYTE $3435,$3637. .DBY
TE $3839,$3051. .DBYTE $5745,$5254.
.DBYTE $5955,$494F. .DBYTE $5
041,$5344. .DBYTE $4647,$4800.;.;.
*=31664.;.KARAK .DBYTE $0002,$0505.
.DBYTE $0505,$0200. .DBYTE $0
002,$0602. .DBYTE $0202,$0200.
.DBYTE $0002,$0501. .DBYTE $0102,$
0700. .DBYTE $0006,$0102. .DBY
TE $0101,$0600. .DBYTE $0002,$0204.
.DBYTE $0507,$0100. .DBYTE $0
007,$0406. .DBYTE $0101,$0600.
.DBYTE $0003,$0406. .DBYTE $0505,$
0200. .DBYTE $0007,$0102. .DBY
TE $0204,$0400. .DBYTE $0002,$0502.
.DBYTE $0505,$0200. .DBYTE $0
002,$0505. .DBYTE $0301,$0600.;.
.END.
> CLICK IMAGE PREVIEW FOR FULL MODAL