PUZTWE.ASM
FILE INFORMATION
FILENAME(S): PUZTWE.ASM
FILE TYPE(S): SEQ
FILE SIZE: 9.7K
FIRST SEEN: 2025-11-30 21:27:02
APPEARS ON: 1 disk(s)
FILE HASH
f4c84d1ed6b6875ace4c52e3885725963a5521d32a242597f047904e225d0e03
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLERBRON | PUZTWE.ASM | SEQ | DuncanTwain | 19 | 0 | 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 54 57 45 45 |: HULP SET TWEE| 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 54 57 45 2E 41 53 4D 20 20 20 |: PUZTWE.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 54 57 45 2E 4F 42 4A 20 20 20 |: PUZTWE.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 31 30 20 53 45 50 54 2E 31 39 39 31 2E |: 10 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: 50 55 5A 5A 45 4C 53 2E 0D 3B 0D 3B 3D 3D 3D 3D |PUZZELS..;.;====| 00000120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 3B 0D |=============.;.| 00000140: 3B 20 44 45 43 49 4D 20 48 45 58 41 20 53 59 4D |; DECIM HEXA SYM| 00000150: 42 4C 20 46 55 4E 43 54 49 45 0D 3B 0D 3B 20 33 |BL FUNCTIE.;.; 3| 00000160: 30 31 35 36 20 37 35 43 43 20 53 43 4E 49 4E 20 |0156 75CC SCNIN | 00000170: 53 43 48 45 52 4D 20 4E 41 41 52 0D 3B 20 20 20 |SCHERM NAAR.; | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 | I| 00000190: 4E 44 45 58 56 45 4C 44 2E 0D 3B 20 33 30 32 30 |NDEXVELD..; 3020| 000001A0: 38 20 37 36 30 30 20 43 4F 43 59 46 20 43 49 4A |8 7600 COCYF CIJ| 000001B0: 46 2E 49 56 4D 2F 43 4F 44 45 0D 3B 20 20 20 20 |F.IVM/CODE.; | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 41 | NA| 000001D0: 41 52 20 53 43 48 45 52 4D 2E 0D 3B 20 33 30 32 |AR SCHERM..; 302| 000001E0: 38 38 20 37 36 35 30 20 4E 59 53 43 4D 20 53 43 |88 7650 NYSCM SC| 000001F0: 48 45 52 4D 20 45 4E 20 42 41 4E 4B 0D 3B 20 20 |HERM EN BANK.; | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 55 2F 41 44 52 45 53 20 28 36 34 38 29 2E 0D 3B |U/ADRES (648)..;| 00000220: 20 33 30 33 31 36 20 37 36 36 43 20 42 4C 4B 41 | 30316 766C BLKA| 00000230: 52 20 4B 41 52 2E 42 4C 2E 45 4E 20 42 41 4E 4B |R KAR.BL.EN BANK| 00000240: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 00000250: 20 20 20 20 55 2F 41 44 52 45 53 20 28 36 38 31 | U/ADRES (681| 00000260: 29 2E 0D 3B 20 33 30 34 36 34 20 37 37 30 30 20 |)..; 30464 7700 | 00000270: 43 4F 56 45 53 20 43 4F 44 45 56 45 43 54 4F 52 |COVES CODEVECTOR| 00000280: 20 4E 41 41 52 0D 3B 20 20 20 20 20 20 20 20 20 | NAAR.; | 00000290: 20 20 20 20 20 20 20 20 20 53 43 48 45 52 4D 3A | SCHERM:| 000002A0: 28 37 30 31 29 2E 2E 2E 0D 3B 20 33 30 34 39 36 |(701)....; 30496| 000002B0: 20 37 37 32 30 20 4B 4C 45 42 4F 20 4B 4C 45 55 | 7720 KLEBO KLEU| 000002C0: 52 20 48 45 54 20 42 4F 4F 44 2D 0D 3B 20 20 20 |R HET BOOD-.; | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | S| 000002E0: 43 48 41 50 50 45 4E 56 45 4C 44 2E 0D 3B 20 33 |CHAPPENVELD..; 3| 000002F0: 30 35 30 38 20 37 37 32 43 20 42 50 4F 45 54 20 |0508 772C BPOET | 00000300: 50 4F 45 54 53 20 48 45 54 20 42 4F 4F 44 2D 0D |POETS HET BOOD-.| 00000310: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000320: 20 20 20 53 43 48 41 50 50 45 4E 56 45 4C 44 2E | SCHAPPENVELD.| 00000330: 0D 3B 20 33 30 35 32 38 20 37 37 34 30 20 54 45 |.; 30528 7740 TE| 00000340: 4B 49 4E 20 54 45 4B 45 4E 20 56 41 4E 20 30 30 |KIN TEKEN VAN 00| 00000350: 32 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |2.; | 00000360: 20 20 20 20 20 4E 41 41 52 20 53 50 45 45 4C 56 | NAAR SPEELV| 00000370: 45 4C 44 2E 0D 3B 20 33 30 35 33 36 20 37 37 34 |ELD..; 30536 774| 00000380: 38 20 49 4E 53 43 4F 20 49 4E 44 45 58 56 45 4C |8 INSCO INDEXVEL| 00000390: 44 20 4E 41 41 52 0D 3B 20 20 20 20 20 20 20 20 |D NAAR.; | 000003A0: 20 20 20 20 20 20 20 20 20 20 53 50 45 45 4C 56 | SPEELV| 000003B0: 2E 4D 2F 43 4F 44 45 2E 0D 3B 20 33 30 36 32 34 |.M/CODE..; 30624| 000003C0: 20 37 37 41 30 20 56 45 43 54 4F 20 43 4F 44 45 | 77A0 VECTO CODE| 000003D0: 56 45 43 54 4F 52 20 4D 45 54 0D 3B 20 20 20 20 |VECTOR MET.; | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 4E | ON| 000003F0: 47 45 43 4F 44 2E 41 4C 46 41 42 2E 0D 3B 20 33 |GECOD.ALFAB..; 3| 00000400: 30 36 35 36 20 37 37 43 30 20 57 49 53 43 4F 20 |0656 77C0 WISCO | 00000410: 57 49 53 53 45 4C 20 32 20 43 4F 44 2E 4F 4D 0D |WISSEL 2 COD.OM.| 00000420: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000430: 20 20 20 49 4E 20 53 50 4C 56 2E 26 20 56 45 43 | IN SPLV.& VEC| 00000440: 54 2E 0D 3B 0D 3B 0D 3B 20 20 20 20 20 20 20 49 |T..;.;.; I| 00000450: 4E 54 45 52 4E 2E 0D 3B 20 20 20 20 20 20 20 3D |NTERN..; =| 00000460: 3D 3D 3D 3D 3D 3D 0D 3B 0D 3B 20 33 30 33 34 38 |======.;.; 30348| 00000470: 20 37 36 38 43 20 49 5A 4F 45 4B 20 49 4E 44 45 | 768C IZOEK INDE| 00000480: 58 5A 4F 45 4B 20 45 4E 0D 3B 20 20 20 20 20 20 |XZOEK EN.; | 00000490: 20 20 20 20 20 20 20 20 20 20 20 20 43 4F 44 45 | CODE| 000004A0: 20 56 45 52 56 41 4E 47 45 4E 2E 0D 3B 20 33 30 | VERVANGEN..; 30| 000004B0: 36 34 30 20 37 37 42 30 20 5A 4F 45 56 45 20 5A |640 77B0 ZOEVE Z| 000004C0: 4F 45 4B 20 54 45 4B 45 4E 20 55 49 54 0D 3B 20 |OEK TEKEN UIT.; | 000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004E0: 20 43 4F 44 45 56 45 43 54 4F 52 2E 0D 3B 0D 3B | CODEVECTOR..;.;| 000004F0: 0D 20 20 20 20 20 20 2A 3D 33 30 31 35 36 0D 3B |. *=30156.;| 00000500: 0D 3B 20 20 20 20 20 53 43 48 45 52 4D 20 4E 41 |.; SCHERM NA| 00000510: 41 52 20 49 4E 44 45 58 56 45 4C 44 2E 0D 3B 0D |AR INDEXVELD..;.| 00000520: 53 43 4E 49 4E 20 4C 44 41 20 20 53 42 44 52 4C |SCNIN LDA SBDRL| 00000530: 20 20 3B 48 41 41 4C 41 44 52 45 53 2E 0D 20 20 | ;HAALADRES.. | 00000540: 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 | STA 251. | 00000550: 20 20 20 4C 44 41 20 20 53 42 44 52 48 0D 20 20 | LDA SBDRH. | 00000560: 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 | STA 252. | 00000570: 20 20 20 4C 44 41 20 20 53 49 44 52 4C 20 20 3B | LDA SIDRL ;| 00000580: 42 52 45 4E 47 41 44 52 45 53 2E 0D 20 20 20 20 |BRENGADRES.. | 00000590: 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 | STA 253. | 000005A0: 20 4C 44 41 20 20 53 49 44 52 48 0D 20 20 20 20 | LDA SIDRH. | 000005B0: 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 | STA 254. | 000005C0: 20 4C 44 41 20 20 30 30 37 33 31 20 20 3B 41 41 | LDA 00731 ;AA| 000005D0: 4E 54 41 4C 20 52 45 47 45 4C 53 2E 0D 20 20 20 |NTAL REGELS.. | 000005E0: 20 20 20 53 54 41 20 20 30 33 33 0D 20 20 20 20 | STA 033. | 000005F0: 20 20 4C 44 41 20 20 30 30 37 33 30 20 20 3B 41 | LDA 00730 ;A| 00000600: 41 4E 54 2E 42 59 54 45 53 2F 52 47 2E 0D 20 20 |ANT.BYTES/RG.. | 00000610: 20 20 20 20 53 54 41 20 20 30 33 34 0D 20 20 20 | STA 034. | 00000620: 20 20 20 4C 44 41 20 23 30 34 30 20 20 20 20 3B | LDA #040 ;| 00000630: 4F 50 48 4F 47 45 4E 20 56 41 4E 0D 20 20 20 20 |OPHOGEN VAN. | 00000640: 20 20 53 54 41 20 20 31 30 30 20 20 20 20 3B 48 | STA 100 ;H| 00000650: 41 41 4C 41 44 52 45 53 2E 0D 20 20 20 20 20 20 |AALADRES.. | 00000660: 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 53 |LDA #000. S| 00000670: 54 41 20 20 31 30 31 0D 20 20 20 20 20 20 4C 44 |TA 101. LD| 00000680: 41 20 20 30 30 37 33 30 20 20 3B 4F 50 48 4F 47 |A 00730 ;OPHOG| 00000690: 45 4E 20 56 41 4E 0D 20 20 20 20 20 20 53 54 41 |EN VAN. STA| 000006A0: 20 20 31 30 37 20 20 20 20 3B 42 52 45 4E 47 41 | 107 ;BRENGA| 000006B0: 44 52 45 53 2E 0D 20 20 20 20 20 20 4C 44 41 20 |DRES.. LDA | 000006C0: 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 |#000. STA | 000006D0: 31 30 38 0D 20 20 20 20 20 20 4A 53 52 20 20 42 |108. JSR B| 000006E0: 4C 54 52 41 20 20 3B 54 52 41 4E 53 50 4F 52 54 |LTRA ;TRANSPORT| 000006F0: 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |.. RTS. | 00000700: 20 20 2E 44 42 59 54 45 20 24 45 41 45 41 2C 24 | .DBYTE $EAEA,$| 00000710: 45 41 45 41 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 |EAEA.;. *=3| 00000720: 30 32 30 38 0D 3B 0D 3B 20 20 20 20 20 43 49 4A |0208.;.; CIJ| 00000730: 46 45 52 53 20 4F 50 20 53 43 48 45 52 4D 20 49 |FERS OP SCHERM I| 00000740: 56 4D 2E 43 4F 44 45 2E 0D 3B 0D 43 4F 43 59 46 |VM.CODE..;.COCYF| 00000750: 20 4C 44 58 20 23 30 30 33 20 20 20 20 3B 41 44 | LDX #003 ;AD| 00000760: 52 45 53 53 45 4E 20 49 4E 0D 43 4F 43 59 31 20 |RESSEN IN.COCY1 | 00000770: 4C 44 41 20 20 53 41 44 52 4C 2C 58 20 3B 32 35 |LDA SADRL,X ;25| 00000780: 31 2E 2E 32 35 34 2E 0D 20 20 20 20 20 20 53 54 |1..254.. ST| 00000790: 41 20 20 32 35 31 2C 58 0D 20 20 20 20 20 20 44 |A 251,X. D| 000007A0: 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 43 4F |EX. BPL CO| 000007B0: 43 59 31 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |CY1. LDA #0| 000007C0: 34 38 20 20 20 20 3B 43 49 4A 46 45 52 53 20 30 |48 ;CIJFERS 0| 000007D0: 31 2D 31 33 2E 0D 20 20 20 20 20 20 53 54 41 20 |1-13.. STA | 000007E0: 20 31 30 31 20 20 20 20 3B 54 49 45 4E 54 41 4C | 101 ;TIENTAL| 000007F0: 4C 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |LEN.. STA | 00000800: 31 30 30 20 20 20 20 3B 45 45 4E 48 45 44 45 4E |100 ;EENHEDEN| 00000810: 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 39 |.. LDA #049| 00000820: 20 20 20 20 3B 43 49 4A 46 45 52 53 20 31 34 2D | ;CIJFERS 14-| 00000830: 32 36 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 |26.. STA 1| 00000840: 30 38 20 20 20 20 3B 54 49 45 4E 54 41 4C 4C 45 |08 ;TIENTALLE| 00000850: 4E 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 35 |N.. LDA #05| 00000860: 31 20 20 20 20 3B 45 45 4E 48 45 44 45 4E 2E 0D |1 ;EENHEDEN..| 00000870: 20 20 20 20 20 20 53 54 41 20 20 31 30 37 0D 20 | STA 107. | 00000880: 20 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 | LDY #001 | 00000890: 20 3B 53 43 48 45 52 4D 41 44 52 45 53 2E 0D 20 | ;SCHERMADRES.. | 000008A0: 20 20 20 20 20 4C 44 58 20 23 30 31 32 20 20 20 | LDX #012 | 000008B0: 20 3B 30 31 2D 31 33 2C 31 34 2D 32 36 2E 0D 43 | ;01-13,14-26..C| 000008C0: 4F 43 59 32 20 49 4E 43 20 20 31 30 37 20 20 20 |OCY2 INC 107 | 000008D0: 20 3B 54 57 45 45 44 45 20 52 49 4A 3A 0D 20 20 | ;TWEEDE RIJ:. | 000008E0: 20 20 20 20 4C 44 41 20 20 31 30 37 20 20 20 20 | LDA 107 | 000008F0: 3B 45 45 4E 48 45 44 45 4E 20 2B 20 31 2E 0D 20 |;EENHEDEN + 1.. | 00000900: 20 20 20 20 20 43 4D 50 20 23 30 35 38 20 20 20 | CMP #058 | 00000910: 20 3B 4F 56 45 52 20 44 45 20 4E 45 47 45 4E 3A | ;OVER DE NEGEN:| 00000920: 0D 20 20 20 20 20 20 42 43 43 20 20 43 4F 43 59 |. BCC COCY| 00000930: 33 20 20 3B 54 49 45 4E 54 41 4C 4C 45 4E 20 2B |3 ;TIENTALLEN +| 00000940: 20 31 3B 0D 20 20 20 20 20 20 49 4E 43 20 20 31 | 1;. INC 1| 00000950: 30 38 20 20 20 20 3B 54 45 56 45 4E 53 20 45 45 |08 ;TEVENS EE| 00000960: 4E 48 2E 20 30 2E 0D 20 20 20 20 20 20 4C 44 41 |NH. 0.. LDA| 00000970: 20 23 30 34 38 0D 20 20 20 20 20 20 53 54 41 20 | #048. STA | 00000980: 20 31 30 37 0D 43 4F 43 59 33 20 49 4E 43 20 20 | 107.COCY3 INC | 00000990: 31 30 30 20 20 20 20 3B 45 45 52 53 54 45 20 52 |100 ;EERSTE R| 000009A0: 49 4A 3A 0D 20 20 20 20 20 20 4C 44 41 20 20 31 |IJ:. LDA 1| 000009B0: 30 30 20 20 20 20 3B 45 45 4E 48 45 44 45 4E 20 |00 ;EENHEDEN | 000009C0: 2B 20 31 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 |+ 1.. CMP #| 000009D0: 30 35 38 20 20 20 20 3B 4F 56 45 52 20 44 45 20 |058 ;OVER DE | 000009E0: 4E 45 47 45 4E 3A 0D 20 20 20 20 20 20 42 43 43 |NEGEN:. BCC| 000009F0: 20 20 43 4F 43 59 34 20 20 3B 54 49 45 4E 54 41 | COCY4 ;TIENTA| 00000A00: 4C 4C 45 4E 20 2B 20 31 3B 0D 20 20 20 20 20 20 |LLEN + 1;. | 00000A10: 49 4E 43 20 20 31 30 31 20 20 20 20 3B 54 45 56 |INC 101 ;TEV| 00000A20: 45 4E 53 20 45 45 4E 48 2E 20 30 2E 0D 20 20 20 |ENS EENH. 0.. | 00000A30: 20 20 20 4C 44 41 20 23 30 34 38 0D 20 20 20 20 | LDA #048. | 00000A40: 20 20 53 54 41 20 20 31 30 30 0D 43 4F 43 59 34 | STA 100.COCY4| 00000A50: 20 4C 44 41 20 20 31 30 31 20 20 20 20 3B 45 45 | LDA 101 ;EE| 00000A60: 52 53 54 45 20 52 49 4A 20 44 45 0D 20 20 20 20 |RSTE RIJ DE. | 00000A70: 20 20 53 54 41 20 28 32 35 31 29 2C 59 20 3B 54 | STA (251),Y ;T| 00000A80: 49 45 4E 54 41 4C 4C 45 4E 2E 0D 20 20 20 20 20 |IENTALLEN.. | 00000A90: 20 4C 44 41 20 20 31 30 38 20 20 20 20 3B 54 57 | LDA 108 ;TW| 00000AA0: 45 45 44 45 20 52 49 4A 20 44 45 0D 20 20 20 20 |EEDE RIJ DE. | 00000AB0: 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B 54 | STA (253),Y ;T| 00000AC0: 49 45 4E 54 41 4C 4C 45 4E 2E 0D 20 20 20 20 20 |IENTALLEN.. | 00000AD0: 20 49 4E 59 0D 20 20 20 20 20 20 4C 44 41 20 20 | INY. LDA | 00000AE0: 31 30 30 20 20 20 20 3B 45 45 52 53 54 45 20 52 |100 ;EERSTE R| 00000AF0: 49 4A 20 44 45 0D 20 20 20 20 20 20 53 54 41 20 |IJ DE. STA | 00000B00: 28 32 35 31 29 2C 59 20 3B 45 45 4E 48 45 44 45 |(251),Y ;EENHEDE| 00000B10: 4E 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 31 30 |N.. LDA 10| 00000B20: 37 20 20 20 20 3B 54 57 45 45 44 45 20 52 49 4A |7 ;TWEEDE RIJ| 00000B30: 20 44 45 0D 20 20 20 20 20 20 53 54 41 20 28 32 | DE. STA (2| 00000B40: 35 33 29 2C 59 20 3B 45 45 4E 48 45 44 45 4E 2E |53),Y ;EENHEDEN.| 00000B50: 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 |. INY | 00000B60: 20 20 20 3B 56 4F 4C 47 45 4E 44 45 20 50 4F 53 | ;VOLGENDE POS| 00000B70: 2E 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 |.. INY | 00000B80: 20 20 20 20 3B 54 57 45 45 20 56 45 52 44 45 52 | ;TWEE VERDER| 00000B90: 2E 0D 20 20 20 20 20 20 44 45 58 20 20 20 20 20 |.. DEX | 00000BA0: 20 20 20 20 3B 41 46 54 45 4C 4C 45 4E 2E 0D 20 | ;AFTELLEN.. | 00000BB0: 20 20 20 20 20 42 50 4C 20 20 43 4F 43 59 32 0D | BPL COCY2.| 00000BC0: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00000BD0: 2E 44 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 |.DBYTE $EAEA,$EA| 00000BE0: 45 41 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 32 |EA.;. *=302| 00000BF0: 38 38 0D 3B 0D 3B 20 28 30 30 36 34 38 29 20 2D |88.;.; (00648) -| 00000C00: 3E 20 53 43 48 45 52 4D 42 4C 4F 4B 2C 20 42 41 |> SCHERMBLOK, BA| 00000C10: 4E 4B 20 28 58 29 2E 0D 3B 0D 4E 59 53 43 4D 20 |NK (X)..;.NYSCM | 00000C20: 4C 44 41 20 20 30 30 36 34 38 20 20 3B 53 43 48 |LDA 00648 ;SCH| 00000C30: 45 52 4D 41 44 52 45 53 2E 0D 20 20 20 20 20 20 |ERMADRES.. | 00000C40: 50 48 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 |PHA. ROL A| 00000C50: 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 |. ROL A. | 00000C60: 20 20 20 20 41 4E 44 20 23 32 34 30 0D 20 20 20 | AND #240. | 00000C70: 20 20 20 53 54 41 20 20 30 30 32 0D 20 20 20 20 | STA 002. | 00000C80: 20 20 4C 44 41 20 20 35 33 32 37 32 0D 20 20 20 | LDA 53272. | 00000C90: 20 20 20 41 4E 44 20 23 30 31 35 0D 20 20 20 20 | AND #015. | 00000CA0: 20 20 4F 52 41 20 20 30 30 32 0D 20 20 20 20 20 | ORA 002. | 00000CB0: 20 53 54 41 20 20 35 33 32 37 32 0D 20 20 20 20 | STA 53272. | 00000CC0: 20 20 50 4C 41 0D 20 20 20 20 20 20 52 4F 4C 20 | PLA. ROL | 00000CD0: 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D | A. ROL A.| 00000CE0: 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 | ROL A. | 00000CF0: 20 20 20 41 4E 44 20 23 30 30 33 0D 20 20 20 20 | AND #003. | 00000D00: 20 20 54 41 58 0D 20 20 20 20 20 20 52 54 53 0D | TAX. RTS.| 00000D10: 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 45 41 | .DBYTE $EA| 00000D20: 45 41 2C 24 45 41 45 41 0D 3B 0D 20 20 20 20 20 |EA,$EAEA.;. | 00000D30: 20 2A 3D 33 30 33 31 36 0D 3B 0D 3B 20 28 30 30 | *=30316.;.; (00| 00000D40: 36 38 31 29 20 2D 3E 20 4B 41 52 41 4B 2E 42 4C |681) -> KARAK.BL| 00000D50: 4F 4B 2C 20 42 41 4E 4B 20 28 58 29 2E 0D 3B 0D |OK, BANK (X)..;.| 00000D60: 42 4C 4B 41 52 20 4C 44 41 20 20 30 30 36 38 31 |BLKAR LDA 00681| 00000D70: 20 20 3B 4B 41 52 41 4B 2E 41 44 52 45 53 2E 0D | ;KARAK.ADRES..| 00000D80: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 00000D90: 4C 53 52 20 20 41 0D 20 20 20 20 20 20 4C 53 52 |LSR A. LSR| 00000DA0: 20 20 41 0D 20 20 20 20 20 20 41 4E 44 20 23 30 | A. AND #0| 00000DB0: 31 35 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |15. STA 00| 00000DC0: 32 0D 20 20 20 20 20 20 4C 44 41 20 20 35 33 32 |2. LDA 532| 00000DD0: 37 32 0D 20 20 20 20 20 20 41 4E 44 20 23 32 34 |72. AND #24| 00000DE0: 30 0D 20 20 20 20 20 20 4F 52 41 20 20 30 30 32 |0. ORA 002| 00000DF0: 0D 20 20 20 20 20 20 53 54 41 20 20 35 33 32 37 |. STA 5327| 00000E00: 32 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 |2. PLA. | 00000E10: 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 | ROL A. R| 00000E20: 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 |OL A. ROL | 00000E30: 20 41 0D 20 20 20 20 20 20 41 4E 44 20 23 30 30 | A. AND #00| 00000E40: 33 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 |3. TAX. | 00000E50: 20 20 52 54 53 0D 20 20 20 20 20 20 2E 44 42 59 | RTS. .DBY| 00000E60: 54 45 20 24 45 41 45 41 2C 24 45 41 45 41 0D 3B |TE $EAEA,$EAEA.;| 00000E70: 0D 20 20 20 20 20 20 2A 3D 33 30 33 34 38 0D 3B |. *=30348.;| 00000E80: 0D 3B 20 5A 4F 45 4B 20 49 4E 44 45 58 20 28 31 |.; ZOEK INDEX (1| 00000E90: 36 37 29 20 55 49 54 20 49 4E 44 45 58 56 45 4C |67) UIT INDEXVEL| 00000EA0: 44 2E 0D 3B 20 49 4E 44 49 45 4E 20 47 45 56 4F |D..; INDIEN GEVO| 00000EB0: 4E 44 45 4E 3A 20 56 45 52 56 41 4E 47 20 49 4E |NDEN: VERVANG IN| 00000EC0: 20 48 45 54 0D 3B 20 53 50 45 45 4C 56 45 4C 44 | HET.; SPEELVELD| 00000ED0: 20 44 45 20 4F 55 44 45 20 43 4F 44 45 20 44 4F | DE OUDE CODE DO| 00000EE0: 4F 52 20 44 45 0D 3B 20 4E 49 45 55 57 45 20 43 |OR DE.; NIEUWE C| 00000EF0: 4F 44 45 20 28 31 36 38 29 3B 20 54 45 56 45 4E |ODE (168); TEVEN| 00000F00: 53 20 44 45 0D 3B 20 4B 4C 45 55 52 20 28 31 36 |S DE.; KLEUR (16| 00000F10: 39 29 20 49 4E 5A 45 54 54 45 4E 2E 0D 3B 20 44 |9) INZETTEN..; D| 00000F20: 4F 45 20 48 45 54 5A 45 4C 46 44 45 20 49 4E 20 |OE HETZELFDE IN | 00000F30: 44 45 20 43 4F 44 45 2D 0D 3B 20 56 45 43 54 4F |DE CODE-.; VECTO| 00000F40: 52 20 28 37 30 31 29 2E 2E 2E 2E 28 37 32 36 29 |R (701)....(726)| 00000F50: 2E 0D 3B 0D 49 5A 4F 45 4B 20 4C 44 41 20 20 53 |..;.IZOEK LDA S| 00000F60: 49 44 52 4C 20 20 3B 49 4E 44 45 58 56 45 4C 44 |IDRL ;INDEXVELD| 00000F70: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 37 |.. STA 247| 00000F80: 0D 20 20 20 20 20 20 4C 44 41 20 20 53 49 44 52 |. LDA SIDR| 00000F90: 48 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 38 |H. STA 248| 00000FA0: 0D 20 20 20 20 20 20 4C 44 41 20 20 53 42 44 52 |. LDA SBDR| 00000FB0: 4C 20 20 3B 53 50 45 45 4C 56 45 4C 44 2E 0D 20 |L ;SPEELVELD.. | 00000FC0: 20 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 | STA 251. | 00000FD0: 20 20 20 20 4C 44 41 20 20 53 42 44 52 48 0D 20 | LDA SBDRH. | 00000FE0: 20 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 | STA 252. | 00000FF0: 20 20 20 20 4C 44 41 20 20 53 4C 44 52 4C 20 20 | LDA SLDRL | 00001000: 3B 53 50 45 45 4C 56 2E 4B 4C 45 55 52 2E 0D 20 |;SPEELV.KLEUR.. | 00001010: 20 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 | STA 253. | 00001020: 20 20 20 20 4C 44 41 20 20 53 4C 44 52 48 0D 20 | LDA SLDRH. | 00001030: 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 | STA 254. | 00001040: 20 20 20 20 4C 44 58 20 20 30 30 37 33 31 20 20 | LDX 00731 | 00001050: 3B 41 41 4E 54 41 4C 20 52 45 47 45 4C 53 2E 0D |;AANTAL REGELS..| 00001060: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00001070: 42 43 43 20 20 49 5A 4F 45 34 0D 49 5A 4F 45 31 |BCC IZOE4.IZOE1| 00001080: 20 4C 44 59 20 20 30 30 37 33 30 20 20 3B 41 41 | LDY 00730 ;AA| 00001090: 4E 54 41 4C 20 42 59 54 45 53 0D 20 20 20 20 20 |NTAL BYTES. | 000010A0: 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 50 45 | CLC ;PE| 000010B0: 52 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 42 |R REGEL.. B| 000010C0: 43 43 20 20 49 5A 4F 45 33 0D 49 5A 4F 45 32 20 |CC IZOE3.IZOE2 | 000010D0: 4C 44 41 20 28 32 34 37 29 2C 59 20 3B 49 4E 44 |LDA (247),Y ;IND| 000010E0: 45 58 20 55 49 54 20 56 45 4C 44 2E 0D 20 20 20 |EX UIT VELD.. | 000010F0: 20 20 20 42 45 51 20 20 49 5A 4F 45 33 20 20 3B | BEQ IZOE3 ;| 00001100: 20 20 3D 20 4E 55 4C 3F 0D 20 20 20 20 20 20 43 | = NUL?. C| 00001110: 4D 50 20 20 31 36 37 20 20 20 20 3B 4F 46 3D 5A |MP 167 ;OF=Z| 00001120: 4F 45 4B 49 4E 44 45 58 3F 0D 20 20 20 20 20 20 |OEKINDEX?. | 00001130: 42 4E 45 20 20 49 5A 4F 45 33 20 20 3B 4E 45 45 |BNE IZOE3 ;NEE| 00001140: 3A 44 4F 4F 52 47 41 41 4E 2E 0D 20 20 20 20 20 |:DOORGAAN.. | 00001150: 20 4C 44 41 20 20 31 36 38 20 20 20 20 3B 4E 49 | LDA 168 ;NI| 00001160: 45 55 57 20 54 45 4B 45 4E 0D 20 20 20 20 20 20 |EUW TEKEN. | 00001170: 53 54 41 20 28 32 35 31 29 2C 59 20 3B 49 4E 20 |STA (251),Y ;IN | 00001180: 53 50 45 45 4C 56 45 4C 44 20 4F 50 0D 20 20 20 |SPEELVELD OP. | 00001190: 20 20 20 4C 44 41 20 20 31 36 39 20 20 20 20 3B | LDA 169 ;| 000011A0: 5A 45 4C 46 44 45 20 50 4C 41 41 54 53 2E 0D 20 |ZELFDE PLAATS.. | 000011B0: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 000011C0: 20 3B 4F 4F 4B 20 44 45 20 4B 4C 45 55 52 2E 0D | ;OOK DE KLEUR..| 000011D0: 49 5A 4F 45 33 20 44 45 59 20 20 20 20 20 20 20 |IZOE3 DEY | 000011E0: 20 20 3B 41 46 54 45 4C 4C 45 4E 20 42 59 54 45 | ;AFTELLEN BYTE| 000011F0: 53 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 49 5A |S.. BPL IZ| 00001200: 4F 45 32 0D 20 20 20 20 20 20 43 4C 43 20 20 20 |OE2. CLC | 00001210: 20 20 20 20 20 20 3B 48 4F 4F 47 20 52 45 47 2E | ;HOOG REG.| 00001220: 41 44 52 2E 4F 50 0D 20 20 20 20 20 20 4C 44 41 |ADR.OP. LDA| 00001230: 20 20 32 34 37 20 20 20 20 3B 4D 45 54 20 41 41 | 247 ;MET AA| 00001240: 4E 54 2E 2F 52 45 47 2E 0D 20 20 20 20 20 20 41 |NT./REG.. A| 00001250: 44 43 20 20 30 30 37 33 30 0D 20 20 20 20 20 20 |DC 00730. | 00001260: 53 54 41 20 20 32 34 37 0D 20 20 20 20 20 20 4C |STA 247. L| 00001270: 44 41 20 20 32 34 38 0D 20 20 20 20 20 20 41 44 |DA 248. AD| 00001280: 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 |C #000. STA| 00001290: 20 20 32 34 38 0D 20 20 20 20 20 20 43 4C 43 20 | 248. CLC | 000012A0: 20 20 20 20 20 20 20 20 3B 4F 50 48 4F 47 45 4E | ;OPHOGEN| 000012B0: 20 41 44 52 45 53 0D 20 20 20 20 20 20 4C 44 41 | ADRES. LDA| 000012C0: 20 20 32 35 31 20 20 20 20 3B 53 50 45 45 4C 56 | 251 ;SPEELV| 000012D0: 2E 4D 45 54 20 34 30 2E 0D 20 20 20 20 20 20 41 |.MET 40.. A| 000012E0: 44 43 20 23 30 34 30 0D 20 20 20 20 20 20 53 54 |DC #040. ST| 000012F0: 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 |A 251. LDA| 00001300: 20 20 32 35 32 0D 20 20 20 20 20 20 41 44 43 20 | 252. ADC | 00001310: 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 |#000. STA | 00001320: 32 35 32 0D 20 20 20 20 20 20 43 4C 43 20 20 20 |252. CLC | 00001330: 20 20 20 20 20 20 3B 4F 50 48 4F 47 45 4E 20 41 | ;OPHOGEN A| 00001340: 44 52 45 53 0D 20 20 20 20 20 20 4C 44 41 20 20 |DRES. LDA | 00001350: 32 35 33 20 20 20 20 3B 4B 4C 45 55 52 20 53 50 |253 ;KLEUR SP| 00001360: 45 45 4C 56 2E 0D 20 20 20 20 20 20 41 44 43 20 |EELV.. ADC | 00001370: 23 30 34 30 20 20 20 20 3B 4D 45 54 20 34 30 2E |#040 ;MET 40.| 00001380: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 0D |. STA 253.| 00001390: 20 20 20 20 20 20 4C 44 41 20 20 32 35 34 0D 20 | LDA 254. | 000013A0: 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 | ADC #000. | 000013B0: 20 20 20 20 53 54 41 20 20 32 35 34 0D 49 5A 4F | STA 254.IZO| 000013C0: 45 34 20 44 45 58 20 20 20 20 20 20 20 20 20 3B |E4 DEX ;| 000013D0: 41 46 54 45 4C 20 56 2E 52 45 47 45 4C 53 2E 0D |AFTEL V.REGELS..| 000013E0: 20 20 20 20 20 20 42 50 4C 20 20 49 5A 4F 45 31 | BPL IZOE1| 000013F0: 20 20 3B 45 49 4E 44 3A 56 45 52 56 41 4E 47 0D | ;EIND:VERVANG.| 00001400: 20 20 20 20 20 20 4C 44 58 20 20 31 36 37 20 20 | LDX 167 | 00001410: 20 20 3B 49 4E 20 56 45 43 54 4F 52 2E 0D 20 20 | ;IN VECTOR.. | 00001420: 20 20 20 20 4C 44 41 20 20 31 36 38 0D 20 20 20 | LDA 168. | 00001430: 20 20 20 53 54 41 20 20 30 30 37 30 30 2C 58 0D | STA 00700,X.| 00001440: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00001450: 2E 44 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 |.DBYTE $EAEA,$EA| 00001460: 45 41 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 34 |EA.;. *=304| 00001470: 36 34 0D 3B 0D 3B 20 4C 45 54 54 45 52 53 20 55 |64.;.; LETTERS U| 00001480: 2F 43 4F 44 45 56 45 43 54 4F 52 20 4E 2F 53 43 |/CODEVECTOR N/SC| 00001490: 48 45 52 4D 2E 0D 3B 0D 43 4F 56 45 53 20 4C 44 |HERM..;.COVES LD| 000014A0: 58 20 23 30 30 33 20 20 20 20 20 3B 41 44 52 45 |X #003 ;ADRE| 000014B0: 53 53 45 4E 20 49 4E 0D 43 4F 56 45 31 20 4C 44 |SSEN IN.COVE1 LD| 000014C0: 41 20 20 30 30 36 39 36 2C 58 20 3B 32 35 31 2E |A 00696,X ;251.| 000014D0: 2E 2E 32 35 34 2E 0D 20 20 20 20 20 20 53 54 41 |..254.. STA| 000014E0: 20 20 32 35 31 2C 58 0D 20 20 20 20 20 20 44 45 | 251,X. DE| 000014F0: 58 0D 20 20 20 20 20 20 42 50 4C 20 20 43 4F 56 |X. BPL COV| 00001500: 45 31 0D 20 20 20 20 20 20 4C 44 58 20 23 30 31 |E1. LDX #01| 00001510: 32 20 20 20 20 20 3B 41 46 54 45 4C 4C 45 52 20 |2 ;AFTELLER | 00001520: 50 4F 53 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |POS.. LDY #| 00001530: 30 33 36 20 20 20 20 20 3B 50 4C 41 41 54 53 2E |036 ;PLAATS.| 00001540: 0D 43 4F 56 45 32 20 4C 44 41 20 20 30 30 37 30 |.COVE2 LDA 0070| 00001550: 31 2C 58 20 3B 54 45 4B 45 4E 20 41 2D 4D 2E 0D |1,X ;TEKEN A-M..| 00001560: 20 20 20 20 20 20 53 54 41 20 28 32 35 31 29 2C | STA (251),| 00001570: 59 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 |Y. LDA 007| 00001580: 31 34 2C 58 20 3B 54 45 4B 45 4E 20 4E 2D 5A 2E |14,X ;TEKEN N-Z.| 00001590: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 000015A0: 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 |,Y. DEY. | 000015B0: 20 20 20 44 45 59 0D 20 20 20 20 20 20 44 45 59 | DEY. DEY| 000015C0: 0D 20 20 20 20 20 20 44 45 58 20 20 20 20 20 20 |. DEX | 000015D0: 20 20 20 20 3B 54 45 4C 20 41 46 2E 0D 20 20 20 | ;TEL AF.. | 000015E0: 20 20 20 42 50 4C 20 20 43 4F 56 45 32 0D 20 20 | BPL COVE2. | 000015F0: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 2E 44 | RTS. .D| 00001600: 42 59 54 45 20 24 45 41 45 41 2C 24 45 41 45 41 |BYTE $EAEA,$EAEA| 00001610: 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 34 39 36 |.;. *=30496| 00001620: 0D 3B 0D 3B 20 20 20 20 20 4B 4C 45 55 52 20 48 |.;.; KLEUR H| 00001630: 45 54 20 42 4F 4F 44 53 43 48 41 50 50 45 4E 56 |ET BOODSCHAPPENV| 00001640: 45 4C 44 2E 0D 3B 0D 4B 4C 45 42 4F 20 4C 44 41 |ELD..;.KLEBO LDA| 00001650: 20 20 54 45 4B 4B 4C 20 20 3B 4B 4C 45 55 52 2E | TEKKL ;KLEUR.| 00001660: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 36 20 |. LDX #006 | 00001670: 20 20 20 3B 41 44 52 45 53 2E 0D 20 20 20 20 20 | ;ADRES.. | 00001680: 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 56 | CLC. BCC V| 00001690: 55 4C 53 43 0D 20 20 20 20 20 20 2E 44 42 59 54 |ULSC. .DBYT| 000016A0: 45 20 24 45 41 45 41 2C 24 45 41 45 41 0D 3B 0D |E $EAEA,$EAEA.;.| 000016B0: 20 20 20 20 20 20 2A 3D 33 30 35 30 38 0D 3B 0D | *=30508.;.| 000016C0: 3B 20 20 20 20 20 50 4F 45 54 53 20 48 45 54 20 |; POETS HET | 000016D0: 42 4F 4F 44 53 43 48 41 50 50 45 4E 56 45 4C 44 |BOODSCHAPPENVELD| 000016E0: 2E 0D 3B 0D 42 50 4F 45 54 20 4C 44 41 20 23 30 |..;.BPOET LDA #0| 000016F0: 33 32 20 20 20 20 3B 53 50 41 54 49 45 2E 0D 20 |32 ;SPATIE.. | 00001700: 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 | LDX #000 | 00001710: 20 3B 41 44 52 45 53 2E 0D 56 55 4C 53 43 20 53 | ;ADRES..VULSC S| 00001720: 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 |TA 251. LD| 00001730: 41 20 23 30 30 35 20 20 20 20 3B 35 20 52 45 47 |A #005 ;5 REG| 00001740: 45 4C 53 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |ELS.. STA | 00001750: 30 33 33 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |033. LDA #0| 00001760: 34 30 20 20 20 20 3B 34 30 20 42 59 54 45 53 2F |40 ;40 BYTES/| 00001770: 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 53 54 41 |REGEL.. STA| 00001780: 20 20 30 33 34 0D 20 20 20 20 20 20 4A 53 52 20 | 034. JSR | 00001790: 20 4D 45 42 4C 4F 0D 20 20 20 20 20 20 52 54 53 | MEBLO. RTS| 000017A0: 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 45 |. .DBYTE $E| 000017B0: 41 45 41 2C 24 45 41 45 41 0D 3B 0D 20 20 20 20 |AEA,$EAEA.;. | 000017C0: 20 20 2A 3D 33 30 35 32 38 0D 3B 0D 3B 20 20 20 | *=30528.;.; | 000017D0: 20 20 54 45 4B 45 4E 20 28 30 30 32 29 20 49 4E | TEKEN (002) IN| 000017E0: 20 53 50 45 45 4C 56 45 4C 44 2E 0D 3B 0D 54 45 | SPEELVELD..;.TE| 000017F0: 4B 49 4E 20 4C 44 59 20 20 32 34 39 20 20 20 20 |KIN LDY 249 | 00001800: 3B 54 45 20 56 4F 52 45 4E 20 41 44 52 45 53 0D |;TE VOREN ADRES.| 00001810: 20 20 20 20 20 20 4C 44 41 20 20 30 30 32 20 20 | LDA 002 | 00001820: 20 20 3B 49 4E 20 28 32 35 32 2C 32 35 31 29 2E | ;IN (252,251).| 00001830: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 31 29 |. STA (251)| 00001840: 2C 59 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 |,Y. RTS. | 00001850: 20 20 20 2E 44 42 59 54 45 20 24 45 41 45 41 2C | .DBYTE $EAEA,| 00001860: 24 45 41 45 41 0D 3B 0D 20 20 20 20 20 20 2A 3D |$EAEA.;. *=| 00001870: 33 30 35 33 36 0D 3B 0D 3B 20 20 20 20 20 49 4E |30536.;.; IN| 00001880: 44 45 58 56 45 4C 44 20 4E 41 41 52 20 53 50 45 |DEXVELD NAAR SPE| 00001890: 45 4C 56 45 4C 44 20 4D 45 54 0D 3B 20 20 20 20 |ELVELD MET.; | 000018A0: 20 43 4F 44 45 52 49 4E 47 20 56 4F 4C 47 45 4E | CODERING VOLGEN| 000018B0: 53 20 44 45 20 56 45 43 54 4F 52 0D 3B 20 20 20 |S DE VECTOR.; | 000018C0: 20 20 28 37 30 30 29 28 37 30 31 29 2E 2E 2E 2E | (700)(701)....| 000018D0: 28 37 32 36 29 2E 0D 3B 0D 49 4E 53 43 4F 20 4C |(726)..;.INSCO L| 000018E0: 44 41 20 20 53 49 44 52 4C 20 20 3B 48 41 41 4C |DA SIDRL ;HAAL| 000018F0: 41 44 52 45 53 20 56 41 4E 0D 20 20 20 20 20 20 |ADRES VAN. | 00001900: 53 54 41 20 20 32 35 31 20 20 20 20 3B 49 4E 44 |STA 251 ;IND| 00001910: 45 58 56 45 4C 44 2E 0D 20 20 20 20 20 20 4C 44 |EXVELD.. LD| 00001920: 41 20 20 53 49 44 52 48 0D 20 20 20 20 20 20 53 |A SIDRH. S| 00001930: 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 4C 44 |TA 252. LD| 00001940: 41 20 20 53 42 44 52 4C 20 20 3B 42 52 45 4E 47 |A SBDRL ;BRENG| 00001950: 41 44 52 45 53 20 56 41 4E 0D 20 20 20 20 20 20 |ADRES VAN. | 00001960: 53 54 41 20 20 32 35 33 20 20 20 20 3B 53 50 45 |STA 253 ;SPE| 00001970: 45 4C 56 45 4C 44 2E 0D 20 20 20 20 20 20 4C 44 |ELVELD.. LD| 00001980: 41 20 20 53 42 44 52 48 0D 20 20 20 20 20 20 53 |A SBDRH. S| 00001990: 54 41 20 20 32 35 34 0D 20 20 20 20 20 20 4C 44 |TA 254. LD| 000019A0: 58 20 20 30 30 37 33 31 20 20 3B 41 41 4E 54 41 |X 00731 ;AANTA| 000019B0: 4C 20 52 45 47 45 4C 53 2E 0D 20 20 20 20 20 20 |L REGELS.. | 000019C0: 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 49 |CLC. BCC I| 000019D0: 4E 53 43 35 0D 49 4E 53 43 31 20 4C 44 59 20 20 |NSC5.INSC1 LDY | 000019E0: 30 30 37 33 30 20 20 3B 41 41 4E 54 41 4C 20 42 |00730 ;AANTAL B| 000019F0: 59 54 45 53 0D 20 20 20 20 20 20 43 4C 43 20 20 |YTES. CLC | 00001A00: 20 20 20 20 20 20 20 3B 50 45 52 20 52 45 47 45 | ;PER REGE| 00001A10: 4C 2E 0D 20 20 20 20 20 20 42 43 43 20 20 49 4E |L.. BCC IN| 00001A20: 53 43 34 20 20 3B 56 4F 45 52 20 4F 50 0D 49 4E |SC4 ;VOER OP.IN| 00001A30: 53 43 32 20 4C 44 41 20 28 32 35 31 29 2C 59 20 |SC2 LDA (251),Y | 00001A40: 3B 42 59 54 45 2D 49 4E 44 45 58 2E 0D 20 20 20 |;BYTE-INDEX.. | 00001A50: 20 20 20 53 54 59 20 20 30 30 32 20 20 20 20 3B | STY 002 ;| 00001A60: 52 45 44 20 28 59 29 2E 0D 20 20 20 20 20 20 43 |RED (Y).. C| 00001A70: 4D 50 20 23 30 32 37 20 20 20 20 3B 53 50 41 54 |MP #027 ;SPAT| 00001A80: 49 45 20 4F 46 20 41 2D 5A 3F 0D 20 20 20 20 20 |IE OF A-Z?. | 00001A90: 20 42 43 43 20 20 49 4E 53 43 33 20 20 3B 4E 45 | BCC INSC3 ;NE| 00001AA0: 45 4E 3A 5A 45 54 20 4E 55 4C 2E 0D 20 20 20 20 |EN:ZET NUL.. | 00001AB0: 20 20 4C 44 41 20 23 30 30 30 0D 49 4E 53 43 33 | LDA #000.INSC3| 00001AC0: 20 54 41 59 20 20 20 20 20 20 20 20 20 3B 49 4E | TAY ;IN| 00001AD0: 44 2E 56 4F 4F 52 20 56 45 43 54 2E 0D 20 20 20 |D.VOOR VECT.. | 00001AE0: 20 20 20 4C 44 41 20 20 30 30 37 30 30 2C 59 20 | LDA 00700,Y | 00001AF0: 20 3B 43 4F 44 45 52 45 4E 2E 0D 20 20 20 20 20 | ;CODEREN.. | 00001B00: 20 4C 44 59 20 20 30 30 32 20 20 20 20 20 20 3B | LDY 002 ;| 00001B10: 48 45 52 53 54 45 4C 20 28 59 29 2E 0D 20 20 20 |HERSTEL (Y).. | 00001B20: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 20 | STA (253),Y | 00001B30: 20 3B 49 4E 20 53 50 45 45 4C 56 45 4C 44 2E 0D | ;IN SPEELVELD..| 00001B40: 49 4E 53 43 34 20 44 45 59 20 20 20 20 20 20 20 |INSC4 DEY | 00001B50: 20 20 3B 42 59 54 45 2D 41 46 54 45 4C 2E 0D 20 | ;BYTE-AFTEL.. | 00001B60: 20 20 20 20 20 42 50 4C 20 20 49 4E 53 43 32 0D | BPL INSC2.| 00001B70: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 00001B80: 20 20 3B 48 41 41 4C 41 44 52 45 53 0D 20 20 20 | ;HAALADRES. | 00001B90: 20 20 20 4C 44 41 20 20 32 35 31 20 20 20 20 3B | LDA 251 ;| 00001BA0: 4F 50 48 4F 47 45 4E 20 4D 45 54 0D 20 20 20 20 |OPHOGEN MET. | 00001BB0: 20 20 41 44 43 20 20 30 30 37 33 30 20 20 3B 41 | ADC 00730 ;A| 00001BC0: 41 4E 54 41 4C 20 42 59 54 45 53 0D 20 20 20 20 |ANTAL BYTES. | 00001BD0: 20 20 53 54 41 20 20 32 35 31 20 20 20 20 3B 50 | STA 251 ;P| 00001BE0: 45 52 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 |ER REGEL.. | 00001BF0: 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 41 |LDA 252. A| 00001C00: 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 |DC #000. ST| 00001C10: 41 20 20 32 35 32 0D 20 20 20 20 20 20 43 4C 43 |A 252. CLC| 00001C20: 20 20 20 20 20 20 20 20 20 3B 42 52 45 4E 47 41 | ;BRENGA| 00001C30: 44 52 45 53 0D 20 20 20 20 20 20 4C 44 41 20 20 |DRES. LDA | 00001C40: 32 35 33 20 20 20 20 3B 4F 50 48 4F 47 45 4E 0D |253 ;OPHOGEN.| 00001C50: 20 20 20 20 20 20 41 44 43 20 23 30 34 30 20 20 | ADC #040 | 00001C60: 20 20 3B 4D 45 54 20 34 30 2E 0D 20 20 20 20 20 | ;MET 40.. | 00001C70: 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 20 | STA 253. | 00001C80: 4C 44 41 20 20 32 35 34 0D 20 20 20 20 20 20 41 |LDA 254. A| 00001C90: 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 |DC #000. ST| 00001CA0: 41 20 20 32 35 34 0D 49 4E 53 43 35 20 44 45 58 |A 254.INSC5 DEX| 00001CB0: 20 20 20 20 20 20 20 20 20 3B 52 45 47 45 4C 2D | ;REGEL-| 00001CC0: 41 46 54 45 4C 2E 0D 20 20 20 20 20 20 42 50 4C |AFTEL.. BPL| 00001CD0: 20 20 49 4E 53 43 31 0D 20 20 20 20 20 20 52 54 | INSC1. RT| 00001CE0: 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 36 32 |S.;. *=3062| 00001CF0: 34 0D 3B 0D 3B 20 20 20 20 20 56 55 4C 20 43 4F |4.;.; VUL CO| 00001D00: 44 45 56 45 43 54 4F 52 2E 0D 3B 20 20 20 20 20 |DEVECTOR..; | 00001D10: 28 37 30 30 29 20 47 45 52 45 56 45 52 54 45 45 |(700) GEREVERTEE| 00001D20: 52 44 45 20 53 50 41 54 49 45 3B 0D 3B 20 20 20 |RDE SPATIE;.; | 00001D30: 20 20 28 37 30 31 29 3D 22 41 22 3B 20 28 37 30 | (701)="A"; (70| 00001D40: 32 29 3D 22 42 22 3B 20 2E 2E 2E 2E 2E 3B 0D 3B |2)="B"; .....;.;| 00001D50: 20 20 20 20 20 28 37 32 36 29 3D 22 5A 22 2E 0D | (726)="Z"..| 00001D60: 3B 20 20 20 20 20 50 4F 4B 45 20 53 45 54 20 31 |; POKE SET 1| 00001D70: 3B 20 44 55 53 20 22 41 22 3D 31 20 45 4E 5A 2E |; DUS "A"=1 ENZ.| 00001D80: 0D 3B 0D 56 45 43 54 4F 20 4C 44 58 20 23 30 32 |.;.VECTO LDX #02| 00001D90: 36 0D 56 45 43 54 31 20 54 58 41 0D 20 20 20 20 |6.VECT1 TXA. | 00001DA0: 20 20 53 54 41 20 20 30 30 37 30 30 2C 58 0D 20 | STA 00700,X. | 00001DB0: 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 42 | DEX. B| 00001DC0: 50 4C 20 20 56 45 43 54 31 0D 20 20 20 20 20 20 |PL VECT1. | 00001DD0: 4C 44 41 20 23 31 36 30 0D 20 20 20 20 20 20 53 |LDA #160. S| 00001DE0: 54 41 20 20 30 30 37 30 30 0D 20 20 20 20 20 20 |TA 00700. | 00001DF0: 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 |RTS.;. *=30| 00001E00: 36 34 30 0D 3B 0D 3B 20 5A 4F 45 4B 20 54 45 4B |640.;.; ZOEK TEK| 00001E10: 45 4E 20 28 30 30 32 29 20 55 49 54 20 43 4F 44 |EN (002) UIT COD| 00001E20: 45 56 45 43 54 4F 52 2E 0D 3B 20 49 4E 44 45 58 |EVECTOR..; INDEX| 00001E30: 20 28 30 31 2E 2E 32 36 29 20 49 4E 20 52 45 47 | (01..26) IN REG| 00001E40: 2E 20 58 2E 0D 3B 0D 5A 4F 45 56 45 20 4C 44 58 |. X..;.ZOEVE LDX| 00001E50: 20 23 30 32 36 20 20 20 20 20 3B 56 41 4E 41 46 | #026 ;VANAF| 00001E60: 20 4C 41 41 54 53 54 45 2E 0D 5A 4F 45 56 31 20 | LAATSTE..ZOEV1 | 00001E70: 4C 44 41 20 20 30 30 37 30 30 2C 58 20 3B 56 4F |LDA 00700,X ;VO| 00001E80: 45 52 20 54 45 4B 45 4E 20 4F 50 2E 0D 20 20 20 |ER TEKEN OP.. | 00001E90: 20 20 20 43 4D 50 20 20 30 30 32 20 20 20 20 20 | CMP 002 | 00001EA0: 3B 20 3D 20 5A 4F 45 4B 49 54 45 4D 3F 0D 20 20 |; = ZOEKITEM?. | 00001EB0: 20 20 20 20 42 45 51 20 20 5A 4F 45 56 32 20 20 | BEQ ZOEV2 | 00001EC0: 20 3B 4E 45 45 4E 3A 54 45 4C 20 41 46 2E 0D 20 | ;NEEN:TEL AF.. | 00001ED0: 20 20 20 20 20 44 45 58 20 20 20 20 20 20 20 20 | DEX | 00001EE0: 20 20 3B 4B 4C 41 41 52 3F 20 4A 41 3A 0D 20 20 | ;KLAAR? JA:. | 00001EF0: 20 20 20 20 42 4E 45 20 20 5A 4F 45 56 31 20 20 | BNE ZOEV1 | 00001F00: 20 3B 5A 45 54 20 49 4E 44 45 58 2E 0D 5A 4F 45 | ;ZET INDEX..ZOE| 00001F10: 56 32 20 52 54 53 20 20 20 20 20 20 20 20 20 20 |V2 RTS | 00001F20: 3B 4E 55 4C 3A 20 46 4F 55 54 2E 0D 3B 0D 20 20 |;NUL: FOUT..;. | 00001F30: 20 20 20 20 2A 3D 33 30 36 35 36 0D 3B 0D 3B 20 | *=30656.;.; | 00001F40: 57 49 53 53 45 4C 20 44 45 20 43 4F 44 45 20 43 |WISSEL DE CODE C| 00001F50: 4E 3D 28 31 36 38 29 0D 3B 20 4F 4D 20 4D 45 54 |N=(168).; OM MET| 00001F60: 20 44 45 20 43 4F 44 45 20 43 4F 3D 28 31 36 37 | DE CODE CO=(167| 00001F70: 29 0D 3B 20 49 4E 20 56 45 43 54 4F 52 20 45 4E |).; IN VECTOR EN| 00001F80: 20 53 50 45 45 4C 56 45 4C 44 2E 0D 3B 0D 57 49 | SPEELVELD..;.WI| 00001F90: 53 43 4F 20 4C 44 41 20 20 31 36 38 20 20 20 20 |SCO LDA 168 | 00001FA0: 3B 43 4F 44 45 20 43 4E 2E 0D 20 20 20 20 20 20 |;CODE CN.. | 00001FB0: 43 4D 50 20 20 31 36 37 20 20 20 20 3B 43 4E 3D |CMP 167 ;CN=| 00001FC0: 43 4F 3F 0D 20 20 20 20 20 20 42 45 51 20 20 57 |CO?. BEQ W| 00001FD0: 49 53 43 31 20 20 3B 4A 41 3A 20 4B 4C 41 41 52 |ISC1 ;JA: KLAAR| 00001FE0: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 |.. STA 002| 00001FF0: 20 20 20 20 3B 4E 45 45 4E 3A 5A 4F 45 4B 20 42 | ;NEEN:ZOEK B| 00002000: 49 4A 0D 20 20 20 20 20 20 4A 53 52 20 20 5A 4F |IJ. JSR ZO| 00002010: 45 56 45 20 20 3B 20 20 43 4F 44 45 20 43 4E 0D |EVE ; CODE CN.| 00002020: 20 20 20 20 20 20 43 50 58 20 23 30 30 31 20 20 | CPX #001 | 00002030: 20 20 3B 20 49 4E 44 45 58 20 49 4E 2E 0D 20 20 | ; INDEX IN.. | 00002040: 20 20 20 20 42 43 43 20 20 57 49 53 43 31 20 20 | BCC WISC1 | 00002050: 3B 20 43 4E 3D 3E 28 31 36 38 29 20 41 4C 2E 0D |; CN=>(168) AL..| 00002060: 20 20 20 20 20 20 53 54 58 20 20 31 30 37 20 20 | STX 107 | 00002070: 20 20 3B 20 49 4E 3D 3E 28 31 30 37 29 2E 0D 20 | ; IN=>(107).. | 00002080: 20 20 20 20 20 4C 44 41 20 20 31 36 37 20 20 20 | LDA 167 | 00002090: 20 3B 43 4F 44 45 20 43 4F 2E 0D 20 20 20 20 20 | ;CODE CO.. | 000020A0: 20 53 54 41 20 20 30 30 32 20 20 20 20 3B 5A 4F | STA 002 ;ZO| 000020B0: 45 4B 20 42 49 4A 0D 20 20 20 20 20 20 4A 53 52 |EK BIJ. JSR| 000020C0: 20 20 5A 4F 45 56 45 20 20 3B 20 20 43 4F 44 45 | ZOEVE ; CODE| 000020D0: 20 43 4F 0D 20 20 20 20 20 20 43 50 58 20 23 30 | CO. CPX #0| 000020E0: 30 31 20 20 20 20 3B 20 49 4E 44 45 58 20 49 4F |01 ; INDEX IO| 000020F0: 2E 0D 20 20 20 20 20 20 42 43 43 20 20 57 49 53 |.. BCC WIS| 00002100: 43 31 20 20 3B 20 43 4F 3D 3E 28 30 30 32 29 2E |C1 ; CO=>(002).| 00002110: 0D 20 20 20 20 20 20 53 54 58 20 20 31 36 37 20 |. STX 167 | 00002120: 20 20 20 3B 20 49 4F 3D 3E 28 31 36 37 29 2E 0D | ; IO=>(167)..| 00002130: 20 20 20 20 20 20 4C 44 41 20 20 54 43 41 4B 4C | LDA TCAKL| 00002140: 20 20 3B 4B 4C 45 55 52 27 4E 49 45 55 57 27 2E | ;KLEUR'NIEUW'.| 00002150: 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 39 0D |. STA 169.| 00002160: 20 20 20 20 20 20 4A 53 52 20 20 49 5A 4F 45 4B | JSR IZOEK| 00002170: 20 20 3B 56 45 52 56 41 4E 47 2E 0D 20 20 20 20 | ;VERVANG.. | 00002180: 20 20 4C 44 41 20 20 31 30 37 20 20 20 20 3B 20 | LDA 107 ; | 00002190: 49 4E 3D 3E 28 31 36 37 29 2E 0D 20 20 20 20 20 |IN=>(167).. | 000021A0: 20 53 54 41 20 20 31 36 37 20 20 20 20 3B 20 43 | STA 167 ; C| 000021B0: 4F 3D 3E 28 31 36 38 29 2E 0D 20 20 20 20 20 20 |O=>(168).. | 000021C0: 4C 44 41 20 20 30 30 32 0D 20 20 20 20 20 20 53 |LDA 002. S| 000021D0: 54 41 20 20 31 36 38 0D 20 20 20 20 20 20 4C 44 |TA 168. LD| 000021E0: 41 20 20 54 43 42 4B 4C 20 20 3B 4B 4C 45 55 52 |A TCBKL ;KLEUR| 000021F0: 20 27 4F 55 44 27 2E 0D 20 20 20 20 20 20 53 54 | 'OUD'.. ST| 00002200: 41 20 20 31 36 39 0D 20 20 20 20 20 20 4A 53 52 |A 169. JSR| 00002210: 20 20 49 5A 4F 45 4B 20 20 3B 56 45 52 56 41 4E | IZOEK ;VERVAN| 00002220: 47 2E 0D 57 49 53 43 31 20 52 54 53 0D 20 20 20 |G..WISC1 RTS. | 00002230: 20 20 20 4E 4F 50 0D 3B 0D 20 20 20 20 20 20 2E | NOP.;. .| 00002240: 44 42 59 54 45 20 24 46 46 46 46 2C 24 46 46 46 |DBYTE $FFFF,$FFF| 00002250: 46 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 |F. .DBYTE $| 00002260: 46 46 46 46 2C 24 46 46 46 46 0D 3B 0D 20 20 20 |FFFF,$FFFF.;. | 00002270: 20 20 20 4B 47 4B 4C 45 3D 33 31 36 30 30 20 3B | KGKLE=31600 ;| 00002280: 4B 4C 45 55 52 47 45 48 45 55 47 45 4E 2E 0D 20 |KLEURGEHEUGEN.. | 00002290: 20 20 20 20 20 56 47 4B 4C 45 3D 33 31 36 30 31 | VGKLE=31601| 000022A0: 20 3B 4B 4C 45 55 52 20 56 4F 4F 52 47 52 44 2E | ;KLEUR VOORGRD.| 000022B0: 0D 20 20 20 20 20 20 41 47 4B 4C 45 3D 33 31 36 |. AGKLE=316| 000022C0: 30 32 20 3B 4B 4C 45 55 52 20 41 43 48 54 2E 47 |02 ;KLEUR ACHT.G| 000022D0: 44 2E 0D 20 20 20 20 20 20 54 45 4B 4B 4C 3D 33 |D.. TEKKL=3| 000022E0: 31 36 30 33 20 3B 4B 4C 45 55 52 20 54 45 4B 45 |1603 ;KLEUR TEKE| 000022F0: 4E 53 2E 0D 20 20 20 20 20 20 54 43 4F 4B 4C 3D |NS.. TCOKL=| 00002300: 33 31 36 30 34 20 3B 4B 4C 45 55 52 20 42 45 47 |31604 ;KLEUR BEG| 00002310: 49 4E 2E 0D 20 20 20 20 20 20 54 43 41 4B 4C 3D |IN.. TCAKL=| 00002320: 33 31 36 30 35 20 3B 4B 4C 45 55 52 20 43 4F 44 |31605 ;KLEUR COD| 00002330: 45 2E 0D 20 20 20 20 20 20 54 43 42 4B 4C 3D 33 |E.. TCBKL=3| 00002340: 31 36 30 36 20 3B 4B 4C 45 55 52 20 43 4F 44 45 |1606 ;KLEUR CODE| 00002350: 2F 43 4F 4D 2E 0D 3B 0D 20 20 20 20 20 20 53 41 |/COM..;. SA| 00002360: 44 52 4C 3D 33 31 36 30 37 20 3B 53 43 48 45 52 |DRL=31607 ;SCHER| 00002370: 4D 56 45 4C 44 0D 20 20 20 20 20 20 53 41 44 52 |MVELD. SADR| 00002380: 48 3D 33 31 36 30 38 20 3B 42 45 47 49 4E 41 44 |H=31608 ;BEGINAD| 00002390: 52 45 53 2E 0D 20 20 20 20 20 20 53 41 45 52 4C |RES.. SAERL| 000023A0: 3D 33 31 36 30 39 0D 20 20 20 20 20 20 53 41 45 |=31609. SAE| 000023B0: 52 48 3D 33 31 36 31 30 0D 3B 0D 20 20 20 20 20 |RH=31610.;. | 000023C0: 20 53 42 44 52 4C 3D 33 31 36 31 31 20 3B 53 50 | SBDRL=31611 ;SP| 000023D0: 45 45 4C 56 45 4C 44 0D 20 20 20 20 20 20 53 42 |EELVELD. SB| 000023E0: 44 52 48 3D 33 31 36 31 32 20 3B 42 45 47 49 4E |DRH=31612 ;BEGIN| 000023F0: 41 44 52 45 53 2E 0D 3B 0D 20 20 20 20 20 20 53 |ADRES..;. S| 00002400: 4B 44 52 4C 3D 33 31 36 31 33 20 3B 4B 4C 45 55 |KDRL=31613 ;KLEU| 00002410: 52 56 45 4C 44 0D 20 20 20 20 20 20 53 4B 44 52 |RVELD. SKDR| 00002420: 48 3D 33 31 36 31 34 20 3B 42 45 47 49 4E 41 44 |H=31614 ;BEGINAD| 00002430: 52 45 53 2E 0D 3B 0D 20 20 20 20 20 20 53 49 44 |RES..;. SID| 00002440: 52 4C 3D 33 31 36 31 35 20 3B 49 4E 44 45 58 56 |RL=31615 ;INDEXV| 00002450: 45 4C 44 0D 20 20 20 20 20 20 53 49 44 52 48 3D |ELD. SIDRH=| 00002460: 33 31 36 31 36 20 3B 42 45 47 49 4E 41 44 52 45 |31616 ;BEGINADRE| 00002470: 53 2E 0D 3B 0D 20 20 20 20 20 20 53 4C 44 52 4C |S..;. SLDRL| 00002480: 3D 33 31 36 31 37 20 3B 4B 4C 45 55 52 53 50 45 |=31617 ;KLEURSPE| 00002490: 45 4C 56 45 4C 44 0D 20 20 20 20 20 20 53 4C 44 |ELVELD. SLD| 000024A0: 52 48 3D 33 31 36 31 38 20 3B 42 45 47 49 4E 41 |RH=31618 ;BEGINA| 000024B0: 44 52 45 53 2E 0D 3B 0D 20 20 20 20 20 20 42 4B |DRES..;. BK| 000024C0: 44 52 4C 3D 33 31 36 31 39 20 3B 56 49 43 2D 43 |DRL=31619 ;VIC-C| 000024D0: 48 49 50 20 42 41 4E 4B 0D 20 20 20 20 20 20 42 |HIP BANK. B| 000024E0: 4B 44 52 48 3D 33 31 36 32 30 20 3B 42 45 47 49 |KDRH=31620 ;BEGI| 000024F0: 4E 41 44 52 45 53 2E 0D 3B 0D 20 20 20 20 20 20 |NADRES..;. | 00002500: 4B 52 4F 4D 4C 3D 33 31 36 32 31 20 3B 4B 41 52 |KROML=31621 ;KAR| 00002510: 41 4B 54 45 52 2D 52 4F 4D 0D 20 20 20 20 20 20 |AKTER-ROM. | 00002520: 4B 52 4F 4D 48 3D 33 31 36 32 32 20 3B 42 45 47 |KROMH=31622 ;BEG| 00002530: 49 4E 41 44 52 45 53 2E 0D 3B 0D 20 20 20 20 20 |INADRES..;. | 00002540: 20 42 4B 41 52 4C 3D 33 31 36 32 33 20 3B 4B 41 | BKARL=31623 ;KA| 00002550: 52 41 4B 54 45 52 2D 52 41 4D 0D 20 20 20 20 20 |RAKTER-RAM. | 00002560: 20 42 4B 41 52 48 3D 33 31 36 32 34 20 3B 42 45 | BKARH=31624 ;BE| 00002570: 47 49 4E 41 44 52 45 53 2E 0D 3B 0D 20 20 20 20 |GINADRES..;. | 00002580: 20 20 42 4B 43 52 4C 3D 33 31 36 32 35 20 3B 4B | BKCRL=31625 ;K| 00002590: 41 52 41 4B 54 45 52 2D 52 41 4D 0D 20 20 20 20 |ARAKTER-RAM. | 000025A0: 20 20 42 4B 43 52 48 3D 33 31 36 32 36 20 3B 42 | BKCRH=31626 ;B| 000025B0: 45 47 49 4E 41 44 52 45 53 2E 0D 3B 0D 20 20 20 |EGINADRES..;. | 000025C0: 20 20 20 4B 41 52 4B 4C 3D 33 31 36 32 37 20 3B | KARKL=31627 ;| 000025D0: 4B 41 52 41 4B 54 45 52 44 41 54 41 0D 20 20 20 |KARAKTERDATA. | 000025E0: 20 20 20 4B 41 52 4B 48 3D 33 31 36 32 38 20 3B | KARKH=31628 ;| 000025F0: 42 45 47 49 4E 41 44 52 45 53 2E 0D 3B 0D 20 20 |BEGINADRES..;. | 00002600: 20 20 20 20 42 4C 54 52 41 3D 33 30 37 32 30 20 | BLTRA=30720 | 00002610: 3B 42 4C 4F 4B 54 52 41 4E 53 50 4F 52 54 2E 0D |;BLOKTRANSPORT..| 00002620: 20 20 20 20 20 20 42 4C 56 55 4C 3D 33 30 37 36 | BLVUL=3076| 00002630: 38 20 3B 42 4C 4F 4B 56 55 4C 4C 45 4E 2E 0D 20 |8 ;BLOKVULLEN.. | 00002640: 20 20 20 20 20 4D 55 4C 4F 50 3D 33 30 38 30 34 | MULOP=30804| 00002650: 20 3B 56 45 52 4D 45 4E 2E 56 2E 4D 2F 4F 50 54 | ;VERMEN.V.M/OPT| 00002660: 2E 0D 20 20 20 20 20 20 44 45 43 58 59 3D 33 30 |.. DECXY=30| 00002670: 38 34 38 20 3B 44 45 43 4F 4E 56 45 52 53 49 45 |848 ;DECONVERSIE| 00002680: 2E 0D 20 20 20 20 20 20 4D 45 42 4C 4F 3D 33 31 |.. MEBLO=31| 00002690: 33 38 38 20 3B 52 45 47 45 4C 56 55 4C 2E 0D 3B |388 ;REGELVUL..;| 000026A0: 0D 20 20 20 20 20 20 2E 45 4E 44 0D |. .END. |
;.; PROGRAMMA : HULP SET TWEE..; BRON
CODE : PUZTWE.ASM ..; OBJECTCODE
: PUZTWE.OBJ ..; DISK : ASSEM
BLERBRON..; TAAL : ASSEMBLER C64
..; DATUM : 10 SEPT.1991..; PROGR
AMMEUR : J.H.VAN RIJN..;.; OP DEZE SET
STAAN SUBPROGRAMMA'S.; VOOR CODEPUZZELS.
.;.;=================================.;.
; DECIM HEXA SYMBL FUNCTIE.;.; 30156 75C
C SCNIN SCHERM NAAR.; I
NDEXVELD..; 30208 7600 COCYF CIJF.IVM/CO
DE.; NAAR SCHERM..; 302
88 7650 NYSCM SCHERM EN BANK.;
U/ADRES (648)..; 30316 766C BLKA
R KAR.BL.EN BANK.; U/AD
RES (681)..; 30464 7700 COVES CODEVECTOR
NAAR.; SCHERM:(701)...
.; 30496 7720 KLEBO KLEUR HET BOOD-.;
SCHAPPENVELD..; 30508 772
C BPOET POETS HET BOOD-.;
SCHAPPENVELD..; 30528 7740 TEKIN TEKE
N VAN 002.; NAAR SPEELV
ELD..; 30536 7748 INSCO INDEXVELD NAAR.;
SPEELV.M/CODE..; 30624
77A0 VECTO CODEVECTOR MET.;
ONGECOD.ALFAB..; 30656 77C0 WISCO
WISSEL 2 COD.OM.; IN SP
LV.& VECT..;.;.; INTERN..; =
======.;.; 30348 768C IZOEK INDEXZOEK EN
.; CODE VERVANGEN..; 30
640 77B0 ZOEVE ZOEK TEKEN UIT.;
CODEVECTOR..;.;. *=30156.;
.; SCHERM NAAR INDEXVELD..;.SCNIN LD
A SBDRL ;HAALADRES.. STA 251.
LDA SBDRH. STA 252. LDA
SIDRL ;BRENGADRES.. STA 253.
LDA SIDRH. STA 254. LDA 00
731 ;AANTAL REGELS.. STA 033.
LDA 00730 ;AANT.BYTES/RG.. STA
034. LDA #040 ;OPHOGEN VAN.
STA 100 ;HAALADRES.. LDA #000
. STA 101. LDA 00730 ;OPHOG
EN VAN. STA 107 ;BRENGADRES..
LDA #000. STA 108. JSR B
LTRA ;TRANSPORT.. RTS. .DBYTE
$EAEA,$EAEA.;. *=30208.;.; CIJ
FERS OP SCHERM IVM.CODE..;.COCYF LDX #00
3 ;ADRESSEN IN.COCY1 LDA SADRL,X ;25
1..254.. STA 251,X. DEX.
BPL COCY1. LDA #048 ;CIJFERS 0
1-13.. STA 101 ;TIENTALLEN..
STA 100 ;EENHEDEN.. LDA #049
;CIJFERS 14-26.. STA 108 ;T
IENTALLEN.. LDA #051 ;EENHEDEN..
STA 107. LDY #001 ;SCHERM
ADRES.. LDX #012 ;01-13,14-26..C
OCY2 INC 107 ;TWEEDE RIJ:. LDA
107 ;EENHEDEN + 1.. CMP #058
;OVER DE NEGEN:. BCC COCY3 ;TIEN
TALLEN + 1;. INC 108 ;TEVENS EE
NH. 0.. LDA #048. STA 107.COC
Y3 INC 100 ;EERSTE RIJ:. LDA 1
00 ;EENHEDEN + 1.. CMP #058 ;
OVER DE NEGEN:. BCC COCY4 ;TIENTA
LLEN + 1;. INC 101 ;TEVENS EENH
. 0.. LDA #048. STA 100.COCY4
LDA 101 ;EERSTE RIJ DE. STA (2
51),Y ;TIENTALLEN.. LDA 108 ;TW
EEDE RIJ DE. STA (253),Y ;TIENTALLE
N.. INY. LDA 100 ;EERSTE R
IJ DE. STA (251),Y ;EENHEDEN..
LDA 107 ;TWEEDE RIJ DE. STA (2
53),Y ;EENHEDEN.. INY ;VOLG
ENDE POS.. INY ;TWEE VERDER
.. DEX ;AFTELLEN.. BPL
COCY2. RTS. .DBYTE $EAEA,$EA
EA.;. *=30288.;.; (00648) -> SCHERM
BLOK, BANK (X)..;.NYSCM LDA 00648 ;SCH
ERMADRES.. PHA. ROL A. R
OL A. AND #240. STA 002.
LDA 53272. AND #015. ORA 0
02. STA 53272. PLA. ROL
A. ROL A. ROL A. AND #
003. TAX. RTS. .DBYTE $EA
EA,$EAEA.;. *=30316.;.; (00681) ->
KARAK.BLOK, BANK (X)..;.BLKAR LDA 00681
;KARAK.ADRES.. PHA. LSR A.
LSR A. AND #015. STA 00
2. LDA 53272. AND #240.
ORA 002. STA 53272. PLA.
ROL A. ROL A. ROL A.
AND #003. TAX. RTS. .DBY
TE $EAEA,$EAEA.;. *=30348.;.; ZOEK
INDEX (167) UIT INDEXVELD..; INDIEN GEVO
NDEN: VERVANG IN HET.; SPEELVELD DE OUDE
CODE DOOR DE.; NIEUWE CODE (168); TEVEN
S DE.; KLEUR (169) INZETTEN..; DOE HETZE
LFDE IN DE CODE-.; VECTOR (701)....(726)
..;.IZOEK LDA SIDRL ;INDEXVELD..
STA 247. LDA SIDRH. STA 248
. LDA SBDRL ;SPEELVELD.. STA
251. LDA SBDRH. STA 252.
LDA SLDRL ;SPEELV.KLEUR.. STA
253. LDA SLDRH. STA 254.
LDX 00731 ;AANTAL REGELS.. CL
C. BCC IZOE4.IZOE1 LDY 00730 ;AA
NTAL BYTES. CLC ;PER REGEL.
. BCC IZOE3.IZOE2 LDA (247),Y ;IND
EX UIT VELD.. BEQ IZOE3 ; = NUL?
. CMP 167 ;OF=ZOEKINDEX?.
BNE IZOE3 ;NEE:DOORGAAN.. LDA 16
8 ;NIEUW TEKEN. STA (251),Y ;IN
SPEELVELD OP. LDA 169 ;ZELFDE P
LAATS.. STA (253),Y ;OOK DE KLEUR..
IZOE3 DEY ;AFTELLEN BYTES..
BPL IZOE2. CLC ;HOOG REG.
ADR.OP. LDA 247 ;MET AANT./REG.
. ADC 00730. STA 247. L
DA 248. ADC #000. STA 248.
CLC ;OPHOGEN ADRES. LDA
251 ;SPEELV.MET 40.. ADC #040.
STA 251. LDA 252. ADC
#000. STA 252. CLC ;O
PHOGEN ADRES. LDA 253 ;KLEUR SP
EELV.. ADC #040 ;MET 40.. S
TA 253. LDA 254. ADC #000.
STA 254.IZOE4 DEX ;AFTEL V.
REGELS.. BPL IZOE1 ;EIND:VERVANG.
LDX 167 ;IN VECTOR.. LDA
168. STA 00700,X. RTS.
.DBYTE $EAEA,$EAEA.;. *=30464.;.; L
ETTERS U/CODEVECTOR N/SCHERM..;.COVES LD
X #003 ;ADRESSEN IN.COVE1 LDA 00696
,X ;251...254.. STA 251,X. DE
X. BPL COVE1. LDX #012 ;A
FTELLER POS.. LDY #036 ;PLAATS.
.COVE2 LDA 00701,X ;TEKEN A-M.. ST
A (251),Y. LDA 00714,X ;TEKEN N-Z.
. STA (253),Y. DEY. DEY.
DEY. DEX ;TEL AF..
BPL COVE2. RTS. .DBYTE $EA
EA,$EAEA.;. *=30496.;.; KLEUR H
ET BOODSCHAPPENVELD..;.KLEBO LDA TEKKL
;KLEUR.. LDX #006 ;ADRES..
CLC. BCC VULSC. .DBYTE $EAEA,
$EAEA.;. *=30508.;.; POETS HET
BOODSCHAPPENVELD..;.BPOET LDA #032 ;S
PATIE.. LDX #000 ;ADRES..VULSC S
TA 251. LDA #005 ;5 REGELS..
STA 033. LDA #040 ;40 BYTES/
REGEL.. STA 034. JSR MEBLO.
RTS. .DBYTE $EAEA,$EAEA.;.
*=30528.;.; TEKEN (002) IN SPEELVE
LD..;.TEKIN LDY 249 ;TE VOREN ADRES.
LDA 002 ;IN (252,251).. S
TA (251),Y. RTS. .DBYTE $EAEA,
$EAEA.;. *=30536.;.; INDEXVELD
NAAR SPEELVELD MET.; CODERING VOLGEN
S DE VECTOR.; (700)(701)....(726)..;
.INSCO LDA SIDRL ;HAALADRES VAN.
STA 251 ;INDEXVELD.. LDA SIDRH
. STA 252. LDA SBDRL ;BRENG
ADRES VAN. STA 253 ;SPEELVELD..
LDA SBDRH. STA 254. LD
X 00731 ;AANTAL REGELS.. CLC.
BCC INSC5.INSC1 LDY 00730 ;AANTAL B
YTES. CLC ;PER REGEL..
BCC INSC4 ;VOER OP.INSC2 LDA (251),Y
;BYTE-INDEX.. STY 002 ;RED (Y).
. CMP #027 ;SPATIE OF A-Z?.
BCC INSC3 ;NEEN:ZET NUL.. LDA #0
00.INSC3 TAY ;IND.VOOR VECT..
LDA 00700,Y ;CODEREN.. LDY 00
2 ;HERSTEL (Y).. STA (253),Y
;IN SPEELVELD..INSC4 DEY ;BYTE-
AFTEL.. BPL INSC2. CLC
;HAALADRES. LDA 251 ;OPHOGEN
MET. ADC 00730 ;AANTAL BYTES.
STA 251 ;PER REGEL.. LDA 252
. ADC #000. STA 252. CLC
;BRENGADRES. LDA 253 ;
OPHOGEN. ADC #040 ;MET 40..
STA 253. LDA 254. ADC #000.
STA 254.INSC5 DEX ;REGEL-
AFTEL.. BPL INSC1. RTS.;.
*=30624.;.; VUL CODEVECTOR..;
(700) GEREVERTEERDE SPATIE;.; (701)=
"A"; (702)="B"; .....;.; (726)="Z"..
; POKE SET 1; DUS "A"=1 ENZ..;.VECTO
LDX #026.VECT1 TXA. STA 00700,X.
DEX. BPL VECT1. LDA #160
. STA 00700. RTS.;. *=30
640.;.; ZOEK TEKEN (002) UIT CODEVECTOR.
.; INDEX (01..26) IN REG. X..;.ZOEVE LDX
#026 ;VANAF LAATSTE..ZOEV1 LDA 007
00,X ;VOER TEKEN OP.. CMP 002
; = ZOEKITEM?. BEQ ZOEV2 ;NEEN:T
EL AF.. DEX ;KLAAR? JA:.
BNE ZOEV1 ;ZET INDEX..ZOEV2 RTS
;NUL: FOUT..;. *=30656.;.;
WISSEL DE CODE CN=(168).; OM MET DE CODE
CO=(167).; IN VECTOR EN SPEELVELD..;.WI
SCO LDA 168 ;CODE CN.. CMP 167
;CN=CO?. BEQ WISC1 ;JA: KLAAR
.. STA 002 ;NEEN:ZOEK BIJ.
JSR ZOEVE ; CODE CN. CPX #001
; INDEX IN.. BCC WISC1 ; CN=>(1
68) AL.. STX 107 ; IN=>(107)..
LDA 167 ;CODE CO.. STA 00
2 ;ZOEK BIJ. JSR ZOEVE ; CODE
CO. CPX #001 ; INDEX IO..
BCC WISC1 ; CO=>(002).. STX 167
; IO=>(167).. LDA TCAKL ;KLEUR
'NIEUW'.. STA 169. JSR IZOEK
;VERVANG.. LDA 107 ; IN=>(167
).. STA 167 ; CO=>(168)..
LDA 002. STA 168. LDA TCBKL
;KLEUR 'OUD'.. STA 169. JSR
IZOEK ;VERVANG..WISC1 RTS. NOP.;
. .DBYTE $FFFF,$FFFF. .DBYTE $
FFFF,$FFFF.;. KGKLE=31600 ;KLEURGEH
EUGEN.. VGKLE=31601 ;KLEUR VOORGRD.
. AGKLE=31602 ;KLEUR ACHT.GD..
TEKKL=31603 ;KLEUR TEKENS.. TCOKL=
31604 ;KLEUR BEGIN.. TCAKL=31605 ;K
LEUR CODE.. TCBKL=31606 ;KLEUR CODE
/COM..;. SADRL=31607 ;SCHERMVELD.
SADRH=31608 ;BEGINADRES.. SAERL
=31609. SAERH=31610.;. SBDRL=3
1611 ;SPEELVELD. SBDRH=31612 ;BEGIN
ADRES..;. SKDRL=31613 ;KLEURVELD.
SKDRH=31614 ;BEGINADRES..;. SID
RL=31615 ;INDEXVELD. SIDRH=31616 ;B
EGINADRES..;. SLDRL=31617 ;KLEURSPE
ELVELD. SLDRH=31618 ;BEGINADRES..;.
BKDRL=31619 ;VIC-CHIP BANK. B
KDRH=31620 ;BEGINADRES..;. KROML=31
621 ;KARAKTER-ROM. KROMH=31622 ;BEG
INADRES..;. BKARL=31623 ;KARAKTER-R
AM. BKARH=31624 ;BEGINADRES..;.
BKCRL=31625 ;KARAKTER-RAM. BKCRH=
31626 ;BEGINADRES..;. KARKL=31627 ;
KARAKTERDATA. KARKH=31628 ;BEGINADR
ES..;. BLTRA=30720 ;BLOKTRANSPORT..
BLVUL=30768 ;BLOKVULLEN.. MUL
OP=30804 ;VERMEN.V.M/OPT.. DECXY=30
848 ;DECONVERSIE.. MEBLO=31388 ;REG
ELVUL..;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL