PUZZEL.ASM
FILE INFORMATION
FILENAME(S): PUZZEL.ASM
FILE TYPE(S): SEQ
FILE SIZE: 18.8K
FIRST SEEN: 2025-11-30 21:26:13
APPEARS ON: 1 disk(s)
FILE HASH
fbeff21939d0a6f1c8e7e34970970870ef29e9ee2df3e41396ee9d6fe4d1c700
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 1 | PUZZEL.ASM | SEQ | DuncanTwain | 25 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 0D 3B 20 20 20 20 20 50 55 5A 5A 45 4C 2E 41 |;.; PUZZEL.A| 00000010: 53 4D 20 2E 0D 3B 20 20 20 20 20 3D 3D 3D 3D 3D |SM ..; =====| 00000020: 3D 3D 3D 3D 3D 3D 3D 0D 3B 0D 3B 20 20 20 20 20 |=======.;.; | 00000030: 50 52 4F 47 52 41 4D 4D 41 27 53 20 56 4F 4F 52 |PROGRAMMA'S VOOR| 00000040: 20 50 55 5A 5A 45 4C 53 2E 0D 3B 0D 3B 20 20 20 | PUZZELS..;.; | 00000050: 20 20 53 43 48 49 4A 46 20 44 45 4D 4F 2D 31 2E | SCHIJF DEMO-1.| 00000060: 0D 3B 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |.; =========| 00000070: 3D 3D 3D 3D 3D 0D 3B 0D 3B 20 20 20 20 20 32 34 |=====.;.; 24| 00000080: 20 4A 55 4E 49 20 31 39 39 31 2E 20 20 4A 2E 48 | JUNI 1991. J.H| 00000090: 2E 56 41 4E 20 52 49 4A 4E 2E 0D 3B 0D 3B 3D 3D |.VAN RIJN..;.;==| 000000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000000B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D |===============.| 000000C0: 3B 0D 3B 20 44 45 43 49 4D 20 48 45 58 41 20 53 |;.; DECIM HEXA S| 000000D0: 59 4D 42 4C 20 46 55 4E 43 54 49 45 0D 3B 0D 3B |YMBL FUNCTIE.;.;| 000000E0: 20 32 39 36 39 36 20 37 34 30 30 20 49 4E 4C 4F | 29696 7400 INLO| 000000F0: 50 20 5A 45 54 20 56 45 4C 44 45 4E 20 45 4E 0D |P ZET VELDEN EN.| 00000100: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000110: 20 20 20 56 41 52 49 41 42 45 4C 45 4E 2E 0D 3B | VARIABELEN..;| 00000120: 20 32 39 38 33 32 20 37 34 38 38 20 4C 49 4E 43 | 29832 7488 LINC| 00000130: 52 20 4C 4F 50 45 52 20 49 4E 43 52 45 4D 2E 0D |R LOPER INCREM..| 00000140: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000150: 20 20 20 4F 50 20 28 58 29 2E 0D 3B 20 32 39 38 | OP (X)..; 298| 00000160: 35 32 20 37 34 39 43 20 4C 44 45 43 52 20 4C 4F |52 749C LDECR LO| 00000170: 50 45 52 20 44 45 43 52 45 4D 2E 0D 3B 20 20 20 |PER DECREM..; | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F | O| 00000190: 50 20 28 58 29 2E 0D 3B 20 32 39 38 37 32 20 37 |P (X)..; 29872 7| 000001A0: 34 42 30 20 49 4E 54 4C 4F 20 53 50 45 45 4C 56 |4B0 INTLO SPEELV| 000001B0: 45 4C 44 20 4C 4F 50 45 52 0D 3B 20 20 20 20 20 |ELD LOPER.; | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 54 | MET| 000001D0: 20 54 45 4B 45 4E 20 55 49 54 2E 0D 3B 20 32 39 | TEKEN UIT..; 29| 000001E0: 39 32 34 20 37 34 45 34 20 54 4F 45 54 53 20 41 |924 74E4 TOETS A| 000001F0: 43 43 45 50 54 20 54 4F 45 54 53 2E 0D 3B 20 20 |CCEPT TOETS..; | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 41 53 43 49 49 20 49 4E 20 30 30 32 2E 0D 3B 20 |ASCII IN 002..; | 00000220: 32 39 39 35 32 20 37 35 30 30 20 4C 4F 50 45 52 |29952 7500 LOPER| 00000230: 20 54 45 4B 45 4E 20 4F 50 20 4C 4F 50 45 52 0D | TEKEN OP LOPER.| 00000240: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000250: 20 20 20 4F 46 20 4F 50 20 27 48 4F 4D 45 27 2E | OF OP 'HOME'.| 00000260: 0D 3B 20 33 30 30 31 34 20 37 35 33 45 20 53 43 |.; 30014 753E SC| 00000270: 48 52 4D 20 56 55 4C 20 53 43 48 45 52 4D 0D 3B |HRM VUL SCHERM.;| 00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000290: 20 20 4D 45 54 20 42 4C 4F 4B 4A 45 53 2E 0D 3B | MET BLOKJES..;| 000002A0: 20 33 30 30 34 38 20 37 35 36 30 20 4B 4C 45 55 | 30048 7560 KLEU| 000002B0: 52 20 56 55 4C 20 4B 4C 45 55 52 56 45 4C 44 0D |R VUL KLEURVELD.| 000002C0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 000002D0: 20 20 20 4D 2F 4B 4C 45 55 52 20 4B 47 4B 4C 45 | M/KLEUR KGKLE| 000002E0: 2E 0D 3B 20 33 30 30 38 33 20 37 35 38 33 20 4B |..; 30083 7583 K| 000002F0: 4C 45 53 50 20 56 55 4C 20 53 50 45 45 4C 56 45 |LESP VUL SPEELVE| 00000300: 4C 44 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |LD.; | 00000310: 20 20 20 20 20 20 4D 2F 4B 4C 45 55 52 20 54 43 | M/KLEUR TC| 00000320: 4F 4B 4C 2E 0D 3B 20 33 30 31 32 30 20 37 35 41 |OKL..; 30120 75A| 00000330: 38 20 43 4F 56 45 53 20 43 4F 44 45 56 45 43 54 |8 COVES CODEVECT| 00000340: 4F 52 20 4E 41 41 52 0D 3B 20 20 20 20 20 20 20 |OR NAAR.; | 00000350: 20 20 20 20 20 20 20 20 20 20 20 53 43 48 45 52 | SCHER| 00000360: 4D 3A 28 37 30 31 29 2E 2E 2E 0D 3B 20 33 30 31 |M:(701)....; 301| 00000370: 35 32 20 37 35 43 38 20 53 54 49 50 53 20 56 55 |52 75C8 STIPS VU| 00000380: 4C 20 53 50 45 45 4C 56 45 4C 44 0D 3B 20 20 20 |L SPEELVELD.; | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D | M| 000003A0: 45 54 20 53 54 49 50 50 45 4E 2E 0D 3B 20 33 30 |ET STIPPEN..; 30| 000003B0: 31 38 38 20 37 35 45 43 20 54 45 4B 49 4E 20 54 |188 75EC TEKIN T| 000003C0: 45 4B 45 4E 20 56 41 4E 20 30 30 32 0D 3B 20 20 |EKEN VAN 002.; | 000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003E0: 4E 41 41 52 20 53 50 45 45 4C 56 45 4C 44 2E 0D |NAAR SPEELVELD..| 000003F0: 3B 20 33 30 32 30 38 20 37 36 30 30 20 43 4F 43 |; 30208 7600 COC| 00000400: 59 46 20 43 49 4A 46 2E 49 56 4D 2F 43 4F 44 45 |YF CIJF.IVM/CODE| 00000410: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 00000420: 20 20 20 20 4E 41 41 52 20 53 43 48 45 52 4D 2E | NAAR SCHERM.| 00000430: 0D 3B 20 33 30 32 38 38 20 37 36 35 30 20 42 50 |.; 30288 7650 BP| 00000440: 4F 45 54 20 50 4F 45 54 53 20 42 4F 4F 44 2D 0D |OET POETS BOOD-.| 00000450: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000460: 20 20 20 53 43 48 41 50 50 45 4E 56 45 4C 44 2E | SCHAPPENVELD.| 00000470: 0D 3B 20 33 30 34 30 33 20 37 36 43 33 20 53 43 |.; 30403 76C3 SC| 00000480: 4E 49 4E 20 53 43 48 45 52 4D 20 4E 41 41 52 0D |NIN SCHERM NAAR.| 00000490: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 000004A0: 20 20 20 49 4E 44 45 58 56 45 4C 44 2E 0D 3B 20 | INDEXVELD..; | 000004B0: 33 30 35 37 36 20 37 37 37 30 20 49 4E 53 43 4F |30576 7770 INSCO| 000004C0: 20 49 4E 44 45 58 56 45 4C 44 20 4E 41 41 52 0D | INDEXVELD NAAR.| 000004D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 000004E0: 20 20 20 53 50 45 45 4C 56 2E 4D 2F 43 4F 44 45 | SPEELV.M/CODE| 000004F0: 2E 0D 3B 20 33 30 36 38 38 20 37 37 45 30 20 56 |..; 30688 77E0 V| 00000500: 45 43 54 4F 20 43 4F 44 45 56 45 43 54 4F 52 20 |ECTO CODEVECTOR | 00000510: 4D 45 54 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |MET.; | 00000520: 20 20 20 20 20 20 20 4F 4E 47 45 43 4F 44 2E 41 | ONGECOD.A| 00000530: 4C 46 41 42 2E 0D 3B 20 33 30 37 30 34 20 37 37 |LFAB..; 30704 77| 00000540: 46 30 20 5A 4F 45 56 45 20 5A 4F 45 4B 20 54 45 |F0 ZOEVE ZOEK TE| 00000550: 4B 45 4E 20 55 49 54 0D 3B 20 20 20 20 20 20 20 |KEN UIT.; | 00000560: 20 20 20 20 20 20 20 20 20 20 20 43 4F 44 45 56 | CODEV| 00000570: 45 43 54 4F 52 2E 0D 3B 20 33 30 37 36 38 20 37 |ECTOR..; 30768 7| 00000580: 38 33 30 20 57 49 53 43 4F 20 57 49 53 53 45 4C |830 WISCO WISSEL| 00000590: 20 32 20 43 4F 44 2E 4F 4D 0D 3B 20 20 20 20 20 | 2 COD.OM.; | 000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4E 20 | IN | 000005B0: 53 50 4C 56 2E 26 20 56 45 43 54 2E 0D 3B 0D 3B |SPLV.& VECT..;.;| 000005C0: 0D 3B 20 20 20 20 20 20 20 49 4E 54 45 52 4E 2E |.; INTERN.| 000005D0: 0D 3B 20 20 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D |.; =======| 000005E0: 0D 3B 0D 3B 20 33 30 33 32 32 20 37 36 37 32 20 |.;.; 30322 7672 | 000005F0: 42 4C 54 52 41 20 42 4C 4F 4B 54 52 41 4E 53 50 |BLTRA BLOKTRANSP| 00000600: 4F 52 54 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |ORT.; | 00000610: 20 20 20 20 20 20 20 4D 2F 56 41 52 2E 4C 45 4E | M/VAR.LEN| 00000620: 2E 26 41 46 53 2E 0D 3B 20 33 30 33 36 39 20 37 |.&AFS..; 30369 7| 00000630: 36 41 31 20 42 4C 56 55 4C 20 42 4C 4F 4B 56 55 |6A1 BLVUL BLOKVU| 00000640: 4C 4C 45 4E 20 4D 45 54 0D 3B 20 20 20 20 20 20 |LLEN MET.; | 00000650: 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 2E | VAR.| 00000660: 4C 45 4E 2E 26 20 41 46 53 54 2E 0D 3B 20 33 30 |LEN.& AFST..; 30| 00000670: 34 36 34 20 37 37 30 30 20 49 5A 4F 45 4B 20 49 |464 7700 IZOEK I| 00000680: 4E 44 45 58 5A 4F 45 4B 20 45 4E 0D 3B 20 20 20 |NDEXZOEK EN.; | 00000690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 | C| 000006A0: 4F 44 45 20 56 45 52 56 41 4E 47 45 4E 2E 0D 3B |ODE VERVANGEN..;| 000006B0: 20 33 30 36 36 34 20 37 37 43 38 20 44 45 43 58 | 30664 77C8 DECX| 000006C0: 59 20 31 30 28 58 29 2B 28 59 29 3D 3E 28 32 29 |Y 10(X)+(Y)=>(2)| 000006D0: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 000006E0: 20 20 20 20 54 57 45 45 20 43 49 4A 46 45 52 53 | TWEE CIJFERS| 000006F0: 2E 0D 3B 20 33 30 37 32 30 20 37 38 30 30 20 4D |..; 30720 7800 M| 00000700: 55 4C 4F 50 20 56 45 52 4D 45 4E 49 47 56 2E 26 |ULOP VERMENIGV.&| 00000710: 20 4F 50 2D 0D 3B 20 20 20 20 20 20 20 20 20 20 | OP-.; | 00000720: 20 20 20 20 20 20 20 20 54 45 4C 4C 45 4E 2C 20 | TELLEN, | 00000730: 32 20 42 59 54 53 2E 0D 3B 0D 20 20 20 20 20 20 |2 BYTS..;. | 00000740: 2A 3D 32 39 36 39 36 0D 3B 0D 3B 20 49 4E 4C 4F |*=29696.;.; INLO| 00000750: 4F 50 2E 0D 3B 0D 3B 20 44 49 54 20 53 55 42 50 |OP..;.; DIT SUBP| 00000760: 52 4F 47 52 41 4D 4D 41 3A 0D 3B 0D 3B 20 5A 45 |ROGRAMMA:.;.; ZE| 00000770: 54 20 53 43 48 45 52 4D 2D 42 45 47 49 4E 41 44 |T SCHERM-BEGINAD| 00000780: 52 45 53 3B 0D 3B 20 5A 45 54 20 53 50 45 45 4C |RES;.; ZET SPEEL| 00000790: 56 45 4C 44 2D 42 45 47 49 4E 41 44 52 45 53 3B |VELD-BEGINADRES;| 000007A0: 0D 3B 20 5A 45 54 20 42 45 47 49 4E 41 44 52 45 |.; ZET BEGINADRE| 000007B0: 53 20 56 41 4E 20 4B 4C 45 55 52 0D 3B 20 20 20 |S VAN KLEUR.; | 000007C0: 20 20 56 41 4E 20 53 43 48 45 52 4D 20 45 4E 20 | VAN SCHERM EN | 000007D0: 53 50 45 45 4C 56 45 4C 44 3B 0D 3B 20 5A 45 54 |SPEELVELD;.; ZET| 000007E0: 20 4B 4C 45 55 52 20 56 41 4E 20 54 45 4B 45 4E | KLEUR VAN TEKEN| 000007F0: 53 2C 20 56 4F 4F 52 47 52 4F 4E 44 0D 3B 20 20 |S, VOORGROND.; | 00000800: 20 20 20 45 4E 20 41 43 48 54 45 52 47 52 4F 4E | EN ACHTERGRON| 00000810: 44 3B 0D 3B 20 5A 45 54 20 47 52 45 4E 5A 45 4E |D;.; ZET GRENZEN| 00000820: 20 56 41 4E 20 53 50 45 45 4C 56 45 4C 44 3A 0D | VAN SPEELVELD:.| 00000830: 3B 20 20 20 20 20 52 45 43 48 54 53 20 58 45 3D |; RECHTS XE=| 00000840: 28 36 39 32 29 3D 58 4F 2B 4E 3B 0D 3B 20 20 20 |(692)=XO+N;.; | 00000850: 20 20 4F 4E 44 45 52 20 20 59 45 3D 28 36 39 33 | ONDER YE=(693| 00000860: 29 3D 59 4F 2B 4D 3B 0D 3B 20 20 20 20 20 54 45 |)=YO+M;.; TE| 00000870: 56 4F 52 45 4E 20 58 4F 3D 28 36 39 30 29 3B 20 |VOREN XO=(690); | 00000880: 4E 3D 28 37 33 30 29 3B 0D 3B 20 20 20 20 20 41 |N=(730);.; A| 00000890: 4C 53 4D 45 44 45 20 59 4F 3D 28 36 39 31 29 3B |LSMEDE YO=(691);| 000008A0: 20 4D 3D 28 37 33 31 29 3B 0D 3B 20 5A 45 54 20 | M=(731);.; ZET | 000008B0: 41 44 52 45 53 53 45 4E 20 56 4F 4F 52 20 4C 45 |ADRESSEN VOOR LE| 000008C0: 54 54 45 52 53 20 45 4E 0D 3B 20 20 20 20 20 43 |TTERS EN.; C| 000008D0: 49 4A 46 45 52 53 20 56 41 4E 20 44 45 20 43 4F |IJFERS VAN DE CO| 000008E0: 44 45 53 2E 0D 3B 0D 49 4E 4C 4F 50 20 4C 44 41 |DES..;.INLOP LDA| 000008F0: 20 20 30 30 36 34 38 20 20 3B 53 43 48 45 52 4D | 00648 ;SCHERM| 00000900: 0D 20 20 20 20 20 20 53 54 41 20 20 53 41 44 52 |. STA SADR| 00000910: 48 20 20 3B 42 45 47 49 4E 41 44 52 45 53 2E 0D |H ;BEGINADRES..| 00000920: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 | LDA #000 | 00000930: 20 20 3B 42 45 52 45 4B 45 4E 45 4E 20 56 41 4E | ;BEREKENEN VAN| 00000940: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 20 |. STA 252 | 00000950: 20 20 20 3B 58 4F 20 2B 20 34 30 20 2A 20 59 4F | ;XO + 40 * YO| 00000960: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 36 |.. LDA 006| 00000970: 39 30 20 20 3B 20 54 45 52 4D 20 58 4F 2E 0D 20 |90 ; TERM XO.. | 00000980: 20 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 | STA 251. | 00000990: 20 20 20 20 4C 44 41 20 23 30 34 30 20 20 20 20 | LDA #040 | 000009A0: 3B 20 46 41 43 54 4F 52 20 34 30 2E 0D 20 20 20 |; FACTOR 40.. | 000009B0: 20 20 20 53 54 41 20 20 31 30 37 0D 20 20 20 20 | STA 107. | 000009C0: 20 20 4C 44 41 20 20 30 30 36 39 31 20 20 3B 20 | LDA 00691 ; | 000009D0: 46 41 43 54 4F 52 20 59 4F 2E 0D 20 20 20 20 20 |FACTOR YO.. | 000009E0: 20 53 54 41 20 20 31 36 37 0D 20 20 20 20 20 20 | STA 167. | 000009F0: 4A 53 52 20 20 4D 55 4C 4F 50 0D 20 20 20 20 20 |JSR MULOP. | 00000A00: 20 4C 44 58 20 23 30 30 36 0D 49 4E 4C 4F 31 20 | LDX #006.INLO1 | 00000A10: 43 4C 43 20 20 20 20 20 20 20 20 20 20 3B 54 45 |CLC ;TE| 00000A20: 4C 20 42 49 4A 20 42 45 47 49 4E 2D 0D 20 20 20 |L BIJ BEGIN-. | 00000A30: 20 20 20 4C 44 41 20 20 53 41 44 52 4C 2C 58 20 | LDA SADRL,X | 00000A40: 3B 41 44 52 45 53 20 53 43 48 45 52 4D 2D 0D 20 |;ADRES SCHERM-. | 00000A50: 20 20 20 20 20 41 44 43 20 20 32 35 31 20 20 20 | ADC 251 | 00000A60: 20 20 3B 45 4E 20 4B 4C 45 55 52 56 45 4C 44 2E | ;EN KLEURVELD.| 00000A70: 0D 20 20 20 20 20 20 53 54 41 20 20 53 42 44 52 |. STA SBDR| 00000A80: 4C 2C 58 0D 20 20 20 20 20 20 4C 44 41 20 20 53 |L,X. LDA S| 00000A90: 41 44 52 48 2C 58 0D 20 20 20 20 20 20 41 44 43 |ADRH,X. ADC| 00000AA0: 20 20 32 35 32 0D 20 20 20 20 20 20 53 54 41 20 | 252. STA | 00000AB0: 20 53 42 44 52 48 2C 58 0D 20 20 20 20 20 20 44 | SBDRH,X. D| 00000AC0: 45 58 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 |EX. DEX. | 00000AD0: 20 20 20 44 45 58 0D 20 20 20 20 20 20 44 45 58 | DEX. DEX| 00000AE0: 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 |. DEX. | 00000AF0: 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 | DEX. BPL | 00000B00: 49 4E 4C 4F 31 0D 20 20 20 20 20 20 4C 44 41 20 |INLO1. LDA | 00000B10: 20 54 45 4B 4B 4C 20 20 20 3B 54 45 4B 45 4E 4B | TEKKL ;TEKENK| 00000B20: 4C 45 55 52 2E 0D 20 20 20 20 20 20 53 54 41 20 |LEUR.. STA | 00000B30: 20 30 30 36 34 36 0D 20 20 20 20 20 20 4C 44 58 | 00646. LDX| 00000B40: 20 23 30 30 31 0D 49 4E 4C 4F 32 20 4C 44 41 20 | #001.INLO2 LDA | 00000B50: 20 56 47 4B 4C 45 2C 58 20 3B 56 4F 4F 52 2D 20 | VGKLE,X ;VOOR- | 00000B60: 45 4E 20 41 43 48 2D 0D 20 20 20 20 20 20 53 54 |EN ACH-. ST| 00000B70: 41 20 20 35 33 32 38 30 2C 58 20 3B 54 45 52 47 |A 53280,X ;TERG| 00000B80: 52 4F 4E 44 2E 0D 20 20 20 20 20 20 43 4C 43 20 |ROND.. CLC | 00000B90: 20 20 20 20 20 20 20 20 20 3B 47 52 45 4E 5A 45 | ;GRENZE| 00000BA0: 4E 20 56 41 4E 0D 20 20 20 20 20 20 4C 44 41 20 |N VAN. LDA | 00000BB0: 20 30 30 36 39 30 2C 58 20 3B 53 50 45 45 4C 56 | 00690,X ;SPEELV| 00000BC0: 45 4C 44 2E 0D 20 20 20 20 20 20 41 44 43 20 20 |ELD.. ADC | 00000BD0: 30 30 37 33 30 2C 58 20 3B 58 4F 2B 4E 20 4F 46 |00730,X ;XO+N OF| 00000BE0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 36 39 |. STA 0069| 00000BF0: 32 2C 58 20 3B 59 4F 2B 4D 2E 0D 20 20 20 20 20 |2,X ;YO+M.. | 00000C00: 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 | DEX. BPL | 00000C10: 49 4E 4C 4F 32 0D 20 20 20 20 20 20 43 4C 43 20 |INLO2. CLC | 00000C20: 20 20 20 20 20 20 20 20 3B 41 44 52 45 53 20 56 | ;ADRES V| 00000C30: 4F 4F 52 0D 20 20 20 20 20 20 4C 44 41 20 20 53 |OOR. LDA S| 00000C40: 41 44 52 4C 20 20 3B 4C 45 54 54 45 52 20 41 0D |ADRL ;LETTER A.| 00000C50: 20 20 20 20 20 20 41 44 43 20 23 30 34 32 20 20 | ADC #042 | 00000C60: 20 20 3B 4F 50 20 53 43 48 45 52 4D 0D 20 20 20 | ;OP SCHERM. | 00000C70: 20 20 20 53 54 41 20 20 30 30 36 39 36 20 20 3B | STA 00696 ;| 00000C80: 49 53 20 28 36 39 37 2C 36 39 36 29 2E 0D 20 20 |IS (697,696).. | 00000C90: 20 20 20 20 4C 44 41 20 20 53 41 44 52 48 0D 20 | LDA SADRH. | 00000CA0: 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 | ADC #000. | 00000CB0: 20 20 20 20 53 54 41 20 20 30 30 36 39 37 0D 20 | STA 00697. | 00000CC0: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00000CD0: 20 3B 41 44 52 45 53 20 56 4F 4F 52 0D 20 20 20 | ;ADRES VOOR. | 00000CE0: 20 20 20 4C 44 41 20 20 30 30 36 39 36 20 20 3B | LDA 00696 ;| 00000CF0: 4C 45 54 54 45 52 20 4E 0D 20 20 20 20 20 20 41 |LETTER N. A| 00000D00: 44 43 20 23 31 32 30 20 20 20 20 3B 4F 50 20 53 |DC #120 ;OP S| 00000D10: 43 48 45 52 4D 0D 20 20 20 20 20 20 53 54 41 20 |CHERM. STA | 00000D20: 20 30 30 36 39 38 20 20 3B 49 53 20 28 36 39 39 | 00698 ;IS (699| 00000D30: 2C 36 39 38 29 2E 0D 20 20 20 20 20 20 4C 44 41 |,698).. LDA| 00000D40: 20 20 30 30 36 39 37 0D 20 20 20 20 20 20 41 44 | 00697. AD| 00000D50: 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 |C #000. STA| 00000D60: 20 20 30 30 36 39 39 0D 20 20 20 20 20 20 43 4C | 00699. CL| 00000D70: 43 20 20 20 20 20 20 20 20 20 3B 41 44 52 45 53 |C ;ADRES| 00000D80: 20 56 4F 4F 52 0D 20 20 20 20 20 20 4C 44 41 20 | VOOR. LDA | 00000D90: 20 53 41 44 52 4C 20 20 3B 44 45 52 44 45 20 52 | SADRL ;DERDE R| 00000DA0: 45 47 45 4C 0D 20 20 20 20 20 20 41 44 43 20 23 |EGEL. ADC #| 00000DB0: 31 32 30 20 20 20 20 3B 4F 50 20 53 43 48 45 52 |120 ;OP SCHER| 00000DC0: 4D 0D 20 20 20 20 20 20 53 54 41 20 20 53 41 45 |M. STA SAE| 00000DD0: 52 4C 20 20 3B 49 53 20 53 41 45 52 2E 2E 2E 2E |RL ;IS SAER....| 00000DE0: 0D 20 20 20 20 20 20 4C 44 41 20 20 53 41 44 52 |. LDA SADR| 00000DF0: 48 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 30 |H. ADC #000| 00000E00: 0D 20 20 20 20 20 20 53 54 41 20 20 53 41 45 52 |. STA SAER| 00000E10: 48 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 |H. RTS.;. | 00000E20: 20 20 20 20 2A 3D 32 39 38 33 32 0D 3B 0D 3B 20 | *=29832.;.; | 00000E30: 20 20 20 20 49 4E 43 52 45 4D 45 4E 54 20 4C 4F | INCREMENT LO| 00000E40: 50 45 52 20 45 4E 20 43 48 45 43 4B 2E 0D 3B 20 |PER EN CHECK..; | 00000E50: 20 20 20 20 28 58 29 3D 30 3A 20 28 32 34 39 29 | (X)=0: (249)| 00000E60: 3D 58 2E 20 30 2E 2E 2E 4E 2D 31 2E 0D 3B 20 20 |=X. 0...N-1..; | 00000E70: 20 20 20 28 58 29 3D 31 3A 20 28 32 35 30 29 3D | (X)=1: (250)=| 00000E80: 59 2E 20 30 2E 2E 2E 4D 2D 31 2E 0D 3B 20 20 20 |Y. 0...M-1..; | 00000E90: 20 20 4F 56 45 52 4C 4F 4F 50 3A 20 28 59 29 3D | OVERLOOP: (Y)=| 00000EA0: 31 20 45 4E 20 54 45 56 45 4E 53 0D 3B 20 20 20 |1 EN TEVENS.; | 00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 58 20 4F 46 | X OF| 00000EC0: 20 59 20 4F 50 20 4E 55 4C 2E 0D 3B 0D 4C 49 4E | Y OP NUL..;.LIN| 00000ED0: 43 52 20 4C 44 59 20 23 30 30 30 20 20 20 20 20 |CR LDY #000 | 00000EE0: 3B 56 4C 41 47 20 4E 45 45 52 2E 0D 20 20 20 20 |;VLAG NEER.. | 00000EF0: 20 20 49 4E 43 20 20 32 34 39 2C 58 20 20 20 3B | INC 249,X ;| 00000F00: 28 58 29 3D 30 3A 28 32 34 39 29 3D 58 2E 0D 20 |(X)=0:(249)=X.. | 00000F10: 20 20 20 20 20 4C 44 41 20 20 32 34 39 2C 58 20 | LDA 249,X | 00000F20: 20 20 3B 28 58 29 3D 31 3A 28 32 35 30 29 3D 59 | ;(X)=1:(250)=Y| 00000F30: 2E 0D 20 20 20 20 20 20 43 4D 50 20 20 30 30 37 |.. CMP 007| 00000F40: 33 30 2C 58 20 3B 20 45 49 4E 44 20 28 37 33 30 |30,X ; EIND (730| 00000F50: 29 3D 4E 2C 0D 20 20 20 20 20 20 42 43 43 20 20 |)=N,. BCC | 00000F60: 4C 49 4E 43 31 20 20 20 3B 20 20 4F 46 20 20 28 |LINC1 ; OF (| 00000F70: 37 33 31 29 3D 4D 2E 0D 20 20 20 20 20 20 49 4E |731)=M.. IN| 00000F80: 59 20 20 20 20 20 20 20 20 20 20 3B 56 4C 41 47 |Y ;VLAG| 00000F90: 20 4F 50 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 | OP.. LDA #| 00000FA0: 30 30 30 20 20 20 20 20 3B 4C 4F 50 45 52 0D 20 |000 ;LOPER. | 00000FB0: 20 20 20 20 20 53 54 41 20 20 32 34 39 2C 58 20 | STA 249,X | 00000FC0: 20 20 3B 52 4F 4E 44 4C 4F 50 45 4E 44 2E 0D 4C | ;RONDLOPEND..L| 00000FD0: 49 4E 43 31 20 52 54 53 0D 3B 0D 20 20 20 20 20 |INC1 RTS.;. | 00000FE0: 20 2A 3D 32 39 38 35 32 0D 3B 0D 3B 20 20 20 20 | *=29852.;.; | 00000FF0: 20 44 45 43 52 45 4D 45 4E 54 20 4C 4F 50 45 52 | DECREMENT LOPER| 00001000: 20 45 4E 20 43 48 45 43 4B 2E 0D 3B 20 20 20 20 | EN CHECK..; | 00001010: 20 28 58 29 3D 30 3A 20 28 32 34 39 29 3D 58 2E | (X)=0: (249)=X.| 00001020: 20 30 2E 2E 2E 4E 2D 31 2E 0D 3B 20 20 20 20 20 | 0...N-1..; | 00001030: 28 58 29 3D 31 3A 20 28 32 35 30 29 3D 59 2E 20 |(X)=1: (250)=Y. | 00001040: 30 2E 2E 2E 4D 2D 31 2E 0D 3B 20 20 20 20 20 4F |0...M-1..; O| 00001050: 56 45 52 4C 4F 4F 50 3A 20 28 59 29 3D 31 20 45 |VERLOOP: (Y)=1 E| 00001060: 4E 20 54 45 56 45 4E 53 0D 3B 20 20 20 20 20 20 |N TEVENS.; | 00001070: 20 20 20 20 20 20 20 20 20 58 20 4F 50 20 4E 2D | X OP N-| 00001080: 31 20 4F 46 0D 3B 20 20 20 20 20 20 20 20 20 20 |1 OF.; | 00001090: 20 20 20 20 20 59 20 4F 50 20 4D 2D 31 2E 0D 3B | Y OP M-1..;| 000010A0: 0D 4C 44 45 43 52 20 4C 44 59 20 23 30 30 30 20 |.LDECR LDY #000 | 000010B0: 20 20 20 20 3B 56 4C 41 47 20 4E 45 45 52 2E 0D | ;VLAG NEER..| 000010C0: 20 20 20 20 20 20 4C 44 41 20 20 32 34 39 2C 58 | LDA 249,X| 000010D0: 20 20 20 3B 28 58 29 3D 30 3A 28 32 34 39 29 3D | ;(X)=0:(249)=| 000010E0: 58 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 4C 44 |X.. BNE LD| 000010F0: 45 43 31 20 20 20 3B 28 58 29 3D 31 3A 28 32 35 |EC1 ;(X)=1:(25| 00001100: 30 29 3D 59 2E 0D 20 20 20 20 20 20 4C 44 41 20 |0)=Y.. LDA | 00001110: 20 30 30 37 33 30 2C 58 20 3B 20 45 49 4E 44 20 | 00730,X ; EIND | 00001120: 28 37 33 30 29 3D 4E 2C 0D 20 20 20 20 20 20 53 |(730)=N,. S| 00001130: 54 41 20 20 32 34 39 2C 58 20 20 20 3B 20 20 4F |TA 249,X ; O| 00001140: 46 20 20 28 37 33 31 29 3D 4D 2E 0D 20 20 20 20 |F (731)=M.. | 00001150: 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 3B | INY ;| 00001160: 56 4C 41 47 20 4F 50 2E 0D 4C 44 45 43 31 20 44 |VLAG OP..LDEC1 D| 00001170: 45 43 20 20 32 34 39 2C 58 20 20 20 3B 4C 4F 50 |EC 249,X ;LOP| 00001180: 45 52 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 |ER. RTS | 00001190: 20 20 20 20 20 20 3B 52 4F 4E 44 4C 4F 50 45 4E | ;RONDLOPEN| 000011A0: 44 2E 0D 3B 0D 20 20 20 20 20 20 2A 3D 32 39 38 |D..;. *=298| 000011B0: 37 32 0D 3B 0D 3B 20 20 20 20 20 4C 4F 50 45 52 |72.;.; LOPER| 000011C0: 20 4F 50 20 53 50 45 45 4C 56 45 4C 44 20 45 4E | OP SPEELVELD EN| 000011D0: 20 54 45 4B 45 4E 0D 3B 20 20 20 20 20 49 4E 20 | TEKEN.; IN | 000011E0: 30 30 32 20 47 45 5A 45 54 3B 20 52 45 56 45 52 |002 GEZET; REVER| 000011F0: 54 45 52 49 4E 47 2E 0D 3B 0D 49 4E 54 4C 4F 20 |TERING..;.INTLO | 00001200: 4C 44 41 20 20 53 42 44 52 4C 20 20 20 3B 53 50 |LDA SBDRL ;SP| 00001210: 45 45 4C 56 45 4C 44 41 44 52 45 53 0D 20 20 20 |EELVELDADRES. | 00001220: 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 20 | STA 251 | 00001230: 3B 41 4C 53 20 54 45 52 4D 2E 0D 20 20 20 20 20 |;ALS TERM.. | 00001240: 20 4C 44 41 20 20 53 42 44 52 48 0D 20 20 20 20 | LDA SBDRH. | 00001250: 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 | STA 252. | 00001260: 20 4C 44 41 20 23 30 34 30 20 20 20 20 20 3B 46 | LDA #040 ;F| 00001270: 41 43 54 4F 52 20 34 30 2E 0D 20 20 20 20 20 20 |ACTOR 40.. | 00001280: 53 54 41 20 20 31 30 37 0D 20 20 20 20 20 20 4C |STA 107. L| 00001290: 44 41 20 20 32 35 30 20 20 20 20 20 3B 46 41 43 |DA 250 ;FAC| 000012A0: 54 4F 52 20 59 2E 0D 20 20 20 20 20 20 53 54 41 |TOR Y.. STA| 000012B0: 20 20 31 36 37 0D 20 20 20 20 20 20 4A 53 52 20 | 167. JSR | 000012C0: 20 4D 55 4C 4F 50 20 20 20 3B 42 45 52 45 4B 45 | MULOP ;BEREKE| 000012D0: 4E 2E 0D 20 20 20 20 20 20 4C 44 59 20 20 32 34 |N.. LDY 24| 000012E0: 39 20 20 20 20 20 3B 54 45 52 4D 20 58 20 41 44 |9 ;TERM X AD| 000012F0: 52 45 53 2D 0D 20 20 20 20 20 20 4C 44 41 20 28 |RES-. LDA (| 00001300: 32 35 31 29 2C 59 20 20 3B 4D 4F 44 49 46 49 43 |251),Y ;MODIFIC| 00001310: 41 54 49 45 2E 0D 20 20 20 20 20 20 42 4D 49 20 |ATIE.. BMI | 00001320: 20 49 4E 54 4C 31 20 20 20 3B 42 49 54 20 37 20 | INTL1 ;BIT 7 | 00001330: 3D 20 3F 0D 20 20 20 20 20 20 4F 52 41 20 23 31 |= ?. ORA #1| 00001340: 32 38 20 20 20 20 20 3B 30 3A 20 5A 45 54 20 4F |28 ;0: ZET O| 00001350: 50 20 31 2E 0D 20 20 20 20 20 20 42 4D 49 20 20 |P 1.. BMI | 00001360: 49 4E 54 4C 32 20 20 20 3B 53 4C 41 20 31 20 4F |INTL2 ;SLA 1 O| 00001370: 56 45 52 2E 0D 49 4E 54 4C 31 20 41 4E 44 20 23 |VER..INTL1 AND #| 00001380: 31 32 37 20 20 20 20 20 3B 31 3A 20 5A 45 54 20 |127 ;1: ZET | 00001390: 4F 50 20 30 2E 0D 49 4E 54 4C 32 20 53 54 41 20 |OP 0..INTL2 STA | 000013A0: 28 32 35 31 29 2C 59 20 20 3B 5A 45 54 20 49 4E |(251),Y ;ZET IN| 000013B0: 20 56 45 4C 44 2E 0D 20 20 20 20 20 20 4A 53 52 | VELD.. JSR| 000013C0: 20 20 54 4F 45 54 53 20 20 20 3B 41 43 43 45 50 | TOETS ;ACCEP| 000013D0: 54 20 54 4F 45 54 53 2E 0D 20 20 20 20 20 20 4C |T TOETS.. L| 000013E0: 44 41 20 28 32 35 31 29 2C 59 20 20 3B 52 45 56 |DA (251),Y ;REV| 000013F0: 45 52 54 2E 54 45 52 55 47 3A 0D 20 20 20 20 20 |ERT.TERUG:. | 00001400: 20 42 4D 49 20 20 49 4E 54 4C 33 20 20 20 3B 42 | BMI INTL3 ;B| 00001410: 49 54 20 37 20 3D 20 3F 0D 20 20 20 20 20 20 4F |IT 7 = ?. O| 00001420: 52 41 20 23 31 32 38 20 20 20 20 20 3B 30 3A 20 |RA #128 ;0: | 00001430: 5A 45 54 20 4F 50 20 31 2E 0D 20 20 20 20 20 20 |ZET OP 1.. | 00001440: 42 4D 49 20 20 49 4E 54 4C 34 20 20 20 3B 53 4C |BMI INTL4 ;SL| 00001450: 41 20 31 20 4F 56 45 52 2E 0D 49 4E 54 4C 33 20 |A 1 OVER..INTL3 | 00001460: 41 4E 44 20 23 31 32 37 20 20 20 20 20 3B 31 3A |AND #127 ;1:| 00001470: 20 5A 45 54 20 4F 50 20 30 2E 0D 49 4E 54 4C 34 | ZET OP 0..INTL4| 00001480: 20 53 54 41 20 28 32 35 31 29 2C 59 20 20 3B 5A | STA (251),Y ;Z| 00001490: 45 54 20 49 4E 20 56 45 4C 44 2E 0D 20 20 20 20 |ET IN VELD.. | 000014A0: 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D | RTS.;. *=| 000014B0: 32 39 39 32 34 0D 3B 0D 3B 20 20 20 20 20 54 4F |29924.;.; TO| 000014C0: 45 54 53 20 41 43 43 45 50 54 20 45 4E 20 4E 41 |ETS ACCEPT EN NA| 000014D0: 41 52 20 30 30 32 2E 0D 3B 0D 54 4F 45 54 53 20 |AR 002..;.TOETS | 000014E0: 54 59 41 20 20 20 20 20 20 20 20 20 3B 52 45 44 |TYA ;RED| 000014F0: 20 28 59 29 2E 0D 20 20 20 20 20 20 50 48 41 0D | (Y).. PHA.| 00001500: 54 4F 45 54 31 20 4C 44 41 20 20 31 39 37 20 20 |TOET1 LDA 197 | 00001510: 20 20 3B 57 45 4C 2F 4E 49 45 54 3F 0D 20 20 20 | ;WEL/NIET?. | 00001520: 20 20 20 43 4D 50 20 23 30 36 34 0D 20 20 20 20 | CMP #064. | 00001530: 20 20 42 45 51 20 20 54 4F 45 54 31 0D 54 4F 45 | BEQ TOET1.TOE| 00001540: 54 32 20 4A 53 52 20 20 36 35 35 30 38 20 20 3B |T2 JSR 65508 ;| 00001550: 4A 41 3A 4E 45 45 4D 20 4F 50 2E 0D 20 20 20 20 |JA:NEEM OP.. | 00001560: 20 20 43 4D 50 20 23 30 30 30 20 20 20 20 3B 4C | CMP #000 ;L| 00001570: 4F 4F 53 3F 0D 20 20 20 20 20 20 42 45 51 20 20 |OOS?. BEQ | 00001580: 54 4F 45 54 32 20 20 3B 4A 41 3A 54 45 52 55 47 |TOET2 ;JA:TERUG| 00001590: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 |.. STA 002| 000015A0: 20 20 20 20 3B 4E 45 45 4E 3A 49 4E 20 30 30 32 | ;NEEN:IN 002| 000015B0: 2E 0D 54 4F 45 54 33 20 4C 44 41 20 20 31 39 37 |..TOET3 LDA 197| 000015C0: 20 20 20 20 3B 4C 4F 53 3F 0D 20 20 20 20 20 20 | ;LOS?. | 000015D0: 43 4D 50 20 23 30 36 34 20 20 20 20 3B 4E 45 45 |CMP #064 ;NEE| 000015E0: 3A 54 45 52 55 47 2E 0D 20 20 20 20 20 20 42 4E |:TERUG.. BN| 000015F0: 45 20 20 54 4F 45 54 33 20 20 3B 4A 41 3A 48 45 |E TOET3 ;JA:HE| 00001600: 52 53 54 45 4C 20 28 59 29 0D 20 20 20 20 20 20 |RSTEL (Y). | 00001610: 50 4C 41 20 20 20 20 20 20 20 20 20 3B 45 4E 20 |PLA ;EN | 00001620: 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 |NAAR H.P.. | 00001630: 54 41 59 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D |TAY. RTS.;.| 00001640: 20 20 20 20 20 20 2A 3D 32 39 39 35 32 0D 3B 0D | *=29952.;.| 00001650: 3B 20 20 20 20 20 43 48 45 43 4B 20 4F 50 20 4C |; CHECK OP L| 00001660: 4F 50 45 52 20 45 4E 20 4F 50 20 27 48 4F 4D 45 |OPER EN OP 'HOME| 00001670: 27 2E 0D 3B 20 20 20 20 20 54 45 4B 45 4E 20 49 |'..; TEKEN I| 00001680: 4E 20 30 30 32 2E 20 28 59 29 3D 32 3A 54 45 4B |N 002. (Y)=2:TEK| 00001690: 45 4E 2E 0D 3B 20 20 20 20 20 28 59 29 3D 30 3A |EN..; (Y)=0:| 000016A0: 4C 4F 50 45 52 3B 20 28 59 29 3D 31 3A 4F 56 45 |LOPER; (Y)=1:OVE| 000016B0: 52 4C 4F 4F 50 2E 0D 3B 0D 4C 4F 50 45 52 20 4C |RLOOP..;.LOPER L| 000016C0: 44 58 20 20 30 30 32 20 20 20 20 3B 54 45 4B 45 |DX 002 ;TEKE| 000016D0: 4E 20 49 4E 20 58 2E 0D 20 20 20 20 20 20 43 50 |N IN X.. CP| 000016E0: 58 20 23 30 31 39 20 20 20 20 3B 27 48 4F 4D 45 |X #019 ;'HOME| 000016F0: 27 3F 0D 20 20 20 20 20 20 42 4E 45 20 20 4C 4F |'?. BNE LO| 00001700: 50 45 31 20 20 3B 4E 45 45 4E 3A 44 4F 4F 52 47 |PE1 ;NEEN:DOORG| 00001710: 41 41 4E 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |AAN.. LDY #| 00001720: 30 30 30 20 20 20 20 3B 4A 41 3A 4C 49 4E 4B 53 |000 ;JA:LINKS| 00001730: 42 4F 56 45 4E 0D 20 20 20 20 20 20 53 54 59 20 |BOVEN. STY | 00001740: 20 32 34 39 20 20 20 20 3B 49 4E 20 53 50 45 45 | 249 ;IN SPEE| 00001750: 4C 56 45 4C 44 2E 0D 20 20 20 20 20 20 53 54 59 |LVELD.. STY| 00001760: 20 20 32 35 30 20 20 20 20 3B 54 45 56 45 4E 53 | 250 ;TEVENS| 00001770: 20 56 4C 41 47 0D 20 20 20 20 20 20 52 54 53 20 | VLAG. RTS | 00001780: 20 20 20 20 20 20 20 20 3B 4E 45 45 52 2E 0D 4C | ;NEER..L| 00001790: 4F 50 45 31 20 43 50 58 20 23 30 32 39 20 20 20 |OPE1 CPX #029 | 000017A0: 20 3B 4E 41 41 52 20 52 45 43 48 54 53 3F 0D 20 | ;NAAR RECHTS?. | 000017B0: 20 20 20 20 20 42 4E 45 20 20 4C 4F 50 45 32 20 | BNE LOPE2 | 000017C0: 20 3B 4E 45 45 4E 3A 44 4F 4F 52 47 41 41 4E 2E | ;NEEN:DOORGAAN.| 000017D0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 |. LDX #000 | 000017E0: 20 20 20 3B 4A 41 3A 49 4E 43 52 2E 58 2E 0D 20 | ;JA:INCR.X.. | 000017F0: 20 20 20 20 20 4A 53 52 20 20 4C 49 4E 43 52 0D | JSR LINCR.| 00001800: 20 20 20 20 20 20 52 54 53 0D 4C 4F 50 45 32 20 | RTS.LOPE2 | 00001810: 43 50 58 20 23 31 35 37 20 20 20 20 3B 4E 41 41 |CPX #157 ;NAA| 00001820: 52 20 4C 49 4E 4B 53 3F 0D 20 20 20 20 20 20 42 |R LINKS?. B| 00001830: 4E 45 20 20 4C 4F 50 45 33 20 20 3B 4E 45 45 4E |NE LOPE3 ;NEEN| 00001840: 3A 44 4F 4F 52 47 41 41 4E 2E 0D 20 20 20 20 20 |:DOORGAAN.. | 00001850: 20 4C 44 58 20 23 30 30 30 20 20 20 20 3B 4A 41 | LDX #000 ;JA| 00001860: 3A 44 45 43 52 2E 58 2E 0D 20 20 20 20 20 20 4A |:DECR.X.. J| 00001870: 53 52 20 20 4C 44 45 43 52 0D 20 20 20 20 20 20 |SR LDECR. | 00001880: 52 54 53 0D 4C 4F 50 45 33 20 43 50 58 20 23 31 |RTS.LOPE3 CPX #1| 00001890: 34 35 20 20 20 20 3B 4E 41 41 52 20 42 4F 56 45 |45 ;NAAR BOVE| 000018A0: 4E 3F 0D 20 20 20 20 20 20 42 4E 45 20 20 4C 4F |N?. BNE LO| 000018B0: 50 45 34 20 20 3B 4E 45 45 4E 3A 44 4F 4F 52 47 |PE4 ;NEEN:DOORG| 000018C0: 41 41 4E 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |AAN.. LDX #| 000018D0: 30 30 31 20 20 20 20 3B 4A 41 3A 44 45 43 52 2E |001 ;JA:DECR.| 000018E0: 59 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 44 |Y.. JSR LD| 000018F0: 45 43 52 0D 20 20 20 20 20 20 52 54 53 0D 4C 4F |ECR. RTS.LO| 00001900: 50 45 34 20 43 50 58 20 23 30 31 37 20 20 20 20 |PE4 CPX #017 | 00001910: 3B 4E 41 41 52 20 42 45 4E 45 44 45 4E 3F 0D 20 |;NAAR BENEDEN?. | 00001920: 20 20 20 20 20 42 4E 45 20 20 4C 4F 50 45 35 20 | BNE LOPE5 | 00001930: 20 3B 4E 45 45 4E 3A 44 4F 4F 52 47 41 41 4E 2E | ;NEEN:DOORGAAN.| 00001940: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 31 20 |. LDX #001 | 00001950: 20 20 20 3B 4A 41 3A 49 4E 43 52 2E 59 2E 0D 20 | ;JA:INCR.Y.. | 00001960: 20 20 20 20 20 4A 53 52 20 20 4C 49 4E 43 52 0D | JSR LINCR.| 00001970: 20 20 20 20 20 20 52 54 53 0D 4C 4F 50 45 35 20 | RTS.LOPE5 | 00001980: 4C 44 59 20 23 30 30 32 20 20 20 20 3B 47 45 45 |LDY #002 ;GEE| 00001990: 4E 20 4C 4F 50 45 52 3A 0D 20 20 20 20 20 20 52 |N LOPER:. R| 000019A0: 54 53 20 20 20 20 20 20 20 20 20 3B 56 4C 41 47 |TS ;VLAG| 000019B0: 20 4F 50 20 32 2E 0D 3B 0D 20 20 20 20 20 20 2A | OP 2..;. *| 000019C0: 3D 33 30 30 31 34 0D 3B 0D 3B 20 20 20 20 20 53 |=30014.;.; S| 000019D0: 43 48 45 52 4D 47 45 48 45 55 47 45 4E 20 4D 45 |CHERMGEHEUGEN ME| 000019E0: 54 20 42 4C 4F 4B 4A 45 53 2E 0D 3B 0D 53 43 48 |T BLOKJES..;.SCH| 000019F0: 52 4D 20 4C 44 41 20 23 31 30 32 20 20 20 20 3B |RM LDA #102 ;| 00001A00: 42 4C 4F 4B 4A 45 2E 0D 20 20 20 20 20 20 53 54 |BLOKJE.. ST| 00001A10: 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 |A 251. LDA| 00001A20: 20 23 30 32 35 20 20 20 20 3B 32 35 20 42 4C 4F | #025 ;25 BLO| 00001A30: 4B 4B 45 4E 0D 20 20 20 20 20 20 53 54 41 20 20 |KKEN. STA | 00001A40: 30 33 33 20 20 20 20 3B 40 20 34 30 20 42 59 54 |033 ;@ 40 BYT| 00001A50: 45 53 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |ES.. LDA #0| 00001A60: 34 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |40. STA 03| 00001A70: 34 0D 20 20 20 20 20 20 4C 44 41 20 20 53 41 44 |4. LDA SAD| 00001A80: 52 4C 20 20 3B 53 43 48 45 52 4D 47 45 48 45 55 |RL ;SCHERMGEHEU| 00001A90: 47 45 4E 0D 20 20 20 20 20 20 53 54 41 20 20 32 |GEN. STA 2| 00001AA0: 35 33 20 20 20 20 3B 42 45 47 49 4E 20 4F 50 20 |53 ;BEGIN OP | 00001AB0: 30 31 30 32 34 2E 0D 20 20 20 20 20 20 4C 44 41 |01024.. LDA| 00001AC0: 20 20 53 41 44 52 48 0D 20 20 20 20 20 20 53 54 | SADRH. ST| 00001AD0: 41 20 20 32 35 34 0D 20 20 20 20 20 20 4C 44 41 |A 254. LDA| 00001AE0: 20 23 30 34 30 20 20 20 20 3B 42 4C 4F 4B 4B 45 | #040 ;BLOKKE| 00001AF0: 4E 20 4F 50 0D 20 20 20 20 20 20 53 54 41 20 20 |N OP. STA | 00001B00: 31 30 37 20 20 20 20 3B 34 30 20 42 59 54 45 53 |107 ;40 BYTES| 00001B10: 20 41 46 53 54 2E 0D 20 20 20 20 20 20 4C 44 41 | AFST.. LDA| 00001B20: 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 | #000. STA | 00001B30: 20 31 30 38 0D 20 20 20 20 20 20 4A 53 52 20 20 | 108. JSR | 00001B40: 42 4C 56 55 4C 20 20 3B 56 55 4C 4C 45 4E 2E 0D |BLVUL ;VULLEN..| 00001B50: 20 20 20 20 20 20 52 54 53 0D 3B 0D 3B 20 20 20 | RTS.;.; | 00001B60: 20 20 4B 4C 45 55 52 47 45 48 45 55 47 45 4E 2E | KLEURGEHEUGEN.| 00001B70: 0D 3B 0D 4B 4C 45 55 52 20 4C 44 41 20 20 4B 47 |.;.KLEUR LDA KG| 00001B80: 4B 4C 45 20 20 3B 4B 4C 45 55 52 20 56 55 4C 4C |KLE ;KLEUR VULL| 00001B90: 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 |EN.. STA 2| 00001BA0: 35 31 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 |51. LDA #02| 00001BB0: 35 20 20 20 20 3B 32 35 20 42 4C 4F 4B 4B 45 4E |5 ;25 BLOKKEN| 00001BC0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 33 20 |. STA 033 | 00001BD0: 20 20 20 3B 40 20 34 30 20 42 59 54 45 53 2E 0D | ;@ 40 BYTES..| 00001BE0: 20 20 20 20 20 20 4C 44 41 20 23 30 34 30 0D 20 | LDA #040. | 00001BF0: 20 20 20 20 20 53 54 41 20 20 30 33 34 0D 20 20 | STA 034. | 00001C00: 20 20 20 20 4C 44 41 20 20 53 4B 44 52 4C 20 20 | LDA SKDRL | 00001C10: 3B 4B 4C 45 55 52 47 45 48 45 55 47 45 4E 0D 20 |;KLEURGEHEUGEN. | 00001C20: 20 20 20 20 20 53 54 41 20 20 32 35 33 20 20 20 | STA 253 | 00001C30: 20 3B 42 45 47 49 4E 20 4F 50 20 35 35 32 39 36 | ;BEGIN OP 55296| 00001C40: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 53 4B 44 |.. LDA SKD| 00001C50: 52 48 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |RH. STA 25| 00001C60: 34 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 30 |4. LDA #040| 00001C70: 20 20 20 20 3B 42 4C 4F 4B 4B 45 4E 20 4F 50 0D | ;BLOKKEN OP.| 00001C80: 20 20 20 20 20 20 53 54 41 20 20 31 30 37 20 20 | STA 107 | 00001C90: 20 20 3B 34 30 20 42 59 54 45 53 20 41 46 53 54 | ;40 BYTES AFST| 00001CA0: 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |.. LDA #000| 00001CB0: 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 38 0D |. STA 108.| 00001CC0: 20 20 20 20 20 20 4A 53 52 20 20 42 4C 56 55 4C | JSR BLVUL| 00001CD0: 20 20 3B 56 55 4C 4C 45 4E 2E 0D 20 20 20 20 20 | ;VULLEN.. | 00001CE0: 20 52 54 53 0D 3B 0D 3B 20 20 20 20 20 4B 4C 45 | RTS.;.; KLE| 00001CF0: 55 52 20 56 41 4E 20 53 50 45 45 4C 56 45 4C 44 |UR VAN SPEELVELD| 00001D00: 2E 0D 3B 0D 4B 4C 45 53 50 20 4C 44 41 20 20 54 |..;.KLESP LDA T| 00001D10: 43 4F 4B 4C 20 20 3B 4B 4C 45 55 52 20 56 55 4C |COKL ;KLEUR VUL| 00001D20: 4C 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |LEN.. STA | 00001D30: 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |251. LDA 0| 00001D40: 30 37 33 31 20 20 3B 4D 20 42 4C 4F 4B 4B 45 4E |0731 ;M BLOKKEN| 00001D50: 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 33 20 |. STA 033 | 00001D60: 20 20 20 3B 40 20 4E 20 42 59 54 45 53 2E 0D 20 | ;@ N BYTES.. | 00001D70: 20 20 20 20 20 4C 44 41 20 20 30 30 37 33 30 0D | LDA 00730.| 00001D80: 20 20 20 20 20 20 53 54 41 20 20 30 33 34 0D 20 | STA 034. | 00001D90: 20 20 20 20 20 4C 44 41 20 20 53 4C 44 52 4C 20 | LDA SLDRL | 00001DA0: 20 3B 4B 4C 45 55 52 20 53 50 45 45 4C 56 2E 0D | ;KLEUR SPEELV..| 00001DB0: 20 20 20 20 20 20 53 54 41 20 20 32 35 33 20 20 | STA 253 | 00001DC0: 20 20 3B 42 45 47 49 4E 41 44 52 45 53 2E 0D 20 | ;BEGINADRES.. | 00001DD0: 20 20 20 20 20 4C 44 41 20 20 53 4C 44 52 48 0D | LDA SLDRH.| 00001DE0: 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 | STA 254. | 00001DF0: 20 20 20 20 20 4C 44 41 20 23 30 34 30 20 20 20 | LDA #040 | 00001E00: 20 3B 42 4C 4F 4B 4B 45 4E 20 4F 50 0D 20 20 20 | ;BLOKKEN OP. | 00001E10: 20 20 20 53 54 41 20 20 31 30 37 20 20 20 20 3B | STA 107 ;| 00001E20: 34 30 20 42 59 54 45 53 20 41 46 53 54 2E 0D 20 |40 BYTES AFST.. | 00001E30: 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 | LDA #000. | 00001E40: 20 20 20 20 53 54 41 20 20 31 30 38 0D 20 20 20 | STA 108. | 00001E50: 20 20 20 4A 53 52 20 20 42 4C 56 55 4C 20 20 3B | JSR BLVUL ;| 00001E60: 56 55 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 52 54 |VULLEN.. RT| 00001E70: 53 0D 3B 0D 3B 20 20 20 20 20 4C 45 54 54 45 52 |S.;.; LETTER| 00001E80: 53 20 55 49 54 20 44 45 20 43 4F 44 45 56 45 43 |S UIT DE CODEVEC| 00001E90: 54 4F 52 0D 3B 20 20 20 20 20 4F 50 20 48 45 54 |TOR.; OP HET| 00001EA0: 20 53 43 48 45 52 4D 20 5A 45 54 54 45 4E 2E 0D | SCHERM ZETTEN..| 00001EB0: 3B 0D 43 4F 56 45 53 20 4C 44 58 20 23 30 30 33 |;.COVES LDX #003| 00001EC0: 20 20 20 20 3B 41 44 52 45 53 53 45 4E 20 49 4E | ;ADRESSEN IN| 00001ED0: 0D 43 4F 56 45 31 20 4C 44 41 20 20 30 30 36 39 |.COVE1 LDA 0069| 00001EE0: 36 2C 58 20 3B 32 35 31 2E 2E 32 35 34 2E 0D 20 |6,X ;251..254.. | 00001EF0: 20 20 20 20 20 53 54 41 20 20 32 35 31 2C 58 0D | STA 251,X.| 00001F00: 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 | DEX. | 00001F10: 42 50 4C 20 20 43 4F 56 45 31 0D 20 20 20 20 20 |BPL COVE1. | 00001F20: 20 4C 44 58 20 23 30 31 32 20 20 20 20 3B 41 2D | LDX #012 ;A-| 00001F30: 4D 2C 20 4E 2D 5A 2E 0D 20 20 20 20 20 20 4C 44 |M, N-Z.. LD| 00001F40: 59 20 23 30 33 36 20 20 20 20 3B 53 43 48 45 52 |Y #036 ;SCHER| 00001F50: 4D 41 44 52 45 53 2E 0D 43 4F 56 45 32 20 43 4C |MADRES..COVE2 CL| 00001F60: 43 20 20 20 20 20 20 20 20 20 3B 41 43 48 54 45 |C ;ACHTE| 00001F70: 52 57 41 41 52 54 53 2E 0D 20 20 20 20 20 20 4C |RWAARTS.. L| 00001F80: 44 41 20 20 30 30 37 30 31 2C 58 0D 20 20 20 20 |DA 00701,X. | 00001F90: 20 20 53 54 41 20 28 32 35 31 29 2C 59 0D 20 20 | STA (251),Y. | 00001FA0: 20 20 20 20 4C 44 41 20 20 30 30 37 31 34 2C 58 | LDA 00714,X| 00001FB0: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 00001FC0: 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 |,Y. DEY. | 00001FD0: 20 20 20 44 45 59 0D 20 20 20 20 20 20 44 45 59 | DEY. DEY| 00001FE0: 0D 20 20 20 20 20 20 44 45 58 20 20 20 20 20 20 |. DEX | 00001FF0: 20 20 20 3B 41 46 54 45 4C 4C 45 4E 2E 0D 20 20 | ;AFTELLEN.. | 00002000: 20 20 20 20 42 50 4C 20 20 43 4F 56 45 32 0D 20 | BPL COVE2. | 00002010: 20 20 20 20 20 52 54 53 0D 3B 0D 3B 20 20 20 20 | RTS.;.; | 00002020: 20 53 54 49 50 50 45 4E 20 49 4E 20 53 50 45 45 | STIPPEN IN SPEE| 00002030: 4C 56 45 4C 44 2E 0D 3B 0D 53 54 49 50 53 20 4C |LVELD..;.STIPS L| 00002040: 44 41 20 23 30 34 36 20 20 20 20 3B 53 54 49 50 |DA #046 ;STIP| 00002050: 20 41 53 43 49 49 2E 0D 20 20 20 20 20 20 53 54 | ASCII.. ST| 00002060: 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 |A 251. LDA| 00002070: 20 20 30 30 37 33 31 20 20 3B 4D 20 42 4C 4F 4B | 00731 ;M BLOK| 00002080: 4B 45 4E 0D 20 20 20 20 20 20 53 54 41 20 20 30 |KEN. STA 0| 00002090: 33 33 20 20 20 20 3B 40 20 4E 20 42 59 54 45 53 |33 ;@ N BYTES| 000020A0: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 |.. LDA 007| 000020B0: 33 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |30. STA 03| 000020C0: 34 0D 20 20 20 20 20 20 4C 44 41 20 20 53 42 44 |4. LDA SBD| 000020D0: 52 4C 20 20 3B 53 50 45 45 4C 56 45 4C 44 0D 20 |RL ;SPEELVELD. | 000020E0: 20 20 20 20 20 53 54 41 20 20 32 35 33 20 20 20 | STA 253 | 000020F0: 20 3B 42 45 47 49 4E 2E 0D 20 20 20 20 20 20 4C | ;BEGIN.. L| 00002100: 44 41 20 20 53 42 44 52 48 0D 20 20 20 20 20 20 |DA SBDRH. | 00002110: 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 20 4C |STA 254. L| 00002120: 44 41 20 23 30 34 30 20 20 20 20 3B 42 4C 4F 4B |DA #040 ;BLOK| 00002130: 4B 45 4E 20 4F 50 0D 20 20 20 20 20 20 53 54 41 |KEN OP. STA| 00002140: 20 20 31 30 37 20 20 20 20 3B 34 30 20 42 59 54 | 107 ;40 BYT| 00002150: 45 53 20 41 46 53 54 2E 0D 20 20 20 20 20 20 4C |ES AFST.. L| 00002160: 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 |DA #000. ST| 00002170: 41 20 20 31 30 38 0D 20 20 20 20 20 20 4A 53 52 |A 108. JSR| 00002180: 20 20 42 4C 56 55 4C 20 20 3B 56 55 4C 4C 45 4E | BLVUL ;VULLEN| 00002190: 2E 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 3B 20 |.. RTS.;.; | 000021A0: 20 20 20 20 54 45 4B 45 4E 20 28 30 30 32 29 20 | TEKEN (002) | 000021B0: 49 4E 20 53 50 45 45 4C 56 45 4C 44 2E 0D 3B 0D |IN SPEELVELD..;.| 000021C0: 54 45 4B 49 4E 20 4C 44 59 20 20 32 34 39 20 20 |TEKIN LDY 249 | 000021D0: 20 20 3B 54 45 20 56 4F 52 45 4E 20 41 44 52 45 | ;TE VOREN ADRE| 000021E0: 53 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 32 |S. LDA 002| 000021F0: 20 20 20 20 3B 49 4E 20 28 32 35 32 2C 32 35 31 | ;IN (252,251| 00002200: 29 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |).. STA (25| 00002210: 31 29 2C 59 0D 20 20 20 20 20 20 52 54 53 0D 3B |1),Y. RTS.;| 00002220: 0D 20 20 20 20 20 20 2A 3D 33 30 32 30 38 0D 3B |. *=30208.;| 00002230: 0D 3B 20 20 20 20 20 43 49 4A 46 45 52 53 20 4F |.; CIJFERS O| 00002240: 50 20 53 43 48 45 52 4D 20 49 56 4D 2E 43 4F 44 |P SCHERM IVM.COD| 00002250: 45 2E 0D 3B 0D 43 4F 43 59 46 20 4C 44 58 20 23 |E..;.COCYF LDX #| 00002260: 30 30 33 20 20 20 20 3B 41 44 52 45 53 53 45 4E |003 ;ADRESSEN| 00002270: 20 49 4E 0D 43 4F 43 59 31 20 4C 44 41 20 20 53 | IN.COCY1 LDA S| 00002280: 41 44 52 4C 2C 58 20 3B 32 35 31 2E 2E 32 35 34 |ADRL,X ;251..254| 00002290: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 |.. STA 251| 000022A0: 2C 58 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 |,X. DEX. | 000022B0: 20 20 20 42 50 4C 20 20 43 4F 43 59 31 0D 20 20 | BPL COCY1. | 000022C0: 20 20 20 20 4C 44 41 20 23 30 34 38 20 20 20 20 | LDA #048 | 000022D0: 3B 43 49 4A 46 45 52 53 20 30 31 2D 31 33 2E 0D |;CIJFERS 01-13..| 000022E0: 20 20 20 20 20 20 53 54 41 20 20 31 30 31 20 20 | STA 101 | 000022F0: 20 20 3B 54 49 45 4E 54 41 4C 4C 45 4E 2E 0D 20 | ;TIENTALLEN.. | 00002300: 20 20 20 20 20 53 54 41 20 20 31 30 30 20 20 20 | STA 100 | 00002310: 20 3B 45 45 4E 48 45 44 45 4E 2E 0D 20 20 20 20 | ;EENHEDEN.. | 00002320: 20 20 4C 44 41 20 23 30 34 39 20 20 20 20 3B 43 | LDA #049 ;C| 00002330: 49 4A 46 45 52 53 20 31 34 2D 32 36 2E 0D 20 20 |IJFERS 14-26.. | 00002340: 20 20 20 20 53 54 41 20 20 31 30 38 20 20 20 20 | STA 108 | 00002350: 3B 54 49 45 4E 54 41 4C 4C 45 4E 2E 0D 20 20 20 |;TIENTALLEN.. | 00002360: 20 20 20 4C 44 41 20 23 30 35 31 20 20 20 20 3B | LDA #051 ;| 00002370: 45 45 4E 48 45 44 45 4E 2E 0D 20 20 20 20 20 20 |EENHEDEN.. | 00002380: 53 54 41 20 20 31 30 37 0D 20 20 20 20 20 20 4C |STA 107. L| 00002390: 44 59 20 23 30 30 31 20 20 20 20 3B 53 43 48 45 |DY #001 ;SCHE| 000023A0: 52 4D 41 44 52 45 53 2E 0D 20 20 20 20 20 20 4C |RMADRES.. L| 000023B0: 44 58 20 23 30 31 32 20 20 20 20 3B 30 31 2D 31 |DX #012 ;01-1| 000023C0: 33 2C 31 34 2D 32 36 2E 0D 43 4F 43 59 32 20 49 |3,14-26..COCY2 I| 000023D0: 4E 43 20 20 31 30 37 20 20 20 20 3B 54 57 45 45 |NC 107 ;TWEE| 000023E0: 44 45 20 52 49 4A 3A 0D 20 20 20 20 20 20 4C 44 |DE RIJ:. LD| 000023F0: 41 20 20 31 30 37 20 20 20 20 3B 45 45 4E 48 45 |A 107 ;EENHE| 00002400: 44 45 4E 20 2B 20 31 2E 0D 20 20 20 20 20 20 43 |DEN + 1.. C| 00002410: 4D 50 20 23 30 35 38 20 20 20 20 3B 4F 56 45 52 |MP #058 ;OVER| 00002420: 20 44 45 20 4E 45 47 45 4E 3A 0D 20 20 20 20 20 | DE NEGEN:. | 00002430: 20 42 43 43 20 20 43 4F 43 59 33 20 20 3B 54 49 | BCC COCY3 ;TI| 00002440: 45 4E 54 41 4C 4C 45 4E 20 2B 20 31 3B 0D 20 20 |ENTALLEN + 1;. | 00002450: 20 20 20 20 49 4E 43 20 20 31 30 38 20 20 20 20 | INC 108 | 00002460: 3B 54 45 56 45 4E 53 20 45 45 4E 48 2E 20 30 2E |;TEVENS EENH. 0.| 00002470: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 38 0D |. LDA #048.| 00002480: 20 20 20 20 20 20 53 54 41 20 20 31 30 37 0D 43 | STA 107.C| 00002490: 4F 43 59 33 20 49 4E 43 20 20 31 30 30 20 20 20 |OCY3 INC 100 | 000024A0: 20 3B 45 45 52 53 54 45 20 52 49 4A 3A 0D 20 20 | ;EERSTE RIJ:. | 000024B0: 20 20 20 20 4C 44 41 20 20 31 30 30 20 20 20 20 | LDA 100 | 000024C0: 3B 45 45 4E 48 45 44 45 4E 20 2B 20 31 2E 0D 20 |;EENHEDEN + 1.. | 000024D0: 20 20 20 20 20 43 4D 50 20 23 30 35 38 20 20 20 | CMP #058 | 000024E0: 20 3B 4F 56 45 52 20 44 45 20 4E 45 47 45 4E 3A | ;OVER DE NEGEN:| 000024F0: 0D 20 20 20 20 20 20 42 43 43 20 20 43 4F 43 59 |. BCC COCY| 00002500: 34 20 20 3B 54 49 45 4E 54 41 4C 4C 45 4E 20 2B |4 ;TIENTALLEN +| 00002510: 20 31 3B 0D 20 20 20 20 20 20 49 4E 43 20 20 31 | 1;. INC 1| 00002520: 30 31 20 20 20 20 3B 54 45 56 45 4E 53 20 45 45 |01 ;TEVENS EE| 00002530: 4E 48 2E 20 30 2E 0D 20 20 20 20 20 20 4C 44 41 |NH. 0.. LDA| 00002540: 20 23 30 34 38 0D 20 20 20 20 20 20 53 54 41 20 | #048. STA | 00002550: 20 31 30 30 0D 43 4F 43 59 34 20 4C 44 41 20 20 | 100.COCY4 LDA | 00002560: 31 30 31 20 20 20 20 3B 45 45 52 53 54 45 20 52 |101 ;EERSTE R| 00002570: 49 4A 20 44 45 0D 20 20 20 20 20 20 53 54 41 20 |IJ DE. STA | 00002580: 28 32 35 31 29 2C 59 20 3B 54 49 45 4E 54 41 4C |(251),Y ;TIENTAL| 00002590: 4C 45 4E 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |LEN.. LDA | 000025A0: 31 30 38 20 20 20 20 3B 54 57 45 45 44 45 20 52 |108 ;TWEEDE R| 000025B0: 49 4A 20 44 45 0D 20 20 20 20 20 20 53 54 41 20 |IJ DE. STA | 000025C0: 28 32 35 33 29 2C 59 20 3B 54 49 45 4E 54 41 4C |(253),Y ;TIENTAL| 000025D0: 4C 45 4E 2E 0D 20 20 20 20 20 20 49 4E 59 0D 20 |LEN.. INY. | 000025E0: 20 20 20 20 20 4C 44 41 20 20 31 30 30 20 20 20 | LDA 100 | 000025F0: 20 3B 45 45 52 53 54 45 20 52 49 4A 20 44 45 0D | ;EERSTE RIJ DE.| 00002600: 20 20 20 20 20 20 53 54 41 20 28 32 35 31 29 2C | STA (251),| 00002610: 59 20 3B 45 45 4E 48 45 44 45 4E 2E 0D 20 20 20 |Y ;EENHEDEN.. | 00002620: 20 20 20 4C 44 41 20 20 31 30 37 20 20 20 20 3B | LDA 107 ;| 00002630: 54 57 45 45 44 45 20 52 49 4A 20 44 45 0D 20 20 |TWEEDE RIJ DE. | 00002640: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 | STA (253),Y | 00002650: 3B 45 45 4E 48 45 44 45 4E 2E 0D 20 20 20 20 20 |;EENHEDEN.. | 00002660: 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 56 4F | INY ;VO| 00002670: 4C 47 45 4E 44 45 20 50 4F 53 2E 0D 20 20 20 20 |LGENDE POS.. | 00002680: 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 54 | INY ;T| 00002690: 57 45 45 20 56 45 52 44 45 52 2E 0D 20 20 20 20 |WEE VERDER.. | 000026A0: 20 20 44 45 58 20 20 20 20 20 20 20 20 20 3B 41 | DEX ;A| 000026B0: 46 54 45 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 42 |FTELLEN.. B| 000026C0: 50 4C 20 20 43 4F 43 59 32 0D 20 20 20 20 20 20 |PL COCY2. | 000026D0: 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 3B 0D |RTS. NOP.;.| 000026E0: 3B 20 20 20 20 20 50 4F 45 54 53 20 48 45 54 20 |; POETS HET | 000026F0: 42 4F 4F 44 53 43 48 41 50 50 45 4E 56 45 4C 44 |BOODSCHAPPENVELD| 00002700: 2E 0D 3B 0D 42 50 4F 45 54 20 4C 44 41 20 23 30 |..;.BPOET LDA #0| 00002710: 33 32 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |32. STA 25| 00002720: 31 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 35 |1. LDA #005| 00002730: 20 20 20 20 3B 35 20 42 4C 4F 4B 4B 45 4E 0D 20 | ;5 BLOKKEN. | 00002740: 20 20 20 20 20 53 54 41 20 20 30 33 33 20 20 20 | STA 033 | 00002750: 20 3B 40 20 34 30 20 42 59 54 45 53 2E 0D 20 20 | ;@ 40 BYTES.. | 00002760: 20 20 20 20 4C 44 41 20 23 30 34 30 0D 20 20 20 | LDA #040. | 00002770: 20 20 20 53 54 41 20 20 30 33 34 0D 20 20 20 20 | STA 034. | 00002780: 20 20 4C 44 41 20 20 53 41 44 52 4C 20 20 3B 53 | LDA SADRL ;S| 00002790: 43 48 45 52 4D 47 45 48 45 55 47 45 4E 0D 20 20 |CHERMGEHEUGEN. | 000027A0: 20 20 20 20 53 54 41 20 20 32 35 33 20 20 20 20 | STA 253 | 000027B0: 3B 42 45 47 49 4E 20 4F 50 20 30 31 30 32 34 2E |;BEGIN OP 01024.| 000027C0: 0D 20 20 20 20 20 20 4C 44 41 20 20 53 41 44 52 |. LDA SADR| 000027D0: 48 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 |H. STA 254| 000027E0: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 30 20 |. LDA #040 | 000027F0: 20 20 20 3B 42 4C 4F 4B 4B 45 4E 20 4F 50 0D 20 | ;BLOKKEN OP. | 00002800: 20 20 20 20 20 53 54 41 20 20 31 30 37 20 20 20 | STA 107 | 00002810: 20 3B 34 30 20 42 59 54 45 53 20 41 46 53 54 2E | ;40 BYTES AFST.| 00002820: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D |. LDA #000.| 00002830: 20 20 20 20 20 20 53 54 41 20 20 31 30 38 0D 20 | STA 108. | 00002840: 20 20 20 20 20 4A 53 52 20 20 42 4C 56 55 4C 20 | JSR BLVUL | 00002850: 20 3B 56 55 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 | ;VULLEN.. | 00002860: 52 54 53 0D 3B 0D 3B 20 20 20 20 20 42 4C 4F 4B |RTS.;.; BLOK| 00002870: 54 52 41 4E 53 50 4F 52 54 2E 0D 3B 0D 42 4C 54 |TRANSPORT..;.BLT| 00002880: 52 41 20 4C 44 58 20 20 30 33 33 20 20 20 20 3B |RA LDX 033 ;| 00002890: 41 41 4E 54 41 4C 20 42 4C 4F 4B 4B 45 4E 2E 0D |AANTAL BLOKKEN..| 000028A0: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 000028B0: 20 20 3B 4E 41 41 52 20 41 46 54 45 4C 4C 45 4E | ;NAAR AFTELLEN| 000028C0: 2E 0D 20 20 20 20 20 20 42 43 43 20 20 42 4C 54 |.. BCC BLT| 000028D0: 52 34 0D 42 4C 54 52 31 20 4C 44 59 20 20 30 33 |R4.BLTR1 LDY 03| 000028E0: 34 20 20 20 20 3B 41 41 4E 54 41 4C 20 42 59 54 |4 ;AANTAL BYT| 000028F0: 45 53 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |ES. CLC | 00002900: 20 20 20 20 20 3B 50 45 52 20 42 4C 4F 4B 2E 0D | ;PER BLOK..| 00002910: 20 20 20 20 20 20 42 43 43 20 20 42 4C 54 52 33 | BCC BLTR3| 00002920: 20 20 3B 4E 41 41 52 20 41 46 54 45 4C 4C 45 4E | ;NAAR AFTELLEN| 00002930: 2E 0D 42 4C 54 52 32 20 4C 44 41 20 28 32 35 31 |..BLTR2 LDA (251| 00002940: 29 2C 59 20 3B 42 59 54 45 54 52 41 4E 53 50 4F |),Y ;BYTETRANSPO| 00002950: 52 54 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |RT. STA (25| 00002960: 33 29 2C 59 20 3B 42 49 4E 4E 45 4E 20 42 4C 4F |3),Y ;BINNEN BLO| 00002970: 4B 2E 0D 42 4C 54 52 33 20 44 45 59 20 20 20 20 |K..BLTR3 DEY | 00002980: 20 20 20 20 20 3B 42 59 54 45 2D 41 46 54 45 4C | ;BYTE-AFTEL| 00002990: 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 42 4C 54 |.. BPL BLT| 000029A0: 52 32 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |R2. CLC | 000029B0: 20 20 20 20 20 3B 48 41 41 4C 41 44 52 45 53 0D | ;HAALADRES.| 000029C0: 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 20 20 | LDA 251 | 000029D0: 20 20 3B 28 32 35 32 2C 32 35 31 29 0D 20 20 20 | ;(252,251). | 000029E0: 20 20 20 41 44 43 20 20 31 30 30 20 20 20 20 3B | ADC 100 ;| 000029F0: 4F 50 48 4F 47 45 4E 20 4D 45 54 0D 20 20 20 20 |OPHOGEN MET. | 00002A00: 20 20 53 54 41 20 20 32 35 31 20 20 20 20 3B 28 | STA 251 ;(| 00002A10: 31 30 31 2C 31 30 30 29 2E 0D 20 20 20 20 20 20 |101,100).. | 00002A20: 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 41 |LDA 252. A| 00002A30: 44 43 20 20 31 30 31 0D 20 20 20 20 20 20 53 54 |DC 101. ST| 00002A40: 41 20 20 32 35 32 0D 20 20 20 20 20 20 43 4C 43 |A 252. CLC| 00002A50: 20 20 20 20 20 20 20 20 20 3B 42 52 45 4E 47 41 | ;BRENGA| 00002A60: 44 52 45 53 0D 20 20 20 20 20 20 4C 44 41 20 20 |DRES. LDA | 00002A70: 32 35 33 20 20 20 20 3B 28 32 35 34 2C 32 35 33 |253 ;(254,253| 00002A80: 29 0D 20 20 20 20 20 20 41 44 43 20 20 31 30 37 |). ADC 107| 00002A90: 20 20 20 20 3B 4F 50 48 4F 47 45 4E 20 4D 45 54 | ;OPHOGEN MET| 00002AA0: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 20 |. STA 253 | 00002AB0: 20 20 20 3B 28 31 30 38 2C 31 30 37 29 2E 0D 20 | ;(108,107).. | 00002AC0: 20 20 20 20 20 4C 44 41 20 20 32 35 34 0D 20 20 | LDA 254. | 00002AD0: 20 20 20 20 41 44 43 20 20 31 30 38 0D 20 20 20 | ADC 108. | 00002AE0: 20 20 20 53 54 41 20 20 32 35 34 0D 42 4C 54 52 | STA 254.BLTR| 00002AF0: 34 20 44 45 58 20 20 20 20 20 20 20 20 20 3B 42 |4 DEX ;B| 00002B00: 4C 4F 4B 2D 41 46 54 45 4C 2E 0D 20 20 20 20 20 |LOK-AFTEL.. | 00002B10: 20 42 50 4C 20 20 42 4C 54 52 31 0D 20 20 20 20 | BPL BLTR1. | 00002B20: 20 20 52 54 53 0D 3B 0D 3B 20 20 20 20 20 42 4C | RTS.;.; BL| 00002B30: 4F 4B 56 55 4C 4C 45 4E 2E 0D 3B 0D 42 4C 56 55 |OKVULLEN..;.BLVU| 00002B40: 4C 20 4C 44 58 20 20 30 33 33 20 20 20 20 3B 41 |L LDX 033 ;A| 00002B50: 41 4E 54 41 4C 20 42 4C 4F 4B 4B 45 4E 2E 0D 20 |ANTAL BLOKKEN.. | 00002B60: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00002B70: 20 3B 4E 41 41 52 20 41 46 54 45 4C 4C 45 4E 2E | ;NAAR AFTELLEN.| 00002B80: 0D 20 20 20 20 20 20 42 43 43 20 20 42 4C 56 55 |. BCC BLVU| 00002B90: 34 0D 42 4C 56 55 31 20 4C 44 59 20 20 30 33 34 |4.BLVU1 LDY 034| 00002BA0: 20 20 20 20 3B 41 41 4E 54 41 4C 20 42 59 54 45 | ;AANTAL BYTE| 00002BB0: 53 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |S. CLC | 00002BC0: 20 20 20 20 3B 50 45 52 20 42 4C 4F 4B 2E 0D 20 | ;PER BLOK.. | 00002BD0: 20 20 20 20 20 42 43 43 20 20 42 4C 56 55 33 20 | BCC BLVU3 | 00002BE0: 20 3B 4E 41 41 52 20 41 46 54 45 4C 4C 45 4E 2E | ;NAAR AFTELLEN.| 00002BF0: 0D 42 4C 56 55 32 20 4C 44 41 20 20 32 35 31 20 |.BLVU2 LDA 251 | 00002C00: 20 20 20 3B 42 59 54 45 20 56 55 4C 4C 45 4E 0D | ;BYTE VULLEN.| 00002C10: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),| 00002C20: 59 20 3B 42 49 4E 4E 45 4E 20 42 4C 4F 4B 2E 0D |Y ;BINNEN BLOK..| 00002C30: 42 4C 56 55 33 20 44 45 59 20 20 20 20 20 20 20 |BLVU3 DEY | 00002C40: 20 20 3B 42 59 54 45 2D 41 46 54 45 4C 2E 0D 20 | ;BYTE-AFTEL.. | 00002C50: 20 20 20 20 20 42 50 4C 20 20 42 4C 56 55 32 0D | BPL BLVU2.| 00002C60: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 00002C70: 20 20 3B 42 52 45 4E 47 41 44 52 45 53 0D 20 20 | ;BRENGADRES. | 00002C80: 20 20 20 20 4C 44 41 20 20 32 35 33 20 20 20 20 | LDA 253 | 00002C90: 3B 28 32 35 34 2C 32 35 33 29 0D 20 20 20 20 20 |;(254,253). | 00002CA0: 20 41 44 43 20 20 31 30 37 20 20 20 20 3B 4F 50 | ADC 107 ;OP| 00002CB0: 48 4F 47 45 4E 20 4D 45 54 0D 20 20 20 20 20 20 |HOGEN MET. | 00002CC0: 53 54 41 20 20 32 35 33 20 20 20 20 3B 28 31 30 |STA 253 ;(10| 00002CD0: 38 2C 31 30 37 29 2E 0D 20 20 20 20 20 20 4C 44 |8,107).. LD| 00002CE0: 41 20 20 32 35 34 0D 20 20 20 20 20 20 41 44 43 |A 254. ADC| 00002CF0: 20 20 31 30 38 0D 20 20 20 20 20 20 53 54 41 20 | 108. STA | 00002D00: 20 32 35 34 0D 42 4C 56 55 34 20 44 45 58 20 20 | 254.BLVU4 DEX | 00002D10: 20 20 20 20 20 20 20 3B 42 4C 4F 4B 2D 41 46 54 | ;BLOK-AFT| 00002D20: 45 4C 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 42 |EL.. BPL B| 00002D30: 4C 56 55 31 0D 20 20 20 20 20 20 52 54 53 0D 3B |LVU1. RTS.;| 00002D40: 0D 3B 20 20 20 20 20 53 43 48 45 52 4D 20 4E 41 |.; SCHERM NA| 00002D50: 41 52 20 49 4E 44 45 58 56 45 4C 44 2E 0D 3B 0D |AR INDEXVELD..;.| 00002D60: 53 43 4E 49 4E 20 4C 44 41 20 20 53 42 44 52 4C |SCNIN LDA SBDRL| 00002D70: 20 20 3B 48 41 41 4C 41 44 52 45 53 2E 0D 20 20 | ;HAALADRES.. | 00002D80: 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 | STA 251. | 00002D90: 20 20 20 4C 44 41 20 20 53 42 44 52 48 0D 20 20 | LDA SBDRH. | 00002DA0: 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 | STA 252. | 00002DB0: 20 20 20 4C 44 41 20 20 53 49 44 52 4C 20 20 3B | LDA SIDRL ;| 00002DC0: 42 52 45 4E 47 41 44 52 45 53 2E 0D 20 20 20 20 |BRENGADRES.. | 00002DD0: 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 | STA 253. | 00002DE0: 20 4C 44 41 20 20 53 49 44 52 48 0D 20 20 20 20 | LDA SIDRH. | 00002DF0: 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 | STA 254. | 00002E00: 20 4C 44 41 20 20 30 30 37 33 31 20 20 3B 41 41 | LDA 00731 ;AA| 00002E10: 4E 54 41 4C 20 52 45 47 45 4C 53 2E 0D 20 20 20 |NTAL REGELS.. | 00002E20: 20 20 20 53 54 41 20 20 30 33 33 0D 20 20 20 20 | STA 033. | 00002E30: 20 20 4C 44 41 20 20 30 30 37 33 30 20 20 3B 41 | LDA 00730 ;A| 00002E40: 41 4E 54 2E 42 59 54 45 53 2F 52 47 2E 0D 20 20 |ANT.BYTES/RG.. | 00002E50: 20 20 20 20 53 54 41 20 20 30 33 34 0D 20 20 20 | STA 034. | 00002E60: 20 20 20 4C 44 41 20 23 30 34 30 20 20 20 20 3B | LDA #040 ;| 00002E70: 4F 50 48 4F 47 45 4E 20 56 41 4E 0D 20 20 20 20 |OPHOGEN VAN. | 00002E80: 20 20 53 54 41 20 20 31 30 30 20 20 20 20 3B 48 | STA 100 ;H| 00002E90: 41 41 4C 41 44 52 45 53 2E 0D 20 20 20 20 20 20 |AALADRES.. | 00002EA0: 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 53 |LDA #000. S| 00002EB0: 54 41 20 20 31 30 31 0D 20 20 20 20 20 20 4C 44 |TA 101. LD| 00002EC0: 41 20 20 30 30 37 33 30 20 20 3B 4F 50 48 4F 47 |A 00730 ;OPHOG| 00002ED0: 45 4E 20 56 41 4E 0D 20 20 20 20 20 20 53 54 41 |EN VAN. STA| 00002EE0: 20 20 31 30 37 20 20 20 20 3B 42 52 45 4E 47 41 | 107 ;BRENGA| 00002EF0: 44 52 45 53 2E 0D 20 20 20 20 20 20 4C 44 41 20 |DRES.. LDA | 00002F00: 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 |#000. STA | 00002F10: 31 30 38 0D 20 20 20 20 20 20 4A 53 52 20 20 42 |108. JSR B| 00002F20: 4C 54 52 41 20 20 3B 54 52 41 4E 53 50 4F 52 54 |LTRA ;TRANSPORT| 00002F30: 2E 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 |.. RTS.;. | 00002F40: 20 20 20 20 2A 3D 33 30 34 36 34 0D 3B 0D 3B 20 | *=30464.;.; | 00002F50: 5A 4F 45 4B 20 49 4E 44 45 58 20 28 31 36 37 29 |ZOEK INDEX (167)| 00002F60: 20 55 49 54 20 49 4E 44 45 58 56 45 4C 44 2E 0D | UIT INDEXVELD..| 00002F70: 3B 20 49 4E 44 49 45 4E 20 47 45 56 4F 4E 44 45 |; INDIEN GEVONDE| 00002F80: 4E 3A 20 56 45 52 56 41 4E 47 20 49 4E 20 48 45 |N: VERVANG IN HE| 00002F90: 54 0D 3B 20 53 50 45 45 4C 56 45 4C 44 20 44 45 |T.; SPEELVELD DE| 00002FA0: 20 4F 55 44 45 20 43 4F 44 45 20 44 4F 4F 52 20 | OUDE CODE DOOR | 00002FB0: 44 45 0D 3B 20 4E 49 45 55 57 45 20 43 4F 44 45 |DE.; NIEUWE CODE| 00002FC0: 20 28 31 36 38 29 3B 20 54 45 56 45 4E 53 20 44 | (168); TEVENS D| 00002FD0: 45 0D 3B 20 4B 4C 45 55 52 20 28 31 36 39 29 20 |E.; KLEUR (169) | 00002FE0: 49 4E 5A 45 54 54 45 4E 2E 0D 3B 20 44 4F 45 20 |INZETTEN..; DOE | 00002FF0: 48 45 54 5A 45 4C 46 44 45 20 49 4E 20 44 45 20 |HETZELFDE IN DE | 00003000: 43 4F 44 45 2D 0D 3B 20 56 45 43 54 4F 52 20 28 |CODE-.; VECTOR (| 00003010: 37 30 31 29 2E 2E 2E 2E 28 37 32 36 29 2E 0D 3B |701)....(726)..;| 00003020: 0D 49 5A 4F 45 4B 20 4C 44 41 20 20 53 49 44 52 |.IZOEK LDA SIDR| 00003030: 4C 20 20 3B 49 4E 44 45 58 56 45 4C 44 2E 0D 20 |L ;INDEXVELD.. | 00003040: 20 20 20 20 20 53 54 41 20 20 32 34 37 0D 20 20 | STA 247. | 00003050: 20 20 20 20 4C 44 41 20 20 53 49 44 52 48 0D 20 | LDA SIDRH. | 00003060: 20 20 20 20 20 53 54 41 20 20 32 34 38 0D 20 20 | STA 248. | 00003070: 20 20 20 20 4C 44 41 20 20 53 42 44 52 4C 20 20 | LDA SBDRL | 00003080: 3B 53 50 45 45 4C 56 45 4C 44 2E 0D 20 20 20 20 |;SPEELVELD.. | 00003090: 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 | STA 251. | 000030A0: 20 4C 44 41 20 20 53 42 44 52 48 0D 20 20 20 20 | LDA SBDRH. | 000030B0: 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 | STA 252. | 000030C0: 20 4C 44 41 20 20 53 4C 44 52 4C 20 20 3B 53 50 | LDA SLDRL ;SP| 000030D0: 45 45 4C 56 2E 4B 4C 45 55 52 2E 0D 20 20 20 20 |EELV.KLEUR.. | 000030E0: 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 | STA 253. | 000030F0: 20 4C 44 41 20 20 53 4C 44 52 48 0D 20 20 20 20 | LDA SLDRH. | 00003100: 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 | STA 254. | 00003110: 20 4C 44 58 20 20 30 30 37 33 31 20 20 3B 41 41 | LDX 00731 ;AA| 00003120: 4E 54 41 4C 20 52 45 47 45 4C 53 2E 0D 20 20 20 |NTAL REGELS.. | 00003130: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 | CLC. BCC| 00003140: 20 20 49 5A 4F 45 34 0D 49 5A 4F 45 31 20 4C 44 | IZOE4.IZOE1 LD| 00003150: 59 20 20 30 30 37 33 30 20 20 3B 41 41 4E 54 41 |Y 00730 ;AANTA| 00003160: 4C 20 42 59 54 45 53 0D 20 20 20 20 20 20 43 4C |L BYTES. CL| 00003170: 43 20 20 20 20 20 20 20 20 20 3B 50 45 52 20 52 |C ;PER R| 00003180: 45 47 45 4C 2E 0D 20 20 20 20 20 20 42 43 43 20 |EGEL.. BCC | 00003190: 20 49 5A 4F 45 33 0D 49 5A 4F 45 32 20 4C 44 41 | IZOE3.IZOE2 LDA| 000031A0: 20 28 32 34 37 29 2C 59 20 3B 49 4E 44 45 58 20 | (247),Y ;INDEX | 000031B0: 55 49 54 20 56 45 4C 44 2E 0D 20 20 20 20 20 20 |UIT VELD.. | 000031C0: 42 45 51 20 20 49 5A 4F 45 33 20 20 3B 20 20 3D |BEQ IZOE3 ; =| 000031D0: 20 4E 55 4C 3F 0D 20 20 20 20 20 20 43 4D 50 20 | NUL?. CMP | 000031E0: 20 31 36 37 20 20 20 20 3B 4F 46 3D 5A 4F 45 4B | 167 ;OF=ZOEK| 000031F0: 49 4E 44 45 58 3F 0D 20 20 20 20 20 20 42 4E 45 |INDEX?. BNE| 00003200: 20 20 49 5A 4F 45 33 20 20 3B 4E 45 45 3A 44 4F | IZOE3 ;NEE:DO| 00003210: 4F 52 47 41 41 4E 2E 0D 20 20 20 20 20 20 4C 44 |ORGAAN.. LD| 00003220: 41 20 20 31 36 38 20 20 20 20 3B 4E 49 45 55 57 |A 168 ;NIEUW| 00003230: 20 54 45 4B 45 4E 0D 20 20 20 20 20 20 53 54 41 | TEKEN. STA| 00003240: 20 28 32 35 31 29 2C 59 20 3B 49 4E 20 53 50 45 | (251),Y ;IN SPE| 00003250: 45 4C 56 45 4C 44 20 4F 50 0D 20 20 20 20 20 20 |ELVELD OP. | 00003260: 4C 44 41 20 20 31 36 39 20 20 20 20 3B 5A 45 4C |LDA 169 ;ZEL| 00003270: 46 44 45 20 50 4C 41 41 54 53 2E 0D 20 20 20 20 |FDE PLAATS.. | 00003280: 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B 4F | STA (253),Y ;O| 00003290: 4F 4B 20 44 45 20 4B 4C 45 55 52 2E 0D 49 5A 4F |OK DE KLEUR..IZO| 000032A0: 45 33 20 44 45 59 20 20 20 20 20 20 20 20 20 3B |E3 DEY ;| 000032B0: 41 46 54 45 4C 4C 45 4E 20 42 59 54 45 53 2E 0D |AFTELLEN BYTES..| 000032C0: 20 20 20 20 20 20 42 50 4C 20 20 49 5A 4F 45 32 | BPL IZOE2| 000032D0: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 000032E0: 20 20 20 3B 48 4F 4F 47 20 52 45 47 2E 41 44 52 | ;HOOG REG.ADR| 000032F0: 2E 4F 50 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |.OP. LDA 2| 00003300: 34 37 20 20 20 20 3B 4D 45 54 20 41 41 4E 54 2E |47 ;MET AANT.| 00003310: 2F 52 45 47 2E 0D 20 20 20 20 20 20 41 44 43 20 |/REG.. ADC | 00003320: 20 30 30 37 33 30 0D 20 20 20 20 20 20 53 54 41 | 00730. STA| 00003330: 20 20 32 34 37 0D 20 20 20 20 20 20 4C 44 41 20 | 247. LDA | 00003340: 20 32 34 38 0D 20 20 20 20 20 20 41 44 43 20 23 | 248. ADC #| 00003350: 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 32 |000. STA 2| 00003360: 34 38 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |48. CLC | 00003370: 20 20 20 20 20 3B 4F 50 48 4F 47 45 4E 20 41 44 | ;OPHOGEN AD| 00003380: 52 45 53 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |RES. LDA 2| 00003390: 35 31 20 20 20 20 3B 53 50 45 45 4C 56 2E 4D 45 |51 ;SPEELV.ME| 000033A0: 54 20 34 30 2E 0D 20 20 20 20 20 20 41 44 43 20 |T 40.. ADC | 000033B0: 23 30 34 30 0D 20 20 20 20 20 20 53 54 41 20 20 |#040. STA | 000033C0: 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |251. LDA 2| 000033D0: 35 32 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 |52. ADC #00| 000033E0: 30 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 |0. STA 252| 000033F0: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00003400: 20 20 20 3B 4F 50 48 4F 47 45 4E 20 41 44 52 45 | ;OPHOGEN ADRE| 00003410: 53 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 33 |S. LDA 253| 00003420: 20 20 20 20 3B 4B 4C 45 55 52 20 53 50 45 45 4C | ;KLEUR SPEEL| 00003430: 56 2E 0D 20 20 20 20 20 20 41 44 43 20 23 30 34 |V.. ADC #04| 00003440: 30 20 20 20 20 3B 4D 45 54 20 34 30 2E 0D 20 20 |0 ;MET 40.. | 00003450: 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 | STA 253. | 00003460: 20 20 20 4C 44 41 20 20 32 35 34 0D 20 20 20 20 | LDA 254. | 00003470: 20 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 | ADC #000. | 00003480: 20 53 54 41 20 20 32 35 34 0D 49 5A 4F 45 34 20 | STA 254.IZOE4 | 00003490: 44 45 58 20 20 20 20 20 20 20 20 20 3B 41 46 54 |DEX ;AFT| 000034A0: 45 4C 20 56 2E 52 45 47 45 4C 53 2E 0D 20 20 20 |EL V.REGELS.. | 000034B0: 20 20 20 42 50 4C 20 20 49 5A 4F 45 31 20 20 3B | BPL IZOE1 ;| 000034C0: 45 49 4E 44 3A 56 45 52 56 41 4E 47 0D 20 20 20 |EIND:VERVANG. | 000034D0: 20 20 20 4C 44 58 20 20 31 36 37 20 20 20 20 3B | LDX 167 ;| 000034E0: 49 4E 20 56 45 43 54 4F 52 2E 0D 20 20 20 20 20 |IN VECTOR.. | 000034F0: 20 4C 44 41 20 20 31 36 38 0D 20 20 20 20 20 20 | LDA 168. | 00003500: 53 54 41 20 20 30 30 37 30 30 2C 58 0D 20 20 20 |STA 00700,X. | 00003510: 20 20 20 52 54 53 0D 3B 0D 3B 20 20 20 20 20 49 | RTS.;.; I| 00003520: 4E 44 45 58 56 45 4C 44 20 4E 41 41 52 20 53 50 |NDEXVELD NAAR SP| 00003530: 45 45 4C 56 45 4C 44 20 4D 45 54 0D 3B 20 20 20 |EELVELD MET.; | 00003540: 20 20 43 4F 44 45 52 49 4E 47 20 56 4F 4C 47 45 | CODERING VOLGE| 00003550: 4E 53 20 44 45 20 56 45 43 54 4F 52 0D 3B 20 20 |NS DE VECTOR.; | 00003560: 20 20 20 28 37 30 30 29 28 37 30 31 29 2E 2E 2E | (700)(701)...| 00003570: 2E 28 37 32 36 29 2E 0D 3B 0D 49 4E 53 43 4F 20 |.(726)..;.INSCO | 00003580: 4C 44 41 20 20 53 49 44 52 4C 20 20 3B 48 41 41 |LDA SIDRL ;HAA| 00003590: 4C 41 44 52 45 53 20 56 41 4E 0D 20 20 20 20 20 |LADRES VAN. | 000035A0: 20 53 54 41 20 20 32 35 31 20 20 20 20 3B 49 4E | STA 251 ;IN| 000035B0: 44 45 58 56 45 4C 44 2E 0D 20 20 20 20 20 20 4C |DEXVELD.. L| 000035C0: 44 41 20 20 53 49 44 52 48 0D 20 20 20 20 20 20 |DA SIDRH. | 000035D0: 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 4C |STA 252. L| 000035E0: 44 41 20 20 53 42 44 52 4C 20 20 3B 42 52 45 4E |DA SBDRL ;BREN| 000035F0: 47 41 44 52 45 53 20 56 41 4E 0D 20 20 20 20 20 |GADRES VAN. | 00003600: 20 53 54 41 20 20 32 35 33 20 20 20 20 3B 53 50 | STA 253 ;SP| 00003610: 45 45 4C 56 45 4C 44 2E 0D 20 20 20 20 20 20 4C |EELVELD.. L| 00003620: 44 41 20 20 53 42 44 52 48 0D 20 20 20 20 20 20 |DA SBDRH. | 00003630: 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 20 4C |STA 254. L| 00003640: 44 58 20 20 30 30 37 33 31 20 20 3B 41 41 4E 54 |DX 00731 ;AANT| 00003650: 41 4C 20 52 45 47 45 4C 53 2E 0D 20 20 20 20 20 |AL REGELS.. | 00003660: 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 | CLC. BCC | 00003670: 49 4E 53 43 34 0D 49 4E 53 43 31 20 4C 44 59 20 |INSC4.INSC1 LDY | 00003680: 20 30 30 37 33 30 20 20 3B 41 41 4E 54 41 4C 20 | 00730 ;AANTAL | 00003690: 42 59 54 45 53 0D 20 20 20 20 20 20 43 4C 43 20 |BYTES. CLC | 000036A0: 20 20 20 20 20 20 20 20 3B 50 45 52 20 52 45 47 | ;PER REG| 000036B0: 45 4C 2E 0D 20 20 20 20 20 20 42 43 43 20 20 49 |EL.. BCC I| 000036C0: 4E 53 43 33 20 20 3B 56 4F 45 52 20 4F 50 0D 49 |NSC3 ;VOER OP.I| 000036D0: 4E 53 43 32 20 4C 44 41 20 28 32 35 31 29 2C 59 |NSC2 LDA (251),Y| 000036E0: 20 3B 42 59 54 45 2D 49 4E 44 45 58 2E 0D 20 20 | ;BYTE-INDEX.. | 000036F0: 20 20 20 20 53 54 59 20 20 30 30 32 20 20 20 20 | STY 002 | 00003700: 3B 52 45 44 20 28 59 29 2E 0D 20 20 20 20 20 20 |;RED (Y).. | 00003710: 43 4D 50 20 23 30 32 37 20 20 20 20 3B 53 50 41 |CMP #027 ;SPA| 00003720: 54 49 45 20 4F 46 20 41 2D 5A 3F 0D 20 20 20 20 |TIE OF A-Z?. | 00003730: 20 20 42 43 43 20 20 49 4E 53 44 31 20 20 3B 4E | BCC INSD1 ;N| 00003740: 45 45 4E 3A 5A 45 54 20 4E 55 4C 2E 0D 20 20 20 |EEN:ZET NUL.. | 00003750: 20 20 20 4C 44 41 20 23 30 30 30 0D 49 4E 53 44 | LDA #000.INSD| 00003760: 31 20 54 41 59 20 20 20 20 20 20 20 20 20 3B 49 |1 TAY ;I| 00003770: 4E 44 2E 56 4F 4F 52 20 56 45 43 54 2E 0D 20 20 |ND.VOOR VECT.. | 00003780: 20 20 20 20 4C 44 41 20 20 30 30 37 30 30 2C 59 | LDA 00700,Y| 00003790: 20 20 3B 43 4F 44 45 52 45 4E 2E 0D 20 20 20 20 | ;CODEREN.. | 000037A0: 20 20 4C 44 59 20 20 30 30 32 20 20 20 20 20 20 | LDY 002 | 000037B0: 3B 48 45 52 53 54 45 4C 20 28 59 29 2E 0D 20 20 |;HERSTEL (Y).. | 000037C0: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 | STA (253),Y | 000037D0: 20 20 3B 49 4E 20 53 50 45 45 4C 56 45 4C 44 2E | ;IN SPEELVELD.| 000037E0: 0D 49 4E 53 43 33 20 44 45 59 20 20 20 20 20 20 |.INSC3 DEY | 000037F0: 20 20 20 3B 42 59 54 45 2D 41 46 54 45 4C 2E 0D | ;BYTE-AFTEL..| 00003800: 20 20 20 20 20 20 42 50 4C 20 20 49 4E 53 43 32 | BPL INSC2| 00003810: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00003820: 20 20 20 3B 48 41 41 4C 41 44 52 45 53 0D 20 20 | ;HAALADRES. | 00003830: 20 20 20 20 4C 44 41 20 20 32 35 31 20 20 20 20 | LDA 251 | 00003840: 3B 4F 50 48 4F 47 45 4E 20 4D 45 54 0D 20 20 20 |;OPHOGEN MET. | 00003850: 20 20 20 41 44 43 20 20 30 30 37 33 30 20 20 3B | ADC 00730 ;| 00003860: 41 41 4E 54 41 4C 20 42 59 54 45 53 0D 20 20 20 |AANTAL BYTES. | 00003870: 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 3B | STA 251 ;| 00003880: 50 45 52 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 |PER REGEL.. | 00003890: 20 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 | LDA 252. | 000038A0: 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 |ADC #000. S| 000038B0: 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 43 4C |TA 252. CL| 000038C0: 43 20 20 20 20 20 20 20 20 20 3B 42 52 45 4E 47 |C ;BRENG| 000038D0: 41 44 52 45 53 0D 20 20 20 20 20 20 4C 44 41 20 |ADRES. LDA | 000038E0: 20 32 35 33 20 20 20 20 3B 4F 50 48 4F 47 45 4E | 253 ;OPHOGEN| 000038F0: 0D 20 20 20 20 20 20 41 44 43 20 23 30 34 30 20 |. ADC #040 | 00003900: 20 20 20 3B 4D 45 54 20 34 30 2E 0D 20 20 20 20 | ;MET 40.. | 00003910: 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 | STA 253. | 00003920: 20 4C 44 41 20 20 32 35 34 0D 20 20 20 20 20 20 | LDA 254. | 00003930: 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 |ADC #000. S| 00003940: 54 41 20 20 32 35 34 0D 49 4E 53 43 34 20 44 45 |TA 254.INSC4 DE| 00003950: 58 20 20 20 20 20 20 20 20 20 3B 52 45 47 45 4C |X ;REGEL| 00003960: 2D 41 46 54 45 4C 2E 0D 20 20 20 20 20 20 42 50 |-AFTEL.. BP| 00003970: 4C 20 20 49 4E 53 43 31 0D 20 20 20 20 20 20 52 |L INSC1. R| 00003980: 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 36 |TS.;. *=306| 00003990: 36 34 0D 3B 0D 3B 20 20 20 20 20 5A 45 54 20 47 |64.;.; ZET G| 000039A0: 45 54 41 4C 20 31 30 2A 28 58 29 2B 28 59 29 20 |ETAL 10*(X)+(Y) | 000039B0: 49 4E 20 30 30 32 2E 0D 3B 0D 44 45 43 58 59 20 |IN 002..;.DECXY | 000039C0: 43 4C 43 0D 20 20 20 20 20 20 54 58 41 20 20 20 |CLC. TXA | 000039D0: 20 20 20 20 20 20 3B 54 49 45 4E 54 41 4C 4C 45 | ;TIENTALLE| 000039E0: 4E 20 28 58 29 2E 0D 20 20 20 20 20 20 52 4F 4C |N (X).. ROL| 000039F0: 20 20 20 20 20 20 20 20 20 3B 56 45 52 44 55 42 | ;VERDUB| 00003A00: 42 45 4C 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |BEL.. STA | 00003A10: 30 30 32 20 20 20 20 3B 54 49 4A 44 45 4C 49 4A |002 ;TIJDELIJ| 00003A20: 4B 2E 0D 20 20 20 20 20 20 52 4F 4C 20 20 20 20 |K.. ROL | 00003A30: 20 20 20 20 20 3B 4D 41 41 4C 20 41 43 48 54 2E | ;MAAL ACHT.| 00003A40: 0D 20 20 20 20 20 20 52 4F 4C 0D 20 20 20 20 20 |. ROL. | 00003A50: 20 41 44 43 20 20 30 30 32 20 20 20 20 3B 31 30 | ADC 002 ;10| 00003A60: 2A 28 58 29 20 49 4E 20 41 2E 0D 20 20 20 20 20 |*(X) IN A.. | 00003A70: 20 53 54 59 20 20 30 30 32 20 20 20 20 3B 52 45 | STY 002 ;RE| 00003A80: 44 20 45 45 4E 48 45 44 45 4E 2E 0D 20 20 20 20 |D EENHEDEN.. | 00003A90: 20 20 41 44 43 20 20 30 30 32 20 20 20 20 3B 54 | ADC 002 ;T| 00003AA0: 45 4C 20 42 49 4A 2E 0D 20 20 20 20 20 20 53 54 |EL BIJ.. ST| 00003AB0: 41 20 20 30 30 32 20 20 20 20 3B 53 4F 4D 20 4B |A 002 ;SOM K| 00003AC0: 4C 41 41 52 2E 0D 20 20 20 20 20 20 52 54 53 0D |LAAR.. RTS.| 00003AD0: 3B 0D 20 20 20 20 20 20 2A 3D 33 30 36 38 38 0D |;. *=30688.| 00003AE0: 3B 0D 3B 20 20 20 20 20 56 55 4C 20 43 4F 44 45 |;.; VUL CODE| 00003AF0: 56 45 43 54 4F 52 2E 0D 3B 20 20 20 20 20 28 37 |VECTOR..; (7| 00003B00: 30 30 29 20 47 45 52 45 56 45 52 54 45 45 52 44 |00) GEREVERTEERD| 00003B10: 45 20 53 50 41 54 49 45 3B 0D 3B 20 20 20 20 20 |E SPATIE;.; | 00003B20: 28 37 30 31 29 3D 22 41 22 3B 20 28 37 30 32 29 |(701)="A"; (702)| 00003B30: 3D 22 42 22 3B 20 2E 2E 2E 2E 2E 3B 0D 3B 20 20 |="B"; .....;.; | 00003B40: 20 20 20 28 37 32 36 29 3D 22 5A 22 2E 0D 3B 20 | (726)="Z"..; | 00003B50: 20 20 20 20 50 4F 4B 45 20 53 45 54 20 31 3B 20 | POKE SET 1; | 00003B60: 44 55 53 20 22 41 22 3D 31 20 45 4E 5A 2E 0D 3B |DUS "A"=1 ENZ..;| 00003B70: 0D 56 45 43 54 4F 20 4C 44 58 20 23 30 32 36 0D |.VECTO LDX #026.| 00003B80: 56 45 43 54 31 20 54 58 41 0D 20 20 20 20 20 20 |VECT1 TXA. | 00003B90: 53 54 41 20 20 30 30 37 30 30 2C 58 0D 20 20 20 |STA 00700,X. | 00003BA0: 20 20 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C | DEX. BPL| 00003BB0: 20 20 56 45 43 54 31 0D 20 20 20 20 20 20 4C 44 | VECT1. LD| 00003BC0: 41 20 23 31 36 30 0D 20 20 20 20 20 20 53 54 41 |A #160. STA| 00003BD0: 20 20 30 30 37 30 30 0D 20 20 20 20 20 20 52 54 | 00700. RT| 00003BE0: 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 37 30 |S.;. *=3070| 00003BF0: 34 0D 3B 0D 3B 20 5A 4F 45 4B 20 54 45 4B 45 4E |4.;.; ZOEK TEKEN| 00003C00: 20 28 30 30 32 29 20 55 49 54 20 43 4F 44 45 56 | (002) UIT CODEV| 00003C10: 45 43 54 4F 52 2E 0D 3B 20 49 4E 44 45 58 20 28 |ECTOR..; INDEX (| 00003C20: 30 31 2E 2E 32 36 29 20 49 4E 20 52 45 47 2E 20 |01..26) IN REG. | 00003C30: 58 2E 0D 3B 0D 5A 4F 45 56 45 20 4C 44 58 20 23 |X..;.ZOEVE LDX #| 00003C40: 30 32 36 20 20 20 20 20 3B 56 41 4E 41 46 20 4C |026 ;VANAF L| 00003C50: 41 41 54 53 54 45 2E 0D 5A 4F 45 56 31 20 4C 44 |AATSTE..ZOEV1 LD| 00003C60: 41 20 20 30 30 37 30 30 2C 58 20 3B 56 4F 45 52 |A 00700,X ;VOER| 00003C70: 20 54 45 4B 45 4E 20 4F 50 2E 0D 20 20 20 20 20 | TEKEN OP.. | 00003C80: 20 43 4D 50 20 20 30 30 32 20 20 20 20 20 3B 20 | CMP 002 ; | 00003C90: 3D 20 5A 4F 45 4B 49 54 45 4D 3F 0D 20 20 20 20 |= ZOEKITEM?. | 00003CA0: 20 20 42 45 51 20 20 5A 4F 45 56 32 20 20 20 3B | BEQ ZOEV2 ;| 00003CB0: 4E 45 45 4E 3A 54 45 4C 20 41 46 2E 0D 20 20 20 |NEEN:TEL AF.. | 00003CC0: 20 20 20 44 45 58 20 20 20 20 20 20 20 20 20 20 | DEX | 00003CD0: 3B 4B 4C 41 41 52 3F 20 4A 41 3A 0D 20 20 20 20 |;KLAAR? JA:. | 00003CE0: 20 20 42 4E 45 20 20 5A 4F 45 56 31 20 20 20 3B | BNE ZOEV1 ;| 00003CF0: 5A 45 54 20 49 4E 44 45 58 2E 0D 5A 4F 45 56 32 |ZET INDEX..ZOEV2| 00003D00: 20 52 54 53 20 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 00003D10: 55 4C 3A 20 46 4F 55 54 2E 0D 3B 0D 20 20 20 20 |UL: FOUT..;. | 00003D20: 20 20 2A 3D 33 30 37 32 30 0D 3B 0D 3B 20 56 45 | *=30720.;.; VE| 00003D30: 52 4D 45 4E 49 47 56 55 4C 44 49 47 45 4E 20 4D |RMENIGVULDIGEN M| 00003D40: 45 54 20 4F 50 54 45 4C 4C 45 4E 2E 0D 3B 28 32 |ET OPTELLEN..;(2| 00003D50: 35 32 2C 32 35 31 29 2B 28 31 30 37 29 2A 28 31 |52,251)+(107)*(1| 00003D60: 36 37 29 3D 3E 28 32 35 32 2C 32 35 31 29 2E 0D |67)=>(252,251)..| 00003D70: 3B 0D 4D 55 4C 4F 50 20 54 58 41 20 20 20 20 20 |;.MULOP TXA | 00003D80: 20 20 20 20 3B 52 45 44 20 28 58 29 2C 28 59 29 | ;RED (X),(Y)| 00003D90: 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 |.. PHA. | 00003DA0: 20 20 54 59 41 0D 20 20 20 20 20 20 50 48 41 0D | TYA. PHA.| 00003DB0: 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 | LDX #000 | 00003DC0: 20 20 3B 47 45 44 45 45 4C 54 45 4C 49 4A 4B 0D | ;GEDEELTELIJK.| 00003DD0: 20 20 20 20 20 20 4C 44 59 20 20 31 36 37 20 20 | LDY 167 | 00003DE0: 20 20 3B 50 52 4F 44 55 43 54 2E 0D 20 20 20 20 | ;PRODUCT.. | 00003DF0: 20 20 43 4C 43 0D 4D 55 4C 4F 31 20 4C 44 41 20 | CLC.MULO1 LDA | 00003E00: 20 31 30 37 20 20 20 20 3B 42 49 54 20 53 45 4E | 107 ;BIT SEN| 00003E10: 53 20 56 4F 4F 52 0D 20 20 20 20 20 20 42 45 51 |S VOOR. BEQ| 00003E20: 20 20 4D 55 4C 4F 33 20 20 3B 4F 50 54 45 4C 4C | MULO3 ;OPTELL| 00003E30: 45 4E 2E 0D 20 20 20 20 20 20 52 4F 52 20 20 31 |EN.. ROR 1| 00003E40: 30 37 20 20 20 20 3B 53 43 48 55 49 46 20 4F 50 |07 ;SCHUIF OP| 00003E50: 2E 0D 20 20 20 20 20 20 42 43 43 20 20 4D 55 4C |.. BCC MUL| 00003E60: 4F 32 20 20 3B 42 49 54 20 3D 20 3F 0D 20 20 20 |O2 ;BIT = ?. | 00003E70: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 54 59 41 | CLC. TYA| 00003E80: 20 20 20 20 20 20 20 20 20 3B 42 49 54 20 3D 20 | ;BIT = | 00003E90: 31 3A 20 54 45 4C 0D 20 20 20 20 20 20 41 44 43 |1: TEL. ADC| 00003EA0: 20 20 32 35 31 20 20 20 20 3B 47 45 44 45 45 4C | 251 ;GEDEEL| 00003EB0: 54 45 4C 49 4A 4B 0D 20 20 20 20 20 20 53 54 41 |TELIJK. STA| 00003EC0: 20 20 32 35 31 20 20 20 20 3B 50 52 4F 44 55 43 | 251 ;PRODUC| 00003ED0: 54 20 42 49 4A 2E 0D 20 20 20 20 20 20 54 58 41 |T BIJ.. TXA| 00003EE0: 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 32 0D |. ADC 252.| 00003EF0: 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 | STA 252. | 00003F00: 20 20 20 20 20 43 4C 43 0D 4D 55 4C 4F 32 20 54 | CLC.MULO2 T| 00003F10: 59 41 20 20 20 20 20 20 20 20 20 3B 44 41 41 52 |YA ;DAAR| 00003F20: 4E 41 20 47 45 44 45 45 4C 2D 0D 20 20 20 20 20 |NA GEDEEL-. | 00003F30: 20 52 4F 4C 20 20 41 20 20 20 20 20 20 3B 54 45 | ROL A ;TE| 00003F40: 4C 49 4A 4B 20 50 52 4F 44 55 43 54 0D 20 20 20 |LIJK PRODUCT. | 00003F50: 20 20 20 54 41 59 20 20 20 20 20 20 20 20 20 3B | TAY ;| 00003F60: 53 43 48 55 49 56 45 4E 2E 0D 20 20 20 20 20 20 |SCHUIVEN.. | 00003F70: 54 58 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 |TXA. ROL A| 00003F80: 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 |. TAX. | 00003F90: 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 | CLC. BCC | 00003FA0: 4D 55 4C 4F 31 0D 4D 55 4C 4F 33 20 50 4C 41 20 |MULO1.MULO3 PLA | 00003FB0: 20 20 20 20 20 20 20 20 3B 48 45 52 53 54 45 4C | ;HERSTEL| 00003FC0: 20 28 58 29 0D 20 20 20 20 20 20 54 41 59 20 20 | (X). TAY | 00003FD0: 20 20 20 20 20 20 20 3B 45 4E 20 28 59 29 2E 0D | ;EN (Y)..| 00003FE0: 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 | PLA. | 00003FF0: 54 41 58 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D |TAX. RTS.;.| 00004000: 20 20 20 20 20 20 2A 3D 33 30 37 36 38 0D 3B 0D | *=30768.;.| 00004010: 3B 20 57 49 53 53 45 4C 20 44 45 20 43 4F 44 45 |; WISSEL DE CODE| 00004020: 20 43 4E 3D 28 31 36 38 29 0D 3B 20 4F 4D 20 4D | CN=(168).; OM M| 00004030: 45 54 20 44 45 20 43 4F 44 45 20 43 4F 3D 28 31 |ET DE CODE CO=(1| 00004040: 36 37 29 0D 3B 20 49 4E 20 56 45 43 54 4F 52 20 |67).; IN VECTOR | 00004050: 45 4E 20 53 50 45 45 4C 56 45 4C 44 2E 0D 3B 0D |EN SPEELVELD..;.| 00004060: 57 49 53 43 4F 20 4C 44 41 20 20 31 36 38 20 20 |WISCO LDA 168 | 00004070: 20 20 3B 43 4F 44 45 20 43 4E 2E 0D 20 20 20 20 | ;CODE CN.. | 00004080: 20 20 43 4D 50 20 20 31 36 37 20 20 20 20 3B 43 | CMP 167 ;C| 00004090: 4E 3D 43 4F 3F 0D 20 20 20 20 20 20 42 45 51 20 |N=CO?. BEQ | 000040A0: 20 57 49 53 43 31 20 20 3B 4A 41 3A 20 4B 4C 41 | WISC1 ;JA: KLA| 000040B0: 41 52 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 |AR.. STA 0| 000040C0: 30 32 20 20 20 20 3B 4E 45 45 4E 3A 5A 4F 45 4B |02 ;NEEN:ZOEK| 000040D0: 20 42 49 4A 0D 20 20 20 20 20 20 4A 53 52 20 20 | BIJ. JSR | 000040E0: 5A 4F 45 56 45 20 20 3B 20 20 43 4F 44 45 20 43 |ZOEVE ; CODE C| 000040F0: 4E 0D 20 20 20 20 20 20 43 50 58 20 23 30 30 31 |N. CPX #001| 00004100: 20 20 20 20 3B 20 49 4E 44 45 58 20 49 4E 2E 0D | ; INDEX IN..| 00004110: 20 20 20 20 20 20 42 43 43 20 20 57 49 53 43 31 | BCC WISC1| 00004120: 20 20 3B 20 43 4E 3D 3E 28 31 36 38 29 20 41 4C | ; CN=>(168) AL| 00004130: 2E 0D 20 20 20 20 20 20 53 54 58 20 20 31 30 37 |.. STX 107| 00004140: 20 20 20 20 3B 20 49 4E 3D 3E 28 31 30 37 29 2E | ; IN=>(107).| 00004150: 0D 20 20 20 20 20 20 4C 44 41 20 20 31 36 37 20 |. LDA 167 | 00004160: 20 20 20 3B 43 4F 44 45 20 43 4F 2E 0D 20 20 20 | ;CODE CO.. | 00004170: 20 20 20 53 54 41 20 20 30 30 32 20 20 20 20 3B | STA 002 ;| 00004180: 5A 4F 45 4B 20 42 49 4A 0D 20 20 20 20 20 20 4A |ZOEK BIJ. J| 00004190: 53 52 20 20 5A 4F 45 56 45 20 20 3B 20 20 43 4F |SR ZOEVE ; CO| 000041A0: 44 45 20 43 4F 0D 20 20 20 20 20 20 43 50 58 20 |DE CO. CPX | 000041B0: 23 30 30 31 20 20 20 20 3B 20 49 4E 44 45 58 20 |#001 ; INDEX | 000041C0: 49 4F 2E 0D 20 20 20 20 20 20 42 43 43 20 20 57 |IO.. BCC W| 000041D0: 49 53 43 31 20 20 3B 20 43 4F 3D 3E 28 30 30 32 |ISC1 ; CO=>(002| 000041E0: 29 2E 0D 20 20 20 20 20 20 53 54 58 20 20 31 36 |).. STX 16| 000041F0: 37 20 20 20 20 3B 20 49 4F 3D 3E 28 31 36 37 29 |7 ; IO=>(167)| 00004200: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 54 43 41 |.. LDA TCA| 00004210: 4B 4C 20 20 3B 4B 4C 45 55 52 27 4E 49 45 55 57 |KL ;KLEUR'NIEUW| 00004220: 27 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 |'.. STA 16| 00004230: 39 0D 20 20 20 20 20 20 4A 53 52 20 20 49 5A 4F |9. JSR IZO| 00004240: 45 4B 20 20 3B 56 45 52 56 41 4E 47 2E 0D 20 20 |EK ;VERVANG.. | 00004250: 20 20 20 20 4C 44 41 20 20 31 30 37 20 20 20 20 | LDA 107 | 00004260: 3B 20 49 4E 3D 3E 28 31 36 37 29 2E 0D 20 20 20 |; IN=>(167).. | 00004270: 20 20 20 53 54 41 20 20 31 36 37 20 20 20 20 3B | STA 167 ;| 00004280: 20 43 4F 3D 3E 28 31 36 38 29 2E 0D 20 20 20 20 | CO=>(168).. | 00004290: 20 20 4C 44 41 20 20 30 30 32 0D 20 20 20 20 20 | LDA 002. | 000042A0: 20 53 54 41 20 20 31 36 38 0D 20 20 20 20 20 20 | STA 168. | 000042B0: 4C 44 41 20 20 54 43 42 4B 4C 20 20 3B 4B 4C 45 |LDA TCBKL ;KLE| 000042C0: 55 52 20 27 4F 55 44 27 2E 0D 20 20 20 20 20 20 |UR 'OUD'.. | 000042D0: 53 54 41 20 20 31 36 39 0D 20 20 20 20 20 20 4A |STA 169. J| 000042E0: 53 52 20 20 49 5A 4F 45 4B 20 20 3B 56 45 52 56 |SR IZOEK ;VERV| 000042F0: 41 4E 47 2E 0D 57 49 53 43 31 20 52 54 53 0D 3B |ANG..WISC1 RTS.;| 00004300: 0D 20 20 20 20 20 20 2A 3D 33 30 38 33 32 0D 3B |. *=30832.;| 00004310: 0D 3B 20 53 45 4C 45 43 54 20 42 41 4E 4B 20 4E |.; SELECT BANK N| 00004320: 55 4D 4D 45 52 20 23 28 58 29 20 45 4E 0D 3B 20 |UMMER #(X) EN.; | 00004330: 44 41 41 52 49 4E 20 53 43 48 45 52 4D 20 4E 52 |DAARIN SCHERM NR| 00004340: 2E 20 20 23 28 59 29 2E 0D 3B 0D 42 4E 4B 41 30 |. #(Y)..;.BNKA0| 00004350: 20 4C 44 41 20 20 35 36 35 37 38 20 20 3B 4F 55 | LDA 56578 ;OU| 00004360: 54 50 55 54 53 2E 0D 20 20 20 20 20 20 4F 52 41 |TPUTS.. ORA| 00004370: 20 23 30 30 33 0D 20 20 20 20 20 20 53 54 41 20 | #003. STA | 00004380: 20 35 36 35 37 38 0D 20 20 20 20 20 20 54 58 41 | 56578. TXA| 00004390: 20 20 20 20 20 20 20 20 20 3B 42 41 4E 4B 4E 55 | ;BANKNU| 000043A0: 4D 4D 45 52 2E 0D 20 20 20 20 20 20 45 4F 52 20 |MMER.. EOR | 000043B0: 23 30 30 33 20 20 20 20 3B 43 4F 4D 50 4C 45 4D |#003 ;COMPLEM| 000043C0: 45 4E 54 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |ENT.. STA | 000043D0: 30 30 32 0D 20 20 20 20 20 20 4C 44 41 20 20 35 |002. LDA 5| 000043E0: 36 35 37 36 20 20 3B 42 41 4E 4B 43 45 4C 20 56 |6576 ;BANKCEL V| 000043F0: 49 43 2E 0D 20 20 20 20 20 20 41 4E 44 20 23 32 |IC.. AND #2| 00004400: 35 32 20 20 20 20 3B 42 49 54 53 20 30 2C 31 2E |52 ;BITS 0,1.| 00004410: 0D 20 20 20 20 20 20 4F 52 41 20 20 30 30 32 20 |. ORA 002 | 00004420: 20 20 20 3B 20 33 20 2D 20 28 58 29 2E 0D 20 20 | ; 3 - (X).. | 00004430: 20 20 20 20 53 54 41 20 20 35 36 35 37 36 0D 20 | STA 56576. | 00004440: 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 20 | TYA | 00004450: 20 3B 53 43 48 45 52 4D 20 49 4E 20 42 41 4E 4B | ;SCHERM IN BANK| 00004460: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 36 |.. STA 006| 00004470: 34 38 20 20 3B 54 49 4A 44 45 4C 49 4A 4B 2E 0D |48 ;TIJDELIJK..| 00004480: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00004490: 52 4F 4C 20 20 20 20 20 20 20 20 20 3B 31 36 20 |ROL ;16 | 000044A0: 2A 20 28 59 29 2E 0D 20 20 20 20 20 20 52 4F 4C |* (Y).. ROL| 000044B0: 0D 20 20 20 20 20 20 52 4F 4C 0D 20 20 20 20 20 |. ROL. | 000044C0: 20 52 4F 4C 0D 20 20 20 20 20 20 53 54 41 20 20 | ROL. STA | 000044D0: 30 30 32 20 20 20 20 3B 54 49 4A 44 45 4C 49 4A |002 ;TIJDELIJ| 000044E0: 4B 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 35 33 |K.. LDA 53| 000044F0: 32 37 32 20 20 3B 53 43 48 45 52 4D 43 45 4C 20 |272 ;SCHERMCEL | 00004500: 56 49 43 2E 0D 20 20 20 20 20 20 41 4E 44 20 23 |VIC.. AND #| 00004510: 30 31 35 20 20 20 20 3B 42 49 54 53 20 34 2C 35 |015 ;BITS 4,5| 00004520: 2C 36 2C 37 2E 0D 20 20 20 20 20 20 4F 52 41 20 |,6,7.. ORA | 00004530: 20 30 30 32 20 20 20 20 3B 28 58 29 20 4C 49 4E | 002 ;(X) LIN| 00004540: 4B 53 20 42 49 4A 2E 0D 20 20 20 20 20 20 53 54 |KS BIJ.. ST| 00004550: 41 20 20 35 33 32 37 32 20 20 3B 5A 45 54 20 54 |A 53272 ;ZET T| 00004560: 45 52 55 47 2E 0D 20 20 20 20 20 20 54 58 41 20 |ERUG.. TXA | 00004570: 20 20 20 20 20 20 20 20 3B 4E 4F 47 20 27 45 53 | ;NOG 'ES| 00004580: 20 42 41 4E 4B 4E 52 2E 0D 20 20 20 20 20 20 43 | BANKNR.. C| 00004590: 4C 43 0D 20 20 20 20 20 20 52 4F 4C 20 20 20 20 |LC. ROL | 000045A0: 20 20 20 20 20 3B 31 36 20 2A 20 28 58 29 2E 0D | ;16 * (X)..| 000045B0: 20 20 20 20 20 20 52 4F 4C 0D 20 20 20 20 20 20 | ROL. | 000045C0: 52 4F 4C 0D 20 20 20 20 20 20 52 4F 4C 0D 20 20 |ROL. ROL. | 000045D0: 20 20 20 20 4F 52 41 20 20 30 30 36 34 38 0D 20 | ORA 00648. | 000045E0: 20 20 20 20 20 52 4F 4C 0D 20 20 20 20 20 20 52 | ROL. R| 000045F0: 4F 4C 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |OL. STA 00| 00004600: 36 34 38 20 20 3B 45 44 49 54 4F 52 43 45 4C 2E |648 ;EDITORCEL.| 00004610: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 00004620: 20 4E 4F 50 0D 3B 0D 20 20 20 20 20 20 2E 42 59 | NOP.;. .BY| 00004630: 54 45 20 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 |TE 255,255,255,2| 00004640: 35 35 0D 20 20 20 20 20 20 2E 42 59 54 45 20 32 |55. .BYTE 2| 00004650: 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 0D 3B |55,255,255,255.;| 00004660: 0D 4B 47 4B 4C 45 20 2E 42 59 54 45 20 30 31 30 |.KGKLE .BYTE 010| 00004670: 20 20 20 3B 4B 4C 45 55 52 47 45 48 45 55 47 45 | ;KLEURGEHEUGE| 00004680: 4E 2E 0D 56 47 4B 4C 45 20 2E 42 59 54 45 20 30 |N..VGKLE .BYTE 0| 00004690: 31 35 20 20 20 3B 4B 4C 45 55 52 20 56 4F 4F 52 |15 ;KLEUR VOOR| 000046A0: 47 52 44 2E 0D 41 47 4B 4C 45 20 2E 42 59 54 45 |GRD..AGKLE .BYTE| 000046B0: 20 30 31 35 20 20 20 3B 4B 4C 45 55 52 20 41 43 | 015 ;KLEUR AC| 000046C0: 48 54 2E 47 44 2E 0D 54 45 4B 4B 4C 20 2E 42 59 |HT.GD..TEKKL .BY| 000046D0: 54 45 20 30 30 34 20 20 20 3B 4B 4C 45 55 52 20 |TE 004 ;KLEUR | 000046E0: 54 45 4B 45 4E 53 2E 0D 54 43 4F 4B 4C 20 2E 42 |TEKENS..TCOKL .B| 000046F0: 59 54 45 20 30 30 32 20 20 20 3B 4B 4C 45 55 52 |YTE 002 ;KLEUR| 00004700: 20 42 45 47 49 4E 2E 0D 54 43 41 4B 4C 20 2E 42 | BEGIN..TCAKL .B| 00004710: 59 54 45 20 30 30 31 20 20 20 3B 4B 4C 45 55 52 |YTE 001 ;KLEUR| 00004720: 20 43 4F 44 45 2E 0D 54 43 42 4B 4C 20 2E 42 59 | CODE..TCBKL .BY| 00004730: 54 45 20 30 30 37 20 20 20 3B 4B 4C 45 55 52 20 |TE 007 ;KLEUR | 00004740: 43 4F 44 45 2F 43 4F 4D 2E 0D 3B 0D 53 41 44 52 |CODE/COM..;.SADR| 00004750: 4C 20 2E 42 59 54 45 20 30 30 30 20 20 20 3B 53 |L .BYTE 000 ;S| 00004760: 43 48 45 52 4D 56 45 4C 44 0D 53 41 44 52 48 20 |CHERMVELD.SADRH | 00004770: 2E 42 59 54 45 20 30 30 30 20 20 20 3B 42 45 47 |.BYTE 000 ;BEG| 00004780: 49 4E 41 44 52 45 53 2E 0D 53 41 45 52 4C 20 2E |INADRES..SAERL .| 00004790: 42 59 54 45 20 30 30 30 0D 53 41 45 52 48 20 2E |BYTE 000.SAERH .| 000047A0: 42 59 54 45 20 30 30 30 0D 3B 0D 53 42 44 52 4C |BYTE 000.;.SBDRL| 000047B0: 20 2E 42 59 54 45 20 30 30 30 20 20 20 3B 53 50 | .BYTE 000 ;SP| 000047C0: 45 45 4C 56 45 4C 44 0D 53 42 44 52 48 20 2E 42 |EELVELD.SBDRH .B| 000047D0: 59 54 45 20 30 30 30 20 20 20 3B 42 45 47 49 4E |YTE 000 ;BEGIN| 000047E0: 41 44 52 45 53 2E 0D 3B 0D 53 4B 44 52 4C 20 2E |ADRES..;.SKDRL .| 000047F0: 42 59 54 45 20 30 30 30 20 20 20 3B 4B 4C 45 55 |BYTE 000 ;KLEU| 00004800: 52 56 45 4C 44 0D 53 4B 44 52 48 20 2E 42 59 54 |RVELD.SKDRH .BYT| 00004810: 45 20 32 31 36 20 20 20 3B 42 45 47 49 4E 41 44 |E 216 ;BEGINAD| 00004820: 52 45 53 2E 0D 3B 0D 53 49 44 52 4C 20 2E 42 59 |RES..;.SIDRL .BY| 00004830: 54 45 20 30 30 30 20 20 20 3B 49 4E 44 45 58 56 |TE 000 ;INDEXV| 00004840: 45 4C 44 0D 53 49 44 52 48 20 2E 42 59 54 45 20 |ELD.SIDRH .BYTE | 00004850: 31 32 34 20 20 20 3B 42 45 47 49 4E 41 44 52 45 |124 ;BEGINADRE| 00004860: 53 2E 0D 3B 0D 53 4C 44 52 4C 20 2E 42 59 54 45 |S..;.SLDRL .BYTE| 00004870: 20 30 30 30 20 20 20 3B 4B 4C 45 55 52 53 50 45 | 000 ;KLEURSPE| 00004880: 45 4C 56 45 4C 44 0D 53 4C 44 52 48 20 2E 42 59 |ELVELD.SLDRH .BY| 00004890: 54 45 20 30 30 30 20 20 20 3B 42 45 47 49 4E 41 |TE 000 ;BEGINA| 000048A0: 44 52 45 53 2E 0D 3B 0D 4B 41 52 41 4B 20 2E 42 |DRES..;.KARAK .B| 000048B0: 59 54 45 20 30 30 32 2C 30 30 35 2C 30 30 35 2C |YTE 002,005,005,| 000048C0: 30 30 35 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |005. .BYTE | 000048D0: 30 30 35 2C 30 30 35 2C 30 30 32 2C 30 30 30 0D |005,005,002,000.| 000048E0: 20 20 20 20 20 20 2E 42 59 54 45 20 30 30 32 2C | .BYTE 002,| 000048F0: 30 30 36 2C 30 30 32 2C 30 30 32 0D 20 20 20 20 |006,002,002. | 00004900: 20 20 2E 42 59 54 45 20 30 30 32 2C 30 30 32 2C | .BYTE 002,002,| 00004910: 30 30 37 2C 30 30 30 0D 20 20 20 20 20 20 2E 42 |007,000. .B| 00004920: 59 54 45 20 30 30 32 2C 30 30 35 2C 30 30 31 2C |YTE 002,005,001,| 00004930: 30 30 32 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |002. .BYTE | 00004940: 30 30 34 2C 30 30 34 2C 30 30 37 2C 30 30 30 0D |004,004,007,000.| 00004950: 20 20 20 20 20 20 2E 42 59 54 45 20 30 30 32 2C | .BYTE 002,| 00004960: 30 30 35 2C 30 30 31 2C 30 30 32 0D 20 20 20 20 |005,001,002. | 00004970: 20 20 2E 42 59 54 45 20 30 30 31 2C 30 30 35 2C | .BYTE 001,005,| 00004980: 30 30 32 2C 30 30 30 0D 20 20 20 20 20 20 2E 42 |002,000. .B| 00004990: 59 54 45 20 30 30 34 2C 30 30 34 2C 30 30 35 2C |YTE 004,004,005,| 000049A0: 30 30 35 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |005. .BYTE | 000049B0: 30 30 37 2C 30 30 31 2C 30 30 31 2C 30 30 30 0D |007,001,001,000.| 000049C0: 20 20 20 20 20 20 2E 42 59 54 45 20 30 30 37 2C | .BYTE 007,| 000049D0: 30 30 34 2C 30 30 34 2C 30 30 33 0D 20 20 20 20 |004,004,003. | 000049E0: 20 20 2E 42 59 54 45 20 30 30 31 2C 30 30 35 2C | .BYTE 001,005,| 000049F0: 30 30 32 2C 30 30 30 0D 20 20 20 20 20 20 2E 42 |002,000. .B| 00004A00: 59 54 45 20 30 30 32 2C 30 30 35 2C 30 30 34 2C |YTE 002,005,004,| 00004A10: 30 30 36 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |006. .BYTE | 00004A20: 30 30 35 2C 30 30 35 2C 30 30 32 2C 30 30 30 0D |005,005,002,000.| 00004A30: 20 20 20 20 20 20 2E 42 59 54 45 20 30 30 37 2C | .BYTE 007,| 00004A40: 30 30 31 2C 30 30 31 2C 30 30 31 0D 20 20 20 20 |001,001,001. | 00004A50: 20 20 2E 42 59 54 45 20 30 30 32 2C 30 30 32 2C | .BYTE 002,002,| 00004A60: 30 30 32 2C 30 30 30 0D 20 20 20 20 20 20 2E 42 |002,000. .B| 00004A70: 59 54 45 20 30 30 32 2C 30 30 35 2C 30 30 35 2C |YTE 002,005,005,| 00004A80: 30 30 32 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |002. .BYTE | 00004A90: 30 30 35 2C 30 30 35 2C 30 30 32 2C 30 30 30 0D |005,005,002,000.| 00004AA0: 20 20 20 20 20 20 2E 42 59 54 45 20 30 30 32 2C | .BYTE 002,| 00004AB0: 30 30 35 2C 30 30 35 2C 30 30 33 0D 20 20 20 20 |005,005,003. | 00004AC0: 20 20 2E 42 59 54 45 20 30 30 31 2C 30 30 35 2C | .BYTE 001,005,| 00004AD0: 30 30 32 2C 30 30 30 0D 3B 0D 3B 20 20 20 20 20 |002,000.;.; | 00004AE0: 4C 41 41 54 53 54 45 20 41 44 52 45 53 3D 24 37 |LAATSTE ADRES=$7| 00004AF0: 42 46 46 2E 0D 3B 0D 20 20 20 20 20 20 2E 45 4E |BFF..;. .EN| 00004B00: 44 0D |D. |
;.; PUZZEL.ASM ..; ============.
;.; PROGRAMMA'S VOOR PUZZELS..;.;
SCHIJF DEMO-1..; ==============.;.
; 24 JUNI 1991. J.H.VAN RIJN..;.;==
===============================.;.; DECI
M HEXA SYMBL FUNCTIE.;.; 29696 7400 INLO
P ZET VELDEN EN.; VARIA
BELEN..; 29832 7488 LINCR LOPER INCREM..
; OP (X)..; 29852 749C
LDECR LOPER DECREM..; O
P (X)..; 29872 74B0 INTLO SPEELVELD LOPE
R.; MET TEKEN UIT..; 29
924 74E4 TOETS ACCEPT TOETS..;
ASCII IN 002..; 29952 7500 LOPER
TEKEN OP LOPER.; OF OP
'HOME'..; 30014 753E SCHRM VUL SCHERM.;
MET BLOKJES..; 30048 7
560 KLEUR VUL KLEURVELD.;
M/KLEUR KGKLE..; 30083 7583 KLESP VUL
SPEELVELD.; M/KLEUR TC
OKL..; 30120 75A8 COVES CODEVECTOR NAAR.
; SCHERM:(701)....; 301
52 75C8 STIPS VUL SPEELVELD.;
MET STIPPEN..; 30188 75EC TEKIN T
EKEN VAN 002.; NAAR SPE
ELVELD..; 30208 7600 COCYF CIJF.IVM/CODE
.; NAAR SCHERM..; 30288
7650 BPOET POETS BOOD-.;
SCHAPPENVELD..; 30403 76C3 SCNIN SCHE
RM NAAR.; INDEXVELD..;
30576 7770 INSCO INDEXVELD NAAR.;
SPEELV.M/CODE..; 30688 77E0 V
ECTO CODEVECTOR MET.; O
NGECOD.ALFAB..; 30704 77F0 ZOEVE ZOEK TE
KEN UIT.; CODEVECTOR..;
30768 7830 WISCO WISSEL 2 COD.OM.;
IN SPLV.& VECT..;.;.;
INTERN..; =======.;.; 30322 7672
BLTRA BLOKTRANSPORT.; M
/VAR.LEN.&AFS..; 30369 76A1 BLVUL BLOKVU
LLEN MET.; VAR.LEN.& AF
ST..; 30464 7700 IZOEK INDEXZOEK EN.;
CODE VERVANGEN..; 30664 7
7C8 DECXY 10(X)+(Y)=>(2).;
TWEE CIJFERS..; 30720 7800 MULOP VER
MENIGV.& OP-.; TELLEN,
2 BYTS..;. *=29696.;.; INLOOP..;.;
DIT SUBPROGRAMMA:.;.; ZET SCHERM-BEGINAD
RES;.; ZET SPEELVELD-BEGINADRES;.; ZET B
EGINADRES VAN KLEUR.; VAN SCHERM EN
SPEELVELD;.; ZET KLEUR VAN TEKENS, VOORG
ROND.; EN ACHTERGROND;.; ZET GRENZEN
VAN SPEELVELD:.; RECHTS XE=(692)=XO
+N;.; ONDER YE=(693)=YO+M;.; TE
VOREN XO=(690); N=(730);.; ALSMEDE Y
O=(691); M=(731);.; ZET ADRESSEN VOOR LE
TTERS EN.; CIJFERS VAN DE CODES..;.I
NLOP LDA 00648 ;SCHERM. STA SADR
H ;BEGINADRES.. LDA #000 ;BEREK
ENEN VAN. STA 252 ;XO + 40 * YO
.. LDA 00690 ; TERM XO.. STA
251. LDA #040 ; FACTOR 40..
STA 107. LDA 00691 ; FACTOR Y
O.. STA 167. JSR MULOP.
LDX #006.INLO1 CLC ;TEL BIJ BE
GIN-. LDA SADRL,X ;ADRES SCHERM-.
ADC 251 ;EN KLEURVELD.. S
TA SBDRL,X. LDA SADRH,X. ADC
252. STA SBDRH,X. DEX.
DEX. DEX. DEX. DEX.
DEX. BPL INLO1. LDA TEKKL
;TEKENKLEUR.. STA 00646. LDX
#001.INLO2 LDA VGKLE,X ;VOOR- EN ACH-.
STA 53280,X ;TERGROND.. CLC
;GRENZEN VAN. LDA 00690,X
;SPEELVELD.. ADC 00730,X ;XO+N OF
. STA 00692,X ;YO+M.. DEX.
BPL INLO2. CLC ;ADRES V
OOR. LDA SADRL ;LETTER A. AD
C #042 ;OP SCHERM. STA 00696 ;
IS (697,696).. LDA SADRH. ADC
#000. STA 00697. CLC
;ADRES VOOR. LDA 00696 ;LETTER N
. ADC #120 ;OP SCHERM. STA
00698 ;IS (699,698).. LDA 00697.
ADC #000. STA 00699. CL
C ;ADRES VOOR. LDA SADRL
;DERDE REGEL. ADC #120 ;OP SCHER
M. STA SAERL ;IS SAER..... L
DA SADRH. ADC #000. STA SAER
H. RTS.;. *=29832.;.; INCR
EMENT LOPER EN CHECK..; (X)=0: (249)
=X. 0...N-1..; (X)=1: (250)=Y. 0...M
-1..; OVERLOOP: (Y)=1 EN TEVENS.;
X OF Y OP NUL..;.LINCR LDY #
000 ;VLAG NEER.. INC 249,X ;
(X)=0:(249)=X.. LDA 249,X ;(X)=1
:(250)=Y.. CMP 00730,X ; EIND (730
)=N,. BCC LINC1 ; OF (731)=M..
INY ;VLAG OP.. LDA #
000 ;LOPER. STA 249,X ;RONDL
OPEND..LINC1 RTS.;. *=29852.;.;
DECREMENT LOPER EN CHECK..; (X)=0:
(249)=X. 0...N-1..; (X)=1: (250)=Y.
0...M-1..; OVERLOOP: (Y)=1 EN TEVENS
.; X OP N-1 OF.;
Y OP M-1..;.LDECR LDY #000 ;VLA
G NEER.. LDA 249,X ;(X)=0:(249)=
X.. BNE LDEC1 ;(X)=1:(250)=Y..
LDA 00730,X ; EIND (730)=N,. S
TA 249,X ; OF (731)=M.. INY
;VLAG OP..LDEC1 DEC 249,X ;LOP
ER. RTS ;RONDLOPEND..;.
*=29872.;.; LOPER OP SPEELVELD EN
TEKEN.; IN 002 GEZET; REVERTERING..
;.INTLO LDA SBDRL ;SPEELVELDADRES.
STA 251 ;ALS TERM.. LDA SB
DRH. STA 252. LDA #040 ;F
ACTOR 40.. STA 107. LDA 250
;FACTOR Y.. STA 167. JSR
MULOP ;BEREKEN.. LDY 249 ;T
ERM X ADRES-. LDA (251),Y ;MODIFIC
ATIE.. BMI INTL1 ;BIT 7 = ?.
ORA #128 ;0: ZET OP 1.. BMI
INTL2 ;SLA 1 OVER..INTL1 AND #127
;1: ZET OP 0..INTL2 STA (251),Y ;ZET IN
VELD.. JSR TOETS ;ACCEPT TOETS.
. LDA (251),Y ;REVERT.TERUG:.
BMI INTL3 ;BIT 7 = ?. ORA #128
;0: ZET OP 1.. BMI INTL4 ;SL
A 1 OVER..INTL3 AND #127 ;1: ZET OP
0..INTL4 STA (251),Y ;ZET IN VELD..
RTS.;. *=29924.;.; TOETS ACCE
PT EN NAAR 002..;.TOETS TYA ;RED
(Y).. PHA.TOET1 LDA 197 ;WEL/N
IET?. CMP #064. BEQ TOET1.TOE
T2 JSR 65508 ;JA:NEEM OP.. CMP #0
00 ;LOOS?. BEQ TOET2 ;JA:TERUG
.. STA 002 ;NEEN:IN 002..TOET3
LDA 197 ;LOS?. CMP #064 ;NEE
:TERUG.. BNE TOET3 ;JA:HERSTEL (Y
). PLA ;EN NAAR H.P..
TAY. RTS.;. *=29952.;.; CH
ECK OP LOPER EN OP 'HOME'..; TEKEN I
N 002. (Y)=2:TEKEN..; (Y)=0:LOPER; (
Y)=1:OVERLOOP..;.LOPER LDX 002 ;TEKE
N IN X.. CPX #019 ;'HOME'?.
BNE LOPE1 ;NEEN:DOORGAAN.. LDY #
000 ;JA:LINKSBOVEN. STY 249
;IN SPEELVELD.. STY 250 ;TEVENS
VLAG. RTS ;NEER..LOPE1 CPX
#029 ;NAAR RECHTS?. BNE LOPE2
;NEEN:DOORGAAN.. LDX #000 ;JA:I
NCR.X.. JSR LINCR. RTS.LOPE2
CPX #157 ;NAAR LINKS?. BNE LOPE
3 ;NEEN:DOORGAAN.. LDX #000 ;JA
:DECR.X.. JSR LDECR. RTS.LOPE
3 CPX #145 ;NAAR BOVEN?. BNE LO
PE4 ;NEEN:DOORGAAN.. LDX #001 ;
JA:DECR.Y.. JSR LDECR. RTS.LO
PE4 CPX #017 ;NAAR BENEDEN?. BNE
LOPE5 ;NEEN:DOORGAAN.. LDX #001
;JA:INCR.Y.. JSR LINCR. RT
S.LOPE5 LDY #002 ;GEEN LOPER:. R
TS ;VLAG OP 2..;. *=30014.;
.; SCHERMGEHEUGEN MET BLOKJES..;.SCH
RM LDA #102 ;BLOKJE.. STA 251.
LDA #025 ;25 BLOKKEN. STA
033 ;@ 40 BYTES.. LDA #040.
STA 034. LDA SADRL ;SCHERMGEHEU
GEN. STA 253 ;BEGIN OP 01024..
LDA SADRH. STA 254. LDA
#040 ;BLOKKEN OP. STA 107 ;
40 BYTES AFST.. LDA #000. STA
108. JSR BLVUL ;VULLEN.. RT
S.;.; KLEURGEHEUGEN..;.KLEUR LDA KG
KLE ;KLEUR VULLEN.. STA 251.
LDA #025 ;25 BLOKKEN. STA 033
;@ 40 BYTES.. LDA #040. STA
034. LDA SKDRL ;KLEURGEHEUGEN.
STA 253 ;BEGIN OP 55296..
LDA SKDRH. STA 254. LDA #040
;BLOKKEN OP. STA 107 ;40 BY
TES AFST.. LDA #000. STA 108.
JSR BLVUL ;VULLEN.. RTS.;.;
KLEUR VAN SPEELVELD..;.KLESP LDA T
COKL ;KLEUR VULLEN.. STA 251.
LDA 00731 ;M BLOKKEN. STA 033
;@ N BYTES.. LDA 00730. ST
A 034. LDA SLDRL ;KLEUR SPEELV..
STA 253 ;BEGINADRES.. LDA
SLDRH. STA 254. LDA #040
;BLOKKEN OP. STA 107 ;40 BYTES
AFST.. LDA #000. STA 108.
JSR BLVUL ;VULLEN.. RTS.;.;
LETTERS UIT DE CODEVECTOR.; OP HET
SCHERM ZETTEN..;.COVES LDX #003 ;ADR
ESSEN IN.COVE1 LDA 00696,X ;251..254..
STA 251,X. DEX. BPL COV
E1. LDX #012 ;A-M, N-Z.. LD
Y #036 ;SCHERMADRES..COVE2 CLC
;ACHTERWAARTS.. LDA 00701,X.
STA (251),Y. LDA 00714,X. S
TA (253),Y. DEY. DEY. DEY
. DEX ;AFTELLEN.. BPL
COVE2. RTS.;.; STIPPEN IN SPEE
LVELD..;.STIPS LDA #046 ;STIP ASCII..
STA 251. LDA 00731 ;M BLOK
KEN. STA 033 ;@ N BYTES..
LDA 00730. STA 034. LDA SBD
RL ;SPEELVELD. STA 253 ;BEGIN.
. LDA SBDRH. STA 254. L
DA #040 ;BLOKKEN OP. STA 107
;40 BYTES AFST.. LDA #000. ST
A 108. JSR BLVUL ;VULLEN..
RTS.;.; TEKEN (002) IN SPEELVELD..;.
TEKIN LDY 249 ;TE VOREN ADRES.
LDA 002 ;IN (252,251).. STA (25
1),Y. RTS.;. *=30208.;.; C
IJFERS OP SCHERM IVM.CODE..;.COCYF LDX #
003 ;ADRESSEN IN.COCY1 LDA SADRL,X ;
251..254.. STA 251,X. DEX.
BPL COCY1. LDA #048 ;CIJFERS
01-13.. STA 101 ;TIENTALLEN..
STA 100 ;EENHEDEN.. LDA #0
49 ;CIJFERS 14-26.. STA 108
;TIENTALLEN.. LDA #051 ;EENHEDEN
.. STA 107. LDY #001 ;SCHE
RMADRES.. LDX #012 ;01-13,14-26.
.COCY2 INC 107 ;TWEEDE RIJ:. LD
A 107 ;EENHEDEN + 1.. CMP #058
;OVER DE NEGEN:. BCC COCY3 ;TI
ENTALLEN + 1;. INC 108 ;TEVENS
EENH. 0.. LDA #048. STA 107.C
OCY3 INC 100 ;EERSTE RIJ:. LDA
100 ;EENHEDEN + 1.. CMP #058
;OVER DE NEGEN:. BCC COCY4 ;TIEN
TALLEN + 1;. INC 101 ;TEVENS EE
NH. 0.. LDA #048. STA 100.COC
Y4 LDA 101 ;EERSTE RIJ DE. STA
(251),Y ;TIENTALLEN.. LDA 108 ;
TWEEDE RIJ DE. STA (253),Y ;TIENTAL
LEN.. INY. LDA 100 ;EERSTE
RIJ DE. STA (251),Y ;EENHEDEN..
LDA 107 ;TWEEDE RIJ DE. STA
(253),Y ;EENHEDEN.. INY ;VO
LGENDE POS.. INY ;TWEE VERD
ER.. DEX ;AFTELLEN.. B
PL COCY2. RTS. NOP.;.; PO
ETS HET BOODSCHAPPENVELD..;.BPOET LDA #0
32. STA 251. LDA #005 ;5 B
LOKKEN. STA 033 ;@ 40 BYTES..
LDA #040. STA 034. LDA S
ADRL ;SCHERMGEHEUGEN. STA 253
;BEGIN OP 01024.. LDA SADRH.
STA 254. LDA #040 ;BLOKKEN OP.
STA 107 ;40 BYTES AFST.. L
DA #000. STA 108. JSR BLVUL
;VULLEN.. RTS.;.; BLOKTRANSPOR
T..;.BLTRA LDX 033 ;AANTAL BLOKKEN..
CLC ;NAAR AFTELLEN..
BCC BLTR4.BLTR1 LDY 034 ;AANTAL BYT
ES. CLC ;PER BLOK.. BC
C BLTR3 ;NAAR AFTELLEN..BLTR2 LDA (251
),Y ;BYTETRANSPORT. STA (253),Y ;BI
NNEN BLOK..BLTR3 DEY ;BYTE-AFTEL
.. BPL BLTR2. CLC ;HA
ALADRES. LDA 251 ;(252,251).
ADC 100 ;OPHOGEN MET. STA 2
51 ;(101,100).. LDA 252. A
DC 101. STA 252. CLC
;BRENGADRES. LDA 253 ;(254,253
). ADC 107 ;OPHOGEN MET. S
TA 253 ;(108,107).. LDA 254.
ADC 108. STA 254.BLTR4 DEX
;BLOK-AFTEL.. BPL BLTR1.
RTS.;.; BLOKVULLEN..;.BLVUL LDX 0
33 ;AANTAL BLOKKEN.. CLC
;NAAR AFTELLEN.. BCC BLVU4.BLVU1
LDY 034 ;AANTAL BYTES. CLC
;PER BLOK.. BCC BLVU3 ;NAAR A
FTELLEN..BLVU2 LDA 251 ;BYTE VULLEN.
STA (253),Y ;BINNEN BLOK..BLVU3 DE
Y ;BYTE-AFTEL.. BPL BLVU2.
CLC ;BRENGADRES. LDA
253 ;(254,253). ADC 107 ;OP
HOGEN MET. STA 253 ;(108,107)..
LDA 254. ADC 108. STA
254.BLVU4 DEX ;BLOK-AFTEL..
BPL BLVU1. RTS.;.; SCHERM NA
AR INDEXVELD..;.SCNIN LDA SBDRL ;HAALA
DRES.. STA 251. LDA SBDRH.
STA 252. LDA SIDRL ;BRENGADR
ES.. STA 253. LDA SIDRH.
STA 254. LDA 00731 ;AANTAL REG
ELS.. STA 033. LDA 00730 ;A
ANT.BYTES/RG.. STA 034. LDA #
040 ;OPHOGEN VAN. STA 100 ;H
AALADRES.. LDA #000. STA 101.
LDA 00730 ;OPHOGEN VAN. STA
107 ;BRENGADRES.. LDA #000.
STA 108. JSR BLTRA ;TRANSPORT
.. RTS.;. *=30464.;.; ZOEK IND
EX (167) UIT INDEXVELD..; INDIEN GEVONDE
N: VERVANG IN HET.; SPEELVELD DE OUDE CO
DE DOOR DE.; NIEUWE CODE (168); TEVENS D
E.; KLEUR (169) INZETTEN..; DOE HETZELFD
E IN DE CODE-.; VECTOR (701)....(726)..;
.IZOEK LDA SIDRL ;INDEXVELD.. STA
247. LDA SIDRH. STA 248.
LDA SBDRL ;SPEELVELD.. STA 2
51. LDA SBDRH. STA 252.
LDA SLDRL ;SPEELV.KLEUR.. STA 2
53. LDA SLDRH. STA 254.
LDX 00731 ;AANTAL REGELS.. CLC.
BCC IZOE4.IZOE1 LDY 00730 ;AANTA
L BYTES. CLC ;PER REGEL..
BCC IZOE3.IZOE2 LDA (247),Y ;INDEX
UIT VELD.. BEQ IZOE3 ; = NUL?.
CMP 167 ;OF=ZOEKINDEX?. BNE
IZOE3 ;NEE:DOORGAAN.. LDA 168
;NIEUW TEKEN. STA (251),Y ;IN SPE
ELVELD OP. LDA 169 ;ZELFDE PLAA
TS.. STA (253),Y ;OOK DE KLEUR..IZO
E3 DEY ;AFTELLEN BYTES.. BP
L IZOE2. CLC ;HOOG REG.ADR
.OP. LDA 247 ;MET AANT./REG..
ADC 00730. STA 247. LDA
248. ADC #000. STA 248.
CLC ;OPHOGEN ADRES. LDA 2
51 ;SPEELV.MET 40.. ADC #040.
STA 251. LDA 252. ADC #00
0. STA 252. CLC ;OPHO
GEN ADRES. LDA 253 ;KLEUR SPEEL
V.. ADC #040 ;MET 40.. STA
253. LDA 254. ADC #000.
STA 254.IZOE4 DEX ;AFTEL V.REG
ELS.. BPL IZOE1 ;EIND:VERVANG.
LDX 167 ;IN VECTOR.. LDA 16
8. STA 00700,X. RTS.;.; I
NDEXVELD NAAR SPEELVELD MET.; CODERI
NG VOLGENS DE VECTOR.; (700)(701)...
.(726)..;.INSCO LDA SIDRL ;HAALADRES V
AN. STA 251 ;INDEXVELD.. L
DA SIDRH. STA 252. LDA SBDR
L ;BRENGADRES VAN. STA 253 ;SP
EELVELD.. LDA SBDRH. STA 254
. LDX 00731 ;AANTAL REGELS..
CLC. BCC INSC4.INSC1 LDY 00730
;AANTAL BYTES. CLC ;PER REG
EL.. BCC INSC3 ;VOER OP.INSC2 LDA
(251),Y ;BYTE-INDEX.. STY 002
;RED (Y).. CMP #027 ;SPATIE OF A
-Z?. BCC INSD1 ;NEEN:ZET NUL..
LDA #000.INSD1 TAY ;IND.VOOR
VECT.. LDA 00700,Y ;CODEREN..
LDY 002 ;HERSTEL (Y).. STA
(253),Y ;IN SPEELVELD..INSC3 DEY
;BYTE-AFTEL.. BPL INSC2. C
LC ;HAALADRES. LDA 251
;OPHOGEN MET. ADC 00730 ;AANTAL B
YTES. 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.INSC4 DEX
;REGEL-AFTEL.. BPL INSC1. R
TS.;. *=30664.;.; ZET GETAL 10*
(X)+(Y) IN 002..;.DECXY CLC. TXA
;TIENTALLEN (X).. ROL
;VERDUBBEL.. STA 002 ;TIJDELIJ
K.. ROL ;MAAL ACHT.. R
OL. ADC 002 ;10*(X) IN A..
STY 002 ;RED EENHEDEN.. ADC 0
02 ;TEL BIJ.. STA 002 ;SOM K
LAAR.. RTS.;. *=30688.;.;
VUL CODEVECTOR..; (700) GEREVERTEERD
E SPATIE;.; (701)="A"; (702)="B"; ..
...;.; (726)="Z"..; POKE SET 1;
DUS "A"=1 ENZ..;.VECTO LDX #026.VECT1 TX
A. STA 00700,X. DEX. BPL
VECT1. LDA #160. STA 00700.
RTS.;. *=30704.;.; ZOEK TEKEN
(002) UIT CODEVECTOR..; INDEX (01..26)
IN REG. X..;.ZOEVE LDX #026 ;VANAF L
AATSTE..ZOEV1 LDA 00700,X ;VOER TEKEN O
P.. CMP 002 ; = ZOEKITEM?.
BEQ ZOEV2 ;NEEN:TEL AF.. DEX
;KLAAR? JA:. BNE ZOEV1 ;
ZET INDEX..ZOEV2 RTS ;NUL: FOUT
..;. *=30720.;.; VERMENIGVULDIGEN M
ET OPTELLEN..;(252,251)+(107)*(167)=>(25
2,251)..;.MULOP TXA ;RED (X),(Y)
.. PHA. TYA. PHA. LD
X #000 ;GEDEELTELIJK. LDY 167
;PRODUCT.. CLC.MULO1 LDA 107
;BIT SENS VOOR. BEQ MULO3 ;OPTELL
EN.. ROR 107 ;SCHUIF OP..
BCC MULO2 ;BIT = ?. CLC. TYA
;BIT = 1: TEL. ADC 251
;GEDEELTELIJK. STA 251 ;PRODUC
T BIJ.. TXA. ADC 252. ST
A 252. CLC.MULO2 TYA ;DAAR
NA GEDEEL-. ROL A ;TELIJK PRO
DUCT. TAY ;SCHUIVEN..
TXA. ROL A. TAX. CLC.
BCC MULO1.MULO3 PLA ;HERSTEL
(X). TAY ;EN (Y).. PL
A. TAX. RTS.;. *=30768.;.
; WISSEL DE CODE CN=(168).; OM MET DE CO
DE CO=(167).; IN VECTOR EN SPEELVELD..;.
WISCO LDA 168 ;CODE CN.. CMP 1
67 ;CN=CO?. BEQ WISC1 ;JA: KLA
AR.. STA 002 ;NEEN:ZOEK BIJ.
JSR ZOEVE ; CODE CN. CPX #001
; INDEX IN.. BCC WISC1 ; CN=>
(168) AL.. STX 107 ; IN=>(107).
. LDA 167 ;CODE CO.. STA
002 ;ZOEK BIJ. JSR ZOEVE ; CO
DE CO. CPX #001 ; INDEX IO..
BCC WISC1 ; CO=>(002).. STX 16
7 ; IO=>(167).. LDA TCAKL ;KLE
UR'NIEUW'.. STA 169. JSR IZO
EK ;VERVANG.. LDA 107 ; IN=>(1
67).. STA 167 ; CO=>(168)..
LDA 002. STA 168. LDA TCB
KL ;KLEUR 'OUD'.. STA 169. J
SR IZOEK ;VERVANG..WISC1 RTS.;. *
=30832.;.; SELECT BANK NUMMER #(X) EN.;
DAARIN SCHERM NR. #(Y)..;.BNKA0 LDA 56
578 ;OUTPUTS.. ORA #003. STA
56578. TXA ;BANKNUMMER..
EOR #003 ;COMPLEMENT.. STA
002. LDA 56576 ;BANKCEL VIC..
AND #252 ;BITS 0,1.. ORA 002
; 3 - (X).. STA 56576. TYA
;SCHERM IN BANK.. STA 006
48 ;TIJDELIJK.. CLC. ROL
;16 * (Y).. ROL. ROL.
ROL. STA 002 ;TIJDELIJK..
LDA 53272 ;SCHERMCEL VIC.. AND #
015 ;BITS 4,5,6,7.. ORA 002
;(X) LINKS BIJ.. STA 53272 ;ZET T
ERUG.. TXA ;NOG 'ES BANKNR.
. CLC. ROL ;16 * (X)..
ROL. ROL. ROL. ORA
00648. ROL. ROL. STA 00
648 ;EDITORCEL.. RTS. NOP.;.
.BYTE 255,255,255,255. .BYTE 2
55,255,255,255.;.KGKLE .BYTE 010 ;KLEU
RGEHEUGEN..VGKLE .BYTE 015 ;KLEUR VOOR
GRD..AGKLE .BYTE 015 ;KLEUR ACHT.GD..T
EKKL .BYTE 004 ;KLEUR TEKENS..TCOKL .B
YTE 002 ;KLEUR BEGIN..TCAKL .BYTE 001
;KLEUR CODE..TCBKL .BYTE 007 ;KLEUR
CODE/COM..;.SADRL .BYTE 000 ;SCHERMVEL
D.SADRH .BYTE 000 ;BEGINADRES..SAERL .
BYTE 000.SAERH .BYTE 000.;.SBDRL .BYTE 0
00 ;SPEELVELD.SBDRH .BYTE 000 ;BEGIN
ADRES..;.SKDRL .BYTE 000 ;KLEURVELD.SK
DRH .BYTE 216 ;BEGINADRES..;.SIDRL .BY
TE 000 ;INDEXVELD.SIDRH .BYTE 124 ;B
EGINADRES..;.SLDRL .BYTE 000 ;KLEURSPE
ELVELD.SLDRH .BYTE 000 ;BEGINADRES..;.
KARAK .BYTE 002,005,005,005. .BYTE
005,005,002,000. .BYTE 002,006,002,
002. .BYTE 002,002,007,000. .B
YTE 002,005,001,002. .BYTE 004,004,
007,000. .BYTE 002,005,001,002.
.BYTE 001,005,002,000. .BYTE 004,
004,005,005. .BYTE 007,001,001,000.
.BYTE 007,004,004,003. .BYTE
001,005,002,000. .BYTE 002,005,004,
006. .BYTE 005,005,002,000. .B
YTE 007,001,001,001. .BYTE 002,002,
002,000. .BYTE 002,005,005,002.
.BYTE 005,005,002,000. .BYTE 002,
005,005,003. .BYTE 001,005,002,000.
;.; LAATSTE ADRES=$7BFF..;. .EN
D.
> CLICK IMAGE PREVIEW FOR FULL MODAL