HONTAL.ASM
FILE INFORMATION
FILENAME(S): HONTAL.ASM
FILE TYPE(S): SEQ
FILE SIZE: 11.5K
FIRST SEEN: 2025-11-30 21:26:13
APPEARS ON: 1 disk(s)
FILE HASH
8f614febc3396e2262fca57cae5049496b9edcc7effc453e547de154cdef839f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 4 | HONTAL.ASM | SEQ | DuncanTwain | 23 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 0D 3B 20 50 52 4F 47 52 41 4D 4D 41 20 20 20 |;.; PROGRAMMA | 00000010: 3A 20 20 48 4F 4E 44 45 52 44 54 41 4C 4C 49 47 |: HONDERDTALLIG| 00000020: 2E 0D 3B 20 42 52 4F 4E 43 4F 44 45 20 20 20 20 |..; BRONCODE | 00000030: 3A 20 20 48 4F 4E 54 41 4C 2E 41 53 4D 20 20 20 |: HONTAL.ASM | 00000040: 2E 0D 3B 20 4F 42 4A 45 43 54 43 4F 44 45 20 20 |..; OBJECTCODE | 00000050: 3A 20 20 48 4F 4E 54 41 4C 2E 4F 42 4A 20 20 20 |: HONTAL.OBJ | 00000060: 2E 0D 3B 20 44 49 53 4B 20 20 20 20 20 20 20 20 |..; DISK | 00000070: 3A 20 20 44 45 4D 4F 2D 34 20 20 20 20 20 20 20 |: DEMO-4 | 00000080: 2E 0D 3B 20 54 41 41 4C 20 20 20 20 20 20 20 20 |..; TAAL | 00000090: 3A 20 20 41 53 53 45 4D 42 4C 45 52 20 43 36 34 |: ASSEMBLER C64| 000000A0: 2E 0D 3B 20 44 41 54 55 4D 20 20 20 20 20 20 20 |..; DATUM | 000000B0: 3A 20 20 32 38 20 44 45 43 2E 31 39 39 31 2E 0D |: 28 DEC.1991..| 000000C0: 3B 20 50 52 4F 47 52 41 4D 4D 45 55 52 20 3A 20 |; PROGRAMMEUR : | 000000D0: 20 4A 2E 48 2E 56 41 4E 20 52 49 4A 4E 2E 0D 3B | J.H.VAN RIJN..;| 000000E0: 0D 3B 20 4F 50 20 44 45 5A 45 20 53 45 54 20 53 |.; OP DEZE SET S| 000000F0: 54 41 41 4E 20 53 55 42 50 52 4F 47 52 41 4D 4D |TAAN SUBPROGRAMM| 00000100: 41 27 53 0D 3B 20 56 4F 4F 52 20 42 45 57 45 52 |A'S.; VOOR BEWER| 00000110: 4B 49 4E 47 45 4E 20 49 4E 20 48 45 54 20 48 4F |KINGEN IN HET HO| 00000120: 4E 44 45 52 44 2D 0D 3B 20 54 41 4C 4C 49 47 45 |NDERD-.; TALLIGE| 00000130: 20 53 54 45 4C 53 45 4C 2E 0D 3B 0D 3B 3D 3D 3D | STELSEL..;.;===| 00000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000150: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 3B |==============.;| 00000160: 0D 3B 20 44 45 43 49 4D 20 48 45 58 41 20 53 59 |.; DECIM HEXA SY| 00000170: 4D 42 4C 20 46 55 4E 43 54 49 45 0D 3B 0D 3B 20 |MBL FUNCTIE.;.; | 00000180: 32 38 36 37 32 20 37 30 30 30 20 42 54 44 43 4F |28672 7000 BTDCO| 00000190: 20 44 45 43 4F 4E 56 45 52 54 45 45 52 54 0D 3B | DECONVERTEERT.;| 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 42 59 54 45 20 4D 2E 54 45 4B 45 4E 2E 0D | BYTE M.TEKEN..| 000001C0: 3B 20 32 38 38 30 38 20 37 30 38 38 20 44 43 4F |; 28808 7088 DCO| 000001D0: 42 54 20 43 4F 4E 56 45 52 54 45 45 52 54 0D 3B |BT CONVERTEERT.;| 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 20 42 59 54 45 20 4D 2E 54 45 4B 45 4E 2E 0D | BYTE M.TEKEN..| 00000200: 3B 20 32 38 38 37 32 20 37 30 43 38 20 4F 56 4C |; 28872 70C8 OVL| 00000210: 4F 50 20 45 4C 49 4D 49 4E 2E 4F 56 45 52 4C 4F |OP ELIMIN.OVERLO| 00000220: 4F 50 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |OP.; | 00000230: 20 20 20 20 20 20 55 49 54 20 56 45 43 54 4F 52 | UIT VECTOR| 00000240: 2E 0D 3B 20 32 38 39 32 38 20 37 31 30 30 20 54 |..; 28928 7100 T| 00000250: 45 4B 45 4E 20 54 45 4B 45 4E 53 20 47 45 4C 49 |EKEN TEKENS GELI| 00000260: 4A 4B 4D 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 |JKM..; | 00000270: 20 20 20 20 20 20 20 20 49 4E 20 56 45 43 54 4F | IN VECTO| 00000280: 52 2E 0D 3B 20 32 39 30 32 38 20 37 31 36 34 20 |R..; 29028 7164 | 00000290: 4F 56 41 58 41 20 28 41 29 2D 3E 5B 58 2C 41 5D |OVAXA (A)->[X,A]| 000002A0: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 000002B0: 20 20 20 20 4F 56 45 52 4C 4F 50 45 52 53 20 57 | OVERLOPERS W| 000002C0: 45 47 2E 0D 3B 20 32 39 30 35 32 20 37 31 37 43 |EG..; 29052 717C| 000002D0: 20 50 4F 45 54 53 20 5A 45 54 20 56 45 43 54 4F | POETS ZET VECTO| 000002E0: 52 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |R.; | 000002F0: 20 20 20 20 20 4F 50 20 4E 55 4C 2E 0D 3B 20 32 | OP NUL..; 2| 00000300: 39 30 37 32 20 37 31 39 30 20 54 52 41 53 50 20 |9072 7190 TRASP | 00000310: 54 52 41 4E 53 50 4F 52 54 45 45 52 0D 3B 20 20 |TRANSPORTEER.; | 00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000330: 56 45 43 54 4F 52 2D 3E 56 45 43 54 4F 52 2E 0D |VECTOR->VECTOR..| 00000340: 3B 20 32 39 31 30 30 20 37 31 41 43 20 4B 52 49 |; 29100 71AC KRI| 00000350: 4D 50 20 4B 52 49 4D 50 20 44 45 20 56 45 43 54 |MP KRIMP DE VECT| 00000360: 4F 52 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |OR.; | 00000370: 20 20 20 20 20 20 4D 45 54 20 4D 53 2E 4E 55 4C | MET MS.NUL| 00000380: 20 57 45 47 2E 0D 3B 20 32 39 31 32 34 20 37 31 | WEG..; 29124 71| 00000390: 43 34 20 58 54 52 41 58 20 45 58 54 52 41 20 43 |C4 XTRAX EXTRA C| 000003A0: 4F 4D 50 4F 4E 45 4E 54 0D 3B 20 20 20 20 20 20 |OMPONENT.; | 000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 28 58 29 20 | (X) | 000003C0: 41 43 48 54 45 52 49 4E 2E 0D 3B 20 32 39 31 34 |ACHTERIN..; 2914| 000003D0: 34 20 37 31 44 38 20 4D 49 4E 45 52 20 4F 4D 4B |4 71D8 MINER OMK| 000003E0: 45 52 45 4E 20 56 41 4E 20 54 45 2D 0D 3B 20 20 |EREN VAN TE-.; | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000400: 4B 45 4E 20 56 41 4E 20 56 45 43 54 4F 52 2E 0D |KEN VAN VECTOR..| 00000410: 3B 20 32 39 31 38 34 20 37 32 30 30 20 4F 50 54 |; 29184 7200 OPT| 00000420: 45 4C 20 4F 50 54 45 4C 4C 45 4E 20 56 41 4E 0D |EL OPTELLEN VAN.| 00000430: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000440: 20 20 20 54 57 45 45 20 56 45 43 54 4F 52 45 4E | TWEE VECTOREN| 00000450: 2E 0D 3B 20 32 39 32 35 36 20 37 32 34 38 20 41 |..; 29256 7248 A| 00000460: 46 54 52 45 20 41 46 54 52 45 4B 4B 45 4E 20 56 |FTRE AFTREKKEN V| 00000470: 41 4E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |AN.; | 00000480: 20 20 20 20 20 20 54 57 45 45 20 56 45 43 54 4F | TWEE VECTO| 00000490: 52 45 4E 2E 0D 3B 20 32 39 33 32 38 20 37 32 39 |REN..; 29328 729| 000004A0: 30 20 4C 41 42 45 4C 20 2E 2E 2E 2E 2E 2E 2E 2E |0 LABEL ........| 000004B0: 2E 2E 2E 2E 2E 2E 2E 0D 3B 20 20 20 20 20 20 20 |........; | 000004C0: 20 20 20 20 20 20 20 20 20 20 20 2E 2E 2E 2E 2E | .....| 000004D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 0D 3B 3D 3D |...........;.;==| 000004E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000004F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D |===============.| 00000500: 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 2A 3D 32 |;.;. *=2| 00000510: 38 36 37 32 0D 3B 0D 3B 20 45 45 4E 42 59 54 45 |8672.;.; EENBYTE| 00000520: 20 44 45 43 4F 4E 56 45 52 53 49 45 20 4D 45 54 | DECONVERSIE MET| 00000530: 20 54 45 4B 45 4E 2E 0D 3B 20 49 4E 20 3A 28 32 | TEKEN..; IN :(2| 00000540: 35 31 29 20 42 49 4E 41 49 52 3B 0D 3B 20 20 20 |51) BINAIR;.; | 00000550: 20 20 28 42 49 54 20 37 29 3D 30 3A 20 50 4F 53 | (BIT 7)=0: POS| 00000560: 2E 2C 2B 30 30 30 2E 2E 2E 2B 31 32 37 2E 0D 3B |.,+000...+127..;| 00000570: 20 20 20 20 20 28 42 49 54 20 37 29 3D 31 3A 20 | (BIT 7)=1: | 00000580: 4E 45 47 2E 2C 2D 31 32 38 2E 2E 2E 2D 30 30 31 |NEG.,-128...-001| 00000590: 2E 0D 3B 20 55 49 54 3A 28 32 35 34 2C 32 35 33 |..; UIT:(254,253| 000005A0: 29 20 41 44 52 45 53 20 56 41 4E 20 54 45 4B 45 |) ADRES VAN TEKE| 000005B0: 4E 2E 0D 3B 20 20 20 20 20 50 4F 53 2E 3A 2B 3C |N..; POS.:+<| 000005C0: 43 49 4A 46 2E 3E 3C 43 49 4A 46 2E 3E 3C 43 49 |CIJF.><CIJF.><CI| 000005D0: 4A 46 2E 3E 0D 3B 20 20 20 20 20 4E 45 47 2E 3A |JF.>.; NEG.:| 000005E0: 2D 3C 43 49 4A 46 2E 3E 3C 43 49 4A 46 2E 3E 3C |-<CIJF.><CIJF.><| 000005F0: 43 49 4A 46 2E 3E 0D 3B 20 20 20 20 20 4E 55 4C |CIJF.>.; NUL| 00000600: 20 3A 3C 53 50 41 54 49 45 3E 30 30 30 0D 3B 0D | :<SPATIE>000.;.| 00000610: 42 54 44 43 4F 20 54 59 41 20 20 20 20 20 20 20 |BTDCO TYA | 00000620: 20 20 3B 52 45 44 20 28 59 29 2C 28 58 29 2E 0D | ;RED (Y),(X)..| 00000630: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 00000640: 54 58 41 0D 20 20 20 20 20 20 50 48 41 0D 20 20 |TXA. PHA. | 00000650: 20 20 20 20 4C 44 59 20 23 30 30 33 0D 20 20 20 | LDY #003. | 00000660: 20 20 20 4C 44 41 20 23 30 34 38 20 20 20 20 3B | LDA #048 ;| 00000670: 41 53 43 49 49 20 4E 55 4C 4C 45 4E 0D 42 54 44 |ASCII NULLEN.BTD| 00000680: 43 31 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B |C1 STA (253),Y ;| 00000690: 49 4E 20 4F 55 54 2D 42 59 54 45 53 2E 0D 20 20 |IN OUT-BYTES.. | 000006A0: 20 20 20 20 44 45 59 20 20 20 20 20 20 20 20 20 | DEY | 000006B0: 3B 41 46 54 45 4C 20 33 2C 32 2C 31 2E 0D 20 20 |;AFTEL 3,2,1.. | 000006C0: 20 20 20 20 42 4E 45 20 20 42 54 44 43 31 0D 20 | BNE BTDC1. | 000006D0: 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 | LDY #000 | 000006E0: 20 3B 5A 45 54 20 52 45 53 54 20 49 4E 0D 20 20 | ;ZET REST IN. | 000006F0: 20 20 20 20 53 54 59 20 20 30 33 39 20 20 20 20 | STY 039 | 00000700: 3B 28 30 33 39 2C 30 33 38 29 2E 0D 20 20 20 20 |;(039,038).. | 00000710: 20 20 4C 44 41 20 20 32 35 31 0D 20 20 20 20 20 | LDA 251. | 00000720: 20 53 54 41 20 20 30 33 38 0D 20 20 20 20 20 20 | STA 038. | 00000730: 42 4E 45 20 20 42 54 44 43 32 20 20 3B 49 4E 2D |BNE BTDC2 ;IN-| 00000740: 42 59 54 45 20 4E 55 4C 3F 0D 20 20 20 20 20 20 |BYTE NUL?. | 00000750: 4C 44 41 20 23 30 33 32 20 20 20 20 3B 4A 41 3A |LDA #032 ;JA:| 00000760: 56 4F 4F 52 53 50 41 54 49 45 0D 20 20 20 20 20 |VOORSPATIE. | 00000770: 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B 49 4E | STA (253),Y ;IN| 00000780: 20 4F 55 54 42 59 54 45 20 30 2E 0D 20 20 20 20 | OUTBYTE 0.. | 00000790: 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 | CLC. BCC | 000007A0: 20 42 54 44 43 38 0D 42 54 44 43 32 20 4C 44 58 | BTDC8.BTDC2 LDX| 000007B0: 20 23 30 34 33 20 20 20 20 3B 56 4F 4F 52 50 4C | #043 ;VOORPL| 000007C0: 55 53 2E 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 |US.. ROL A| 000007D0: 20 20 20 20 20 20 3B 42 49 54 20 37 20 49 4E 20 | ;BIT 7 IN | 000007E0: 43 41 52 52 59 2E 0D 20 20 20 20 20 20 42 43 43 |CARRY.. BCC| 000007F0: 20 20 42 54 44 43 33 20 20 3B 4E 55 4C 3D 50 4F | BTDC3 ;NUL=PO| 00000800: 53 49 54 49 45 46 2E 0D 20 20 20 20 20 20 4C 44 |SITIEF.. LD| 00000810: 41 20 20 30 33 38 20 20 20 20 3B 45 45 4E 3D 43 |A 038 ;EEN=C| 00000820: 4F 4D 50 4C 2E 2B 31 2E 0D 20 20 20 20 20 20 45 |OMPL.+1.. E| 00000830: 4F 52 20 23 32 35 35 0D 20 20 20 20 20 20 41 44 |OR #255. AD| 00000840: 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 |C #000. STA| 00000850: 20 20 30 33 38 0D 20 20 20 20 20 20 49 4E 58 20 | 038. INX | 00000860: 20 20 20 20 20 20 20 20 3B 56 4F 4F 52 4D 49 4E | ;VOORMIN| 00000870: 2E 0D 20 20 20 20 20 20 49 4E 58 0D 42 54 44 43 |.. INX.BTDC| 00000880: 33 20 54 58 41 0D 20 20 20 20 20 20 53 54 41 20 |3 TXA. STA | 00000890: 28 32 35 33 29 2C 59 20 3B 49 4E 20 4F 55 54 42 |(253),Y ;IN OUTB| 000008A0: 59 54 45 20 30 2E 0D 20 20 20 20 20 20 4C 44 59 |YTE 0.. LDY| 000008B0: 20 23 30 30 31 20 20 20 20 3B 4E 41 20 54 45 4B | #001 ;NA TEK| 000008C0: 45 4E 2E 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |EN.. CLC. | 000008D0: 20 20 20 20 42 43 43 20 20 42 54 44 43 35 0D 42 | BCC BTDC5.B| 000008E0: 54 44 43 34 20 53 45 43 20 20 20 20 20 20 20 20 |TDC4 SEC | 000008F0: 20 3B 54 52 45 4B 20 31 30 30 20 41 46 0D 20 20 | ;TREK 100 AF. | 00000900: 20 20 20 20 4C 44 41 20 20 30 33 38 20 20 20 20 | LDA 038 | 00000910: 3B 56 41 4E 20 28 30 33 39 2C 30 33 38 29 2E 0D |;VAN (039,038)..| 00000920: 20 20 20 20 20 20 53 42 43 20 23 31 30 30 0D 20 | SBC #100. | 00000930: 20 20 20 20 20 53 54 41 20 20 30 33 38 0D 20 20 | STA 038. | 00000940: 20 20 20 20 4C 44 41 20 20 30 33 39 0D 20 20 20 | LDA 039. | 00000950: 20 20 20 53 42 43 20 23 30 30 30 0D 20 20 20 20 | SBC #000. | 00000960: 20 20 53 54 41 20 20 30 33 39 0D 20 20 20 20 20 | STA 039. | 00000970: 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 54 45 | CLC ;TE| 00000980: 4C 20 31 20 4F 50 0D 20 20 20 20 20 20 4C 44 41 |L 1 OP. LDA| 00000990: 20 28 32 35 33 29 2C 59 20 3B 42 49 4A 20 28 41 | (253),Y ;BIJ (A| 000009A0: 55 2B 4D 29 2E 0D 20 20 20 20 20 20 41 44 43 20 |U+M).. ADC | 000009B0: 23 30 30 31 0D 20 20 20 20 20 20 53 54 41 20 28 |#001. STA (| 000009C0: 32 35 33 29 2C 59 0D 42 54 44 43 35 20 4C 44 41 |253),Y.BTDC5 LDA| 000009D0: 20 20 30 33 39 20 20 20 20 3B 56 45 52 47 45 4C | 039 ;VERGEL| 000009E0: 49 4A 4B 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |IJK. CMP #0| 000009F0: 30 30 20 20 20 20 3B 28 30 33 39 2C 30 33 38 29 |00 ;(039,038)| 00000A00: 0D 20 20 20 20 20 20 42 43 43 20 20 42 54 44 43 |. BCC BTDC| 00000A10: 36 20 20 3B 4D 45 54 20 31 30 30 2E 0D 20 20 20 |6 ;MET 100.. | 00000A20: 20 20 20 42 4E 45 20 20 42 54 44 43 34 0D 20 20 | BNE BTDC4. | 00000A30: 20 20 20 20 4C 44 41 20 20 30 33 38 0D 20 20 20 | LDA 038. | 00000A40: 20 20 20 43 4D 50 20 23 31 30 30 0D 20 20 20 20 | CMP #100. | 00000A50: 20 20 42 43 53 20 20 42 54 44 43 34 0D 42 54 44 | BCS BTDC4.BTD| 00000A60: 43 36 20 4C 44 41 20 20 30 33 39 20 20 20 20 3B |C6 LDA 039 ;| 00000A70: 52 45 53 54 20 4E 55 4C 3F 0D 20 20 20 20 20 20 |REST NUL?. | 00000A80: 42 4E 45 20 20 42 54 44 43 37 0D 20 20 20 20 20 |BNE BTDC7. | 00000A90: 20 4C 44 41 20 20 30 33 38 0D 20 20 20 20 20 20 | LDA 038. | 00000AA0: 42 45 51 20 20 42 54 44 43 38 20 20 3B 4A 41 3A |BEQ BTDC8 ;JA:| 00000AB0: 20 4E 41 41 52 20 48 2E 50 2E 0D 42 54 44 43 37 | NAAR H.P..BTDC7| 00000AC0: 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 4E 45 | CLC ;NE| 00000AD0: 45 4E 3A 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 |EN:. ROL 0| 00000AE0: 33 38 20 20 20 20 3B 28 30 33 39 2C 30 33 38 29 |38 ;(039,038)| 00000AF0: 2A 31 30 2E 0D 20 20 20 20 20 20 52 4F 4C 20 20 |*10.. ROL | 00000B00: 30 33 39 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |039. LDA 0| 00000B10: 33 39 0D 20 20 20 20 20 20 53 54 41 20 20 30 34 |39. STA 04| 00000B20: 31 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 |1. LDA 038| 00000B30: 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 |. CLC. | 00000B40: 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 4F | ROL A. RO| 00000B50: 4C 20 20 30 34 31 0D 20 20 20 20 20 20 52 4F 4C |L 041. ROL| 00000B60: 20 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 | A. ROL 0| 00000B70: 34 31 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |41. CLC. | 00000B80: 20 20 20 41 44 43 20 20 30 33 38 0D 20 20 20 20 | ADC 038. | 00000B90: 20 20 53 54 41 20 20 30 33 38 0D 20 20 20 20 20 | STA 038. | 00000BA0: 20 4C 44 41 20 20 30 34 31 0D 20 20 20 20 20 20 | LDA 041. | 00000BB0: 41 44 43 20 20 30 33 39 0D 20 20 20 20 20 20 53 |ADC 039. S| 00000BC0: 54 41 20 20 30 33 39 0D 20 20 20 20 20 20 49 4E |TA 039. IN| 00000BD0: 59 20 20 20 20 20 20 20 20 20 3B 56 4F 4C 47 45 |Y ;VOLGE| 00000BE0: 4E 44 20 43 49 4A 46 45 52 2E 0D 20 20 20 20 20 |ND CIJFER.. | 00000BF0: 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 | CLC. BCC | 00000C00: 42 54 44 43 35 0D 42 54 44 43 38 20 50 4C 41 20 |BTDC5.BTDC8 PLA | 00000C10: 20 20 20 20 20 20 20 20 3B 48 45 52 53 54 45 4C | ;HERSTEL| 00000C20: 0D 20 20 20 20 20 20 54 41 58 20 20 20 20 20 20 |. TAX | 00000C30: 20 20 20 3B 28 58 29 20 45 4E 20 28 59 29 2E 0D | ;(X) EN (Y)..| 00000C40: 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 | PLA. | 00000C50: 54 41 59 0D 20 20 20 20 20 20 52 54 53 20 20 20 |TAY. RTS | 00000C60: 20 20 20 20 20 20 3B 4E 41 41 52 20 48 4F 4F 46 | ;NAAR HOOF| 00000C70: 44 50 52 2E 0D 20 20 20 20 20 20 4E 4F 50 0D 20 |DPR.. NOP. | 00000C80: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E | NOP. N| 00000C90: 4F 50 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 |OP.;.;. | 00000CA0: 2A 3D 32 38 38 30 38 0D 3B 0D 3B 20 45 45 4E 42 |*=28808.;.; EENB| 00000CB0: 59 54 45 20 43 4F 4E 56 45 52 53 49 45 20 4D 45 |YTE CONVERSIE ME| 00000CC0: 54 20 54 45 4B 45 4E 2E 0D 3B 20 49 4E 20 3A 28 |T TEKEN..; IN :(| 00000CD0: 32 35 34 2C 32 35 33 29 20 41 44 52 45 53 20 56 |254,253) ADRES V| 00000CE0: 41 4E 20 54 45 4B 45 4E 2E 0D 3B 20 20 20 20 20 |AN TEKEN..; | 00000CF0: 50 4F 53 2E 3A 2B 3C 43 49 4A 46 2E 3E 3C 43 49 |POS.:+<CIJF.><CI| 00000D00: 4A 46 2E 3E 3C 43 49 4A 46 2E 3E 0D 3B 20 20 20 |JF.><CIJF.>.; | 00000D10: 20 20 4E 45 47 2E 3A 2D 3C 43 49 4A 46 2E 3E 3C | NEG.:-<CIJF.><| 00000D20: 43 49 4A 46 2E 3E 3C 43 49 4A 46 2E 3E 0D 3B 20 |CIJF.><CIJF.>.; | 00000D30: 20 20 20 20 53 50 41 54 49 45 20 41 4C 53 20 56 | SPATIE ALS V| 00000D40: 4F 4F 52 54 45 4B 45 4E 20 4B 41 4E 2E 0D 3B 20 |OORTEKEN KAN..; | 00000D50: 55 49 54 3A 28 32 35 31 29 20 42 49 4E 41 49 52 |UIT:(251) BINAIR| 00000D60: 3B 0D 3B 20 20 20 20 20 28 42 49 54 20 37 29 3D |;.; (BIT 7)=| 00000D70: 30 3A 20 50 4F 53 2E 2C 2B 30 30 30 2E 2E 2E 2B |0: POS.,+000...+| 00000D80: 31 32 37 2E 0D 3B 20 20 20 20 20 28 42 49 54 20 |127..; (BIT | 00000D90: 37 29 3D 31 3A 20 4E 45 47 2E 2C 2D 31 32 38 2E |7)=1: NEG.,-128.| 00000DA0: 2E 2E 2D 30 30 31 2E 0D 3B 0D 44 43 4F 42 54 20 |..-001..;.DCOBT | 00000DB0: 54 59 41 20 20 20 20 20 20 20 20 20 3B 52 45 44 |TYA ;RED| 00000DC0: 20 28 59 29 2E 0D 20 20 20 20 20 20 50 48 41 0D | (Y).. PHA.| 00000DD0: 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 | LDY #000 | 00000DE0: 20 20 3B 42 45 47 49 4E 2E 0D 20 20 20 20 20 20 | ;BEGIN.. | 00000DF0: 53 54 59 20 20 32 35 31 20 20 20 20 3B 4F 55 54 |STY 251 ;OUT| 00000E00: 42 59 54 45 20 4E 55 4C 2E 0D 44 43 4F 42 31 20 |BYTE NUL..DCOB1 | 00000E10: 49 4E 59 20 20 20 20 20 20 20 20 20 3B 45 45 52 |INY ;EER| 00000E20: 53 54 56 4F 4C 47 45 4E 44 0D 20 20 20 20 20 20 |STVOLGEND. | 00000E30: 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 4B 41 52 |LDA (253),Y ;KAR| 00000E40: 41 4B 54 45 52 2E 0D 20 20 20 20 20 20 53 45 43 |AKTER.. SEC| 00000E50: 20 20 20 20 20 20 20 20 20 3B 49 53 20 48 45 54 | ;IS HET| 00000E60: 20 45 45 4E 0D 20 20 20 20 20 20 53 42 43 20 23 | EEN. SBC #| 00000E70: 30 34 38 20 20 20 20 3B 43 49 4A 46 45 52 3F 0D |048 ;CIJFER?.| 00000E80: 20 20 20 20 20 20 42 4D 49 20 20 44 43 4F 42 33 | BMI DCOB3| 00000E90: 20 20 3B 4E 45 45 4E 3A 4F 56 45 52 53 4C 41 41 | ;NEEN:OVERSLAA| 00000EA0: 4E 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 31 |N.. CMP #01| 00000EB0: 30 20 20 20 20 3B 4A 41 3A 5A 45 54 20 49 4E 20 |0 ;JA:ZET IN | 00000EC0: 30 30 32 2E 0D 20 20 20 20 20 20 42 43 53 20 20 |002.. BCS | 00000ED0: 44 43 4F 42 33 0D 20 20 20 20 20 20 53 54 41 20 |DCOB3. STA | 00000EE0: 20 30 30 32 0D 20 20 20 20 20 20 43 4C 43 20 20 | 002. CLC | 00000EF0: 20 20 20 20 20 20 20 3B 55 49 54 20 4D 41 41 4C | ;UIT MAAL| 00000F00: 20 54 57 45 45 2E 0D 20 20 20 20 20 20 4C 44 41 | TWEE.. LDA| 00000F10: 20 20 32 35 31 20 20 20 20 3B 4C 45 45 47 3A 47 | 251 ;LEEG:G| 00000F20: 45 45 4E 20 56 45 52 2D 0D 20 20 20 20 20 20 42 |EEN VER-. B| 00000F30: 45 51 20 20 44 43 4F 42 32 20 20 3B 4D 45 4E 49 |EQ DCOB2 ;MENI| 00000F40: 47 56 2E 4D 45 54 20 31 30 2E 0D 20 20 20 20 20 |GV.MET 10.. | 00000F50: 20 52 4F 4C 20 20 41 20 20 20 20 20 20 3B 56 4F | ROL A ;VO| 00000F60: 4C 3A 55 49 54 20 4D 41 41 4C 20 38 2E 0D 20 20 |L:UIT MAAL 8.. | 00000F70: 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 | STA 251. | 00000F80: 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 | ROL A. | 00000F90: 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 41 44 43 |ROL A. ADC| 00000FA0: 20 20 32 35 31 20 20 20 20 3B 54 45 4C 20 4D 41 | 251 ;TEL MA| 00000FB0: 41 4C 20 32 20 42 49 4A 2E 0D 44 43 4F 42 32 20 |AL 2 BIJ..DCOB2 | 00000FC0: 41 44 43 20 20 30 30 32 20 20 20 20 3B 54 45 4C |ADC 002 ;TEL| 00000FD0: 20 43 49 4A 46 45 52 20 42 49 4A 2E 0D 20 20 20 | CIJFER BIJ.. | 00000FE0: 20 20 20 53 54 41 20 20 32 35 31 0D 44 43 4F 42 | STA 251.DCOB| 00000FF0: 33 20 43 50 59 20 23 30 30 32 0D 20 20 20 20 20 |3 CPY #002. | 00001000: 20 42 43 43 20 20 44 43 4F 42 31 20 20 3B 28 59 | BCC DCOB1 ;(Y| 00001010: 29 3D 31 20 4F 46 20 32 3F 0D 20 20 20 20 20 20 |)=1 OF 2?. | 00001020: 4C 44 59 20 23 30 30 30 20 20 20 20 3B 4E 45 45 |LDY #000 ;NEE| 00001030: 4E 3A 54 45 53 54 20 2B 2F 2D 2E 0D 20 20 20 20 |N:TEST +/-.. | 00001040: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 | LDA (253),Y. | 00001050: 20 20 20 20 43 4D 50 20 23 30 34 35 0D 20 20 20 | CMP #045. | 00001060: 20 20 20 42 4E 45 20 20 44 43 4F 42 34 20 20 3B | BNE DCOB4 ;| 00001070: 4D 49 4E 3A 32 2D 43 4F 4D 50 4C 45 4D 2E 0D 20 |MIN:2-COMPLEM.. | 00001080: 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 4C | SEC. L| 00001090: 44 41 20 20 32 35 31 0D 20 20 20 20 20 20 45 4F |DA 251. EO| 000010A0: 52 20 23 32 35 35 0D 20 20 20 20 20 20 41 44 43 |R #255. ADC| 000010B0: 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 | #000. STA | 000010C0: 20 32 35 31 0D 44 43 4F 42 34 20 50 4C 41 0D 20 | 251.DCOB4 PLA. | 000010D0: 20 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 | TAY | 000010E0: 20 3B 48 45 52 53 54 45 4C 20 28 59 29 2E 0D 20 | ;HERSTEL (Y).. | 000010F0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00001100: 20 3B 54 45 52 55 47 20 4E 41 41 52 20 48 2E 50 | ;TERUG NAAR H.P| 00001110: 2E 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |.. NOP. | 00001120: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00001130: 20 20 20 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 20 | NOP.;.;. | 00001140: 20 20 20 20 20 20 20 2A 3D 32 38 38 37 32 0D 3B | *=28872.;| 00001150: 0D 3B 20 45 4C 49 4D 49 4E 45 45 52 20 4F 56 45 |.; ELIMINEER OVE| 00001160: 52 4C 4F 4F 50 20 55 49 54 20 56 45 43 54 4F 52 |RLOOP UIT VECTOR| 00001170: 2E 0D 3B 20 28 32 35 34 2C 32 35 33 29 20 41 44 |..; (254,253) AD| 00001180: 52 45 53 20 56 41 4E 20 4C 45 4E 47 54 45 20 56 |RES VAN LENGTE V| 00001190: 41 4E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 54 |AN.; T| 000011A0: 45 20 42 45 57 45 52 4B 45 4E 20 56 45 43 54 4F |E BEWERKEN VECTO| 000011B0: 52 2E 0D 3B 0D 4F 56 4C 4F 50 20 54 59 41 20 20 |R..;.OVLOP TYA | 000011C0: 20 20 20 20 20 20 20 3B 52 45 44 20 28 59 29 2C | ;RED (Y),| 000011D0: 28 58 29 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 |(X).. PHA. | 000011E0: 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 50 | TXA. P| 000011F0: 48 41 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |HA. LDY #00| 00001200: 30 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |0. LDA (253| 00001210: 29 2C 59 20 3B 56 45 43 54 4F 52 4C 45 4E 47 54 |),Y ;VECTORLENGT| 00001220: 45 2E 0D 20 20 20 20 20 20 42 45 51 20 20 4F 56 |E.. BEQ OV| 00001230: 4C 4F 34 20 20 3B 4E 55 4C 3A 4B 4C 41 41 52 2E |LO4 ;NUL:KLAAR.| 00001240: 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 |. TAY | 00001250: 20 20 20 3B 41 4E 44 45 52 53 20 45 45 4E 20 42 | ;ANDERS EEN B| 00001260: 49 4A 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 |IJ. INY | 00001270: 20 20 20 20 20 3B 49 4E 20 49 4E 44 45 58 3A 20 | ;IN INDEX: | 00001280: 4C 2A 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |L*.. LDA #0| 00001290: 30 30 20 20 20 20 3B 5A 45 54 20 45 58 54 52 41 |00 ;ZET EXTRA| 000012A0: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 000012B0: 2C 59 20 3B 43 4F 4D 50 2E 4F 50 20 4E 55 4C 2E |,Y ;COMP.OP NUL.| 000012C0: 0D 20 20 20 20 20 20 54 59 41 20 20 20 20 20 20 |. TYA | 000012D0: 20 20 20 3B 5A 45 54 20 54 45 56 45 4E 53 20 49 | ;ZET TEVENS I| 000012E0: 4E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 |N. LDY #000| 000012F0: 20 20 20 20 3B 44 45 20 4C 45 4E 47 54 45 20 56 | ;DE LENGTE V| 00001300: 41 4E 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |AN. STA (25| 00001310: 33 29 2C 59 20 3B 44 45 20 56 45 43 54 4F 52 2E |3),Y ;DE VECTOR.| 00001320: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 20 |. STA 002 | 00001330: 20 20 20 3B 4F 4F 4B 20 56 4F 4F 52 20 4C 55 53 | ;OOK VOOR LUS| 00001340: 2E 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 |.. INY | 00001350: 20 20 20 20 3B 43 4F 4D 50 4F 4E 45 4E 54 20 31 | ;COMPONENT 1| 00001360: 2E 0D 4F 56 4C 4F 31 20 4C 44 41 20 28 32 35 33 |..OVLO1 LDA (253| 00001370: 29 2C 59 20 3B 31 2C 32 2C 2E 2E 2C 4C 2A 2E 0D |),Y ;1,2,..,L*..| 00001380: 20 20 20 20 20 20 4A 53 52 20 20 4F 56 41 58 41 | JSR OVAXA| 00001390: 20 20 3B 53 50 4C 49 54 53 20 28 41 29 2E 0D 20 | ;SPLITS (A).. | 000013A0: 20 20 20 20 20 43 50 58 20 23 30 30 30 20 20 20 | CPX #000 | 000013B0: 20 3B 4F 56 45 52 4C 4F 4F 50 3F 0D 20 20 20 20 | ;OVERLOOP?. | 000013C0: 20 20 42 45 51 20 20 4F 56 4C 4F 32 20 20 3B 4A | BEQ OVLO2 ;J| 000013D0: 41 20 3A 4F 4E 56 45 52 41 4E 44 2E 0D 20 20 20 |A :ONVERAND.. | 000013E0: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B | STA (253),Y ;| 000013F0: 4E 45 45 3A 45 45 4E 48 45 44 45 4E 2E 0D 20 20 |NEE:EENHEDEN.. | 00001400: 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 | INY | 00001410: 3B 20 20 20 20 54 45 4C 20 48 4F 4E 2D 0D 20 20 |; TEL HON-. | 00001420: 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 | CLC | 00001430: 3B 20 20 20 20 44 45 52 44 54 4C 4E 2E 0D 20 20 |; DERDTLN.. | 00001440: 20 20 20 20 54 58 41 20 20 20 20 20 20 20 20 20 | TXA | 00001450: 3B 20 20 20 20 42 49 4A 20 56 4F 4C 47 2E 0D 20 |; BIJ VOLG.. | 00001460: 20 20 20 20 20 41 44 43 20 28 32 35 33 29 2C 59 | ADC (253),Y| 00001470: 20 3B 20 20 20 20 44 4F 4F 52 20 4E 41 41 52 0D | ; DOOR NAAR.| 00001480: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),| 00001490: 59 20 3B 20 20 20 20 4F 56 4C 4F 33 2E 0D 20 20 |Y ; OVLO3.. | 000014A0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 | CLC. BC| 000014B0: 43 20 20 4F 56 4C 4F 33 0D 4F 56 4C 4F 32 20 49 |C OVLO3.OVLO2 I| 000014C0: 4E 59 20 20 20 20 20 20 20 20 20 3B 49 4E 44 45 |NY ;INDE| 000014D0: 58 20 31 20 48 4F 47 45 52 2E 0D 4F 56 4C 4F 33 |X 1 HOGER..OVLO3| 000014E0: 20 43 50 59 20 20 30 30 32 20 20 20 20 3B 47 45 | CPY 002 ;GE| 000014F0: 4C 49 4A 4B 20 41 41 4E 20 4C 3F 0D 20 20 20 20 |LIJK AAN L?. | 00001500: 20 20 42 43 43 20 20 4F 56 4C 4F 31 20 20 3B 4E | BCC OVLO1 ;N| 00001510: 45 45 3A 4E 41 41 52 20 4F 56 4C 4F 31 2E 0D 4F |EE:NAAR OVLO1..O| 00001520: 56 4C 4F 34 20 50 4C 41 20 20 20 20 20 20 20 20 |VLO4 PLA | 00001530: 20 3B 4A 41 20 3A 48 45 52 53 54 45 4C 20 28 58 | ;JA :HERSTEL (X| 00001540: 29 0D 20 20 20 20 20 20 54 41 58 20 20 20 20 20 |). TAX | 00001550: 20 20 20 20 3B 20 20 20 20 45 4E 20 28 59 29 2E | ; EN (Y).| 00001560: 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 |. PLA | 00001570: 20 20 20 3B 20 20 20 20 4E 41 41 52 20 48 2E 50 | ; NAAR H.P| 00001580: 2E 0D 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 |.. TAY. | 00001590: 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D | RTS. NOP.| 000015A0: 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 2A 3D 32 |;.;. *=2| 000015B0: 38 39 32 38 0D 3B 0D 3B 20 54 45 4B 45 4E 53 20 |8928.;.; TEKENS | 000015C0: 47 45 4C 49 4A 4B 4D 41 4B 45 4E 20 49 4E 20 56 |GELIJKMAKEN IN V| 000015D0: 45 43 54 4F 52 2E 0D 3B 20 28 32 35 34 2C 32 35 |ECTOR..; (254,25| 000015E0: 33 29 20 41 44 52 45 53 20 56 41 4E 20 4C 45 4E |3) ADRES VAN LEN| 000015F0: 47 54 45 20 56 41 4E 0D 3B 20 20 20 20 20 20 20 |GTE VAN.; | 00001600: 20 20 20 20 54 45 20 42 45 57 45 52 4B 45 4E 20 | TE BEWERKEN | 00001610: 56 45 43 54 4F 52 2E 0D 3B 0D 54 45 4B 45 4E 20 |VECTOR..;.TEKEN | 00001620: 54 59 41 20 20 20 20 20 20 20 20 20 3B 52 45 44 |TYA ;RED| 00001630: 20 28 59 29 2C 28 58 29 2E 0D 20 20 20 20 20 20 | (Y),(X).. | 00001640: 50 48 41 0D 20 20 20 20 20 20 54 58 41 0D 20 20 |PHA. TXA. | 00001650: 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 4C 44 | PHA. LD| 00001660: 59 20 23 30 30 30 20 20 20 20 3B 56 45 43 54 4F |Y #000 ;VECTO| 00001670: 52 4C 45 4E 47 54 45 0D 20 20 20 20 20 20 4C 44 |RLENGTE. LD| 00001680: 41 20 28 32 35 33 29 2C 59 20 3B 4F 50 56 4F 45 |A (253),Y ;OPVOE| 00001690: 52 45 4E 3A 20 4C 2E 0D 20 20 20 20 20 20 42 45 |REN: L.. BE| 000016A0: 51 20 20 54 45 4B 45 39 20 20 3B 4E 55 4C 3A 4B |Q TEKE9 ;NUL:K| 000016B0: 4C 41 41 52 2E 0D 20 20 20 20 20 20 54 41 59 20 |LAAR.. TAY | 000016C0: 20 20 20 20 20 20 20 20 3B 41 4E 44 45 52 53 20 | ;ANDERS | 000016D0: 4C 20 2B 20 31 0D 20 20 20 20 20 20 49 4E 59 20 |L + 1. INY | 000016E0: 20 20 20 20 20 20 20 20 3B 49 4E 20 49 4E 44 45 | ;IN INDE| 000016F0: 58 3A 20 4C 2A 2E 0D 20 20 20 20 20 20 4C 44 41 |X: L*.. LDA| 00001700: 20 23 30 30 30 20 20 20 20 3B 5A 45 54 20 45 58 | #000 ;ZET EX| 00001710: 54 52 41 0D 20 20 20 20 20 20 53 54 41 20 28 32 |TRA. STA (2| 00001720: 35 33 29 2C 59 20 3B 43 4F 4D 50 2E 4F 50 20 4E |53),Y ;COMP.OP N| 00001730: 55 4C 2E 0D 20 20 20 20 20 20 54 59 41 20 20 20 |UL.. TYA | 00001740: 20 20 20 20 20 20 3B 5A 45 54 20 4C 2A 20 54 45 | ;ZET L* TE| 00001750: 56 45 4E 53 0D 20 20 20 20 20 20 4C 44 59 20 23 |VENS. LDY #| 00001760: 30 30 30 20 20 20 20 3B 49 4E 20 44 45 20 56 45 |000 ;IN DE VE| 00001770: 43 54 4F 52 2D 0D 20 20 20 20 20 20 53 54 41 20 |CTOR-. STA | 00001780: 28 32 35 33 29 2C 59 20 3B 4C 45 4E 47 54 45 2E |(253),Y ;LENGTE.| 00001790: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 20 |. STA 002 | 000017A0: 20 20 20 3B 4F 4F 4B 20 56 4F 4F 52 20 4C 55 53 | ;OOK VOOR LUS| 000017B0: 2E 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 |.. TAY | 000017C0: 20 20 20 20 3B 43 4F 4D 50 4F 4E 45 4E 54 20 4C | ;COMPONENT L| 000017D0: 2A 2E 0D 54 45 4B 45 31 20 4C 44 41 20 28 32 35 |*..TEKE1 LDA (25| 000017E0: 33 29 2C 59 20 3B 4C 2A 2C 4C 2A 2D 31 2C 2E 2E |3),Y ;L*,L*-1,..| 000017F0: 2C 31 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 54 |,1.. BNE T| 00001800: 45 4B 45 32 20 20 3B 5A 4F 45 4B 20 4D 2E 53 2E |EKE2 ;ZOEK M.S.| 00001810: 4F 50 2E 0D 20 20 20 20 20 20 44 45 59 20 20 20 |OP.. DEY | 00001820: 20 20 20 20 20 20 3B 54 45 4C 20 41 46 2E 0D 20 | ;TEL AF.. | 00001830: 20 20 20 20 20 42 4E 45 20 20 54 45 4B 45 31 20 | BNE TEKE1 | 00001840: 20 3B 4C 45 45 47 3A 55 49 54 2E 0D 20 20 20 20 | ;LEEG:UIT.. | 00001850: 20 20 42 45 51 20 20 54 45 4B 45 39 20 20 3B 47 | BEQ TEKE9 ;G| 00001860: 45 56 4F 4E 44 45 4E 3F 0D 54 45 4B 45 32 20 54 |EVONDEN?.TEKE2 T| 00001870: 41 58 20 20 20 20 20 20 20 20 20 3B 4A 41 20 3A |AX ;JA :| 00001880: 4D 45 45 53 54 53 49 47 2E 0D 20 20 20 20 20 20 |MEESTSIG.. | 00001890: 4C 44 59 20 23 30 30 31 20 20 20 20 3B 49 4E 20 |LDY #001 ;IN | 000018A0: 28 58 29 20 5A 45 54 54 45 4E 0D 54 45 4B 45 33 |(X) ZETTEN.TEKE3| 000018B0: 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 56 4F | TXA ;VO| 000018C0: 4F 52 20 54 45 4B 45 4E 2E 0D 20 20 20 20 20 20 |OR TEKEN.. | 000018D0: 52 4F 4C 20 20 41 20 20 20 20 20 20 3B 54 45 4B |ROL A ;TEK| 000018E0: 45 4E 42 49 54 3D 3E 28 43 29 2E 0D 20 20 20 20 |ENBIT=>(C).. | 000018F0: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 43 | LDA (253),Y ;C| 00001900: 4F 4D 50 4F 4E 45 4E 54 2E 0D 20 20 20 20 20 20 |OMPONENT.. | 00001910: 42 45 51 20 20 54 45 4B 45 34 20 20 3B 4E 55 4C |BEQ TEKE4 ;NUL| 00001920: 20 4E 49 45 54 2E 0D 20 20 20 20 20 20 52 4F 4C | NIET.. ROL| 00001930: 20 20 41 20 20 20 20 20 20 3B 5A 45 54 20 44 45 | A ;ZET DE| 00001940: 20 42 45 49 44 45 0D 20 20 20 20 20 20 52 4F 4C | BEIDE. ROL| 00001950: 20 20 41 20 20 20 20 20 20 3B 54 45 4B 45 4E 42 | A ;TEKENB| 00001960: 49 54 53 20 4E 41 0D 20 20 20 20 20 20 41 4E 44 |ITS NA. AND| 00001970: 20 23 30 30 33 20 20 20 20 3B 45 4C 4B 41 41 52 | #003 ;ELKAAR| 00001980: 20 49 4E 20 41 2E 0D 20 20 20 20 20 20 43 4D 50 | IN A.. CMP| 00001990: 20 23 30 30 31 20 20 20 20 3B 30 31 20 3A 4D 41 | #001 ;01 :MA| 000019A0: 41 4B 0D 20 20 20 20 20 20 42 45 51 20 20 54 45 |AK. BEQ TE| 000019B0: 4B 45 35 20 20 3B 50 4F 53 49 54 49 45 46 2E 0D |KE5 ;POSITIEF..| 000019C0: 20 20 20 20 20 20 43 4D 50 20 23 30 30 32 20 20 | CMP #002 | 000019D0: 20 20 3B 31 30 20 3A 4D 41 41 4B 0D 20 20 20 20 | ;10 :MAAK. | 000019E0: 20 20 42 45 51 20 20 54 45 4B 45 36 20 20 3B 4E | BEQ TEKE6 ;N| 000019F0: 45 47 41 54 49 45 46 2E 0D 54 45 4B 45 34 20 49 |EGATIEF..TEKE4 I| 00001A00: 4E 59 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |NY. CLC. | 00001A10: 20 20 20 42 43 43 20 20 54 45 4B 45 38 0D 54 45 | BCC TEKE8.TE| 00001A20: 4B 45 35 20 43 4C 43 20 20 20 20 20 20 20 20 20 |KE5 CLC | 00001A30: 3B 4D 41 41 4B 20 50 4F 53 49 54 49 45 46 2E 0D |;MAAK POSITIEF..| 00001A40: 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C | LDA (253),| 00001A50: 59 0D 20 20 20 20 20 20 41 44 43 20 23 31 30 30 |Y. ADC #100| 00001A60: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 00001A70: 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 |,Y. INY. | 00001A80: 20 20 20 53 45 43 0D 20 20 20 20 20 20 4C 44 41 | SEC. LDA| 00001A90: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 53 | (253),Y. S| 00001AA0: 42 43 20 23 30 30 31 0D 20 20 20 20 20 20 53 54 |BC #001. ST| 00001AB0: 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 |A (253),Y. | 00001AC0: 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 54 |CLC. BCC T| 00001AD0: 45 4B 45 38 0D 54 45 4B 45 36 20 53 45 43 20 20 |EKE8.TEKE6 SEC | 00001AE0: 20 20 20 20 20 20 20 3B 4D 41 41 4B 20 4E 45 47 | ;MAAK NEG| 00001AF0: 41 54 49 45 46 2E 0D 20 20 20 20 20 20 4C 44 41 |ATIEF.. LDA| 00001B00: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 53 | (253),Y. S| 00001B10: 42 43 20 23 31 30 30 0D 20 20 20 20 20 20 53 54 |BC #100. ST| 00001B20: 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 |A (253),Y. | 00001B30: 49 4E 59 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |INY. CLC. | 00001B40: 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 0D | LDA (253),Y.| 00001B50: 20 20 20 20 20 20 41 44 43 20 23 30 30 31 0D 20 | ADC #001. | 00001B60: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 00001B70: 0D 54 45 4B 45 38 20 43 50 59 20 20 30 30 32 20 |.TEKE8 CPY 002 | 00001B80: 20 20 20 3B 45 49 4E 44 3F 0D 20 20 20 20 20 20 | ;EIND?. | 00001B90: 42 43 43 20 20 54 45 4B 45 33 20 20 3B 4E 45 45 |BCC TEKE3 ;NEE| 00001BA0: 3A 4C 55 53 20 54 45 52 55 47 2E 0D 54 45 4B 45 |:LUS TERUG..TEKE| 00001BB0: 39 20 50 4C 41 20 20 20 20 20 20 20 20 20 3B 4A |9 PLA ;J| 00001BC0: 41 20 3A 48 45 52 53 54 45 4C 20 28 58 29 0D 20 |A :HERSTEL (X). | 00001BD0: 20 20 20 20 20 54 41 58 20 20 20 20 20 20 20 20 | TAX | 00001BE0: 20 3B 20 20 20 20 45 4E 20 28 59 29 2E 0D 20 20 | ; EN (Y).. | 00001BF0: 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 | PLA | 00001C00: 3B 20 20 20 20 4E 41 41 52 20 48 2E 50 2E 0D 20 |; NAAR H.P.. | 00001C10: 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 52 | TAY. R| 00001C20: 54 53 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 |TS.;.;. | 00001C30: 2A 3D 32 39 30 32 38 0D 3B 0D 3B 20 28 41 29 20 |*=29028.;.; (A) | 00001C40: 2D 3E 20 5B 58 2C 41 5D 20 49 4E 20 48 4F 4E 44 |-> [X,A] IN HOND| 00001C50: 45 52 44 54 41 4C 4C 49 47 2E 0D 3B 20 49 4E 20 |ERDTALLIG..; IN | 00001C60: 44 41 54 20 53 54 45 4C 53 45 4C 20 57 41 41 52 |DAT STELSEL WAAR| 00001C70: 44 45 4E 20 2D 35 30 2E 2E 2B 34 39 2E 0D 3B 0D |DEN -50..+49..;.| 00001C80: 4F 56 41 58 41 20 4C 44 58 20 23 30 30 30 0D 20 |OVAXA LDX #000. | 00001C90: 20 20 20 20 20 43 4D 50 20 23 30 35 30 0D 20 20 | CMP #050. | 00001CA0: 20 20 20 20 42 43 43 20 20 4F 56 41 58 32 0D 20 | BCC OVAX2. | 00001CB0: 20 20 20 20 20 43 4D 50 20 23 31 32 38 0D 20 20 | CMP #128. | 00001CC0: 20 20 20 20 42 43 53 20 20 4F 56 41 58 31 0D 20 | BCS OVAX1. | 00001CD0: 20 20 20 20 20 41 44 43 20 23 31 35 36 0D 20 20 | ADC #156. | 00001CE0: 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 52 54 | INX. RT| 00001CF0: 53 0D 4F 56 41 58 31 20 43 4D 50 20 23 32 30 36 |S.OVAX1 CMP #206| 00001D00: 0D 20 20 20 20 20 20 42 43 53 20 20 4F 56 41 58 |. BCS OVAX| 00001D10: 32 0D 20 20 20 20 20 20 41 44 43 20 23 31 30 30 |2. ADC #100| 00001D20: 0D 20 20 20 20 20 20 44 45 58 0D 4F 56 41 58 32 |. DEX.OVAX2| 00001D30: 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | RTS. NOP. | 00001D40: 20 20 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 20 20 | NOP.;.;. | 00001D50: 20 20 20 20 20 20 2A 3D 32 39 30 35 32 0D 3B 0D | *=29052.;.| 00001D60: 3B 20 50 4F 45 54 53 20 56 45 43 54 4F 52 2E 0D |; POETS VECTOR..| 00001D70: 3B 20 4C 45 4E 47 54 45 20 49 4E 20 41 44 52 45 |; LENGTE IN ADRE| 00001D80: 53 20 28 32 35 34 2C 32 35 33 29 2E 0D 3B 0D 50 |S (254,253)..;.P| 00001D90: 4F 45 54 53 20 54 59 41 0D 20 20 20 20 20 20 50 |OETS TYA. P| 00001DA0: 48 41 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |HA. LDY #00| 00001DB0: 30 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |0. LDA (253| 00001DC0: 29 2C 59 0D 20 20 20 20 20 20 42 45 51 20 20 50 |),Y. BEQ P| 00001DD0: 4F 45 54 32 0D 20 20 20 20 20 20 54 41 59 0D 20 |OET2. TAY. | 00001DE0: 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D 50 4F | LDA #000.PO| 00001DF0: 45 54 31 20 53 54 41 20 28 32 35 33 29 2C 59 0D |ET1 STA (253),Y.| 00001E00: 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 | DEY. | 00001E10: 42 4E 45 20 20 50 4F 45 54 31 0D 50 4F 45 54 32 |BNE POET1.POET2| 00001E20: 20 50 4C 41 0D 20 20 20 20 20 20 54 41 59 0D 20 | PLA. TAY. | 00001E30: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E | RTS. N| 00001E40: 4F 50 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 |OP.;.;. | 00001E50: 2A 3D 32 39 30 37 32 0D 3B 0D 3B 20 54 52 41 4E |*=29072.;.; TRAN| 00001E60: 53 50 4F 52 54 20 56 45 43 54 4F 52 2E 0D 3B 20 |SPORT VECTOR..; | 00001E70: 4C 45 4E 47 54 45 20 49 4E 20 20 48 41 41 4C 41 |LENGTE IN HAALA| 00001E80: 44 52 45 53 20 28 32 35 32 2C 32 35 31 29 2E 0D |DRES (252,251)..| 00001E90: 3B 20 4C 45 4E 47 54 45 20 49 4E 20 42 52 45 4E |; LENGTE IN BREN| 00001EA0: 47 41 44 52 45 53 20 28 32 35 34 2C 32 35 33 29 |GADRES (254,253)| 00001EB0: 2E 0D 3B 20 42 52 45 4E 47 56 45 43 54 4F 52 20 |..; BRENGVECTOR | 00001EC0: 57 4F 52 44 54 20 47 45 56 4F 52 4D 44 2E 0D 3B |WORDT GEVORMD..;| 00001ED0: 0D 54 52 41 53 50 20 54 59 41 0D 20 20 20 20 20 |.TRASP TYA. | 00001EE0: 20 50 48 41 0D 20 20 20 20 20 20 4C 44 59 20 23 | PHA. LDY #| 00001EF0: 30 30 30 0D 20 20 20 20 20 20 4C 44 41 20 28 32 |000. LDA (2| 00001F00: 35 31 29 2C 59 0D 20 20 20 20 20 20 53 54 41 20 |51),Y. STA | 00001F10: 20 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 28 | 002. STA (| 00001F20: 32 35 33 29 2C 59 0D 20 20 20 20 20 20 42 45 51 |253),Y. BEQ| 00001F30: 20 20 54 52 41 53 32 0D 54 52 41 53 31 20 49 4E | TRAS2.TRAS1 IN| 00001F40: 59 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 31 |Y. LDA (251| 00001F50: 29 2C 59 0D 20 20 20 20 20 20 53 54 41 20 28 32 |),Y. STA (2| 00001F60: 35 33 29 2C 59 0D 20 20 20 20 20 20 43 50 59 20 |53),Y. CPY | 00001F70: 20 30 30 32 0D 20 20 20 20 20 20 42 43 43 20 20 | 002. BCC | 00001F80: 54 52 41 53 31 0D 54 52 41 53 32 20 50 4C 41 0D |TRAS1.TRAS2 PLA.| 00001F90: 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 | TAY. | 00001FA0: 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |RTS. NOP. | 00001FB0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00001FC0: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 3B 0D 3B 0D |P. NOP.;.;.| 00001FD0: 20 20 20 20 20 20 20 20 20 2A 3D 32 39 31 30 30 | *=29100| 00001FE0: 0D 3B 0D 3B 20 4B 52 49 4D 50 20 56 45 43 54 4F |.;.; KRIMP VECTO| 00001FF0: 52 20 4D 45 54 20 57 45 47 48 41 4C 45 4E 20 56 |R MET WEGHALEN V| 00002000: 41 4E 0D 3B 20 44 45 20 4D 45 45 53 54 53 49 47 |AN.; DE MEESTSIG| 00002010: 4E 49 46 49 43 41 4E 54 45 20 4E 55 4C 4C 45 4E |NIFICANTE NULLEN| 00002020: 2E 0D 3B 20 4C 45 4E 47 54 45 20 49 4E 20 41 44 |..; LENGTE IN AD| 00002030: 52 45 53 20 28 32 35 34 2C 32 35 33 29 2E 0D 3B |RES (254,253)..;| 00002040: 0D 4B 52 49 4D 50 20 54 59 41 0D 20 20 20 20 20 |.KRIMP TYA. | 00002050: 20 50 48 41 0D 20 20 20 20 20 20 4C 44 59 20 23 | PHA. LDY #| 00002060: 30 30 30 0D 20 20 20 20 20 20 4C 44 41 20 28 32 |000. LDA (2| 00002070: 35 33 29 2C 59 0D 20 20 20 20 20 20 54 41 59 0D |53),Y. TAY.| 00002080: 4B 52 49 4D 31 20 4C 44 41 20 28 32 35 33 29 2C |KRIM1 LDA (253),| 00002090: 59 0D 20 20 20 20 20 20 42 4E 45 20 20 4B 52 49 |Y. BNE KRI| 000020A0: 4D 32 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 |M2. DEY. | 000020B0: 20 20 20 42 4E 45 20 20 4B 52 49 4D 31 0D 4B 52 | BNE KRIM1.KR| 000020C0: 49 4D 32 20 54 59 41 0D 20 20 20 20 20 20 4C 44 |IM2 TYA. LD| 000020D0: 59 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 |Y #000. STA| 000020E0: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 50 | (253),Y. P| 000020F0: 4C 41 0D 20 20 20 20 20 20 54 41 59 0D 20 20 20 |LA. TAY. | 00002100: 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 | RTS. NOP| 00002110: 0D 20 20 20 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 |. NOP.;.;. | 00002120: 20 20 20 20 20 20 20 20 2A 3D 32 39 31 32 34 0D | *=29124.| 00002130: 3B 0D 3B 20 45 58 54 52 41 20 28 58 29 20 41 43 |;.; EXTRA (X) AC| 00002140: 48 54 45 52 20 44 45 20 56 45 43 54 4F 52 2E 0D |HTER DE VECTOR..| 00002150: 3B 20 4C 45 4E 47 54 45 20 49 4E 20 41 44 52 45 |; LENGTE IN ADRE| 00002160: 53 20 28 32 35 34 2C 32 35 33 29 2E 0D 3B 0D 58 |S (254,253)..;.X| 00002170: 54 52 41 58 20 54 59 41 0D 20 20 20 20 20 20 50 |TRAX TYA. P| 00002180: 48 41 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |HA. LDY #00| 00002190: 30 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |0. LDA (253| 000021A0: 29 2C 59 0D 20 20 20 20 20 20 54 41 59 0D 20 20 |),Y. TAY. | 000021B0: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 54 58 | INY. TX| 000021C0: 41 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |A. STA (253| 000021D0: 29 2C 59 0D 20 20 20 20 20 20 54 59 41 0D 20 20 |),Y. TYA. | 000021E0: 20 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 | LDY #000. | 000021F0: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 | STA (253),Y. | 00002200: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 54 | PLA. T| 00002210: 41 59 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 |AY. RTS. | 00002220: 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 20 20 20 20 | NOP.;.;. | 00002230: 20 20 20 20 2A 3D 32 39 31 34 34 0D 3B 0D 3B 20 | *=29144.;.; | 00002240: 54 45 4B 45 4E 4F 4D 4B 45 45 52 20 56 41 4E 20 |TEKENOMKEER VAN | 00002250: 45 45 4E 20 56 45 43 54 4F 52 2E 0D 3B 20 4C 45 |EEN VECTOR..; LE| 00002260: 4E 47 54 45 20 49 4E 20 41 44 52 45 53 20 28 32 |NGTE IN ADRES (2| 00002270: 35 34 2C 32 35 33 29 2E 0D 3B 0D 4D 49 4E 45 52 |54,253)..;.MINER| 00002280: 20 54 59 41 0D 20 20 20 20 20 20 50 48 41 0D 20 | TYA. PHA. | 00002290: 20 20 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 | LDY #000. | 000022A0: 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 0D | LDA (253),Y.| 000022B0: 20 20 20 20 20 20 54 41 59 0D 4D 49 4E 45 31 20 | TAY.MINE1 | 000022C0: 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |LDA (253),Y. | 000022D0: 20 20 42 45 51 20 20 4D 49 4E 45 32 0D 20 20 20 | BEQ MINE2. | 000022E0: 20 20 20 53 45 43 0D 20 20 20 20 20 20 45 4F 52 | SEC. EOR| 000022F0: 20 23 32 35 35 0D 20 20 20 20 20 20 41 44 43 20 | #255. ADC | 00002300: 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 28 |#000. STA (| 00002310: 32 35 33 29 2C 59 0D 4D 49 4E 45 32 20 44 45 59 |253),Y.MINE2 DEY| 00002320: 0D 20 20 20 20 20 20 42 4E 45 20 20 4D 49 4E 45 |. BNE MINE| 00002330: 31 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 |1. PLA. | 00002340: 20 20 54 41 59 0D 20 20 20 20 20 20 52 54 53 0D | TAY. RTS.| 00002350: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00002360: 4E 4F 50 0D 3B 0D 3B 0D 3B 20 32 39 31 37 30 2E |NOP.;.;.; 29170.| 00002370: 2E 32 39 31 38 33 20 56 52 49 4A 2E 0D 3B 20 52 |.29183 VRIJ..; R| 00002380: 55 49 4D 54 45 20 56 4F 4F 52 20 31 34 20 42 59 |UIMTE VOOR 14 BY| 00002390: 54 45 53 2E 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 |TES..;.;. | 000023A0: 20 20 2A 3D 32 39 31 38 34 0D 3B 0D 3B 4F 50 54 | *=29184.;.;OPT| 000023B0: 45 4C 4C 45 4E 20 56 41 4E 20 54 57 45 45 20 56 |ELLEN VAN TWEE V| 000023C0: 45 43 54 4F 52 45 4E 2E 0D 3B 28 31 36 38 2C 31 |ECTOREN..;(168,1| 000023D0: 36 37 29 20 41 44 52 45 53 20 4C 45 4E 47 54 45 |67) ADRES LENGTE| 000023E0: 20 4F 50 54 45 4C 4C 45 52 2E 0D 3B 28 32 35 32 | OPTELLER..;(252| 000023F0: 2C 32 35 31 29 20 41 44 52 45 53 20 4C 45 4E 47 |,251) ADRES LENG| 00002400: 54 45 20 4F 50 54 45 4C 54 41 4C 2E 0D 3B 28 32 |TE OPTELTAL..;(2| 00002410: 35 34 2C 32 35 33 29 20 41 44 52 45 53 20 4C 45 |54,253) ADRES LE| 00002420: 4E 47 54 45 20 53 4F 4D 2E 0D 3B 20 42 45 47 49 |NGTE SOM..; BEGI| 00002430: 4E 3A 20 28 58 29 20 45 58 54 52 41 20 49 4E 43 |N: (X) EXTRA INC| 00002440: 52 45 4D 45 4E 54 2E 0D 3B 20 45 49 4E 44 20 3A |REMENT..; EIND :| 00002450: 20 28 58 29 20 45 58 54 52 41 20 4F 56 45 52 4C | (X) EXTRA OVERL| 00002460: 4F 4F 50 2E 0D 3B 0D 4F 50 54 45 4C 20 54 59 41 |OOP..;.OPTEL TYA| 00002470: 20 20 20 20 20 20 20 20 20 3B 52 45 44 20 28 59 | ;RED (Y| 00002480: 29 2C 28 58 29 2E 0D 20 20 20 20 20 20 50 48 41 |),(X).. PHA| 00002490: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 |. LDY #000 | 000024A0: 20 20 20 3B 56 45 43 54 4F 52 4C 45 4E 47 54 45 | ;VECTORLENGTE| 000024B0: 53 3A 0D 20 20 20 20 20 20 4C 44 41 20 28 31 36 |S:. LDA (16| 000024C0: 37 29 2C 59 20 3B 4C 45 4E 47 54 45 20 56 41 4E |7),Y ;LENGTE VAN| 000024D0: 20 41 20 49 53 0D 20 20 20 20 20 20 53 54 41 20 | A IS. STA | 000024E0: 20 30 33 38 20 20 20 20 3B 4C 41 20 28 4F 50 54 | 038 ;LA (OPT| 000024F0: 45 4C 4C 45 52 29 2E 0D 20 20 20 20 20 20 4C 44 |ELLER).. LD| 00002500: 41 20 28 32 35 31 29 2C 59 20 3B 4C 45 4E 47 54 |A (251),Y ;LENGT| 00002510: 45 20 56 41 4E 20 42 20 49 53 0D 20 20 20 20 20 |E VAN B IS. | 00002520: 20 53 54 41 20 20 30 33 39 20 20 20 20 3B 4C 42 | STA 039 ;LB| 00002530: 20 28 4F 50 54 45 4C 54 41 4C 29 2E 0D 20 20 20 | (OPTELTAL).. | 00002540: 20 20 20 43 4D 50 20 20 30 33 38 20 20 20 20 3B | CMP 038 ;| 00002550: 47 52 4F 4F 54 53 54 45 20 49 53 0D 20 20 20 20 |GROOTSTE IS. | 00002560: 20 20 42 43 53 20 20 4F 50 54 45 31 20 20 3B 4C | BCS OPTE1 ;L| 00002570: 45 4E 47 54 45 20 56 41 4E 20 43 3A 0D 20 20 20 |ENGTE VAN C:. | 00002580: 20 20 20 4C 44 41 20 20 30 33 38 20 20 20 20 3B | LDA 038 ;| 00002590: 4C 43 20 28 53 4F 4D 29 2E 0D 4F 50 54 45 31 20 |LC (SOM)..OPTE1 | 000025A0: 53 54 41 20 20 30 30 32 0D 20 20 20 20 20 20 53 |STA 002. S| 000025B0: 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 |TA (253),Y. | 000025C0: 20 49 4E 43 20 20 30 33 38 20 20 20 20 3B 4C 41 | INC 038 ;LA| 000025D0: 2A 3D 4C 41 2B 31 2E 0D 20 20 20 20 20 20 49 4E |*=LA+1.. IN| 000025E0: 43 20 20 30 33 39 20 20 20 20 3B 4C 42 2A 3D 4C |C 039 ;LB*=L| 000025F0: 42 2B 31 2E 0D 4F 50 54 45 32 20 49 4E 59 20 20 |B+1..OPTE2 INY | 00002600: 20 20 20 20 20 20 20 3B 45 58 54 52 41 20 28 58 | ;EXTRA (X| 00002610: 29 20 49 4E 0D 20 20 20 20 20 20 54 58 41 20 20 |) IN. TXA | 00002620: 20 20 20 20 20 20 20 3B 53 4F 4D 43 4F 4D 50 4F | ;SOMCOMPO| 00002630: 4E 45 4E 54 0D 20 20 20 20 20 20 53 54 41 20 28 |NENT. STA (| 00002640: 32 35 33 29 2C 59 20 3B 23 20 2B 31 2E 0D 20 20 |253),Y ;# +1.. | 00002650: 20 20 20 20 43 50 59 20 20 30 33 38 20 20 20 20 | CPY 038 | 00002660: 3B 43 48 45 43 4B 20 4F 50 20 4C 41 2A 2E 0D 20 |;CHECK OP LA*.. | 00002670: 20 20 20 20 20 42 43 43 20 20 4F 50 54 45 33 0D | BCC OPTE3.| 00002680: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 | LDA #000. | 00002690: 20 20 20 20 20 42 45 51 20 20 4F 50 54 45 34 0D | BEQ OPTE4.| 000026A0: 4F 50 54 45 33 20 4C 44 41 20 28 31 36 37 29 2C |OPTE3 LDA (167),| 000026B0: 59 20 3B 43 4F 4D 50 4F 4E 45 4E 54 20 56 41 4E |Y ;COMPONENT VAN| 000026C0: 0D 4F 50 54 45 34 20 53 54 41 20 20 31 30 31 20 |.OPTE4 STA 101 | 000026D0: 20 20 20 3B 4F 50 54 45 4C 4C 45 52 20 41 2E 0D | ;OPTELLER A..| 000026E0: 20 20 20 20 20 20 43 50 59 20 20 30 33 39 20 20 | CPY 039 | 000026F0: 20 20 3B 43 48 45 43 4B 20 4F 50 20 4C 42 2A 2E | ;CHECK OP LB*.| 00002700: 0D 20 20 20 20 20 20 42 43 43 20 20 4F 50 54 45 |. BCC OPTE| 00002710: 35 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |5. LDA #000| 00002720: 0D 20 20 20 20 20 20 42 45 51 20 20 4F 50 54 45 |. BEQ OPTE| 00002730: 36 0D 4F 50 54 45 35 20 4C 44 41 20 28 32 35 31 |6.OPTE5 LDA (251| 00002740: 29 2C 59 20 3B 43 4F 4D 50 4F 4E 45 4E 54 20 56 |),Y ;COMPONENT V| 00002750: 41 4E 0D 4F 50 54 45 36 20 43 4C 43 20 20 20 20 |AN.OPTE6 CLC | 00002760: 20 20 20 20 20 3B 4F 50 54 45 4C 54 41 4C 20 42 | ;OPTELTAL B| 00002770: 2E 0D 20 20 20 20 20 20 41 44 43 20 20 31 30 31 |.. ADC 101| 00002780: 20 20 20 20 3B 54 45 4C 20 42 49 4A 20 41 2E 0D | ;TEL BIJ A..| 00002790: 20 20 20 20 20 20 4A 53 52 20 20 4F 56 41 58 41 | JSR OVAXA| 000027A0: 20 20 3B 53 50 4C 49 54 53 2D 3E 5B 58 2C 41 5D | ;SPLITS->[X,A]| 000027B0: 2E 0D 20 20 20 20 20 20 41 44 43 20 28 32 35 33 |.. ADC (253| 000027C0: 29 2C 59 0D 20 20 20 20 20 20 53 54 41 20 28 32 |),Y. STA (2| 000027D0: 35 33 29 2C 59 0D 20 20 20 20 20 20 43 50 59 20 |53),Y. CPY | 000027E0: 20 30 30 32 20 20 20 20 3B 43 4F 4D 50 4F 4E 45 | 002 ;COMPONE| 000027F0: 4E 54 4E 55 4D 4D 45 52 0D 20 20 20 20 20 20 42 |NTNUMMER. B| 00002800: 43 43 20 20 4F 50 54 45 32 20 20 3B 54 45 53 54 |CC OPTE2 ;TEST| 00002810: 45 4E 20 4F 50 20 45 49 4E 44 2E 0D 20 20 20 20 |EN OP EIND.. | 00002820: 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 3B 45 | PLA ;E| 00002830: 49 4E 44 3A 48 45 52 53 54 45 4C 0D 20 20 20 20 |IND:HERSTEL. | 00002840: 20 20 54 41 59 20 20 20 20 20 20 20 20 20 3B 28 | TAY ;(| 00002850: 59 29 20 45 4E 20 4E 41 41 52 0D 20 20 20 20 20 |Y) EN NAAR. | 00002860: 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 48 4F | RTS ;HO| 00002870: 4F 46 44 50 52 4F 47 52 41 4D 4D 41 2E 0D 20 20 |OFDPROGRAMMA.. | 00002880: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00002890: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 3B 0D 3B 0D |P. NOP.;.;.| 000028A0: 20 20 20 20 20 20 20 20 20 2A 3D 32 39 32 35 36 | *=29256| 000028B0: 0D 3B 0D 3B 41 46 54 52 45 4B 4B 45 4E 20 56 41 |.;.;AFTREKKEN VA| 000028C0: 4E 20 54 57 45 45 20 56 45 43 54 4F 52 45 4E 2E |N TWEE VECTOREN.| 000028D0: 0D 3B 28 31 36 38 2C 31 36 37 29 20 41 44 52 45 |.;(168,167) ADRE| 000028E0: 53 20 4C 45 4E 47 54 45 20 41 46 54 52 45 4B 4B |S LENGTE AFTREKK| 000028F0: 45 52 2E 0D 3B 28 32 35 32 2C 32 35 31 29 20 41 |ER..;(252,251) A| 00002900: 44 52 45 53 20 4C 45 4E 47 54 45 20 41 46 54 52 |DRES LENGTE AFTR| 00002910: 45 4B 54 41 4C 2E 0D 3B 28 32 35 34 2C 32 35 33 |EKTAL..;(254,253| 00002920: 29 20 41 44 52 45 53 20 4C 45 4E 47 54 45 20 56 |) ADRES LENGTE V| 00002930: 45 52 53 43 48 49 4C 2E 0D 3B 20 42 45 47 49 4E |ERSCHIL..; BEGIN| 00002940: 3A 20 28 58 29 20 45 58 54 52 41 20 49 4E 43 52 |: (X) EXTRA INCR| 00002950: 45 4D 45 4E 54 2E 0D 3B 20 45 49 4E 44 20 3A 20 |EMENT..; EIND : | 00002960: 28 58 29 20 45 58 54 52 41 20 4F 56 45 52 4C 4F |(X) EXTRA OVERLO| 00002970: 4F 50 2E 0D 3B 0D 41 46 54 52 45 20 54 59 41 20 |OP..;.AFTRE TYA | 00002980: 20 20 20 20 20 20 20 20 3B 52 45 44 20 28 59 29 | ;RED (Y)| 00002990: 2C 28 58 29 2E 0D 20 20 20 20 20 20 50 48 41 0D |,(X).. PHA.| 000029A0: 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 | LDY #000 | 000029B0: 20 20 3B 56 45 43 54 4F 52 4C 45 4E 47 54 45 53 | ;VECTORLENGTES| 000029C0: 3A 0D 20 20 20 20 20 20 4C 44 41 20 28 31 36 37 |:. LDA (167| 000029D0: 29 2C 59 20 3B 4C 45 4E 47 54 45 20 56 41 4E 20 |),Y ;LENGTE VAN | 000029E0: 41 20 49 53 0D 20 20 20 20 20 20 53 54 41 20 20 |A IS. STA | 000029F0: 30 33 38 20 20 20 20 3B 4C 41 20 28 41 46 54 52 |038 ;LA (AFTR| 00002A00: 45 4B 4B 45 52 29 2E 0D 20 20 20 20 20 20 4C 44 |EKKER).. LD| 00002A10: 41 20 28 32 35 31 29 2C 59 20 3B 4C 45 4E 47 54 |A (251),Y ;LENGT| 00002A20: 45 20 56 41 4E 20 42 20 49 53 0D 20 20 20 20 20 |E VAN B IS. | 00002A30: 20 53 54 41 20 20 30 33 39 20 20 20 20 3B 4C 42 | STA 039 ;LB| 00002A40: 20 28 41 46 54 52 45 4B 54 41 4C 29 2E 0D 20 20 | (AFTREKTAL).. | 00002A50: 20 20 20 20 43 4D 50 20 20 30 33 38 20 20 20 20 | CMP 038 | 00002A60: 3B 47 52 4F 4F 54 53 54 45 20 49 53 0D 20 20 20 |;GROOTSTE IS. | 00002A70: 20 20 20 42 43 53 20 20 41 46 54 52 31 20 20 3B | BCS AFTR1 ;| 00002A80: 4C 45 4E 47 54 45 20 56 41 4E 20 43 3A 0D 20 20 |LENGTE VAN C:. | 00002A90: 20 20 20 20 4C 44 41 20 20 30 33 38 20 20 20 20 | LDA 038 | 00002AA0: 3B 4C 43 20 28 56 45 52 53 43 48 49 4C 29 2E 0D |;LC (VERSCHIL)..| 00002AB0: 41 46 54 52 31 20 53 54 41 20 20 30 30 32 0D 20 |AFTR1 STA 002. | 00002AC0: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 00002AD0: 0D 20 20 20 20 20 20 49 4E 43 20 20 30 33 38 20 |. INC 038 | 00002AE0: 20 20 20 3B 4C 41 2A 3D 4C 41 2B 31 2E 0D 20 20 | ;LA*=LA+1.. | 00002AF0: 20 20 20 20 49 4E 43 20 20 30 33 39 20 20 20 20 | INC 039 | 00002B00: 3B 4C 42 2A 3D 4C 42 2B 31 2E 0D 41 46 54 52 32 |;LB*=LB+1..AFTR2| 00002B10: 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 45 58 | INY ;EX| 00002B20: 54 52 41 20 28 58 29 20 49 4E 0D 20 20 20 20 20 |TRA (X) IN. | 00002B30: 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 56 45 | TXA ;VE| 00002B40: 52 53 43 48 49 4C 43 4D 50 4E 54 2E 0D 20 20 20 |RSCHILCMPNT.. | 00002B50: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B | STA (253),Y ;| 00002B60: 23 20 2B 31 2E 0D 20 20 20 20 20 20 43 50 59 20 |# +1.. CPY | 00002B70: 20 30 33 38 20 20 20 20 3B 43 48 45 43 4B 20 4F | 038 ;CHECK O| 00002B80: 50 20 4C 41 2A 2E 0D 20 20 20 20 20 20 42 43 43 |P LA*.. BCC| 00002B90: 20 20 41 46 54 52 33 0D 20 20 20 20 20 20 4C 44 | AFTR3. LD| 00002BA0: 41 20 23 30 30 30 0D 20 20 20 20 20 20 42 45 51 |A #000. BEQ| 00002BB0: 20 20 41 46 54 52 34 0D 41 46 54 52 33 20 4C 44 | AFTR4.AFTR3 LD| 00002BC0: 41 20 28 31 36 37 29 2C 59 20 3B 43 4F 4D 50 4F |A (167),Y ;COMPO| 00002BD0: 4E 45 4E 54 20 56 41 4E 0D 41 46 54 52 34 20 53 |NENT VAN.AFTR4 S| 00002BE0: 54 41 20 20 31 30 31 20 20 20 20 3B 41 46 54 52 |TA 101 ;AFTR| 00002BF0: 45 4B 4B 45 52 20 41 2E 0D 20 20 20 20 20 20 43 |EKKER A.. C| 00002C00: 50 59 20 20 30 33 39 20 20 20 20 3B 43 48 45 43 |PY 039 ;CHEC| 00002C10: 4B 20 4F 50 20 4C 42 2A 2E 0D 20 20 20 20 20 20 |K OP LB*.. | 00002C20: 42 43 43 20 20 41 46 54 52 35 0D 20 20 20 20 20 |BCC AFTR5. | 00002C30: 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 | LDA #000. | 00002C40: 42 45 51 20 20 41 46 54 52 36 0D 41 46 54 52 35 |BEQ AFTR6.AFTR5| 00002C50: 20 4C 44 41 20 28 32 35 31 29 2C 59 20 3B 43 4F | LDA (251),Y ;CO| 00002C60: 4D 50 4F 4E 45 4E 54 20 56 41 4E 0D 41 46 54 52 |MPONENT VAN.AFTR| 00002C70: 36 20 53 45 43 20 20 20 20 20 20 20 20 20 3B 41 |6 SEC ;A| 00002C80: 46 54 52 45 4B 54 41 4C 20 42 2E 0D 20 20 20 20 |FTREKTAL B.. | 00002C90: 20 20 53 42 43 20 20 31 30 31 20 20 20 20 3B 54 | SBC 101 ;T| 00002CA0: 52 45 4B 20 41 46 20 56 41 4E 20 41 2E 0D 20 20 |REK AF VAN A.. | 00002CB0: 20 20 20 20 4A 53 52 20 20 4F 56 41 58 41 20 20 | JSR OVAXA | 00002CC0: 3B 53 50 4C 49 54 53 2D 3E 5B 58 2C 41 5D 2E 0D |;SPLITS->[X,A]..| 00002CD0: 20 20 20 20 20 20 41 44 43 20 28 32 35 33 29 2C | ADC (253),| 00002CE0: 59 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |Y. STA (253| 00002CF0: 29 2C 59 0D 20 20 20 20 20 20 43 50 59 20 20 30 |),Y. CPY 0| 00002D00: 30 32 20 20 20 20 3B 43 4F 4D 50 4F 4E 45 4E 54 |02 ;COMPONENT| 00002D10: 4E 55 4D 4D 45 52 0D 20 20 20 20 20 20 42 43 43 |NUMMER. BCC| 00002D20: 20 20 41 46 54 52 32 20 20 3B 54 45 53 54 45 4E | AFTR2 ;TESTEN| 00002D30: 20 4F 50 20 45 49 4E 44 2E 0D 20 20 20 20 20 20 | OP EIND.. | 00002D40: 50 4C 41 20 20 20 20 20 20 20 20 20 3B 45 49 4E |PLA ;EIN| 00002D50: 44 3A 48 45 52 53 54 45 4C 0D 20 20 20 20 20 20 |D:HERSTEL. | 00002D60: 54 41 59 20 20 20 20 20 20 20 20 20 3B 28 59 29 |TAY ;(Y)| 00002D70: 20 45 4E 20 4E 41 41 52 0D 20 20 20 20 20 20 52 | EN NAAR. R| 00002D80: 54 53 20 20 20 20 20 20 20 20 20 3B 48 4F 4F 46 |TS ;HOOF| 00002D90: 44 50 52 4F 47 52 41 4D 4D 41 2E 0D 20 20 20 20 |DPROGRAMMA.. | 00002DA0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00002DB0: 20 20 20 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 20 | NOP.;.;. | 00002DC0: 20 20 20 20 20 20 20 2A 3D 32 39 33 32 38 0D 3B | *=29328.;| 00002DD0: 0D 3B 20 52 45 53 45 52 56 45 2E 0D 3B 0D 3B 20 |.; RESERVE..;.; | 00002DE0: 20 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 20 20 20 | NOP.;.;. | 00002DF0: 20 20 2E 45 4E 44 0D | .END. |
;.; PROGRAMMA : HONDERDTALLIG..; BRON
CODE : HONTAL.ASM ..; OBJECTCODE
: HONTAL.OBJ ..; DISK : DEMO-
4 ..; TAAL : ASSEMBLER C64
..; DATUM : 28 DEC.1991..; PROGRA
MMEUR : J.H.VAN RIJN..;.; OP DEZE SET S
TAAN SUBPROGRAMMA'S.; VOOR BEWERKINGEN I
N HET HONDERD-.; TALLIGE STELSEL..;.;===
==============================.;.; DECIM
HEXA SYMBL FUNCTIE.;.; 28672 7000 BTDCO
DECONVERTEERT.; BYTE M
.TEKEN..; 28808 7088 DCOBT CONVERTEERT.;
BYTE M.TEKEN..; 28872
70C8 OVLOP ELIMIN.OVERLOOP.;
UIT VECTOR..; 28928 7100 TEKEN TEK
ENS GELIJKM..; IN VECTO
R..; 29028 7164 OVAXA (A)->[X,A].;
OVERLOPERS WEG..; 29052 717C
POETS ZET VECTOR.; OP
NUL..; 29072 7190 TRASP TRANSPORTEER.;
VECTOR->VECTOR..; 29100
71AC KRIMP KRIMP DE VECTOR.;
MET MS.NUL WEG..; 29124 71C4 XTRAX
EXTRA COMPONENT.; (X)
ACHTERIN..; 29144 71D8 MINER OMKEREN VAN
TE-.; KEN VAN VECTOR..
; 29184 7200 OPTEL OPTELLEN VAN.;
TWEE VECTOREN..; 29256 7248 A
FTRE AFTREKKEN VAN.; TW
EE VECTOREN..; 29328 7290 LABEL ........
........; .............
...;.;=================================.
;.;. *=28672.;.; EENBYTE DECONVE
RSIE MET TEKEN..; IN :(251) BINAIR;.;
(BIT 7)=0: POS.,+000...+127..; (BI
T 7)=1: NEG.,-128...-001..; UIT:(254,253
) ADRES VAN TEKEN..; POS.:+<CIJF.><C
IJF.><CIJF.>.; NEG.:-<CIJF.><CIJF.><
CIJF.>.; NUL :<SPATIE>000.;.BTDCO TY
A ;RED (Y),(X).. PHA.
TXA. PHA. LDY #003. LDA #
048 ;ASCII NULLEN.BTDC1 STA (253),Y ;
IN OUT-BYTES.. DEY ;AFTEL 3
,2,1.. BNE BTDC1. LDY #000
;ZET REST IN. STY 039 ;(039,03
8).. LDA 251. STA 038.
BNE BTDC2 ;IN-BYTE NUL?. LDA #032
;JA:VOORSPATIE. STA (253),Y ;IN
OUTBYTE 0.. CLC. BCC BTDC8.B
TDC2 LDX #043 ;VOORPLUS.. ROL A
;BIT 7 IN CARRY.. BCC BTDC3
;NUL=POSITIEF.. LDA 038 ;EEN=C
OMPL.+1.. EOR #255. ADC #000.
STA 038. INX ;VOORMIN
.. INX.BTDC3 TXA. STA (253),Y
;IN OUTBYTE 0.. LDY #001 ;NA TEK
EN.. CLC. BCC BTDC5.BTDC4 SEC
;TREK 100 AF. LDA 038
;VAN (039,038).. SBC #100. STA
038. LDA 039. SBC #000.
STA 039. CLC ;TEL 1 OP.
LDA (253),Y ;BIJ (AU+M).. ADC
#001. STA (253),Y.BTDC5 LDA 039
;VERGELIJK. CMP #000 ;(039,038)
. BCC BTDC6 ;MET 100.. BNE
BTDC4. LDA 038. CMP #100.
BCS BTDC4.BTDC6 LDA 039 ;REST NUL
?. BNE BTDC7. LDA 038.
BEQ BTDC8 ;JA: NAAR H.P..BTDC7 CLC
;NEEN:. ROL 038 ;(039,038)
*10.. ROL 039. LDA 039.
STA 041. LDA 038. CLC.
ROL A. ROL 041. ROL A.
ROL 041. CLC. ADC 038.
STA 038. LDA 041. ADC 039
. STA 039. INY ;VOLGE
ND CIJFER.. CLC. BCC BTDC5.BT
DC8 PLA ;HERSTEL. TAX
;(X) EN (Y).. PLA. TAY.
RTS ;NAAR HOOFDPR.. NOP.
NOP. NOP.;.;. *=28808.
;.; EENBYTE CONVERSIE MET TEKEN..; IN :(
254,253) ADRES VAN TEKEN..; POS.:+<C
IJF.><CIJF.><CIJF.>.; NEG.:-<CIJF.><
CIJF.><CIJF.>.; SPATIE ALS VOORTEKEN
KAN..; UIT:(251) BINAIR;.; (BIT 7)=
0: POS.,+000...+127..; (BIT 7)=1: NE
G.,-128...-001..;.DCOBT TYA ;RED
(Y).. PHA. LDY #000 ;BEGIN
.. STY 251 ;OUTBYTE NUL..DCOB1
INY ;EERSTVOLGEND. LDA (253
),Y ;KARAKTER.. SEC ;IS HET
EEN. SBC #048 ;CIJFER?. BM
I DCOB3 ;NEEN:OVERSLAAN.. CMP #01
0 ;JA:ZET IN 002.. BCS DCOB3.
STA 002. CLC ;UIT MAAL
TWEE.. LDA 251 ;LEEG:GEEN VER-
. BEQ DCOB2 ;MENIGV.MET 10..
ROL A ;VOL:UIT MAAL 8.. STA
251. ROL A. ROL A. ADC
251 ;TEL MAAL 2 BIJ..DCOB2 ADC 002
;TEL CIJFER BIJ.. STA 251.DCOB
3 CPY #002. BCC DCOB1 ;(Y)=1 OF 2
?. LDY #000 ;NEEN:TEST +/-..
LDA (253),Y. CMP #045. BNE
DCOB4 ;MIN:2-COMPLEM.. SEC. L
DA 251. EOR #255. ADC #000.
STA 251.DCOB4 PLA. TAY
;HERSTEL (Y).. RTS ;TERUG
NAAR H.P.. NOP. NOP. NOP.
NOP.;.;. *=28872.;.; ELIMI
NEER OVERLOOP UIT VECTOR..; (254,253) AD
RES VAN LENGTE VAN.; TE BEWERK
EN VECTOR..;.OVLOP TYA ;RED (Y),
(X).. PHA. TXA. PHA.
LDY #000. LDA (253),Y ;VECTORLENGT
E.. BEQ OVLO4 ;NUL:KLAAR.. T
AY ;ANDERS EEN BIJ. INY
;IN INDEX: L*.. LDA #000 ;Z
ET EXTRA. STA (253),Y ;COMP.OP NUL.
. TYA ;ZET TEVENS IN.
LDY #000 ;DE LENGTE VAN. STA (25
3),Y ;DE VECTOR.. STA 002 ;OOK
VOOR LUS.. INY ;COMPONENT 1
..OVLO1 LDA (253),Y ;1,2,..,L*.. JS
R OVAXA ;SPLITS (A).. CPX #000
;OVERLOOP?. BEQ OVLO2 ;JA :ONVER
AND.. STA (253),Y ;NEE:EENHEDEN..
INY ; TEL HON-. CLC
; DERDTLN.. TXA
; BIJ VOLG.. ADC (253),Y ; DO
OR NAAR. STA (253),Y ; OVLO3..
CLC. BCC OVLO3.OVLO2 INY
;INDEX 1 HOGER..OVLO3 CPY 002 ;GE
LIJK AAN L?. BCC OVLO1 ;NEE:NAAR
OVLO1..OVLO4 PLA ;JA :HERSTEL (X
). TAX ; EN (Y).. P
LA ; NAAR H.P.. TAY.
RTS. NOP.;.;. *=28928.;.;
TEKENS GELIJKMAKEN IN VECTOR..; (254,25
3) ADRES VAN LENGTE VAN.; TE B
EWERKEN VECTOR..;.TEKEN TYA ;RED
(Y),(X).. PHA. TXA. PHA.
LDY #000 ;VECTORLENGTE. LD
A (253),Y ;OPVOEREN: L.. BEQ TEKE9
;NUL:KLAAR.. TAY ;ANDERS
L + 1. INY ;IN INDEX: L*..
LDA #000 ;ZET EXTRA. STA (2
53),Y ;COMP.OP NUL.. TYA ;Z
ET L* TEVENS. LDY #000 ;IN DE VE
CTOR-. STA (253),Y ;LENGTE.. S
TA 002 ;OOK VOOR LUS.. TAY
;COMPONENT L*..TEKE1 LDA (253),Y ;L*
,L*-1,..,1.. BNE TEKE2 ;ZOEK M.S.
OP.. DEY ;TEL AF.. BNE
TEKE1 ;LEEG:UIT.. BEQ TEKE9 ;G
EVONDEN?.TEKE2 TAX ;JA :MEESTSIG
.. LDY #001 ;IN (X) ZETTEN.TEKE3
TXA ;VOOR TEKEN.. ROL A
;TEKENBIT=>(C).. LDA (253),Y ;C
OMPONENT.. BEQ TEKE4 ;NUL NIET..
ROL A ;ZET DE BEIDE. ROL
A ;TEKENBITS NA. AND #003
;ELKAAR IN A.. CMP #001 ;01 :MA
AK. BEQ TEKE5 ;POSITIEF.. CM
P #002 ;10 :MAAK. BEQ TEKE6 ;N
EGATIEF..TEKE4 INY. CLC. BCC
TEKE8.TEKE5 CLC ;MAAK POSITIEF..
LDA (253),Y. ADC #100. S
TA (253),Y. INY. SEC. LDA
(253),Y. SBC #001. STA (253),
Y. CLC. BCC TEKE8.TEKE6 SEC
;MAAK NEGATIEF.. LDA (253),Y
. SBC #100. STA (253),Y.
INY. CLC. LDA (253),Y. AD
C #001. STA (253),Y.TEKE8 CPY 002
;EIND?. BCC TEKE3 ;NEE:LUS TER
UG..TEKE9 PLA ;JA :HERSTEL (X).
TAX ; EN (Y).. PLA
; NAAR H.P.. TAY. R
TS.;.;. *=29028.;.; (A) -> [X,A]
IN HONDERDTALLIG..; IN DAT STELSEL WAAR
DEN -50..+49..;.OVAXA LDX #000. CMP
#050. BCC OVAX2. CMP #128.
BCS OVAX1. ADC #156. INX.
RTS.OVAX1 CMP #206. BCS OVAX
2. ADC #100. DEX.OVAX2 RTS.
NOP. NOP.;.;. *=29052.;.
; POETS VECTOR..; LENGTE IN ADRES (254,2
53)..;.POETS TYA. PHA. LDY #00
0. LDA (253),Y. BEQ POET2.
TAY. LDA #000.POET1 STA (253),Y.
DEY. BNE POET1.POET2 PLA.
TAY. RTS. NOP.;.;.
*=29072.;.; TRANSPORT VECTOR..; LENGTE I
N HAALADRES (252,251)..; LENGTE IN BREN
GADRES (254,253)..; BRENGVECTOR WORDT GE
VORMD..;.TRASP TYA. PHA. LDY #
000. LDA (251),Y. STA 002.
STA (253),Y. BEQ TRAS2.TRAS1 IN
Y. LDA (251),Y. STA (253),Y.
CPY 002. BCC TRAS1.TRAS2 PLA.
TAY. RTS. NOP. NOP.
NOP. NOP.;.;. *=29100
.;.; KRIMP VECTOR MET WEGHALEN VAN.; DE
MEESTSIGNIFICANTE NULLEN..; LENGTE IN AD
RES (254,253)..;.KRIMP TYA. PHA.
LDY #000. LDA (253),Y. TAY.
KRIM1 LDA (253),Y. BNE KRIM2.
DEY. BNE KRIM1.KRIM2 TYA. LD
Y #000. STA (253),Y. PLA.
TAY. RTS. NOP. NOP.;.;.
*=29124.;.; EXTRA (X) ACHTER DE
VECTOR..; LENGTE IN ADRES (254,253)..;.X
TRAX TYA. PHA. LDY #000.
LDA (253),Y. TAY. INY. TX
A. STA (253),Y. TYA. LDY
#000. STA (253),Y. PLA. T
AY. RTS. NOP.;.;. *=29
144.;.; TEKENOMKEER VAN EEN VECTOR..; LE
NGTE IN ADRES (254,253)..;.MINER TYA.
PHA. LDY #000. LDA (253),Y.
TAY.MINE1 LDA (253),Y. BEQ M
INE2. SEC. EOR #255. ADC
#000. STA (253),Y.MINE2 DEY. B
NE MINE1. PLA. TAY. RTS.
NOP. NOP.;.;.; 29170..29183 V
RIJ..; RUIMTE VOOR 14 BYTES..;.;.
*=29184.;.;OPTELLEN VAN TWEE VECTOREN.
.;(168,167) ADRES LENGTE OPTELLER..;(252
,251) ADRES LENGTE OPTELTAL..;(254,253)
ADRES LENGTE SOM..; BEGIN: (X) EXTRA INC
REMENT..; EIND : (X) EXTRA OVERLOOP..;.O
PTEL TYA ;RED (Y),(X).. PHA
. LDY #000 ;VECTORLENGTES:.
LDA (167),Y ;LENGTE VAN A IS. STA
038 ;LA (OPTELLER).. LDA (251),
Y ;LENGTE VAN B IS. STA 039 ;LB
(OPTELTAL).. CMP 038 ;GROOTSTE
IS. BCS OPTE1 ;LENGTE VAN C:.
LDA 038 ;LC (SOM)..OPTE1 STA 002
. STA (253),Y. INC 038 ;LA
*=LA+1.. INC 039 ;LB*=LB+1..OPT
E2 INY ;EXTRA (X) IN. TXA
;SOMCOMPONENT. STA (253),Y ;
# +1.. CPY 038 ;CHECK OP LA*..
BCC OPTE3. LDA #000. BEQ
OPTE4.OPTE3 LDA (167),Y ;COMPONENT VAN
.OPTE4 STA 101 ;OPTELLER A.. CP
Y 039 ;CHECK OP LB*.. BCC OPTE
5. LDA #000. BEQ OPTE6.OPTE5
LDA (251),Y ;COMPONENT VAN.OPTE6 CLC
;OPTELTAL B.. ADC 101 ;TEL
BIJ A.. JSR OVAXA ;SPLITS->[X,A]
.. ADC (253),Y. STA (253),Y.
CPY 002 ;COMPONENTNUMMER. B
CC OPTE2 ;TESTEN OP EIND.. PLA
;EIND:HERSTEL. TAY ;(
Y) EN NAAR. RTS ;HOOFDPROGR
AMMA.. NOP. NOP. NOP.;.;.
*=29256.;.;AFTREKKEN VAN TWEE V
ECTOREN..;(168,167) ADRES LENGTE AFTREKK
ER..;(252,251) ADRES LENGTE AFTREKTAL..;
(254,253) ADRES LENGTE VERSCHIL..; BEGIN
: (X) EXTRA INCREMENT..; EIND : (X) EXTR
A OVERLOOP..;.AFTRE TYA ;RED (Y)
,(X).. PHA. LDY #000 ;VECTO
RLENGTES:. LDA (167),Y ;LENGTE VAN
A IS. STA 038 ;LA (AFTREKKER)..
LDA (251),Y ;LENGTE VAN B IS.
STA 039 ;LB (AFTREKTAL).. CMP
038 ;GROOTSTE IS. BCS AFTR1 ;
LENGTE VAN C:. LDA 038 ;LC (VER
SCHIL)..AFTR1 STA 002. STA (253),Y
. INC 038 ;LA*=LA+1.. INC
039 ;LB*=LB+1..AFTR2 INY ;EX
TRA (X) IN. TXA ;VERSCHILCM
PNT.. STA (253),Y ;# +1.. CPY
038 ;CHECK OP LA*.. BCC AFTR3.
LDA #000. BEQ AFTR4.AFTR3 LD
A (167),Y ;COMPONENT VAN.AFTR4 STA 101
;AFTREKKER A.. CPY 039 ;CHEC
K OP LB*.. BCC AFTR5. LDA #00
0. BEQ AFTR6.AFTR5 LDA (251),Y ;CO
MPONENT VAN.AFTR6 SEC ;AFTREKTAL
B.. SBC 101 ;TREK AF VAN A..
JSR OVAXA ;SPLITS->[X,A].. AD
C (253),Y. STA (253),Y. CPY 0
02 ;COMPONENTNUMMER. BCC AFTR2
;TESTEN OP EIND.. PLA ;EIN
D:HERSTEL. TAY ;(Y) EN NAAR
. RTS ;HOOFDPROGRAMMA..
NOP. NOP. NOP.;.;. *
=29328.;.; RESERVE..;.; NOP.;.;.
.END.
> CLICK IMAGE PREVIEW FOR FULL MODAL