ETLIST8
FILE INFORMATION
FILENAME(S): ETLIST8
FILE TYPE(S): SEQ
FILE SIZE: 16.3K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
da0009c1a58e2222a59dade8ea6927cce6e0fdf65dbc8b4c4eea09b6e905cc69
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EXPERIMENT 02 | ETLIST8 | SEQ | DuncanTwain | 22 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 2E 4E 4F 4C 49 53 54 0D 3B 0D | .NOLIST.;.| 00000010: 3B 20 53 20 55 20 42 20 50 20 52 20 4F 20 47 20 |; S U B P R O G | 00000020: 52 20 41 20 4D 20 4D 20 41 20 27 20 53 0D 3B 0D |R A M M A ' S.;.| 00000030: 3B 20 20 20 20 20 20 20 20 20 20 56 20 4F 20 4F |; V O O| 00000040: 20 52 0D 3B 0D 3B 20 20 20 20 45 20 54 20 49 20 | R.;.; E T I | 00000050: 4B 20 45 20 54 20 2E 20 42 20 41 20 53 20 20 20 |K E T . B A S | 00000060: 2E 0D 3B 0D 3B 0D 3B 20 50 52 4F 47 52 41 4D 4D |..;.;.; PROGRAMM| 00000070: 41 20 20 20 3A 20 20 45 54 49 4B 45 54 20 2E 0D |A : ETIKET ..| 00000080: 3B 20 42 52 4F 4E 43 4F 44 45 20 20 20 20 3A 20 |; BRONCODE : | 00000090: 20 45 54 49 4B 45 54 2E 41 53 4D 20 20 2E 0D 3B | ETIKET.ASM ..;| 000000A0: 20 4F 42 4A 45 43 54 43 4F 44 45 20 20 3A 20 20 | OBJECTCODE : | 000000B0: 45 54 49 4B 45 54 2E 4F 42 4A 20 20 2E 0D 3B 20 |ETIKET.OBJ ..; | 000000C0: 44 49 53 4B 20 20 20 20 20 20 20 20 3A 20 20 45 |DISK : E| 000000D0: 32 20 20 2E 0D 3B 20 54 41 41 4C 20 20 20 20 20 |2 ..; TAAL | 000000E0: 20 20 20 3A 20 20 41 53 53 45 4D 42 4C 45 52 20 | : ASSEMBLER | 000000F0: 43 36 34 2E 0D 3B 20 44 41 54 55 4D 20 20 20 20 |C64..; DATUM | 00000100: 20 20 20 3A 20 20 32 33 20 4A 55 4C 49 20 31 39 | : 23 JULI 19| 00000110: 39 35 2E 0D 3B 20 50 52 4F 47 52 41 4D 4D 45 55 |95..; PROGRAMMEU| 00000120: 52 20 3A 20 20 4A 2E 48 2E 56 41 4E 20 52 49 4A |R : J.H.VAN RIJ| 00000130: 4E 2E 0D 3B 0D 3B 0D 3B 20 44 45 43 49 4D 20 48 |N..;.;.; DECIM H| 00000140: 45 58 41 20 53 59 4D 42 4C 20 46 55 4E 43 54 49 |EXA SYMBL FUNCTI| 00000150: 45 0D 3B 0D 3B 20 32 35 36 30 30 20 36 34 30 30 |E.;.; 25600 6400| 00000160: 20 54 52 41 53 50 20 42 59 54 45 54 52 41 4E 53 | TRASP BYTETRANS| 00000170: 50 4F 52 54 2D 0D 3B 20 20 20 20 20 20 20 20 20 |PORT-.; | 00000180: 20 20 20 20 20 20 20 20 20 53 55 42 50 52 4F 47 | SUBPROG| 00000190: 52 41 4D 4D 41 2E 0D 3B 20 32 35 36 33 32 20 36 |RAMMA..; 25632 6| 000001A0: 34 32 30 20 53 43 4C 59 53 20 4C 49 4A 53 54 20 |420 SCLYS LIJST | 000001B0: 56 2E 52 45 47 45 4C 2D 0D 3B 20 20 20 20 20 20 |V.REGEL-.; | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 | BEGI| 000001D0: 4E 41 44 52 45 53 53 45 4E 2E 0D 3B 20 32 35 36 |NADRESSEN..; 256| 000001E0: 36 38 20 36 34 34 34 20 4C 49 4E 42 4C 20 4D 45 |68 6444 LINBL ME| 000001F0: 45 53 54 20 4C 49 4E 4B 53 45 0D 3B 20 20 20 20 |EST LINKSE.; | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 49 | NI| 00000210: 45 54 42 4C 4E 4B 2E 54 45 4B 45 4E 2E 0D 3B 20 |ETBLNK.TEKEN..; | 00000220: 32 35 36 39 32 20 36 34 35 43 20 52 45 4E 42 4C |25692 645C RENBL| 00000230: 20 4D 45 45 53 54 20 52 45 43 48 54 53 45 0D 3B | MEEST RECHTSE.;| 00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000250: 20 20 4E 49 45 54 42 4C 4E 4B 2E 54 45 4B 45 4E | NIETBLNK.TEKEN| 00000260: 2E 0D 3B 20 32 35 37 31 32 20 36 34 37 30 20 56 |..; 25712 6470 V| 00000270: 55 4C 45 54 20 56 55 4C 20 4D 45 4E 55 2D 20 4F |ULET VUL MENU- O| 00000280: 46 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |F.; | 00000290: 20 20 20 20 20 45 54 49 4B 45 54 42 4C 4F 4B 2E | ETIKETBLOK.| 000002A0: 0D 3B 20 32 35 37 36 34 20 36 34 41 34 20 52 45 |.; 25764 64A4 RE| 000002B0: 47 41 44 20 52 45 47 45 4C 42 45 47 49 4E 41 44 |GAD REGELBEGINAD| 000002C0: 52 45 53 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |RES.; | 000002D0: 20 20 20 20 20 20 20 4E 55 4D 4D 45 52 20 28 58 | NUMMER (X| 000002E0: 29 2E 0D 3B 20 32 35 37 38 34 20 36 34 42 38 20 |)..; 25784 64B8 | 000002F0: 54 4F 45 54 53 20 54 4F 45 54 53 20 54 45 4B 45 |TOETS TOETS TEKE| 00000300: 4E 20 28 41 29 0D 3B 20 20 20 20 20 20 20 20 20 |N (A).; | 00000310: 20 20 20 20 20 20 20 20 20 4D 45 54 20 53 4F 4F | MET SOO| 00000320: 52 54 20 28 58 29 2E 0D 3B 20 32 35 38 32 34 20 |RT (X)..; 25824 | 00000330: 36 34 45 30 20 53 45 54 4C 4F 20 5A 45 54 20 4C |64E0 SETLO ZET L| 00000340: 4F 50 45 52 20 4F 50 0D 3B 20 20 20 20 20 20 20 |OPER OP.; | 00000350: 20 20 20 20 20 20 20 20 20 20 20 52 47 2E 28 58 | RG.(X| 00000360: 29 2C 4B 4F 4C 2E 28 59 29 2E 0D 3B 20 32 35 38 |),KOL.(Y)..; 258| 00000370: 33 32 20 36 34 45 38 20 45 54 49 56 55 20 56 55 |32 64E8 ETIVU VU| 00000380: 4C 20 56 45 4C 44 20 56 41 4E 0D 3B 20 20 20 20 |L VELD VAN.; | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 54 | ET| 000003A0: 49 4B 45 54 20 4D 45 54 20 28 32 29 2E 0D 3B 20 |IKET MET (2)..; | 000003B0: 32 35 38 34 38 20 36 34 46 38 20 53 45 54 54 45 |25848 64F8 SETTE| 000003C0: 20 28 41 29 20 4E 41 41 52 20 41 44 52 45 53 0D | (A) NAAR ADRES.| 000003D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 000003E0: 20 20 20 28 32 35 34 2C 32 35 33 29 2B 28 59 29 | (254,253)+(Y)| 000003F0: 2E 0D 3B 20 32 35 38 35 32 20 36 34 46 43 20 4C |..; 25852 64FC L| 00000400: 45 53 54 45 20 28 28 32 35 34 2C 32 35 33 29 2B |ESTE ((254,253)+| 00000410: 28 59 29 29 0D 3B 20 20 20 20 20 20 20 20 20 20 |(Y)).; | 00000420: 20 20 20 20 20 20 20 20 4E 2F 52 45 47 49 53 54 | N/REGIST| 00000430: 45 52 20 41 2E 0D 3B 20 32 35 38 35 36 20 36 35 |ER A..; 25856 65| 00000440: 30 30 20 4D 4E 55 50 4F 20 50 4F 45 54 53 20 56 |00 MNUPO POETS V| 00000450: 45 4C 44 20 56 41 4E 0D 3B 20 20 20 20 20 20 20 |ELD VAN.; | 00000460: 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 2E | MENU.| 00000470: 0D 3B 20 32 35 38 37 38 20 36 35 31 36 20 42 45 |.; 25878 6516 BE| 00000480: 54 45 49 20 52 45 47 45 4C 20 4D 2F 42 45 47 49 |TEI REGEL M/BEGI| 00000490: 4E 2D 2C 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |N-,.; | 000004A0: 20 20 20 20 20 20 20 54 55 53 2E 2D 45 4E 20 45 | TUS.-EN E| 000004B0: 49 4E 44 54 4B 2E 0D 3B 20 32 35 39 30 38 20 36 |INDTK..; 25908 6| 000004C0: 35 33 34 20 4B 4F 4C 56 55 20 56 55 4C 20 4B 4F |534 KOLVU VUL KO| 000004D0: 4C 4F 4D 20 4D 45 54 0D 3B 20 20 20 20 20 20 20 |LOM MET.; | 000004E0: 20 20 20 20 20 20 20 20 20 20 20 54 55 53 53 45 | TUSSE| 000004F0: 4E 54 45 4B 45 4E 53 2E 0D 3B 20 32 35 39 34 38 |NTEKENS..; 25948| 00000500: 20 36 35 35 43 20 50 4F 50 45 4E 20 4F 50 45 4E | 655C POPEN OPEN| 00000510: 45 4E 20 56 41 4E 20 44 45 0D 3B 20 20 20 20 20 |EN VAN DE.; | 00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 | PRI| 00000530: 4E 54 45 52 2E 0D 3B 20 32 35 39 37 36 20 36 35 |NTER..; 25976 65| 00000540: 37 38 20 50 4B 41 52 59 20 50 52 49 4E 54 20 4B |78 PKARY PRINT K| 00000550: 41 52 41 4B 54 45 52 2D 0D 3B 20 20 20 20 20 20 |ARAKTER-.; | 00000560: 20 20 20 20 20 20 20 20 20 20 20 20 52 49 4A 45 | RIJE| 00000570: 4E 20 55 49 54 2E 0D 3B 20 32 36 30 32 38 20 36 |N UIT..; 26028 6| 00000580: 35 41 43 20 50 43 4C 4F 53 20 53 4C 55 49 54 45 |5AC PCLOS SLUITE| 00000590: 4E 20 56 41 4E 20 44 45 0D 3B 20 20 20 20 20 20 |N VAN DE.; | 000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4E | PRIN| 000005B0: 54 45 52 2E 0D 20 20 20 20 20 20 2E 50 41 47 45 |TER.. .PAGE| 000005C0: 0D 20 20 20 20 20 20 2E 4C 49 53 54 0D 3B 20 53 |. .LIST.; S| 000005D0: 55 42 50 52 4F 47 52 41 4D 4D 41 27 53 20 56 45 |UBPROGRAMMA'S VE| 000005E0: 52 56 4F 4C 47 2E 0D 3B 0D 3B 20 44 45 43 49 4D |RVOLG..;.; DECIM| 000005F0: 20 48 45 58 41 20 53 59 4D 42 4C 20 46 55 4E 43 | HEXA SYMBL FUNC| 00000600: 54 49 45 0D 3B 0D 3B 20 32 36 30 34 30 20 36 35 |TIE.;.; 26040 65| 00000610: 42 38 20 50 43 4F 44 45 20 5A 45 54 20 50 4F 4B |B8 PCODE ZET POK| 00000620: 45 2D 32 20 4F 4D 0D 3B 20 20 20 20 20 20 20 20 |E-2 OM.; | 00000630: 20 20 20 20 20 20 20 20 20 20 49 4E 20 50 52 49 | IN PRI| 00000640: 4E 54 45 52 43 4F 44 45 2E 0D 3B 20 32 36 30 37 |NTERCODE..; 2607| 00000650: 32 20 36 35 44 38 20 49 4E 4C 4F 42 20 42 55 46 |2 65D8 INLOB BUF| 00000660: 46 45 52 4C 45 4E 47 54 45 20 4F 50 0D 3B 20 20 |FERLENGTE OP.; | 00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000680: 4E 55 4C 20 56 4F 4F 52 20 56 55 4C 4F 42 2E 0D |NUL VOOR VULOB..| 00000690: 3B 20 32 36 30 39 36 20 36 35 46 30 20 56 55 4C |; 26096 65F0 VUL| 000006A0: 4F 42 20 42 55 46 46 45 52 20 56 55 4C 4C 45 4E |OB BUFFER VULLEN| 000006B0: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 000006C0: 20 20 20 20 4D 2F 50 52 49 4E 54 43 4F 44 45 28 | M/PRINTCODE(| 000006D0: 41 29 2E 0D 3B 20 32 36 31 31 32 20 36 36 30 30 |A)..; 26112 6600| 000006E0: 20 55 54 4C 4F 42 20 42 55 46 46 45 52 4C 45 4E | UTLOB BUFFERLEN| 000006F0: 47 54 45 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |GTE.; | 00000700: 20 20 20 20 20 20 20 49 4E 56 55 4C 20 4E 41 20 | INVUL NA | 00000710: 56 55 4C 2E 0D 3B 20 32 36 31 34 34 20 36 36 32 |VUL..; 26144 662| 00000720: 30 20 45 54 49 42 56 20 50 52 49 4E 54 42 55 46 |0 ETIBV PRINTBUF| 00000730: 46 45 52 20 4D 45 54 0D 3B 20 20 20 20 20 20 20 |FER MET.; | 00000740: 20 20 20 20 20 20 20 20 20 20 20 45 54 49 4B 45 | ETIKE| 00000750: 54 20 56 55 4C 4C 45 4E 2E 0D 3B 20 32 36 32 34 |T VULLEN..; 2624| 00000760: 30 20 36 36 38 30 20 4C 49 4E 53 46 20 52 45 45 |0 6680 LINSF REE| 00000770: 4B 53 20 42 59 54 45 53 0D 3B 20 20 20 20 20 20 |KS BYTES.; | 00000780: 20 20 20 20 20 20 20 20 20 20 20 20 4E 41 41 52 | NAAR| 00000790: 20 4C 49 4E 4B 53 2E 0D 3B 20 32 36 32 37 32 20 | LINKS..; 26272 | 000007A0: 36 36 41 30 20 52 45 43 53 46 20 52 45 45 4B 53 |66A0 RECSF REEKS| 000007B0: 20 42 59 54 45 53 0D 3B 20 20 20 20 20 20 20 20 | BYTES.; | 000007C0: 20 20 20 20 20 20 20 20 20 20 4E 41 41 52 20 52 | NAAR R| 000007D0: 45 43 48 54 53 2E 0D 3B 20 32 36 33 30 34 20 36 |ECHTS..; 26304 6| 000007E0: 36 43 30 20 4C 59 4E 45 4E 20 52 45 47 45 4C 56 |6C0 LYNEN REGELV| 000007F0: 45 52 5A 45 54 53 0D 3B 20 20 20 20 20 20 20 20 |ERZETS.; | 00000800: 20 20 20 20 20 20 20 20 20 20 49 4E 20 42 55 46 | IN BUF| 00000810: 46 45 52 2E 0D 3B 20 32 36 33 32 38 20 36 36 44 |FER..; 26328 66D| 00000820: 38 20 53 50 41 52 47 20 53 50 41 54 49 45 53 20 |8 SPARG SPATIES | 00000830: 5A 45 54 54 45 4E 0D 3B 20 20 20 20 20 20 20 20 |ZETTEN.; | 00000840: 20 20 20 20 20 20 20 20 20 20 4F 50 20 52 45 47 | OP REG| 00000850: 45 4C 20 28 58 29 2E 0D 3B 20 32 36 33 35 30 20 |EL (X)..; 26350 | 00000860: 36 36 45 45 20 54 52 53 55 42 20 42 59 54 45 54 |66EE TRSUB BYTET| 00000870: 52 41 4E 53 50 4F 52 54 0D 3B 20 20 20 20 20 20 |RANSPORT.; | 00000880: 20 20 20 20 20 20 20 20 20 20 20 20 45 45 4E 20 | EEN | 00000890: 42 4C 4F 4B 2E 0D 3B 20 32 36 33 36 38 20 36 37 |BLOK..; 26368 67| 000008A0: 30 30 20 45 54 50 52 49 20 50 52 49 4E 54 20 41 |00 ETPRI PRINT A| 000008B0: 41 4E 54 41 4C 0D 3B 20 20 20 20 20 20 20 20 20 |ANTAL.; | 000008C0: 20 20 20 20 20 20 20 20 20 45 54 49 4B 45 54 54 | ETIKETT| 000008D0: 45 4E 20 55 49 54 2E 0D 3B 20 32 36 34 30 30 20 |EN UIT..; 26400 | 000008E0: 36 37 32 30 20 4F 50 52 45 47 20 41 41 4E 54 41 |6720 OPREG AANTA| 000008F0: 4C 20 4F 50 45 4E 0D 3B 20 20 20 20 20 20 20 20 |L OPEN.; | 00000900: 20 20 20 20 20 20 20 20 20 20 52 45 47 45 4C 53 | REGELS| 00000910: 20 50 52 49 4E 54 45 4E 2E 0D 3B 20 32 36 34 32 | PRINTEN..; 2642| 00000920: 34 20 36 37 33 38 20 55 49 50 52 49 20 53 4C 55 |4 6738 UIPRI SLU| 00000930: 49 54 20 50 52 49 4E 54 45 52 0D 3B 20 20 20 20 |IT PRINTER.; | 00000940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 | ME| 00000950: 54 20 48 45 52 5A 45 54 2E 0D 3B 20 32 36 34 35 |T HERZET..; 2645| 00000960: 36 20 36 37 35 38 20 50 52 49 53 54 20 50 52 49 |6 6758 PRIST PRI| 00000970: 4E 54 45 52 49 4E 53 54 45 4C 2D 0D 3B 20 20 20 |NTERINSTEL-.; | 00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C | L| 00000990: 49 4E 47 20 4E 2F 42 55 46 46 45 52 2E 0D 3B 20 |ING N/BUFFER..; | 000009A0: 32 36 34 38 30 20 36 37 37 30 20 54 41 56 45 52 |26480 6770 TAVER| 000009B0: 20 56 45 52 54 41 4C 45 4E 20 4E 41 41 52 0D 3B | VERTALEN NAAR.;| 000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009D0: 20 20 50 52 49 4E 54 43 2E 4D 2F 54 41 42 45 4C | PRINTC.M/TABEL| 000009E0: 2E 0D 3B 20 32 36 34 39 36 20 36 37 38 30 20 50 |..; 26496 6780 P| 000009F0: 44 45 43 4F 20 5A 4F 45 4B 20 49 54 45 4D 20 49 |DECO ZOEK ITEM I| 00000A00: 4E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |N.; | 00000A10: 20 20 20 20 20 50 52 49 4E 54 43 2E 55 2F 54 41 | PRINTC.U/TA| 00000A20: 42 45 4C 2E 0D 3B 20 32 36 35 32 38 20 36 37 41 |BEL..; 26528 67A| 00000A30: 30 20 4C 59 53 54 50 20 4C 49 4A 53 54 20 56 41 |0 LYSTP LIJST VA| 00000A40: 4E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |N.; | 00000A50: 20 20 20 20 20 50 52 49 4E 54 43 4F 44 45 53 2E | PRINTCODES.| 00000A60: 0D 3B 20 32 36 35 36 30 20 36 37 43 30 20 2E 2E |.; 26560 67C0 ..| 00000A70: 2E 2E 2E 20 20 20 56 20 52 20 49 20 4A 20 2E 0D |... V R I J ..| 00000A80: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000A90: 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | .............| 00000AA0: 2E 2E 0D 3B 0D 3B 20 44 45 20 49 4E 20 44 45 5A |...;.; DE IN DEZ| 00000AB0: 45 20 53 55 42 50 52 4F 47 52 41 4D 4D 41 27 53 |E SUBPROGRAMMA'S| 00000AC0: 0D 3B 20 47 45 42 52 55 49 4B 54 45 20 43 4F 4E |.; GEBRUIKTE CON| 00000AD0: 53 54 41 4E 54 45 4E 20 4D 45 54 20 48 55 4E 0D |STANTEN MET HUN.| 00000AE0: 3B 20 41 44 52 45 53 53 45 4E 2E 0D 3B 0D 4D 42 |; ADRESSEN..;.MB| 00000AF0: 20 20 20 20 20 3D 20 20 20 30 30 36 38 30 20 20 | = 00680 | 00000B00: 3B 20 42 45 47 49 4E 52 45 47 2E 4D 45 4E 55 2E |; BEGINREG.MENU.| 00000B10: 0D 4D 45 20 20 20 20 20 3D 20 20 20 30 30 36 38 |.ME = 0068| 00000B20: 31 20 20 3B 20 20 45 49 4E 44 52 45 47 2E 4D 45 |1 ; EINDREG.ME| 00000B30: 4E 55 2E 0D 3B 0D 4C 42 20 20 20 20 20 3D 20 20 |NU..;.LB = | 00000B40: 20 30 30 36 38 32 20 20 3B 50 4F 53 2E 4C 49 4E | 00682 ;POS.LIN| 00000B50: 4B 53 20 4D 45 4E 55 2E 0D 4C 45 20 20 20 20 20 |KS MENU..LE | 00000B60: 3D 20 20 20 30 30 36 38 33 20 20 3B 50 4F 53 2E |= 00683 ;POS.| 00000B70: 52 43 48 54 53 2E 4D 45 4E 55 2E 0D 3B 0D 52 42 |RCHTS.MENU..;.RB| 00000B80: 20 20 20 20 20 3D 20 20 20 30 30 36 38 34 20 20 | = 00684 | 00000B90: 3B 20 4C 49 4A 4E 20 42 4F 56 45 4E 41 41 4E 2E |; LIJN BOVENAAN.| 00000BA0: 0D 52 45 20 20 20 20 20 3D 20 20 20 30 30 36 38 |.RE = 0068| 00000BB0: 35 20 20 3B 20 4C 49 4A 4E 20 4F 4E 44 45 52 41 |5 ; LIJN ONDERA| 00000BC0: 41 4E 2E 0D 20 20 20 20 20 20 2E 50 41 47 45 0D |AN.. .PAGE.| 00000BD0: 4B 42 20 20 20 20 20 3D 20 20 20 30 30 36 38 36 |KB = 00686| 00000BE0: 20 20 3B 20 4C 49 4A 4E 20 4C 49 4E 4B 53 2E 0D | ; LIJN LINKS..| 00000BF0: 4B 45 20 20 20 20 20 3D 20 20 20 30 30 36 38 37 |KE = 00687| 00000C00: 20 20 3B 20 4C 49 4A 4E 20 52 45 43 48 54 53 2E | ; LIJN RECHTS.| 00000C10: 0D 3B 0D 50 42 20 20 20 20 20 3D 20 20 20 30 30 |.;.PB = 00| 00000C20: 36 38 38 20 20 3B 20 42 45 47 49 4E 52 2E 45 54 |688 ; BEGINR.ET| 00000C30: 49 4B 45 54 2E 0D 50 45 20 20 20 20 20 3D 20 20 |IKET..PE = | 00000C40: 20 30 30 36 38 39 20 20 3B 20 20 45 49 4E 44 52 | 00689 ; EINDR| 00000C50: 2E 45 54 49 4B 45 54 2E 0D 3B 0D 51 42 20 20 20 |.ETIKET..;.QB | 00000C60: 20 20 3D 20 20 20 30 30 36 39 30 20 20 3B 20 42 | = 00690 ; B| 00000C70: 45 47 49 4E 4B 2E 45 54 49 4B 45 54 2E 0D 51 45 |EGINK.ETIKET..QE| 00000C80: 20 20 20 20 20 3D 20 20 20 30 30 36 39 31 20 20 | = 00691 | 00000C90: 3B 20 20 45 49 4E 44 4B 2E 45 54 49 4B 45 54 2E |; EINDK.ETIKET.| 00000CA0: 0D 3B 0D 42 52 20 20 20 20 20 3D 20 20 20 30 30 |.;.BR = 00| 00000CB0: 36 39 32 20 20 3B 20 42 45 47 49 4E 52 2E 42 4F |692 ; BEGINR.BO| 00000CC0: 4F 44 53 43 2E 0D 42 4B 20 20 20 20 20 3D 20 20 |ODSC..BK = | 00000CD0: 20 30 30 36 39 33 20 20 3B 20 42 45 47 49 4E 4B | 00693 ; BEGINK| 00000CE0: 2E 42 4F 4F 44 53 43 2E 0D 3B 0D 3B 20 50 52 49 |.BOODSC..;.; PRI| 00000CF0: 4E 54 42 55 46 46 45 52 42 45 47 49 4E 41 44 52 |NTBUFFERBEGINADR| 00000D00: 45 53 2E 0D 3B 0D 42 55 42 30 20 20 20 3D 20 20 |ES..;.BUB0 = | 00000D10: 20 30 30 36 39 34 20 20 3B 20 4C 53 2E 50 52 49 | 00694 ; LS.PRI| 00000D20: 4E 54 42 55 46 46 2E 0D 42 55 42 31 20 20 20 3D |NTBUFF..BUB1 =| 00000D30: 20 20 20 30 30 36 39 35 20 20 3B 20 48 53 2E 50 | 00695 ; HS.P| 00000D40: 52 49 4E 54 42 55 46 46 2E 0D 3B 0D 3B 20 56 41 |RINTBUFF..;.; VA| 00000D50: 52 49 41 42 45 4C 20 56 45 4C 44 2C 20 54 45 56 |RIABEL VELD, TEV| 00000D60: 45 4E 53 20 57 45 52 4B 56 45 4C 44 2E 0D 3B 0D |ENS WERKVELD..;.| 00000D70: 59 42 20 20 20 20 20 3D 20 20 20 30 30 36 39 36 |YB = 00696| 00000D80: 20 20 3B 20 52 45 47 45 4C 20 42 45 47 49 4E 2E | ; REGEL BEGIN.| 00000D90: 0D 59 45 20 20 20 20 20 3D 20 20 20 30 30 36 39 |.YE = 0069| 00000DA0: 37 20 20 3B 20 52 45 47 45 4C 20 45 49 4E 44 2E |7 ; REGEL EIND.| 00000DB0: 0D 58 42 20 20 20 20 20 3D 20 20 20 30 30 36 39 |.XB = 0069| 00000DC0: 38 20 20 3B 20 4B 4F 4C 4F 4D 20 42 45 47 49 4E |8 ; KOLOM BEGIN| 00000DD0: 2E 0D 58 45 20 20 20 20 20 3D 20 20 20 30 30 36 |..XE = 006| 00000DE0: 39 39 20 20 3B 20 4B 4F 4C 4F 4D 20 45 49 4E 44 |99 ; KOLOM EIND| 00000DF0: 2E 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 |..;. *= 2| 00000E00: 35 36 30 30 0D 3B 0D 3B 20 42 59 54 45 54 52 41 |5600.;.; BYTETRA| 00000E10: 4E 53 50 4F 52 54 2D 53 55 42 50 52 4F 47 52 41 |NSPORT-SUBPROGRA| 00000E20: 4D 4D 41 2E 0D 3B 0D 3B 20 54 45 20 56 4F 52 45 |MMA..;.; TE VORE| 00000E30: 4E 3A 20 28 31 36 38 2C 31 36 37 29 20 41 41 4E |N: (168,167) AAN| 00000E40: 54 41 4C 3B 0D 3B 20 20 20 20 20 20 20 20 20 20 |TAL;.; | 00000E50: 20 28 32 35 32 2C 32 35 31 29 20 48 41 41 4C 41 | (252,251) HAALA| 00000E60: 44 52 45 53 3B 0D 3B 20 20 20 20 20 20 20 20 20 |DRES;.; | 00000E70: 20 20 28 32 35 34 2C 32 35 33 29 20 42 52 45 4E | (254,253) BREN| 00000E80: 47 41 44 52 45 53 2E 0D 3B 0D 3B 20 44 45 5A 45 |GADRES..;.; DEZE| 00000E90: 20 56 45 43 54 4F 52 45 4E 20 57 4F 52 44 45 4E | VECTOREN WORDEN| 00000EA0: 20 56 45 52 41 4E 44 45 52 44 0D 3B 20 44 4F 4F | VERANDERD.; DOO| 00000EB0: 52 20 44 49 54 20 53 55 42 50 52 4F 47 52 41 4D |R DIT SUBPROGRAM| 00000EC0: 4D 41 2E 0D 3B 0D 54 52 41 53 50 20 4C 44 58 20 |MA..;.TRASP LDX | 00000ED0: 20 31 36 38 0D 20 20 20 20 20 20 42 45 51 20 20 | 168. BEQ | 00000EE0: 54 52 41 53 53 0D 20 20 20 20 20 20 4C 44 41 20 |TRASS. LDA | 00000EF0: 23 32 35 35 0D 20 20 20 20 20 20 53 54 41 20 20 |#255. STA | 00000F00: 31 36 39 0D 54 52 41 53 52 20 4A 53 52 20 20 54 |169.TRASR JSR T| 00000F10: 52 53 55 42 0D 20 20 20 20 20 20 49 4E 43 20 20 |RSUB. INC | 00000F20: 32 35 32 0D 20 20 20 20 20 20 49 4E 43 20 20 32 |252. INC 2| 00000F30: 35 34 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 |54. DEX. | 00000F40: 20 20 20 42 4E 45 20 20 54 52 41 53 52 0D 54 52 | BNE TRASR.TR| 00000F50: 41 53 53 20 4C 44 41 20 20 31 36 37 0D 20 20 20 |ASS LDA 167. | 00000F60: 20 20 20 42 45 51 20 20 54 52 41 53 5A 0D 20 20 | BEQ TRASZ. | 00000F70: 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 53 54 | DEY. ST| 00000F80: 59 20 20 31 36 39 0D 20 20 20 20 20 20 4A 53 52 |Y 169. JSR| 00000F90: 20 20 54 52 53 55 42 0D 54 52 41 53 5A 20 52 54 | TRSUB.TRASZ RT| 00000FA0: 53 0D 3B 0D 3B 0D 20 20 20 20 20 20 2E 50 41 47 |S.;.;. .PAG| 00000FB0: 45 0D 20 20 20 20 20 20 2E 4E 4F 4C 49 53 54 0D |E. .NOLIST.| 00000FC0: 20 20 20 20 20 20 2A 3D 20 20 20 32 35 36 33 32 | *= 25632| 00000FD0: 0D 3B 0D 3B 20 50 52 4F 47 52 41 4D 4D 41 20 56 |.;.; PROGRAMMA V| 00000FE0: 4F 4F 52 20 48 45 54 20 5A 45 54 54 45 4E 20 56 |OOR HET ZETTEN V| 00000FF0: 41 4E 20 44 45 0D 3B 20 42 45 47 49 4E 41 44 52 |AN DE.; BEGINADR| 00001000: 45 53 53 45 4E 20 56 41 4E 20 53 43 48 45 52 4D |ESSEN VAN SCHERM| 00001010: 52 45 47 45 4C 53 0D 3B 20 49 4E 20 44 45 20 41 |REGELS.; IN DE A| 00001020: 44 52 45 53 56 45 43 54 4F 52 45 4E 0D 3B 20 28 |DRESVECTOREN.; (| 00001030: 30 30 37 30 31 2C 30 30 37 30 30 29 20 54 2F 4D |00701,00700) T/M| 00001040: 20 28 30 30 37 34 39 2C 30 30 37 34 38 29 2E 0D | (00749,00748)..| 00001050: 3B 0D 3B 20 30 30 37 30 30 2B 32 52 20 4C 41 41 |;.; 00700+2R LAA| 00001060: 47 42 59 54 45 20 41 44 52 2E 20 52 45 47 45 4C |GBYTE ADR. REGEL| 00001070: 20 23 52 2E 0D 3B 20 30 30 37 30 31 2B 32 52 20 | #R..; 00701+2R | 00001080: 48 4F 4F 47 42 59 54 45 20 41 44 52 2E 20 52 45 |HOOGBYTE ADR. RE| 00001090: 47 45 4C 20 23 52 2E 0D 3B 0D 53 43 4C 59 53 20 |GEL #R..;.SCLYS | 000010A0: 4C 44 41 20 20 30 30 36 34 38 0D 20 20 20 20 20 |LDA 00648. | 000010B0: 20 53 54 41 20 20 31 36 38 0D 20 20 20 20 20 20 | STA 168. | 000010C0: 4C 44 58 20 23 30 30 30 0D 20 20 20 20 20 20 53 |LDX #000. S| 000010D0: 54 58 20 20 31 36 37 0D 20 20 20 20 20 20 43 4C |TX 167. CL| 000010E0: 43 0D 53 43 4C 59 31 20 4C 44 41 20 20 31 36 37 |C.SCLY1 LDA 167| 000010F0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 30 |. STA 0070| 00001100: 30 2C 58 0D 20 20 20 20 20 20 41 44 43 20 23 30 |0,X. ADC #0| 00001110: 34 30 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 |40. STA 16| 00001120: 37 0D 20 20 20 20 20 20 4C 44 41 20 20 31 36 38 |7. LDA 168| 00001130: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 30 |. STA 0070| 00001140: 31 2C 58 0D 20 20 20 20 20 20 41 44 43 20 23 30 |1,X. ADC #0| 00001150: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 |00. STA 16| 00001160: 38 0D 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 |8. INX. | 00001170: 20 20 49 4E 58 0D 20 20 20 20 20 20 43 50 58 20 | INX. CPX | 00001180: 23 30 35 30 0D 20 20 20 20 20 20 42 43 43 20 20 |#050. BCC | 00001190: 53 43 4C 59 31 0D 20 20 20 20 20 20 52 54 53 0D |SCLY1. RTS.| 000011A0: 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 35 36 |;. *= 256| 000011B0: 36 38 0D 3B 0D 3B 20 4D 45 45 53 54 20 4C 49 4E |68.;.; MEEST LIN| 000011C0: 4B 53 20 4E 49 45 54 42 4C 41 4E 4B 20 54 45 4B |KS NIETBLANK TEK| 000011D0: 45 4E 2E 0D 3B 20 54 45 56 4F 52 45 4E 20 52 45 |EN..; TEVOREN RE| 000011E0: 47 45 4C 41 44 52 45 53 3D 3E 28 32 35 34 2C 32 |GELADRES=>(254,2| 000011F0: 35 33 29 2E 0D 3B 0D 3B 20 4E 41 20 41 46 4C 4F |53)..;.; NA AFLO| 00001200: 4F 50 20 28 59 29 20 3D 20 4B 4F 4C 4F 4D 20 4E |OP (Y) = KOLOM N| 00001210: 49 45 54 42 4C 2E 54 2E 0D 3B 0D 3B 20 52 45 47 |IETBL.T..;.; REG| 00001220: 45 4C 20 4C 45 45 47 3A 20 43 41 52 52 59 20 4F |EL LEEG: CARRY O| 00001230: 50 20 31 2E 0D 3B 0D 4C 49 4E 42 4C 20 4C 44 59 |P 1..;.LINBL LDY| 00001240: 20 20 51 42 0D 20 20 20 20 20 20 43 4C 43 0D 20 | QB. CLC. | 00001250: 20 20 20 20 20 42 43 43 20 20 4C 49 4E 42 32 0D | BCC LINB2.| 00001260: 4C 49 4E 42 31 20 49 4E 59 0D 4C 49 4E 42 32 20 |LINB1 INY.LINB2 | 00001270: 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |LDA (253),Y. | 00001280: 20 20 43 4D 50 20 23 30 33 32 0D 20 20 20 20 20 | CMP #032. | 00001290: 20 42 45 51 20 20 4C 49 4E 42 33 0D 20 20 20 20 | BEQ LINB3. | 000012A0: 20 20 43 4C 43 0D 20 20 20 20 20 20 52 54 53 0D | CLC. RTS.| 000012B0: 4C 49 4E 42 33 20 43 50 59 20 20 51 45 0D 20 20 |LINB3 CPY QE. | 000012C0: 20 20 20 20 42 43 43 20 20 4C 49 4E 42 31 0D 20 | BCC LINB1. | 000012D0: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 2E | RTS. .| 000012E0: 50 41 47 45 0D 20 20 20 20 20 20 2A 3D 20 20 20 |PAGE. *= | 000012F0: 32 35 36 39 32 0D 3B 0D 3B 20 4D 45 45 53 54 20 |25692.;.; MEEST | 00001300: 52 45 43 48 54 53 20 4E 49 45 54 42 4C 41 4E 4B |RECHTS NIETBLANK| 00001310: 20 54 45 4B 45 4E 2E 0D 3B 20 52 45 47 45 4C 41 | TEKEN..; REGELA| 00001320: 44 52 45 53 20 49 4E 20 28 32 35 34 2C 32 35 33 |DRES IN (254,253| 00001330: 29 2E 0D 3B 20 41 41 4E 20 54 45 20 52 4F 45 50 |)..; AAN TE ROEP| 00001340: 45 4E 20 4E 41 20 4C 49 4E 42 4C 2E 0D 3B 0D 3B |EN NA LINBL..;.;| 00001350: 20 4E 41 20 41 46 4C 4F 4F 50 20 28 59 29 20 3D | NA AFLOOP (Y) =| 00001360: 20 4B 4F 4C 4F 4D 20 4E 49 45 54 42 4C 2E 54 2E | KOLOM NIETBL.T.| 00001370: 0D 3B 0D 52 45 4E 42 4C 20 4C 44 59 20 20 51 45 |.;.RENBL LDY QE| 00001380: 0D 52 45 4E 42 31 20 4C 44 41 20 28 32 35 33 29 |.RENB1 LDA (253)| 00001390: 2C 59 0D 20 20 20 20 20 20 43 4D 50 20 23 30 33 |,Y. CMP #03| 000013A0: 32 0D 20 20 20 20 20 20 42 4E 45 20 20 52 45 4E |2. BNE REN| 000013B0: 42 32 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 |B2. DEY. | 000013C0: 20 20 20 43 50 59 20 20 51 42 0D 20 20 20 20 20 | CPY QB. | 000013D0: 20 42 43 53 20 20 52 45 4E 42 31 0D 52 45 4E 42 | BCS RENB1.RENB| 000013E0: 32 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D |2 RTS.;. *=| 000013F0: 20 20 20 32 35 37 31 32 0D 3B 0D 3B 20 53 55 42 | 25712.;.; SUB| 00001400: 50 52 4F 47 52 41 4D 4D 41 20 56 4F 4F 52 20 48 |PROGRAMMA VOOR H| 00001410: 45 54 20 56 55 4C 4C 45 4E 20 56 41 4E 0D 3B 20 |ET VULLEN VAN.; | 00001420: 45 45 4E 20 53 43 48 45 52 4D 56 45 4C 44 20 28 |EEN SCHERMVELD (| 00001430: 45 54 49 4B 45 54 20 4F 46 20 4D 45 4E 55 29 0D |ETIKET OF MENU).| 00001440: 3B 20 4D 45 54 20 45 45 4E 20 54 45 4B 45 4E 20 |; MET EEN TEKEN | 00001450: 49 4E 20 41 44 52 45 53 20 30 30 32 2E 0D 3B 0D |IN ADRES 002..;.| 00001460: 56 55 4C 45 54 20 4C 44 41 20 20 59 42 0D 20 20 |VULET LDA YB. | 00001470: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 52 4F | CLC. RO| 00001480: 4C 20 20 41 0D 20 20 20 20 20 20 54 41 58 0D 20 |L A. TAX. | 00001490: 20 20 20 20 20 4C 44 41 20 20 59 45 0D 20 20 20 | LDA YE. | 000014A0: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 52 4F 4C | CLC. ROL| 000014B0: 20 20 41 0D 20 20 20 20 20 20 53 54 41 20 20 31 | A. STA 1| 000014C0: 36 39 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |69. CLC. | 000014D0: 20 20 20 42 43 43 20 20 56 55 4C 45 56 0D 56 55 | BCC VULEV.VU| 000014E0: 4C 45 55 20 49 4E 58 0D 20 20 20 20 20 20 49 4E |LEU INX. IN| 000014F0: 58 0D 56 55 4C 45 56 20 4C 44 41 20 20 30 30 37 |X.VULEV LDA 007| 00001500: 30 30 2C 58 0D 20 20 20 20 20 20 53 54 41 20 20 |00,X. STA | 00001510: 32 35 33 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |253. LDA 0| 00001520: 30 37 30 31 2C 58 0D 20 20 20 20 20 20 53 54 41 |0701,X. STA| 00001530: 20 20 32 35 34 0D 20 20 20 20 20 20 4C 44 59 20 | 254. LDY | 00001540: 20 58 42 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 | XB. CLC. | 00001550: 20 20 20 20 42 43 43 20 20 56 55 4C 45 58 0D 56 | BCC VULEX.V| 00001560: 55 4C 45 57 20 49 4E 59 0D 56 55 4C 45 58 20 4C |ULEW INY.VULEX L| 00001570: 44 41 20 20 30 30 32 0D 20 20 20 20 20 20 53 54 |DA 002. ST| 00001580: 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 |A (253),Y. | 00001590: 43 50 59 20 20 58 45 0D 20 20 20 20 20 20 42 43 |CPY XE. BC| 000015A0: 43 20 20 56 55 4C 45 57 0D 20 20 20 20 20 20 43 |C VULEW. C| 000015B0: 50 58 20 20 31 36 39 0D 20 20 20 20 20 20 42 43 |PX 169. BC| 000015C0: 43 20 20 56 55 4C 45 55 0D 20 20 20 20 20 20 52 |C VULEU. R| 000015D0: 54 53 0D 20 20 20 20 20 20 2E 50 41 47 45 0D 20 |TS. .PAGE. | 000015E0: 20 20 20 20 20 2A 3D 20 20 20 32 35 37 36 34 0D | *= 25764.| 000015F0: 3B 0D 3B 20 52 45 47 45 4C 42 45 47 49 4E 41 44 |;.; REGELBEGINAD| 00001600: 52 45 53 20 4D 45 54 20 4E 55 4D 4D 45 52 20 23 |RES MET NUMMER #| 00001610: 28 58 29 2E 0D 3B 20 41 44 52 45 53 20 49 4E 20 |(X)..; ADRES IN | 00001620: 28 32 35 34 2C 32 35 33 29 2E 0D 3B 0D 52 45 47 |(254,253)..;.REG| 00001630: 41 44 20 54 58 41 0D 20 20 20 20 20 20 43 4C 43 |AD TXA. CLC| 00001640: 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 |. ROL A. | 00001650: 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 4C 44 | TAY. LD| 00001660: 41 20 20 30 30 37 30 30 2C 59 0D 20 20 20 20 20 |A 00700,Y. | 00001670: 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 20 | STA 253. | 00001680: 4C 44 41 20 20 30 30 37 30 31 2C 59 0D 20 20 20 |LDA 00701,Y. | 00001690: 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 | STA 254. | 000016A0: 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D | RTS.;. *=| 000016B0: 20 20 20 32 35 37 38 34 0D 3B 0D 3B 20 54 4F 45 | 25784.;.; TOE| 000016C0: 54 53 20 54 45 4B 45 4E 20 42 49 54 53 20 30 2E |TS TEKEN BITS 0.| 000016D0: 2E 2E 35 20 49 4E 20 52 45 47 2E 41 2E 0D 3B 20 |..5 IN REG.A..; | 000016E0: 54 45 4B 45 4E 53 4F 4F 52 54 20 20 42 49 54 53 |TEKENSOORT BITS| 000016F0: 20 32 2E 2E 2E 30 20 49 4E 20 52 45 47 2E 58 2E | 2...0 IN REG.X.| 00001700: 0D 3B 20 41 44 52 45 53 20 28 32 35 34 2C 32 35 |.; ADRES (254,25| 00001710: 33 29 20 57 49 4A 5A 49 47 49 4E 47 20 52 45 47 |3) WIJZIGING REG| 00001720: 2E 59 2E 0D 3B 0D 3B 20 42 49 54 20 20 20 20 37 |.Y..;.; BIT 7| 00001730: 20 20 36 20 20 35 20 20 34 20 20 33 20 20 32 20 | 6 5 4 3 2 | 00001740: 20 31 20 20 30 0D 3B 20 54 45 4B 45 4E 20 20 2A | 1 0.; TEKEN *| 00001750: 20 20 2A 20 20 2A 20 20 56 20 20 56 20 20 56 20 | * * V V V | 00001760: 20 56 20 20 56 0D 3B 20 52 45 47 2E 41 20 20 30 | V V.; REG.A 0| 00001770: 20 20 30 20 20 30 20 20 56 20 20 56 20 20 56 20 | 0 0 V V V | 00001780: 20 56 20 20 56 0D 3B 20 52 45 47 2E 58 20 20 30 | V V.; REG.X 0| 00001790: 20 20 30 20 20 30 20 20 30 20 20 30 20 20 2A 20 | 0 0 0 0 * | 000017A0: 20 2A 20 20 2A 0D 3B 0D 54 4F 45 54 53 20 4C 44 | * *.;.TOETS LD| 000017B0: 41 20 28 32 35 33 29 2C 59 20 20 20 20 20 3B 20 |A (253),Y ; | 000017C0: 44 49 41 50 4F 53 2E 0D 20 20 20 20 20 20 4F 52 |DIAPOS.. OR| 000017D0: 41 20 23 31 32 38 0D 20 20 20 20 20 20 53 54 41 |A #128. STA| 000017E0: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 53 | (253),Y. S| 000017F0: 54 59 20 20 30 30 32 20 20 20 20 20 20 20 20 3B |TY 002 ;| 00001800: 20 52 45 44 20 28 59 29 2E 0D 54 4F 45 54 55 20 | RED (Y)..TOETU | 00001810: 4A 53 52 20 20 24 46 46 45 34 20 20 20 20 20 20 |JSR $FFE4 | 00001820: 3B 20 41 43 43 45 50 54 2E 0D 20 20 20 20 20 20 |; ACCEPT.. | 00001830: 43 4D 50 20 23 30 30 30 0D 20 20 20 20 20 20 42 |CMP #000. B| 00001840: 45 51 20 20 54 4F 45 54 55 0D 20 20 20 20 20 20 |EQ TOETU. | 00001850: 4C 44 59 20 20 30 30 32 20 20 20 20 20 20 20 20 |LDY 002 | 00001860: 3B 20 48 45 52 53 54 45 4C 2E 0D 20 20 20 20 20 |; HERSTEL.. | 00001870: 20 54 41 58 20 20 20 20 20 20 20 20 20 20 20 20 | TAX | 00001880: 20 3B 20 52 45 44 20 54 45 4B 45 4E 2E 0D 20 20 | ; RED TEKEN.. | 00001890: 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 | LDA (253),Y | 000018A0: 20 20 20 20 3B 20 4E 4F 52 4D 41 41 4C 2E 0D 20 | ; NORMAAL.. | 000018B0: 20 20 20 20 20 41 4E 44 20 23 31 32 37 0D 20 20 | AND #127. | 000018C0: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 000018D0: 20 20 20 20 20 20 54 58 41 20 20 20 20 20 20 20 | TXA | 000018E0: 20 20 20 20 20 20 3B 20 48 45 52 53 54 45 4C 2E | ; HERSTEL.| 000018F0: 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 |. PHA. | 00001900: 20 41 4E 44 20 23 32 32 34 20 20 20 20 20 20 20 | AND #224 | 00001910: 20 3B 20 42 49 54 53 20 37 2E 2E 35 2E 0D 20 20 | ; BITS 7..5.. | 00001920: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 52 4F | CLC. RO| 00001930: 4C 20 20 41 20 20 20 20 20 20 20 20 20 20 3B 20 |L A ; | 00001940: 53 43 48 55 49 46 0D 20 20 20 20 20 20 52 4F 4C |SCHUIF. ROL| 00001950: 20 20 41 20 20 20 20 20 20 20 20 20 20 3B 20 4E | A ; N| 00001960: 41 41 52 20 32 2E 2E 30 2E 0D 20 20 20 20 20 20 |AAR 2..0.. | 00001970: 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 4F 4C |ROL A. ROL| 00001980: 20 20 41 20 20 20 20 20 20 20 20 20 20 3B 20 54 | A ; T| 00001990: 45 4B 45 4E 53 4F 4F 52 54 0D 20 20 20 20 20 20 |EKENSOORT. | 000019A0: 54 41 58 20 20 20 20 20 20 20 20 20 20 20 20 20 |TAX | 000019B0: 3B 20 49 4E 20 58 2E 0D 20 20 20 20 20 20 50 4C |; IN X.. PL| 000019C0: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |A ; | 000019D0: 54 45 4B 45 4E 20 49 4E 0D 20 20 20 20 20 20 41 |TEKEN IN. A| 000019E0: 4E 44 20 23 30 33 31 20 20 20 20 20 20 20 20 3B |ND #031 ;| 000019F0: 20 42 49 54 53 20 34 2E 2E 30 2E 0D 20 20 20 20 | BITS 4..0.. | 00001A00: 20 20 52 54 53 0D 20 20 20 20 20 20 2E 50 41 47 | RTS. .PAG| 00001A10: 45 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 35 38 |E. *= 258| 00001A20: 32 34 0D 3B 0D 3B 20 5A 45 54 20 4C 4F 50 45 52 |24.;.; ZET LOPER| 00001A30: 20 52 45 47 45 4C 20 28 58 29 20 4B 4F 4C 4F 4D | REGEL (X) KOLOM| 00001A40: 20 28 59 29 2E 0D 3B 0D 53 45 54 4C 4F 20 43 4C | (Y)..;.SETLO CL| 00001A50: 43 0D 20 20 20 20 20 20 4A 53 52 20 20 24 46 46 |C. JSR $FF| 00001A60: 46 30 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 |F0. RTS.;. | 00001A70: 20 20 20 20 20 2A 3D 20 20 20 32 35 38 33 32 0D | *= 25832.| 00001A80: 3B 0D 3B 20 56 55 4C 20 56 45 4C 44 20 56 41 4E |;.; VUL VELD VAN| 00001A90: 20 45 54 49 4B 45 54 20 4D 45 54 20 28 32 29 2E | ETIKET MET (2).| 00001AA0: 0D 3B 0D 45 54 49 56 55 20 4C 44 58 20 23 30 30 |.;.ETIVU LDX #00| 00001AB0: 33 0D 45 54 49 56 56 20 4C 44 41 20 20 50 42 2C |3.ETIVV LDA PB,| 00001AC0: 58 0D 20 20 20 20 20 20 53 54 41 20 20 59 42 2C |X. STA YB,| 00001AD0: 58 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 |X. DEX. | 00001AE0: 20 20 42 50 4C 20 20 45 54 49 56 56 0D 20 20 20 | BPL ETIVV. | 00001AF0: 20 20 20 4A 53 52 20 20 56 55 4C 45 54 0D 20 20 | JSR VULET. | 00001B00: 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 | RTS.;. | 00001B10: 2A 3D 20 20 20 32 35 38 34 38 0D 3B 0D 3B 20 42 |*= 25848.;.; B| 00001B20: 52 45 4E 47 20 54 45 4B 45 4E 20 41 44 52 45 53 |RENG TEKEN ADRES| 00001B30: 20 28 32 35 34 2C 32 35 33 29 2B 28 59 29 2E 0D | (254,253)+(Y)..| 00001B40: 3B 0D 53 45 54 54 45 20 53 54 41 20 28 32 35 33 |;.SETTE STA (253| 00001B50: 29 2C 59 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D |),Y. RTS.;.| 00001B60: 20 20 20 20 20 20 2A 3D 20 20 20 32 35 38 35 32 | *= 25852| 00001B70: 0D 3B 0D 3B 20 48 41 41 4C 20 54 45 4B 45 4E 20 |.;.; HAAL TEKEN | 00001B80: 41 44 52 45 53 20 28 32 35 34 2C 32 35 33 29 2B |ADRES (254,253)+| 00001B90: 28 59 29 2E 0D 3B 0D 4C 45 53 54 45 20 4C 44 41 |(Y)..;.LESTE LDA| 00001BA0: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 52 | (253),Y. R| 00001BB0: 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 |TS.;. *= | 00001BC0: 32 35 38 35 36 0D 3B 0D 3B 20 50 4F 45 54 53 20 |25856.;.; POETS | 00001BD0: 56 45 4C 44 20 56 41 4E 20 4D 45 4E 55 2E 0D 3B |VELD VAN MENU..;| 00001BE0: 0D 4D 4E 55 50 4F 20 4C 44 58 20 23 30 30 33 0D |.MNUPO LDX #003.| 00001BF0: 4D 4E 55 50 50 20 4C 44 41 20 20 4D 42 2C 58 0D |MNUPP LDA MB,X.| 00001C00: 20 20 20 20 20 20 53 54 41 20 20 59 42 2C 58 0D | STA YB,X.| 00001C10: 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 | DEX. | 00001C20: 42 50 4C 20 20 4D 4E 55 50 50 0D 20 20 20 20 20 |BPL MNUPP. | 00001C30: 20 4C 44 41 20 23 30 33 32 0D 20 20 20 20 20 20 | LDA #032. | 00001C40: 53 54 41 20 20 30 30 32 0D 20 20 20 20 20 20 4A |STA 002. J| 00001C50: 53 52 20 20 56 55 4C 45 54 0D 20 20 20 20 20 20 |SR VULET. | 00001C60: 52 54 53 0D 20 20 20 20 20 20 2E 50 41 47 45 0D |RTS. .PAGE.| 00001C70: 20 20 20 20 20 20 2A 3D 20 20 20 32 35 38 37 38 | *= 25878| 00001C80: 0D 3B 0D 3B 20 56 55 4C 20 44 45 20 52 49 4A 20 |.;.; VUL DE RIJ | 00001C90: 4D 45 54 20 4E 55 4D 4D 45 52 20 49 4E 20 28 58 |MET NUMMER IN (X| 00001CA0: 29 2E 0D 3B 0D 3B 20 20 42 45 47 49 4E 54 45 4B |)..;.; BEGINTEK| 00001CB0: 45 4E 20 28 31 36 37 29 20 49 4E 20 4B 4F 4C 4F |EN (167) IN KOLO| 00001CC0: 4D 20 4B 42 2E 0D 3B 54 55 53 53 45 4E 54 45 4B |M KB..;TUSSENTEK| 00001CD0: 45 4E 53 20 28 31 36 38 29 20 49 4E 20 4B 42 2B |ENS (168) IN KB+| 00001CE0: 31 2E 2E 4B 45 2D 31 2E 0D 3B 20 20 20 45 49 4E |1..KE-1..; EIN| 00001CF0: 44 54 45 4B 45 4E 20 28 31 36 39 29 20 49 4E 20 |DTEKEN (169) IN | 00001D00: 4B 4F 4C 4F 4D 20 4B 45 2E 0D 3B 0D 42 45 54 45 |KOLOM KE..;.BETE| 00001D10: 49 20 4A 53 52 20 20 52 45 47 41 44 0D 20 20 20 |I JSR REGAD. | 00001D20: 20 20 20 4C 44 59 20 20 4B 42 0D 20 20 20 20 20 | LDY KB. | 00001D30: 20 4C 44 41 20 20 31 36 37 0D 20 20 20 20 20 20 | LDA 167. | 00001D40: 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |STA (253),Y. | 00001D50: 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 | CLC. BCC | 00001D60: 20 42 45 54 45 4C 0D 42 45 54 45 4B 20 4C 44 41 | BETEL.BETEK LDA| 00001D70: 20 20 31 36 38 0D 20 20 20 20 20 20 53 54 41 20 | 168. STA | 00001D80: 28 32 35 33 29 2C 59 0D 42 45 54 45 4C 20 49 4E |(253),Y.BETEL IN| 00001D90: 59 0D 20 20 20 20 20 20 43 50 59 20 20 4B 45 0D |Y. CPY KE.| 00001DA0: 20 20 20 20 20 20 42 43 43 20 20 42 45 54 45 4B | BCC BETEK| 00001DB0: 0D 20 20 20 20 20 20 4C 44 41 20 20 31 36 39 0D |. LDA 169.| 00001DC0: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),| 00001DD0: 59 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 |Y. RTS.;. | 00001DE0: 20 20 20 20 2A 3D 20 20 20 32 35 39 30 38 0D 3B | *= 25908.;| 00001DF0: 0D 3B 20 56 55 4C 20 44 45 20 4B 4F 4C 4F 4D 20 |.; VUL DE KOLOM | 00001E00: 4F 50 20 50 4C 41 41 54 53 20 28 59 29 2E 0D 3B |OP PLAATS (Y)..;| 00001E10: 20 52 45 47 45 4C 20 50 42 20 54 4F 54 20 45 4E | REGEL PB TOT EN| 00001E20: 20 4D 45 54 20 50 45 2E 0D 3B 20 54 45 4B 45 4E | MET PE..; TEKEN| 00001E30: 20 49 4E 20 32 2E 0D 3B 0D 4B 4F 4C 56 55 20 4C | IN 2..;.KOLVU L| 00001E40: 44 41 20 20 50 42 0D 20 20 20 20 20 20 43 4C 43 |DA PB. CLC| 00001E50: 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 |. ROL A. | 00001E60: 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 4C 44 | TAX. LD| 00001E70: 41 20 20 50 45 0D 20 20 20 20 20 20 43 4C 43 0D |A PE. CLC.| 00001E80: 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 | ROL A. | 00001E90: 20 20 20 53 54 41 20 20 31 36 39 0D 20 20 20 20 | STA 169. | 00001EA0: 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 | CLC. BCC | 00001EB0: 20 4B 4F 4C 56 57 0D 4B 4F 4C 56 56 20 49 4E 58 | KOLVW.KOLVV INX| 00001EC0: 0D 20 20 20 20 20 20 49 4E 58 0D 4B 4F 4C 56 57 |. INX.KOLVW| 00001ED0: 20 4C 44 41 20 20 30 30 37 30 30 2C 58 0D 20 20 | LDA 00700,X. | 00001EE0: 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 | STA 253. | 00001EF0: 20 20 20 4C 44 41 20 20 30 30 37 30 31 2C 58 0D | LDA 00701,X.| 00001F00: 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 | STA 254. | 00001F10: 20 20 20 20 20 4C 44 41 20 20 30 30 32 0D 20 20 | LDA 002. | 00001F20: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 00001F30: 20 20 20 20 20 20 43 50 58 20 20 31 36 39 0D 20 | CPX 169. | 00001F40: 20 20 20 20 20 42 43 43 20 20 4B 4F 4C 56 56 0D | BCC KOLVV.| 00001F50: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00001F60: 2E 50 41 47 45 0D 20 20 20 20 20 20 2A 3D 20 20 |.PAGE. *= | 00001F70: 20 32 35 39 34 38 0D 3B 0D 3B 20 20 4F 50 45 4E | 25948.;.; OPEN| 00001F80: 45 4E 20 50 52 49 4E 54 45 52 3A 20 46 49 4C 45 |EN PRINTER: FILE| 00001F90: 4E 52 2E 34 2E 0D 3B 0D 50 4F 50 45 4E 20 54 58 |NR.4..;.POPEN TX| 00001FA0: 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 52 45 |A ; RE| 00001FB0: 44 0D 20 20 20 20 20 20 50 48 41 20 20 20 20 20 |D. PHA | 00001FC0: 20 20 20 20 20 20 3B 20 28 58 29 2E 0D 20 20 20 | ; (X).. | 00001FD0: 20 20 20 4C 44 41 20 23 30 30 34 20 20 20 20 20 | LDA #004 | 00001FE0: 20 3B 20 46 49 4C 45 4E 55 4D 4D 45 52 2E 0D 20 | ; FILENUMMER.. | 00001FF0: 20 20 20 20 20 4C 44 58 20 23 30 30 34 20 20 20 | LDX #004 | 00002000: 20 20 20 3B 20 54 4F 45 53 54 45 4C 2E 0D 20 20 | ; TOESTEL.. | 00002010: 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 | LDY #000 | 00002020: 20 20 3B 20 53 45 43 2E 41 44 52 45 53 2E 0D 20 | ; SEC.ADRES.. | 00002030: 20 20 20 20 20 4A 53 52 20 20 24 46 46 42 41 20 | JSR $FFBA | 00002040: 20 20 20 3B 20 2A 2A 53 45 54 4C 46 53 2A 2A 0D | ; **SETLFS**.| 00002050: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 | LDA #000 | 00002060: 20 20 20 20 3B 20 47 45 45 4E 20 4E 41 41 4D 2E | ; GEEN NAAM.| 00002070: 0D 20 20 20 20 20 20 4A 53 52 20 20 24 46 46 42 |. JSR $FFB| 00002080: 44 20 20 20 20 3B 20 2A 2A 53 45 54 4E 41 4D 2A |D ; **SETNAM*| 00002090: 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 24 46 46 |*. JSR $FF| 000020A0: 43 30 20 20 20 20 3B 20 2A 2A 20 4F 50 45 4E 20 |C0 ; ** OPEN | 000020B0: 2A 2A 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 |**. LDX #00| 000020C0: 34 20 20 20 20 20 20 3B 20 46 49 4C 45 20 23 34 |4 ; FILE #4| 000020D0: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 24 46 46 |.. JSR $FF| 000020E0: 43 39 20 20 20 20 3B 20 2A 2A 43 48 4B 4F 55 54 |C9 ; **CHKOUT| 000020F0: 2A 2A 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 |**. PLA | 00002100: 20 20 20 20 20 20 20 3B 20 48 45 52 53 54 45 4C | ; HERSTEL| 00002110: 0D 20 20 20 20 20 20 54 41 58 20 20 20 20 20 20 |. TAX | 00002120: 20 20 20 20 20 3B 20 28 58 29 2E 0D 20 20 20 20 | ; (X).. | 00002130: 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D | RTS.;. *=| 00002140: 20 20 20 32 35 39 37 36 0D 3B 0D 3B 20 50 52 49 | 25976.;.; PRI| 00002150: 4E 54 20 50 52 49 4E 54 43 4F 44 45 54 45 4B 45 |NT PRINTCODETEKE| 00002160: 4E 52 49 4A 45 4E 20 55 49 54 2E 0D 3B 20 42 45 |NRIJEN UIT..; BE| 00002170: 47 49 4E 41 44 52 45 53 20 54 45 56 4F 52 45 4E |GINADRES TEVOREN| 00002180: 0D 3B 20 49 4E 20 56 45 43 54 4F 52 20 28 42 55 |.; IN VECTOR (BU| 00002190: 42 31 2C 42 55 42 30 29 2E 0D 3B 0D 50 4B 41 52 |B1,BUB0)..;.PKAR| 000021A0: 59 20 4C 44 41 20 20 42 55 42 30 20 20 20 20 20 |Y LDA BUB0 | 000021B0: 3B 20 42 55 46 46 45 52 42 45 47 49 4E 2D 0D 20 |; BUFFERBEGIN-. | 000021C0: 20 20 20 20 20 53 54 41 20 20 32 35 33 20 20 20 | STA 253 | 000021D0: 20 20 20 3B 20 41 44 52 45 53 56 45 43 54 4F 52 | ; ADRESVECTOR| 000021E0: 0D 20 20 20 20 20 20 4C 44 41 20 20 42 55 42 31 |. LDA BUB1| 000021F0: 20 20 20 20 20 3B 20 49 4E 20 56 45 43 54 4F 52 | ; IN VECTOR| 00002200: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 20 |. STA 254 | 00002210: 20 20 20 20 20 3B 20 28 32 35 34 2C 32 35 33 29 | ; (254,253)| 00002220: 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |.. CLC | 00002230: 20 20 20 20 20 20 3B 20 45 45 52 53 54 45 20 4D | ; EERSTE M| 00002240: 41 41 4C 2E 0D 20 20 20 20 20 20 42 43 43 20 20 |AAL.. BCC | 00002250: 50 4B 41 52 33 0D 50 4B 41 52 31 20 53 54 41 20 |PKAR3.PKAR1 STA | 00002260: 20 30 30 32 20 20 20 20 20 20 3B 20 4C 45 4E 47 | 002 ; LENG| 00002270: 54 45 2E 20 44 41 4E 0D 50 4B 41 52 32 20 49 4E |TE. DAN.PKAR2 IN| 00002280: 59 20 20 20 20 20 20 20 20 20 20 20 3B 20 54 45 |Y ; TE| 00002290: 4B 45 4E 20 4F 50 56 4F 45 2D 0D 20 20 20 20 20 |KEN OPVOE-. | 000022A0: 20 4C 44 41 20 28 32 35 33 29 2C 59 20 20 20 3B | LDA (253),Y ;| 000022B0: 20 52 45 4E 2C 20 50 52 49 4E 54 2E 0D 20 20 20 | REN, PRINT.. | 000022C0: 20 20 20 4A 53 52 20 20 24 46 46 44 32 20 20 20 | JSR $FFD2 | 000022D0: 20 3B 20 2A 2A 43 48 52 4F 55 54 2A 2A 0D 20 20 | ; **CHROUT**. | 000022E0: 20 20 20 20 43 50 59 20 20 30 30 32 20 20 20 20 | CPY 002 | 000022F0: 20 20 3B 20 4C 41 41 54 53 54 45 3F 0D 20 20 20 | ; LAATSTE?. | 00002300: 20 20 20 42 43 43 20 20 50 4B 41 52 32 20 20 20 | BCC PKAR2 | 00002310: 20 3B 20 4E 45 45 3A 56 4F 4C 47 45 4E 44 2E 0D | ; NEE:VOLGEND..| 00002320: 20 20 20 20 20 20 53 45 43 20 20 20 20 20 20 20 | SEC | 00002330: 20 20 20 20 3B 20 20 4A 41 3A 4F 50 54 45 4C 4C | ; JA:OPTELL| 00002340: 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 |EN. LDA 00| 00002350: 32 20 20 20 20 20 20 3B 20 4C 45 4E 47 54 45 2B |2 ; LENGTE+| 00002360: 31 20 42 49 4A 0D 20 20 20 20 20 20 41 44 43 20 |1 BIJ. ADC | 00002370: 20 32 35 33 20 20 20 20 20 20 3B 20 28 32 35 34 | 253 ; (254| 00002380: 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 53 54 41 |,253).. STA| 00002390: 20 20 32 35 33 0D 20 20 20 20 20 20 4C 44 41 20 | 253. LDA | 000023A0: 23 30 30 30 0D 20 20 20 20 20 20 41 44 43 20 20 |#000. ADC | 000023B0: 32 35 34 0D 20 20 20 20 20 20 53 54 41 20 20 32 |254. STA 2| 000023C0: 35 34 0D 50 4B 41 52 33 20 4C 44 59 20 23 30 30 |54.PKAR3 LDY #00| 000023D0: 30 20 20 20 20 20 20 3B 20 4C 45 4E 47 54 45 42 |0 ; LENGTEB| 000023E0: 59 54 45 0D 20 20 20 20 20 20 4C 44 41 20 28 32 |YTE. LDA (2| 000023F0: 35 33 29 2C 59 20 20 20 3B 20 4F 50 56 4F 45 52 |53),Y ; OPVOER| 00002400: 45 4E 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 50 |EN.. BNE P| 00002410: 4B 41 52 31 20 20 20 20 3B 20 4E 55 4C 3F 20 4A |KAR1 ; NUL? J| 00002420: 41 3A 55 49 54 2E 0D 20 20 20 20 20 20 52 54 53 |A:UIT.. RTS| 00002430: 20 20 20 20 20 20 20 20 20 20 20 3B 20 4E 45 45 | ; NEE| 00002440: 3A 54 45 52 55 47 2E 0D 20 20 20 20 20 20 2E 50 |:TERUG.. .P| 00002450: 41 47 45 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 |AGE. *= 2| 00002460: 36 30 32 38 0D 3B 0D 3B 20 53 4C 55 49 54 45 4E |6028.;.; SLUITEN| 00002470: 20 50 52 49 4E 54 45 52 3A 20 46 49 4C 45 4E 52 | PRINTER: FILENR| 00002480: 2E 34 2E 0D 3B 0D 50 43 4C 4F 53 20 4C 44 41 20 |.4..;.PCLOS LDA | 00002490: 23 30 30 34 0D 20 20 20 20 20 20 4A 53 52 20 20 |#004. JSR | 000024A0: 24 46 46 43 33 20 20 20 20 3B 20 2A 2A 43 4C 4F |$FFC3 ; **CLO| 000024B0: 53 45 20 2A 2A 0D 20 20 20 20 20 20 4A 53 52 20 |SE **. JSR | 000024C0: 20 24 46 46 45 37 20 20 20 20 3B 20 2A 2A 43 4C | $FFE7 ; **CL| 000024D0: 41 4C 4C 20 2A 2A 0D 20 20 20 20 20 20 52 54 53 |ALL **. RTS| 000024E0: 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 36 |.;. *= 26| 000024F0: 30 34 30 0D 3B 0D 3B 20 43 4F 44 45 52 45 4E 20 |040.;.; CODEREN | 00002500: 50 52 49 4E 54 54 45 4B 45 4E 20 4E 41 41 52 20 |PRINTTEKEN NAAR | 00002510: 42 55 46 46 45 52 2E 0D 3B 20 20 49 4E 2D 20 45 |BUFFER..; IN- E| 00002520: 4E 20 55 49 54 47 41 4E 47 53 52 45 47 49 53 54 |N UITGANGSREGIST| 00002530: 45 52 20 41 2E 0D 3B 0D 50 43 4F 44 45 20 43 4D |ER A..;.PCODE CM| 00002540: 50 20 23 30 32 37 20 20 20 20 20 20 3B 20 50 43 |P #027 ; PC| 00002550: 4F 44 45 53 45 54 2D 32 0D 20 20 20 20 20 20 42 |ODESET-2. B| 00002560: 43 43 20 20 50 43 4F 44 31 20 20 20 20 3B 20 4B |CC PCOD1 ; K| 00002570: 4C 45 49 4E 45 20 4C 54 54 2E 0D 20 20 20 20 20 |LEINE LTT.. | 00002580: 20 43 4D 50 20 23 30 33 32 20 20 20 20 20 20 3B | CMP #032 ;| 00002590: 20 5B 5C 5D 5E 5F 0D 20 20 20 20 20 20 42 43 43 | [\]^_. BCC| 000025A0: 20 20 50 43 4F 44 32 0D 20 20 20 20 20 20 43 4D | PCOD2. CM| 000025B0: 50 20 23 30 39 31 20 20 20 20 20 20 3B 20 4C 45 |P #091 ; LE| 000025C0: 45 53 54 45 4B 45 4E 53 0D 20 20 20 20 20 20 42 |ESTEKENS. B| 000025D0: 43 43 20 20 50 43 4F 44 39 20 20 20 20 3B 20 26 |CC PCOD9 ; &| 000025E0: 20 48 4F 4F 46 44 4C 54 54 2E 0D 20 20 20 20 20 | HOOFDLTT.. | 000025F0: 20 43 4D 50 20 23 30 39 36 20 20 20 20 20 20 3B | CMP #096 ;| 00002600: 20 41 43 43 4F 4C 41 44 45 53 2E 0D 20 20 20 20 | ACCOLADES.. | 00002610: 20 20 42 43 43 20 20 50 43 4F 44 34 20 20 20 20 | BCC PCOD4 | 00002620: 3B 20 4F 56 45 52 49 47 45 2E 0D 20 20 20 20 20 |; OVERIGE.. | 00002630: 20 4A 53 52 20 20 54 41 56 45 52 0D 20 20 20 20 | JSR TAVER. | 00002640: 20 20 52 54 53 0D 50 43 4F 44 31 20 4F 52 41 20 | RTS.PCOD1 ORA | 00002650: 23 30 39 36 20 20 20 20 20 20 3B 20 4B 4C 45 49 |#096 ; KLEI| 00002660: 4E 45 20 4C 54 54 2E 0D 20 20 20 20 20 20 52 54 |NE LTT.. RT| 00002670: 53 0D 50 43 4F 44 32 20 4F 52 41 20 23 30 36 34 |S.PCOD2 ORA #064| 00002680: 20 20 20 20 20 20 3B 20 53 50 45 4B 48 41 4B 45 | ; SPEKHAKE| 00002690: 4E 2E 0D 20 20 20 20 20 20 52 54 53 0D 50 43 4F |N.. RTS.PCO| 000026A0: 44 34 20 4F 52 41 20 23 30 33 32 20 20 20 20 20 |D4 ORA #032 | 000026B0: 20 3B 20 41 43 43 4F 4C 41 44 45 53 2E 0D 50 43 | ; ACCOLADES..PC| 000026C0: 4F 44 39 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 |OD9 RTS.;. | 000026D0: 2A 3D 20 20 20 32 36 30 37 32 0D 3B 0D 3B 20 49 |*= 26072.;.; I| 000026E0: 4E 20 44 45 20 42 55 46 46 45 52 50 52 4F 47 52 |N DE BUFFERPROGR| 000026F0: 41 4D 4D 41 27 53 3A 0D 3B 20 52 45 44 44 45 4E |AMMA'S:.; REDDEN| 00002700: 20 56 41 4E 20 28 59 29 20 53 43 41 4E 3A 20 28 | VAN (Y) SCAN: (| 00002710: 31 37 30 29 2E 0D 3B 20 5A 45 54 54 45 4E 20 56 |170)..; ZETTEN V| 00002720: 41 4E 20 28 59 29 20 56 55 4C 20 3A 20 28 31 37 |AN (Y) VUL : (17| 00002730: 31 29 2E 0D 3B 20 52 45 47 45 4C 49 4E 44 45 58 |1)..; REGELINDEX| 00002740: 20 28 58 29 20 4E 49 45 54 20 47 45 42 52 55 49 | (X) NIET GEBRUI| 00002750: 4B 54 2E 0D 3B 0D 3B 20 48 45 54 20 49 4E 4C 4F |KT..;.; HET INLO| 00002760: 4F 50 2D 53 55 42 50 52 4F 47 52 41 4D 4D 41 20 |OP-SUBPROGRAMMA | 00002770: 5A 45 54 20 48 45 54 0D 3B 20 42 55 46 46 45 52 |ZET HET.; BUFFER| 00002780: 42 45 47 49 4E 41 44 52 45 53 20 49 4E 20 28 32 |BEGINADRES IN (2| 00002790: 35 32 2C 32 35 31 29 2E 0D 3B 0D 49 4E 4C 4F 42 |52,251)..;.INLOB| 000027A0: 20 53 54 59 20 20 31 37 30 20 20 20 20 20 20 3B | STY 170 ;| 000027B0: 20 52 45 44 20 28 59 29 2E 0D 20 20 20 20 20 20 | RED (Y).. | 000027C0: 4C 44 41 20 20 42 55 42 30 20 20 20 20 20 3B 20 |LDA BUB0 ; | 000027D0: 42 55 46 46 45 52 42 45 47 49 4E 2D 0D 20 20 20 |BUFFERBEGIN-. | 000027E0: 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 20 | STA 251 | 000027F0: 20 3B 20 41 44 52 45 53 56 45 43 54 4F 52 0D 20 | ; ADRESVECTOR. | 00002800: 20 20 20 20 20 4C 44 41 20 20 42 55 42 31 20 20 | LDA BUB1 | 00002810: 20 20 20 3B 20 49 4E 20 56 45 43 54 4F 52 0D 20 | ; IN VECTOR. | 00002820: 20 20 20 20 20 53 54 41 20 20 32 35 32 20 20 20 | STA 252 | 00002830: 20 20 20 3B 20 28 32 35 32 2C 32 35 31 29 2E 0D | ; (252,251)..| 00002840: 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 0D 20 | LDY #000. | 00002850: 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 20 | TYA | 00002860: 20 20 20 3B 20 4C 45 4E 47 54 45 42 59 54 45 0D | ; LENGTEBYTE.| 00002870: 20 20 20 20 20 20 53 54 41 20 28 32 35 31 29 2C | STA (251),| 00002880: 59 20 20 20 3B 20 4F 50 20 4E 55 4C 20 45 4E 0D |Y ; OP NUL EN.| 00002890: 20 20 20 20 20 20 53 54 59 20 20 31 37 31 20 20 | STY 171 | 000028A0: 20 20 20 20 3B 20 49 4E 20 56 55 4C 54 45 4C 2E | ; IN VULTEL.| 000028B0: 0D 20 20 20 20 20 20 4C 44 59 20 20 31 37 30 20 |. LDY 170 | 000028C0: 20 20 20 20 20 3B 20 28 59 29 20 54 45 52 55 47 | ; (Y) TERUG| 000028D0: 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |.. RTS. | 000028E0: 20 20 2E 50 41 47 45 0D 20 20 20 20 20 20 2A 3D | .PAGE. *=| 000028F0: 20 20 20 32 36 30 39 36 0D 3B 0D 3B 20 42 55 46 | 26096.;.; BUF| 00002900: 46 45 52 20 56 55 4C 4C 45 4E 20 4D 45 54 20 50 |FER VULLEN MET P| 00002910: 52 49 4E 54 45 52 43 4F 44 45 2E 0D 3B 20 44 45 |RINTERCODE..; DE| 00002920: 20 43 4F 44 45 20 54 45 20 56 4F 52 45 4E 20 49 | CODE TE VOREN I| 00002930: 4E 20 52 45 47 49 53 54 45 52 20 41 2E 0D 3B 0D |N REGISTER A..;.| 00002940: 56 55 4C 4F 42 20 53 54 59 20 20 31 37 30 20 20 |VULOB STY 170 | 00002950: 20 20 20 20 3B 20 52 45 44 20 28 59 29 2E 0D 20 | ; RED (Y).. | 00002960: 20 20 20 20 20 4C 44 59 20 20 31 37 31 20 20 20 | LDY 171 | 00002970: 20 20 20 3B 20 56 55 4C 54 45 4C 0D 20 20 20 20 | ; VULTEL. | 00002980: 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 | INY | 00002990: 3B 20 45 45 4E 20 42 49 4A 2E 0D 20 20 20 20 20 |; EEN BIJ.. | 000029A0: 20 53 54 41 20 28 32 35 31 29 2C 59 20 20 20 3B | STA (251),Y ;| 000029B0: 20 28 41 29 20 49 4E 20 52 49 4A 2E 0D 20 20 20 | (A) IN RIJ.. | 000029C0: 20 20 20 53 54 59 20 20 31 37 31 20 20 20 20 20 | STY 171 | 000029D0: 20 3B 20 52 45 44 20 56 55 4C 54 45 4C 2E 0D 20 | ; RED VULTEL.. | 000029E0: 20 20 20 20 20 4C 44 59 20 20 31 37 30 20 20 20 | LDY 170 | 000029F0: 20 20 20 3B 20 48 45 52 53 54 45 4C 20 28 59 29 | ; HERSTEL (Y)| 00002A00: 2E 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 |.. RTS.;. | 00002A10: 20 20 20 20 2A 3D 20 20 20 32 36 31 31 32 0D 3B | *= 26112.;| 00002A20: 0D 3B 20 52 49 4A 4C 45 4E 47 54 45 20 5A 45 54 |.; RIJLENGTE ZET| 00002A30: 54 45 4E 20 49 4E 20 4C 45 4E 47 54 45 42 59 54 |TEN IN LENGTEBYT| 00002A40: 45 2E 0D 3B 20 54 45 56 45 4E 53 20 42 45 47 49 |E..; TEVENS BEGI| 00002A50: 4E 41 44 52 45 53 20 4F 50 48 4F 47 45 4E 20 4D |NADRES OPHOGEN M| 00002A60: 45 54 0D 3B 20 20 4C 45 4E 47 54 45 20 2B 20 31 |ET.; LENGTE + 1| 00002A70: 2E 0D 3B 0D 3B 20 54 45 56 45 4E 53 20 57 4F 52 |..;.; TEVENS WOR| 00002A80: 44 54 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 4C |DT DE VOLGENDE L| 00002A90: 45 4E 47 54 45 0D 3B 20 4F 50 20 4E 55 4C 20 47 |ENGTE.; OP NUL G| 00002AA0: 45 5A 45 54 20 56 4F 4F 52 20 48 45 54 20 45 49 |EZET VOOR HET EI| 00002AB0: 4E 44 45 20 56 41 4E 0D 3B 20 48 45 54 20 55 49 |NDE VAN.; HET UI| 00002AC0: 54 50 52 49 4E 54 45 4E 2E 0D 3B 0D 55 54 4C 4F |TPRINTEN..;.UTLO| 00002AD0: 42 20 53 54 59 20 20 31 37 30 20 20 20 20 20 20 |B STY 170 | 00002AE0: 3B 20 52 45 44 20 28 59 29 2E 0D 20 20 20 20 20 |; RED (Y).. | 00002AF0: 20 4C 44 59 20 23 30 30 30 20 20 20 20 20 20 3B | LDY #000 ;| 00002B00: 20 4C 45 4E 47 54 45 2E 0D 20 20 20 20 20 20 4C | LENGTE.. L| 00002B10: 44 41 20 20 31 37 31 20 20 20 20 20 20 3B 20 5A |DA 171 ; Z| 00002B20: 45 54 20 56 4F 4F 52 41 41 4E 0D 20 20 20 20 20 |ET VOORAAN. | 00002B30: 20 53 54 41 20 28 32 35 31 29 2C 59 20 20 20 3B | STA (251),Y ;| 00002B40: 20 49 4E 20 44 45 20 52 49 4A 2E 0D 20 20 20 20 | IN DE RIJ.. | 00002B50: 20 20 53 45 43 20 20 20 20 20 20 20 20 20 20 20 | SEC | 00002B60: 3B 20 4C 45 4E 47 54 45 20 2B 20 31 0D 20 20 20 |; LENGTE + 1. | 00002B70: 20 20 20 41 44 43 20 20 32 35 31 20 20 20 20 20 | ADC 251 | 00002B80: 20 3B 20 54 45 4C 4C 45 4E 20 42 49 4A 0D 20 20 | ; TELLEN BIJ. | 00002B90: 20 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 | STA 251 | 00002BA0: 20 20 3B 20 41 44 52 45 53 56 45 43 54 4F 52 0D | ; ADRESVECTOR.| 00002BB0: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 | LDA #000 | 00002BC0: 20 20 20 20 3B 20 28 32 35 32 2C 32 35 31 29 2E | ; (252,251).| 00002BD0: 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 32 0D |. ADC 252.| 00002BE0: 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 | STA 252. | 00002BF0: 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 | LDY #000 | 00002C00: 20 20 20 3B 20 4E 41 20 44 45 20 52 49 4A 0D 20 | ; NA DE RIJ. | 00002C10: 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 20 | TYA | 00002C20: 20 20 20 3B 20 4E 49 45 55 57 45 20 4C 45 4E 47 | ; NIEUWE LENG| 00002C30: 2D 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 31 |-. STA (251| 00002C40: 29 2C 59 20 20 20 3B 20 54 45 42 59 54 45 20 4E |),Y ; TEBYTE N| 00002C50: 55 4C 2E 0D 20 20 20 20 20 20 53 54 59 20 20 31 |UL.. STY 1| 00002C60: 37 31 20 20 20 20 20 20 3B 20 49 4E 20 56 55 4C |71 ; IN VUL| 00002C70: 54 45 4C 2E 0D 20 20 20 20 20 20 4C 44 59 20 20 |TEL.. LDY | 00002C80: 31 37 30 20 20 20 20 20 20 3B 20 48 45 52 53 54 |170 ; HERST| 00002C90: 45 4C 20 28 59 29 2E 0D 20 20 20 20 20 20 52 54 |EL (Y).. RT| 00002CA0: 53 0D 20 20 20 20 20 20 2E 50 41 47 45 0D 20 20 |S. .PAGE. | 00002CB0: 20 20 20 20 2A 3D 20 20 20 32 36 31 34 34 0D 3B | *= 26144.;| 00002CC0: 0D 3B 20 42 52 45 4E 47 20 45 45 4E 20 45 54 49 |.; BRENG EEN ETI| 00002CD0: 4B 45 54 20 4E 41 41 52 20 44 45 20 42 55 46 46 |KET NAAR DE BUFF| 00002CE0: 45 52 2E 0D 3B 0D 45 54 49 42 56 20 4A 53 52 20 |ER..;.ETIBV JSR | 00002CF0: 20 49 4E 4C 4F 42 20 20 20 20 3B 20 49 4E 4C 4F | INLOB ; INLO| 00002D00: 4F 50 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 50 |OP.. JSR P| 00002D10: 52 49 53 54 20 20 20 20 3B 20 50 52 49 4E 54 45 |RIST ; PRINTE| 00002D20: 52 2D 0D 20 20 20 20 20 20 4A 53 52 20 20 55 54 |R-. JSR UT| 00002D30: 4C 4F 42 20 20 20 20 3B 20 49 4E 53 54 45 4C 4C |LOB ; INSTELL| 00002D40: 49 4E 47 2E 0D 20 20 20 20 20 20 54 58 41 20 20 |ING.. TXA | 00002D50: 20 20 20 20 20 20 20 20 20 3B 20 42 45 47 49 4E | ; BEGIN| 00002D60: 52 2E 53 4C 55 49 54 0D 20 20 20 20 20 20 50 48 |R.SLUIT. PH| 00002D70: 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 45 4E |A ; EN| 00002D80: 20 52 45 44 20 28 58 29 2E 0D 20 20 20 20 20 20 | RED (X).. | 00002D90: 4C 44 58 20 20 50 42 20 20 20 20 20 20 20 3B 20 |LDX PB ; | 00002DA0: 53 43 48 45 52 4D 52 45 47 45 4C 0D 20 20 20 20 |SCHERMREGEL. | 00002DB0: 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 | CLC | 00002DC0: 3B 20 45 54 49 4B 2E 42 45 47 49 4E 2E 0D 20 20 |; ETIK.BEGIN.. | 00002DD0: 20 20 20 20 42 43 43 20 20 45 54 49 42 32 20 20 | BCC ETIB2 | 00002DE0: 20 20 3B 20 52 45 47 45 4C 20 23 31 2E 0D 45 54 | ; REGEL #1..ET| 00002DF0: 49 42 31 20 49 4E 58 20 20 20 20 20 20 20 20 20 |IB1 INX | 00002E00: 20 20 3B 20 52 45 47 45 4C 20 23 32 2C 2E 2E 2E | ; REGEL #2,...| 00002E10: 0D 45 54 49 42 32 20 4A 53 52 20 20 52 45 47 41 |.ETIB2 JSR REGA| 00002E20: 44 20 20 20 20 3B 20 52 45 47 2E 28 58 29 20 41 |D ; REG.(X) A| 00002E30: 44 52 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C |DR.. JSR L| 00002E40: 49 4E 42 4C 20 20 20 20 3B 20 45 45 52 53 54 45 |INBL ; EERSTE| 00002E50: 20 4E 49 45 54 2D 0D 20 20 20 20 20 20 42 43 53 | NIET-. BCS| 00002E60: 20 20 45 54 49 42 35 20 20 20 20 3B 20 42 4C 41 | ETIB5 ; BLA| 00002E70: 4E 4B 45 20 54 45 4B 45 4E 0D 20 20 20 20 20 20 |NKE TEKEN. | 00002E80: 53 54 59 20 20 31 36 37 20 20 20 20 20 20 3B 20 |STY 167 ; | 00002E90: 49 4E 44 49 45 4E 20 52 45 47 45 4C 0D 20 20 20 |INDIEN REGEL. | 00002EA0: 20 20 20 4A 53 52 20 20 52 45 4E 42 4C 20 20 20 | JSR RENBL | 00002EB0: 20 3B 20 4E 49 45 54 20 4C 45 45 47 2E 0D 20 20 | ; NIET LEEG.. | 00002EC0: 20 20 20 20 53 54 59 20 20 31 36 38 20 20 20 20 | STY 168 | 00002ED0: 20 20 3B 20 52 45 43 48 54 53 20 4E 49 45 54 2D | ; RECHTS NIET-| 00002EE0: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 37 20 |. LDA #027 | 00002EF0: 20 20 20 20 20 3B 20 42 4C 41 4E 4B 20 54 45 4B | ; BLANK TEK| 00002F00: 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 56 |EN.. JSR V| 00002F10: 55 4C 4F 42 20 20 20 20 3B 20 4C 49 4E 4B 45 52 |ULOB ; LINKER| 00002F20: 4D 41 52 47 45 2E 0D 20 20 20 20 20 20 4C 44 41 |MARGE.. LDA| 00002F30: 20 23 31 30 38 0D 20 20 20 20 20 20 4A 53 52 20 | #108. JSR | 00002F40: 20 56 55 4C 4F 42 0D 20 20 20 20 20 20 4C 44 41 | VULOB. LDA| 00002F50: 20 20 31 36 37 0D 20 20 20 20 20 20 4A 53 52 20 | 167. JSR | 00002F60: 20 56 55 4C 4F 42 0D 20 20 20 20 20 20 4C 44 59 | VULOB. LDY| 00002F70: 20 20 31 36 37 20 20 20 20 20 20 3B 20 45 45 52 | 167 ; EER| 00002F80: 53 54 45 0D 20 20 20 20 20 20 43 4C 43 20 20 20 |STE. CLC | 00002F90: 20 20 20 20 20 20 20 20 3B 20 54 45 4B 45 4E 2E | ; TEKEN.| 00002FA0: 0D 20 20 20 20 20 20 42 43 43 20 20 45 54 49 42 |. BCC ETIB| 00002FB0: 34 0D 45 54 49 42 33 20 49 4E 59 0D 45 54 49 42 |4.ETIB3 INY.ETIB| 00002FC0: 34 20 4C 44 41 20 28 32 35 33 29 2C 59 20 20 20 |4 LDA (253),Y | 00002FD0: 3B 20 56 4F 45 52 20 54 45 4B 2E 4F 50 2E 0D 20 |; VOER TEK.OP.. | 00002FE0: 20 20 20 20 20 4A 53 52 20 20 50 43 4F 44 45 20 | JSR PCODE | 00002FF0: 20 20 20 3B 20 4D 41 41 4B 20 50 52 49 4E 54 2D | ; MAAK PRINT-| 00003000: 0D 20 20 20 20 20 20 4A 53 52 20 20 56 55 4C 4F |. JSR VULO| 00003010: 42 20 20 20 20 3B 20 43 4F 44 45 20 45 4E 20 56 |B ; CODE EN V| 00003020: 55 4C 2E 0D 20 20 20 20 20 20 43 50 59 20 20 31 |UL.. CPY 1| 00003030: 36 38 0D 20 20 20 20 20 20 42 43 43 20 20 45 54 |68. BCC ET| 00003040: 49 42 33 0D 45 54 49 42 35 20 4C 44 41 20 23 30 |IB3.ETIB5 LDA #0| 00003050: 31 33 20 20 20 20 20 20 3B 20 45 49 4E 44 20 56 |13 ; EIND V| 00003060: 41 4E 0D 20 20 20 20 20 20 4A 53 52 20 20 56 55 |AN. JSR VU| 00003070: 4C 4F 42 20 20 20 20 3B 20 52 45 47 45 4C 3A 5A |LOB ; REGEL:Z| 00003080: 45 54 0D 20 20 20 20 20 20 4A 53 52 20 20 55 54 |ET. JSR UT| 00003090: 4C 4F 42 20 20 20 20 3B 20 52 45 54 55 52 4E 20 |LOB ; RETURN | 000030A0: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |EN. | 000030B0: 20 20 20 20 20 20 20 3B 20 4C 45 4E 47 54 45 42 | ; LENGTEB| 000030C0: 59 54 45 2E 0D 20 20 20 20 20 20 43 50 58 20 20 |YTE.. CPX | 000030D0: 50 45 20 20 20 20 20 20 20 3B 20 45 49 4E 44 3F |PE ; EIND?| 000030E0: 20 4E 45 45 4E 3A 0D 20 20 20 20 20 20 42 43 43 | NEEN:. BCC| 000030F0: 20 20 45 54 49 42 31 20 20 20 20 3B 20 56 4F 4C | ETIB1 ; VOL| 00003100: 47 2E 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 50 |G.REGEL.. P| 00003110: 4C 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 48 |LA ; H| 00003120: 45 52 53 54 45 4C 0D 20 20 20 20 20 20 54 41 58 |ERSTEL. TAX| 00003130: 20 20 20 20 20 20 20 20 20 20 20 3B 20 28 58 29 | ; (X)| 00003140: 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |.. RTS. | 00003150: 20 20 2E 50 41 47 45 0D 20 20 20 20 20 20 2A 3D | .PAGE. *=| 00003160: 20 20 20 32 36 32 34 30 0D 3B 0D 3B 20 53 43 48 | 26240.;.; SCH| 00003170: 55 49 46 20 45 45 4E 20 42 59 54 45 52 49 4A 20 |UIF EEN BYTERIJ | 00003180: 4E 41 41 52 20 45 45 4E 0D 3B 20 41 44 52 45 53 |NAAR EEN.; ADRES| 00003190: 20 45 45 4E 20 4C 41 47 45 52 2E 0D 3B 0D 3B 20 | EEN LAGER..;.; | 000031A0: 42 45 47 49 4E 50 4F 53 49 54 49 45 20 20 20 20 |BEGINPOSITIE | 000031B0: 20 20 3A 20 28 31 36 38 29 2E 0D 3B 20 20 45 49 | : (168)..; EI| 000031C0: 4E 44 50 4F 53 49 54 49 45 20 20 20 20 20 20 3A |NDPOSITIE :| 000031D0: 20 28 31 36 39 29 2E 0D 3B 20 42 59 54 45 52 49 | (169)..; BYTERI| 000031E0: 4A 2D 42 45 47 49 4E 41 44 52 45 53 3A 20 28 32 |J-BEGINADRES: (2| 000031F0: 35 34 2C 32 35 33 29 2E 0D 3B 0D 4C 49 4E 53 46 |54,253)..;.LINSF| 00003200: 20 4C 44 41 20 20 31 36 38 0D 20 20 20 20 20 20 | LDA 168. | 00003210: 43 4D 50 20 20 31 36 39 0D 20 20 20 20 20 20 42 |CMP 169. B| 00003220: 43 53 20 20 4C 49 4E 53 55 0D 20 20 20 20 20 20 |CS LINSU. | 00003230: 4C 44 41 20 23 30 30 31 0D 20 20 20 20 20 20 41 |LDA #001. A| 00003240: 44 43 20 20 32 35 33 0D 20 20 20 20 20 20 53 54 |DC 253. ST| 00003250: 41 20 20 31 37 30 0D 20 20 20 20 20 20 4C 44 41 |A 170. LDA| 00003260: 20 23 30 30 30 0D 20 20 20 20 20 20 41 44 43 20 | #000. ADC | 00003270: 20 32 35 34 0D 20 20 20 20 20 20 53 54 41 20 20 | 254. STA | 00003280: 31 37 31 0D 20 20 20 20 20 20 4C 44 59 20 20 31 |171. LDY 1| 00003290: 36 38 0D 4C 49 4E 53 48 20 4C 44 41 20 28 31 37 |68.LINSH LDA (17| 000032A0: 30 29 2C 59 0D 20 20 20 20 20 20 53 54 41 20 28 |0),Y. STA (| 000032B0: 32 35 33 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 |253),Y. INY| 000032C0: 0D 20 20 20 20 20 20 43 50 59 20 20 31 36 39 0D |. CPY 169.| 000032D0: 20 20 20 20 20 20 42 4E 45 20 20 4C 49 4E 53 48 | BNE LINSH| 000032E0: 0D 4C 49 4E 53 55 20 52 54 53 0D 3B 0D 20 20 20 |.LINSU RTS.;. | 000032F0: 20 20 20 2A 3D 20 20 20 32 36 32 37 32 0D 3B 0D | *= 26272.;.| 00003300: 3B 20 53 43 48 55 49 46 20 45 45 4E 20 42 59 54 |; SCHUIF EEN BYT| 00003310: 45 52 49 4A 20 4E 41 41 52 20 45 45 4E 0D 3B 20 |ERIJ NAAR EEN.; | 00003320: 41 44 52 45 53 20 45 45 4E 20 48 4F 47 45 52 2E |ADRES EEN HOGER.| 00003330: 0D 3B 0D 3B 20 42 45 47 49 4E 50 4F 53 49 54 49 |.;.; BEGINPOSITI| 00003340: 45 20 20 20 20 20 20 3A 20 28 31 36 38 29 2E 0D |E : (168)..| 00003350: 3B 20 20 45 49 4E 44 50 4F 53 49 54 49 45 20 20 |; EINDPOSITIE | 00003360: 20 20 20 20 3A 20 28 31 36 39 29 2E 0D 3B 20 42 | : (169)..; B| 00003370: 59 54 45 52 49 4A 2D 42 45 47 49 4E 41 44 52 45 |YTERIJ-BEGINADRE| 00003380: 53 3A 20 28 32 35 34 2C 32 35 33 29 2E 0D 3B 0D |S: (254,253)..;.| 00003390: 52 45 43 53 46 20 4C 44 41 20 20 31 36 38 0D 20 |RECSF LDA 168. | 000033A0: 20 20 20 20 20 43 4D 50 20 20 31 36 39 0D 20 20 | CMP 169. | 000033B0: 20 20 20 20 42 43 53 20 20 52 45 43 53 55 0D 20 | BCS RECSU. | 000033C0: 20 20 20 20 20 4C 44 41 20 23 30 30 31 0D 20 20 | LDA #001. | 000033D0: 20 20 20 20 41 44 43 20 20 32 35 33 0D 20 20 20 | ADC 253. | 000033E0: 20 20 20 53 54 41 20 20 31 37 30 0D 20 20 20 20 | STA 170. | 000033F0: 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 | LDA #000. | 00003400: 20 41 44 43 20 20 32 35 34 0D 20 20 20 20 20 20 | ADC 254. | 00003410: 53 54 41 20 20 31 37 31 0D 20 20 20 20 20 20 4C |STA 171. L| 00003420: 44 59 20 20 31 36 39 0D 52 45 43 53 48 20 44 45 |DY 169.RECSH DE| 00003430: 59 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |Y. LDA (253| 00003440: 29 2C 59 0D 20 20 20 20 20 20 53 54 41 20 28 31 |),Y. STA (1| 00003450: 37 30 29 2C 59 0D 20 20 20 20 20 20 43 50 59 20 |70),Y. CPY | 00003460: 20 31 36 38 0D 20 20 20 20 20 20 42 4E 45 20 20 | 168. BNE | 00003470: 52 45 43 53 48 0D 52 45 43 53 55 20 52 54 53 0D |RECSH.RECSU RTS.| 00003480: 20 20 20 20 20 20 2E 50 41 47 45 0D 20 20 20 20 | .PAGE. | 00003490: 20 20 2A 3D 20 20 20 32 36 33 30 34 0D 3B 0D 3B | *= 26304.;.;| 000034A0: 20 52 45 47 45 4C 56 45 52 5A 45 54 53 20 45 52 | REGELVERZETS ER| 000034B0: 42 49 4A 20 49 4E 20 42 55 46 46 45 52 2E 0D 3B |BIJ IN BUFFER..;| 000034C0: 0D 3B 20 41 41 4E 54 41 4C 20 54 45 20 56 4F 52 |.; AANTAL TE VOR| 000034D0: 45 4E 20 49 4E 20 30 30 36 39 36 2E 0D 3B 0D 4C |EN IN 00696..;.L| 000034E0: 59 4E 45 4E 20 54 58 41 20 20 20 20 20 20 20 20 |YNEN TXA | 000034F0: 20 20 20 3B 20 52 45 44 0D 20 20 20 20 20 20 50 | ; RED. P| 00003500: 48 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 28 |HA ; (| 00003510: 58 29 2E 0D 20 20 20 20 20 20 4C 44 58 20 20 59 |X).. LDX Y| 00003520: 42 20 20 20 20 20 20 20 3B 20 41 41 4E 54 41 4C |B ; AANTAL| 00003530: 2E 0D 20 20 20 20 20 20 42 45 51 20 20 4C 59 55 |.. BEQ LYU| 00003540: 20 20 20 20 20 20 3B 20 4E 55 4C 3A 4E 41 41 52 | ; NUL:NAAR| 00003550: 0D 20 20 20 20 20 20 42 4E 45 20 20 4C 59 50 20 |. BNE LYP | 00003560: 20 20 20 20 20 3B 20 48 4F 4F 46 44 50 52 4F 47 | ; HOOFDPROG| 00003570: 2E 0D 4C 59 4F 20 20 20 4C 44 41 20 23 30 31 30 |..LYO LDA #010| 00003580: 20 20 20 20 20 20 3B 20 52 45 47 45 4C 56 45 52 | ; REGELVER| 00003590: 5A 45 54 0D 20 20 20 20 20 20 4A 53 52 20 20 56 |ZET. JSR V| 000035A0: 55 4C 4F 42 20 20 20 20 3B 20 49 4E 20 42 55 46 |ULOB ; IN BUF| 000035B0: 46 45 52 2E 0D 4C 59 50 20 20 20 44 45 58 20 20 |FER..LYP DEX | 000035C0: 20 20 20 20 20 20 20 20 20 3B 20 54 45 4C 20 41 | ; TEL A| 000035D0: 41 4E 54 41 4C 0D 20 20 20 20 20 20 42 50 4C 20 |ANTAL. BPL | 000035E0: 20 4C 59 4F 20 20 20 20 20 20 3B 20 56 45 52 5A | LYO ; VERZ| 000035F0: 45 54 53 20 41 46 2E 0D 20 20 20 20 20 20 4A 53 |ETS AF.. JS| 00003600: 52 20 20 55 54 4C 4F 42 20 20 20 20 3B 20 4C 45 |R UTLOB ; LE| 00003610: 4E 47 54 45 42 59 54 45 2E 0D 4C 59 55 20 20 20 |NGTEBYTE..LYU | 00003620: 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 |PLA ; | 00003630: 48 45 52 53 54 45 4C 20 28 58 29 2E 0D 20 20 20 |HERSTEL (X).. | 00003640: 20 20 20 54 41 58 0D 20 20 20 20 20 20 52 54 53 | TAX. RTS| 00003650: 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 36 |.;. *= 26| 00003660: 33 32 38 0D 3B 0D 3B 20 56 55 4C 20 52 45 47 45 |328.;.; VUL REGE| 00003670: 4C 20 28 58 29 20 4D 45 54 20 53 50 41 54 49 45 |L (X) MET SPATIE| 00003680: 53 2E 0D 3B 20 42 45 47 49 4E 50 4F 53 49 54 49 |S..; BEGINPOSITI| 00003690: 45 20 49 4E 20 30 30 36 39 38 2E 0D 3B 20 20 45 |E IN 00698..; E| 000036A0: 49 4E 44 50 4F 53 49 54 49 45 20 49 4E 20 30 30 |INDPOSITIE IN 00| 000036B0: 36 39 39 2E 0D 3B 0D 53 50 41 52 47 20 4A 53 52 |699..;.SPARG JSR| 000036C0: 20 20 52 45 47 41 44 20 20 20 20 3B 20 52 45 47 | REGAD ; REG| 000036D0: 45 4C 42 45 47 49 4E 2E 0D 20 20 20 20 20 20 4C |ELBEGIN.. L| 000036E0: 44 59 20 20 58 42 20 20 20 20 20 20 20 3B 20 42 |DY XB ; B| 000036F0: 45 47 49 4E 50 4F 53 2E 0D 20 20 20 20 20 20 43 |EGINPOS.. C| 00003700: 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B 20 45 |LC ; E| 00003710: 45 52 53 54 45 0D 20 20 20 20 20 20 42 43 43 20 |ERSTE. BCC | 00003720: 20 53 50 41 52 4B 20 20 20 20 3B 20 50 4F 53 49 | SPARK ; POSI| 00003730: 54 49 45 2E 0D 53 50 41 52 49 20 49 4E 59 20 20 |TIE..SPARI INY | 00003740: 20 20 20 20 20 20 20 20 20 3B 20 56 4F 4C 47 45 | ; VOLGE| 00003750: 4E 44 45 2E 0D 53 50 41 52 4B 20 4C 44 41 20 23 |NDE..SPARK LDA #| 00003760: 30 33 32 20 20 20 20 20 20 3B 20 5A 45 54 20 53 |032 ; ZET S| 00003770: 50 41 54 49 45 0D 20 20 20 20 20 20 53 54 41 20 |PATIE. STA | 00003780: 28 32 35 33 29 2C 59 20 20 20 3B 20 49 4E 20 52 |(253),Y ; IN R| 00003790: 45 47 45 4C 2E 0D 20 20 20 20 20 20 43 50 59 20 |EGEL.. CPY | 000037A0: 20 58 45 20 20 20 20 20 20 20 3B 20 45 49 4E 44 | XE ; EIND| 000037B0: 3F 0D 20 20 20 20 20 20 42 43 43 20 20 53 50 41 |?. BCC SPA| 000037C0: 52 49 20 20 20 20 3B 20 4E 45 45 3A 56 4F 4C 47 |RI ; NEE:VOLG| 000037D0: 45 4E 44 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 |END.. RTS. | 000037E0: 20 20 20 20 20 2E 50 41 47 45 0D 20 20 20 20 20 | .PAGE. | 000037F0: 20 2A 3D 20 20 20 32 36 33 35 30 0D 3B 0D 3B 20 | *= 26350.;.; | 00003800: 42 4C 4F 4B 54 52 41 4E 53 50 4F 52 54 20 56 41 |BLOKTRANSPORT VA| 00003810: 4E 20 42 59 54 45 53 2E 0D 3B 20 54 45 20 56 4F |N BYTES..; TE VO| 00003820: 52 45 4E 3A 20 28 31 36 39 29 20 20 20 20 20 41 |REN: (169) A| 00003830: 41 4E 54 41 4C 20 2D 20 31 3B 0D 3B 20 20 20 20 |ANTAL - 1;.; | 00003840: 20 20 20 20 20 20 20 28 32 35 32 2C 32 35 31 29 | (252,251)| 00003850: 20 48 41 41 4C 41 44 52 45 53 3B 0D 3B 20 20 20 | HAALADRES;.; | 00003860: 20 20 20 20 20 20 20 20 28 32 35 34 2C 32 35 33 | (254,253| 00003870: 29 20 42 52 45 4E 47 41 44 52 45 53 2E 0D 3B 0D |) BRENGADRES..;.| 00003880: 54 52 53 55 42 20 4C 44 59 20 20 31 36 39 0D 20 |TRSUB LDY 169. | 00003890: 20 20 20 20 20 42 45 51 20 20 54 52 53 55 44 0D | BEQ TRSUD.| 000038A0: 54 52 53 55 43 20 4C 44 41 20 28 32 35 31 29 2C |TRSUC LDA (251),| 000038B0: 59 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |Y. STA (253| 000038C0: 29 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 |),Y. DEY. | 000038D0: 20 20 20 20 42 4E 45 20 20 54 52 53 55 43 0D 54 | BNE TRSUC.T| 000038E0: 52 53 55 44 20 4C 44 41 20 28 32 35 31 29 2C 59 |RSUD LDA (251),Y| 000038F0: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 00003900: 2C 59 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 |,Y. RTS.;. | 00003910: 20 20 20 20 20 2A 3D 20 20 20 32 36 33 36 38 0D | *= 26368.| 00003920: 3B 0D 3B 20 50 52 49 4E 54 20 45 45 4E 20 41 41 |;.; PRINT EEN AA| 00003930: 4E 54 41 4C 20 45 54 49 4B 45 54 54 45 4E 2E 0D |NTAL ETIKETTEN..| 00003940: 3B 20 41 41 4E 54 41 4C 20 45 54 49 4B 45 54 54 |; AANTAL ETIKETT| 00003950: 45 4E 20 20 20 20 49 4E 20 30 30 36 39 37 2E 0D |EN IN 00697..| 00003960: 3B 20 41 41 4E 54 41 4C 20 54 55 53 53 45 4E 52 |; AANTAL TUSSENR| 00003970: 45 47 45 4C 53 20 49 4E 20 30 30 36 39 36 2E 0D |EGELS IN 00696..| 00003980: 3B 0D 45 54 50 52 49 20 4C 44 58 20 20 59 45 20 |;.ETPRI LDX YE | 00003990: 20 20 20 20 20 20 3B 20 41 41 4E 54 41 4C 2E 0D | ; AANTAL..| 000039A0: 20 20 20 20 20 20 42 45 51 20 20 45 54 50 52 55 | BEQ ETPRU| 000039B0: 20 20 20 20 3B 20 30 3A 4E 2F 48 4F 4F 46 44 50 | ; 0:N/HOOFDP| 000039C0: 47 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 45 54 |G.. JSR ET| 000039D0: 49 42 56 20 20 20 20 3B 20 42 55 46 46 45 52 45 |IBV ; BUFFERE| 000039E0: 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 59 |N.. JSR LY| 000039F0: 4E 45 4E 20 20 20 20 3B 20 54 55 53 53 45 4E 52 |NEN ; TUSSENR| 00003A00: 45 47 53 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |EGS.. JSR | 00003A10: 50 4F 50 45 4E 20 20 20 20 3B 20 4F 50 45 4E 20 |POPEN ; OPEN | 00003A20: 50 52 49 4E 54 52 2E 0D 20 20 20 20 20 20 43 4C |PRINTR.. CL| 00003A30: 43 0D 20 20 20 20 20 20 42 43 43 20 20 45 54 50 |C. BCC ETP| 00003A40: 52 4E 0D 45 54 50 52 4B 20 4A 53 52 20 20 50 4B |RN.ETPRK JSR PK| 00003A50: 41 52 59 20 20 20 20 3B 20 50 52 49 4E 54 20 42 |ARY ; PRINT B| 00003A60: 55 46 46 2E 0D 45 54 50 52 4E 20 44 45 58 20 20 |UFF..ETPRN DEX | 00003A70: 20 20 20 20 20 20 20 20 20 3B 20 54 45 4C 20 41 | ; TEL A| 00003A80: 46 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 45 54 |F.. BPL ET| 00003A90: 50 52 4B 20 20 20 20 3B 20 4E 45 47 41 54 49 45 |PRK ; NEGATIE| 00003AA0: 46 3A 0D 20 20 20 20 20 20 4A 53 52 20 20 50 43 |F:. JSR PC| 00003AB0: 4C 4F 53 20 20 20 20 3B 20 53 4C 55 49 54 20 50 |LOS ; SLUIT P| 00003AC0: 52 54 52 2E 0D 45 54 50 52 55 20 52 54 53 20 20 |RTR..ETPRU RTS | 00003AD0: 20 20 20 20 20 20 20 20 20 3B 20 4E 2F 48 4F 4F | ; N/HOO| 00003AE0: 46 44 50 47 2E 0D 3B 0D 20 20 20 20 20 20 2A 3D |FDPG..;. *=| 00003AF0: 20 20 20 32 36 34 30 30 0D 3B 0D 3B 20 50 52 49 | 26400.;.; PRI| 00003B00: 4E 54 20 41 41 4E 54 41 4C 20 4F 50 45 4E 20 52 |NT AANTAL OPEN R| 00003B10: 45 47 45 4C 53 2E 0D 3B 0D 3B 20 41 41 4E 54 41 |EGELS..;.; AANTA| 00003B20: 4C 20 54 45 20 56 4F 52 45 4E 20 49 4E 20 30 30 |L TE VOREN IN 00| 00003B30: 36 39 36 2E 0D 3B 0D 4F 50 52 45 47 20 4C 44 41 |696..;.OPREG LDA| 00003B40: 20 20 59 42 0D 20 20 20 20 20 20 42 45 51 20 20 | YB. BEQ | 00003B50: 4F 50 52 45 55 0D 20 20 20 20 20 20 4A 53 52 20 |OPREU. JSR | 00003B60: 20 49 4E 4C 4F 42 0D 20 20 20 20 20 20 4A 53 52 | INLOB. JSR| 00003B70: 20 20 4C 59 4E 45 4E 0D 20 20 20 20 20 20 4A 53 | LYNEN. JS| 00003B80: 52 20 20 50 4F 50 45 4E 0D 20 20 20 20 20 20 4A |R POPEN. J| 00003B90: 53 52 20 20 50 4B 41 52 59 0D 20 20 20 20 20 20 |SR PKARY. | 00003BA0: 4A 53 52 20 20 50 43 4C 4F 53 0D 4F 50 52 45 55 |JSR PCLOS.OPREU| 00003BB0: 20 52 54 53 0D 20 20 20 20 20 20 2E 50 41 47 45 | RTS. .PAGE| 00003BC0: 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 36 34 32 |. *= 2642| 00003BD0: 34 0D 3B 0D 3B 20 53 4C 55 49 54 20 50 52 49 4E |4.;.; SLUIT PRIN| 00003BE0: 54 45 52 20 4D 45 54 20 48 45 52 5A 45 54 2E 0D |TER MET HERZET..| 00003BF0: 3B 0D 55 49 50 52 49 20 4A 53 52 20 20 49 4E 4C |;.UIPRI JSR INL| 00003C00: 4F 42 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 |OB. LDA #02| 00003C10: 37 0D 20 20 20 20 20 20 4A 53 52 20 20 56 55 4C |7. JSR VUL| 00003C20: 4F 42 0D 20 20 20 20 20 20 4C 44 41 20 23 30 36 |OB. LDA #06| 00003C30: 34 0D 20 20 20 20 20 20 4A 53 52 20 20 56 55 4C |4. JSR VUL| 00003C40: 4F 42 0D 20 20 20 20 20 20 4A 53 52 20 20 55 54 |OB. JSR UT| 00003C50: 4C 4F 42 0D 20 20 20 20 20 20 4A 53 52 20 20 50 |LOB. JSR P| 00003C60: 4F 50 45 4E 0D 20 20 20 20 20 20 4A 53 52 20 20 |OPEN. JSR | 00003C70: 50 4B 41 52 59 0D 20 20 20 20 20 20 4A 53 52 20 |PKARY. JSR | 00003C80: 20 50 43 4C 4F 53 0D 20 20 20 20 20 20 52 54 53 | PCLOS. RTS| 00003C90: 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 36 |.;. *= 26| 00003CA0: 34 35 36 0D 3B 0D 3B 20 5A 45 54 20 50 52 49 4E |456.;.; ZET PRIN| 00003CB0: 54 45 52 49 4E 53 54 45 4C 4C 49 4E 47 20 49 4E |TERINSTELLING IN| 00003CC0: 20 42 55 46 46 45 52 2E 0D 3B 0D 3B 20 54 45 20 | BUFFER..;.; TE | 00003CD0: 56 4F 52 45 4E 3A 0D 3B 0D 3B 20 20 28 30 30 38 |VOREN:.;.; (008| 00003CE0: 32 30 29 20 20 20 20 20 20 20 20 20 20 20 41 41 |20) AA| 00003CF0: 4E 54 41 4C 20 4C 2E 0D 3B 20 20 28 30 30 38 32 |NTAL L..; (0082| 00003D00: 31 29 2E 2E 2E 28 30 30 38 32 4C 29 20 44 45 20 |1)...(0082L) DE | 00003D10: 4C 20 42 59 54 45 53 2E 0D 3B 0D 50 52 49 53 54 |L BYTES..;.PRIST| 00003D20: 20 54 58 41 0D 20 20 20 20 20 20 50 48 41 0D 20 | TXA. PHA. | 00003D30: 20 20 20 20 20 4C 44 58 20 23 30 30 30 0D 50 52 | LDX #000.PR| 00003D40: 49 53 55 20 49 4E 58 0D 20 20 20 20 20 20 4C 44 |ISU INX. LD| 00003D50: 41 20 20 30 30 38 32 30 2C 58 0D 20 20 20 20 20 |A 00820,X. | 00003D60: 20 4A 53 52 20 20 56 55 4C 4F 42 0D 20 20 20 20 | JSR VULOB. | 00003D70: 20 20 43 50 58 20 20 30 30 38 32 30 0D 20 20 20 | CPX 00820. | 00003D80: 20 20 20 42 43 43 20 20 50 52 49 53 55 0D 20 20 | BCC PRISU. | 00003D90: 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 54 41 | PLA. TA| 00003DA0: 58 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 |X. RTS.;. | 00003DB0: 20 20 20 20 2E 50 41 47 45 0D 20 20 20 20 20 20 | .PAGE. | 00003DC0: 2E 4C 49 53 54 0D 20 20 20 20 20 20 2A 3D 20 20 |.LIST. *= | 00003DD0: 20 32 36 34 38 30 0D 3B 0D 3B 20 56 45 52 54 41 | 26480.;.; VERTA| 00003DE0: 4C 45 4E 20 56 41 4E 20 45 45 4E 20 54 45 4B 45 |LEN VAN EEN TEKE| 00003DF0: 4E 20 4E 41 41 52 0D 3B 20 50 52 49 4E 54 43 4F |N NAAR.; PRINTCO| 00003E00: 44 45 20 56 4F 4C 47 45 4E 53 20 45 45 4E 20 54 |DE VOLGENS EEN T| 00003E10: 41 42 45 4C 2E 0D 3B 0D 3B 20 52 45 47 49 53 54 |ABEL..;.; REGIST| 00003E20: 45 52 20 41 20 4E 41 41 52 20 52 45 47 49 53 54 |ER A NAAR REGIST| 00003E30: 45 52 20 41 2E 0D 3B 0D 54 41 56 45 52 20 53 54 |ER A..;.TAVER ST| 00003E40: 58 20 20 30 30 32 0D 20 20 20 20 20 20 41 4E 44 |X 002. AND| 00003E50: 20 23 30 33 31 0D 20 20 20 20 20 20 54 41 58 0D | #031. TAX.| 00003E60: 20 20 20 20 20 20 4C 44 41 20 20 4C 59 53 54 50 | LDA LYSTP| 00003E70: 2C 58 0D 20 20 20 20 20 20 4C 44 58 20 20 30 30 |,X. LDX 00| 00003E80: 32 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 |2. RTS.;. | 00003E90: 20 20 20 20 2A 3D 20 20 20 32 36 34 39 36 0D 3B | *= 26496.;| 00003EA0: 0D 3B 20 5A 4F 45 4B 20 45 45 4E 20 50 52 49 4E |.; ZOEK EEN PRIN| 00003EB0: 54 54 45 4B 45 4E 20 49 4E 20 44 45 20 54 41 42 |TTEKEN IN DE TAB| 00003EC0: 45 4C 2E 0D 3B 0D 3B 20 52 45 47 49 53 54 45 52 |EL..;.; REGISTER| 00003ED0: 20 41 20 4E 41 41 52 20 52 45 47 49 53 54 45 52 | A NAAR REGISTER| 00003EE0: 20 41 2E 0D 3B 0D 3B 20 4E 49 45 54 20 47 45 56 | A..;.; NIET GEV| 00003EF0: 4F 4E 44 45 4E 3A 20 28 41 29 20 3D 20 33 32 2E |ONDEN: (A) = 32.| 00003F00: 0D 3B 0D 50 44 45 43 4F 20 53 54 58 20 20 30 30 |.;.PDECO STX 00| 00003F10: 32 0D 20 20 20 20 20 20 4C 44 58 20 23 30 33 31 |2. LDX #031| 00003F20: 0D 50 44 45 43 50 20 43 4D 50 20 20 4C 59 53 54 |.PDECP CMP LYST| 00003F30: 50 2C 58 0D 20 20 20 20 20 20 42 45 51 20 20 50 |P,X. BEQ P| 00003F40: 44 45 43 52 0D 20 20 20 20 20 20 44 45 58 0D 20 |DECR. DEX. | 00003F50: 20 20 20 20 20 42 50 4C 20 20 50 44 45 43 50 0D | BPL PDECP.| 00003F60: 20 20 20 20 20 20 4C 44 58 20 23 30 33 32 0D 50 | LDX #032.P| 00003F70: 44 45 43 52 20 54 58 41 0D 20 20 20 20 20 20 4C |DECR TXA. L| 00003F80: 44 58 20 20 30 30 32 0D 20 20 20 20 20 20 52 54 |DX 002. RT| 00003F90: 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 |S.;. *= 2| 00003FA0: 36 35 32 38 0D 3B 0D 4C 59 53 54 50 20 2E 42 59 |6528.;.LYSTP .BY| 00003FB0: 54 45 20 30 33 32 2C 31 36 31 0D 20 20 20 20 20 |TE 032,161. | 00003FC0: 20 2E 42 59 54 45 20 31 33 39 2C 31 35 31 0D 20 | .BYTE 139,151. | 00003FD0: 20 20 20 20 20 2E 42 59 54 45 20 31 34 39 2C 31 | .BYTE 149,1| 00003FE0: 35 30 0D 20 20 20 20 20 20 2E 42 59 54 45 20 31 |50. .BYTE 1| 00003FF0: 37 31 2C 31 36 38 0D 20 20 20 20 20 20 2E 42 59 |71,168. .BY| 00004000: 54 45 20 31 35 36 2C 31 35 39 0D 20 20 20 20 20 |TE 156,159. | 00004010: 20 2E 42 59 54 45 20 31 36 35 2C 31 33 33 0D 20 | .BYTE 165,133. | 00004020: 20 20 20 20 20 2E 42 59 54 45 20 31 33 38 2C 31 | .BYTE 138,1| 00004030: 33 32 0D 20 20 20 20 20 20 2E 42 59 54 45 20 31 |32. .BYTE 1| 00004040: 36 30 2C 31 34 38 0D 20 20 20 20 20 20 2E 42 59 |60,148. .BY| 00004050: 54 45 20 31 34 32 2C 31 33 37 0D 20 20 20 20 20 |TE 142,137. | 00004060: 20 2E 42 59 54 45 20 31 33 30 2C 31 33 31 0D 20 | .BYTE 130,131. | 00004070: 20 20 20 20 20 2E 42 59 54 45 20 31 34 30 2C 31 | .BYTE 140,1| 00004080: 34 31 0D 20 20 20 20 20 20 2E 42 59 54 45 20 31 |41. .BYTE 1| 00004090: 34 37 2C 31 32 39 0D 20 20 20 20 20 20 2E 42 59 |47,129. .BY| 000040A0: 54 45 20 31 35 34 2C 31 35 33 0D 20 20 20 20 20 |TE 154,153. | 000040B0: 20 2E 42 59 54 45 20 31 36 32 2C 31 33 36 0D 20 | .BYTE 162,136. | 000040C0: 20 20 20 20 20 2E 42 59 54 45 20 31 32 38 2C 31 | .BYTE 128,1| 000040D0: 33 35 0D 20 20 20 20 20 20 2E 42 59 54 45 20 31 |35. .BYTE 1| 000040E0: 36 33 2C 31 36 34 0D 20 20 20 20 20 20 2E 50 41 |63,164. .PA| 000040F0: 47 45 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 |GE.;. *= | 00004100: 32 36 35 36 30 0D 3B 0D 3B 20 20 20 20 56 20 52 |26560.;.; V R| 00004110: 20 49 20 4A 20 2E 0D 3B 0D 20 20 20 20 20 20 2E | I J ..;. .| 00004120: 45 4E 44 0D |END. |
.NOLIST.;.; S U B P R O G R A M M
A ' S.;.; V O O R.;.; E T I
K E T . B A S ..;.;.; PROGRAMMA : E
TIKET ..; BRONCODE : ETIKET.ASM ..;
OBJECTCODE : ETIKET.OBJ ..; DISK
: E2 ..; TAAL : ASSEMBLER
C64..; DATUM : 23 JULI 1995..; PR
OGRAMMEUR : J.H.VAN RIJN..;.;.; DECIM H
EXA SYMBL FUNCTIE.;.; 25600 6400 TRASP B
YTETRANSPORT-.; SUBPROG
RAMMA..; 25632 6420 SCLYS LIJST V.REGEL-
.; BEGINADRESSEN..; 256
68 6444 LINBL MEEST LINKSE.;
NIETBLNK.TEKEN..; 25692 645C RENBL
MEEST RECHTSE.; NIETBL
NK.TEKEN..; 25712 6470 VULET VUL MENU- O
F.; ETIKETBLOK..; 25764
64A4 REGAD REGELBEGINADRES.;
NUMMER (X)..; 25784 64B8 TOETS TO
ETS TEKEN (A).; MET SOO
RT (X)..; 25824 64E0 SETLO ZET LOPER OP.
; RG.(X),KOL.(Y)..; 258
32 64E8 ETIVU VUL VELD VAN.;
ETIKET MET (2)..; 25848 64F8 SETTE
(A) NAAR ADRES.; (254,
253)+(Y)..; 25852 64FC LESTE ((254,253)+
(Y)).; N/REGISTER A..;
25856 6500 MNUPO POETS VELD VAN.;
MENU..; 25878 6516 BETEI REGE
L M/BEGIN-,.; TUS.-EN E
INDTK..; 25908 6534 KOLVU VUL KOLOM MET.
; TUSSENTEKENS..; 25948
655C POPEN OPENEN VAN DE.;
PRINTER..; 25976 6578 PKARY PRINT K
ARAKTER-.; RIJEN UIT..;
26028 65AC PCLOS SLUITEN VAN DE.;
PRINTER.. .PAGE. .
LIST.; SUBPROGRAMMA'S VERVOLG..;.; DECIM
HEXA SYMBL FUNCTIE.;.; 26040 65B8 PCODE
ZET POKE-2 OM.; IN PRI
NTERCODE..; 26072 65D8 INLOB BUFFERLENGT
E OP.; NUL VOOR VULOB..
; 26096 65F0 VULOB BUFFER VULLEN.;
M/PRINTCODE(A)..; 26112 6600
UTLOB BUFFERLENGTE.; I
NVUL NA VUL..; 26144 6620 ETIBV PRINTBUF
FER MET.; ETIKET VULLEN
..; 26240 6680 LINSF REEKS BYTES.;
NAAR LINKS..; 26272 66A0 REC
SF REEKS BYTES.; NAAR R
ECHTS..; 26304 66C0 LYNEN REGELVERZETS.;
IN BUFFER..; 26328 66D
8 SPARG SPATIES ZETTEN.;
OP REGEL (X)..; 26350 66EE TRSUB BYTET
RANSPORT.; EEN BLOK..;
26368 6700 ETPRI PRINT AANTAL.;
ETIKETTEN UIT..; 26400 6720 OPR
EG AANTAL OPEN.; REGELS
PRINTEN..; 26424 6738 UIPRI SLUIT PRINT
ER.; MET HERZET..; 2645
6 6758 PRIST PRINTERINSTEL-.;
LING N/BUFFER..; 26480 6770 TAVER
VERTALEN NAAR.; PRINTC
.M/TABEL..; 26496 6780 PDECO ZOEK ITEM I
N.; PRINTC.U/TABEL..; 2
6528 67A0 LYSTP LIJST VAN.;
PRINTCODES..; 26560 67C0 ..... V
R I J ..; .............
...;.; DE IN DEZE SUBPROGRAMMA'S.; GEBRU
IKTE CONSTANTEN MET HUN.; ADRESSEN..;.MB
= 00680 ; BEGINREG.MENU..ME
= 00681 ; EINDREG.MENU..;.LB =
00682 ;POS.LINKS MENU..LE = 0068
3 ;POS.RCHTS.MENU..;.RB = 00684
; LIJN BOVENAAN..RE = 00685 ; LIJ
N ONDERAAN.. .PAGE.KB = 00686
; LIJN LINKS..KE = 00687 ; LIJN
RECHTS..;.PB = 00688 ; BEGINR.ET
IKET..PE = 00689 ; EINDR.ETIKET.
.;.QB = 00690 ; BEGINK.ETIKET..QE
= 00691 ; EINDK.ETIKET..;.BR
= 00692 ; BEGINR.BOODSC..BK =
00693 ; BEGINK.BOODSC..;.; PRINTBUFFER
BEGINADRES..;.BUB0 = 00694 ; LS.PRI
NTBUFF..BUB1 = 00695 ; HS.PRINTBUFF
..;.; VARIABEL VELD, TEVENS WERKVELD..;.
YB = 00696 ; REGEL BEGIN..YE
= 00697 ; REGEL EIND..XB = 0069
8 ; KOLOM BEGIN..XE = 00699 ; KO
LOM EIND..;. *= 25600.;.; BYTETRA
NSPORT-SUBPROGRAMMA..;.; TE VOREN: (168,
167) AANTAL;.; (252,251) HAALA
DRES;.; (254,253) BRENGADRES..
;.; DEZE VECTOREN WORDEN VERANDERD.; DOO
R DIT SUBPROGRAMMA..;.TRASP LDX 168.
BEQ TRASS. LDA #255. STA
169.TRASR JSR TRSUB. INC 252.
INC 254. DEX. BNE TRASR.TR
ASS LDA 167. BEQ TRASZ. DEY.
STY 169. JSR TRSUB.TRASZ RT
S.;.;. .PAGE. .NOLIST. *=
25632.;.; PROGRAMMA VOOR HET ZETTEN V
AN DE.; BEGINADRESSEN VAN SCHERMREGELS.;
IN DE ADRESVECTOREN.; (00701,00700) T/M
(00749,00748)..;.; 00700+2R LAAGBYTE AD
R. REGEL #R..; 00701+2R HOOGBYTE ADR. RE
GEL #R..;.SCLYS LDA 00648. STA 16
8. LDX #000. STX 167. CL
C.SCLY1 LDA 167. STA 00700,X.
ADC #040. STA 167. LDA 168
. STA 00701,X. ADC #000.
STA 168. INX. INX. CPX
#050. BCC SCLY1. RTS.;.
*= 25668.;.; MEEST LINKS NIETBLANK TEK
EN..; TEVOREN REGELADRES=>(254,253)..;.;
NA AFLOOP (Y) = KOLOM NIETBL.T..;.; REG
EL LEEG: CARRY OP 1..;.LINBL LDY QB.
CLC. BCC LINB2.LINB1 INY.LINB2
LDA (253),Y. CMP #032. BEQ LI
NB3. CLC. RTS.LINB3 CPY QE.
BCC LINB1. RTS. .PAGE.
*= 25692.;.; MEEST RECHTS NIETBLANK
TEKEN..; REGELADRES IN (254,253)..; AAN
TE ROEPEN NA LINBL..;.; NA AFLOOP (Y) =
KOLOM NIETBL.T..;.RENBL LDY QE.RENB1 L
DA (253),Y. CMP #032. BNE REN
B2. DEY. CPY QB. BCS RE
NB1.RENB2 RTS.;. *= 25712.;.; SUB
PROGRAMMA VOOR HET VULLEN VAN.; EEN SCHE
RMVELD (ETIKET OF MENU).; MET EEN TEKEN
IN ADRES 002..;.VULET LDA YB. CLC.
ROL A. TAX. LDA YE.
CLC. ROL A. STA 169.
CLC. BCC VULEV.VULEU INX. IN
X.VULEV LDA 00700,X. STA 253.
LDA 00701,X. STA 254. LDY
XB. CLC. BCC VULEX.VULEW INY
.VULEX LDA 002. STA (253),Y.
CPY XE. BCC VULEW. CPX 169.
BCC VULEU. RTS. .PAGE.
*= 25764.;.; REGELBEGINADRES MET
NUMMER #(X)..; ADRES IN (254,253)..;.REG
AD TXA. CLC. ROL A. TAY.
LDA 00700,Y. STA 253.
LDA 00701,Y. STA 254. RTS.;.
*= 25784.;.; TOETS TEKEN BITS 0.
..5 IN REG.A..; TEKENSOORT BITS 2...0 I
N REG.X..; ADRES (254,253) WIJZIGING REG
.Y..;.; BIT 7 6 5 4 3 2 1 0.;
TEKEN * * * V V V V V.; REG.A 0
0 0 V V V V V.; REG.X 0 0 0
0 0 * * *.;.TOETS LDA (253),Y ;
DIAPOS.. ORA #128. STA (253),Y
. STY 002 ; RED (Y)..TOETU
JSR $FFE4 ; ACCEPT.. CMP #000
. BEQ TOETU. LDY 002
; HERSTEL.. TAX ; RED T
EKEN.. LDA (253),Y ; NORMAAL..
AND #127. STA (253),Y. TX
A ; HERSTEL.. PHA.
AND #224 ; BITS 7..5.. CLC.
ROL A ; SCHUIF. ROL
A ; NAAR 2..0.. ROL A.
ROL A ; TEKENSOORT.
TAX ; IN X.. PLA
; TEKEN IN. AND #031 ;
BITS 4..0.. RTS. .PAGE.
*= 25824.;.; ZET LOPER REGEL (X) KOLOM
(Y)..;.SETLO CLC. JSR $FFF0.
RTS.;. *= 25832.;.; VUL VELD VAN
ETIKET MET (2)..;.ETIVU LDX #003.ETIVV
LDA PB,X. STA YB,X. DEX.
BPL ETIVV. JSR VULET. RTS.
;. *= 25848.;.; BRENG TEKEN ADRES
(254,253)+(Y)..;.SETTE STA (253),Y.
RTS.;. *= 25852.;.; HAAL TEKEN
ADRES (254,253)+(Y)..;.LESTE LDA (253),Y
. RTS.;. *= 25856.;.; POETS
VELD VAN MENU..;.MNUPO LDX #003.MNUPP LD
A MB,X. STA YB,X. DEX.
BPL MNUPP. LDA #032. STA 002
. JSR VULET. RTS. .PAGE.
*= 25878.;.; VUL DE RIJ MET NUMM
ER IN (X)..;.; BEGINTEKEN (167) IN KOLO
M KB..;TUSSENTEKENS (168) IN KB+1..KE-1.
.; EINDTEKEN (169) IN KOLOM KE..;.BETE
I JSR REGAD. LDY KB. LDA 16
7. STA (253),Y. CLC. BCC
BETEL.BETEK LDA 168. STA (253),Y.
BETEL INY. CPY KE. BCC BETEK
. LDA 169. STA (253),Y.
RTS.;. *= 25908.;.; VUL DE KOLOM
OP PLAATS (Y)..; REGEL PB TOT EN MET PE.
.; TEKEN IN 2..;.KOLVU LDA PB. CLC
. ROL A. TAX. LDA PE.
CLC. ROL A. STA 169.
CLC. BCC KOLVW.KOLVV INX. I
NX.KOLVW LDA 00700,X. STA 253.
LDA 00701,X. STA 254. LDA
002. STA (253),Y. CPX 169.
BCC KOLVV. RTS. .PAGE.
*= 25948.;.; OPENEN PRINTER: FILE
NR.4..;.POPEN TXA ; RED.
PHA ; (X).. LDA #004
; FILENUMMER.. LDX #004 ; TOE
STEL.. LDY #000 ; SEC.ADRES..
JSR $FFBA ; **SETLFS**. LD
A #000 ; GEEN NAAM.. JSR $FFB
D ; **SETNAM**. JSR $FFC0 ;
** OPEN **. LDX #004 ; FILE #4
.. JSR $FFC9 ; **CHKOUT**.
PLA ; HERSTEL. TAX
; (X).. RTS.;. *= 25976
.;.; PRINT PRINTCODETEKENRIJEN UIT..; BE
GINADRES TEVOREN.; IN VECTOR (BUB1,BUB0)
..;.PKARY LDA BUB0 ; BUFFERBEGIN-.
STA 253 ; ADRESVECTOR. L
DA BUB1 ; IN VECTOR. STA 254
; (254,253).. CLC ;
EERSTE MAAL.. BCC PKAR3.PKAR1 STA
002 ; LENGTE. DAN.PKAR2 INY
; TEKEN OPVOE-. LDA (253),Y ;
REN, PRINT.. JSR $FFD2 ; **CHR
OUT**. CPY 002 ; LAATSTE?.
BCC PKAR2 ; NEE:VOLGEND.. SE
C ; JA:OPTELLEN. LDA 00
2 ; LENGTE+1 BIJ. ADC 253
; (254,253).. STA 253. LDA
#000. ADC 254. STA 254.PKAR3
LDY #000 ; LENGTEBYTE. LDA (2
53),Y ; OPVOEREN.. BNE PKAR1
; NUL? JA:UIT.. RTS ; NEE
:TERUG.. .PAGE. *= 26028.;.;
SLUITEN PRINTER: FILENR.4..;.PCLOS LDA
#004. JSR $FFC3 ; **CLOSE **.
JSR $FFE7 ; **CLALL **. RTS
.;. *= 26040.;.; CODEREN PRINTTEK
EN NAAR BUFFER..; IN- EN UITGANGSREGIST
ER A..;.PCODE CMP #027 ; PCODESET-2
. BCC PCOD1 ; KLEINE LTT..
CMP #032 ; [\]^_. BCC PCOD2.
CMP #091 ; LEESTEKENS. B
CC PCOD9 ; & HOOFDLTT.. CMP #09
6 ; ACCOLADES.. BCC PCOD4
; OVERIGE.. JSR TAVER. RTS.PC
OD1 ORA #096 ; KLEINE LTT.. RT
S.PCOD2 ORA #064 ; SPEKHAKEN..
RTS.PCOD4 ORA #032 ; ACCOLADES..PC
OD9 RTS.;. *= 26072.;.; IN DE BUF
FERPROGRAMMA'S:.; REDDEN VAN (Y) SCAN: (
170)..; ZETTEN VAN (Y) VUL : (171)..; RE
GELINDEX (X) NIET GEBRUIKT..;.; HET INLO
OP-SUBPROGRAMMA ZET HET.; BUFFERBEGINADR
ES IN (252,251)..;.INLOB STY 170 ;
RED (Y).. LDA BUB0 ; BUFFERBE
GIN-. STA 251 ; ADRESVECTOR.
LDA BUB1 ; IN VECTOR. STA
252 ; (252,251).. LDY #000.
TYA ; LENGTEBYTE. ST
A (251),Y ; OP NUL EN. STY 171
; IN VULTEL.. LDY 170 ; (
Y) TERUG.. RTS. .PAGE. *=
26096.;.; BUFFER VULLEN MET PRINTERCO
DE..; DE CODE TE VOREN IN REGISTER A..;.
VULOB STY 170 ; RED (Y).. LDY
171 ; VULTEL. INY
; EEN BIJ.. STA (251),Y ; (A) IN
RIJ.. STY 171 ; RED VULTEL..
LDY 170 ; HERSTEL (Y)..
RTS.;. *= 26112.;.; RIJLENGTE ZET
TEN IN LENGTEBYTE..; TEVENS BEGINADRES O
PHOGEN MET.; LENGTE + 1..;.; TEVENS WOR
DT DE VOLGENDE LENGTE.; OP NUL GEZET VOO
R HET EINDE VAN.; HET UITPRINTEN..;.UTLO
B STY 170 ; RED (Y).. LDY #00
0 ; LENGTE.. LDA 171 ; Z
ET VOORAAN. STA (251),Y ; IN DE R
IJ.. SEC ; LENGTE + 1.
ADC 251 ; TELLEN BIJ. STA
251 ; ADRESVECTOR. LDA #000
; (252,251).. ADC 252. ST
A 252. LDY #000 ; NA DE RIJ.
TYA ; NIEUWE LENG-.
STA (251),Y ; TEBYTE NUL.. STY 1
71 ; IN VULTEL.. LDY 170
; HERSTEL (Y).. RTS. .PAGE.
*= 26144.;.; BRENG EEN ETIKET NAAR
DE BUFFER..;.ETIBV JSR INLOB ; INLO
OP.. JSR PRIST ; PRINTER-.
JSR UTLOB ; INSTELLING.. TXA
; BEGINR.SLUIT. PHA
; EN RED (X).. LDX PB ;
SCHERMREGEL. CLC ; ETIK.B
EGIN.. BCC ETIB2 ; REGEL #1..ET
IB1 INX ; REGEL #2,....ETIB2 J
SR REGAD ; REG.(X) ADR.. JSR L
INBL ; EERSTE NIET-. BCS ETIB5
; BLANKE TEKEN. STY 167 ;
INDIEN REGEL. JSR RENBL ; NIET
LEEG.. STY 168 ; RECHTS NIET-
. LDA #027 ; BLANK TEKEN..
JSR VULOB ; LINKERMARGE.. LDA
#108. JSR VULOB. LDA 167.
JSR VULOB. LDY 167 ; EER
STE. CLC ; TEKEN.. B
CC ETIB4.ETIB3 INY.ETIB4 LDA (253),Y
; VOER TEK.OP.. JSR PCODE ; MAA
K PRINT-. JSR VULOB ; CODE EN V
UL.. CPY 168. BCC ETIB3.ETIB
5 LDA #013 ; EIND VAN. JSR VU
LOB ; REGEL:ZET. JSR UTLOB ;
RETURN EN. ; LENGTEB
YTE.. CPX PE ; EIND? NEEN:.
BCC ETIB1 ; VOLG.REGEL.. P
LA ; HERSTEL. TAX
; (X).. RTS. .PAGE. *=
26240.;.; SCHUIF EEN BYTERIJ NAAR EEN
.; ADRES EEN LAGER..;.; BEGINPOSITIE
: (168)..; EINDPOSITIE : (169)..
; BYTERIJ-BEGINADRES: (254,253)..;.LINSF
LDA 168. CMP 169. BCS LINS
U. LDA #001. ADC 253. ST
A 170. LDA #000. ADC 254.
STA 171. LDY 168.LINSH LDA (17
0),Y. STA (253),Y. INY. C
PY 169. BNE LINSH.LINSU RTS.;.
*= 26272.;.; SCHUIF EEN BYTERIJ NAA
R EEN.; ADRES EEN HOGER..;.; BEGINPOSITI
E : (168)..; EINDPOSITIE : (1
69)..; BYTERIJ-BEGINADRES: (254,253)..;.
RECSF LDA 168. CMP 169. BCS
RECSU. LDA #001. ADC 253.
STA 170. LDA #000. ADC 25
4. STA 171. LDY 169.RECSH DE
Y. LDA (253),Y. STA (170),Y.
CPY 168. BNE RECSH.RECSU RTS.
.PAGE. *= 26304.;.; REGELVE
RZETS ERBIJ IN BUFFER..;.; AANTAL TE VOR
EN IN 00696..;.LYNEN TXA ; RED
. PHA ; (X).. LDX Y
B ; AANTAL.. BEQ LYU ;
NUL:NAAR. BNE LYP ; HOOFDPROG
..LYO LDA #010 ; REGELVERZET.
JSR VULOB ; IN BUFFER..LYP DEX
; TEL AANTAL. BPL LYO
; VERZETS AF.. JSR UTLOB ; LE
NGTEBYTE..LYU PLA ; HERSTEL
(X).. TAX. RTS.;. *= 26
328.;.; VUL REGEL (X) MET SPATIES..; BEG
INPOSITIE IN 00698..; EINDPOSITIE IN 00
699..;.SPARG JSR REGAD ; REGELBEGIN.
. LDY XB ; BEGINPOS.. C
LC ; EERSTE. BCC SPARK
; POSITIE..SPARI INY ; VOLGE
NDE..SPARK LDA #032 ; ZET SPATIE.
STA (253),Y ; IN REGEL.. CPY
XE ; EIND?. BCC SPARI ;
NEE:VOLGEND.. RTS. .PAGE.
*= 26350.;.; BLOKTRANSPORT VAN BYTES.
.; TE VOREN: (169) AANTAL - 1;.;
(252,251) HAALADRES;.;
(254,253) BRENGADRES..;.TRSUB LDY 169.
BEQ TRSUD.TRSUC LDA (251),Y.
STA (253),Y. DEY. BNE TRSUC.T
RSUD LDA (251),Y. STA (253),Y.
RTS.;. *= 26368.;.; PRINT EEN AA
NTAL ETIKETTEN..; AANTAL ETIKETTEN IN
00697..; AANTAL TUSSENREGELS IN 00696..
;.ETPRI LDX YE ; AANTAL.. BE
Q ETPRU ; 0:N/HOOFDPG.. JSR ET
IBV ; BUFFEREN.. JSR LYNEN ;
TUSSENREGS.. JSR POPEN ; OPEN
PRINTR.. CLC. BCC ETPRN.ETPRK
JSR PKARY ; PRINT BUFF..ETPRN DEX
; TEL AF.. BPL ETPRK ;
NEGATIEF:. JSR PCLOS ; SLUIT P
RTR..ETPRU RTS ; N/HOOFDPG..;.
*= 26400.;.; PRINT AANTAL OPEN R
EGELS..;.; AANTAL TE VOREN IN 00696..;.O
PREG LDA YB. BEQ OPREU. JSR
INLOB. JSR LYNEN. JSR POPEN
. JSR PKARY. JSR PCLOS.OPREU
RTS. .PAGE. *= 26424.;.; SL
UIT PRINTER MET HERZET..;.UIPRI JSR INL
OB. LDA #027. JSR VULOB.
LDA #064. JSR VULOB. JSR UT
LOB. JSR POPEN. JSR PKARY.
JSR PCLOS. RTS.;. *= 26
456.;.; ZET PRINTERINSTELLING IN BUFFER.
.;.; TE VOREN:.;.; (00820) AA
NTAL L..; (00821)...(0082L) DE L BYTES.
.;.PRIST TXA. PHA. LDX #000.PR
ISU INX. LDA 00820,X. JSR VU
LOB. CPX 00820. BCC PRISU.
PLA. TAX. RTS.;. .PAG
E. .LIST. *= 26480.;.; VERTA
LEN VAN EEN TEKEN NAAR.; PRINTCODE VOLGE
NS EEN TABEL..;.; REGISTER A NAAR REGIST
ER A..;.TAVER STX 002. AND #031.
TAX. LDA LYSTP,X. LDX 00
2. RTS.;. *= 26496.;.; ZOEK
EEN PRINTTEKEN IN DE TABEL..;.; REGISTER
A NAAR REGISTER A..;.; NIET GEVONDEN: (
A) = 32..;.PDECO STX 002. LDX #031
.PDECP CMP LYSTP,X. BEQ PDECR.
DEX. BPL PDECP. LDX #032.P
DECR TXA. LDX 002. RTS.;.
*= 26528.;.LYSTP .BYTE 032,161.
.BYTE 139,151. .BYTE 149,150.
.BYTE 171,168. .BYTE 156,159.
.BYTE 165,133. .BYTE 138,132.
.BYTE 160,148. .BYTE 142,137.
.BYTE 130,131. .BYTE 140,141.
.BYTE 147,129. .BYTE 154,153.
.BYTE 162,136. .BYTE 128,135.
.BYTE 163,164. .PAGE.;. *=
26560.;.; V R I J ..;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL