ETIKET.ASM
FILE INFORMATION
FILENAME(S): ETIKET.ASM
FILE TYPE(S): SEQ
FILE SIZE: 16.2K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
cce5647a05cfd458e969b0dcfb1b9dc7b7cc538a2979b470cc3164c9976dd964
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EXPERIMENT 02 | ETIKET.ASM | SEQ | DuncanTwain | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 0D 3B 20 53 20 55 20 42 20 50 20 52 20 4F 20 |;.; S U B P R O | 00000010: 47 20 52 20 41 20 4D 20 4D 20 41 20 27 20 53 0D |G R A M M A ' S.| 00000020: 3B 0D 3B 20 20 20 20 20 20 20 20 20 20 56 20 4F |;.; V O| 00000030: 20 4F 20 52 0D 3B 0D 3B 20 20 20 20 45 20 54 20 | O R.;.; E T | 00000040: 49 20 4B 20 45 20 54 20 2E 20 42 20 41 20 53 20 |I K E T . B A S | 00000050: 20 20 2E 0D 3B 0D 3B 0D 3B 20 50 52 4F 47 52 41 | ..;.;.; PROGRA| 00000060: 4D 4D 41 20 20 20 3A 20 20 45 54 49 4B 45 54 20 |MMA : ETIKET | 00000070: 2E 0D 3B 20 42 52 4F 4E 43 4F 44 45 20 20 20 20 |..; BRONCODE | 00000080: 3A 20 20 45 54 49 4B 45 54 2E 41 53 4D 20 20 2E |: ETIKET.ASM .| 00000090: 0D 3B 20 4F 42 4A 45 43 54 43 4F 44 45 20 20 3A |.; OBJECTCODE :| 000000A0: 20 20 45 54 49 4B 45 54 2E 4F 42 4A 20 20 2E 0D | ETIKET.OBJ ..| 000000B0: 3B 20 44 49 53 4B 20 20 20 20 20 20 20 20 3A 20 |; DISK : | 000000C0: 20 45 32 20 20 2E 0D 3B 20 54 41 41 4C 20 20 20 | E2 ..; TAAL | 000000D0: 20 20 20 20 20 3A 20 20 41 53 53 45 4D 42 4C 45 | : ASSEMBLE| 000000E0: 52 20 43 36 34 2E 0D 3B 20 44 41 54 55 4D 20 20 |R C64..; DATUM | 000000F0: 20 20 20 20 20 3A 20 20 32 33 20 4A 55 4C 49 20 | : 23 JULI | 00000100: 31 39 39 35 2E 0D 3B 20 50 52 4F 47 52 41 4D 4D |1995..; PROGRAMM| 00000110: 45 55 52 20 3A 20 20 4A 2E 48 2E 56 41 4E 20 52 |EUR : J.H.VAN R| 00000120: 49 4A 4E 2E 0D 3B 0D 3B 0D 3B 20 44 45 43 49 4D |IJN..;.;.; DECIM| 00000130: 20 48 45 58 41 20 53 59 4D 42 4C 20 46 55 4E 43 | HEXA SYMBL FUNC| 00000140: 54 49 45 0D 3B 0D 3B 20 32 35 36 30 30 20 36 34 |TIE.;.; 25600 64| 00000150: 30 30 20 54 52 41 53 50 20 42 59 54 45 54 52 41 |00 TRASP BYTETRA| 00000160: 4E 53 50 4F 52 54 2D 0D 3B 20 20 20 20 20 20 20 |NSPORT-.; | 00000170: 20 20 20 20 20 20 20 20 20 20 20 53 55 42 50 52 | SUBPR| 00000180: 4F 47 52 41 4D 4D 41 2E 0D 3B 20 32 35 36 33 32 |OGRAMMA..; 25632| 00000190: 20 36 34 32 30 20 53 43 4C 59 53 20 4C 49 4A 53 | 6420 SCLYS LIJS| 000001A0: 54 20 56 2E 52 45 47 45 4C 2D 0D 3B 20 20 20 20 |T V.REGEL-.; | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 | BE| 000001C0: 47 49 4E 41 44 52 45 53 53 45 4E 2E 0D 3B 20 32 |GINADRESSEN..; 2| 000001D0: 35 36 36 38 20 36 34 34 34 20 4C 49 4E 42 4C 20 |5668 6444 LINBL | 000001E0: 4D 45 45 53 54 20 4C 49 4E 4B 53 45 0D 3B 20 20 |MEEST LINKSE.; | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 4E 49 45 54 42 4C 4E 4B 2E 54 45 4B 45 4E 2E 0D |NIETBLNK.TEKEN..| 00000210: 3B 20 32 35 36 39 32 20 36 34 35 43 20 52 45 4E |; 25692 645C REN| 00000220: 42 4C 20 4D 45 45 53 54 20 52 45 43 48 54 53 45 |BL MEEST RECHTSE| 00000230: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 00000240: 20 20 20 20 4E 49 45 54 42 4C 4E 4B 2E 54 45 4B | NIETBLNK.TEK| 00000250: 45 4E 2E 0D 3B 20 32 35 37 31 32 20 36 34 37 30 |EN..; 25712 6470| 00000260: 20 56 55 4C 45 54 20 56 55 4C 20 4D 45 4E 55 2D | VULET VUL MENU-| 00000270: 20 4F 46 0D 3B 20 20 20 20 20 20 20 20 20 20 20 | OF.; | 00000280: 20 20 20 20 20 20 20 45 54 49 4B 45 54 42 4C 4F | ETIKETBLO| 00000290: 4B 2E 0D 3B 20 32 35 37 36 34 20 36 34 41 34 20 |K..; 25764 64A4 | 000002A0: 52 45 47 41 44 20 52 45 47 45 4C 42 45 47 49 4E |REGAD REGELBEGIN| 000002B0: 41 44 52 45 53 0D 3B 20 20 20 20 20 20 20 20 20 |ADRES.; | 000002C0: 20 20 20 20 20 20 20 20 20 4E 55 4D 4D 45 52 20 | NUMMER | 000002D0: 28 58 29 2E 0D 3B 20 32 35 37 38 34 20 36 34 42 |(X)..; 25784 64B| 000002E0: 38 20 54 4F 45 54 53 20 54 4F 45 54 53 20 54 45 |8 TOETS TOETS TE| 000002F0: 4B 45 4E 20 28 41 29 0D 3B 20 20 20 20 20 20 20 |KEN (A).; | 00000300: 20 20 20 20 20 20 20 20 20 20 20 4D 45 54 20 53 | MET S| 00000310: 4F 4F 52 54 20 28 58 29 2E 0D 3B 20 32 35 38 32 |OORT (X)..; 2582| 00000320: 34 20 36 34 45 30 20 53 45 54 4C 4F 20 5A 45 54 |4 64E0 SETLO ZET| 00000330: 20 4C 4F 50 45 52 20 4F 50 0D 3B 20 20 20 20 20 | LOPER OP.; | 00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 47 2E | RG.| 00000350: 28 58 29 2C 4B 4F 4C 2E 28 59 29 2E 0D 3B 20 32 |(X),KOL.(Y)..; 2| 00000360: 35 38 33 32 20 36 34 45 38 20 45 54 49 56 55 20 |5832 64E8 ETIVU | 00000370: 56 55 4C 20 56 45 4C 44 20 56 41 4E 0D 3B 20 20 |VUL VELD VAN.; | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 45 54 49 4B 45 54 20 4D 45 54 20 28 32 29 2E 0D |ETIKET MET (2)..| 000003A0: 3B 20 32 35 38 34 38 20 36 34 46 38 20 53 45 54 |; 25848 64F8 SET| 000003B0: 54 45 20 28 41 29 20 4E 41 41 52 20 41 44 52 45 |TE (A) NAAR ADRE| 000003C0: 53 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |S.; | 000003D0: 20 20 20 20 20 28 32 35 34 2C 32 35 33 29 2B 28 | (254,253)+(| 000003E0: 59 29 2E 0D 3B 20 32 35 38 35 32 20 36 34 46 43 |Y)..; 25852 64FC| 000003F0: 20 4C 45 53 54 45 20 28 28 32 35 34 2C 32 35 33 | LESTE ((254,253| 00000400: 29 2B 28 59 29 29 0D 3B 20 20 20 20 20 20 20 20 |)+(Y)).; | 00000410: 20 20 20 20 20 20 20 20 20 20 4E 2F 52 45 47 49 | N/REGI| 00000420: 53 54 45 52 20 41 2E 0D 3B 20 32 35 38 35 36 20 |STER A..; 25856 | 00000430: 36 35 30 30 20 4D 4E 55 50 4F 20 50 4F 45 54 53 |6500 MNUPO POETS| 00000440: 20 56 45 4C 44 20 56 41 4E 0D 3B 20 20 20 20 20 | VELD VAN.; | 00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E | MEN| 00000460: 55 2E 0D 3B 20 32 35 38 37 38 20 36 35 31 36 20 |U..; 25878 6516 | 00000470: 42 45 54 45 49 20 52 45 47 45 4C 20 4D 2F 42 45 |BETEI REGEL M/BE| 00000480: 47 49 4E 2D 2C 0D 3B 20 20 20 20 20 20 20 20 20 |GIN-,.; | 00000490: 20 20 20 20 20 20 20 20 20 54 55 53 2E 2D 45 4E | TUS.-EN| 000004A0: 20 45 49 4E 44 54 4B 2E 0D 3B 20 32 35 39 30 38 | EINDTK..; 25908| 000004B0: 20 36 35 33 34 20 4B 4F 4C 56 55 20 56 55 4C 20 | 6534 KOLVU VUL | 000004C0: 4B 4F 4C 4F 4D 20 4D 45 54 0D 3B 20 20 20 20 20 |KOLOM MET.; | 000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 55 53 | TUS| 000004E0: 53 45 4E 54 45 4B 45 4E 53 2E 0D 3B 20 32 35 39 |SENTEKENS..; 259| 000004F0: 34 38 20 36 35 35 43 20 50 4F 50 45 4E 20 4F 50 |48 655C POPEN OP| 00000500: 45 4E 45 4E 20 56 41 4E 20 44 45 0D 3B 20 20 20 |ENEN VAN DE.; | 00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 | P| 00000520: 52 49 4E 54 45 52 2E 0D 3B 20 32 35 39 37 36 20 |RINTER..; 25976 | 00000530: 36 35 37 38 20 50 4B 41 52 59 20 50 52 49 4E 54 |6578 PKARY PRINT| 00000540: 20 4B 41 52 41 4B 54 45 52 2D 0D 3B 20 20 20 20 | KARAKTER-.; | 00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 49 | RI| 00000560: 4A 45 4E 20 55 49 54 2E 0D 3B 20 32 36 30 32 38 |JEN UIT..; 26028| 00000570: 20 36 35 41 43 20 50 43 4C 4F 53 20 53 4C 55 49 | 65AC PCLOS SLUI| 00000580: 54 45 4E 20 56 41 4E 20 44 45 0D 3B 20 20 20 20 |TEN VAN DE.; | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 | PR| 000005A0: 49 4E 54 45 52 2E 0D 20 20 20 20 20 20 2E 50 41 |INTER.. .PA| 000005B0: 47 45 0D 3B 20 53 55 42 50 52 4F 47 52 41 4D 4D |GE.; SUBPROGRAMM| 000005C0: 41 27 53 20 56 45 52 56 4F 4C 47 2E 0D 3B 0D 3B |A'S VERVOLG..;.;| 000005D0: 20 44 45 43 49 4D 20 48 45 58 41 20 53 59 4D 42 | DECIM HEXA SYMB| 000005E0: 4C 20 46 55 4E 43 54 49 45 0D 3B 0D 3B 20 32 36 |L FUNCTIE.;.; 26| 000005F0: 30 34 30 20 36 35 42 38 20 50 43 4F 44 45 20 5A |040 65B8 PCODE Z| 00000600: 45 54 20 50 4F 4B 45 2D 32 20 4F 4D 0D 3B 20 20 |ET POKE-2 OM.; | 00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000620: 49 4E 20 50 52 49 4E 54 45 52 43 4F 44 45 2E 0D |IN PRINTERCODE..| 00000630: 3B 20 32 36 30 37 32 20 36 35 44 38 20 49 4E 4C |; 26072 65D8 INL| 00000640: 4F 42 20 42 55 46 46 45 52 4C 45 4E 47 54 45 20 |OB BUFFERLENGTE | 00000650: 4F 50 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |OP.; | 00000660: 20 20 20 20 20 20 4E 55 4C 20 56 4F 4F 52 20 56 | NUL VOOR V| 00000670: 55 4C 4F 42 2E 0D 3B 20 32 36 30 39 36 20 36 35 |ULOB..; 26096 65| 00000680: 46 30 20 56 55 4C 4F 42 20 42 55 46 46 45 52 20 |F0 VULOB BUFFER | 00000690: 56 55 4C 4C 45 4E 0D 3B 20 20 20 20 20 20 20 20 |VULLEN.; | 000006A0: 20 20 20 20 20 20 20 20 20 20 4D 2F 50 52 49 4E | M/PRIN| 000006B0: 54 43 4F 44 45 28 41 29 2E 0D 3B 20 32 36 31 31 |TCODE(A)..; 2611| 000006C0: 32 20 36 36 30 30 20 55 54 4C 4F 42 20 42 55 46 |2 6600 UTLOB BUF| 000006D0: 46 45 52 4C 45 4E 47 54 45 0D 3B 20 20 20 20 20 |FERLENGTE.; | 000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4E 56 | INV| 000006F0: 55 4C 20 4E 41 20 56 55 4C 2E 0D 3B 20 32 36 31 |UL NA VUL..; 261| 00000700: 34 34 20 36 36 32 30 20 45 54 49 42 56 20 50 52 |44 6620 ETIBV PR| 00000710: 49 4E 54 42 55 46 46 45 52 20 4D 45 54 0D 3B 20 |INTBUFFER MET.; | 00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000730: 20 45 54 49 4B 45 54 20 56 55 4C 4C 45 4E 2E 0D | ETIKET VULLEN..| 00000740: 3B 20 32 36 32 34 30 20 36 36 38 30 20 4C 49 4E |; 26240 6680 LIN| 00000750: 53 46 20 52 45 45 4B 53 20 42 59 54 45 53 0D 3B |SF REEKS BYTES.;| 00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000770: 20 20 4E 41 41 52 20 4C 49 4E 4B 53 2E 0D 3B 20 | NAAR LINKS..; | 00000780: 32 36 32 37 32 20 36 36 41 30 20 52 45 43 53 46 |26272 66A0 RECSF| 00000790: 20 52 45 45 4B 53 20 42 59 54 45 53 0D 3B 20 20 | REEKS BYTES.; | 000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007B0: 4E 41 41 52 20 52 45 43 48 54 53 2E 0D 3B 20 32 |NAAR RECHTS..; 2| 000007C0: 36 33 30 34 20 36 36 43 30 20 4C 59 4E 45 4E 20 |6304 66C0 LYNEN | 000007D0: 52 45 47 45 4C 56 45 52 5A 45 54 53 0D 3B 20 20 |REGELVERZETS.; | 000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007F0: 49 4E 20 42 55 46 46 45 52 2E 0D 3B 20 32 36 33 |IN BUFFER..; 263| 00000800: 32 38 20 36 36 44 38 20 53 50 41 52 47 20 53 50 |28 66D8 SPARG SP| 00000810: 41 54 49 45 53 20 5A 45 54 54 45 4E 0D 3B 20 20 |ATIES ZETTEN.; | 00000820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000830: 4F 50 20 52 45 47 45 4C 20 28 58 29 2E 0D 3B 20 |OP REGEL (X)..; | 00000840: 32 36 33 35 30 20 36 36 45 45 20 54 52 53 55 42 |26350 66EE TRSUB| 00000850: 20 42 59 54 45 54 52 41 4E 53 50 4F 52 54 0D 3B | BYTETRANSPORT.;| 00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000870: 20 20 45 45 4E 20 42 4C 4F 4B 2E 0D 3B 20 32 36 | EEN BLOK..; 26| 00000880: 33 36 38 20 36 37 30 30 20 45 54 50 52 49 20 50 |368 6700 ETPRI P| 00000890: 52 49 4E 54 20 41 41 4E 54 41 4C 0D 3B 20 20 20 |RINT AANTAL.; | 000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 | E| 000008B0: 54 49 4B 45 54 54 45 4E 20 55 49 54 2E 0D 3B 20 |TIKETTEN UIT..; | 000008C0: 32 36 34 30 30 20 36 37 32 30 20 4F 50 52 45 47 |26400 6720 OPREG| 000008D0: 20 41 41 4E 54 41 4C 20 4F 50 45 4E 0D 3B 20 20 | AANTAL OPEN.; | 000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008F0: 52 45 47 45 4C 53 20 50 52 49 4E 54 45 4E 2E 0D |REGELS PRINTEN..| 00000900: 3B 20 32 36 34 32 34 20 36 37 33 38 20 55 49 50 |; 26424 6738 UIP| 00000910: 52 49 20 53 4C 55 49 54 20 50 52 49 4E 54 45 52 |RI SLUIT PRINTER| 00000920: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 00000930: 20 20 20 20 4D 45 54 20 48 45 52 5A 45 54 2E 0D | MET HERZET..| 00000940: 3B 20 32 36 34 35 36 20 36 37 35 38 20 50 52 49 |; 26456 6758 PRI| 00000950: 53 54 20 50 52 49 4E 54 45 52 49 4E 53 54 45 4C |ST PRINTERINSTEL| 00000960: 2D 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |-.; | 00000970: 20 20 20 20 20 4C 49 4E 47 20 4E 2F 42 55 46 46 | LING N/BUFF| 00000980: 45 52 2E 0D 3B 20 32 36 34 38 30 20 36 37 37 30 |ER..; 26480 6770| 00000990: 20 54 41 56 45 52 20 56 45 52 54 41 4C 45 4E 20 | TAVER VERTALEN | 000009A0: 4E 41 41 52 0D 3B 20 20 20 20 20 20 20 20 20 20 |NAAR.; | 000009B0: 20 20 20 20 20 20 20 20 50 52 49 4E 54 43 2E 4D | PRINTC.M| 000009C0: 2F 54 41 42 45 4C 2E 0D 3B 20 32 36 34 39 36 20 |/TABEL..; 26496 | 000009D0: 36 37 38 30 20 50 44 45 43 4F 20 5A 4F 45 4B 20 |6780 PDECO ZOEK | 000009E0: 49 54 45 4D 20 49 4E 0D 3B 20 20 20 20 20 20 20 |ITEM IN.; | 000009F0: 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 | PRINT| 00000A00: 43 2E 55 2F 54 41 42 45 4C 2E 0D 3B 20 32 36 35 |C.U/TABEL..; 265| 00000A10: 32 38 20 36 37 41 30 20 4C 59 53 54 50 20 4C 49 |28 67A0 LYSTP LI| 00000A20: 4A 53 54 20 56 41 4E 0D 3B 20 20 20 20 20 20 20 |JST VAN.; | 00000A30: 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 | PRINT| 00000A40: 43 4F 44 45 53 2E 0D 3B 20 32 36 35 36 30 20 36 |CODES..; 26560 6| 00000A50: 37 43 30 20 2E 2E 2E 2E 2E 20 20 20 56 20 52 20 |7C0 ..... V R | 00000A60: 49 20 4A 20 2E 0D 3B 20 20 20 20 20 20 20 20 20 |I J ..; | 00000A70: 20 20 20 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E | .......| 00000A80: 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 0D 3B 20 44 45 20 |.........;.; DE | 00000A90: 49 4E 20 44 45 5A 45 20 53 55 42 50 52 4F 47 52 |IN DEZE SUBPROGR| 00000AA0: 41 4D 4D 41 27 53 0D 3B 20 47 45 42 52 55 49 4B |AMMA'S.; GEBRUIK| 00000AB0: 54 45 20 43 4F 4E 53 54 41 4E 54 45 4E 20 4D 45 |TE CONSTANTEN ME| 00000AC0: 54 20 48 55 4E 0D 3B 20 41 44 52 45 53 53 45 4E |T HUN.; ADRESSEN| 00000AD0: 2E 0D 3B 0D 4D 42 20 20 20 20 20 3D 20 20 20 30 |..;.MB = 0| 00000AE0: 30 36 38 30 20 20 3B 20 42 45 47 49 4E 52 45 47 |0680 ; BEGINREG| 00000AF0: 2E 4D 45 4E 55 2E 0D 4D 45 20 20 20 20 20 3D 20 |.MENU..ME = | 00000B00: 20 20 30 30 36 38 31 20 20 3B 20 20 45 49 4E 44 | 00681 ; EIND| 00000B10: 52 45 47 2E 4D 45 4E 55 2E 0D 3B 0D 4C 42 20 20 |REG.MENU..;.LB | 00000B20: 20 20 20 3D 20 20 20 30 30 36 38 32 20 20 3B 50 | = 00682 ;P| 00000B30: 4F 53 2E 4C 49 4E 4B 53 20 4D 45 4E 55 2E 0D 4C |OS.LINKS MENU..L| 00000B40: 45 20 20 20 20 20 3D 20 20 20 30 30 36 38 33 20 |E = 00683 | 00000B50: 20 3B 50 4F 53 2E 52 43 48 54 53 2E 4D 45 4E 55 | ;POS.RCHTS.MENU| 00000B60: 2E 0D 3B 0D 52 42 20 20 20 20 20 3D 20 20 20 30 |..;.RB = 0| 00000B70: 30 36 38 34 20 20 3B 20 4C 49 4A 4E 20 42 4F 56 |0684 ; LIJN BOV| 00000B80: 45 4E 41 41 4E 2E 0D 52 45 20 20 20 20 20 3D 20 |ENAAN..RE = | 00000B90: 20 20 30 30 36 38 35 20 20 3B 20 4C 49 4A 4E 20 | 00685 ; LIJN | 00000BA0: 4F 4E 44 45 52 41 41 4E 2E 0D 20 20 20 20 20 20 |ONDERAAN.. | 00000BB0: 2E 50 41 47 45 0D 4B 42 20 20 20 20 20 3D 20 20 |.PAGE.KB = | 00000BC0: 20 30 30 36 38 36 20 20 3B 20 4C 49 4A 4E 20 4C | 00686 ; LIJN L| 00000BD0: 49 4E 4B 53 2E 0D 4B 45 20 20 20 20 20 3D 20 20 |INKS..KE = | 00000BE0: 20 30 30 36 38 37 20 20 3B 20 4C 49 4A 4E 20 52 | 00687 ; LIJN R| 00000BF0: 45 43 48 54 53 2E 0D 3B 0D 50 42 20 20 20 20 20 |ECHTS..;.PB | 00000C00: 3D 20 20 20 30 30 36 38 38 20 20 3B 20 42 45 47 |= 00688 ; BEG| 00000C10: 49 4E 52 2E 45 54 49 4B 45 54 2E 0D 50 45 20 20 |INR.ETIKET..PE | 00000C20: 20 20 20 3D 20 20 20 30 30 36 38 39 20 20 3B 20 | = 00689 ; | 00000C30: 20 45 49 4E 44 52 2E 45 54 49 4B 45 54 2E 0D 3B | EINDR.ETIKET..;| 00000C40: 0D 51 42 20 20 20 20 20 3D 20 20 20 30 30 36 39 |.QB = 0069| 00000C50: 30 20 20 3B 20 42 45 47 49 4E 4B 2E 45 54 49 4B |0 ; BEGINK.ETIK| 00000C60: 45 54 2E 0D 51 45 20 20 20 20 20 3D 20 20 20 30 |ET..QE = 0| 00000C70: 30 36 39 31 20 20 3B 20 20 45 49 4E 44 4B 2E 45 |0691 ; EINDK.E| 00000C80: 54 49 4B 45 54 2E 0D 3B 0D 42 52 20 20 20 20 20 |TIKET..;.BR | 00000C90: 3D 20 20 20 30 30 36 39 32 20 20 3B 20 42 45 47 |= 00692 ; BEG| 00000CA0: 49 4E 52 2E 42 4F 4F 44 53 43 2E 0D 42 4B 20 20 |INR.BOODSC..BK | 00000CB0: 20 20 20 3D 20 20 20 30 30 36 39 33 20 20 3B 20 | = 00693 ; | 00000CC0: 42 45 47 49 4E 4B 2E 42 4F 4F 44 53 43 2E 0D 3B |BEGINK.BOODSC..;| 00000CD0: 0D 3B 20 50 52 49 4E 54 42 55 46 46 45 52 42 45 |.; PRINTBUFFERBE| 00000CE0: 47 49 4E 41 44 52 45 53 2E 0D 3B 0D 42 55 42 30 |GINADRES..;.BUB0| 00000CF0: 20 20 20 3D 20 20 20 30 30 36 39 34 20 20 3B 20 | = 00694 ; | 00000D00: 4C 53 2E 50 52 49 4E 54 42 55 46 46 2E 0D 42 55 |LS.PRINTBUFF..BU| 00000D10: 42 31 20 20 20 3D 20 20 20 30 30 36 39 35 20 20 |B1 = 00695 | 00000D20: 3B 20 48 53 2E 50 52 49 4E 54 42 55 46 46 2E 0D |; HS.PRINTBUFF..| 00000D30: 3B 0D 3B 20 56 41 52 49 41 42 45 4C 20 56 45 4C |;.; VARIABEL VEL| 00000D40: 44 2C 20 54 45 56 45 4E 53 20 57 45 52 4B 56 45 |D, TEVENS WERKVE| 00000D50: 4C 44 2E 0D 3B 0D 59 42 20 20 20 20 20 3D 20 20 |LD..;.YB = | 00000D60: 20 30 30 36 39 36 20 20 3B 20 52 45 47 45 4C 20 | 00696 ; REGEL | 00000D70: 42 45 47 49 4E 2E 0D 59 45 20 20 20 20 20 3D 20 |BEGIN..YE = | 00000D80: 20 20 30 30 36 39 37 20 20 3B 20 52 45 47 45 4C | 00697 ; REGEL| 00000D90: 20 45 49 4E 44 2E 0D 58 42 20 20 20 20 20 3D 20 | EIND..XB = | 00000DA0: 20 20 30 30 36 39 38 20 20 3B 20 4B 4F 4C 4F 4D | 00698 ; KOLOM| 00000DB0: 20 42 45 47 49 4E 2E 0D 58 45 20 20 20 20 20 3D | BEGIN..XE =| 00000DC0: 20 20 20 30 30 36 39 39 20 20 3B 20 4B 4F 4C 4F | 00699 ; KOLO| 00000DD0: 4D 20 45 49 4E 44 2E 0D 3B 0D 20 20 20 20 20 20 |M EIND..;. | 00000DE0: 2A 3D 20 20 20 32 35 36 30 30 0D 3B 0D 3B 20 42 |*= 25600.;.; B| 00000DF0: 59 54 45 54 52 41 4E 53 50 4F 52 54 2D 53 55 42 |YTETRANSPORT-SUB| 00000E00: 50 52 4F 47 52 41 4D 4D 41 2E 0D 3B 0D 3B 20 54 |PROGRAMMA..;.; T| 00000E10: 45 20 56 4F 52 45 4E 3A 20 28 31 36 38 2C 31 36 |E VOREN: (168,16| 00000E20: 37 29 20 41 41 4E 54 41 4C 3B 0D 3B 20 20 20 20 |7) AANTAL;.; | 00000E30: 20 20 20 20 20 20 20 28 32 35 32 2C 32 35 31 29 | (252,251)| 00000E40: 20 48 41 41 4C 41 44 52 45 53 3B 0D 3B 20 20 20 | HAALADRES;.; | 00000E50: 20 20 20 20 20 20 20 20 28 32 35 34 2C 32 35 33 | (254,253| 00000E60: 29 20 42 52 45 4E 47 41 44 52 45 53 2E 0D 3B 0D |) BRENGADRES..;.| 00000E70: 3B 20 44 45 5A 45 20 56 45 43 54 4F 52 45 4E 20 |; DEZE VECTOREN | 00000E80: 57 4F 52 44 45 4E 20 56 45 52 41 4E 44 45 52 44 |WORDEN VERANDERD| 00000E90: 0D 3B 20 44 4F 4F 52 20 44 49 54 20 53 55 42 50 |.; DOOR DIT SUBP| 00000EA0: 52 4F 47 52 41 4D 4D 41 2E 0D 3B 0D 54 52 41 53 |ROGRAMMA..;.TRAS| 00000EB0: 50 20 4C 44 58 20 20 31 36 38 0D 20 20 20 20 20 |P LDX 168. | 00000EC0: 20 42 45 51 20 20 54 52 41 53 53 0D 20 20 20 20 | BEQ TRASS. | 00000ED0: 20 20 4C 44 41 20 23 32 35 35 0D 20 20 20 20 20 | LDA #255. | 00000EE0: 20 53 54 41 20 20 31 36 39 0D 54 52 41 53 52 20 | STA 169.TRASR | 00000EF0: 4A 53 52 20 20 54 52 53 55 42 0D 20 20 20 20 20 |JSR TRSUB. | 00000F00: 20 49 4E 43 20 20 32 35 32 0D 20 20 20 20 20 20 | INC 252. | 00000F10: 49 4E 43 20 20 32 35 34 0D 20 20 20 20 20 20 44 |INC 254. D| 00000F20: 45 58 0D 20 20 20 20 20 20 42 4E 45 20 20 54 52 |EX. BNE TR| 00000F30: 41 53 52 0D 54 52 41 53 53 20 4C 44 41 20 20 31 |ASR.TRASS LDA 1| 00000F40: 36 37 0D 20 20 20 20 20 20 42 45 51 20 20 54 52 |67. BEQ TR| 00000F50: 41 53 5A 0D 20 20 20 20 20 20 44 45 59 0D 20 20 |ASZ. DEY. | 00000F60: 20 20 20 20 53 54 59 20 20 31 36 39 0D 20 20 20 | STY 169. | 00000F70: 20 20 20 4A 53 52 20 20 54 52 53 55 42 0D 54 52 | JSR TRSUB.TR| 00000F80: 41 53 5A 20 52 54 53 0D 3B 0D 3B 0D 20 20 20 20 |ASZ RTS.;.;. | 00000F90: 20 20 2E 50 41 47 45 0D 20 20 20 20 20 20 2A 3D | .PAGE. *=| 00000FA0: 20 20 20 32 35 36 33 32 0D 3B 0D 3B 20 50 52 4F | 25632.;.; PRO| 00000FB0: 47 52 41 4D 4D 41 20 56 4F 4F 52 20 48 45 54 20 |GRAMMA VOOR HET | 00000FC0: 5A 45 54 54 45 4E 20 56 41 4E 20 44 45 0D 3B 20 |ZETTEN VAN DE.; | 00000FD0: 42 45 47 49 4E 41 44 52 45 53 53 45 4E 20 56 41 |BEGINADRESSEN VA| 00000FE0: 4E 20 53 43 48 45 52 4D 52 45 47 45 4C 53 0D 3B |N SCHERMREGELS.;| 00000FF0: 20 49 4E 20 44 45 20 41 44 52 45 53 56 45 43 54 | IN DE ADRESVECT| 00001000: 4F 52 45 4E 0D 3B 20 28 30 30 37 30 31 2C 30 30 |OREN.; (00701,00| 00001010: 37 30 30 29 20 54 2F 4D 20 28 30 30 37 34 39 2C |700) T/M (00749,| 00001020: 30 30 37 34 38 29 2E 0D 3B 0D 3B 20 30 30 37 30 |00748)..;.; 0070| 00001030: 30 2B 32 52 20 4C 41 41 47 42 59 54 45 20 41 44 |0+2R LAAGBYTE AD| 00001040: 52 2E 20 52 45 47 45 4C 20 23 52 2E 0D 3B 20 30 |R. REGEL #R..; 0| 00001050: 30 37 30 31 2B 32 52 20 48 4F 4F 47 42 59 54 45 |0701+2R HOOGBYTE| 00001060: 20 41 44 52 2E 20 52 45 47 45 4C 20 23 52 2E 0D | ADR. REGEL #R..| 00001070: 3B 0D 53 43 4C 59 53 20 4C 44 41 20 20 30 30 36 |;.SCLYS LDA 006| 00001080: 34 38 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 |48. STA 16| 00001090: 38 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 |8. LDX #000| 000010A0: 0D 20 20 20 20 20 20 53 54 58 20 20 31 36 37 0D |. STX 167.| 000010B0: 20 20 20 20 20 20 43 4C 43 0D 53 43 4C 59 31 20 | CLC.SCLY1 | 000010C0: 4C 44 41 20 20 31 36 37 0D 20 20 20 20 20 20 53 |LDA 167. S| 000010D0: 54 41 20 20 30 30 37 30 30 2C 58 0D 20 20 20 20 |TA 00700,X. | 000010E0: 20 20 41 44 43 20 23 30 34 30 0D 20 20 20 20 20 | ADC #040. | 000010F0: 20 53 54 41 20 20 31 36 37 0D 20 20 20 20 20 20 | STA 167. | 00001100: 4C 44 41 20 20 31 36 38 0D 20 20 20 20 20 20 53 |LDA 168. S| 00001110: 54 41 20 20 30 30 37 30 31 2C 58 0D 20 20 20 20 |TA 00701,X. | 00001120: 20 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 | ADC #000. | 00001130: 20 53 54 41 20 20 31 36 38 0D 20 20 20 20 20 20 | STA 168. | 00001140: 49 4E 58 0D 20 20 20 20 20 20 49 4E 58 0D 20 20 |INX. INX. | 00001150: 20 20 20 20 43 50 58 20 23 30 35 30 0D 20 20 20 | CPX #050. | 00001160: 20 20 20 42 43 43 20 20 53 43 4C 59 31 0D 20 20 | BCC SCLY1. | 00001170: 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 | RTS.;. | 00001180: 2A 3D 20 20 20 32 35 36 36 38 0D 3B 0D 3B 20 4D |*= 25668.;.; M| 00001190: 45 45 53 54 20 4C 49 4E 4B 53 20 4E 49 45 54 42 |EEST LINKS NIETB| 000011A0: 4C 41 4E 4B 20 54 45 4B 45 4E 2E 0D 3B 20 54 45 |LANK TEKEN..; TE| 000011B0: 56 4F 52 45 4E 20 52 45 47 45 4C 41 44 52 45 53 |VOREN REGELADRES| 000011C0: 3D 3E 28 32 35 34 2C 32 35 33 29 2E 0D 3B 0D 3B |=>(254,253)..;.;| 000011D0: 20 4E 41 20 41 46 4C 4F 4F 50 20 28 59 29 20 3D | NA AFLOOP (Y) =| 000011E0: 20 4B 4F 4C 4F 4D 20 4E 49 45 54 42 4C 2E 54 2E | KOLOM NIETBL.T.| 000011F0: 0D 3B 0D 3B 20 52 45 47 45 4C 20 4C 45 45 47 3A |.;.; REGEL LEEG:| 00001200: 20 43 41 52 52 59 20 4F 50 20 31 2E 0D 3B 0D 4C | CARRY OP 1..;.L| 00001210: 49 4E 42 4C 20 4C 44 59 20 20 51 42 0D 20 20 20 |INBL LDY QB. | 00001220: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 | CLC. BCC| 00001230: 20 20 4C 49 4E 42 32 0D 4C 49 4E 42 31 20 49 4E | LINB2.LINB1 IN| 00001240: 59 0D 4C 49 4E 42 32 20 4C 44 41 20 28 32 35 33 |Y.LINB2 LDA (253| 00001250: 29 2C 59 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |),Y. CMP #0| 00001260: 33 32 0D 20 20 20 20 20 20 42 45 51 20 20 4C 49 |32. BEQ LI| 00001270: 4E 42 33 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |NB3. CLC. | 00001280: 20 20 20 20 52 54 53 0D 4C 49 4E 42 33 20 43 50 | RTS.LINB3 CP| 00001290: 59 20 20 51 45 0D 20 20 20 20 20 20 42 43 43 20 |Y QE. BCC | 000012A0: 20 4C 49 4E 42 31 0D 20 20 20 20 20 20 52 54 53 | LINB1. RTS| 000012B0: 0D 20 20 20 20 20 20 2E 50 41 47 45 0D 20 20 20 |. .PAGE. | 000012C0: 20 20 20 2A 3D 20 20 20 32 35 36 39 32 0D 3B 0D | *= 25692.;.| 000012D0: 3B 20 4D 45 45 53 54 20 52 45 43 48 54 53 20 4E |; MEEST RECHTS N| 000012E0: 49 45 54 42 4C 41 4E 4B 20 54 45 4B 45 4E 2E 0D |IETBLANK TEKEN..| 000012F0: 3B 20 52 45 47 45 4C 41 44 52 45 53 20 49 4E 20 |; REGELADRES IN | 00001300: 28 32 35 34 2C 32 35 33 29 2E 0D 3B 20 41 41 4E |(254,253)..; AAN| 00001310: 20 54 45 20 52 4F 45 50 45 4E 20 4E 41 20 4C 49 | TE ROEPEN NA LI| 00001320: 4E 42 4C 2E 0D 3B 0D 3B 20 4E 41 20 41 46 4C 4F |NBL..;.; NA AFLO| 00001330: 4F 50 20 28 59 29 20 3D 20 4B 4F 4C 4F 4D 20 4E |OP (Y) = KOLOM N| 00001340: 49 45 54 42 4C 2E 54 2E 0D 3B 0D 52 45 4E 42 4C |IETBL.T..;.RENBL| 00001350: 20 4C 44 59 20 20 51 45 0D 52 45 4E 42 31 20 4C | LDY QE.RENB1 L| 00001360: 44 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 |DA (253),Y. | 00001370: 20 43 4D 50 20 23 30 33 32 0D 20 20 20 20 20 20 | CMP #032. | 00001380: 42 4E 45 20 20 52 45 4E 42 32 0D 20 20 20 20 20 |BNE RENB2. | 00001390: 20 44 45 59 0D 20 20 20 20 20 20 43 50 59 20 20 | DEY. CPY | 000013A0: 51 42 0D 20 20 20 20 20 20 42 43 53 20 20 52 45 |QB. BCS RE| 000013B0: 4E 42 31 0D 52 45 4E 42 32 20 52 54 53 0D 3B 0D |NB1.RENB2 RTS.;.| 000013C0: 20 20 20 20 20 20 2A 3D 20 20 20 32 35 37 31 32 | *= 25712| 000013D0: 0D 3B 0D 3B 20 53 55 42 50 52 4F 47 52 41 4D 4D |.;.; SUBPROGRAMM| 000013E0: 41 20 56 4F 4F 52 20 48 45 54 20 56 55 4C 4C 45 |A VOOR HET VULLE| 000013F0: 4E 20 56 41 4E 0D 3B 20 45 45 4E 20 53 43 48 45 |N VAN.; EEN SCHE| 00001400: 52 4D 56 45 4C 44 20 28 45 54 49 4B 45 54 20 4F |RMVELD (ETIKET O| 00001410: 46 20 4D 45 4E 55 29 0D 3B 20 4D 45 54 20 45 45 |F MENU).; MET EE| 00001420: 4E 20 54 45 4B 45 4E 20 49 4E 20 41 44 52 45 53 |N TEKEN IN ADRES| 00001430: 20 30 30 32 2E 0D 3B 0D 56 55 4C 45 54 20 4C 44 | 002..;.VULET LD| 00001440: 41 20 20 59 42 0D 20 20 20 20 20 20 43 4C 43 0D |A YB. CLC.| 00001450: 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 | ROL A. | 00001460: 20 20 20 54 41 58 0D 20 20 20 20 20 20 4C 44 41 | TAX. LDA| 00001470: 20 20 59 45 0D 20 20 20 20 20 20 43 4C 43 0D 20 | YE. CLC. | 00001480: 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 | ROL A. | 00001490: 20 20 53 54 41 20 20 31 36 39 0D 20 20 20 20 20 | STA 169. | 000014A0: 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 | CLC. BCC | 000014B0: 56 55 4C 45 56 0D 56 55 4C 45 55 20 49 4E 58 0D |VULEV.VULEU INX.| 000014C0: 20 20 20 20 20 20 49 4E 58 0D 56 55 4C 45 56 20 | INX.VULEV | 000014D0: 4C 44 41 20 20 30 30 37 30 30 2C 58 0D 20 20 20 |LDA 00700,X. | 000014E0: 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 | STA 253. | 000014F0: 20 20 4C 44 41 20 20 30 30 37 30 31 2C 58 0D 20 | LDA 00701,X. | 00001500: 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 | STA 254. | 00001510: 20 20 20 20 4C 44 59 20 20 58 42 0D 20 20 20 20 | LDY XB. | 00001520: 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 | CLC. BCC | 00001530: 20 56 55 4C 45 58 0D 56 55 4C 45 57 20 49 4E 59 | VULEX.VULEW INY| 00001540: 0D 56 55 4C 45 58 20 4C 44 41 20 20 30 30 32 0D |.VULEX LDA 002.| 00001550: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),| 00001560: 59 0D 20 20 20 20 20 20 43 50 59 20 20 58 45 0D |Y. CPY XE.| 00001570: 20 20 20 20 20 20 42 43 43 20 20 56 55 4C 45 57 | BCC VULEW| 00001580: 0D 20 20 20 20 20 20 43 50 58 20 20 31 36 39 0D |. CPX 169.| 00001590: 20 20 20 20 20 20 42 43 43 20 20 56 55 4C 45 55 | BCC VULEU| 000015A0: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 000015B0: 20 2E 50 41 47 45 0D 20 20 20 20 20 20 2A 3D 20 | .PAGE. *= | 000015C0: 20 20 32 35 37 36 34 0D 3B 0D 3B 20 52 45 47 45 | 25764.;.; REGE| 000015D0: 4C 42 45 47 49 4E 41 44 52 45 53 20 4D 45 54 20 |LBEGINADRES MET | 000015E0: 4E 55 4D 4D 45 52 20 23 28 58 29 2E 0D 3B 20 41 |NUMMER #(X)..; A| 000015F0: 44 52 45 53 20 49 4E 20 28 32 35 34 2C 32 35 33 |DRES IN (254,253| 00001600: 29 2E 0D 3B 0D 52 45 47 41 44 20 54 58 41 0D 20 |)..;.REGAD TXA. | 00001610: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 52 | CLC. R| 00001620: 4F 4C 20 20 41 0D 20 20 20 20 20 20 54 41 59 0D |OL A. TAY.| 00001630: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 30 30 | LDA 00700| 00001640: 2C 59 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |,Y. STA 25| 00001650: 33 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 |3. LDA 007| 00001660: 30 31 2C 59 0D 20 20 20 20 20 20 53 54 41 20 20 |01,Y. STA | 00001670: 32 35 34 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D |254. RTS.;.| 00001680: 20 20 20 20 20 20 2A 3D 20 20 20 32 35 37 38 34 | *= 25784| 00001690: 0D 3B 0D 3B 20 54 4F 45 54 53 20 54 45 4B 45 4E |.;.; TOETS TEKEN| 000016A0: 20 42 49 54 53 20 30 2E 2E 2E 35 20 49 4E 20 52 | BITS 0...5 IN R| 000016B0: 45 47 2E 41 2E 0D 3B 20 54 45 4B 45 4E 53 4F 4F |EG.A..; TEKENSOO| 000016C0: 52 54 20 20 42 49 54 53 20 32 2E 2E 2E 30 20 49 |RT BITS 2...0 I| 000016D0: 4E 20 52 45 47 2E 58 2E 0D 3B 20 41 44 52 45 53 |N REG.X..; ADRES| 000016E0: 20 28 32 35 34 2C 32 35 33 29 20 57 49 4A 5A 49 | (254,253) WIJZI| 000016F0: 47 49 4E 47 20 52 45 47 2E 59 2E 0D 3B 0D 3B 20 |GING REG.Y..;.; | 00001700: 42 49 54 20 20 20 20 37 20 20 36 20 20 35 20 20 |BIT 7 6 5 | 00001710: 34 20 20 33 20 20 32 20 20 31 20 20 30 0D 3B 20 |4 3 2 1 0.; | 00001720: 54 45 4B 45 4E 20 20 2A 20 20 2A 20 20 2A 20 20 |TEKEN * * * | 00001730: 56 20 20 56 20 20 56 20 20 56 20 20 56 0D 3B 20 |V V V V V.; | 00001740: 52 45 47 2E 41 20 20 30 20 20 30 20 20 30 20 20 |REG.A 0 0 0 | 00001750: 56 20 20 56 20 20 56 20 20 56 20 20 56 0D 3B 20 |V V V V V.; | 00001760: 52 45 47 2E 58 20 20 30 20 20 30 20 20 30 20 20 |REG.X 0 0 0 | 00001770: 30 20 20 30 20 20 2A 20 20 2A 20 20 2A 0D 3B 0D |0 0 * * *.;.| 00001780: 54 4F 45 54 53 20 4C 44 41 20 28 32 35 33 29 2C |TOETS LDA (253),| 00001790: 59 20 20 20 20 20 3B 20 44 49 41 50 4F 53 2E 0D |Y ; DIAPOS..| 000017A0: 20 20 20 20 20 20 4F 52 41 20 23 31 32 38 0D 20 | ORA #128. | 000017B0: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 000017C0: 0D 20 20 20 20 20 20 53 54 59 20 20 30 30 32 20 |. STY 002 | 000017D0: 20 20 20 20 20 20 20 3B 20 52 45 44 20 28 59 29 | ; RED (Y)| 000017E0: 2E 0D 54 4F 45 54 55 20 4A 53 52 20 20 24 46 46 |..TOETU JSR $FF| 000017F0: 45 34 20 20 20 20 20 20 3B 20 41 43 43 45 50 54 |E4 ; ACCEPT| 00001800: 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 30 30 |.. CMP #000| 00001810: 0D 20 20 20 20 20 20 42 45 51 20 20 54 4F 45 54 |. BEQ TOET| 00001820: 55 0D 20 20 20 20 20 20 4C 44 59 20 20 30 30 32 |U. LDY 002| 00001830: 20 20 20 20 20 20 20 20 3B 20 48 45 52 53 54 45 | ; HERSTE| 00001840: 4C 2E 0D 20 20 20 20 20 20 54 41 58 20 20 20 20 |L.. TAX | 00001850: 20 20 20 20 20 20 20 20 20 3B 20 52 45 44 20 54 | ; RED T| 00001860: 45 4B 45 4E 2E 0D 20 20 20 20 20 20 4C 44 41 20 |EKEN.. LDA | 00001870: 28 32 35 33 29 2C 59 20 20 20 20 20 3B 20 4E 4F |(253),Y ; NO| 00001880: 52 4D 41 41 4C 2E 0D 20 20 20 20 20 20 41 4E 44 |RMAAL.. AND| 00001890: 20 23 31 32 37 0D 20 20 20 20 20 20 53 54 41 20 | #127. STA | 000018A0: 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 54 58 |(253),Y. TX| 000018B0: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |A ; | 000018C0: 48 45 52 53 54 45 4C 2E 0D 20 20 20 20 20 20 50 |HERSTEL.. P| 000018D0: 48 41 0D 20 20 20 20 20 20 41 4E 44 20 23 32 32 |HA. AND #22| 000018E0: 34 20 20 20 20 20 20 20 20 3B 20 42 49 54 53 20 |4 ; BITS | 000018F0: 37 2E 2E 35 2E 0D 20 20 20 20 20 20 43 4C 43 0D |7..5.. CLC.| 00001900: 20 20 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 | ROL A | 00001910: 20 20 20 20 20 20 3B 20 53 43 48 55 49 46 0D 20 | ; SCHUIF. | 00001920: 20 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 | ROL A | 00001930: 20 20 20 20 20 3B 20 4E 41 41 52 20 32 2E 2E 30 | ; NAAR 2..0| 00001940: 2E 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 |.. ROL A. | 00001950: 20 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 | ROL A | 00001960: 20 20 20 20 20 3B 20 54 45 4B 45 4E 53 4F 4F 52 | ; TEKENSOOR| 00001970: 54 0D 20 20 20 20 20 20 54 41 58 20 20 20 20 20 |T. TAX | 00001980: 20 20 20 20 20 20 20 20 3B 20 49 4E 20 58 2E 0D | ; IN X..| 00001990: 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 | PLA | 000019A0: 20 20 20 20 20 20 3B 20 54 45 4B 45 4E 20 49 4E | ; TEKEN IN| 000019B0: 0D 20 20 20 20 20 20 41 4E 44 20 23 30 33 31 20 |. AND #031 | 000019C0: 20 20 20 20 20 20 20 3B 20 42 49 54 53 20 34 2E | ; BITS 4.| 000019D0: 2E 30 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 20 |.0.. RTS. | 000019E0: 20 20 20 20 2E 50 41 47 45 0D 20 20 20 20 20 20 | .PAGE. | 000019F0: 2A 3D 20 20 20 32 35 38 32 34 0D 3B 0D 3B 20 5A |*= 25824.;.; Z| 00001A00: 45 54 20 4C 4F 50 45 52 20 52 45 47 45 4C 20 28 |ET LOPER REGEL (| 00001A10: 58 29 20 4B 4F 4C 4F 4D 20 28 59 29 2E 0D 3B 0D |X) KOLOM (Y)..;.| 00001A20: 53 45 54 4C 4F 20 43 4C 43 0D 20 20 20 20 20 20 |SETLO CLC. | 00001A30: 4A 53 52 20 20 24 46 46 46 30 0D 20 20 20 20 20 |JSR $FFF0. | 00001A40: 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 | RTS.;. *= | 00001A50: 20 20 32 35 38 33 32 0D 3B 0D 3B 20 56 55 4C 20 | 25832.;.; VUL | 00001A60: 56 45 4C 44 20 56 41 4E 20 45 54 49 4B 45 54 20 |VELD VAN ETIKET | 00001A70: 4D 45 54 20 28 32 29 2E 0D 3B 0D 45 54 49 56 55 |MET (2)..;.ETIVU| 00001A80: 20 4C 44 58 20 23 30 30 33 0D 45 54 49 56 56 20 | LDX #003.ETIVV | 00001A90: 4C 44 41 20 20 50 42 2C 58 0D 20 20 20 20 20 20 |LDA PB,X. | 00001AA0: 53 54 41 20 20 59 42 2C 58 0D 20 20 20 20 20 20 |STA YB,X. | 00001AB0: 44 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 45 |DEX. BPL E| 00001AC0: 54 49 56 56 0D 20 20 20 20 20 20 4A 53 52 20 20 |TIVV. JSR | 00001AD0: 56 55 4C 45 54 0D 20 20 20 20 20 20 52 54 53 0D |VULET. RTS.| 00001AE0: 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 35 38 |;. *= 258| 00001AF0: 34 38 0D 3B 0D 3B 20 42 52 45 4E 47 20 54 45 4B |48.;.; BRENG TEK| 00001B00: 45 4E 20 41 44 52 45 53 20 28 32 35 34 2C 32 35 |EN ADRES (254,25| 00001B10: 33 29 2B 28 59 29 2E 0D 3B 0D 53 45 54 54 45 20 |3)+(Y)..;.SETTE | 00001B20: 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |STA (253),Y. | 00001B30: 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D | RTS.;. *=| 00001B40: 20 20 20 32 35 38 35 32 0D 3B 0D 3B 20 48 41 41 | 25852.;.; HAA| 00001B50: 4C 20 54 45 4B 45 4E 20 41 44 52 45 53 20 28 32 |L TEKEN ADRES (2| 00001B60: 35 34 2C 32 35 33 29 2B 28 59 29 2E 0D 3B 0D 4C |54,253)+(Y)..;.L| 00001B70: 45 53 54 45 20 4C 44 41 20 28 32 35 33 29 2C 59 |ESTE LDA (253),Y| 00001B80: 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 |. RTS.;. | 00001B90: 20 20 20 2A 3D 20 20 20 32 35 38 35 36 0D 3B 0D | *= 25856.;.| 00001BA0: 3B 20 50 4F 45 54 53 20 56 45 4C 44 20 56 41 4E |; POETS VELD VAN| 00001BB0: 20 4D 45 4E 55 2E 0D 3B 0D 4D 4E 55 50 4F 20 4C | MENU..;.MNUPO L| 00001BC0: 44 58 20 23 30 30 33 0D 4D 4E 55 50 50 20 4C 44 |DX #003.MNUPP LD| 00001BD0: 41 20 20 4D 42 2C 58 0D 20 20 20 20 20 20 53 54 |A MB,X. ST| 00001BE0: 41 20 20 59 42 2C 58 0D 20 20 20 20 20 20 44 45 |A YB,X. DE| 00001BF0: 58 0D 20 20 20 20 20 20 42 50 4C 20 20 4D 4E 55 |X. BPL MNU| 00001C00: 50 50 0D 20 20 20 20 20 20 4C 44 41 20 23 30 33 |PP. LDA #03| 00001C10: 32 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 |2. STA 002| 00001C20: 0D 20 20 20 20 20 20 4A 53 52 20 20 56 55 4C 45 |. JSR VULE| 00001C30: 54 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |T. RTS. | 00001C40: 20 20 2E 50 41 47 45 0D 20 20 20 20 20 20 2A 3D | .PAGE. *=| 00001C50: 20 20 20 32 35 38 37 38 0D 3B 0D 3B 20 56 55 4C | 25878.;.; VUL| 00001C60: 20 44 45 20 52 49 4A 20 4D 45 54 20 4E 55 4D 4D | DE RIJ MET NUMM| 00001C70: 45 52 20 49 4E 20 28 58 29 2E 0D 3B 0D 3B 20 20 |ER IN (X)..;.; | 00001C80: 42 45 47 49 4E 54 45 4B 45 4E 20 28 31 36 37 29 |BEGINTEKEN (167)| 00001C90: 20 49 4E 20 4B 4F 4C 4F 4D 20 4B 42 2E 0D 3B 54 | IN KOLOM KB..;T| 00001CA0: 55 53 53 45 4E 54 45 4B 45 4E 53 20 28 31 36 38 |USSENTEKENS (168| 00001CB0: 29 20 49 4E 20 4B 42 2B 31 2E 2E 4B 45 2D 31 2E |) IN KB+1..KE-1.| 00001CC0: 0D 3B 20 20 20 45 49 4E 44 54 45 4B 45 4E 20 28 |.; EINDTEKEN (| 00001CD0: 31 36 39 29 20 49 4E 20 4B 4F 4C 4F 4D 20 4B 45 |169) IN KOLOM KE| 00001CE0: 2E 0D 3B 0D 42 45 54 45 49 20 4A 53 52 20 20 52 |..;.BETEI JSR R| 00001CF0: 45 47 41 44 0D 20 20 20 20 20 20 4C 44 59 20 20 |EGAD. LDY | 00001D00: 4B 42 0D 20 20 20 20 20 20 4C 44 41 20 20 31 36 |KB. LDA 16| 00001D10: 37 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |7. STA (253| 00001D20: 29 2C 59 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |),Y. CLC. | 00001D30: 20 20 20 20 42 43 43 20 20 42 45 54 45 4C 0D 42 | BCC BETEL.B| 00001D40: 45 54 45 4B 20 4C 44 41 20 20 31 36 38 0D 20 20 |ETEK LDA 168. | 00001D50: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 00001D60: 42 45 54 45 4C 20 49 4E 59 0D 20 20 20 20 20 20 |BETEL INY. | 00001D70: 43 50 59 20 20 4B 45 0D 20 20 20 20 20 20 42 43 |CPY KE. BC| 00001D80: 43 20 20 42 45 54 45 4B 0D 20 20 20 20 20 20 4C |C BETEK. L| 00001D90: 44 41 20 20 31 36 39 0D 20 20 20 20 20 20 53 54 |DA 169. ST| 00001DA0: 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 |A (253),Y. | 00001DB0: 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 |RTS.;. *= | 00001DC0: 20 32 35 39 30 38 0D 3B 0D 3B 20 56 55 4C 20 44 | 25908.;.; VUL D| 00001DD0: 45 20 4B 4F 4C 4F 4D 20 4F 50 20 50 4C 41 41 54 |E KOLOM OP PLAAT| 00001DE0: 53 20 28 59 29 2E 0D 3B 20 52 45 47 45 4C 20 50 |S (Y)..; REGEL P| 00001DF0: 42 20 54 4F 54 20 45 4E 20 4D 45 54 20 50 45 2E |B TOT EN MET PE.| 00001E00: 0D 3B 20 54 45 4B 45 4E 20 49 4E 20 32 2E 0D 3B |.; TEKEN IN 2..;| 00001E10: 0D 4B 4F 4C 56 55 20 4C 44 41 20 20 50 42 0D 20 |.KOLVU LDA PB. | 00001E20: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 52 | CLC. R| 00001E30: 4F 4C 20 20 41 0D 20 20 20 20 20 20 54 41 58 0D |OL A. TAX.| 00001E40: 20 20 20 20 20 20 4C 44 41 20 20 50 45 0D 20 20 | LDA PE. | 00001E50: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 52 4F | CLC. RO| 00001E60: 4C 20 20 41 0D 20 20 20 20 20 20 53 54 41 20 20 |L A. STA | 00001E70: 31 36 39 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |169. CLC. | 00001E80: 20 20 20 20 42 43 43 20 20 4B 4F 4C 56 57 0D 4B | BCC KOLVW.K| 00001E90: 4F 4C 56 56 20 49 4E 58 0D 20 20 20 20 20 20 49 |OLVV INX. I| 00001EA0: 4E 58 0D 4B 4F 4C 56 57 20 4C 44 41 20 20 30 30 |NX.KOLVW LDA 00| 00001EB0: 37 30 30 2C 58 0D 20 20 20 20 20 20 53 54 41 20 |700,X. STA | 00001EC0: 20 32 35 33 0D 20 20 20 20 20 20 4C 44 41 20 20 | 253. LDA | 00001ED0: 30 30 37 30 31 2C 58 0D 20 20 20 20 20 20 53 54 |00701,X. ST| 00001EE0: 41 20 20 32 35 34 0D 20 20 20 20 20 20 4C 44 41 |A 254. LDA| 00001EF0: 20 20 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 | 002. STA | 00001F00: 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 43 50 |(253),Y. CP| 00001F10: 58 20 20 31 36 39 0D 20 20 20 20 20 20 42 43 43 |X 169. BCC| 00001F20: 20 20 4B 4F 4C 56 56 0D 20 20 20 20 20 20 52 54 | KOLVV. RT| 00001F30: 53 0D 20 20 20 20 20 20 2E 50 41 47 45 0D 20 20 |S. .PAGE. | 00001F40: 20 20 20 20 2A 3D 20 20 20 32 35 39 34 38 0D 3B | *= 25948.;| 00001F50: 0D 3B 20 20 4F 50 45 4E 45 4E 20 50 52 49 4E 54 |.; OPENEN PRINT| 00001F60: 45 52 3A 20 46 49 4C 45 4E 52 2E 34 2E 0D 3B 0D |ER: FILENR.4..;.| 00001F70: 50 4F 50 45 4E 20 54 58 41 20 20 20 20 20 20 20 |POPEN TXA | 00001F80: 20 20 20 20 3B 20 52 45 44 0D 20 20 20 20 20 20 | ; RED. | 00001F90: 50 48 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 |PHA ; | 00001FA0: 28 58 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 |(X).. LDA #| 00001FB0: 30 30 34 20 20 20 20 20 20 3B 20 46 49 4C 45 4E |004 ; FILEN| 00001FC0: 55 4D 4D 45 52 2E 0D 20 20 20 20 20 20 4C 44 58 |UMMER.. LDX| 00001FD0: 20 23 30 30 34 20 20 20 20 20 20 3B 20 54 4F 45 | #004 ; TOE| 00001FE0: 53 54 45 4C 2E 0D 20 20 20 20 20 20 4C 44 59 20 |STEL.. LDY | 00001FF0: 23 30 30 30 20 20 20 20 20 20 3B 20 53 45 43 2E |#000 ; SEC.| 00002000: 41 44 52 45 53 2E 0D 20 20 20 20 20 20 4A 53 52 |ADRES.. JSR| 00002010: 20 20 24 46 46 42 41 20 20 20 20 3B 20 2A 2A 53 | $FFBA ; **S| 00002020: 45 54 4C 46 53 2A 2A 0D 20 20 20 20 20 20 4C 44 |ETLFS**. LD| 00002030: 41 20 23 30 30 30 20 20 20 20 20 20 3B 20 47 45 |A #000 ; GE| 00002040: 45 4E 20 4E 41 41 4D 2E 0D 20 20 20 20 20 20 4A |EN NAAM.. J| 00002050: 53 52 20 20 24 46 46 42 44 20 20 20 20 3B 20 2A |SR $FFBD ; *| 00002060: 2A 53 45 54 4E 41 4D 2A 2A 0D 20 20 20 20 20 20 |*SETNAM**. | 00002070: 4A 53 52 20 20 24 46 46 43 30 20 20 20 20 3B 20 |JSR $FFC0 ; | 00002080: 2A 2A 20 4F 50 45 4E 20 2A 2A 0D 20 20 20 20 20 |** OPEN **. | 00002090: 20 4C 44 58 20 23 30 30 34 20 20 20 20 20 20 3B | LDX #004 ;| 000020A0: 20 46 49 4C 45 20 23 34 2E 0D 20 20 20 20 20 20 | FILE #4.. | 000020B0: 4A 53 52 20 20 24 46 46 43 39 20 20 20 20 3B 20 |JSR $FFC9 ; | 000020C0: 2A 2A 43 48 4B 4F 55 54 2A 2A 0D 20 20 20 20 20 |**CHKOUT**. | 000020D0: 20 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 3B | PLA ;| 000020E0: 20 48 45 52 53 54 45 4C 0D 20 20 20 20 20 20 54 | HERSTEL. T| 000020F0: 41 58 20 20 20 20 20 20 20 20 20 20 20 3B 20 28 |AX ; (| 00002100: 58 29 2E 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D |X).. RTS.;.| 00002110: 20 20 20 20 20 20 2A 3D 20 20 20 32 35 39 37 36 | *= 25976| 00002120: 0D 3B 0D 3B 20 50 52 49 4E 54 20 50 52 49 4E 54 |.;.; PRINT PRINT| 00002130: 43 4F 44 45 54 45 4B 45 4E 52 49 4A 45 4E 20 55 |CODETEKENRIJEN U| 00002140: 49 54 2E 0D 3B 20 42 45 47 49 4E 41 44 52 45 53 |IT..; BEGINADRES| 00002150: 20 54 45 56 4F 52 45 4E 0D 3B 20 49 4E 20 56 45 | TEVOREN.; IN VE| 00002160: 43 54 4F 52 20 28 42 55 42 31 2C 42 55 42 30 29 |CTOR (BUB1,BUB0)| 00002170: 2E 0D 3B 0D 50 4B 41 52 59 20 4C 44 41 20 20 42 |..;.PKARY LDA B| 00002180: 55 42 30 20 20 20 20 20 3B 20 42 55 46 46 45 52 |UB0 ; BUFFER| 00002190: 42 45 47 49 4E 2D 0D 20 20 20 20 20 20 53 54 41 |BEGIN-. STA| 000021A0: 20 20 32 35 33 20 20 20 20 20 20 3B 20 41 44 52 | 253 ; ADR| 000021B0: 45 53 56 45 43 54 4F 52 0D 20 20 20 20 20 20 4C |ESVECTOR. L| 000021C0: 44 41 20 20 42 55 42 31 20 20 20 20 20 3B 20 49 |DA BUB1 ; I| 000021D0: 4E 20 56 45 43 54 4F 52 0D 20 20 20 20 20 20 53 |N VECTOR. S| 000021E0: 54 41 20 20 32 35 34 20 20 20 20 20 20 3B 20 28 |TA 254 ; (| 000021F0: 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 |254,253).. | 00002200: 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B 20 |CLC ; | 00002210: 45 45 52 53 54 45 20 4D 41 41 4C 2E 0D 20 20 20 |EERSTE MAAL.. | 00002220: 20 20 20 42 43 43 20 20 50 4B 41 52 33 0D 50 4B | BCC PKAR3.PK| 00002230: 41 52 31 20 53 54 41 20 20 30 30 32 20 20 20 20 |AR1 STA 002 | 00002240: 20 20 3B 20 4C 45 4E 47 54 45 2E 20 44 41 4E 0D | ; LENGTE. DAN.| 00002250: 50 4B 41 52 32 20 49 4E 59 20 20 20 20 20 20 20 |PKAR2 INY | 00002260: 20 20 20 20 3B 20 54 45 4B 45 4E 20 4F 50 56 4F | ; TEKEN OPVO| 00002270: 45 2D 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 |E-. LDA (25| 00002280: 33 29 2C 59 20 20 20 3B 20 52 45 4E 2C 20 50 52 |3),Y ; REN, PR| 00002290: 49 4E 54 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |INT.. JSR | 000022A0: 24 46 46 44 32 20 20 20 20 3B 20 2A 2A 43 48 52 |$FFD2 ; **CHR| 000022B0: 4F 55 54 2A 2A 0D 20 20 20 20 20 20 43 50 59 20 |OUT**. CPY | 000022C0: 20 30 30 32 20 20 20 20 20 20 3B 20 4C 41 41 54 | 002 ; LAAT| 000022D0: 53 54 45 3F 0D 20 20 20 20 20 20 42 43 43 20 20 |STE?. BCC | 000022E0: 50 4B 41 52 32 20 20 20 20 3B 20 4E 45 45 3A 56 |PKAR2 ; NEE:V| 000022F0: 4F 4C 47 45 4E 44 2E 0D 20 20 20 20 20 20 53 45 |OLGEND.. SE| 00002300: 43 20 20 20 20 20 20 20 20 20 20 20 3B 20 20 4A |C ; J| 00002310: 41 3A 4F 50 54 45 4C 4C 45 4E 0D 20 20 20 20 20 |A:OPTELLEN. | 00002320: 20 4C 44 41 20 20 30 30 32 20 20 20 20 20 20 3B | LDA 002 ;| 00002330: 20 4C 45 4E 47 54 45 2B 31 20 42 49 4A 0D 20 20 | LENGTE+1 BIJ. | 00002340: 20 20 20 20 41 44 43 20 20 32 35 33 20 20 20 20 | ADC 253 | 00002350: 20 20 3B 20 28 32 35 34 2C 32 35 33 29 2E 0D 20 | ; (254,253).. | 00002360: 20 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 | STA 253. | 00002370: 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 | LDA #000. | 00002380: 20 20 20 41 44 43 20 20 32 35 34 0D 20 20 20 20 | ADC 254. | 00002390: 20 20 53 54 41 20 20 32 35 34 0D 50 4B 41 52 33 | STA 254.PKAR3| 000023A0: 20 4C 44 59 20 23 30 30 30 20 20 20 20 20 20 3B | LDY #000 ;| 000023B0: 20 4C 45 4E 47 54 45 42 59 54 45 0D 20 20 20 20 | LENGTEBYTE. | 000023C0: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 20 20 | LDA (253),Y | 000023D0: 3B 20 4F 50 56 4F 45 52 45 4E 2E 0D 20 20 20 20 |; OPVOEREN.. | 000023E0: 20 20 42 4E 45 20 20 50 4B 41 52 31 20 20 20 20 | BNE PKAR1 | 000023F0: 3B 20 4E 55 4C 3F 20 4A 41 3A 55 49 54 2E 0D 20 |; NUL? JA:UIT.. | 00002400: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00002410: 20 20 20 3B 20 4E 45 45 3A 54 45 52 55 47 2E 0D | ; NEE:TERUG..| 00002420: 20 20 20 20 20 20 2E 50 41 47 45 0D 20 20 20 20 | .PAGE. | 00002430: 20 20 2A 3D 20 20 20 32 36 30 32 38 0D 3B 0D 3B | *= 26028.;.;| 00002440: 20 53 4C 55 49 54 45 4E 20 50 52 49 4E 54 45 52 | SLUITEN PRINTER| 00002450: 3A 20 46 49 4C 45 4E 52 2E 34 2E 0D 3B 0D 50 43 |: FILENR.4..;.PC| 00002460: 4C 4F 53 20 4C 44 41 20 23 30 30 34 0D 20 20 20 |LOS LDA #004. | 00002470: 20 20 20 4A 53 52 20 20 24 46 46 43 33 20 20 20 | JSR $FFC3 | 00002480: 20 3B 20 2A 2A 43 4C 4F 53 45 20 2A 2A 0D 20 20 | ; **CLOSE **. | 00002490: 20 20 20 20 4A 53 52 20 20 24 46 46 45 37 20 20 | JSR $FFE7 | 000024A0: 20 20 3B 20 2A 2A 43 4C 41 4C 4C 20 2A 2A 0D 20 | ; **CLALL **. | 000024B0: 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 | RTS.;. | 000024C0: 20 2A 3D 20 20 20 32 36 30 34 30 0D 3B 0D 3B 20 | *= 26040.;.; | 000024D0: 43 4F 44 45 52 45 4E 20 50 52 49 4E 54 54 45 4B |CODEREN PRINTTEK| 000024E0: 45 4E 20 4E 41 41 52 20 42 55 46 46 45 52 2E 0D |EN NAAR BUFFER..| 000024F0: 3B 20 20 49 4E 2D 20 45 4E 20 55 49 54 47 41 4E |; IN- EN UITGAN| 00002500: 47 53 52 45 47 49 53 54 45 52 20 41 2E 0D 3B 0D |GSREGISTER A..;.| 00002510: 50 43 4F 44 45 20 43 4D 50 20 23 30 32 37 20 20 |PCODE CMP #027 | 00002520: 20 20 20 20 3B 20 50 43 4F 44 45 53 45 54 2D 32 | ; PCODESET-2| 00002530: 0D 20 20 20 20 20 20 42 43 43 20 20 50 43 4F 44 |. BCC PCOD| 00002540: 31 20 20 20 20 3B 20 4B 4C 45 49 4E 45 20 4C 54 |1 ; KLEINE LT| 00002550: 54 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 33 |T.. CMP #03| 00002560: 32 20 20 20 20 20 20 3B 20 5B 5C 5D 5E 5F 0D 20 |2 ; [\]^_. | 00002570: 20 20 20 20 20 42 43 43 20 20 50 43 4F 44 32 0D | BCC PCOD2.| 00002580: 20 20 20 20 20 20 43 4D 50 20 23 30 39 31 20 20 | CMP #091 | 00002590: 20 20 20 20 3B 20 4C 45 45 53 54 45 4B 45 4E 53 | ; LEESTEKENS| 000025A0: 0D 20 20 20 20 20 20 42 43 43 20 20 50 43 4F 44 |. BCC PCOD| 000025B0: 39 20 20 20 20 3B 20 26 20 48 4F 4F 46 44 4C 54 |9 ; & HOOFDLT| 000025C0: 54 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 39 |T.. CMP #09| 000025D0: 36 20 20 20 20 20 20 3B 20 41 43 43 4F 4C 41 44 |6 ; ACCOLAD| 000025E0: 45 53 2E 0D 20 20 20 20 20 20 42 43 43 20 20 50 |ES.. BCC P| 000025F0: 43 4F 44 34 20 20 20 20 3B 20 4F 56 45 52 49 47 |COD4 ; OVERIG| 00002600: 45 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 54 41 |E.. JSR TA| 00002610: 56 45 52 0D 20 20 20 20 20 20 52 54 53 0D 50 43 |VER. RTS.PC| 00002620: 4F 44 31 20 4F 52 41 20 23 30 39 36 20 20 20 20 |OD1 ORA #096 | 00002630: 20 20 3B 20 4B 4C 45 49 4E 45 20 4C 54 54 2E 0D | ; KLEINE LTT..| 00002640: 20 20 20 20 20 20 52 54 53 0D 50 43 4F 44 32 20 | RTS.PCOD2 | 00002650: 4F 52 41 20 23 30 36 34 20 20 20 20 20 20 3B 20 |ORA #064 ; | 00002660: 53 50 45 4B 48 41 4B 45 4E 2E 0D 20 20 20 20 20 |SPEKHAKEN.. | 00002670: 20 52 54 53 0D 50 43 4F 44 34 20 4F 52 41 20 23 | RTS.PCOD4 ORA #| 00002680: 30 33 32 20 20 20 20 20 20 3B 20 41 43 43 4F 4C |032 ; ACCOL| 00002690: 41 44 45 53 2E 0D 50 43 4F 44 39 20 52 54 53 0D |ADES..PCOD9 RTS.| 000026A0: 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 36 30 |;. *= 260| 000026B0: 37 32 0D 3B 0D 3B 20 49 4E 20 44 45 20 42 55 46 |72.;.; IN DE BUF| 000026C0: 46 45 52 50 52 4F 47 52 41 4D 4D 41 27 53 3A 0D |FERPROGRAMMA'S:.| 000026D0: 3B 20 52 45 44 44 45 4E 20 56 41 4E 20 28 59 29 |; REDDEN VAN (Y)| 000026E0: 20 53 43 41 4E 3A 20 28 31 37 30 29 2E 0D 3B 20 | SCAN: (170)..; | 000026F0: 5A 45 54 54 45 4E 20 56 41 4E 20 28 59 29 20 56 |ZETTEN VAN (Y) V| 00002700: 55 4C 20 3A 20 28 31 37 31 29 2E 0D 3B 20 52 45 |UL : (171)..; RE| 00002710: 47 45 4C 49 4E 44 45 58 20 28 58 29 20 4E 49 45 |GELINDEX (X) NIE| 00002720: 54 20 47 45 42 52 55 49 4B 54 2E 0D 3B 0D 3B 20 |T GEBRUIKT..;.; | 00002730: 48 45 54 20 49 4E 4C 4F 4F 50 2D 53 55 42 50 52 |HET INLOOP-SUBPR| 00002740: 4F 47 52 41 4D 4D 41 20 5A 45 54 20 48 45 54 0D |OGRAMMA ZET HET.| 00002750: 3B 20 42 55 46 46 45 52 42 45 47 49 4E 41 44 52 |; BUFFERBEGINADR| 00002760: 45 53 20 49 4E 20 28 32 35 32 2C 32 35 31 29 2E |ES IN (252,251).| 00002770: 0D 3B 0D 49 4E 4C 4F 42 20 53 54 59 20 20 31 37 |.;.INLOB STY 17| 00002780: 30 20 20 20 20 20 20 3B 20 52 45 44 20 28 59 29 |0 ; RED (Y)| 00002790: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 42 55 42 |.. LDA BUB| 000027A0: 30 20 20 20 20 20 3B 20 42 55 46 46 45 52 42 45 |0 ; BUFFERBE| 000027B0: 47 49 4E 2D 0D 20 20 20 20 20 20 53 54 41 20 20 |GIN-. STA | 000027C0: 32 35 31 20 20 20 20 20 20 3B 20 41 44 52 45 53 |251 ; ADRES| 000027D0: 56 45 43 54 4F 52 0D 20 20 20 20 20 20 4C 44 41 |VECTOR. LDA| 000027E0: 20 20 42 55 42 31 20 20 20 20 20 3B 20 49 4E 20 | BUB1 ; IN | 000027F0: 56 45 43 54 4F 52 0D 20 20 20 20 20 20 53 54 41 |VECTOR. STA| 00002800: 20 20 32 35 32 20 20 20 20 20 20 3B 20 28 32 35 | 252 ; (25| 00002810: 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 4C 44 |2,251).. LD| 00002820: 59 20 23 30 30 30 0D 20 20 20 20 20 20 54 59 41 |Y #000. TYA| 00002830: 20 20 20 20 20 20 20 20 20 20 20 3B 20 4C 45 4E | ; LEN| 00002840: 47 54 45 42 59 54 45 0D 20 20 20 20 20 20 53 54 |GTEBYTE. ST| 00002850: 41 20 28 32 35 31 29 2C 59 20 20 20 3B 20 4F 50 |A (251),Y ; OP| 00002860: 20 4E 55 4C 20 45 4E 0D 20 20 20 20 20 20 53 54 | NUL EN. ST| 00002870: 59 20 20 31 37 31 20 20 20 20 20 20 3B 20 49 4E |Y 171 ; IN| 00002880: 20 56 55 4C 54 45 4C 2E 0D 20 20 20 20 20 20 4C | VULTEL.. L| 00002890: 44 59 20 20 31 37 30 20 20 20 20 20 20 3B 20 28 |DY 170 ; (| 000028A0: 59 29 20 54 45 52 55 47 2E 0D 20 20 20 20 20 20 |Y) TERUG.. | 000028B0: 52 54 53 0D 20 20 20 20 20 20 2E 50 41 47 45 0D |RTS. .PAGE.| 000028C0: 20 20 20 20 20 20 2A 3D 20 20 20 32 36 30 39 36 | *= 26096| 000028D0: 0D 3B 0D 3B 20 42 55 46 46 45 52 20 56 55 4C 4C |.;.; BUFFER VULL| 000028E0: 45 4E 20 4D 45 54 20 50 52 49 4E 54 45 52 43 4F |EN MET PRINTERCO| 000028F0: 44 45 2E 0D 3B 20 44 45 20 43 4F 44 45 20 54 45 |DE..; DE CODE TE| 00002900: 20 56 4F 52 45 4E 20 49 4E 20 52 45 47 49 53 54 | VOREN IN REGIST| 00002910: 45 52 20 41 2E 0D 3B 0D 56 55 4C 4F 42 20 53 54 |ER A..;.VULOB ST| 00002920: 59 20 20 31 37 30 20 20 20 20 20 20 3B 20 52 45 |Y 170 ; RE| 00002930: 44 20 28 59 29 2E 0D 20 20 20 20 20 20 4C 44 59 |D (Y).. LDY| 00002940: 20 20 31 37 31 20 20 20 20 20 20 3B 20 56 55 4C | 171 ; VUL| 00002950: 54 45 4C 0D 20 20 20 20 20 20 49 4E 59 20 20 20 |TEL. INY | 00002960: 20 20 20 20 20 20 20 20 3B 20 45 45 4E 20 42 49 | ; EEN BI| 00002970: 4A 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |J.. STA (25| 00002980: 31 29 2C 59 20 20 20 3B 20 28 41 29 20 49 4E 20 |1),Y ; (A) IN | 00002990: 52 49 4A 2E 0D 20 20 20 20 20 20 53 54 59 20 20 |RIJ.. STY | 000029A0: 31 37 31 20 20 20 20 20 20 3B 20 52 45 44 20 56 |171 ; RED V| 000029B0: 55 4C 54 45 4C 2E 0D 20 20 20 20 20 20 4C 44 59 |ULTEL.. LDY| 000029C0: 20 20 31 37 30 20 20 20 20 20 20 3B 20 48 45 52 | 170 ; HER| 000029D0: 53 54 45 4C 20 28 59 29 2E 0D 20 20 20 20 20 20 |STEL (Y).. | 000029E0: 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 |RTS.;. *= | 000029F0: 20 32 36 31 31 32 0D 3B 0D 3B 20 52 49 4A 4C 45 | 26112.;.; RIJLE| 00002A00: 4E 47 54 45 20 5A 45 54 54 45 4E 20 49 4E 20 4C |NGTE ZETTEN IN L| 00002A10: 45 4E 47 54 45 42 59 54 45 2E 0D 3B 20 54 45 56 |ENGTEBYTE..; TEV| 00002A20: 45 4E 53 20 42 45 47 49 4E 41 44 52 45 53 20 4F |ENS BEGINADRES O| 00002A30: 50 48 4F 47 45 4E 20 4D 45 54 0D 3B 20 20 4C 45 |PHOGEN MET.; LE| 00002A40: 4E 47 54 45 20 2B 20 31 2E 0D 3B 0D 3B 20 54 45 |NGTE + 1..;.; TE| 00002A50: 56 45 4E 53 20 57 4F 52 44 54 20 44 45 20 56 4F |VENS WORDT DE VO| 00002A60: 4C 47 45 4E 44 45 20 4C 45 4E 47 54 45 0D 3B 20 |LGENDE LENGTE.; | 00002A70: 4F 50 20 4E 55 4C 20 47 45 5A 45 54 20 56 4F 4F |OP NUL GEZET VOO| 00002A80: 52 20 48 45 54 20 45 49 4E 44 45 20 56 41 4E 0D |R HET EINDE VAN.| 00002A90: 3B 20 48 45 54 20 55 49 54 50 52 49 4E 54 45 4E |; HET UITPRINTEN| 00002AA0: 2E 0D 3B 0D 55 54 4C 4F 42 20 53 54 59 20 20 31 |..;.UTLOB STY 1| 00002AB0: 37 30 20 20 20 20 20 20 3B 20 52 45 44 20 28 59 |70 ; RED (Y| 00002AC0: 29 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |).. LDY #00| 00002AD0: 30 20 20 20 20 20 20 3B 20 4C 45 4E 47 54 45 2E |0 ; LENGTE.| 00002AE0: 0D 20 20 20 20 20 20 4C 44 41 20 20 31 37 31 20 |. LDA 171 | 00002AF0: 20 20 20 20 20 3B 20 5A 45 54 20 56 4F 4F 52 41 | ; ZET VOORA| 00002B00: 41 4E 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |AN. STA (25| 00002B10: 31 29 2C 59 20 20 20 3B 20 49 4E 20 44 45 20 52 |1),Y ; IN DE R| 00002B20: 49 4A 2E 0D 20 20 20 20 20 20 53 45 43 20 20 20 |IJ.. SEC | 00002B30: 20 20 20 20 20 20 20 20 3B 20 4C 45 4E 47 54 45 | ; LENGTE| 00002B40: 20 2B 20 31 0D 20 20 20 20 20 20 41 44 43 20 20 | + 1. ADC | 00002B50: 32 35 31 20 20 20 20 20 20 3B 20 54 45 4C 4C 45 |251 ; TELLE| 00002B60: 4E 20 42 49 4A 0D 20 20 20 20 20 20 53 54 41 20 |N BIJ. STA | 00002B70: 20 32 35 31 20 20 20 20 20 20 3B 20 41 44 52 45 | 251 ; ADRE| 00002B80: 53 56 45 43 54 4F 52 0D 20 20 20 20 20 20 4C 44 |SVECTOR. LD| 00002B90: 41 20 23 30 30 30 20 20 20 20 20 20 3B 20 28 32 |A #000 ; (2| 00002BA0: 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 41 |52,251).. A| 00002BB0: 44 43 20 20 32 35 32 0D 20 20 20 20 20 20 53 54 |DC 252. ST| 00002BC0: 41 20 20 32 35 32 0D 20 20 20 20 20 20 4C 44 59 |A 252. LDY| 00002BD0: 20 23 30 30 30 20 20 20 20 20 20 3B 20 4E 41 20 | #000 ; NA | 00002BE0: 44 45 20 52 49 4A 0D 20 20 20 20 20 20 54 59 41 |DE RIJ. TYA| 00002BF0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 4E 49 45 | ; NIE| 00002C00: 55 57 45 20 4C 45 4E 47 2D 0D 20 20 20 20 20 20 |UWE LENG-. | 00002C10: 53 54 41 20 28 32 35 31 29 2C 59 20 20 20 3B 20 |STA (251),Y ; | 00002C20: 54 45 42 59 54 45 20 4E 55 4C 2E 0D 20 20 20 20 |TEBYTE NUL.. | 00002C30: 20 20 53 54 59 20 20 31 37 31 20 20 20 20 20 20 | STY 171 | 00002C40: 3B 20 49 4E 20 56 55 4C 54 45 4C 2E 0D 20 20 20 |; IN VULTEL.. | 00002C50: 20 20 20 4C 44 59 20 20 31 37 30 20 20 20 20 20 | LDY 170 | 00002C60: 20 3B 20 48 45 52 53 54 45 4C 20 28 59 29 2E 0D | ; HERSTEL (Y)..| 00002C70: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00002C80: 2E 50 41 47 45 0D 20 20 20 20 20 20 2A 3D 20 20 |.PAGE. *= | 00002C90: 20 32 36 31 34 34 0D 3B 0D 3B 20 42 52 45 4E 47 | 26144.;.; BRENG| 00002CA0: 20 45 45 4E 20 45 54 49 4B 45 54 20 4E 41 41 52 | EEN ETIKET NAAR| 00002CB0: 20 44 45 20 42 55 46 46 45 52 2E 0D 3B 0D 45 54 | DE BUFFER..;.ET| 00002CC0: 49 42 56 20 4A 53 52 20 20 49 4E 4C 4F 42 20 20 |IBV JSR INLOB | 00002CD0: 20 20 3B 20 49 4E 4C 4F 4F 50 2E 0D 20 20 20 20 | ; INLOOP.. | 00002CE0: 20 20 4A 53 52 20 20 50 52 49 53 54 20 20 20 20 | JSR PRIST | 00002CF0: 3B 20 50 52 49 4E 54 45 52 2D 0D 20 20 20 20 20 |; PRINTER-. | 00002D00: 20 4A 53 52 20 20 55 54 4C 4F 42 20 20 20 20 3B | JSR UTLOB ;| 00002D10: 20 49 4E 53 54 45 4C 4C 49 4E 47 2E 0D 20 20 20 | INSTELLING.. | 00002D20: 20 20 20 54 58 41 20 20 20 20 20 20 20 20 20 20 | TXA | 00002D30: 20 3B 20 42 45 47 49 4E 52 2E 53 4C 55 49 54 0D | ; BEGINR.SLUIT.| 00002D40: 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 20 | PHA | 00002D50: 20 20 20 20 3B 20 45 4E 20 52 45 44 20 28 58 29 | ; EN RED (X)| 00002D60: 2E 0D 20 20 20 20 20 20 4C 44 58 20 20 50 42 20 |.. LDX PB | 00002D70: 20 20 20 20 20 20 3B 20 53 43 48 45 52 4D 52 45 | ; SCHERMRE| 00002D80: 47 45 4C 0D 20 20 20 20 20 20 43 4C 43 20 20 20 |GEL. CLC | 00002D90: 20 20 20 20 20 20 20 20 3B 20 45 54 49 4B 2E 42 | ; ETIK.B| 00002DA0: 45 47 49 4E 2E 0D 20 20 20 20 20 20 42 43 43 20 |EGIN.. BCC | 00002DB0: 20 45 54 49 42 32 20 20 20 20 3B 20 52 45 47 45 | ETIB2 ; REGE| 00002DC0: 4C 20 23 31 2E 0D 45 54 49 42 31 20 49 4E 58 20 |L #1..ETIB1 INX | 00002DD0: 20 20 20 20 20 20 20 20 20 20 3B 20 52 45 47 45 | ; REGE| 00002DE0: 4C 20 23 32 2C 2E 2E 2E 0D 45 54 49 42 32 20 4A |L #2,....ETIB2 J| 00002DF0: 53 52 20 20 52 45 47 41 44 20 20 20 20 3B 20 52 |SR REGAD ; R| 00002E00: 45 47 2E 28 58 29 20 41 44 52 2E 0D 20 20 20 20 |EG.(X) ADR.. | 00002E10: 20 20 4A 53 52 20 20 4C 49 4E 42 4C 20 20 20 20 | JSR LINBL | 00002E20: 3B 20 45 45 52 53 54 45 20 4E 49 45 54 2D 0D 20 |; EERSTE NIET-. | 00002E30: 20 20 20 20 20 42 43 53 20 20 45 54 49 42 35 20 | BCS ETIB5 | 00002E40: 20 20 20 3B 20 42 4C 41 4E 4B 45 20 54 45 4B 45 | ; BLANKE TEKE| 00002E50: 4E 0D 20 20 20 20 20 20 53 54 59 20 20 31 36 37 |N. STY 167| 00002E60: 20 20 20 20 20 20 3B 20 49 4E 44 49 45 4E 20 52 | ; INDIEN R| 00002E70: 45 47 45 4C 0D 20 20 20 20 20 20 4A 53 52 20 20 |EGEL. JSR | 00002E80: 52 45 4E 42 4C 20 20 20 20 3B 20 4E 49 45 54 20 |RENBL ; NIET | 00002E90: 4C 45 45 47 2E 0D 20 20 20 20 20 20 53 54 59 20 |LEEG.. STY | 00002EA0: 20 31 36 38 20 20 20 20 20 20 3B 20 52 45 43 48 | 168 ; RECH| 00002EB0: 54 53 20 4E 49 45 54 2D 0D 20 20 20 20 20 20 4C |TS NIET-. L| 00002EC0: 44 41 20 23 30 32 37 20 20 20 20 20 20 3B 20 42 |DA #027 ; B| 00002ED0: 4C 41 4E 4B 20 54 45 4B 45 4E 2E 0D 20 20 20 20 |LANK TEKEN.. | 00002EE0: 20 20 4A 53 52 20 20 56 55 4C 4F 42 20 20 20 20 | JSR VULOB | 00002EF0: 3B 20 4C 49 4E 4B 45 52 4D 41 52 47 45 2E 0D 20 |; LINKERMARGE.. | 00002F00: 20 20 20 20 20 4C 44 41 20 23 31 30 38 0D 20 20 | LDA #108. | 00002F10: 20 20 20 20 4A 53 52 20 20 56 55 4C 4F 42 0D 20 | JSR VULOB. | 00002F20: 20 20 20 20 20 4C 44 41 20 20 31 36 37 0D 20 20 | LDA 167. | 00002F30: 20 20 20 20 4A 53 52 20 20 56 55 4C 4F 42 0D 20 | JSR VULOB. | 00002F40: 20 20 20 20 20 4C 44 59 20 20 31 36 37 20 20 20 | LDY 167 | 00002F50: 20 20 20 3B 20 45 45 52 53 54 45 0D 20 20 20 20 | ; EERSTE. | 00002F60: 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 | CLC | 00002F70: 3B 20 54 45 4B 45 4E 2E 0D 20 20 20 20 20 20 42 |; TEKEN.. B| 00002F80: 43 43 20 20 45 54 49 42 34 0D 45 54 49 42 33 20 |CC ETIB4.ETIB3 | 00002F90: 49 4E 59 0D 45 54 49 42 34 20 4C 44 41 20 28 32 |INY.ETIB4 LDA (2| 00002FA0: 35 33 29 2C 59 20 20 20 3B 20 56 4F 45 52 20 54 |53),Y ; VOER T| 00002FB0: 45 4B 2E 4F 50 2E 0D 20 20 20 20 20 20 4A 53 52 |EK.OP.. JSR| 00002FC0: 20 20 50 43 4F 44 45 20 20 20 20 3B 20 4D 41 41 | PCODE ; MAA| 00002FD0: 4B 20 50 52 49 4E 54 2D 0D 20 20 20 20 20 20 4A |K PRINT-. J| 00002FE0: 53 52 20 20 56 55 4C 4F 42 20 20 20 20 3B 20 43 |SR VULOB ; C| 00002FF0: 4F 44 45 20 45 4E 20 56 55 4C 2E 0D 20 20 20 20 |ODE EN VUL.. | 00003000: 20 20 43 50 59 20 20 31 36 38 0D 20 20 20 20 20 | CPY 168. | 00003010: 20 42 43 43 20 20 45 54 49 42 33 0D 45 54 49 42 | BCC ETIB3.ETIB| 00003020: 35 20 4C 44 41 20 23 30 31 33 20 20 20 20 20 20 |5 LDA #013 | 00003030: 3B 20 45 49 4E 44 20 56 41 4E 0D 20 20 20 20 20 |; EIND VAN. | 00003040: 20 4A 53 52 20 20 56 55 4C 4F 42 20 20 20 20 3B | JSR VULOB ;| 00003050: 20 52 45 47 45 4C 3A 5A 45 54 0D 20 20 20 20 20 | REGEL:ZET. | 00003060: 20 4A 53 52 20 20 55 54 4C 4F 42 20 20 20 20 3B | JSR UTLOB ;| 00003070: 20 52 45 54 55 52 4E 20 45 4E 0D 20 20 20 20 20 | RETURN EN. | 00003080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00003090: 20 4C 45 4E 47 54 45 42 59 54 45 2E 0D 20 20 20 | LENGTEBYTE.. | 000030A0: 20 20 20 43 50 58 20 20 50 45 20 20 20 20 20 20 | CPX PE | 000030B0: 20 3B 20 45 49 4E 44 3F 20 4E 45 45 4E 3A 0D 20 | ; EIND? NEEN:. | 000030C0: 20 20 20 20 20 42 43 43 20 20 45 54 49 42 31 20 | BCC ETIB1 | 000030D0: 20 20 20 3B 20 56 4F 4C 47 2E 52 45 47 45 4C 2E | ; VOLG.REGEL.| 000030E0: 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 |. PLA | 000030F0: 20 20 20 20 20 3B 20 48 45 52 53 54 45 4C 0D 20 | ; HERSTEL. | 00003100: 20 20 20 20 20 54 41 58 20 20 20 20 20 20 20 20 | TAX | 00003110: 20 20 20 3B 20 28 58 29 2E 0D 20 20 20 20 20 20 | ; (X).. | 00003120: 52 54 53 0D 20 20 20 20 20 20 2E 50 41 47 45 0D |RTS. .PAGE.| 00003130: 20 20 20 20 20 20 2A 3D 20 20 20 32 36 32 34 30 | *= 26240| 00003140: 0D 3B 0D 3B 20 53 43 48 55 49 46 20 45 45 4E 20 |.;.; SCHUIF EEN | 00003150: 42 59 54 45 52 49 4A 20 4E 41 41 52 20 45 45 4E |BYTERIJ NAAR EEN| 00003160: 0D 3B 20 41 44 52 45 53 20 45 45 4E 20 4C 41 47 |.; ADRES EEN LAG| 00003170: 45 52 2E 0D 3B 0D 3B 20 42 45 47 49 4E 50 4F 53 |ER..;.; BEGINPOS| 00003180: 49 54 49 45 20 20 20 20 20 20 3A 20 28 31 36 38 |ITIE : (168| 00003190: 29 2E 0D 3B 20 20 45 49 4E 44 50 4F 53 49 54 49 |)..; EINDPOSITI| 000031A0: 45 20 20 20 20 20 20 3A 20 28 31 36 39 29 2E 0D |E : (169)..| 000031B0: 3B 20 42 59 54 45 52 49 4A 2D 42 45 47 49 4E 41 |; BYTERIJ-BEGINA| 000031C0: 44 52 45 53 3A 20 28 32 35 34 2C 32 35 33 29 2E |DRES: (254,253).| 000031D0: 0D 3B 0D 4C 49 4E 53 46 20 4C 44 41 20 20 31 36 |.;.LINSF LDA 16| 000031E0: 38 0D 20 20 20 20 20 20 43 4D 50 20 20 31 36 39 |8. CMP 169| 000031F0: 0D 20 20 20 20 20 20 42 43 53 20 20 4C 49 4E 53 |. BCS LINS| 00003200: 55 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 31 |U. LDA #001| 00003210: 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 33 0D |. ADC 253.| 00003220: 20 20 20 20 20 20 53 54 41 20 20 31 37 30 0D 20 | STA 170. | 00003230: 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 | LDA #000. | 00003240: 20 20 20 20 41 44 43 20 20 32 35 34 0D 20 20 20 | ADC 254. | 00003250: 20 20 20 53 54 41 20 20 31 37 31 0D 20 20 20 20 | STA 171. | 00003260: 20 20 4C 44 59 20 20 31 36 38 0D 4C 49 4E 53 48 | LDY 168.LINSH| 00003270: 20 4C 44 41 20 28 31 37 30 29 2C 59 0D 20 20 20 | LDA (170),Y. | 00003280: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 | STA (253),Y. | 00003290: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 43 | INY. C| 000032A0: 50 59 20 20 31 36 39 0D 20 20 20 20 20 20 42 4E |PY 169. BN| 000032B0: 45 20 20 4C 49 4E 53 48 0D 4C 49 4E 53 55 20 52 |E LINSH.LINSU R| 000032C0: 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 20 20 |TS.;. *= | 000032D0: 32 36 32 37 32 0D 3B 0D 3B 20 53 43 48 55 49 46 |26272.;.; SCHUIF| 000032E0: 20 45 45 4E 20 42 59 54 45 52 49 4A 20 4E 41 41 | EEN BYTERIJ NAA| 000032F0: 52 20 45 45 4E 0D 3B 20 41 44 52 45 53 20 45 45 |R EEN.; ADRES EE| 00003300: 4E 20 48 4F 47 45 52 2E 0D 3B 0D 3B 20 42 45 47 |N HOGER..;.; BEG| 00003310: 49 4E 50 4F 53 49 54 49 45 20 20 20 20 20 20 3A |INPOSITIE :| 00003320: 20 28 31 36 38 29 2E 0D 3B 20 20 45 49 4E 44 50 | (168)..; EINDP| 00003330: 4F 53 49 54 49 45 20 20 20 20 20 20 3A 20 28 31 |OSITIE : (1| 00003340: 36 39 29 2E 0D 3B 20 42 59 54 45 52 49 4A 2D 42 |69)..; BYTERIJ-B| 00003350: 45 47 49 4E 41 44 52 45 53 3A 20 28 32 35 34 2C |EGINADRES: (254,| 00003360: 32 35 33 29 2E 0D 3B 0D 52 45 43 53 46 20 4C 44 |253)..;.RECSF LD| 00003370: 41 20 20 31 36 38 0D 20 20 20 20 20 20 43 4D 50 |A 168. CMP| 00003380: 20 20 31 36 39 0D 20 20 20 20 20 20 42 43 53 20 | 169. BCS | 00003390: 20 52 45 43 53 55 0D 20 20 20 20 20 20 4C 44 41 | RECSU. LDA| 000033A0: 20 23 30 30 31 0D 20 20 20 20 20 20 41 44 43 20 | #001. ADC | 000033B0: 20 32 35 33 0D 20 20 20 20 20 20 53 54 41 20 20 | 253. STA | 000033C0: 31 37 30 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |170. LDA #0| 000033D0: 30 30 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 |00. ADC 25| 000033E0: 34 0D 20 20 20 20 20 20 53 54 41 20 20 31 37 31 |4. STA 171| 000033F0: 0D 20 20 20 20 20 20 4C 44 59 20 20 31 36 39 0D |. LDY 169.| 00003400: 52 45 43 53 48 20 44 45 59 0D 20 20 20 20 20 20 |RECSH DEY. | 00003410: 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |LDA (253),Y. | 00003420: 20 20 53 54 41 20 28 31 37 30 29 2C 59 0D 20 20 | STA (170),Y. | 00003430: 20 20 20 20 43 50 59 20 20 31 36 38 0D 20 20 20 | CPY 168. | 00003440: 20 20 20 42 4E 45 20 20 52 45 43 53 48 0D 52 45 | BNE RECSH.RE| 00003450: 43 53 55 20 52 54 53 0D 20 20 20 20 20 20 2E 50 |CSU RTS. .P| 00003460: 41 47 45 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 |AGE. *= 2| 00003470: 36 33 30 34 0D 3B 0D 3B 20 52 45 47 45 4C 56 45 |6304.;.; REGELVE| 00003480: 52 5A 45 54 53 20 45 52 42 49 4A 20 49 4E 20 42 |RZETS ERBIJ IN B| 00003490: 55 46 46 45 52 2E 0D 3B 0D 3B 20 41 41 4E 54 41 |UFFER..;.; AANTA| 000034A0: 4C 20 54 45 20 56 4F 52 45 4E 20 49 4E 20 30 30 |L TE VOREN IN 00| 000034B0: 36 39 36 2E 0D 3B 0D 4C 59 4E 45 4E 20 54 58 41 |696..;.LYNEN TXA| 000034C0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 52 45 44 | ; RED| 000034D0: 0D 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 |. PHA | 000034E0: 20 20 20 20 20 3B 20 28 58 29 2E 0D 20 20 20 20 | ; (X).. | 000034F0: 20 20 4C 44 58 20 20 59 42 20 20 20 20 20 20 20 | LDX YB | 00003500: 3B 20 41 41 4E 54 41 4C 2E 0D 20 20 20 20 20 20 |; AANTAL.. | 00003510: 42 45 51 20 20 4C 59 55 20 20 20 20 20 20 3B 20 |BEQ LYU ; | 00003520: 4E 55 4C 3A 4E 41 41 52 0D 20 20 20 20 20 20 42 |NUL:NAAR. B| 00003530: 4E 45 20 20 4C 59 50 20 20 20 20 20 20 3B 20 48 |NE LYP ; H| 00003540: 4F 4F 46 44 50 52 4F 47 2E 0D 4C 59 4F 20 20 20 |OOFDPROG..LYO | 00003550: 4C 44 41 20 23 30 31 30 20 20 20 20 20 20 3B 20 |LDA #010 ; | 00003560: 52 45 47 45 4C 56 45 52 5A 45 54 0D 20 20 20 20 |REGELVERZET. | 00003570: 20 20 4A 53 52 20 20 56 55 4C 4F 42 20 20 20 20 | JSR VULOB | 00003580: 3B 20 49 4E 20 42 55 46 46 45 52 2E 0D 4C 59 50 |; IN BUFFER..LYP| 00003590: 20 20 20 44 45 58 20 20 20 20 20 20 20 20 20 20 | DEX | 000035A0: 20 3B 20 54 45 4C 20 41 41 4E 54 41 4C 0D 20 20 | ; TEL AANTAL. | 000035B0: 20 20 20 20 42 50 4C 20 20 4C 59 4F 20 20 20 20 | BPL LYO | 000035C0: 20 20 3B 20 56 45 52 5A 45 54 53 20 41 46 2E 0D | ; VERZETS AF..| 000035D0: 20 20 20 20 20 20 4A 53 52 20 20 55 54 4C 4F 42 | JSR UTLOB| 000035E0: 20 20 20 20 3B 20 4C 45 4E 47 54 45 42 59 54 45 | ; LENGTEBYTE| 000035F0: 2E 0D 4C 59 55 20 20 20 50 4C 41 20 20 20 20 20 |..LYU PLA | 00003600: 20 20 20 20 20 20 3B 20 48 45 52 53 54 45 4C 20 | ; HERSTEL | 00003610: 28 58 29 2E 0D 20 20 20 20 20 20 54 41 58 0D 20 |(X).. TAX. | 00003620: 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 | RTS.;. | 00003630: 20 2A 3D 20 20 20 32 36 33 32 38 0D 3B 0D 3B 20 | *= 26328.;.; | 00003640: 56 55 4C 20 52 45 47 45 4C 20 28 58 29 20 4D 45 |VUL REGEL (X) ME| 00003650: 54 20 53 50 41 54 49 45 53 2E 0D 3B 20 42 45 47 |T SPATIES..; BEG| 00003660: 49 4E 50 4F 53 49 54 49 45 20 49 4E 20 30 30 36 |INPOSITIE IN 006| 00003670: 39 38 2E 0D 3B 20 20 45 49 4E 44 50 4F 53 49 54 |98..; EINDPOSIT| 00003680: 49 45 20 49 4E 20 30 30 36 39 39 2E 0D 3B 0D 53 |IE IN 00699..;.S| 00003690: 50 41 52 47 20 4A 53 52 20 20 52 45 47 41 44 20 |PARG JSR REGAD | 000036A0: 20 20 20 3B 20 52 45 47 45 4C 42 45 47 49 4E 2E | ; REGELBEGIN.| 000036B0: 0D 20 20 20 20 20 20 4C 44 59 20 20 58 42 20 20 |. LDY XB | 000036C0: 20 20 20 20 20 3B 20 42 45 47 49 4E 50 4F 53 2E | ; BEGINPOS.| 000036D0: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 000036E0: 20 20 20 20 20 3B 20 45 45 52 53 54 45 0D 20 20 | ; EERSTE. | 000036F0: 20 20 20 20 42 43 43 20 20 53 50 41 52 4B 20 20 | BCC SPARK | 00003700: 20 20 3B 20 50 4F 53 49 54 49 45 2E 0D 53 50 41 | ; POSITIE..SPA| 00003710: 52 49 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 |RI INY | 00003720: 20 3B 20 56 4F 4C 47 45 4E 44 45 2E 0D 53 50 41 | ; VOLGENDE..SPA| 00003730: 52 4B 20 4C 44 41 20 23 30 33 32 20 20 20 20 20 |RK LDA #032 | 00003740: 20 3B 20 5A 45 54 20 53 50 41 54 49 45 0D 20 20 | ; ZET SPATIE. | 00003750: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 | STA (253),Y | 00003760: 20 20 3B 20 49 4E 20 52 45 47 45 4C 2E 0D 20 20 | ; IN REGEL.. | 00003770: 20 20 20 20 43 50 59 20 20 58 45 20 20 20 20 20 | CPY XE | 00003780: 20 20 3B 20 45 49 4E 44 3F 0D 20 20 20 20 20 20 | ; EIND?. | 00003790: 42 43 43 20 20 53 50 41 52 49 20 20 20 20 3B 20 |BCC SPARI ; | 000037A0: 4E 45 45 3A 56 4F 4C 47 45 4E 44 2E 0D 20 20 20 |NEE:VOLGEND.. | 000037B0: 20 20 20 52 54 53 0D 20 20 20 20 20 20 2E 50 41 | RTS. .PA| 000037C0: 47 45 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 36 |GE. *= 26| 000037D0: 33 35 30 0D 3B 0D 3B 20 42 4C 4F 4B 54 52 41 4E |350.;.; BLOKTRAN| 000037E0: 53 50 4F 52 54 20 56 41 4E 20 42 59 54 45 53 2E |SPORT VAN BYTES.| 000037F0: 0D 3B 20 54 45 20 56 4F 52 45 4E 3A 20 28 31 36 |.; TE VOREN: (16| 00003800: 39 29 20 20 20 20 20 41 41 4E 54 41 4C 20 2D 20 |9) AANTAL - | 00003810: 31 3B 0D 3B 20 20 20 20 20 20 20 20 20 20 20 28 |1;.; (| 00003820: 32 35 32 2C 32 35 31 29 20 48 41 41 4C 41 44 52 |252,251) HAALADR| 00003830: 45 53 3B 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |ES;.; | 00003840: 28 32 35 34 2C 32 35 33 29 20 42 52 45 4E 47 41 |(254,253) BRENGA| 00003850: 44 52 45 53 2E 0D 3B 0D 54 52 53 55 42 20 4C 44 |DRES..;.TRSUB LD| 00003860: 59 20 20 31 36 39 0D 20 20 20 20 20 20 42 45 51 |Y 169. BEQ| 00003870: 20 20 54 52 53 55 44 0D 54 52 53 55 43 20 4C 44 | TRSUD.TRSUC LD| 00003880: 41 20 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 |A (251),Y. | 00003890: 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |STA (253),Y. | 000038A0: 20 20 44 45 59 0D 20 20 20 20 20 20 42 4E 45 20 | DEY. BNE | 000038B0: 20 54 52 53 55 43 0D 54 52 53 55 44 20 4C 44 41 | TRSUC.TRSUD LDA| 000038C0: 20 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 53 | (251),Y. S| 000038D0: 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 |TA (253),Y. | 000038E0: 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 2A 3D 20 | RTS.;. *= | 000038F0: 20 20 32 36 33 36 38 0D 3B 0D 3B 20 50 52 49 4E | 26368.;.; PRIN| 00003900: 54 20 45 45 4E 20 41 41 4E 54 41 4C 20 45 54 49 |T EEN AANTAL ETI| 00003910: 4B 45 54 54 45 4E 2E 0D 3B 20 41 41 4E 54 41 4C |KETTEN..; AANTAL| 00003920: 20 45 54 49 4B 45 54 54 45 4E 20 20 20 20 49 4E | ETIKETTEN IN| 00003930: 20 30 30 36 39 37 2E 0D 3B 20 41 41 4E 54 41 4C | 00697..; AANTAL| 00003940: 20 54 55 53 53 45 4E 52 45 47 45 4C 53 20 49 4E | TUSSENREGELS IN| 00003950: 20 30 30 36 39 36 2E 0D 3B 0D 45 54 50 52 49 20 | 00696..;.ETPRI | 00003960: 4C 44 58 20 20 59 45 20 20 20 20 20 20 20 3B 20 |LDX YE ; | 00003970: 41 41 4E 54 41 4C 2E 0D 20 20 20 20 20 20 42 45 |AANTAL.. BE| 00003980: 51 20 20 45 54 50 52 55 20 20 20 20 3B 20 30 3A |Q ETPRU ; 0:| 00003990: 4E 2F 48 4F 4F 46 44 50 47 2E 0D 20 20 20 20 20 |N/HOOFDPG.. | 000039A0: 20 4A 53 52 20 20 45 54 49 42 56 20 20 20 20 3B | JSR ETIBV ;| 000039B0: 20 42 55 46 46 45 52 45 4E 2E 0D 20 20 20 20 20 | BUFFEREN.. | 000039C0: 20 4A 53 52 20 20 4C 59 4E 45 4E 20 20 20 20 3B | JSR LYNEN ;| 000039D0: 20 54 55 53 53 45 4E 52 45 47 53 2E 0D 20 20 20 | TUSSENREGS.. | 000039E0: 20 20 20 4A 53 52 20 20 50 4F 50 45 4E 20 20 20 | JSR POPEN | 000039F0: 20 3B 20 4F 50 45 4E 20 50 52 49 4E 54 52 2E 0D | ; OPEN PRINTR..| 00003A00: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00003A10: 42 43 43 20 20 45 54 50 52 4E 0D 45 54 50 52 4B |BCC ETPRN.ETPRK| 00003A20: 20 4A 53 52 20 20 50 4B 41 52 59 20 20 20 20 3B | JSR PKARY ;| 00003A30: 20 50 52 49 4E 54 20 42 55 46 46 2E 0D 45 54 50 | PRINT BUFF..ETP| 00003A40: 52 4E 20 44 45 58 20 20 20 20 20 20 20 20 20 20 |RN DEX | 00003A50: 20 3B 20 54 45 4C 20 41 46 2E 0D 20 20 20 20 20 | ; TEL AF.. | 00003A60: 20 42 50 4C 20 20 45 54 50 52 4B 20 20 20 20 3B | BPL ETPRK ;| 00003A70: 20 4E 45 47 41 54 49 45 46 3A 0D 20 20 20 20 20 | NEGATIEF:. | 00003A80: 20 4A 53 52 20 20 50 43 4C 4F 53 20 20 20 20 3B | JSR PCLOS ;| 00003A90: 20 53 4C 55 49 54 20 50 52 54 52 2E 0D 45 54 50 | SLUIT PRTR..ETP| 00003AA0: 52 55 20 52 54 53 20 20 20 20 20 20 20 20 20 20 |RU RTS | 00003AB0: 20 3B 20 4E 2F 48 4F 4F 46 44 50 47 2E 0D 3B 0D | ; N/HOOFDPG..;.| 00003AC0: 20 20 20 20 20 20 2A 3D 20 20 20 32 36 34 30 30 | *= 26400| 00003AD0: 0D 3B 0D 3B 20 50 52 49 4E 54 20 41 41 4E 54 41 |.;.; PRINT AANTA| 00003AE0: 4C 20 4F 50 45 4E 20 52 45 47 45 4C 53 2E 0D 3B |L OPEN REGELS..;| 00003AF0: 0D 3B 20 41 41 4E 54 41 4C 20 54 45 20 56 4F 52 |.; AANTAL TE VOR| 00003B00: 45 4E 20 49 4E 20 30 30 36 39 36 2E 0D 3B 0D 4F |EN IN 00696..;.O| 00003B10: 50 52 45 47 20 4C 44 41 20 20 59 42 0D 20 20 20 |PREG LDA YB. | 00003B20: 20 20 20 42 45 51 20 20 4F 50 52 45 55 0D 20 20 | BEQ OPREU. | 00003B30: 20 20 20 20 4A 53 52 20 20 49 4E 4C 4F 42 0D 20 | JSR INLOB. | 00003B40: 20 20 20 20 20 4A 53 52 20 20 4C 59 4E 45 4E 0D | JSR LYNEN.| 00003B50: 20 20 20 20 20 20 4A 53 52 20 20 50 4F 50 45 4E | JSR POPEN| 00003B60: 0D 20 20 20 20 20 20 4A 53 52 20 20 50 4B 41 52 |. JSR PKAR| 00003B70: 59 0D 20 20 20 20 20 20 4A 53 52 20 20 50 43 4C |Y. JSR PCL| 00003B80: 4F 53 0D 4F 50 52 45 55 20 52 54 53 0D 20 20 20 |OS.OPREU RTS. | 00003B90: 20 20 20 2E 50 41 47 45 0D 20 20 20 20 20 20 2A | .PAGE. *| 00003BA0: 3D 20 20 20 32 36 34 32 34 0D 3B 0D 3B 20 53 4C |= 26424.;.; SL| 00003BB0: 55 49 54 20 50 52 49 4E 54 45 52 20 4D 45 54 20 |UIT PRINTER MET | 00003BC0: 48 45 52 5A 45 54 2E 0D 3B 0D 55 49 50 52 49 20 |HERZET..;.UIPRI | 00003BD0: 4A 53 52 20 20 49 4E 4C 4F 42 0D 20 20 20 20 20 |JSR INLOB. | 00003BE0: 20 4C 44 41 20 23 30 32 37 0D 20 20 20 20 20 20 | LDA #027. | 00003BF0: 4A 53 52 20 20 56 55 4C 4F 42 0D 20 20 20 20 20 |JSR VULOB. | 00003C00: 20 4C 44 41 20 23 30 36 34 0D 20 20 20 20 20 20 | LDA #064. | 00003C10: 4A 53 52 20 20 56 55 4C 4F 42 0D 20 20 20 20 20 |JSR VULOB. | 00003C20: 20 4A 53 52 20 20 55 54 4C 4F 42 0D 20 20 20 20 | JSR UTLOB. | 00003C30: 20 20 4A 53 52 20 20 50 4F 50 45 4E 0D 20 20 20 | JSR POPEN. | 00003C40: 20 20 20 4A 53 52 20 20 50 4B 41 52 59 0D 20 20 | JSR PKARY. | 00003C50: 20 20 20 20 4A 53 52 20 20 50 43 4C 4F 53 0D 20 | JSR PCLOS. | 00003C60: 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 | RTS.;. | 00003C70: 20 2A 3D 20 20 20 32 36 34 35 36 0D 3B 0D 3B 20 | *= 26456.;.; | 00003C80: 5A 45 54 20 50 52 49 4E 54 45 52 49 4E 53 54 45 |ZET PRINTERINSTE| 00003C90: 4C 4C 49 4E 47 20 49 4E 20 42 55 46 46 45 52 2E |LLING IN BUFFER.| 00003CA0: 0D 3B 0D 3B 20 54 45 20 56 4F 52 45 4E 3A 0D 3B |.;.; TE VOREN:.;| 00003CB0: 0D 3B 20 20 28 30 30 38 32 30 29 20 20 20 20 20 |.; (00820) | 00003CC0: 20 20 20 20 20 20 41 41 4E 54 41 4C 20 4C 2E 0D | AANTAL L..| 00003CD0: 3B 20 20 28 30 30 38 32 31 29 2E 2E 2E 28 30 30 |; (00821)...(00| 00003CE0: 38 32 4C 29 20 44 45 20 4C 20 42 59 54 45 53 2E |82L) DE L BYTES.| 00003CF0: 0D 3B 0D 50 52 49 53 54 20 54 58 41 0D 20 20 20 |.;.PRIST TXA. | 00003D00: 20 20 20 50 48 41 0D 20 20 20 20 20 20 4C 44 58 | PHA. LDX| 00003D10: 20 23 30 30 30 0D 50 52 49 53 55 20 49 4E 58 0D | #000.PRISU INX.| 00003D20: 20 20 20 20 20 20 4C 44 41 20 20 30 30 38 32 30 | LDA 00820| 00003D30: 2C 58 0D 20 20 20 20 20 20 4A 53 52 20 20 56 55 |,X. JSR VU| 00003D40: 4C 4F 42 0D 20 20 20 20 20 20 43 50 58 20 20 30 |LOB. CPX 0| 00003D50: 30 38 32 30 0D 20 20 20 20 20 20 42 43 43 20 20 |0820. BCC | 00003D60: 50 52 49 53 55 0D 20 20 20 20 20 20 50 4C 41 0D |PRISU. PLA.| 00003D70: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00003D80: 52 54 53 0D 3B 0D 20 20 20 20 20 20 2E 50 41 47 |RTS.;. .PAG| 00003D90: 45 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 36 34 |E. *= 264| 00003DA0: 38 30 0D 3B 0D 3B 20 56 45 52 54 41 4C 45 4E 20 |80.;.; VERTALEN | 00003DB0: 56 41 4E 20 45 45 4E 20 54 45 4B 45 4E 20 4E 41 |VAN EEN TEKEN NA| 00003DC0: 41 52 0D 3B 20 50 52 49 4E 54 43 4F 44 45 20 56 |AR.; PRINTCODE V| 00003DD0: 4F 4C 47 45 4E 53 20 45 45 4E 20 54 41 42 45 4C |OLGENS EEN TABEL| 00003DE0: 2E 0D 3B 0D 3B 20 52 45 47 49 53 54 45 52 20 41 |..;.; REGISTER A| 00003DF0: 20 4E 41 41 52 20 52 45 47 49 53 54 45 52 20 41 | NAAR REGISTER A| 00003E00: 2E 0D 3B 0D 54 41 56 45 52 20 53 54 58 20 20 30 |..;.TAVER STX 0| 00003E10: 30 32 0D 20 20 20 20 20 20 41 4E 44 20 23 30 33 |02. AND #03| 00003E20: 31 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 |1. TAX. | 00003E30: 20 20 4C 44 41 20 20 4C 59 53 54 50 2C 58 0D 20 | LDA LYSTP,X. | 00003E40: 20 20 20 20 20 4C 44 58 20 20 30 30 32 0D 20 20 | LDX 002. | 00003E50: 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 20 | RTS.;. | 00003E60: 2A 3D 20 20 20 32 36 34 39 36 0D 3B 0D 3B 20 5A |*= 26496.;.; Z| 00003E70: 4F 45 4B 20 45 45 4E 20 50 52 49 4E 54 54 45 4B |OEK EEN PRINTTEK| 00003E80: 45 4E 20 49 4E 20 44 45 20 54 41 42 45 4C 2E 0D |EN IN DE TABEL..| 00003E90: 3B 0D 3B 20 52 45 47 49 53 54 45 52 20 41 20 4E |;.; REGISTER A N| 00003EA0: 41 41 52 20 52 45 47 49 53 54 45 52 20 41 2E 0D |AAR REGISTER A..| 00003EB0: 3B 0D 3B 20 4E 49 45 54 20 47 45 56 4F 4E 44 45 |;.; NIET GEVONDE| 00003EC0: 4E 3A 20 28 41 29 20 3D 20 33 32 2E 0D 3B 0D 50 |N: (A) = 32..;.P| 00003ED0: 44 45 43 4F 20 53 54 58 20 20 30 30 32 0D 20 20 |DECO STX 002. | 00003EE0: 20 20 20 20 4C 44 58 20 23 30 33 31 0D 50 44 45 | LDX #031.PDE| 00003EF0: 43 50 20 43 4D 50 20 20 4C 59 53 54 50 2C 58 0D |CP CMP LYSTP,X.| 00003F00: 20 20 20 20 20 20 42 45 51 20 20 50 44 45 43 52 | BEQ PDECR| 00003F10: 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 |. DEX. | 00003F20: 20 42 50 4C 20 20 50 44 45 43 50 0D 20 20 20 20 | BPL PDECP. | 00003F30: 20 20 4C 44 58 20 23 30 33 32 0D 50 44 45 43 52 | LDX #032.PDECR| 00003F40: 20 54 58 41 0D 20 20 20 20 20 20 4C 44 58 20 20 | TXA. LDX | 00003F50: 30 30 32 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D |002. RTS.;.| 00003F60: 20 20 20 20 20 20 2A 3D 20 20 20 32 36 35 32 38 | *= 26528| 00003F70: 0D 3B 0D 4C 59 53 54 50 20 2E 42 59 54 45 20 30 |.;.LYSTP .BYTE 0| 00003F80: 33 32 2C 31 36 31 0D 20 20 20 20 20 20 2E 42 59 |32,161. .BY| 00003F90: 54 45 20 31 33 39 2C 31 35 31 0D 20 20 20 20 20 |TE 139,151. | 00003FA0: 20 2E 42 59 54 45 20 31 34 39 2C 31 35 30 0D 20 | .BYTE 149,150. | 00003FB0: 20 20 20 20 20 2E 42 59 54 45 20 31 37 31 2C 31 | .BYTE 171,1| 00003FC0: 36 38 0D 20 20 20 20 20 20 2E 42 59 54 45 20 31 |68. .BYTE 1| 00003FD0: 35 36 2C 31 35 39 0D 20 20 20 20 20 20 2E 42 59 |56,159. .BY| 00003FE0: 54 45 20 31 36 35 2C 31 33 33 0D 20 20 20 20 20 |TE 165,133. | 00003FF0: 20 2E 42 59 54 45 20 31 33 38 2C 31 33 32 0D 20 | .BYTE 138,132. | 00004000: 20 20 20 20 20 2E 42 59 54 45 20 31 36 30 2C 31 | .BYTE 160,1| 00004010: 34 38 0D 20 20 20 20 20 20 2E 42 59 54 45 20 31 |48. .BYTE 1| 00004020: 34 32 2C 31 33 37 0D 20 20 20 20 20 20 2E 42 59 |42,137. .BY| 00004030: 54 45 20 31 33 30 2C 31 33 31 0D 20 20 20 20 20 |TE 130,131. | 00004040: 20 2E 42 59 54 45 20 31 34 30 2C 31 34 31 0D 20 | .BYTE 140,141. | 00004050: 20 20 20 20 20 2E 42 59 54 45 20 31 34 37 2C 31 | .BYTE 147,1| 00004060: 32 39 0D 20 20 20 20 20 20 2E 42 59 54 45 20 31 |29. .BYTE 1| 00004070: 35 34 2C 31 35 33 0D 20 20 20 20 20 20 2E 42 59 |54,153. .BY| 00004080: 54 45 20 31 36 32 2C 31 33 36 0D 20 20 20 20 20 |TE 162,136. | 00004090: 20 2E 42 59 54 45 20 31 32 38 2C 31 33 35 0D 20 | .BYTE 128,135. | 000040A0: 20 20 20 20 20 2E 42 59 54 45 20 31 36 33 2C 31 | .BYTE 163,1| 000040B0: 36 34 0D 20 20 20 20 20 20 2E 50 41 47 45 0D 3B |64. .PAGE.;| 000040C0: 0D 20 20 20 20 20 20 2A 3D 20 20 20 32 36 35 36 |. *= 2656| 000040D0: 30 0D 3B 0D 3B 20 20 20 20 56 20 52 20 49 20 4A |0.;.; V R I J| 000040E0: 20 2E 0D 3B 0D 20 20 20 20 20 20 2E 45 4E 44 0D | ..;. .END.|
;.; 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 : ETIKET ..; BRON
CODE : ETIKET.ASM ..; OBJECTCODE :
ETIKET.OBJ ..; DISK : E2 ..;
TAAL : ASSEMBLER C64..; DATUM
: 23 JULI 1995..; PROGRAMMEUR : J
.H.VAN RIJN..;.;.; DECIM HEXA SYMBL FUNC
TIE.;.; 25600 6400 TRASP BYTETRANSPORT-.
; SUBPROGRAMMA..; 25632
6420 SCLYS LIJST V.REGEL-.;
BEGINADRESSEN..; 25668 6444 LINBL
MEEST LINKSE.; NIETBLNK
.TEKEN..; 25692 645C RENBL MEEST RECHTSE
.; NIETBLNK.TEKEN..; 25
712 6470 VULET VUL MENU- OF.;
ETIKETBLOK..; 25764 64A4 REGAD RE
GELBEGINADRES.; NUMMER
(X)..; 25784 64B8 TOETS TOETS TEKEN (A).
; MET SOORT (X)..; 2582
4 64E0 SETLO ZET LOPER OP.;
RG.(X),KOL.(Y)..; 25832 64E8 ETIVU
VUL VELD VAN.; ETIKET M
ET (2)..; 25848 64F8 SETTE (A) NAAR ADRE
S.; (254,253)+(Y)..; 25
852 64FC LESTE ((254,253)+(Y)).;
N/REGISTER A..; 25856 6500 MNU
PO POETS VELD VAN.; MEN
U..; 25878 6516 BETEI REGEL M/BEGIN-,.;
TUS.-EN EINDTK..; 25908
6534 KOLVU VUL KOLOM MET.;
TUSSENTEKENS..; 25948 655C POPEN OP
ENEN VAN DE.; PRINTER..
; 25976 6578 PKARY PRINT KARAKTER-.;
RIJEN UIT..; 26028 65AC PC
LOS SLUITEN VAN DE.; PR
INTER.. .PAGE.; SUBPROGRAMMA'S VERV
OLG..;.; DECIM HEXA SYMBL FUNCTIE.;.; 26
040 65B8 PCODE ZET POKE-2 OM.;
IN PRINTERCODE..; 26072 65D8 INL
OB BUFFERLENGTE OP.; NU
L VOOR VULOB..; 26096 65F0 VULOB BUFFER
VULLEN.; M/PRINTCODE(A)
..; 26112 6600 UTLOB BUFFERLENGTE.;
INVUL NA VUL..; 26144 6620
ETIBV PRINTBUFFER MET.;
ETIKET VULLEN..; 26240 6680 LINSF REEKS
BYTES.; NAAR LINKS..;
26272 66A0 RECSF REEKS BYTES.;
NAAR RECHTS..; 26304 66C0 LYNEN
REGELVERZETS.; IN BUFFE
R..; 26328 66D8 SPARG SPATIES ZETTEN.;
OP REGEL (X)..; 26350 66
EE TRSUB BYTETRANSPORT.;
EEN BLOK..; 26368 6700 ETPRI PRINT AAN
TAL.; ETIKETTEN UIT..;
26400 6720 OPREG AANTAL OPEN.;
REGELS PRINTEN..; 26424 6738 UIP
RI SLUIT PRINTER.; MET
HERZET..; 26456 6758 PRIST PRINTERINSTEL
-.; LING N/BUFFER..; 26
480 6770 TAVER VERTALEN NAAR.;
PRINTC.M/TABEL..; 26496 6780 PDE
CO ZOEK ITEM IN.; PRINT
C.U/TABEL..; 26528 67A0 LYSTP LIJST VAN.
; PRINTCODES..; 26560 6
7C0 ..... V R I J ..;
................;.; DE IN DEZE SUBPROGR
AMMA'S.; GEBRUIKTE CONSTANTEN MET HUN.;
ADRESSEN..;.MB = 00680 ; BEGINREG
.MENU..ME = 00681 ; EINDREG.MENU
..;.LB = 00682 ;POS.LINKS MENU..L
E = 00683 ;POS.RCHTS.MENU..;.RB
= 00684 ; LIJN BOVENAAN..RE =
00685 ; LIJN ONDERAAN.. .PAGE.KB
= 00686 ; LIJN LINKS..KE =
00687 ; LIJN RECHTS..;.PB = 0068
8 ; BEGINR.ETIKET..PE = 00689 ;
EINDR.ETIKET..;.QB = 00690 ; BEG
INK.ETIKET..QE = 00691 ; EINDK.E
TIKET..;.BR = 00692 ; BEGINR.BOOD
SC..BK = 00693 ; BEGINK.BOODSC..;
.; PRINTBUFFERBEGINADRES..;.BUB0 = 0
0694 ; LS.PRINTBUFF..BUB1 = 00695
; HS.PRINTBUFF..;.; VARIABEL VELD, TEVEN
S WERKVELD..;.YB = 00696 ; REGEL
BEGIN..YE = 00697 ; REGEL EIND..X
B = 00698 ; KOLOM BEGIN..XE =
00699 ; KOLOM EIND..;. *= 256
00.;.; BYTETRANSPORT-SUBPROGRAMMA..;.; T
E VOREN: (168,167) AANTAL;.; (
252,251) HAALADRES;.; (254,253
) BRENGADRES..;.; DEZE VECTOREN WORDEN V
ERANDERD.; DOOR DIT SUBPROGRAMMA..;.TRAS
P LDX 168. BEQ TRASS. LDA #2
55. STA 169.TRASR JSR TRSUB.
INC 252. INC 254. DEX.
BNE TRASR.TRASS LDA 167. BEQ TR
ASZ. DEY. STY 169. JSR
TRSUB.TRASZ RTS.;.;. .PAGE. *=
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. *= 26480.;.; VERTALEN VAN EEN
TEKEN NAAR.; PRINTCODE VOLGENS EEN TABEL
..;.; REGISTER A NAAR REGISTER A..;.TAVE
R STX 002. AND #031. TAX.
LDA LYSTP,X. LDX 002. RTS.
;. *= 26496.;.; ZOEK EEN PRINTTEK
EN IN DE TABEL..;.; REGISTER A NAAR REGI
STER A..;.; NIET GEVONDEN: (A) = 32..;.P
DECO STX 002. LDX #031.PDECP CMP
LYSTP,X. BEQ PDECR. DEX.
BPL PDECP. LDX #032.PDECR TXA.
LDX 002. RTS.;. *= 26528
.;.LYSTP .BYTE 032,161. .BYTE 139,1
51. .BYTE 149,150. .BYTE 171,1
68. .BYTE 156,159. .BYTE 165,1
33. .BYTE 138,132. .BYTE 160,1
48. .BYTE 142,137. .BYTE 130,1
31. .BYTE 140,141. .BYTE 147,1
29. .BYTE 154,153. .BYTE 162,1
36. .BYTE 128,135. .BYTE 163,1
64. .PAGE.;. *= 26560.;.;
V R I J ..;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL