PUZEEN.ASM
FILE INFORMATION
FILENAME(S): PUZEEN.ASM
FILE TYPE(S): SEQ
FILE SIZE: 14.8K
FIRST SEEN: 2025-11-30 21:27:02
APPEARS ON: 1 disk(s)
FILE HASH
e968a39f66ce51ca78389a1b499eb3336c483ae44619772a2f3db1d3c8afe0cc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLERBRON | PUZEEN.ASM | SEQ | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 0D 3B 20 50 52 4F 47 52 41 4D 4D 41 20 20 20 |;.; PROGRAMMA | 00000010: 3A 20 20 48 55 4C 50 20 53 45 54 20 45 45 4E 20 |: HULP SET EEN | 00000020: 2E 0D 3B 20 42 52 4F 4E 43 4F 44 45 20 20 20 20 |..; BRONCODE | 00000030: 3A 20 20 50 55 5A 45 45 4E 2E 41 53 4D 20 20 20 |: PUZEEN.ASM | 00000040: 2E 0D 3B 20 4F 42 4A 45 43 54 43 4F 44 45 20 20 |..; OBJECTCODE | 00000050: 3A 20 20 50 55 5A 45 45 4E 2E 4F 42 4A 20 20 20 |: PUZEEN.OBJ | 00000060: 2E 0D 3B 20 44 49 53 4B 20 20 20 20 20 20 20 20 |..; DISK | 00000070: 3A 20 20 41 53 53 45 4D 42 4C 45 52 42 52 4F 4E |: ASSEMBLERBRON| 00000080: 2E 0D 3B 20 54 41 41 4C 20 20 20 20 20 20 20 20 |..; TAAL | 00000090: 3A 20 20 41 53 53 45 4D 42 4C 45 52 20 43 36 34 |: ASSEMBLER C64| 000000A0: 2E 0D 3B 20 44 41 54 55 4D 20 20 20 20 20 20 20 |..; DATUM | 000000B0: 3A 20 20 31 38 20 41 55 47 2E 20 31 39 39 31 2E |: 18 AUG. 1991.| 000000C0: 0D 3B 20 50 52 4F 47 52 41 4D 4D 45 55 52 20 3A |.; PROGRAMMEUR :| 000000D0: 20 20 4A 2E 48 2E 56 41 4E 20 52 49 4A 4E 2E 0D | J.H.VAN RIJN..| 000000E0: 3B 0D 3B 20 4F 50 20 44 45 5A 45 20 53 45 54 20 |;.; OP DEZE SET | 000000F0: 53 54 41 41 4E 20 53 55 42 50 52 4F 47 52 41 4D |STAAN SUBPROGRAM| 00000100: 4D 41 27 53 0D 3B 20 56 4F 4F 52 20 43 4F 44 45 |MA'S.; VOOR CODE| 00000110: 50 55 5A 5A 45 4C 53 2E 0D 3B 0D 3B 3D 3D 3D 3D |PUZZELS..;.;====| 00000120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 3B 0D |=============.;.| 00000140: 3B 20 44 45 43 49 4D 20 48 45 58 41 20 53 59 4D |; DECIM HEXA SYM| 00000150: 42 4C 20 46 55 4E 43 54 49 45 0D 3B 0D 3B 20 32 |BL FUNCTIE.;.; 2| 00000160: 39 31 38 34 20 37 32 30 30 20 42 49 44 45 43 20 |9184 7200 BIDEC | 00000170: 44 45 43 4F 4E 56 45 52 53 49 45 20 55 49 54 0D |DECONVERSIE UIT.| 00000180: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000190: 20 20 20 54 57 45 45 20 42 59 54 45 53 2E 0D 3B | TWEE BYTES..;| 000001A0: 20 32 39 33 32 38 20 37 32 39 30 20 44 49 52 4C | 29328 7290 DIRL| 000001B0: 45 20 4F 50 45 4E 20 44 49 53 4B 20 4C 45 5A 45 |E OPEN DISK LEZE| 000001C0: 4E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |N.; | 000001D0: 20 20 20 20 20 44 49 52 45 43 54 4F 52 59 2E 0D | DIRECTORY..| 000001E0: 3B 20 32 39 33 36 38 20 37 32 42 38 20 53 45 51 |; 29368 72B8 SEQ| 000001F0: 4C 45 20 4F 50 45 4E 20 44 49 53 4B 20 4C 45 5A |LE OPEN DISK LEZ| 00000200: 45 4E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |EN.; | 00000210: 20 20 20 20 20 20 53 45 51 55 2E 42 45 53 54 41 | SEQU.BESTA| 00000220: 4E 44 2E 0D 3B 20 32 39 34 32 30 20 37 32 45 43 |ND..; 29420 72EC| 00000230: 20 53 45 51 53 56 20 4F 50 45 4E 20 44 49 53 4B | SEQSV OPEN DISK| 00000240: 20 55 49 54 2D 0D 3B 20 20 20 20 20 20 20 20 20 | UIT-.; | 00000250: 20 20 20 20 20 20 20 20 20 47 41 41 46 20 53 45 | GAAF SE| 00000260: 51 2E 42 45 53 54 2E 0D 3B 20 32 39 34 31 32 20 |Q.BEST..; 29412 | 00000270: 37 32 45 34 20 53 4C 55 49 54 20 53 4C 55 49 54 |72E4 SLUIT SLUIT| 00000280: 45 4E 20 56 41 4E 0D 3B 20 20 20 20 20 20 20 20 |EN VAN.; | 00000290: 20 20 20 20 20 20 20 20 20 20 44 49 53 4B 42 45 | DISKBE| 000002A0: 53 54 41 4E 44 2E 0D 3B 20 32 39 35 30 30 20 37 |STAND..; 29500 7| 000002B0: 33 33 43 20 44 52 55 4B 53 20 50 52 49 4E 54 20 |33C DRUKS PRINT | 000002C0: 53 43 48 45 52 4D 20 4F 50 0D 3B 20 20 20 20 20 |SCHERM OP.; | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 | PRI| 000002E0: 4E 54 45 52 20 55 49 54 2E 0D 3B 20 32 39 37 37 |NTER UIT..; 2977| 000002F0: 32 20 37 34 34 43 20 49 4E 4C 4F 50 20 5A 45 54 |2 744C INLOP ZET| 00000300: 20 56 45 4C 44 45 4E 20 45 4E 0D 3B 20 20 20 20 | VELDEN EN.; | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 | VA| 00000320: 52 49 41 42 45 4C 45 4E 2E 0D 3B 20 32 39 39 31 |RIABELEN..; 2991| 00000330: 32 20 37 34 44 38 20 4C 49 4E 43 52 20 4C 4F 50 |2 74D8 LINCR LOP| 00000340: 45 52 20 49 4E 43 52 45 4D 2E 0D 3B 20 20 20 20 |ER INCREM..; | 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 50 | OP| 00000360: 20 28 58 29 2E 0D 3B 20 32 39 39 33 32 20 37 34 | (X)..; 29932 74| 00000370: 45 43 20 4C 44 45 43 52 20 4C 4F 50 45 52 20 44 |EC LDECR LOPER D| 00000380: 45 43 52 45 4D 2E 0D 3B 20 20 20 20 20 20 20 20 |ECREM..; | 00000390: 20 20 20 20 20 20 20 20 20 20 4F 50 20 28 58 29 | OP (X)| 000003A0: 2E 0D 3B 20 32 39 39 35 32 20 37 35 30 30 20 49 |..; 29952 7500 I| 000003B0: 4E 54 4C 4F 20 53 50 45 45 4C 56 45 4C 44 20 4C |NTLO SPEELVELD L| 000003C0: 4F 50 45 52 0D 3B 20 20 20 20 20 20 20 20 20 20 |OPER.; | 000003D0: 20 20 20 20 20 20 20 20 4D 45 54 20 54 45 4B 45 | MET TEKE| 000003E0: 4E 20 55 49 54 2E 0D 3B 20 33 30 30 31 36 20 37 |N UIT..; 30016 7| 000003F0: 35 34 30 20 54 4F 45 54 53 20 41 43 43 45 50 54 |540 TOETS ACCEPT| 00000400: 20 54 4F 45 54 53 2E 0D 3B 20 20 20 20 20 20 20 | TOETS..; | 00000410: 20 20 20 20 20 20 20 20 20 20 20 41 53 43 49 49 | ASCII| 00000420: 20 49 4E 20 30 30 32 2E 0D 3B 20 33 30 30 34 38 | IN 002..; 30048| 00000430: 20 37 35 36 30 20 4C 4F 50 45 52 20 54 45 4B 45 | 7560 LOPER TEKE| 00000440: 4E 20 4F 50 20 4C 4F 50 45 52 0D 3B 20 20 20 20 |N OP LOPER.; | 00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 46 | OF| 00000460: 20 4F 50 20 27 48 4F 4D 45 27 2E 0D 3B 20 33 30 | OP 'HOME'..; 30| 00000470: 30 35 34 20 37 35 36 36 20 4C 49 4B 42 56 20 5A |054 7566 LIKBV Z| 00000480: 45 54 20 4C 4F 50 45 52 0D 3B 20 20 20 20 20 20 |ET LOPER.; | 00000490: 20 20 20 20 20 20 20 20 20 20 20 20 4F 50 20 27 | OP '| 000004A0: 48 4F 4D 45 27 2E 0D 3B 20 33 30 31 30 34 20 37 |HOME'..; 30104 7| 000004B0: 35 39 38 20 4B 4C 45 53 50 20 56 55 4C 20 53 50 |598 KLESP VUL SP| 000004C0: 45 45 4C 56 45 4C 44 0D 3B 20 20 20 20 20 20 20 |EELVELD.; | 000004D0: 20 20 20 20 20 20 20 20 20 20 20 4D 2F 4B 4C 45 | M/KLE| 000004E0: 55 52 20 54 43 4F 4B 4C 2E 0D 3B 20 33 30 31 32 |UR TCOKL..; 3012| 000004F0: 38 20 37 35 42 30 20 53 54 49 50 53 20 56 55 4C |8 75B0 STIPS VUL| 00000500: 20 53 50 45 45 4C 56 45 4C 44 0D 3B 20 20 20 20 | SPEELVELD.; | 00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 | ME| 00000520: 54 20 53 54 49 50 50 45 4E 2E 0D 3B 0D 3B 0D 3B |T STIPPEN..;.;.;| 00000530: 20 20 20 20 20 20 20 49 4E 54 45 52 4E 2E 0D 3B | INTERN..;| 00000540: 20 20 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 0D 3B | =======.;| 00000550: 0D 3B 20 32 39 34 38 32 20 37 33 32 41 20 58 54 |.; 29482 732A XT| 00000560: 52 41 4B 20 45 58 54 52 41 20 4B 4F 4D 4D 41 0D |RAK EXTRA KOMMA.| 00000570: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000580: 20 20 20 4E 41 20 45 4C 45 4D 45 4E 54 2E 0D 3B | NA ELEMENT..;| 00000590: 20 32 39 34 38 34 20 37 33 32 43 20 58 54 52 41 | 29484 732C XTRA| 000005A0: 58 20 45 58 54 52 41 20 54 45 4B 45 4E 20 28 58 |X EXTRA TEKEN (X| 000005B0: 29 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |).; | 000005C0: 20 20 20 20 20 4E 41 20 45 4C 45 4D 45 4E 54 2E | NA ELEMENT.| 000005D0: 0D 3B 20 32 39 36 39 36 20 37 34 30 30 20 4C 41 |.; 29696 7400 LA| 000005E0: 58 59 20 20 28 41 29 2C 28 58 29 2C 28 59 29 0D |XY (A),(X),(Y).| 000005F0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000600: 20 20 20 4E 41 41 52 20 4F 55 54 50 55 54 2E 0D | NAAR OUTPUT..| 00000610: 3B 20 32 39 37 30 31 20 37 34 30 35 20 4C 58 59 |; 29701 7405 LXY| 00000620: 20 20 20 28 58 29 2C 28 59 29 0D 3B 20 20 20 20 | (X),(Y).; | 00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 41 | NA| 00000640: 41 52 20 4F 55 54 50 55 54 2E 0D 3B 20 32 39 37 |AR OUTPUT..; 297| 00000650: 31 36 20 37 34 31 34 20 52 4F 50 55 20 20 54 52 |16 7414 ROPU TR| 00000660: 41 4E 53 50 4F 53 45 20 45 4E 0D 3B 20 20 20 20 |ANSPOSE EN.; | 00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 55 | OU| 00000680: 54 50 55 54 20 54 45 4B 45 4E 2E 0D 3B 0D 3B 0D |TPUT TEKEN..;.;.| 00000690: 3B 0D 20 20 20 20 20 20 2A 3D 32 39 31 38 34 0D |;. *=29184.| 000006A0: 3B 0D 3B 20 44 45 43 4F 4E 56 45 52 53 49 45 20 |;.; DECONVERSIE | 000006B0: 42 49 4E 41 49 52 20 54 57 45 45 20 42 59 54 45 |BINAIR TWEE BYTE| 000006C0: 53 0D 3B 20 4E 41 41 52 20 44 45 43 49 4D 41 41 |S.; NAAR DECIMAA| 000006D0: 4C 2E 0D 3B 20 28 32 35 32 2C 32 35 31 29 3D 54 |L..; (252,251)=T| 000006E0: 45 20 44 45 43 4F 4E 56 2E 47 45 54 41 4C 2E 0D |E DECONV.GETAL..| 000006F0: 3B 20 28 32 35 34 2C 32 35 33 29 3D 42 45 47 49 |; (254,253)=BEGI| 00000700: 4E 41 44 52 45 53 20 4D 2E 53 2E 4F 55 54 50 2E |NADRES M.S.OUTP.| 00000710: 0D 3B 0D 42 49 44 45 43 20 54 59 41 20 20 20 20 |.;.BIDEC TYA | 00000720: 20 20 20 20 20 20 3B 52 45 44 20 28 59 29 2E 0D | ;RED (Y)..| 00000730: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 00000740: 4C 44 41 20 20 32 35 31 20 20 20 20 20 3B 49 4E |LDA 251 ;IN| 00000750: 50 55 54 47 45 54 41 4C 0D 20 20 20 20 20 20 53 |PUTGETAL. S| 00000760: 54 41 20 20 30 33 38 20 20 20 20 20 3B 4E 41 41 |TA 038 ;NAA| 00000770: 52 20 52 45 53 54 2E 0D 20 20 20 20 20 20 4C 44 |R REST.. LD| 00000780: 41 20 20 32 35 32 0D 20 20 20 20 20 20 53 54 41 |A 252. STA| 00000790: 20 20 30 33 39 0D 20 20 20 20 20 20 4C 44 41 20 | 039. LDA | 000007A0: 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 |#000. STA | 000007B0: 30 34 30 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |040. LDY #0| 000007C0: 30 34 20 20 20 20 20 3B 55 49 54 47 41 4E 47 53 |04 ;UITGANGS| 000007D0: 2D 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 38 |-. LDA #048| 000007E0: 20 20 20 20 20 3B 43 45 4C 4C 45 4E 20 4D 45 54 | ;CELLEN MET| 000007F0: 0D 42 49 44 45 31 20 53 54 41 20 28 32 35 33 29 |.BIDE1 STA (253)| 00000800: 2C 59 20 20 3B 4E 55 4C 4C 45 4E 2E 0D 20 20 20 |,Y ;NULLEN.. | 00000810: 20 20 20 44 45 59 0D 20 20 20 20 20 20 42 50 4C | DEY. BPL| 00000820: 20 20 42 49 44 45 31 0D 20 20 20 20 20 20 4C 44 | BIDE1. LD| 00000830: 59 20 23 30 30 30 20 20 20 20 20 3B 4E 2F 56 45 |Y #000 ;N/VE| 00000840: 52 47 45 4C 49 4A 4B 2E 0D 20 20 20 20 20 20 42 |RGELIJK.. B| 00000850: 45 51 20 20 42 49 44 45 33 0D 42 49 44 45 32 20 |EQ BIDE3.BIDE2 | 00000860: 53 45 43 20 20 20 20 20 20 20 20 20 20 3B 54 52 |SEC ;TR| 00000870: 45 4B 20 31 30 30 30 30 0D 20 20 20 20 20 20 4C |EK 10000. L| 00000880: 44 41 20 20 30 33 38 20 20 20 20 20 3B 41 46 20 |DA 038 ;AF | 00000890: 56 41 4E 20 52 45 53 54 2E 0D 20 20 20 20 20 20 |VAN REST.. | 000008A0: 53 42 43 20 23 30 31 36 0D 20 20 20 20 20 20 53 |SBC #016. S| 000008B0: 54 41 20 20 30 33 38 0D 20 20 20 20 20 20 4C 44 |TA 038. LD| 000008C0: 41 20 20 30 33 39 0D 20 20 20 20 20 20 53 42 43 |A 039. SBC| 000008D0: 20 23 30 33 39 0D 20 20 20 20 20 20 53 54 41 20 | #039. STA | 000008E0: 20 30 33 39 0D 20 20 20 20 20 20 4C 44 41 20 20 | 039. LDA | 000008F0: 30 34 30 0D 20 20 20 20 20 20 53 42 43 20 23 30 |040. SBC #0| 00000900: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 34 |00. STA 04| 00000910: 30 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |0. CLC | 00000920: 20 20 20 20 20 3B 54 45 4C 20 31 20 4F 50 20 42 | ;TEL 1 OP B| 00000930: 49 4A 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 |IJ. LDA (25| 00000940: 33 29 2C 59 20 20 3B 4D 2D 44 45 20 43 49 4A 46 |3),Y ;M-DE CIJF| 00000950: 45 52 2E 0D 20 20 20 20 20 20 41 44 43 20 23 30 |ER.. ADC #0| 00000960: 30 31 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |01. STA (25| 00000970: 33 29 2C 59 0D 42 49 44 45 33 20 4C 44 41 20 20 |3),Y.BIDE3 LDA | 00000980: 30 34 30 20 20 20 20 20 3B 56 45 52 47 45 4C 49 |040 ;VERGELI| 00000990: 4A 4B 45 4E 0D 20 20 20 20 20 20 43 4D 50 20 23 |JKEN. CMP #| 000009A0: 30 30 30 20 20 20 20 20 3B 52 45 53 54 20 4D 45 |000 ;REST ME| 000009B0: 54 0D 20 20 20 20 20 20 42 43 43 20 20 42 49 44 |T. BCC BID| 000009C0: 45 34 20 20 20 3B 31 30 30 30 30 2E 0D 20 20 20 |E4 ;10000.. | 000009D0: 20 20 20 42 4E 45 20 20 42 49 44 45 32 20 20 20 | BNE BIDE2 | 000009E0: 3B 3E 31 30 30 30 30 2E 0D 20 20 20 20 20 20 4C |;>10000.. L| 000009F0: 44 41 20 20 30 33 39 0D 20 20 20 20 20 20 43 4D |DA 039. CM| 00000A00: 50 20 23 30 33 39 0D 20 20 20 20 20 20 42 43 43 |P #039. BCC| 00000A10: 20 20 42 49 44 45 34 0D 20 20 20 20 20 20 42 4E | BIDE4. BN| 00000A20: 45 20 20 42 49 44 45 32 0D 20 20 20 20 20 20 4C |E BIDE2. L| 00000A30: 44 41 20 20 30 33 38 0D 20 20 20 20 20 20 43 4D |DA 038. CM| 00000A40: 50 20 23 30 31 36 0D 20 20 20 20 20 20 42 43 53 |P #016. BCS| 00000A50: 20 20 42 49 44 45 32 0D 42 49 44 45 34 20 4C 44 | BIDE2.BIDE4 LD| 00000A60: 41 20 20 30 34 30 20 20 20 20 20 3B 52 45 53 54 |A 040 ;REST| 00000A70: 20 4E 55 4C 2E 0D 20 20 20 20 20 20 42 4E 45 20 | NUL.. BNE | 00000A80: 20 42 49 44 45 35 0D 20 20 20 20 20 20 4C 44 41 | BIDE5. LDA| 00000A90: 20 20 30 33 39 0D 20 20 20 20 20 20 42 4E 45 20 | 039. BNE | 00000AA0: 20 42 49 44 45 35 0D 20 20 20 20 20 20 4C 44 41 | BIDE5. LDA| 00000AB0: 20 20 30 33 38 0D 20 20 20 20 20 20 42 45 51 20 | 038. BEQ | 00000AC0: 20 42 49 44 45 36 0D 42 49 44 45 35 20 43 4C 43 | BIDE6.BIDE5 CLC| 00000AD0: 20 20 20 20 20 20 20 20 20 20 3B 52 45 53 54 20 | ;REST | 00000AE0: 2A 20 31 30 2E 0D 20 20 20 20 20 20 52 4F 4C 20 |* 10.. ROL | 00000AF0: 20 30 33 38 0D 20 20 20 20 20 20 52 4F 4C 20 20 | 038. ROL | 00000B00: 30 33 39 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 |039. ROL 0| 00000B10: 34 30 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 |40. LDA 03| 00000B20: 39 0D 20 20 20 20 20 20 53 54 41 20 20 30 34 31 |9. STA 041| 00000B30: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 34 30 0D |. LDA 040.| 00000B40: 20 20 20 20 20 20 53 54 41 20 20 30 34 32 0D 20 | STA 042. | 00000B50: 20 20 20 20 20 4C 44 41 20 20 30 33 38 0D 20 20 | LDA 038. | 00000B60: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 52 4F | CLC. RO| 00000B70: 4C 20 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 |L A. ROL | 00000B80: 30 34 31 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 |041. ROL 0| 00000B90: 34 32 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D |42. ROL A.| 00000BA0: 20 20 20 20 20 20 52 4F 4C 20 20 30 34 31 0D 20 | ROL 041. | 00000BB0: 20 20 20 20 20 52 4F 4C 20 20 30 34 32 0D 20 20 | ROL 042. | 00000BC0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 41 44 | CLC. AD| 00000BD0: 43 20 20 30 33 38 0D 20 20 20 20 20 20 53 54 41 |C 038. STA| 00000BE0: 20 20 30 33 38 0D 20 20 20 20 20 20 4C 44 41 20 | 038. LDA | 00000BF0: 20 30 34 31 0D 20 20 20 20 20 20 41 44 43 20 20 | 041. ADC | 00000C00: 30 33 39 0D 20 20 20 20 20 20 53 54 41 20 20 30 |039. STA 0| 00000C10: 33 39 0D 20 20 20 20 20 20 4C 44 41 20 20 30 34 |39. LDA 04| 00000C20: 32 0D 20 20 20 20 20 20 41 44 43 20 20 30 34 30 |2. ADC 040| 00000C30: 0D 20 20 20 20 20 20 53 54 41 20 20 30 34 30 0D |. STA 040.| 00000C40: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00000C50: 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 42 |CLC. BCC B| 00000C60: 49 44 45 33 0D 42 49 44 45 36 20 50 4C 41 20 20 |IDE3.BIDE6 PLA | 00000C70: 20 20 20 20 20 20 20 20 3B 48 45 52 53 54 45 4C | ;HERSTEL| 00000C80: 20 28 59 29 2E 0D 20 20 20 20 20 20 54 41 59 0D | (Y).. TAY.| 00000C90: 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 | RTS.;. | 00000CA0: 20 20 2A 3D 32 39 33 32 38 0D 3B 0D 3B 20 4F 50 | *=29328.;.; OP| 00000CB0: 45 4E 20 44 49 53 4B 20 4F 50 20 4C 45 5A 45 4E |EN DISK OP LEZEN| 00000CC0: 20 44 49 52 45 43 54 4F 52 59 2E 0D 3B 0D 44 49 | DIRECTORY..;.DI| 00000CD0: 52 4C 45 20 4C 44 41 20 23 30 30 35 20 20 20 20 |RLE LDA #005 | 00000CE0: 3B 46 49 4C 45 20 23 35 2E 0D 20 20 20 20 20 20 |;FILE #5.. | 00000CF0: 4C 44 58 20 23 30 30 38 20 20 20 20 3B 44 49 53 |LDX #008 ;DIS| 00000D00: 4B 3D 38 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |K=8.. LDY #| 00000D10: 30 30 30 20 20 20 20 3B 53 45 43 2E 41 44 52 45 |000 ;SEC.ADRE| 00000D20: 53 20 30 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |S 0.. JSR | 00000D30: 36 35 34 36 36 20 20 3B 2A 2A 20 53 45 54 4C 46 |65466 ;** SETLF| 00000D40: 53 20 2A 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 |S **. LDA #| 00000D50: 30 33 36 20 20 20 20 3B 27 24 27 2E 0D 20 20 20 |036 ;'$'.. | 00000D60: 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 | STA 252. | 00000D70: 20 20 4C 44 58 20 23 32 35 32 0D 20 20 20 20 20 | LDX #252. | 00000D80: 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 20 20 | LDY #000. | 00000D90: 4C 44 41 20 23 30 30 31 0D 20 20 20 20 20 20 4A |LDA #001. J| 00000DA0: 53 52 20 20 36 35 34 36 39 20 20 3B 2A 2A 20 53 |SR 65469 ;** S| 00000DB0: 45 54 4E 41 4D 20 2A 2A 0D 20 20 20 20 20 20 4A |ETNAM **. J| 00000DC0: 53 52 20 20 36 35 34 37 32 20 20 3B 2A 2A 20 20 |SR 65472 ;** | 00000DD0: 4F 50 45 4E 20 20 2A 2A 0D 20 20 20 20 20 20 4C |OPEN **. L| 00000DE0: 44 58 20 23 30 30 35 20 20 20 20 3B 46 49 4C 45 |DX #005 ;FILE| 00000DF0: 20 23 35 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 | #5.. JSR | 00000E00: 36 35 34 37 38 20 20 3B 2A 2A 20 43 48 4B 49 4E |65478 ;** CHKIN| 00000E10: 20 20 2A 2A 0D 20 20 20 20 20 20 52 54 53 0D 3B | **. RTS.;| 00000E20: 0D 20 20 20 20 20 20 2A 3D 32 39 33 36 38 0D 3B |. *=29368.;| 00000E30: 0D 3B 20 4F 50 45 4E 20 44 49 53 4B 20 4F 50 20 |.; OPEN DISK OP | 00000E40: 4C 45 5A 45 4E 20 53 45 51 2E 46 49 4C 45 2E 0D |LEZEN SEQ.FILE..| 00000E50: 3B 20 28 32 35 32 2C 32 35 31 29 20 41 44 52 45 |; (252,251) ADRE| 00000E60: 53 20 4E 41 41 4D 4C 45 4E 47 54 45 2E 0D 3B 0D |S NAAMLENGTE..;.| 00000E70: 53 45 51 4C 45 20 4C 44 41 20 23 30 30 35 20 20 |SEQLE LDA #005 | 00000E80: 20 20 3B 46 49 4C 45 20 23 35 2E 0D 20 20 20 20 | ;FILE #5.. | 00000E90: 20 20 4C 44 58 20 23 30 30 38 20 20 20 20 3B 44 | LDX #008 ;D| 00000EA0: 49 53 4B 3D 38 2E 0D 20 20 20 20 20 20 4C 44 59 |ISK=8.. LDY| 00000EB0: 20 23 30 30 33 20 20 20 20 3B 53 45 43 2E 41 44 | #003 ;SEC.AD| 00000EC0: 52 45 53 20 33 2E 0D 20 20 20 20 20 20 4A 53 52 |RES 3.. JSR| 00000ED0: 20 20 36 35 34 36 36 20 20 3B 2A 2A 20 53 45 54 | 65466 ;** SET| 00000EE0: 4C 46 53 20 2A 2A 0D 20 20 20 20 20 20 4A 53 52 |LFS **. JSR| 00000EF0: 20 20 58 54 52 41 4B 0D 20 20 20 20 20 20 4C 44 | XTRAK. LD| 00000F00: 58 20 23 30 38 33 20 20 20 20 3B 27 53 27 2E 0D |X #083 ;'S'..| 00000F10: 20 20 20 20 20 20 4A 53 52 20 20 58 54 52 41 58 | JSR XTRAX| 00000F20: 0D 20 20 20 20 20 20 4A 53 52 20 20 58 54 52 41 |. JSR XTRA| 00000F30: 4B 0D 20 20 20 20 20 20 4C 44 58 20 23 30 38 32 |K. LDX #082| 00000F40: 20 20 20 20 3B 27 52 27 2E 0D 20 20 20 20 20 20 | ;'R'.. | 00000F50: 4A 53 52 20 20 58 54 52 41 58 0D 20 20 20 20 20 |JSR XTRAX. | 00000F60: 20 50 48 41 20 20 20 20 20 20 20 20 20 3B 4C 45 | PHA ;LE| 00000F70: 4E 47 54 45 2E 0D 20 20 20 20 20 20 43 4C 43 20 |NGTE.. CLC | 00000F80: 20 20 20 20 20 20 20 20 3B 41 44 52 45 53 20 2B | ;ADRES +| 00000F90: 20 31 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 | 1. LDA 25| 00000FA0: 31 20 20 20 20 3B 49 4E 20 28 59 2C 58 29 2E 0D |1 ;IN (Y,X)..| 00000FB0: 20 20 20 20 20 20 41 44 43 20 23 30 30 31 0D 20 | ADC #001. | 00000FC0: 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 4C | TAX. L| 00000FD0: 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 41 44 |DA 252. AD| 00000FE0: 43 20 23 30 30 30 0D 20 20 20 20 20 20 54 41 59 |C #000. TAY| 00000FF0: 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 |. PLA. | 00001000: 20 4A 53 52 20 20 36 35 34 36 39 20 20 3B 2A 2A | JSR 65469 ;**| 00001010: 20 53 45 54 4E 41 4D 20 2A 2A 0D 20 20 20 20 20 | SETNAM **. | 00001020: 20 4A 53 52 20 20 36 35 34 37 32 20 20 3B 2A 2A | JSR 65472 ;**| 00001030: 20 20 4F 50 45 4E 20 20 2A 2A 0D 20 20 20 20 20 | OPEN **. | 00001040: 20 4C 44 58 20 23 30 30 35 20 20 20 20 3B 46 49 | LDX #005 ;FI| 00001050: 4C 45 20 23 35 2E 0D 20 20 20 20 20 20 4A 53 52 |LE #5.. JSR| 00001060: 20 20 36 35 34 37 38 20 20 3B 2A 2A 20 43 48 4B | 65478 ;** CHK| 00001070: 49 4E 20 20 2A 2A 0D 20 20 20 20 20 20 52 54 53 |IN **. RTS| 00001080: 0D 3B 0D 20 20 20 20 20 20 2A 3D 32 39 34 32 30 |.;. *=29420| 00001090: 0D 3B 0D 3B 20 4F 50 45 4E 20 44 49 53 4B 20 4F |.;.; OPEN DISK O| 000010A0: 50 20 53 43 48 49 4A 56 45 4E 20 53 45 51 2E 46 |P SCHIJVEN SEQ.F| 000010B0: 49 4C 45 2E 0D 3B 20 28 32 35 32 2C 32 35 31 29 |ILE..; (252,251)| 000010C0: 20 41 44 52 45 53 20 4E 41 41 4D 4C 45 4E 47 54 | ADRES NAAMLENGT| 000010D0: 45 2E 0D 3B 0D 53 45 51 53 56 20 4C 44 41 20 23 |E..;.SEQSV LDA #| 000010E0: 30 30 35 20 20 20 20 3B 46 49 4C 45 20 23 35 2E |005 ;FILE #5.| 000010F0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 38 20 |. LDX #008 | 00001100: 20 20 20 3B 44 49 53 4B 3D 38 2E 0D 20 20 20 20 | ;DISK=8.. | 00001110: 20 20 4C 44 59 20 23 30 30 33 20 20 20 20 3B 53 | LDY #003 ;S| 00001120: 45 43 2E 41 44 52 45 53 20 33 2E 0D 20 20 20 20 |EC.ADRES 3.. | 00001130: 20 20 4A 53 52 20 20 36 35 34 36 36 20 20 3B 2A | JSR 65466 ;*| 00001140: 2A 20 53 45 54 4C 46 53 20 2A 2A 0D 20 20 20 20 |* SETLFS **. | 00001150: 20 20 4A 53 52 20 20 58 54 52 41 4B 0D 20 20 20 | JSR XTRAK. | 00001160: 20 20 20 4C 44 58 20 23 30 38 33 20 20 20 20 3B | LDX #083 ;| 00001170: 27 53 27 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |'S'.. JSR | 00001180: 58 54 52 41 58 0D 20 20 20 20 20 20 4A 53 52 20 |XTRAX. JSR | 00001190: 20 58 54 52 41 4B 0D 20 20 20 20 20 20 4C 44 58 | XTRAK. LDX| 000011A0: 20 23 30 38 37 20 20 20 20 3B 27 57 27 2E 0D 20 | #087 ;'W'.. | 000011B0: 20 20 20 20 20 4A 53 52 20 20 58 54 52 41 58 0D | JSR XTRAX.| 000011C0: 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 20 | PHA | 000011D0: 20 20 3B 4C 45 4E 47 54 45 2E 0D 20 20 20 20 20 | ;LENGTE.. | 000011E0: 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 41 44 | CLC ;AD| 000011F0: 52 45 53 20 2B 20 31 0D 20 20 20 20 20 20 4C 44 |RES + 1. LD| 00001200: 41 20 20 32 35 31 20 20 20 20 3B 49 4E 20 28 59 |A 251 ;IN (Y| 00001210: 2C 58 29 2E 0D 20 20 20 20 20 20 41 44 43 20 23 |,X).. ADC #| 00001220: 30 30 31 0D 20 20 20 20 20 20 54 41 58 0D 20 20 |001. TAX. | 00001230: 20 20 20 20 4C 44 41 20 20 32 35 32 0D 20 20 20 | LDA 252. | 00001240: 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 | ADC #000. | 00001250: 20 20 54 41 59 0D 20 20 20 20 20 20 50 4C 41 0D | TAY. PLA.| 00001260: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 36 39 | JSR 65469| 00001270: 20 20 3B 2A 2A 20 53 45 54 4E 41 4D 20 2A 2A 0D | ;** SETNAM **.| 00001280: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 32 | JSR 65472| 00001290: 20 20 3B 2A 2A 20 20 4F 50 45 4E 20 20 2A 2A 0D | ;** OPEN **.| 000012A0: 20 20 20 20 20 20 4C 44 58 20 23 30 30 35 20 20 | LDX #005 | 000012B0: 20 20 3B 46 49 4C 45 20 23 35 2E 0D 20 20 20 20 | ;FILE #5.. | 000012C0: 20 20 4A 53 52 20 20 36 35 34 38 31 20 20 3B 2A | JSR 65481 ;*| 000012D0: 2A 20 43 48 4B 4F 55 54 20 2A 2A 0D 20 20 20 20 |* CHKOUT **. | 000012E0: 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D | RTS.;. *=| 000012F0: 32 39 34 37 32 0D 3B 0D 3B 20 53 4C 55 49 54 20 |29472.;.; SLUIT | 00001300: 44 49 53 4B 2E 0D 3B 0D 53 4C 55 49 54 20 4C 44 |DISK..;.SLUIT LD| 00001310: 41 20 23 30 30 35 20 20 20 20 3B 46 49 4C 45 20 |A #005 ;FILE | 00001320: 23 35 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |#5.. JSR 6| 00001330: 35 34 37 35 20 20 3B 2A 2A 20 43 4C 4F 53 45 20 |5475 ;** CLOSE | 00001340: 20 2A 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 | **. JSR 6| 00001350: 35 35 31 31 20 20 3B 2A 2A 20 43 4C 41 4C 4C 20 |5511 ;** CLALL | 00001360: 20 2A 2A 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D | **. RTS.;.| 00001370: 20 20 20 20 20 20 2A 3D 32 39 34 38 32 0D 3B 0D | *=29482.;.| 00001380: 3B 20 54 45 4B 45 4E 20 4B 4F 4D 4D 41 20 41 43 |; TEKEN KOMMA AC| 00001390: 48 54 45 52 20 44 45 20 4E 41 41 4D 2E 0D 3B 20 |HTER DE NAAM..; | 000013A0: 54 45 4B 45 4E 20 28 58 29 20 41 43 48 54 45 52 |TEKEN (X) ACHTER| 000013B0: 20 44 45 20 4E 41 41 4D 2E 0D 3B 20 4E 41 41 4D | DE NAAM..; NAAM| 000013C0: 45 4C 45 4D 45 4E 54 20 41 4C 53 20 56 4F 4C 47 |ELEMENT ALS VOLG| 000013D0: 54 3A 0D 3B 0D 3B 20 28 41 30 2B 30 29 28 41 30 |T:.;.; (A0+0)(A0| 000013E0: 2B 31 29 28 41 30 2B 32 29 2E 2E 2E 28 41 30 2B |+1)(A0+2)...(A0+| 000013F0: 4C 29 0D 3B 20 20 20 4C 20 20 20 20 54 4B 2E 31 |L).; L TK.1| 00001400: 20 20 54 4B 2E 32 20 2E 2E 2E 20 54 4B 2E 4C 0D | TK.2 ... TK.L.| 00001410: 3B 0D 58 54 52 41 4B 20 4C 44 58 20 23 30 34 34 |;.XTRAK LDX #044| 00001420: 20 20 20 20 3B 4B 4F 4D 4D 41 2E 0D 3B 0D 58 54 | ;KOMMA..;.XT| 00001430: 52 41 58 20 4C 44 59 20 23 30 30 30 20 20 20 20 |RAX LDY #000 | 00001440: 3B 4C 45 4E 47 54 45 20 4C 2E 0D 20 20 20 20 20 |;LENGTE L.. | 00001450: 20 4C 44 41 20 28 32 35 31 29 2C 59 20 3B 41 30 | LDA (251),Y ;A0| 00001460: 3D 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 |=(252,251).. | 00001470: 20 20 54 41 59 20 20 20 20 20 20 20 20 20 3B 4C | TAY ;L| 00001480: 45 4E 47 54 45 3D 50 4F 53 2E 0D 20 20 20 20 20 |ENGTE=POS.. | 00001490: 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 50 4C | TXA ;PL| 000014A0: 41 41 54 53 20 54 45 4B 45 4E 0D 20 20 20 20 20 |AATS TEKEN. | 000014B0: 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 41 43 | INY ;AC| 000014C0: 48 54 45 52 41 41 4E 2E 0D 20 20 20 20 20 20 53 |HTERAAN.. S| 000014D0: 54 41 20 28 32 35 31 29 2C 59 20 3B 4C 45 4E 47 |TA (251),Y ;LENG| 000014E0: 54 45 20 2B 20 31 2E 0D 20 20 20 20 20 20 54 59 |TE + 1.. TY| 000014F0: 41 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 |A. LDY #000| 00001500: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 31 29 |. STA (251)| 00001510: 2C 59 20 3B 5A 45 54 20 49 4E 20 41 30 2B 30 2E |,Y ;ZET IN A0+0.| 00001520: 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 |. RTS.;. | 00001530: 20 20 20 2A 3D 32 39 35 30 30 0D 3B 0D 3B 20 44 | *=29500.;.; D| 00001540: 52 55 4B 20 4F 50 20 50 52 49 4E 54 45 52 20 53 |RUK OP PRINTER S| 00001550: 54 41 52 20 53 47 2D 31 30 0D 3B 20 44 45 20 50 |TAR SG-10.; DE P| 00001560: 55 5A 5A 45 4C 20 56 41 4E 41 46 20 48 45 54 20 |UZZEL VANAF HET | 00001570: 53 43 48 45 52 4D 2E 0D 3B 20 4D 53 2E 41 44 52 |SCHERM..; MS.ADR| 00001580: 45 53 20 53 43 48 45 52 4D 20 42 45 47 49 4E 20 |ES SCHERM BEGIN | 00001590: 4F 50 20 30 30 36 34 38 2E 0D 3B 20 4D 53 2E 41 |OP 00648..; MS.A| 000015A0: 44 52 45 53 20 4B 41 52 41 4B 54 45 52 53 20 56 |DRES KARAKTERS V| 000015B0: 41 4E 41 46 20 30 30 36 38 31 2E 0D 3B 0D 44 52 |ANAF 00681..;.DR| 000015C0: 55 4B 53 20 4C 44 41 20 23 30 30 31 20 20 20 20 |UKS LDA #001 | 000015D0: 3B 46 49 4C 45 20 23 31 2E 0D 20 20 20 20 20 20 |;FILE #1.. | 000015E0: 4C 44 58 20 23 30 30 34 20 20 20 20 3B 44 52 55 |LDX #004 ;DRU| 000015F0: 4B 3D 34 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |K=4.. LDY #| 00001600: 30 30 30 20 20 20 20 3B 53 45 43 2E 41 44 52 45 |000 ;SEC.ADRE| 00001610: 53 20 30 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |S 0.. JSR | 00001620: 36 35 34 36 36 20 20 3B 2A 2A 20 53 45 54 4C 46 |65466 ;** SETLF| 00001630: 53 20 2A 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 |S **. LDA #| 00001640: 30 30 30 20 20 20 20 3B 4E 41 41 4D 4C 4F 4F 53 |000 ;NAAMLOOS| 00001650: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |.. JSR 654| 00001660: 36 39 20 20 3B 2A 2A 20 53 45 54 4E 41 4D 20 2A |69 ;** SETNAM *| 00001670: 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |*. JSR 654| 00001680: 37 32 20 20 3B 2A 2A 20 20 4F 50 45 4E 20 20 2A |72 ;** OPEN *| 00001690: 2A 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 31 |*. LDX #001| 000016A0: 20 20 20 20 3B 46 49 4C 45 20 23 31 2E 0D 20 20 | ;FILE #1.. | 000016B0: 20 20 20 20 4A 53 52 20 20 36 35 34 38 31 20 20 | JSR 65481 | 000016C0: 3B 2A 2A 20 43 48 4B 4F 55 54 20 2A 2A 0D 20 20 |;** CHKOUT **. | 000016D0: 20 20 20 20 4C 44 41 20 23 30 32 34 20 20 20 20 | LDA #024 | 000016E0: 3B 42 55 46 46 45 52 20 4C 45 45 47 2E 0D 20 20 |;BUFFER LEEG.. | 000016F0: 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 20 | JSR 65490 | 00001700: 3B 2A 2A 20 43 48 52 4F 55 54 20 2A 2A 0D 20 20 |;** CHROUT **. | 00001710: 20 20 20 20 4C 44 41 20 23 30 32 37 20 20 20 20 | LDA #027 | 00001720: 3B 52 45 47 45 4C 20 38 2F 37 32 20 49 4E 2E 0D |;REGEL 8/72 IN..| 00001730: 20 20 20 20 20 20 4C 44 58 20 23 30 36 35 20 20 | LDX #065 | 00001740: 20 20 3B 56 45 52 54 49 43 41 41 4C 20 41 4C 0D | ;VERTICAAL AL.| 00001750: 20 20 20 20 20 20 4C 44 59 20 23 30 30 38 20 20 | LDY #008 | 00001760: 20 20 3B 4F 50 20 37 32 20 53 54 49 50 2F 49 4E | ;OP 72 STIP/IN| 00001770: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 41 58 |.. JSR LAX| 00001780: 59 20 20 20 3B 5A 45 54 20 45 53 43 2D 52 49 4A |Y ;ZET ESC-RIJ| 00001790: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 38 35 |.. LDX #085| 000017A0: 20 20 20 20 3B 50 52 49 4E 54 20 49 4E 0D 20 20 | ;PRINT IN. | 000017B0: 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 20 | LDY #001 | 000017C0: 3B 45 45 4E 20 52 49 43 48 54 49 4E 47 2E 0D 20 |;EEN RICHTING.. | 000017D0: 20 20 20 20 20 4A 53 52 20 20 4C 41 58 59 20 20 | JSR LAXY | 000017E0: 20 3B 42 45 47 49 4E 41 44 52 45 53 20 56 41 4E | ;BEGINADRES VAN| 000017F0: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 36 38 |. LDA 0068| 00001800: 31 20 20 3B 4B 41 52 41 4B 54 45 52 42 4C 4F 4B |1 ;KARAKTERBLOK| 00001810: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 20 |. STA 254 | 00001820: 20 20 20 3B 49 4E 20 28 32 35 34 2C 32 35 33 29 | ;IN (254,253)| 00001830: 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |.. LDA #000| 00001840: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 0D |. STA 253.| 00001850: 20 20 20 20 20 20 4C 44 41 20 20 30 30 36 34 38 | LDA 00648| 00001860: 20 20 3B 53 43 48 45 52 4D 47 45 48 45 55 47 45 | ;SCHERMGEHEUGE| 00001870: 4E 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 38 |N. STA 168| 00001880: 20 20 20 20 3B 49 4E 20 28 31 36 38 2C 31 36 37 | ;IN (168,167| 00001890: 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |).. LDA #00| 000018A0: 30 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 37 |0. STA 167| 000018B0: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 34 20 |. LDA #024 | 000018C0: 20 20 20 3B 52 45 47 45 4C 41 46 54 45 4C 4C 45 | ;REGELAFTELLE| 000018D0: 52 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 38 |R. STA 248| 000018E0: 20 20 20 20 3B 32 34 2D 30 30 20 49 4E 20 32 34 | ;24-00 IN 24| 000018F0: 38 2E 0D 44 52 55 4B 31 20 4C 44 59 20 23 30 30 |8..DRUK1 LDY #00| 00001900: 30 20 20 20 20 3B 5A 4F 45 4B 20 42 45 47 49 4E |0 ;ZOEK BEGIN| 00001910: 20 56 41 4E 0D 44 52 55 4B 32 20 4C 44 41 20 28 | VAN.DRUK2 LDA (| 00001920: 31 36 37 29 2C 59 20 3B 4E 49 45 54 42 4C 41 4E |167),Y ;NIETBLAN| 00001930: 4B 20 44 45 45 4C 0D 20 20 20 20 20 20 43 4D 50 |K DEEL. CMP| 00001940: 20 23 30 33 32 20 20 20 20 3B 56 41 4E 20 52 45 | #032 ;VAN RE| 00001950: 47 45 4C 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 |GEL.. BNE | 00001960: 44 52 55 4B 33 0D 20 20 20 20 20 20 49 4E 59 0D |DRUK3. INY.| 00001970: 20 20 20 20 20 20 43 50 59 20 23 30 34 30 0D 20 | CPY #040. | 00001980: 20 20 20 20 20 42 43 43 20 20 44 52 55 4B 32 0D | BCC DRUK2.| 00001990: 20 20 20 20 20 20 42 43 53 20 20 44 52 55 4B 36 | BCS DRUK6| 000019A0: 20 20 3B 52 45 47 45 4C 20 4C 45 45 47 2E 0D 44 | ;REGEL LEEG..D| 000019B0: 52 55 4B 33 20 53 54 59 20 20 31 37 30 20 20 20 |RUK3 STY 170 | 000019C0: 20 3B 50 4F 53 2E 31 45 20 4E 49 45 54 42 4C 4B | ;POS.1E NIETBLK| 000019D0: 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 34 30 |.. LDY #040| 000019E0: 20 20 20 20 3B 42 52 45 45 44 54 45 2E 0D 44 52 | ;BREEDTE..DR| 000019F0: 55 4B 34 20 44 45 59 20 20 20 20 20 20 20 20 20 |UK4 DEY | 00001A00: 3B 41 46 20 52 45 47 45 4C 45 49 4E 44 0D 20 20 |;AF REGELEIND. | 00001A10: 20 20 20 20 4C 44 41 20 28 31 36 37 29 2C 59 20 | LDA (167),Y | 00001A20: 3B 5A 4F 45 4B 20 4E 49 45 54 42 4C 41 4E 4B 2E |;ZOEK NIETBLANK.| 00001A30: 0D 20 20 20 20 20 20 43 4D 50 20 23 30 33 32 0D |. CMP #032.| 00001A40: 20 20 20 20 20 20 42 45 51 20 20 44 52 55 4B 34 | BEQ DRUK4| 00001A50: 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 |. INY | 00001A60: 20 20 20 3B 45 45 4E 20 4E 2E 52 45 43 48 54 53 | ;EEN N.RECHTS| 00001A70: 2E 0D 20 20 20 20 20 20 53 54 59 20 20 31 37 31 |.. STY 171| 00001A80: 0D 20 20 20 20 20 20 53 45 43 20 20 20 20 20 20 |. SEC | 00001A90: 20 20 20 3B 42 45 50 41 41 4C 20 41 41 4E 54 41 | ;BEPAAL AANTA| 00001AA0: 4C 0D 20 20 20 20 20 20 54 59 41 20 20 20 20 20 |L. TYA | 00001AB0: 20 20 20 20 3B 4E 49 45 54 42 4C 2E 54 45 4B 45 | ;NIETBL.TEKE| 00001AC0: 4E 53 2E 0D 20 20 20 20 20 20 53 42 43 20 20 31 |NS.. SBC 1| 00001AD0: 37 30 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |70. STA 25| 00001AE0: 31 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |1. CLC | 00001AF0: 20 20 20 20 3B 41 41 4E 54 41 4C 20 2A 20 38 2E | ;AANTAL * 8.| 00001B00: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D |. LDA #000.| 00001B10: 20 20 20 20 20 20 52 4F 4C 20 20 32 35 31 0D 20 | ROL 251. | 00001B20: 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 | ROL A. | 00001B30: 20 20 52 4F 4C 20 20 32 35 31 0D 20 20 20 20 20 | ROL 251. | 00001B40: 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 4F | ROL A. RO| 00001B50: 4C 20 20 32 35 31 0D 20 20 20 20 20 20 52 4F 4C |L 251. ROL| 00001B60: 20 20 41 0D 20 20 20 20 20 20 53 54 41 20 20 32 | A. STA 2| 00001B70: 35 32 0D 20 20 20 20 20 20 4C 44 41 20 20 31 37 |52. LDA 17| 00001B80: 30 0D 20 20 20 20 20 20 41 44 43 20 23 30 32 30 |0. ADC #020| 00001B90: 20 20 20 20 3B 42 45 47 49 4E 4D 41 52 47 45 2E | ;BEGINMARGE.| 00001BA0: 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 |. TAY | 00001BB0: 20 20 20 3B 53 4F 4D 20 49 4E 20 59 2E 0D 20 20 | ;SOM IN Y.. | 00001BC0: 20 20 20 20 4C 44 41 20 23 30 32 37 0D 20 20 20 | LDA #027. | 00001BD0: 20 20 20 4C 44 58 20 23 30 37 37 0D 20 20 20 20 | LDX #077. | 00001BE0: 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 20 20 | JSR LAXY. | 00001BF0: 20 20 4C 44 58 20 23 31 30 33 20 20 20 20 3B 50 | LDX #103 ;P| 00001C00: 52 49 4E 54 45 52 20 47 52 41 46 2E 0D 20 20 20 |RINTER GRAF.. | 00001C10: 20 20 20 4C 44 59 20 23 30 30 34 20 20 20 20 3B | LDY #004 ;| 00001C20: 4F 50 20 38 30 20 53 54 49 50 2F 49 4E 2E 0D 20 |OP 80 STIP/IN.. | 00001C30: 20 20 20 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 | JSR LAXY. | 00001C40: 20 20 20 20 20 4C 44 58 20 20 32 35 31 20 20 20 | LDX 251 | 00001C50: 20 3B 41 41 4E 54 41 4C 20 4C 41 41 47 2E 0D 20 | ;AANTAL LAAG.. | 00001C60: 20 20 20 20 20 4C 44 59 20 20 32 35 32 20 20 20 | LDY 252 | 00001C70: 20 3B 41 41 4E 54 41 4C 20 48 4F 4F 47 2E 0D 20 | ;AANTAL HOOG.. | 00001C80: 20 20 20 20 20 4A 53 52 20 20 4C 58 59 0D 20 20 | JSR LXY. | 00001C90: 20 20 20 20 4C 44 59 20 20 31 37 30 20 20 20 20 | LDY 170 | 00001CA0: 3B 42 45 47 49 4E 50 4F 53 2E 0D 44 52 55 4B 35 |;BEGINPOS..DRUK5| 00001CB0: 20 53 54 59 20 20 31 36 39 20 20 20 20 3B 49 4E | STY 169 ;IN| 00001CC0: 20 31 36 39 2E 0D 20 20 20 20 20 20 4C 44 41 20 | 169.. LDA | 00001CD0: 28 31 36 37 29 2C 59 20 3B 43 4F 44 45 49 4E 44 |(167),Y ;CODEIND| 00001CE0: 45 58 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 52 |EX.. JSR R| 00001CF0: 4F 50 55 20 20 20 3B 50 52 49 4E 54 20 54 45 4B |OPU ;PRINT TEK| 00001D00: 45 4E 2E 0D 20 20 20 20 20 20 4C 44 59 20 20 31 |EN.. LDY 1| 00001D10: 36 39 20 20 20 20 3B 56 4F 4C 47 45 4E 44 45 20 |69 ;VOLGENDE | 00001D20: 50 4F 53 2E 0D 20 20 20 20 20 20 49 4E 59 0D 20 |POS.. INY. | 00001D30: 20 20 20 20 20 43 50 59 20 20 31 37 31 20 20 20 | CPY 171 | 00001D40: 20 3B 45 49 4E 44 3F 0D 20 20 20 20 20 20 42 43 | ;EIND?. BC| 00001D50: 43 20 20 44 52 55 4B 35 0D 44 52 55 4B 36 20 4C |C DRUK5.DRUK6 L| 00001D60: 44 41 20 23 30 31 30 20 20 20 20 3B 52 45 47 45 |DA #010 ;REGE| 00001D70: 4C 56 45 52 5A 45 54 2E 0D 20 20 20 20 20 20 4A |LVERZET.. J| 00001D80: 53 52 20 20 36 35 34 39 30 20 20 3B 2A 2A 20 43 |SR 65490 ;** C| 00001D90: 48 52 4F 55 54 20 2A 2A 0D 20 20 20 20 20 20 43 |HROUT **. C| 00001DA0: 4C 43 20 20 20 20 20 20 20 20 20 3B 53 43 48 45 |LC ;SCHE| 00001DB0: 52 4D 41 44 52 45 53 0D 20 20 20 20 20 20 4C 44 |RMADRES. LD| 00001DC0: 41 20 23 30 34 30 20 20 20 20 3B 4D 45 54 20 34 |A #040 ;MET 4| 00001DD0: 30 2E 0D 20 20 20 20 20 20 41 44 43 20 20 31 36 |0.. ADC 16| 00001DE0: 37 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 37 |7. STA 167| 00001DF0: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D |. LDA #000.| 00001E00: 20 20 20 20 20 20 41 44 43 20 20 31 36 38 0D 20 | ADC 168. | 00001E10: 20 20 20 20 20 53 54 41 20 20 31 36 38 0D 20 20 | STA 168. | 00001E20: 20 20 20 20 44 45 43 20 20 32 34 38 20 20 20 20 | DEC 248 | 00001E30: 3B 52 45 47 45 4C 41 46 54 45 4C 2E 0D 20 20 20 |;REGELAFTEL.. | 00001E40: 20 20 20 42 50 4C 20 20 44 52 55 4B 31 0D 20 20 | BPL DRUK1. | 00001E50: 20 20 20 20 4C 44 58 20 23 30 32 37 20 20 20 20 | LDX #027 | 00001E60: 3B 48 45 52 5A 45 54 20 50 52 49 4E 54 45 52 2E |;HERZET PRINTER.| 00001E70: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 36 34 0D |. LDY #064.| 00001E80: 20 20 20 20 20 20 4A 53 52 20 20 4C 58 59 0D 20 | JSR LXY. | 00001E90: 20 20 20 20 20 4C 44 41 20 23 30 30 31 20 20 20 | LDA #001 | 00001EA0: 20 3B 46 49 4C 45 20 23 31 2E 0D 20 20 20 20 20 | ;FILE #1.. | 00001EB0: 20 4A 53 52 20 20 36 35 34 37 35 20 20 3B 2A 2A | JSR 65475 ;**| 00001EC0: 20 43 4C 4F 53 45 20 20 2A 2A 0D 20 20 20 20 20 | CLOSE **. | 00001ED0: 20 4A 53 52 20 20 36 35 35 31 31 20 20 3B 2A 2A | JSR 65511 ;**| 00001EE0: 20 43 4C 41 4C 4C 20 20 2A 2A 0D 20 20 20 20 20 | CLALL **. | 00001EF0: 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 32 | RTS.;. *=2| 00001F00: 39 36 39 36 0D 3B 0D 4C 41 58 59 20 20 53 54 41 |9696.;.LAXY STA| 00001F10: 20 20 30 30 32 20 20 20 20 3B 52 45 44 20 28 41 | 002 ;RED (A| 00001F20: 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 |).. JSR 65| 00001F30: 34 39 30 20 20 3B 20 28 41 29 20 55 49 54 2E 0D |490 ; (A) UIT..| 00001F40: 3B 0D 4C 58 59 20 20 20 54 58 41 20 20 20 20 20 |;.LXY TXA | 00001F50: 20 20 20 20 3B 20 28 58 29 20 55 49 54 2E 0D 20 | ; (X) UIT.. | 00001F60: 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 0D | JSR 65490.| 00001F70: 20 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 | TYA | 00001F80: 20 20 3B 20 28 59 29 20 55 49 54 2E 0D 20 20 20 | ; (Y) UIT.. | 00001F90: 20 20 20 4A 53 52 20 20 36 35 34 39 30 0D 20 20 | JSR 65490. | 00001FA0: 20 20 20 20 4C 44 41 20 20 30 30 32 20 20 20 20 | LDA 002 | 00001FB0: 3B 48 45 52 53 54 45 4C 20 28 41 29 2E 0D 20 20 |;HERSTEL (A).. | 00001FC0: 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 | RTS.;. | 00001FD0: 2A 3D 32 39 37 31 36 0D 3B 0D 52 4F 50 55 20 20 |*=29716.;.ROPU | 00001FE0: 53 54 41 20 20 30 30 32 20 20 20 20 3B 43 4F 44 |STA 002 ;COD| 00001FF0: 45 20 28 41 29 2D 3E 28 32 29 2E 0D 20 20 20 20 |E (A)->(2).. | 00002000: 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 20 | CLC ; | 00002010: 2A 20 38 20 2D 3E 28 41 29 28 32 29 2E 0D 20 20 |* 8 ->(A)(2).. | 00002020: 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 | LDA #000. | 00002030: 20 20 20 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 | ROL 002. | 00002040: 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 | ROL A. R| 00002050: 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 20 52 4F |OL 002. RO| 00002060: 4C 20 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 |L A. ROL | 00002070: 30 30 32 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 |002. ROL A| 00002080: 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 |. TAX. | 00002090: 20 4C 44 41 20 20 30 30 32 20 20 20 20 3B 41 44 | LDA 002 ;AD| 000020A0: 52 45 53 20 56 41 4E 0D 20 20 20 20 20 20 41 44 |RES VAN. AD| 000020B0: 43 20 20 32 35 33 20 20 20 20 3B 4B 41 52 41 4B |C 253 ;KARAK| 000020C0: 54 45 52 2D 52 41 4D 0D 20 20 20 20 20 20 53 54 |TER-RAM. ST| 000020D0: 41 20 20 32 34 39 20 20 20 20 3B 45 52 42 49 4A |A 249 ;ERBIJ| 000020E0: 20 45 4E 20 49 4E 0D 20 20 20 20 20 20 54 58 41 | EN IN. TXA| 000020F0: 20 20 20 20 20 20 20 20 20 3B 28 32 35 30 2C 32 | ;(250,2| 00002100: 34 39 29 2E 0D 20 20 20 20 20 20 41 44 43 20 20 |49).. ADC | 00002110: 32 35 34 0D 20 20 20 20 20 20 53 54 41 20 20 32 |254. STA 2| 00002120: 35 30 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |50. LDY #00| 00002130: 37 20 20 20 20 3B 54 52 41 4E 53 50 4F 52 54 20 |7 ;TRANSPORT | 00002140: 4E 41 41 52 0D 52 4F 50 31 20 20 4C 44 41 20 28 |NAAR.ROP1 LDA (| 00002150: 32 34 39 29 2C 59 20 3B 28 38 32 30 29 2E 2E 2E |249),Y ;(820)...| 00002160: 28 38 32 37 29 2E 0D 20 20 20 20 20 20 53 54 41 |(827).. STA| 00002170: 20 20 30 30 38 32 30 2C 59 0D 20 20 20 20 20 20 | 00820,Y. | 00002180: 44 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 52 |DEY. BPL R| 00002190: 4F 50 31 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |OP1. LDY #0| 000021A0: 30 37 20 20 20 20 3B 54 52 41 4E 53 50 4F 53 49 |07 ;TRANSPOSI| 000021B0: 54 49 45 0D 52 4F 50 32 20 20 4C 44 58 20 23 30 |TIE.ROP2 LDX #0| 000021C0: 30 37 20 20 20 20 3B 45 4E 20 4F 55 54 50 55 54 |07 ;EN OUTPUT| 000021D0: 2E 0D 52 4F 50 33 20 20 52 4F 4C 20 20 30 30 38 |..ROP3 ROL 008| 000021E0: 32 30 2C 58 0D 20 20 20 20 20 20 52 4F 52 20 20 |20,X. ROR | 000021F0: 41 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 |A. DEX. | 00002200: 20 20 42 50 4C 20 20 52 4F 50 33 0D 20 20 20 20 | BPL ROP3. | 00002210: 20 20 4A 53 52 20 20 36 35 34 39 30 0D 20 20 20 | JSR 65490. | 00002220: 20 20 20 44 45 59 0D 20 20 20 20 20 20 42 50 4C | DEY. BPL| 00002230: 20 20 52 4F 50 32 0D 20 20 20 20 20 20 52 54 53 | ROP2. RTS| 00002240: 0D 3B 0D 20 20 20 20 20 20 2A 3D 32 39 37 37 32 |.;. *=29772| 00002250: 0D 3B 0D 3B 20 49 4E 4C 4F 4F 50 2E 0D 3B 0D 3B |.;.; INLOOP..;.;| 00002260: 20 44 49 54 20 53 55 42 50 52 4F 47 52 41 4D 4D | DIT SUBPROGRAMM| 00002270: 41 3A 0D 3B 0D 3B 20 5A 45 54 20 53 43 48 45 52 |A:.;.; ZET SCHER| 00002280: 4D 2D 42 45 47 49 4E 41 44 52 45 53 3B 0D 3B 20 |M-BEGINADRES;.; | 00002290: 5A 45 54 20 53 50 45 45 4C 56 45 4C 44 2D 42 45 |ZET SPEELVELD-BE| 000022A0: 47 49 4E 41 44 52 45 53 3B 0D 3B 20 5A 45 54 20 |GINADRES;.; ZET | 000022B0: 42 45 47 49 4E 41 44 52 45 53 20 56 41 4E 20 4B |BEGINADRES VAN K| 000022C0: 4C 45 55 52 0D 3B 20 20 20 20 20 56 41 4E 20 53 |LEUR.; VAN S| 000022D0: 43 48 45 52 4D 20 45 4E 20 53 50 45 45 4C 56 45 |CHERM EN SPEELVE| 000022E0: 4C 44 3B 0D 3B 20 5A 45 54 20 4B 4C 45 55 52 20 |LD;.; ZET KLEUR | 000022F0: 56 41 4E 20 54 45 4B 45 4E 53 2C 20 56 4F 4F 52 |VAN TEKENS, VOOR| 00002300: 47 52 4F 4E 44 0D 3B 20 20 20 20 20 45 4E 20 41 |GROND.; EN A| 00002310: 43 48 54 45 52 47 52 4F 4E 44 3B 0D 3B 20 5A 45 |CHTERGROND;.; ZE| 00002320: 54 20 47 52 45 4E 5A 45 4E 20 56 41 4E 20 53 50 |T GRENZEN VAN SP| 00002330: 45 45 4C 56 45 4C 44 3A 0D 3B 20 20 20 20 20 52 |EELVELD:.; R| 00002340: 45 43 48 54 53 20 58 45 3D 28 36 39 32 29 3D 58 |ECHTS XE=(692)=X| 00002350: 4F 2B 4E 3B 0D 3B 20 20 20 20 20 4F 4E 44 45 52 |O+N;.; ONDER| 00002360: 20 20 59 45 3D 28 36 39 33 29 3D 59 4F 2B 4D 3B | YE=(693)=YO+M;| 00002370: 0D 3B 20 20 20 20 20 54 45 56 4F 52 45 4E 20 58 |.; TEVOREN X| 00002380: 4F 3D 28 36 39 30 29 3B 20 4E 3D 28 37 33 30 29 |O=(690); N=(730)| 00002390: 3B 0D 3B 20 20 20 20 20 41 4C 53 4D 45 44 45 20 |;.; ALSMEDE | 000023A0: 59 4F 3D 28 36 39 31 29 3B 20 4D 3D 28 37 33 31 |YO=(691); M=(731| 000023B0: 29 3B 0D 3B 20 5A 45 54 20 41 44 52 45 53 53 45 |);.; ZET ADRESSE| 000023C0: 4E 20 56 4F 4F 52 20 4C 45 54 54 45 52 53 20 45 |N VOOR LETTERS E| 000023D0: 4E 0D 3B 20 20 20 20 20 43 49 4A 46 45 52 53 20 |N.; CIJFERS | 000023E0: 56 41 4E 20 44 45 20 43 4F 44 45 53 2E 0D 3B 0D |VAN DE CODES..;.| 000023F0: 49 4E 4C 4F 50 20 4C 44 41 20 20 30 30 36 34 38 |INLOP LDA 00648| 00002400: 20 20 3B 53 43 48 45 52 4D 0D 20 20 20 20 20 20 | ;SCHERM. | 00002410: 53 54 41 20 20 53 41 44 52 48 20 20 3B 42 45 47 |STA SADRH ;BEG| 00002420: 49 4E 41 44 52 45 53 2E 0D 20 20 20 20 20 20 4C |INADRES.. L| 00002430: 44 41 20 23 30 30 30 20 20 20 20 3B 42 45 52 45 |DA #000 ;BERE| 00002440: 4B 45 4E 45 4E 20 56 41 4E 0D 20 20 20 20 20 20 |KENEN VAN. | 00002450: 53 54 41 20 20 32 35 32 20 20 20 20 3B 58 4F 20 |STA 252 ;XO | 00002460: 2B 20 34 30 20 2A 20 59 4F 2E 0D 20 20 20 20 20 |+ 40 * YO.. | 00002470: 20 4C 44 41 20 20 30 30 36 39 30 20 20 3B 20 54 | LDA 00690 ; T| 00002480: 45 52 4D 20 58 4F 2E 0D 20 20 20 20 20 20 53 54 |ERM XO.. ST| 00002490: 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 |A 251. LDA| 000024A0: 20 23 30 34 30 20 20 20 20 3B 20 46 41 43 54 4F | #040 ; FACTO| 000024B0: 52 20 34 30 2E 0D 20 20 20 20 20 20 53 54 41 20 |R 40.. STA | 000024C0: 20 31 30 37 0D 20 20 20 20 20 20 4C 44 41 20 20 | 107. LDA | 000024D0: 30 30 36 39 31 20 20 3B 20 46 41 43 54 4F 52 20 |00691 ; FACTOR | 000024E0: 59 4F 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 |YO.. STA 1| 000024F0: 36 37 0D 20 20 20 20 20 20 4A 53 52 20 20 4D 55 |67. JSR MU| 00002500: 4C 4F 50 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |LOP. LDX #0| 00002510: 30 36 0D 49 4E 4C 4F 31 20 43 4C 43 20 20 20 20 |06.INLO1 CLC | 00002520: 20 20 20 20 20 20 3B 54 45 4C 20 42 49 4A 20 42 | ;TEL BIJ B| 00002530: 45 47 49 4E 2D 0D 20 20 20 20 20 20 4C 44 41 20 |EGIN-. LDA | 00002540: 20 53 41 44 52 4C 2C 58 20 3B 41 44 52 45 53 20 | SADRL,X ;ADRES | 00002550: 53 43 48 45 52 4D 2D 0D 20 20 20 20 20 20 41 44 |SCHERM-. AD| 00002560: 43 20 20 32 35 31 20 20 20 20 20 3B 45 4E 20 4B |C 251 ;EN K| 00002570: 4C 45 55 52 56 45 4C 44 2E 0D 20 20 20 20 20 20 |LEURVELD.. | 00002580: 53 54 41 20 20 53 42 44 52 4C 2C 58 0D 20 20 20 |STA SBDRL,X. | 00002590: 20 20 20 4C 44 41 20 20 53 41 44 52 48 2C 58 0D | LDA SADRH,X.| 000025A0: 20 20 20 20 20 20 41 44 43 20 20 32 35 32 0D 20 | ADC 252. | 000025B0: 20 20 20 20 20 53 54 41 20 20 53 42 44 52 48 2C | STA SBDRH,| 000025C0: 58 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 |X. DEX. | 000025D0: 20 20 44 45 58 0D 20 20 20 20 20 20 44 45 58 0D | DEX. DEX.| 000025E0: 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 | DEX. | 000025F0: 44 45 58 0D 20 20 20 20 20 20 44 45 58 0D 20 20 |DEX. DEX. | 00002600: 20 20 20 20 42 50 4C 20 20 49 4E 4C 4F 31 0D 20 | BPL INLO1. | 00002610: 20 20 20 20 20 4C 44 41 20 20 54 45 4B 4B 4C 20 | LDA TEKKL | 00002620: 20 20 3B 54 45 4B 45 4E 4B 4C 45 55 52 2E 0D 20 | ;TEKENKLEUR.. | 00002630: 20 20 20 20 20 53 54 41 20 20 30 30 36 34 36 0D | STA 00646.| 00002640: 20 20 20 20 20 20 4C 44 58 20 23 30 30 31 0D 49 | LDX #001.I| 00002650: 4E 4C 4F 32 20 4C 44 41 20 20 56 47 4B 4C 45 2C |NLO2 LDA VGKLE,| 00002660: 58 20 3B 56 4F 4F 52 2D 20 45 4E 20 41 43 48 2D |X ;VOOR- EN ACH-| 00002670: 0D 20 20 20 20 20 20 53 54 41 20 20 35 33 32 38 |. STA 5328| 00002680: 30 2C 58 20 3B 54 45 52 47 52 4F 4E 44 2E 0D 20 |0,X ;TERGROND.. | 00002690: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 000026A0: 20 20 3B 47 52 45 4E 5A 45 4E 20 56 41 4E 0D 20 | ;GRENZEN VAN. | 000026B0: 20 20 20 20 20 4C 44 41 20 20 30 30 36 39 30 2C | LDA 00690,| 000026C0: 58 20 3B 53 50 45 45 4C 56 45 4C 44 2E 0D 20 20 |X ;SPEELVELD.. | 000026D0: 20 20 20 20 41 44 43 20 20 30 30 37 33 30 2C 58 | ADC 00730,X| 000026E0: 20 3B 58 4F 2B 4E 20 4F 46 0D 20 20 20 20 20 20 | ;XO+N OF. | 000026F0: 53 54 41 20 20 30 30 36 39 32 2C 58 20 3B 59 4F |STA 00692,X ;YO| 00002700: 2B 4D 2E 0D 20 20 20 20 20 20 44 45 58 0D 20 20 |+M.. DEX. | 00002710: 20 20 20 20 42 50 4C 20 20 49 4E 4C 4F 32 0D 20 | BPL INLO2. | 00002720: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00002730: 20 3B 41 44 52 45 53 20 56 4F 4F 52 0D 20 20 20 | ;ADRES VOOR. | 00002740: 20 20 20 4C 44 41 20 20 53 41 44 52 4C 20 20 3B | LDA SADRL ;| 00002750: 4C 45 54 54 45 52 20 41 0D 20 20 20 20 20 20 41 |LETTER A. A| 00002760: 44 43 20 23 30 34 32 20 20 20 20 3B 4F 50 20 53 |DC #042 ;OP S| 00002770: 43 48 45 52 4D 0D 20 20 20 20 20 20 53 54 41 20 |CHERM. STA | 00002780: 20 30 30 36 39 36 20 20 3B 49 53 20 28 36 39 37 | 00696 ;IS (697| 00002790: 2C 36 39 36 29 2E 0D 20 20 20 20 20 20 4C 44 41 |,696).. LDA| 000027A0: 20 20 53 41 44 52 48 0D 20 20 20 20 20 20 41 44 | SADRH. AD| 000027B0: 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 |C #000. STA| 000027C0: 20 20 30 30 36 39 37 0D 20 20 20 20 20 20 43 4C | 00697. CL| 000027D0: 43 20 20 20 20 20 20 20 20 20 3B 41 44 52 45 53 |C ;ADRES| 000027E0: 20 56 4F 4F 52 0D 20 20 20 20 20 20 4C 44 41 20 | VOOR. LDA | 000027F0: 20 30 30 36 39 36 20 20 3B 4C 45 54 54 45 52 20 | 00696 ;LETTER | 00002800: 4E 0D 20 20 20 20 20 20 41 44 43 20 23 31 32 30 |N. ADC #120| 00002810: 20 20 20 20 3B 4F 50 20 53 43 48 45 52 4D 0D 20 | ;OP SCHERM. | 00002820: 20 20 20 20 20 53 54 41 20 20 30 30 36 39 38 20 | STA 00698 | 00002830: 20 3B 49 53 20 28 36 39 39 2C 36 39 38 29 2E 0D | ;IS (699,698)..| 00002840: 20 20 20 20 20 20 4C 44 41 20 20 30 30 36 39 37 | LDA 00697| 00002850: 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 30 0D |. ADC #000.| 00002860: 20 20 20 20 20 20 53 54 41 20 20 30 30 36 39 39 | STA 00699| 00002870: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00002880: 20 20 20 3B 41 44 52 45 53 20 56 4F 4F 52 0D 20 | ;ADRES VOOR. | 00002890: 20 20 20 20 20 4C 44 41 20 20 53 41 44 52 4C 20 | LDA SADRL | 000028A0: 20 3B 44 45 52 44 45 20 52 45 47 45 4C 0D 20 20 | ;DERDE REGEL. | 000028B0: 20 20 20 20 41 44 43 20 23 31 32 30 20 20 20 20 | ADC #120 | 000028C0: 3B 4F 50 20 53 43 48 45 52 4D 0D 20 20 20 20 20 |;OP SCHERM. | 000028D0: 20 53 54 41 20 20 53 41 45 52 4C 20 20 3B 49 53 | STA SAERL ;IS| 000028E0: 20 53 41 45 52 2E 2E 2E 2E 0D 20 20 20 20 20 20 | SAER..... | 000028F0: 4C 44 41 20 20 53 41 44 52 48 0D 20 20 20 20 20 |LDA SADRH. | 00002900: 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 | ADC #000. | 00002910: 53 54 41 20 20 53 41 45 52 48 0D 20 20 20 20 20 |STA SAERH. | 00002920: 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 32 | RTS.;. *=2| 00002930: 39 39 31 32 0D 3B 0D 3B 20 20 20 20 20 49 4E 43 |9912.;.; INC| 00002940: 52 45 4D 45 4E 54 20 4C 4F 50 45 52 20 45 4E 20 |REMENT LOPER EN | 00002950: 43 48 45 43 4B 2E 0D 3B 20 20 20 20 20 28 58 29 |CHECK..; (X)| 00002960: 3D 30 3A 20 28 32 34 39 29 3D 58 2E 20 30 2E 2E |=0: (249)=X. 0..| 00002970: 2E 4E 2D 31 2E 0D 3B 20 20 20 20 20 28 58 29 3D |.N-1..; (X)=| 00002980: 31 3A 20 28 32 35 30 29 3D 59 2E 20 30 2E 2E 2E |1: (250)=Y. 0...| 00002990: 4D 2D 31 2E 0D 3B 20 20 20 20 20 4F 56 45 52 4C |M-1..; OVERL| 000029A0: 4F 4F 50 3A 20 28 59 29 3D 31 20 45 4E 20 54 45 |OOP: (Y)=1 EN TE| 000029B0: 56 45 4E 53 0D 3B 20 20 20 20 20 20 20 20 20 20 |VENS.; | 000029C0: 20 20 20 20 20 58 20 4F 46 20 59 20 4F 50 20 4E | X OF Y OP N| 000029D0: 55 4C 2E 0D 3B 0D 4C 49 4E 43 52 20 4C 44 59 20 |UL..;.LINCR LDY | 000029E0: 23 30 30 30 20 20 20 20 20 3B 56 4C 41 47 20 4E |#000 ;VLAG N| 000029F0: 45 45 52 2E 0D 20 20 20 20 20 20 49 4E 43 20 20 |EER.. INC | 00002A00: 32 34 39 2C 58 20 20 20 3B 28 58 29 3D 30 3A 28 |249,X ;(X)=0:(| 00002A10: 32 34 39 29 3D 58 2E 0D 20 20 20 20 20 20 4C 44 |249)=X.. LD| 00002A20: 41 20 20 32 34 39 2C 58 20 20 20 3B 28 58 29 3D |A 249,X ;(X)=| 00002A30: 31 3A 28 32 35 30 29 3D 59 2E 0D 20 20 20 20 20 |1:(250)=Y.. | 00002A40: 20 43 4D 50 20 20 30 30 37 33 30 2C 58 20 3B 20 | CMP 00730,X ; | 00002A50: 45 49 4E 44 20 28 37 33 30 29 3D 4E 2C 0D 20 20 |EIND (730)=N,. | 00002A60: 20 20 20 20 42 43 43 20 20 4C 49 4E 43 31 20 20 | BCC LINC1 | 00002A70: 20 3B 20 20 4F 46 20 20 28 37 33 31 29 3D 4D 2E | ; OF (731)=M.| 00002A80: 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 |. INY | 00002A90: 20 20 20 20 3B 56 4C 41 47 20 4F 50 2E 0D 20 20 | ;VLAG OP.. | 00002AA0: 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 20 | LDA #000 | 00002AB0: 20 3B 4C 4F 50 45 52 0D 20 20 20 20 20 20 53 54 | ;LOPER. ST| 00002AC0: 41 20 20 32 34 39 2C 58 20 20 20 3B 52 4F 4E 44 |A 249,X ;ROND| 00002AD0: 4C 4F 50 45 4E 44 2E 0D 4C 49 4E 43 31 20 52 54 |LOPEND..LINC1 RT| 00002AE0: 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 32 39 39 33 |S.;. *=2993| 00002AF0: 32 0D 3B 0D 3B 20 20 20 20 20 44 45 43 52 45 4D |2.;.; DECREM| 00002B00: 45 4E 54 20 4C 4F 50 45 52 20 45 4E 20 43 48 45 |ENT LOPER EN CHE| 00002B10: 43 4B 2E 0D 3B 20 20 20 20 20 28 58 29 3D 30 3A |CK..; (X)=0:| 00002B20: 20 28 32 34 39 29 3D 58 2E 20 30 2E 2E 2E 4E 2D | (249)=X. 0...N-| 00002B30: 31 2E 0D 3B 20 20 20 20 20 28 58 29 3D 31 3A 20 |1..; (X)=1: | 00002B40: 28 32 35 30 29 3D 59 2E 20 30 2E 2E 2E 4D 2D 31 |(250)=Y. 0...M-1| 00002B50: 2E 0D 3B 20 20 20 20 20 4F 56 45 52 4C 4F 4F 50 |..; OVERLOOP| 00002B60: 3A 20 28 59 29 3D 31 20 45 4E 20 54 45 56 45 4E |: (Y)=1 EN TEVEN| 00002B70: 53 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |S.; | 00002B80: 20 20 58 20 4F 50 20 4E 2D 31 20 4F 46 0D 3B 20 | X OP N-1 OF.; | 00002B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 59 20 | Y | 00002BA0: 4F 50 20 4D 2D 31 2E 0D 3B 0D 4C 44 45 43 52 20 |OP M-1..;.LDECR | 00002BB0: 4C 44 59 20 23 30 30 30 20 20 20 20 20 3B 56 4C |LDY #000 ;VL| 00002BC0: 41 47 20 4E 45 45 52 2E 0D 20 20 20 20 20 20 4C |AG NEER.. L| 00002BD0: 44 41 20 20 32 34 39 2C 58 20 20 20 3B 28 58 29 |DA 249,X ;(X)| 00002BE0: 3D 30 3A 28 32 34 39 29 3D 58 2E 0D 20 20 20 20 |=0:(249)=X.. | 00002BF0: 20 20 42 4E 45 20 20 4C 44 45 43 31 20 20 20 3B | BNE LDEC1 ;| 00002C00: 28 58 29 3D 31 3A 28 32 35 30 29 3D 59 2E 0D 20 |(X)=1:(250)=Y.. | 00002C10: 20 20 20 20 20 4C 44 41 20 20 30 30 37 33 30 2C | LDA 00730,| 00002C20: 58 20 3B 20 45 49 4E 44 20 28 37 33 30 29 3D 4E |X ; EIND (730)=N| 00002C30: 2C 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 39 |,. STA 249| 00002C40: 2C 58 20 20 20 3B 20 20 4F 46 20 20 28 37 33 31 |,X ; OF (731| 00002C50: 29 3D 4D 2E 0D 20 20 20 20 20 20 49 4E 59 20 20 |)=M.. INY | 00002C60: 20 20 20 20 20 20 20 20 3B 56 4C 41 47 20 4F 50 | ;VLAG OP| 00002C70: 2E 0D 4C 44 45 43 31 20 44 45 43 20 20 32 34 39 |..LDEC1 DEC 249| 00002C80: 2C 58 20 20 20 3B 4C 4F 50 45 52 0D 20 20 20 20 |,X ;LOPER. | 00002C90: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 3B | RTS ;| 00002CA0: 52 4F 4E 44 4C 4F 50 45 4E 44 2E 0D 3B 0D 20 20 |RONDLOPEND..;. | 00002CB0: 20 20 20 20 2A 3D 32 39 39 35 32 0D 3B 0D 3B 20 | *=29952.;.; | 00002CC0: 20 20 20 20 4C 4F 50 45 52 20 4F 50 20 53 50 45 | LOPER OP SPE| 00002CD0: 45 4C 56 45 4C 44 20 45 4E 20 54 45 4B 45 4E 0D |ELVELD EN TEKEN.| 00002CE0: 3B 20 20 20 20 20 49 4E 20 30 30 32 20 47 45 5A |; IN 002 GEZ| 00002CF0: 45 54 3B 20 52 45 56 45 52 54 45 52 49 4E 47 2E |ET; REVERTERING.| 00002D00: 0D 3B 0D 49 4E 54 4C 4F 20 4C 44 41 20 20 53 42 |.;.INTLO LDA SB| 00002D10: 44 52 4C 20 20 20 3B 53 50 45 45 4C 56 45 4C 44 |DRL ;SPEELVELD| 00002D20: 41 44 52 45 53 0D 20 20 20 20 20 20 53 54 41 20 |ADRES. STA | 00002D30: 20 32 35 31 20 20 20 20 20 3B 41 4C 53 20 54 45 | 251 ;ALS TE| 00002D40: 52 4D 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 53 |RM.. LDA S| 00002D50: 42 44 52 48 0D 20 20 20 20 20 20 53 54 41 20 20 |BDRH. STA | 00002D60: 32 35 32 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |252. LDA #0| 00002D70: 34 30 20 20 20 20 20 3B 46 41 43 54 4F 52 20 34 |40 ;FACTOR 4| 00002D80: 30 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 |0.. STA 10| 00002D90: 37 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 30 |7. LDA 250| 00002DA0: 20 20 20 20 20 3B 46 41 43 54 4F 52 20 59 2E 0D | ;FACTOR Y..| 00002DB0: 20 20 20 20 20 20 53 54 41 20 20 31 36 37 0D 20 | STA 167. | 00002DC0: 20 20 20 20 20 4A 53 52 20 20 4D 55 4C 4F 50 20 | JSR MULOP | 00002DD0: 20 20 3B 42 45 52 45 4B 45 4E 2E 0D 20 20 20 20 | ;BEREKEN.. | 00002DE0: 20 20 4C 44 59 20 20 32 34 39 20 20 20 20 20 3B | LDY 249 ;| 00002DF0: 54 45 52 4D 20 58 20 41 44 52 45 53 2D 0D 20 20 |TERM X ADRES-. | 00002E00: 20 20 20 20 4C 44 41 20 28 32 35 31 29 2C 59 20 | LDA (251),Y | 00002E10: 20 3B 4D 4F 44 49 46 49 43 41 54 49 45 2E 0D 20 | ;MODIFICATIE.. | 00002E20: 20 20 20 20 20 42 4D 49 20 20 49 4E 54 4C 31 20 | BMI INTL1 | 00002E30: 20 20 3B 42 49 54 20 37 20 3D 20 3F 0D 20 20 20 | ;BIT 7 = ?. | 00002E40: 20 20 20 4F 52 41 20 23 31 32 38 20 20 20 20 20 | ORA #128 | 00002E50: 3B 30 3A 20 5A 45 54 20 4F 50 20 31 2E 0D 20 20 |;0: ZET OP 1.. | 00002E60: 20 20 20 20 42 4D 49 20 20 49 4E 54 4C 32 20 20 | BMI INTL2 | 00002E70: 20 3B 53 4C 41 20 31 20 4F 56 45 52 2E 0D 49 4E | ;SLA 1 OVER..IN| 00002E80: 54 4C 31 20 41 4E 44 20 23 31 32 37 20 20 20 20 |TL1 AND #127 | 00002E90: 20 3B 31 3A 20 5A 45 54 20 4F 50 20 30 2E 0D 49 | ;1: ZET OP 0..I| 00002EA0: 4E 54 4C 32 20 53 54 41 20 28 32 35 31 29 2C 59 |NTL2 STA (251),Y| 00002EB0: 20 20 3B 5A 45 54 20 49 4E 20 56 45 4C 44 2E 0D | ;ZET IN VELD..| 00002EC0: 20 20 20 20 20 20 4A 53 52 20 20 54 4F 45 54 53 | JSR TOETS| 00002ED0: 20 20 20 3B 41 43 43 45 50 54 20 54 4F 45 54 53 | ;ACCEPT TOETS| 00002EE0: 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 31 |.. LDA (251| 00002EF0: 29 2C 59 20 20 3B 52 45 56 45 52 54 2E 54 45 52 |),Y ;REVERT.TER| 00002F00: 55 47 3A 0D 20 20 20 20 20 20 42 4D 49 20 20 49 |UG:. BMI I| 00002F10: 4E 54 4C 33 20 20 20 3B 42 49 54 20 37 20 3D 20 |NTL3 ;BIT 7 = | 00002F20: 3F 0D 20 20 20 20 20 20 4F 52 41 20 23 31 32 38 |?. ORA #128| 00002F30: 20 20 20 20 20 3B 30 3A 20 5A 45 54 20 4F 50 20 | ;0: ZET OP | 00002F40: 31 2E 0D 20 20 20 20 20 20 42 4D 49 20 20 49 4E |1.. BMI IN| 00002F50: 54 4C 34 20 20 20 3B 53 4C 41 20 31 20 4F 56 45 |TL4 ;SLA 1 OVE| 00002F60: 52 2E 0D 49 4E 54 4C 33 20 41 4E 44 20 23 31 32 |R..INTL3 AND #12| 00002F70: 37 20 20 20 20 20 3B 31 3A 20 5A 45 54 20 4F 50 |7 ;1: ZET OP| 00002F80: 20 30 2E 0D 49 4E 54 4C 34 20 53 54 41 20 28 32 | 0..INTL4 STA (2| 00002F90: 35 31 29 2C 59 20 20 3B 5A 45 54 20 49 4E 20 56 |51),Y ;ZET IN V| 00002FA0: 45 4C 44 2E 0D 20 20 20 20 20 20 52 54 53 0D 3B |ELD.. RTS.;| 00002FB0: 0D 20 20 20 20 20 20 2A 3D 33 30 30 31 36 0D 3B |. *=30016.;| 00002FC0: 0D 3B 20 20 20 20 20 54 4F 45 54 53 20 41 43 43 |.; TOETS ACC| 00002FD0: 45 50 54 20 45 4E 20 4E 41 41 52 20 30 30 32 2E |EPT EN NAAR 002.| 00002FE0: 0D 3B 0D 54 4F 45 54 53 20 54 59 41 20 20 20 20 |.;.TOETS TYA | 00002FF0: 20 20 20 20 20 3B 52 45 44 20 28 59 29 2E 0D 20 | ;RED (Y).. | 00003000: 20 20 20 20 20 50 48 41 0D 54 4F 45 54 31 20 4C | PHA.TOET1 L| 00003010: 44 41 20 20 31 39 37 20 20 20 20 3B 57 45 4C 2F |DA 197 ;WEL/| 00003020: 4E 49 45 54 3F 0D 20 20 20 20 20 20 43 4D 50 20 |NIET?. CMP | 00003030: 23 30 36 34 0D 20 20 20 20 20 20 42 45 51 20 20 |#064. BEQ | 00003040: 54 4F 45 54 31 0D 54 4F 45 54 32 20 4A 53 52 20 |TOET1.TOET2 JSR | 00003050: 20 36 35 35 30 38 20 20 3B 4A 41 3A 4E 45 45 4D | 65508 ;JA:NEEM| 00003060: 20 4F 50 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 | OP.. CMP #| 00003070: 30 30 30 20 20 20 20 3B 4C 4F 4F 53 3F 0D 20 20 |000 ;LOOS?. | 00003080: 20 20 20 20 42 45 51 20 20 54 4F 45 54 32 20 20 | BEQ TOET2 | 00003090: 3B 4A 41 3A 54 45 52 55 47 2E 0D 20 20 20 20 20 |;JA:TERUG.. | 000030A0: 20 53 54 41 20 20 30 30 32 20 20 20 20 3B 4E 45 | STA 002 ;NE| 000030B0: 45 4E 3A 49 4E 20 30 30 32 2E 0D 54 4F 45 54 33 |EN:IN 002..TOET3| 000030C0: 20 4C 44 41 20 20 31 39 37 20 20 20 20 3B 4C 4F | LDA 197 ;LO| 000030D0: 53 3F 0D 20 20 20 20 20 20 43 4D 50 20 23 30 36 |S?. CMP #06| 000030E0: 34 20 20 20 20 3B 4E 45 45 3A 54 45 52 55 47 2E |4 ;NEE:TERUG.| 000030F0: 0D 20 20 20 20 20 20 42 4E 45 20 20 54 4F 45 54 |. BNE TOET| 00003100: 33 20 20 3B 4A 41 3A 48 45 52 53 54 45 4C 20 28 |3 ;JA:HERSTEL (| 00003110: 59 29 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 |Y). PLA | 00003120: 20 20 20 20 20 3B 45 4E 20 4E 41 41 52 20 48 2E | ;EN NAAR H.| 00003130: 50 2E 0D 20 20 20 20 20 20 54 41 59 0D 20 20 20 |P.. TAY. | 00003140: 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A | RTS.;. *| 00003150: 3D 33 30 30 34 38 0D 3B 0D 3B 20 20 20 20 20 43 |=30048.;.; C| 00003160: 48 45 43 4B 20 4F 50 20 4C 4F 50 45 52 20 45 4E |HECK OP LOPER EN| 00003170: 20 4F 50 20 27 48 4F 4D 45 27 2E 0D 3B 20 20 20 | OP 'HOME'..; | 00003180: 20 20 54 45 4B 45 4E 20 49 4E 20 30 30 32 2E 0D | TEKEN IN 002..| 00003190: 3B 20 20 20 20 20 28 59 29 3D 30 3A 4C 4F 50 45 |; (Y)=0:LOPE| 000031A0: 52 2E 0D 3B 20 20 20 20 20 28 59 29 3D 31 3A 4F |R..; (Y)=1:O| 000031B0: 56 45 52 4C 4F 4F 50 2E 0D 3B 20 20 20 20 20 28 |VERLOOP..; (| 000031C0: 59 29 3D 32 3A 54 45 4B 45 4E 2E 0D 3B 0D 4C 4F |Y)=2:TEKEN..;.LO| 000031D0: 50 45 52 20 4C 44 58 20 20 30 30 32 20 20 20 20 |PER LDX 002 | 000031E0: 3B 54 45 4B 45 4E 20 49 4E 20 58 2E 0D 20 20 20 |;TEKEN IN X.. | 000031F0: 20 20 20 43 50 58 20 23 30 31 39 20 20 20 20 3B | CPX #019 ;| 00003200: 27 48 4F 4D 45 27 3F 0D 20 20 20 20 20 20 42 4E |'HOME'?. BN| 00003210: 45 20 20 4C 4F 50 45 31 20 20 3B 4E 45 45 4E 3A |E LOPE1 ;NEEN:| 00003220: 44 4F 4F 52 47 41 41 4E 2E 0D 3B 0D 4C 49 4B 42 |DOORGAAN..;.LIKB| 00003230: 56 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 4A |V LDY #000 ;J| 00003240: 41 3A 4C 49 4E 4B 53 42 4F 56 45 4E 0D 20 20 20 |A:LINKSBOVEN. | 00003250: 20 20 20 53 54 59 20 20 32 34 39 20 20 20 20 3B | STY 249 ;| 00003260: 49 4E 20 53 50 45 45 4C 56 45 4C 44 2E 0D 20 20 |IN SPEELVELD.. | 00003270: 20 20 20 20 53 54 59 20 20 32 35 30 20 20 20 20 | STY 250 | 00003280: 3B 54 45 56 45 4E 53 20 56 4C 41 47 0D 20 20 20 |;TEVENS VLAG. | 00003290: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B | RTS ;| 000032A0: 4E 45 45 52 2E 0D 4C 4F 50 45 31 20 43 50 58 20 |NEER..LOPE1 CPX | 000032B0: 23 30 32 39 20 20 20 20 3B 4E 41 41 52 20 52 45 |#029 ;NAAR RE| 000032C0: 43 48 54 53 3F 0D 20 20 20 20 20 20 42 4E 45 20 |CHTS?. BNE | 000032D0: 20 4C 4F 50 45 32 20 20 3B 4E 45 45 4E 3A 44 4F | LOPE2 ;NEEN:DO| 000032E0: 4F 52 47 41 41 4E 2E 0D 20 20 20 20 20 20 4C 44 |ORGAAN.. LD| 000032F0: 58 20 23 30 30 30 20 20 20 20 3B 4A 41 3A 49 4E |X #000 ;JA:IN| 00003300: 43 52 2E 58 2E 0D 20 20 20 20 20 20 4A 53 52 20 |CR.X.. JSR | 00003310: 20 4C 49 4E 43 52 0D 20 20 20 20 20 20 52 54 53 | LINCR. RTS| 00003320: 0D 4C 4F 50 45 32 20 43 50 58 20 23 31 35 37 20 |.LOPE2 CPX #157 | 00003330: 20 20 20 3B 4E 41 41 52 20 4C 49 4E 4B 53 3F 0D | ;NAAR LINKS?.| 00003340: 20 20 20 20 20 20 42 4E 45 20 20 4C 4F 50 45 33 | BNE LOPE3| 00003350: 20 20 3B 4E 45 45 4E 3A 44 4F 4F 52 47 41 41 4E | ;NEEN:DOORGAAN| 00003360: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 |.. LDX #000| 00003370: 20 20 20 20 3B 4A 41 3A 44 45 43 52 2E 58 2E 0D | ;JA:DECR.X..| 00003380: 20 20 20 20 20 20 4A 53 52 20 20 4C 44 45 43 52 | JSR LDECR| 00003390: 0D 20 20 20 20 20 20 52 54 53 0D 4C 4F 50 45 33 |. RTS.LOPE3| 000033A0: 20 43 50 58 20 23 31 34 35 20 20 20 20 3B 4E 41 | CPX #145 ;NA| 000033B0: 41 52 20 42 4F 56 45 4E 3F 0D 20 20 20 20 20 20 |AR BOVEN?. | 000033C0: 42 4E 45 20 20 4C 4F 50 45 34 20 20 3B 4E 45 45 |BNE LOPE4 ;NEE| 000033D0: 4E 3A 44 4F 4F 52 47 41 41 4E 2E 0D 20 20 20 20 |N:DOORGAAN.. | 000033E0: 20 20 4C 44 58 20 23 30 30 31 20 20 20 20 3B 4A | LDX #001 ;J| 000033F0: 41 3A 44 45 43 52 2E 59 2E 0D 20 20 20 20 20 20 |A:DECR.Y.. | 00003400: 4A 53 52 20 20 4C 44 45 43 52 0D 20 20 20 20 20 |JSR LDECR. | 00003410: 20 52 54 53 0D 4C 4F 50 45 34 20 43 50 58 20 23 | RTS.LOPE4 CPX #| 00003420: 30 31 37 20 20 20 20 3B 4E 41 41 52 20 42 45 4E |017 ;NAAR BEN| 00003430: 45 44 45 4E 3F 0D 20 20 20 20 20 20 42 4E 45 20 |EDEN?. BNE | 00003440: 20 4C 4F 50 45 35 20 20 3B 4E 45 45 4E 3A 44 4F | LOPE5 ;NEEN:DO| 00003450: 4F 52 47 41 41 4E 2E 0D 20 20 20 20 20 20 4C 44 |ORGAAN.. LD| 00003460: 58 20 23 30 30 31 20 20 20 20 3B 4A 41 3A 49 4E |X #001 ;JA:IN| 00003470: 43 52 2E 59 2E 0D 20 20 20 20 20 20 4A 53 52 20 |CR.Y.. JSR | 00003480: 20 4C 49 4E 43 52 0D 20 20 20 20 20 20 52 54 53 | LINCR. RTS| 00003490: 0D 4C 4F 50 45 35 20 4C 44 59 20 23 30 30 32 20 |.LOPE5 LDY #002 | 000034A0: 20 20 20 3B 47 45 45 4E 20 4C 4F 50 45 52 3A 0D | ;GEEN LOPER:.| 000034B0: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 000034C0: 20 20 3B 56 4C 41 47 20 4F 50 20 32 2E 0D 3B 0D | ;VLAG OP 2..;.| 000034D0: 20 20 20 20 20 20 2A 3D 33 30 31 30 34 0D 3B 0D | *=30104.;.| 000034E0: 3B 20 20 20 20 20 4B 4C 45 55 52 20 56 41 4E 20 |; KLEUR VAN | 000034F0: 53 50 45 45 4C 56 45 4C 44 2E 0D 3B 0D 4B 4C 45 |SPEELVELD..;.KLE| 00003500: 53 50 20 4C 44 41 20 20 54 43 4F 4B 4C 20 20 3B |SP LDA TCOKL ;| 00003510: 4B 4C 45 55 52 20 56 55 4C 4C 45 4E 2E 0D 20 20 |KLEUR VULLEN.. | 00003520: 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 | STA 251. | 00003530: 20 20 20 4C 44 41 20 20 30 30 37 33 31 20 20 3B | LDA 00731 ;| 00003540: 4D 20 42 4C 4F 4B 4B 45 4E 0D 20 20 20 20 20 20 |M BLOKKEN. | 00003550: 53 54 41 20 20 30 33 33 20 20 20 20 3B 40 20 4E |STA 033 ;@ N| 00003560: 20 42 59 54 45 53 2E 0D 20 20 20 20 20 20 4C 44 | BYTES.. LD| 00003570: 41 20 20 30 30 37 33 30 0D 20 20 20 20 20 20 53 |A 00730. S| 00003580: 54 41 20 20 30 33 34 0D 20 20 20 20 20 20 4C 44 |TA 034. LD| 00003590: 58 20 23 30 31 30 20 20 20 20 3B 4B 4C 45 55 52 |X #010 ;KLEUR| 000035A0: 20 53 50 45 45 4C 56 2E 0D 20 20 20 20 20 20 4A | SPEELV.. J| 000035B0: 53 52 20 20 4D 45 42 4C 4F 20 20 3B 42 45 47 49 |SR MEBLO ;BEGI| 000035C0: 4E 41 44 52 45 53 2E 0D 20 20 20 20 20 20 52 54 |NADRES.. RT| 000035D0: 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 33 30 31 32 |S.;. *=3012| 000035E0: 38 0D 3B 0D 3B 20 20 20 20 20 53 54 49 50 50 45 |8.;.; STIPPE| 000035F0: 4E 20 49 4E 20 53 50 45 45 4C 56 45 4C 44 2E 0D |N IN SPEELVELD..| 00003600: 3B 0D 53 54 49 50 53 20 4C 44 41 20 23 30 34 36 |;.STIPS LDA #046| 00003610: 20 20 20 20 3B 53 54 49 50 20 41 53 43 49 49 2E | ;STIP ASCII.| 00003620: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D |. STA 251.| 00003630: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 33 31 | LDA 00731| 00003640: 20 20 3B 4D 20 42 4C 4F 4B 4B 45 4E 0D 20 20 20 | ;M BLOKKEN. | 00003650: 20 20 20 53 54 41 20 20 30 33 33 20 20 20 20 3B | STA 033 ;| 00003660: 40 20 4E 20 42 59 54 45 53 2E 0D 20 20 20 20 20 |@ N BYTES.. | 00003670: 20 4C 44 41 20 20 30 30 37 33 30 0D 20 20 20 20 | LDA 00730. | 00003680: 20 20 53 54 41 20 20 30 33 34 0D 20 20 20 20 20 | STA 034. | 00003690: 20 4C 44 58 20 23 30 30 34 20 20 20 20 3B 53 50 | LDX #004 ;SP| 000036A0: 45 45 4C 56 45 4C 44 0D 20 20 20 20 20 20 4A 53 |EELVELD. JS| 000036B0: 52 20 20 4D 45 42 4C 4F 20 20 3B 42 45 47 49 4E |R MEBLO ;BEGIN| 000036C0: 2E 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 3B 20 |.. RTS.;.; | 000036D0: 20 20 20 20 2A 3D 33 30 31 34 38 0D 3B 0D 20 20 | *=30148.;. | 000036E0: 20 20 20 20 2E 44 42 59 54 45 20 24 46 46 46 46 | .DBYTE $FFFF| 000036F0: 2C 24 46 46 46 46 0D 20 20 20 20 20 20 2E 44 42 |,$FFFF. .DB| 00003700: 59 54 45 20 24 46 46 46 46 2C 24 46 46 46 46 0D |YTE $FFFF,$FFFF.| 00003710: 3B 0D 20 20 20 20 20 20 4B 47 4B 4C 45 3D 33 31 |;. KGKLE=31| 00003720: 36 30 30 20 3B 4B 4C 45 55 52 47 45 48 45 55 47 |600 ;KLEURGEHEUG| 00003730: 45 4E 2E 0D 20 20 20 20 20 20 56 47 4B 4C 45 3D |EN.. VGKLE=| 00003740: 33 31 36 30 31 20 3B 4B 4C 45 55 52 20 56 4F 4F |31601 ;KLEUR VOO| 00003750: 52 47 52 44 2E 0D 20 20 20 20 20 20 41 47 4B 4C |RGRD.. AGKL| 00003760: 45 3D 33 31 36 30 32 20 3B 4B 4C 45 55 52 20 41 |E=31602 ;KLEUR A| 00003770: 43 48 54 2E 47 44 2E 0D 20 20 20 20 20 20 54 45 |CHT.GD.. TE| 00003780: 4B 4B 4C 3D 33 31 36 30 33 20 3B 4B 4C 45 55 52 |KKL=31603 ;KLEUR| 00003790: 20 54 45 4B 45 4E 53 2E 0D 20 20 20 20 20 20 54 | TEKENS.. T| 000037A0: 43 4F 4B 4C 3D 33 31 36 30 34 20 3B 4B 4C 45 55 |COKL=31604 ;KLEU| 000037B0: 52 20 42 45 47 49 4E 2E 0D 20 20 20 20 20 20 54 |R BEGIN.. T| 000037C0: 43 41 4B 4C 3D 33 31 36 30 35 20 3B 4B 4C 45 55 |CAKL=31605 ;KLEU| 000037D0: 52 20 43 4F 44 45 2E 0D 20 20 20 20 20 20 54 43 |R CODE.. TC| 000037E0: 42 4B 4C 3D 33 31 36 30 36 20 3B 4B 4C 45 55 52 |BKL=31606 ;KLEUR| 000037F0: 20 43 4F 44 45 2F 43 4F 4D 2E 0D 3B 0D 20 20 20 | CODE/COM..;. | 00003800: 20 20 20 53 41 44 52 4C 3D 33 31 36 30 37 20 3B | SADRL=31607 ;| 00003810: 53 43 48 45 52 4D 56 45 4C 44 0D 20 20 20 20 20 |SCHERMVELD. | 00003820: 20 53 41 44 52 48 3D 33 31 36 30 38 20 3B 42 45 | SADRH=31608 ;BE| 00003830: 47 49 4E 41 44 52 45 53 2E 0D 20 20 20 20 20 20 |GINADRES.. | 00003840: 53 41 45 52 4C 3D 33 31 36 30 39 0D 20 20 20 20 |SAERL=31609. | 00003850: 20 20 53 41 45 52 48 3D 33 31 36 31 30 0D 3B 0D | SAERH=31610.;.| 00003860: 20 20 20 20 20 20 53 42 44 52 4C 3D 33 31 36 31 | SBDRL=3161| 00003870: 31 20 3B 53 50 45 45 4C 56 45 4C 44 0D 20 20 20 |1 ;SPEELVELD. | 00003880: 20 20 20 53 42 44 52 48 3D 33 31 36 31 32 20 3B | SBDRH=31612 ;| 00003890: 42 45 47 49 4E 41 44 52 45 53 2E 0D 3B 0D 20 20 |BEGINADRES..;. | 000038A0: 20 20 20 20 53 4B 44 52 4C 3D 33 31 36 31 33 20 | SKDRL=31613 | 000038B0: 3B 4B 4C 45 55 52 56 45 4C 44 0D 20 20 20 20 20 |;KLEURVELD. | 000038C0: 20 53 4B 44 52 48 3D 33 31 36 31 34 20 3B 42 45 | SKDRH=31614 ;BE| 000038D0: 47 49 4E 41 44 52 45 53 2E 0D 3B 0D 20 20 20 20 |GINADRES..;. | 000038E0: 20 20 53 49 44 52 4C 3D 33 31 36 31 35 20 3B 49 | SIDRL=31615 ;I| 000038F0: 4E 44 45 58 56 45 4C 44 0D 20 20 20 20 20 20 53 |NDEXVELD. S| 00003900: 49 44 52 48 3D 33 31 36 31 36 20 3B 42 45 47 49 |IDRH=31616 ;BEGI| 00003910: 4E 41 44 52 45 53 2E 0D 3B 0D 20 20 20 20 20 20 |NADRES..;. | 00003920: 53 4C 44 52 4C 3D 33 31 36 31 37 20 3B 4B 4C 45 |SLDRL=31617 ;KLE| 00003930: 55 52 53 50 45 45 4C 56 45 4C 44 0D 20 20 20 20 |URSPEELVELD. | 00003940: 20 20 53 4C 44 52 48 3D 33 31 36 31 38 20 3B 42 | SLDRH=31618 ;B| 00003950: 45 47 49 4E 41 44 52 45 53 2E 0D 3B 0D 20 20 20 |EGINADRES..;. | 00003960: 20 20 20 42 4B 44 52 4C 3D 33 31 36 31 39 20 3B | BKDRL=31619 ;| 00003970: 56 49 43 2D 43 48 49 50 20 42 41 4E 4B 0D 20 20 |VIC-CHIP BANK. | 00003980: 20 20 20 20 42 4B 44 52 48 3D 33 31 36 32 30 20 | BKDRH=31620 | 00003990: 3B 42 45 47 49 4E 41 44 52 45 53 2E 0D 3B 0D 20 |;BEGINADRES..;. | 000039A0: 20 20 20 20 20 4B 52 4F 4D 4C 3D 33 31 36 32 31 | KROML=31621| 000039B0: 20 3B 4B 41 52 41 4B 54 45 52 2D 52 4F 4D 0D 20 | ;KARAKTER-ROM. | 000039C0: 20 20 20 20 20 4B 52 4F 4D 48 3D 33 31 36 32 32 | KROMH=31622| 000039D0: 20 3B 42 45 47 49 4E 41 44 52 45 53 2E 0D 3B 0D | ;BEGINADRES..;.| 000039E0: 20 20 20 20 20 20 42 4B 41 52 4C 3D 33 31 36 32 | BKARL=3162| 000039F0: 33 20 3B 4B 41 52 41 4B 54 45 52 2D 52 41 4D 0D |3 ;KARAKTER-RAM.| 00003A00: 20 20 20 20 20 20 42 4B 41 52 48 3D 33 31 36 32 | BKARH=3162| 00003A10: 34 20 3B 42 45 47 49 4E 41 44 52 45 53 2E 0D 3B |4 ;BEGINADRES..;| 00003A20: 0D 20 20 20 20 20 20 42 4B 43 52 4C 3D 33 31 36 |. BKCRL=316| 00003A30: 32 35 20 3B 4B 41 52 41 4B 54 45 52 2D 52 41 4D |25 ;KARAKTER-RAM| 00003A40: 0D 20 20 20 20 20 20 42 4B 43 52 48 3D 33 31 36 |. BKCRH=316| 00003A50: 32 36 20 3B 42 45 47 49 4E 41 44 52 45 53 2E 0D |26 ;BEGINADRES..| 00003A60: 3B 0D 20 20 20 20 20 20 4B 41 52 4B 4C 3D 33 31 |;. KARKL=31| 00003A70: 36 32 37 20 3B 4B 41 52 41 4B 54 45 52 44 41 54 |627 ;KARAKTERDAT| 00003A80: 41 0D 20 20 20 20 20 20 4B 41 52 4B 48 3D 33 31 |A. KARKH=31| 00003A90: 36 32 38 20 3B 42 45 47 49 4E 41 44 52 45 53 2E |628 ;BEGINADRES.| 00003AA0: 0D 3B 0D 3B 0D 3B 0D 20 20 20 20 20 20 42 4C 54 |.;.;.;. BLT| 00003AB0: 52 41 3D 33 30 37 32 30 20 3B 42 4C 4F 4B 54 52 |RA=30720 ;BLOKTR| 00003AC0: 41 4E 53 50 4F 52 54 2E 0D 20 20 20 20 20 20 42 |ANSPORT.. B| 00003AD0: 4C 56 55 4C 3D 33 30 37 36 38 20 3B 42 4C 4F 4B |LVUL=30768 ;BLOK| 00003AE0: 56 55 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 4D 55 |VULLEN.. MU| 00003AF0: 4C 4F 50 3D 33 30 38 30 34 20 3B 56 45 52 4D 45 |LOP=30804 ;VERME| 00003B00: 4E 2E 56 2E 4D 2F 4F 50 54 2E 0D 20 20 20 20 20 |N.V.M/OPT.. | 00003B10: 20 44 45 43 58 59 3D 33 30 38 34 38 20 3B 44 45 | DECXY=30848 ;DE| 00003B20: 43 4F 4E 56 45 52 53 49 45 2E 0D 20 20 20 20 20 |CONVERSIE.. | 00003B30: 20 4D 45 42 4C 4F 3D 33 31 33 38 38 20 3B 52 45 | MEBLO=31388 ;RE| 00003B40: 47 45 4C 56 55 4C 2E 0D 3B 0D 20 20 20 20 20 20 |GELVUL..;. | 00003B50: 2E 45 4E 44 0D |.END. |
;.; PROGRAMMA : HULP SET EEN ..; BRON
CODE : PUZEEN.ASM ..; OBJECTCODE
: PUZEEN.OBJ ..; DISK : ASSEM
BLERBRON..; TAAL : ASSEMBLER C64
..; DATUM : 18 AUG. 1991..; PROGR
AMMEUR : J.H.VAN RIJN..;.; OP DEZE SET
STAAN SUBPROGRAMMA'S.; VOOR CODEPUZZELS.
.;.;=================================.;.
; DECIM HEXA SYMBL FUNCTIE.;.; 29184 720
0 BIDEC DECONVERSIE UIT.;
TWEE BYTES..; 29328 7290 DIRLE OPEN D
ISK LEZEN.; DIRECTORY..
; 29368 72B8 SEQLE OPEN DISK LEZEN.;
SEQU.BESTAND..; 29420 72EC
SEQSV OPEN DISK UIT-.;
GAAF SEQ.BEST..; 29412 72E4 SLUIT SLUIT
EN VAN.; DISKBESTAND..;
29500 733C DRUKS PRINT SCHERM OP.;
PRINTER UIT..; 29772 744C I
NLOP ZET VELDEN EN.; VA
RIABELEN..; 29912 74D8 LINCR LOPER INCRE
M..; OP (X)..; 29932 74
EC LDECR LOPER DECREM..;
OP (X)..; 29952 7500 INTLO SPEELVELD L
OPER.; MET TEKEN UIT..;
30016 7540 TOETS ACCEPT TOETS..;
ASCII IN 002..; 30048 7560 LO
PER TEKEN OP LOPER.; OF
OP 'HOME'..; 30054 7566 LIKBV ZET LOPER
.; OP 'HOME'..; 30104 7
598 KLESP VUL SPEELVELD.;
M/KLEUR TCOKL..; 30128 75B0 STIPS VUL
SPEELVELD.; MET STIPPE
N..;.;.; INTERN..; =======.;
.; 29482 732A XTRAK EXTRA KOMMA.;
NA ELEMENT..; 29484 732C XTRA
X EXTRA TEKEN (X).; NA
ELEMENT..; 29696 7400 LAXY (A),(X),(Y).
; NAAR OUTPUT..; 29701
7405 LXY (X),(Y).; NA
AR OUTPUT..; 29716 7414 ROPU TRANSPOSE
EN.; OUTPUT TEKEN..;.;.
;. *=29184.;.; DECONVERSIE BINAIR T
WEE BYTES.; NAAR DECIMAAL..; (252,251)=T
E DECONV.GETAL..; (254,253)=BEGINADRES M
.S.OUTP..;.BIDEC TYA ;RED (Y)..
PHA. LDA 251 ;INPUTGETAL
. STA 038 ;NAAR REST.. LD
A 252. STA 039. LDA #000.
STA 040. LDY #004 ;UITGANGS
-. LDA #048 ;CELLEN MET.BIDE1 S
TA (253),Y ;NULLEN.. DEY. BPL
BIDE1. LDY #000 ;N/VERGELIJK.
. BEQ BIDE3.BIDE2 SEC ;TR
EK 10000. LDA 038 ;AF VAN REST
.. SBC #016. STA 038. LD
A 039. SBC #039. STA 039.
LDA 040. SBC #000. STA 04
0. CLC ;TEL 1 OP BIJ.
LDA (253),Y ;M-DE CIJFER.. ADC #0
01. STA (253),Y.BIDE3 LDA 040
;VERGELIJKEN. CMP #000 ;REST ME
T. BCC BIDE4 ;10000.. BNE
BIDE2 ;>10000.. LDA 039. CM
P #039. BCC BIDE4. BNE BIDE2
. LDA 038. CMP #016. BCS
BIDE2.BIDE4 LDA 040 ;REST NUL..
BNE BIDE5. LDA 039. BNE
BIDE5. LDA 038. BEQ BIDE6.B
IDE5 CLC ;REST * 10.. ROL
038. ROL 039. ROL 040.
LDA 039. STA 041. LDA 040.
STA 042. LDA 038. CLC.
ROL A. ROL 041. ROL 0
42. ROL A. ROL 041. ROL
042. CLC. ADC 038. STA
038. LDA 041. ADC 039.
STA 039. LDA 042. ADC 040
. STA 040. INY. CLC.
BCC BIDE3.BIDE6 PLA ;HERSTEL
(Y).. TAY. RTS.;. *=2932
8.;.; OPEN DISK OP LEZEN DIRECTORY..;.DI
RLE LDA #005 ;FILE #5.. LDX #008
;DISK=8.. LDY #000 ;SEC.ADRE
S 0.. JSR 65466 ;** SETLFS **.
LDA #036 ;'$'.. STA 252.
LDX #252. LDY #000. LDA #001
. JSR 65469 ;** SETNAM **. J
SR 65472 ;** OPEN **. LDX #005
;FILE #5.. JSR 65478 ;** CHKIN
**. RTS.;. *=29368.;.; OPEN
DISK OP LEZEN SEQ.FILE..; (252,251) ADRE
S NAAMLENGTE..;.SEQLE LDA #005 ;FILE
#5.. LDX #008 ;DISK=8.. LDY
#003 ;SEC.ADRES 3.. JSR 65466
;** SETLFS **. JSR XTRAK. LD
X #083 ;'S'.. JSR XTRAX. J
SR XTRAK. LDX #082 ;'R'..
JSR XTRAX. PHA ;LENGTE..
CLC ;ADRES + 1. LDA 25
1 ;IN (Y,X).. ADC #001. TAX
. LDA 252. ADC #000. TAY
. PLA. JSR 65469 ;** SETNAM
**. JSR 65472 ;** OPEN **.
LDX #005 ;FILE #5.. JSR 65478
;** CHKIN **. RTS.;. *=29420
.;.; OPEN DISK OP SCHIJVEN SEQ.FILE..; (
252,251) ADRES NAAMLENGTE..;.SEQSV LDA #
005 ;FILE #5.. LDX #008 ;DISK
=8.. LDY #003 ;SEC.ADRES 3..
JSR 65466 ;** SETLFS **. JSR X
TRAK. LDX #083 ;'S'.. JSR
XTRAX. JSR XTRAK. LDX #087
;'W'.. JSR XTRAX. PHA
;LENGTE.. CLC ;ADRES + 1.
LDA 251 ;IN (Y,X).. ADC #
001. TAX. LDA 252. ADC #
000. TAY. PLA. JSR 65469
;** SETNAM **. JSR 65472 ;** O
PEN **. LDX #005 ;FILE #5..
JSR 65481 ;** CHKOUT **. RTS.;.
*=29472.;.; SLUIT DISK..;.SLUIT LD
A #005 ;FILE #5.. JSR 65475 ;*
* CLOSE **. JSR 65511 ;** CLALL
**. RTS.;. *=29482.;.; TEKEN
KOMMA ACHTER DE NAAM..; TEKEN (X) ACHTER
DE NAAM..; NAAMELEMENT ALS VOLGT:.;.; (
A0+0)(A0+1)(A0+2)...(A0+L).; L TK.1
TK.2 ... TK.L.;.XTRAK LDX #044 ;KOM
MA..;.XTRAX LDY #000 ;LENGTE L..
LDA (251),Y ;A0=(252,251).. TAY
;LENGTE=POS.. TXA ;PL
AATS TEKEN. INY ;ACHTERAAN.
. STA (251),Y ;LENGTE + 1.. TY
A. LDY #000. STA (251),Y ;ZET
IN A0+0.. RTS.;. *=29500.;.; D
RUK OP PRINTER STAR SG-10.; DE PUZZEL VA
NAF HET SCHERM..; MS.ADRES SCHERM BEGIN
OP 00648..; MS.ADRES KARAKTERS VANAF 006
81..;.DRUKS LDA #001 ;FILE #1..
LDX #004 ;DRUK=4.. LDY #000 ;
SEC.ADRES 0.. JSR 65466 ;** SETLF
S **. LDA #000 ;NAAMLOOS..
JSR 65469 ;** SETNAM **. JSR 654
72 ;** OPEN **. LDX #001 ;FIL
E #1.. JSR 65481 ;** CHKOUT **.
LDA #024 ;BUFFER LEEG.. JSR
65490 ;** CHROUT **. LDA #027
;REGEL 8/72 IN.. LDX #065 ;VERTI
CAAL AL. LDY #008 ;OP 72 STIP/IN
.. JSR LAXY ;ZET ESC-RIJ..
LDX #085 ;PRINT IN. LDY #001
;EEN RICHTING.. JSR LAXY ;BEGINA
DRES VAN. LDA 00681 ;KARAKTERBLOK
. STA 254 ;IN (254,253)..
LDA #000. STA 253. LDA 00648
;SCHERMGEHEUGEN. STA 168 ;IN
(168,167).. LDA #000. STA 167
. LDA #024 ;REGELAFTELLER.
STA 248 ;24-00 IN 248..DRUK1 LDY #00
0 ;ZOEK BEGIN VAN.DRUK2 LDA (167),Y ;
NIETBLANK DEEL. CMP #032 ;VAN RE
GEL.. BNE DRUK3. INY. CP
Y #040. BCC DRUK2. BCS DRUK6
;REGEL LEEG..DRUK3 STY 170 ;POS.1E
NIETBLK.. LDY #040 ;BREEDTE..DR
UK4 DEY ;AF REGELEIND. LDA
(167),Y ;ZOEK NIETBLANK.. CMP #032.
BEQ DRUK4. INY ;EEN
N.RECHTS.. STY 171. SEC
;BEPAAL AANTAL. TYA ;NIE
TBL.TEKENS.. SBC 170. STA 25
1. CLC ;AANTAL * 8.. L
DA #000. ROL 251. ROL A.
ROL 251. ROL A. ROL 251.
ROL A. STA 252. LDA 17
0. ADC #020 ;BEGINMARGE.. T
AY ;SOM IN Y.. LDA #027.
LDX #077. JSR LAXY. LDX #1
03 ;PRINTER GRAF.. LDY #004 ;
OP 80 STIP/IN.. JSR LAXY. LDX
251 ;AANTAL LAAG.. LDY 252
;AANTAL HOOG.. JSR LXY. LDY
170 ;BEGINPOS..DRUK5 STY 169 ;IN
169.. LDA (167),Y ;CODEINDEX..
JSR ROPU ;PRINT TEKEN.. LDY 1
69 ;VOLGENDE POS.. INY. CPY
171 ;EIND?. BCC DRUK5.DRUK6 L
DA #010 ;REGELVERZET.. JSR 6549
0 ;** CHROUT **. CLC ;SCHE
RMADRES. LDA #040 ;MET 40..
ADC 167. STA 167. LDA #000.
ADC 168. STA 168. DEC
248 ;REGELAFTEL.. BPL DRUK1.
LDX #027 ;HERZET PRINTER.. L
DY #064. JSR LXY. LDA #001
;FILE #1.. JSR 65475 ;** CLOSE
**. JSR 65511 ;** CLALL **.
RTS.;. *=29696.;.LAXY STA 002
;RED (A).. JSR 65490 ; (A) UIT..
;.LXY TXA ; (X) UIT.. JSR
65490. TYA ; (Y) UIT..
JSR 65490. LDA 002 ;HERSTEL
(A).. RTS.;. *=29716.;.ROPU
STA 002 ;CODE (A)->(2).. CLC
; * 8 ->(A)(2).. LDA #000.
ROL 002. ROL A. ROL 002.
ROL A. ROL 002. ROL A
. TAX. LDA 002 ;ADRES VAN.
ADC 253 ;KARAKTER-RAM. ST
A 249 ;ERBIJ EN IN. TXA
;(250,249).. ADC 254. STA 2
50. LDY #007 ;TRANSPORT NAAR.ROP
1 LDA (249),Y ;(820)...(827).. STA
00820,Y. DEY. BPL ROP1.
LDY #007 ;TRANSPOSITIE.ROP2 LDX #0
07 ;EN OUTPUT..ROP3 ROL 00820,X.
ROR A. DEX. BPL ROP3.
JSR 65490. DEY. BPL ROP2.
RTS.;. *=29772.;.; INLOOP..;.;
DIT SUBPROGRAMMA:.;.; ZET SCHERM-BEGINA
DRES;.; ZET SPEELVELD-BEGINADRES;.; ZET
BEGINADRES VAN KLEUR.; VAN SCHERM EN
SPEELVELD;.; ZET KLEUR VAN TEKENS, VOOR
GROND.; EN ACHTERGROND;.; ZET GRENZE
N VAN SPEELVELD:.; RECHTS XE=(692)=X
O+N;.; ONDER YE=(693)=YO+M;.; T
EVOREN XO=(690); N=(730);.; ALSMEDE
YO=(691); M=(731);.; ZET ADRESSEN VOOR L
ETTERS EN.; CIJFERS VAN DE CODES..;.
INLOP LDA 00648 ;SCHERM. STA SAD
RH ;BEGINADRES.. LDA #000 ;BERE
KENEN VAN. STA 252 ;XO + 40 * Y
O.. LDA 00690 ; TERM XO.. ST
A 251. LDA #040 ; FACTOR 40..
STA 107. LDA 00691 ; FACTOR
YO.. STA 167. JSR MULOP.
LDX #006.INLO1 CLC ;TEL BIJ B
EGIN-. LDA SADRL,X ;ADRES SCHERM-.
ADC 251 ;EN KLEURVELD..
STA SBDRL,X. LDA SADRH,X. AD
C 252. STA SBDRH,X. DEX.
DEX. DEX. DEX. DEX.
DEX. BPL INLO1. LDA TEKKL
;TEKENKLEUR.. STA 00646. LD
X #001.INLO2 LDA VGKLE,X ;VOOR- EN ACH-
. STA 53280,X ;TERGROND.. CLC
;GRENZEN VAN. LDA 00690,
X ;SPEELVELD.. ADC 00730,X ;XO+N O
F. STA 00692,X ;YO+M.. DEX.
BPL INLO2. CLC ;ADRES
VOOR. LDA SADRL ;LETTER A. A
DC #042 ;OP SCHERM. STA 00696
;IS (697,696).. LDA SADRH. AD
C #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. C
LC ;ADRES VOOR. LDA SADRL
;DERDE REGEL. ADC #120 ;OP SCHE
RM. STA SAERL ;IS SAER.....
LDA SADRH. ADC #000. STA SAE
RH. RTS.;. *=29912.;.; INC
REMENT 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 (73
0)=N,. BCC LINC1 ; OF (731)=M.
. INY ;VLAG OP.. LDA
#000 ;LOPER. STA 249,X ;ROND
LOPEND..LINC1 RTS.;. *=29932.;.;
DECREMENT LOPER EN CHECK..; (X)=0:
(249)=X. 0...N-1..; (X)=1: (250)=Y.
0...M-1..; OVERLOOP: (Y)=1 EN TEVEN
S.; X OP N-1 OF.;
Y OP M-1..;.LDECR LDY #000 ;VL
AG NEER.. LDA 249,X ;(X)=0:(249)
=X.. BNE LDEC1 ;(X)=1:(250)=Y..
LDA 00730,X ; EIND (730)=N,.
STA 249,X ; OF (731)=M.. INY
;VLAG OP..LDEC1 DEC 249,X ;LO
PER. RTS ;RONDLOPEND..;.
*=29952.;.; LOPER OP SPEELVELD E
N TEKEN.; IN 002 GEZET; REVERTERING.
.;.INTLO LDA SBDRL ;SPEELVELDADRES.
STA 251 ;ALS TERM.. LDA S
BDRH. STA 252. LDA #040 ;
FACTOR 40.. STA 107. LDA 250
;FACTOR Y.. STA 167. JSR
MULOP ;BEREKEN.. LDY 249 ;
TERM X ADRES-. LDA (251),Y ;MODIFI
CATIE.. 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 I
N VELD.. JSR TOETS ;ACCEPT TOETS
.. LDA (251),Y ;REVERT.TERUG:.
BMI INTL3 ;BIT 7 = ?. ORA #128
;0: ZET OP 1.. BMI INTL4 ;S
LA 1 OVER..INTL3 AND #127 ;1: ZET OP
0..INTL4 STA (251),Y ;ZET IN VELD..
RTS.;. *=30016.;.; TOETS ACC
EPT EN NAAR 002..;.TOETS TYA ;RE
D (Y).. PHA.TOET1 LDA 197 ;WEL/
NIET?. CMP #064. BEQ TOET1.TO
ET2 JSR 65508 ;JA:NEEM OP.. CMP #
000 ;LOOS?. BEQ TOET2 ;JA:TERU
G.. STA 002 ;NEEN:IN 002..TOET3
LDA 197 ;LOS?. CMP #064 ;NE
E:TERUG.. BNE TOET3 ;JA:HERSTEL (
Y). PLA ;EN NAAR H.P..
TAY. RTS.;. *=30048.;.; C
HECK OP LOPER EN OP 'HOME'..; TEKEN
IN 002..; (Y)=0:LOPER..; (Y)=1:O
VERLOOP..; (Y)=2:TEKEN..;.LOPER LDX
002 ;TEKEN IN X.. CPX #019 ;
'HOME'?. BNE LOPE1 ;NEEN:DOORGAAN
..;.LIKBV LDY #000 ;JA:LINKSBOVEN.
STY 249 ;IN SPEELVELD.. STY
250 ;TEVENS VLAG. RTS ;
NEER..LOPE1 CPX #029 ;NAAR RECHTS?.
BNE LOPE2 ;NEEN:DOORGAAN.. LD
X #000 ;JA:INCR.X.. JSR LINCR.
RTS.LOPE2 CPX #157 ;NAAR LINKS?.
BNE LOPE3 ;NEEN:DOORGAAN..
LDX #000 ;JA:DECR.X.. JSR LDECR
. RTS.LOPE3 CPX #145 ;NAAR BOVEN
?. BNE LOPE4 ;NEEN:DOORGAAN..
LDX #001 ;JA:DECR.Y.. JSR LDE
CR. RTS.LOPE4 CPX #017 ;NAAR BEN
EDEN?. BNE LOPE5 ;NEEN:DOORGAAN..
LDX #001 ;JA:INCR.Y.. JSR
LINCR. RTS.LOPE5 LDY #002 ;GEEN
LOPER:. RTS ;VLAG OP 2..;.
*=30104.;.; KLEUR VAN SPEELVEL
D..;.KLESP LDA TCOKL ;KLEUR VULLEN..
STA 251. LDA 00731 ;M BLOKKE
N. STA 033 ;@ N BYTES.. LD
A 00730. STA 034. LDX #010
;KLEUR SPEELV.. JSR MEBLO ;BEGI
NADRES.. RTS.;. *=30128.;.;
STIPPEN IN SPEELVELD..;.STIPS LDA #046
;STIP ASCII.. STA 251. LD
A 00731 ;M BLOKKEN. STA 033 ;
@ N BYTES.. LDA 00730. STA 0
34. LDX #004 ;SPEELVELD. JS
R MEBLO ;BEGIN.. RTS.;.; *=30
148.;. .DBYTE $FFFF,$FFFF. .DB
YTE $FFFF,$FFFF.;. KGKLE=31600 ;KLE
URGEHEUGEN.. VGKLE=31601 ;KLEUR VOO
RGRD.. AGKLE=31602 ;KLEUR ACHT.GD..
TEKKL=31603 ;KLEUR TEKENS.. T
COKL=31604 ;KLEUR BEGIN.. TCAKL=316
05 ;KLEUR CODE.. TCBKL=31606 ;KLEUR
CODE/COM..;. SADRL=31607 ;SCHERMVE
LD. SADRH=31608 ;BEGINADRES..
SAERL=31609. SAERH=31610.;. SB
DRL=31611 ;SPEELVELD. SBDRH=31612 ;
BEGINADRES..;. SKDRL=31613 ;KLEURVE
LD. SKDRH=31614 ;BEGINADRES..;.
SIDRL=31615 ;INDEXVELD. SIDRH=316
16 ;BEGINADRES..;. SLDRL=31617 ;KLE
URSPEELVELD. SLDRH=31618 ;BEGINADRE
S..;. BKDRL=31619 ;VIC-CHIP BANK.
BKDRH=31620 ;BEGINADRES..;. KRO
ML=31621 ;KARAKTER-ROM. KROMH=31622
;BEGINADRES..;. BKARL=31623 ;KARAK
TER-RAM. BKARH=31624 ;BEGINADRES..;
. BKCRL=31625 ;KARAKTER-RAM. B
KCRH=31626 ;BEGINADRES..;. KARKL=31
627 ;KARAKTERDATA. KARKH=31628 ;BEG
INADRES..;.;.;. BLTRA=30720 ;BLOKTR
ANSPORT.. BLVUL=30768 ;BLOKVULLEN..
MULOP=30804 ;VERMEN.V.M/OPT..
DECXY=30848 ;DECONVERSIE.. MEBLO=3
1388 ;REGELVUL..;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL