HONT01.ASM
FILE INFORMATION
FILENAME(S): HONT01.ASM
FILE TYPE(S): SEQ
FILE SIZE: 8.7K
FIRST SEEN: 2025-11-30 21:26:13
APPEARS ON: 1 disk(s)
FILE HASH
dd3d041c8f43919a712cc0b83935da92d6e2fa7ff1621ce2122f20b00ae01d2e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 4 | HONT01.ASM | SEQ | DuncanTwain | 11 | 1 | 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 30 31 2E 41 53 4D 20 20 20 |: HONT01.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 30 31 2E 4F 42 4A 20 20 20 |: HONT01.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 36 20 4A 41 4E 2E 31 39 39 32 2E 0D 3B |: 6 JAN.1992..;| 000000C0: 20 50 52 4F 47 52 41 4D 4D 45 55 52 20 3A 20 20 | PROGRAMMEUR : | 000000D0: 4A 2E 48 2E 56 41 4E 20 52 49 4A 4E 2E 0D 3B 0D |J.H.VAN RIJN..;.| 000000E0: 3B 20 4F 50 20 44 45 5A 45 20 53 45 54 20 53 54 |; OP DEZE SET ST| 000000F0: 41 41 4E 20 53 55 42 50 52 4F 47 52 41 4D 4D 41 |AAN SUBPROGRAMMA| 00000100: 27 53 0D 3B 20 56 4F 4F 52 20 42 45 57 45 52 4B |'S.; VOOR BEWERK| 00000110: 49 4E 47 45 4E 20 49 4E 20 48 45 54 20 48 4F 4E |INGEN IN HET HON| 00000120: 44 45 52 44 2D 0D 3B 20 54 41 4C 4C 49 47 45 20 |DERD-.; TALLIGE | 00000130: 53 54 45 4C 53 45 4C 2E 0D 3B 0D 3B 3D 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 0D 3B 0D |=============.;.| 00000160: 3B 20 44 45 43 49 4D 20 48 45 58 41 20 53 59 4D |; DECIM HEXA SYM| 00000170: 42 4C 20 46 55 4E 43 54 49 45 0D 3B 0D 3B 20 32 |BL FUNCTIE.;.; 2| 00000180: 38 36 37 32 20 37 30 30 30 20 42 54 44 43 4F 20 |8672 7000 BTDCO | 00000190: 44 45 43 4F 4E 56 45 52 54 45 45 52 54 0D 3B 20 |DECONVERTEERT.; | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 42 59 54 45 20 4D 2E 54 45 4B 45 4E 2E 0D 3B | BYTE M.TEKEN..;| 000001C0: 20 32 38 38 30 38 20 37 30 38 38 20 44 43 4F 42 | 28808 7088 DCOB| 000001D0: 54 20 43 4F 4E 56 45 52 54 45 45 52 54 0D 3B 20 |T CONVERTEERT.; | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 42 59 54 45 20 4D 2E 54 45 4B 45 4E 2E 0D 3B | BYTE M.TEKEN..;| 00000200: 20 32 38 38 37 32 20 37 30 43 38 20 4F 56 4C 4F | 28872 70C8 OVLO| 00000210: 50 20 45 4C 49 4D 49 4E 2E 4F 56 45 52 4C 4F 4F |P ELIMIN.OVERLOO| 00000220: 50 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |P.; | 00000230: 20 20 20 20 20 55 49 54 20 56 45 43 54 4F 52 2E | UIT VECTOR.| 00000240: 0D 3B 20 32 38 39 32 38 20 37 31 30 30 20 54 45 |.; 28928 7100 TE| 00000250: 4B 45 4E 20 54 45 4B 45 4E 53 20 47 45 4C 49 4A |KEN TEKENS GELIJ| 00000260: 4B 4D 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 |KM..; | 00000270: 20 20 20 20 20 20 20 49 4E 20 56 45 43 54 4F 52 | IN VECTOR| 00000280: 2E 0D 3B 20 32 39 30 32 38 20 37 31 36 34 20 4F |..; 29028 7164 O| 00000290: 56 41 58 41 20 28 41 29 2D 3E 5B 58 2C 41 5D 0D |VAXA (A)->[X,A].| 000002A0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 000002B0: 20 20 20 4F 56 45 52 4C 4F 50 45 52 53 20 57 45 | OVERLOPERS WE| 000002C0: 47 2E 0D 3B 20 32 39 30 35 32 20 37 31 37 43 20 |G..; 29052 717C | 000002D0: 50 4F 45 54 53 20 5A 45 54 20 56 45 43 54 4F 52 |POETS ZET VECTOR| 000002E0: 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; | 000002F0: 20 20 20 20 4F 50 20 4E 55 4C 2E 0D 3B 20 32 39 | OP NUL..; 29| 00000300: 30 37 32 20 37 31 39 30 20 54 52 41 53 50 20 54 |072 7190 TRASP T| 00000310: 52 41 4E 53 50 4F 52 54 45 45 52 0D 3B 20 20 20 |RANSPORTEER.; | 00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 | V| 00000330: 45 43 54 4F 52 2D 3E 56 45 43 54 4F 52 2E 0D 3B |ECTOR->VECTOR..;| 00000340: 20 32 39 31 30 30 20 37 31 41 43 20 4B 52 49 4D | 29100 71AC KRIM| 00000350: 50 20 4B 52 49 4D 50 20 44 45 20 56 45 43 54 4F |P KRIMP DE VECTO| 00000360: 52 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |R.; | 00000370: 20 20 20 20 20 4D 45 54 20 4D 53 2E 4E 55 4C 20 | MET MS.NUL | 00000380: 57 45 47 2E 0D 3B 20 32 39 31 32 34 20 37 31 43 |WEG..; 29124 71C| 00000390: 34 20 58 54 52 41 58 20 45 58 54 52 41 20 43 4F |4 XTRAX EXTRA CO| 000003A0: 4D 50 4F 4E 45 4E 54 0D 3B 20 20 20 20 20 20 20 |MPONENT.; | 000003B0: 20 20 20 20 20 20 20 20 20 20 20 28 58 29 20 41 | (X) A| 000003C0: 43 48 54 45 52 49 4E 2E 0D 3B 20 32 39 31 34 34 |CHTERIN..; 29144| 000003D0: 20 37 31 44 38 20 4D 49 4E 45 52 20 4F 4D 4B 45 | 71D8 MINER OMKE| 000003E0: 52 45 4E 20 56 41 4E 20 54 45 2D 0D 3B 20 20 20 |REN VAN TE-.; | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4B | K| 00000400: 45 4E 20 56 41 4E 20 56 45 43 54 4F 52 2E 0D 3B |EN VAN VECTOR..;| 00000410: 0D 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.;==============| 00000420: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000430: 3D 3D 3D 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 20 |===.;.;. | 00000440: 20 2A 3D 32 38 36 37 32 0D 3B 0D 3B 20 45 45 4E | *=28672.;.; EEN| 00000450: 42 59 54 45 20 44 45 43 4F 4E 56 45 52 53 49 45 |BYTE DECONVERSIE| 00000460: 20 4D 45 54 20 54 45 4B 45 4E 2E 0D 3B 20 49 4E | MET TEKEN..; IN| 00000470: 20 3A 28 32 35 31 29 20 42 49 4E 41 49 52 3B 0D | :(251) BINAIR;.| 00000480: 3B 20 20 20 20 20 28 42 49 54 20 37 29 3D 30 3A |; (BIT 7)=0:| 00000490: 20 50 4F 53 2E 2C 2B 30 30 30 2E 2E 2E 2B 31 32 | POS.,+000...+12| 000004A0: 37 2E 0D 3B 20 20 20 20 20 28 42 49 54 20 37 29 |7..; (BIT 7)| 000004B0: 3D 31 3A 20 4E 45 47 2E 2C 2D 31 32 38 2E 2E 2E |=1: NEG.,-128...| 000004C0: 2D 30 30 31 2E 0D 3B 20 55 49 54 3A 28 32 35 34 |-001..; UIT:(254| 000004D0: 2C 32 35 33 29 20 41 44 52 45 53 20 56 41 4E 20 |,253) ADRES VAN | 000004E0: 54 45 4B 45 4E 2E 0D 3B 20 20 20 20 20 50 4F 53 |TEKEN..; POS| 000004F0: 2E 3A 2B 3C 43 49 4A 46 2E 3E 3C 43 49 4A 46 2E |.:+<CIJF.><CIJF.| 00000500: 3E 3C 43 49 4A 46 2E 3E 0D 3B 20 20 20 20 20 4E |><CIJF.>.; N| 00000510: 45 47 2E 3A 2D 3C 43 49 4A 46 2E 3E 3C 43 49 4A |EG.:-<CIJF.><CIJ| 00000520: 46 2E 3E 3C 43 49 4A 46 2E 3E 0D 3B 20 20 20 20 |F.><CIJF.>.; | 00000530: 20 4E 55 4C 20 3A 3C 53 50 41 54 49 45 3E 30 30 | NUL :<SPATIE>00| 00000540: 30 0D 3B 0D 42 54 44 43 4F 20 54 59 41 20 20 20 |0.;.BTDCO TYA | 00000550: 20 20 20 20 20 20 3B 52 45 44 20 28 59 29 2C 28 | ;RED (Y),(| 00000560: 58 29 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 |X).. PHA. | 00000570: 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 50 48 | TXA. PH| 00000580: 41 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 33 |A. LDY #003| 00000590: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 38 20 |. LDA #048 | 000005A0: 20 20 20 3B 41 53 43 49 49 20 4E 55 4C 4C 45 4E | ;ASCII NULLEN| 000005B0: 0D 42 54 44 43 31 20 53 54 41 20 28 32 35 33 29 |.BTDC1 STA (253)| 000005C0: 2C 59 20 3B 49 4E 20 4F 55 54 2D 42 59 54 45 53 |,Y ;IN OUT-BYTES| 000005D0: 2E 0D 20 20 20 20 20 20 44 45 59 20 20 20 20 20 |.. DEY | 000005E0: 20 20 20 20 3B 41 46 54 45 4C 20 33 2C 32 2C 31 | ;AFTEL 3,2,1| 000005F0: 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 42 54 44 |.. BNE BTD| 00000600: 43 31 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |C1. LDY #00| 00000610: 30 20 20 20 20 3B 5A 45 54 20 52 45 53 54 20 49 |0 ;ZET REST I| 00000620: 4E 0D 20 20 20 20 20 20 53 54 59 20 20 30 33 39 |N. STY 039| 00000630: 20 20 20 20 3B 28 30 33 39 2C 30 33 38 29 2E 0D | ;(039,038)..| 00000640: 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 0D 20 | LDA 251. | 00000650: 20 20 20 20 20 53 54 41 20 20 30 33 38 0D 20 20 | STA 038. | 00000660: 20 20 20 20 42 4E 45 20 20 42 54 44 43 32 20 20 | BNE BTDC2 | 00000670: 3B 49 4E 2D 42 59 54 45 20 4E 55 4C 3F 0D 20 20 |;IN-BYTE NUL?. | 00000680: 20 20 20 20 4C 44 41 20 23 30 33 32 20 20 20 20 | LDA #032 | 00000690: 3B 4A 41 3A 56 4F 4F 52 53 50 41 54 49 45 0D 20 |;JA:VOORSPATIE. | 000006A0: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 000006B0: 20 3B 49 4E 20 4F 55 54 42 59 54 45 20 30 2E 0D | ;IN OUTBYTE 0..| 000006C0: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 000006D0: 42 43 43 20 20 42 54 44 43 38 0D 42 54 44 43 32 |BCC BTDC8.BTDC2| 000006E0: 20 4C 44 58 20 23 30 34 33 20 20 20 20 3B 56 4F | LDX #043 ;VO| 000006F0: 4F 52 50 4C 55 53 2E 0D 20 20 20 20 20 20 52 4F |ORPLUS.. RO| 00000700: 4C 20 20 41 20 20 20 20 20 20 3B 42 49 54 20 37 |L A ;BIT 7| 00000710: 20 49 4E 20 43 41 52 52 59 2E 0D 20 20 20 20 20 | IN CARRY.. | 00000720: 20 42 43 43 20 20 42 54 44 43 33 20 20 3B 4E 55 | BCC BTDC3 ;NU| 00000730: 4C 3D 50 4F 53 49 54 49 45 46 2E 0D 20 20 20 20 |L=POSITIEF.. | 00000740: 20 20 4C 44 41 20 20 30 33 38 20 20 20 20 3B 45 | LDA 038 ;E| 00000750: 45 4E 3D 43 4F 4D 50 4C 2E 2B 31 2E 0D 20 20 20 |EN=COMPL.+1.. | 00000760: 20 20 20 45 4F 52 20 23 32 35 35 0D 20 20 20 20 | EOR #255. | 00000770: 20 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 | ADC #000. | 00000780: 20 53 54 41 20 20 30 33 38 0D 20 20 20 20 20 20 | STA 038. | 00000790: 49 4E 58 20 20 20 20 20 20 20 20 20 3B 56 4F 4F |INX ;VOO| 000007A0: 52 4D 49 4E 2E 0D 20 20 20 20 20 20 49 4E 58 0D |RMIN.. INX.| 000007B0: 42 54 44 43 33 20 54 58 41 0D 20 20 20 20 20 20 |BTDC3 TXA. | 000007C0: 53 54 41 20 28 32 35 33 29 2C 59 20 3B 49 4E 20 |STA (253),Y ;IN | 000007D0: 4F 55 54 42 59 54 45 20 30 2E 0D 20 20 20 20 20 |OUTBYTE 0.. | 000007E0: 20 4C 44 59 20 23 30 30 31 20 20 20 20 3B 4E 41 | LDY #001 ;NA| 000007F0: 20 54 45 4B 45 4E 2E 0D 20 20 20 20 20 20 43 4C | TEKEN.. CL| 00000800: 43 0D 20 20 20 20 20 20 42 43 43 20 20 42 54 44 |C. BCC BTD| 00000810: 43 35 0D 42 54 44 43 34 20 53 45 43 20 20 20 20 |C5.BTDC4 SEC | 00000820: 20 20 20 20 20 3B 54 52 45 4B 20 31 30 30 20 41 | ;TREK 100 A| 00000830: 46 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 |F. LDA 038| 00000840: 20 20 20 20 3B 56 41 4E 20 28 30 33 39 2C 30 33 | ;VAN (039,03| 00000850: 38 29 2E 0D 20 20 20 20 20 20 53 42 43 20 23 31 |8).. SBC #1| 00000860: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |00. STA 03| 00000870: 38 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 39 |8. LDA 039| 00000880: 0D 20 20 20 20 20 20 53 42 43 20 23 30 30 30 0D |. SBC #000.| 00000890: 20 20 20 20 20 20 53 54 41 20 20 30 33 39 0D 20 | STA 039. | 000008A0: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 000008B0: 20 3B 54 45 4C 20 31 20 4F 50 0D 20 20 20 20 20 | ;TEL 1 OP. | 000008C0: 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 42 49 | LDA (253),Y ;BI| 000008D0: 4A 20 28 41 55 2B 4D 29 2E 0D 20 20 20 20 20 20 |J (AU+M).. | 000008E0: 41 44 43 20 23 30 30 31 0D 20 20 20 20 20 20 53 |ADC #001. S| 000008F0: 54 41 20 28 32 35 33 29 2C 59 0D 42 54 44 43 35 |TA (253),Y.BTDC5| 00000900: 20 4C 44 41 20 20 30 33 39 20 20 20 20 3B 56 45 | LDA 039 ;VE| 00000910: 52 47 45 4C 49 4A 4B 0D 20 20 20 20 20 20 43 4D |RGELIJK. CM| 00000920: 50 20 23 30 30 30 20 20 20 20 3B 28 30 33 39 2C |P #000 ;(039,| 00000930: 30 33 38 29 0D 20 20 20 20 20 20 42 43 43 20 20 |038). BCC | 00000940: 42 54 44 43 36 20 20 3B 4D 45 54 20 31 30 30 2E |BTDC6 ;MET 100.| 00000950: 0D 20 20 20 20 20 20 42 4E 45 20 20 42 54 44 43 |. BNE BTDC| 00000960: 34 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 |4. LDA 038| 00000970: 0D 20 20 20 20 20 20 43 4D 50 20 23 31 30 30 0D |. CMP #100.| 00000980: 20 20 20 20 20 20 42 43 53 20 20 42 54 44 43 34 | BCS BTDC4| 00000990: 0D 42 54 44 43 36 20 4C 44 41 20 20 30 33 39 20 |.BTDC6 LDA 039 | 000009A0: 20 20 20 3B 52 45 53 54 20 4E 55 4C 3F 0D 20 20 | ;REST NUL?. | 000009B0: 20 20 20 20 42 4E 45 20 20 42 54 44 43 37 0D 20 | BNE BTDC7. | 000009C0: 20 20 20 20 20 4C 44 41 20 20 30 33 38 0D 20 20 | LDA 038. | 000009D0: 20 20 20 20 42 45 51 20 20 42 54 44 43 38 20 20 | BEQ BTDC8 | 000009E0: 3B 4A 41 3A 20 4E 41 41 52 20 48 2E 50 2E 0D 42 |;JA: NAAR H.P..B| 000009F0: 54 44 43 37 20 43 4C 43 20 20 20 20 20 20 20 20 |TDC7 CLC | 00000A00: 20 3B 4E 45 45 4E 3A 0D 20 20 20 20 20 20 52 4F | ;NEEN:. RO| 00000A10: 4C 20 20 30 33 38 20 20 20 20 3B 28 30 33 39 2C |L 038 ;(039,| 00000A20: 30 33 38 29 2A 31 30 2E 0D 20 20 20 20 20 20 52 |038)*10.. R| 00000A30: 4F 4C 20 20 30 33 39 0D 20 20 20 20 20 20 4C 44 |OL 039. LD| 00000A40: 41 20 20 30 33 39 0D 20 20 20 20 20 20 53 54 41 |A 039. STA| 00000A50: 20 20 30 34 31 0D 20 20 20 20 20 20 4C 44 41 20 | 041. LDA | 00000A60: 20 30 33 38 0D 20 20 20 20 20 20 43 4C 43 0D 20 | 038. CLC. | 00000A70: 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 | ROL A. | 00000A80: 20 20 52 4F 4C 20 20 30 34 31 0D 20 20 20 20 20 | ROL 041. | 00000A90: 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 4F | ROL A. RO| 00000AA0: 4C 20 20 30 34 31 0D 20 20 20 20 20 20 43 4C 43 |L 041. CLC| 00000AB0: 0D 20 20 20 20 20 20 41 44 43 20 20 30 33 38 0D |. ADC 038.| 00000AC0: 20 20 20 20 20 20 53 54 41 20 20 30 33 38 0D 20 | STA 038. | 00000AD0: 20 20 20 20 20 4C 44 41 20 20 30 34 31 0D 20 20 | LDA 041. | 00000AE0: 20 20 20 20 41 44 43 20 20 30 33 39 0D 20 20 20 | ADC 039. | 00000AF0: 20 20 20 53 54 41 20 20 30 33 39 0D 20 20 20 20 | STA 039. | 00000B00: 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 56 | INY ;V| 00000B10: 4F 4C 47 45 4E 44 20 43 49 4A 46 45 52 2E 0D 20 |OLGEND CIJFER.. | 00000B20: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 | CLC. B| 00000B30: 43 43 20 20 42 54 44 43 35 0D 42 54 44 43 38 20 |CC BTDC5.BTDC8 | 00000B40: 50 4C 41 20 20 20 20 20 20 20 20 20 3B 48 45 52 |PLA ;HER| 00000B50: 53 54 45 4C 0D 20 20 20 20 20 20 54 41 58 20 20 |STEL. TAX | 00000B60: 20 20 20 20 20 20 20 3B 28 58 29 20 45 4E 20 28 | ;(X) EN (| 00000B70: 59 29 2E 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 |Y).. PLA. | 00000B80: 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 52 54 | TAY. RT| 00000B90: 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 |S ;NAAR | 00000BA0: 48 4F 4F 46 44 50 52 2E 0D 20 20 20 20 20 20 4E |HOOFDPR.. N| 00000BB0: 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |OP. NOP. | 00000BC0: 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 20 20 20 20 | NOP.;.;. | 00000BD0: 20 20 20 20 2A 3D 32 38 38 30 38 0D 3B 0D 3B 20 | *=28808.;.; | 00000BE0: 45 45 4E 42 59 54 45 20 43 4F 4E 56 45 52 53 49 |EENBYTE CONVERSI| 00000BF0: 45 20 4D 45 54 20 54 45 4B 45 4E 2E 0D 3B 20 49 |E MET TEKEN..; I| 00000C00: 4E 20 3A 28 32 35 34 2C 32 35 33 29 20 41 44 52 |N :(254,253) ADR| 00000C10: 45 53 20 56 41 4E 20 54 45 4B 45 4E 2E 0D 3B 20 |ES VAN TEKEN..; | 00000C20: 20 20 20 20 50 4F 53 2E 3A 2B 3C 43 49 4A 46 2E | POS.:+<CIJF.| 00000C30: 3E 3C 43 49 4A 46 2E 3E 3C 43 49 4A 46 2E 3E 0D |><CIJF.><CIJF.>.| 00000C40: 3B 20 20 20 20 20 4E 45 47 2E 3A 2D 3C 43 49 4A |; NEG.:-<CIJ| 00000C50: 46 2E 3E 3C 43 49 4A 46 2E 3E 3C 43 49 4A 46 2E |F.><CIJF.><CIJF.| 00000C60: 3E 0D 3B 20 20 20 20 20 53 50 41 54 49 45 20 41 |>.; SPATIE A| 00000C70: 4C 53 20 56 4F 4F 52 54 45 4B 45 4E 20 4B 41 4E |LS VOORTEKEN KAN| 00000C80: 2E 0D 3B 20 55 49 54 3A 28 32 35 31 29 20 42 49 |..; UIT:(251) BI| 00000C90: 4E 41 49 52 3B 0D 3B 20 20 20 20 20 28 42 49 54 |NAIR;.; (BIT| 00000CA0: 20 37 29 3D 30 3A 20 50 4F 53 2E 2C 2B 30 30 30 | 7)=0: POS.,+000| 00000CB0: 2E 2E 2E 2B 31 32 37 2E 0D 3B 20 20 20 20 20 28 |...+127..; (| 00000CC0: 42 49 54 20 37 29 3D 31 3A 20 4E 45 47 2E 2C 2D |BIT 7)=1: NEG.,-| 00000CD0: 31 32 38 2E 2E 2E 2D 30 30 31 2E 0D 3B 0D 44 43 |128...-001..;.DC| 00000CE0: 4F 42 54 20 54 59 41 20 20 20 20 20 20 20 20 20 |OBT TYA | 00000CF0: 3B 52 45 44 20 28 59 29 2E 0D 20 20 20 20 20 20 |;RED (Y).. | 00000D00: 50 48 41 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |PHA. LDY #0| 00000D10: 30 30 20 20 20 20 3B 42 45 47 49 4E 2E 0D 20 20 |00 ;BEGIN.. | 00000D20: 20 20 20 20 53 54 59 20 20 32 35 31 20 20 20 20 | STY 251 | 00000D30: 3B 4F 55 54 42 59 54 45 20 4E 55 4C 2E 0D 44 43 |;OUTBYTE NUL..DC| 00000D40: 4F 42 31 20 49 4E 59 20 20 20 20 20 20 20 20 20 |OB1 INY | 00000D50: 3B 45 45 52 53 54 56 4F 4C 47 45 4E 44 0D 20 20 |;EERSTVOLGEND. | 00000D60: 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 | LDA (253),Y | 00000D70: 3B 4B 41 52 41 4B 54 45 52 2E 0D 20 20 20 20 20 |;KARAKTER.. | 00000D80: 20 53 45 43 20 20 20 20 20 20 20 20 20 3B 49 53 | SEC ;IS| 00000D90: 20 48 45 54 20 45 45 4E 0D 20 20 20 20 20 20 53 | HET EEN. S| 00000DA0: 42 43 20 23 30 34 38 20 20 20 20 3B 43 49 4A 46 |BC #048 ;CIJF| 00000DB0: 45 52 3F 0D 20 20 20 20 20 20 42 4D 49 20 20 44 |ER?. BMI D| 00000DC0: 43 4F 42 33 20 20 3B 4E 45 45 4E 3A 4F 56 45 52 |COB3 ;NEEN:OVER| 00000DD0: 53 4C 41 41 4E 2E 0D 20 20 20 20 20 20 43 4D 50 |SLAAN.. CMP| 00000DE0: 20 23 30 31 30 20 20 20 20 3B 4A 41 3A 5A 45 54 | #010 ;JA:ZET| 00000DF0: 20 49 4E 20 30 30 32 2E 0D 20 20 20 20 20 20 42 | IN 002.. B| 00000E00: 43 53 20 20 44 43 4F 42 33 0D 20 20 20 20 20 20 |CS DCOB3. | 00000E10: 53 54 41 20 20 30 30 32 0D 20 20 20 20 20 20 43 |STA 002. C| 00000E20: 4C 43 20 20 20 20 20 20 20 20 20 3B 55 49 54 20 |LC ;UIT | 00000E30: 4D 41 41 4C 20 54 57 45 45 2E 0D 20 20 20 20 20 |MAAL TWEE.. | 00000E40: 20 4C 44 41 20 20 32 35 31 20 20 20 20 3B 4C 45 | LDA 251 ;LE| 00000E50: 45 47 3A 47 45 45 4E 20 56 45 52 2D 0D 20 20 20 |EG:GEEN VER-. | 00000E60: 20 20 20 42 45 51 20 20 44 43 4F 42 32 20 20 3B | BEQ DCOB2 ;| 00000E70: 4D 45 4E 49 47 56 2E 4D 45 54 20 31 30 2E 0D 20 |MENIGV.MET 10.. | 00000E80: 20 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 | ROL A | 00000E90: 20 3B 56 4F 4C 3A 55 49 54 20 4D 41 41 4C 20 38 | ;VOL:UIT MAAL 8| 00000EA0: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 |.. STA 251| 00000EB0: 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 |. ROL A. | 00000EC0: 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 | ROL A. | 00000ED0: 20 41 44 43 20 20 32 35 31 20 20 20 20 3B 54 45 | ADC 251 ;TE| 00000EE0: 4C 20 4D 41 41 4C 20 32 20 42 49 4A 2E 0D 44 43 |L MAAL 2 BIJ..DC| 00000EF0: 4F 42 32 20 41 44 43 20 20 30 30 32 20 20 20 20 |OB2 ADC 002 | 00000F00: 3B 54 45 4C 20 43 49 4A 46 45 52 20 42 49 4A 2E |;TEL CIJFER BIJ.| 00000F10: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D |. STA 251.| 00000F20: 44 43 4F 42 33 20 43 50 59 20 23 30 30 32 0D 20 |DCOB3 CPY #002. | 00000F30: 20 20 20 20 20 42 43 43 20 20 44 43 4F 42 31 20 | BCC DCOB1 | 00000F40: 20 3B 28 59 29 3D 31 20 4F 46 20 32 3F 0D 20 20 | ;(Y)=1 OF 2?. | 00000F50: 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 | LDY #000 | 00000F60: 3B 4E 45 45 4E 3A 54 45 53 54 20 2B 2F 2D 2E 0D |;NEEN:TEST +/-..| 00000F70: 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C | LDA (253),| 00000F80: 59 0D 20 20 20 20 20 20 43 4D 50 20 23 30 34 35 |Y. CMP #045| 00000F90: 0D 20 20 20 20 20 20 42 4E 45 20 20 44 43 4F 42 |. BNE DCOB| 00000FA0: 34 20 20 3B 4D 49 4E 3A 32 2D 43 4F 4D 50 4C 45 |4 ;MIN:2-COMPLE| 00000FB0: 4D 2E 0D 20 20 20 20 20 20 53 45 43 0D 20 20 20 |M.. SEC. | 00000FC0: 20 20 20 4C 44 41 20 20 32 35 31 0D 20 20 20 20 | LDA 251. | 00000FD0: 20 20 45 4F 52 20 23 32 35 35 0D 20 20 20 20 20 | EOR #255. | 00000FE0: 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 | ADC #000. | 00000FF0: 53 54 41 20 20 32 35 31 0D 44 43 4F 42 34 20 50 |STA 251.DCOB4 P| 00001000: 4C 41 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 |LA. TAY | 00001010: 20 20 20 20 20 3B 48 45 52 53 54 45 4C 20 28 59 | ;HERSTEL (Y| 00001020: 29 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 |).. RTS | 00001030: 20 20 20 20 20 3B 54 45 52 55 47 20 4E 41 41 52 | ;TERUG NAAR| 00001040: 20 48 2E 50 2E 0D 20 20 20 20 20 20 4E 4F 50 0D | H.P.. NOP.| 00001050: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00001060: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 3B 0D |NOP. NOP.;.| 00001070: 3B 0D 20 20 20 20 20 20 20 20 20 2A 3D 32 38 38 |;. *=288| 00001080: 37 32 0D 3B 0D 3B 20 45 4C 49 4D 49 4E 45 45 52 |72.;.; ELIMINEER| 00001090: 20 4F 56 45 52 4C 4F 4F 50 20 55 49 54 20 56 45 | OVERLOOP UIT VE| 000010A0: 43 54 4F 52 2E 0D 3B 20 28 32 35 34 2C 32 35 33 |CTOR..; (254,253| 000010B0: 29 20 41 44 52 45 53 20 56 41 4E 20 4C 45 4E 47 |) ADRES VAN LENG| 000010C0: 54 45 20 56 41 4E 0D 3B 20 20 20 20 20 20 20 20 |TE VAN.; | 000010D0: 20 20 20 54 45 20 42 45 57 45 52 4B 45 4E 20 56 | TE BEWERKEN V| 000010E0: 45 43 54 4F 52 2E 0D 3B 0D 4F 56 4C 4F 50 20 54 |ECTOR..;.OVLOP T| 000010F0: 59 41 20 20 20 20 20 20 20 20 20 3B 52 45 44 20 |YA ;RED | 00001100: 28 59 29 2C 28 58 29 2E 0D 20 20 20 20 20 20 50 |(Y),(X).. P| 00001110: 48 41 0D 20 20 20 20 20 20 54 58 41 0D 20 20 20 |HA. TXA. | 00001120: 20 20 20 50 48 41 0D 20 20 20 20 20 20 4C 44 59 | PHA. LDY| 00001130: 20 23 30 30 30 0D 20 20 20 20 20 20 4C 44 41 20 | #000. LDA | 00001140: 28 32 35 33 29 2C 59 20 3B 56 45 43 54 4F 52 4C |(253),Y ;VECTORL| 00001150: 45 4E 47 54 45 2E 0D 20 20 20 20 20 20 42 45 51 |ENGTE.. BEQ| 00001160: 20 20 4F 56 4C 4F 34 20 20 3B 4E 55 4C 3A 4B 4C | OVLO4 ;NUL:KL| 00001170: 41 41 52 2E 0D 20 20 20 20 20 20 54 41 59 20 20 |AAR.. TAY | 00001180: 20 20 20 20 20 20 20 3B 41 4E 44 45 52 53 20 45 | ;ANDERS E| 00001190: 45 4E 20 42 49 4A 0D 20 20 20 20 20 20 49 4E 59 |EN BIJ. INY| 000011A0: 20 20 20 20 20 20 20 20 20 3B 49 4E 20 49 4E 44 | ;IN IND| 000011B0: 45 58 3A 20 4C 2A 2E 0D 20 20 20 20 20 20 4C 44 |EX: L*.. LD| 000011C0: 41 20 23 30 30 30 20 20 20 20 3B 5A 45 54 20 45 |A #000 ;ZET E| 000011D0: 58 54 52 41 0D 20 20 20 20 20 20 53 54 41 20 28 |XTRA. STA (| 000011E0: 32 35 33 29 2C 59 20 3B 43 4F 4D 50 2E 4F 50 20 |253),Y ;COMP.OP | 000011F0: 4E 55 4C 2E 0D 20 20 20 20 20 20 54 59 41 20 20 |NUL.. TYA | 00001200: 20 20 20 20 20 20 20 3B 5A 45 54 20 54 45 56 45 | ;ZET TEVE| 00001210: 4E 53 20 49 4E 0D 20 20 20 20 20 20 4C 44 59 20 |NS IN. LDY | 00001220: 23 30 30 30 20 20 20 20 3B 44 45 20 4C 45 4E 47 |#000 ;DE LENG| 00001230: 54 45 20 56 41 4E 0D 20 20 20 20 20 20 53 54 41 |TE VAN. STA| 00001240: 20 28 32 35 33 29 2C 59 20 3B 44 45 20 56 45 43 | (253),Y ;DE VEC| 00001250: 54 4F 52 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |TOR.. STA | 00001260: 30 30 32 20 20 20 20 3B 4F 4F 4B 20 56 4F 4F 52 |002 ;OOK VOOR| 00001270: 20 4C 55 53 2E 0D 20 20 20 20 20 20 49 4E 59 20 | LUS.. INY | 00001280: 20 20 20 20 20 20 20 20 3B 43 4F 4D 50 4F 4E 45 | ;COMPONE| 00001290: 4E 54 20 31 2E 0D 4F 56 4C 4F 31 20 4C 44 41 20 |NT 1..OVLO1 LDA | 000012A0: 28 32 35 33 29 2C 59 20 3B 31 2C 32 2C 2E 2E 2C |(253),Y ;1,2,..,| 000012B0: 4C 2A 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4F |L*.. JSR O| 000012C0: 56 41 58 41 20 20 3B 53 50 4C 49 54 53 20 28 41 |VAXA ;SPLITS (A| 000012D0: 29 2E 0D 20 20 20 20 20 20 43 50 58 20 23 30 30 |).. CPX #00| 000012E0: 30 20 20 20 20 3B 4F 56 45 52 4C 4F 4F 50 3F 0D |0 ;OVERLOOP?.| 000012F0: 20 20 20 20 20 20 42 45 51 20 20 4F 56 4C 4F 32 | BEQ OVLO2| 00001300: 20 20 3B 4A 41 20 3A 4F 4E 56 45 52 41 4E 44 2E | ;JA :ONVERAND.| 00001310: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 00001320: 2C 59 20 3B 4E 45 45 3A 45 45 4E 48 45 44 45 4E |,Y ;NEE:EENHEDEN| 00001330: 2E 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 |.. INY | 00001340: 20 20 20 20 3B 20 20 20 20 54 45 4C 20 48 4F 4E | ; TEL HON| 00001350: 2D 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |-. CLC | 00001360: 20 20 20 20 3B 20 20 20 20 44 45 52 44 54 4C 4E | ; DERDTLN| 00001370: 2E 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 20 |.. TXA | 00001380: 20 20 20 20 3B 20 20 20 20 42 49 4A 20 56 4F 4C | ; BIJ VOL| 00001390: 47 2E 0D 20 20 20 20 20 20 41 44 43 20 28 32 35 |G.. ADC (25| 000013A0: 33 29 2C 59 20 3B 20 20 20 20 44 4F 4F 52 20 4E |3),Y ; DOOR N| 000013B0: 41 41 52 0D 20 20 20 20 20 20 53 54 41 20 28 32 |AAR. STA (2| 000013C0: 35 33 29 2C 59 20 3B 20 20 20 20 4F 56 4C 4F 33 |53),Y ; OVLO3| 000013D0: 2E 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 |.. CLC. | 000013E0: 20 20 42 43 43 20 20 4F 56 4C 4F 33 0D 4F 56 4C | BCC OVLO3.OVL| 000013F0: 4F 32 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B |O2 INY ;| 00001400: 49 4E 44 45 58 20 31 20 48 4F 47 45 52 2E 0D 4F |INDEX 1 HOGER..O| 00001410: 56 4C 4F 33 20 43 50 59 20 20 30 30 32 20 20 20 |VLO3 CPY 002 | 00001420: 20 3B 47 45 4C 49 4A 4B 20 41 41 4E 20 4C 3F 0D | ;GELIJK AAN L?.| 00001430: 20 20 20 20 20 20 42 43 43 20 20 4F 56 4C 4F 31 | BCC OVLO1| 00001440: 20 20 3B 4E 45 45 3A 4E 41 41 52 20 4F 56 4C 4F | ;NEE:NAAR OVLO| 00001450: 31 2E 0D 4F 56 4C 4F 34 20 50 4C 41 20 20 20 20 |1..OVLO4 PLA | 00001460: 20 20 20 20 20 3B 4A 41 20 3A 48 45 52 53 54 45 | ;JA :HERSTE| 00001470: 4C 20 28 58 29 0D 20 20 20 20 20 20 54 41 58 20 |L (X). TAX | 00001480: 20 20 20 20 20 20 20 20 3B 20 20 20 20 45 4E 20 | ; EN | 00001490: 28 59 29 2E 0D 20 20 20 20 20 20 50 4C 41 20 20 |(Y).. PLA | 000014A0: 20 20 20 20 20 20 20 3B 20 20 20 20 4E 41 41 52 | ; NAAR| 000014B0: 20 48 2E 50 2E 0D 20 20 20 20 20 20 54 41 59 0D | H.P.. TAY.| 000014C0: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 000014D0: 4E 4F 50 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 20 |NOP.;.;. | 000014E0: 20 2A 3D 32 38 39 32 38 0D 3B 0D 3B 20 54 45 4B | *=28928.;.; TEK| 000014F0: 45 4E 53 20 47 45 4C 49 4A 4B 4D 41 4B 45 4E 20 |ENS GELIJKMAKEN | 00001500: 49 4E 20 56 45 43 54 4F 52 2E 0D 3B 20 28 32 35 |IN VECTOR..; (25| 00001510: 34 2C 32 35 33 29 20 41 44 52 45 53 20 56 41 4E |4,253) ADRES VAN| 00001520: 20 4C 45 4E 47 54 45 20 56 41 4E 0D 3B 20 20 20 | LENGTE VAN.; | 00001530: 20 20 20 20 20 20 20 20 54 45 20 42 45 57 45 52 | TE BEWER| 00001540: 4B 45 4E 20 56 45 43 54 4F 52 2E 0D 3B 0D 54 45 |KEN VECTOR..;.TE| 00001550: 4B 45 4E 20 54 59 41 20 20 20 20 20 20 20 20 20 |KEN TYA | 00001560: 3B 52 45 44 20 28 59 29 2C 28 58 29 2E 0D 20 20 |;RED (Y),(X).. | 00001570: 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 54 58 | PHA. TX| 00001580: 41 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 |A. PHA. | 00001590: 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 56 | LDY #000 ;V| 000015A0: 45 43 54 4F 52 4C 45 4E 47 54 45 0D 20 20 20 20 |ECTORLENGTE. | 000015B0: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 4F | LDA (253),Y ;O| 000015C0: 50 56 4F 45 52 45 4E 3A 20 4C 2E 0D 20 20 20 20 |PVOEREN: L.. | 000015D0: 20 20 42 45 51 20 20 54 45 4B 45 39 20 20 3B 4E | BEQ TEKE9 ;N| 000015E0: 55 4C 3A 4B 4C 41 41 52 2E 0D 20 20 20 20 20 20 |UL:KLAAR.. | 000015F0: 54 41 59 20 20 20 20 20 20 20 20 20 3B 41 4E 44 |TAY ;AND| 00001600: 45 52 53 20 4C 20 2B 20 31 0D 20 20 20 20 20 20 |ERS L + 1. | 00001610: 49 4E 59 20 20 20 20 20 20 20 20 20 3B 49 4E 20 |INY ;IN | 00001620: 49 4E 44 45 58 3A 20 4C 2A 2E 0D 20 20 20 20 20 |INDEX: L*.. | 00001630: 20 4C 44 41 20 23 30 30 30 20 20 20 20 3B 5A 45 | LDA #000 ;ZE| 00001640: 54 20 45 58 54 52 41 0D 20 20 20 20 20 20 53 54 |T EXTRA. ST| 00001650: 41 20 28 32 35 33 29 2C 59 20 3B 43 4F 4D 50 2E |A (253),Y ;COMP.| 00001660: 4F 50 20 4E 55 4C 2E 0D 20 20 20 20 20 20 54 59 |OP NUL.. TY| 00001670: 41 20 20 20 20 20 20 20 20 20 3B 5A 45 54 20 4C |A ;ZET L| 00001680: 2A 20 54 45 56 45 4E 53 0D 20 20 20 20 20 20 4C |* TEVENS. L| 00001690: 44 59 20 23 30 30 30 20 20 20 20 3B 49 4E 20 44 |DY #000 ;IN D| 000016A0: 45 20 56 45 43 54 4F 52 2D 0D 20 20 20 20 20 20 |E VECTOR-. | 000016B0: 53 54 41 20 28 32 35 33 29 2C 59 20 3B 4C 45 4E |STA (253),Y ;LEN| 000016C0: 47 54 45 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |GTE.. STA | 000016D0: 30 30 32 20 20 20 20 3B 4F 4F 4B 20 56 4F 4F 52 |002 ;OOK VOOR| 000016E0: 20 4C 55 53 2E 0D 20 20 20 20 20 20 54 41 59 20 | LUS.. TAY | 000016F0: 20 20 20 20 20 20 20 20 3B 43 4F 4D 50 4F 4E 45 | ;COMPONE| 00001700: 4E 54 20 4C 2A 2E 0D 54 45 4B 45 31 20 4C 44 41 |NT L*..TEKE1 LDA| 00001710: 20 28 32 35 33 29 2C 59 20 3B 4C 2A 2C 4C 2A 2D | (253),Y ;L*,L*-| 00001720: 31 2C 2E 2E 2C 31 2E 0D 20 20 20 20 20 20 42 4E |1,..,1.. BN| 00001730: 45 20 20 54 45 4B 45 32 20 20 3B 5A 4F 45 4B 20 |E TEKE2 ;ZOEK | 00001740: 4D 2E 53 2E 4F 50 2E 0D 20 20 20 20 20 20 44 45 |M.S.OP.. DE| 00001750: 59 20 20 20 20 20 20 20 20 20 3B 54 45 4C 20 41 |Y ;TEL A| 00001760: 46 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 54 45 |F.. BNE TE| 00001770: 4B 45 31 20 20 3B 4C 45 45 47 3A 55 49 54 2E 0D |KE1 ;LEEG:UIT..| 00001780: 20 20 20 20 20 20 42 45 51 20 20 54 45 4B 45 39 | BEQ TEKE9| 00001790: 20 20 3B 47 45 56 4F 4E 44 45 4E 3F 0D 54 45 4B | ;GEVONDEN?.TEK| 000017A0: 45 32 20 54 41 58 20 20 20 20 20 20 20 20 20 3B |E2 TAX ;| 000017B0: 4A 41 20 3A 4D 45 45 53 54 53 49 47 2E 0D 20 20 |JA :MEESTSIG.. | 000017C0: 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 20 | LDY #001 | 000017D0: 3B 49 4E 20 28 58 29 20 5A 45 54 54 45 4E 0D 54 |;IN (X) ZETTEN.T| 000017E0: 45 4B 45 33 20 54 58 41 20 20 20 20 20 20 20 20 |EKE3 TXA | 000017F0: 20 3B 56 4F 4F 52 20 54 45 4B 45 4E 2E 0D 20 20 | ;VOOR TEKEN.. | 00001800: 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 20 | ROL A | 00001810: 3B 54 45 4B 45 4E 42 49 54 3D 3E 28 43 29 2E 0D |;TEKENBIT=>(C)..| 00001820: 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C | LDA (253),| 00001830: 59 20 3B 43 4F 4D 50 4F 4E 45 4E 54 2E 0D 20 20 |Y ;COMPONENT.. | 00001840: 20 20 20 20 42 45 51 20 20 54 45 4B 45 34 20 20 | BEQ TEKE4 | 00001850: 3B 4E 55 4C 20 4E 49 45 54 2E 0D 20 20 20 20 20 |;NUL NIET.. | 00001860: 20 52 4F 4C 20 20 41 20 20 20 20 20 20 3B 5A 45 | ROL A ;ZE| 00001870: 54 20 44 45 20 42 45 49 44 45 0D 20 20 20 20 20 |T DE BEIDE. | 00001880: 20 52 4F 4C 20 20 41 20 20 20 20 20 20 3B 54 45 | ROL A ;TE| 00001890: 4B 45 4E 42 49 54 53 20 4E 41 0D 20 20 20 20 20 |KENBITS NA. | 000018A0: 20 41 4E 44 20 23 30 30 33 20 20 20 20 3B 45 4C | AND #003 ;EL| 000018B0: 4B 41 41 52 20 49 4E 20 41 2E 0D 20 20 20 20 20 |KAAR IN A.. | 000018C0: 20 43 4D 50 20 23 30 30 31 20 20 20 20 3B 30 31 | CMP #001 ;01| 000018D0: 20 3A 4D 41 41 4B 0D 20 20 20 20 20 20 42 45 51 | :MAAK. BEQ| 000018E0: 20 20 54 45 4B 45 35 20 20 3B 50 4F 53 49 54 49 | TEKE5 ;POSITI| 000018F0: 45 46 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |EF.. CMP #0| 00001900: 30 32 20 20 20 20 3B 31 30 20 3A 4D 41 41 4B 0D |02 ;10 :MAAK.| 00001910: 20 20 20 20 20 20 42 45 51 20 20 54 45 4B 45 36 | BEQ TEKE6| 00001920: 20 20 3B 4E 45 47 41 54 49 45 46 2E 0D 54 45 4B | ;NEGATIEF..TEK| 00001930: 45 34 20 49 4E 59 0D 20 20 20 20 20 20 43 4C 43 |E4 INY. CLC| 00001940: 0D 20 20 20 20 20 20 42 43 43 20 20 54 45 4B 45 |. BCC TEKE| 00001950: 38 0D 54 45 4B 45 35 20 43 4C 43 20 20 20 20 20 |8.TEKE5 CLC | 00001960: 20 20 20 20 3B 4D 41 41 4B 20 50 4F 53 49 54 49 | ;MAAK POSITI| 00001970: 45 46 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 |EF.. LDA (2| 00001980: 35 33 29 2C 59 0D 20 20 20 20 20 20 41 44 43 20 |53),Y. ADC | 00001990: 23 31 30 30 0D 20 20 20 20 20 20 53 54 41 20 28 |#100. STA (| 000019A0: 32 35 33 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 |253),Y. INY| 000019B0: 0D 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 |. SEC. | 000019C0: 20 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 20 | LDA (253),Y. | 000019D0: 20 20 20 53 42 43 20 23 30 30 31 0D 20 20 20 20 | SBC #001. | 000019E0: 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 | STA (253),Y. | 000019F0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 | CLC. BC| 00001A00: 43 20 20 54 45 4B 45 38 0D 54 45 4B 45 36 20 53 |C TEKE8.TEKE6 S| 00001A10: 45 43 20 20 20 20 20 20 20 20 20 3B 4D 41 41 4B |EC ;MAAK| 00001A20: 20 4E 45 47 41 54 49 45 46 2E 0D 20 20 20 20 20 | NEGATIEF.. | 00001A30: 20 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 20 | LDA (253),Y. | 00001A40: 20 20 20 53 42 43 20 23 31 30 30 0D 20 20 20 20 | SBC #100. | 00001A50: 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 | STA (253),Y. | 00001A60: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 43 4C | INY. CL| 00001A70: 43 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |C. LDA (253| 00001A80: 29 2C 59 0D 20 20 20 20 20 20 41 44 43 20 23 30 |),Y. ADC #0| 00001A90: 30 31 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |01. STA (25| 00001AA0: 33 29 2C 59 0D 54 45 4B 45 38 20 43 50 59 20 20 |3),Y.TEKE8 CPY | 00001AB0: 30 30 32 20 20 20 20 3B 45 49 4E 44 3F 0D 20 20 |002 ;EIND?. | 00001AC0: 20 20 20 20 42 43 43 20 20 54 45 4B 45 33 20 20 | BCC TEKE3 | 00001AD0: 3B 4E 45 45 3A 4C 55 53 20 54 45 52 55 47 2E 0D |;NEE:LUS TERUG..| 00001AE0: 54 45 4B 45 39 20 50 4C 41 20 20 20 20 20 20 20 |TEKE9 PLA | 00001AF0: 20 20 3B 4A 41 20 3A 48 45 52 53 54 45 4C 20 28 | ;JA :HERSTEL (| 00001B00: 58 29 0D 20 20 20 20 20 20 54 41 58 20 20 20 20 |X). TAX | 00001B10: 20 20 20 20 20 3B 20 20 20 20 45 4E 20 28 59 29 | ; EN (Y)| 00001B20: 2E 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 |.. PLA | 00001B30: 20 20 20 20 3B 20 20 20 20 4E 41 41 52 20 48 2E | ; NAAR H.| 00001B40: 50 2E 0D 20 20 20 20 20 20 54 41 59 0D 20 20 20 |P.. TAY. | 00001B50: 20 20 20 52 54 53 0D 3B 0D 3B 0D 20 20 20 20 20 | RTS.;.;. | 00001B60: 20 20 20 20 2A 3D 32 39 30 32 38 0D 3B 0D 3B 20 | *=29028.;.; | 00001B70: 28 41 29 20 2D 3E 20 5B 58 2C 41 5D 20 49 4E 20 |(A) -> [X,A] IN | 00001B80: 48 4F 4E 44 45 52 44 54 41 4C 4C 49 47 2E 0D 3B |HONDERDTALLIG..;| 00001B90: 20 49 4E 20 44 41 54 20 53 54 45 4C 53 45 4C 20 | IN DAT STELSEL | 00001BA0: 57 41 41 52 44 45 4E 20 2D 35 30 2E 2E 2B 34 39 |WAARDEN -50..+49| 00001BB0: 2E 0D 3B 0D 4F 56 41 58 41 20 4C 44 58 20 23 30 |..;.OVAXA LDX #0| 00001BC0: 30 30 0D 20 20 20 20 20 20 43 4D 50 20 23 30 35 |00. CMP #05| 00001BD0: 30 0D 20 20 20 20 20 20 42 43 43 20 20 4F 56 41 |0. BCC OVA| 00001BE0: 58 32 0D 20 20 20 20 20 20 43 4D 50 20 23 31 32 |X2. CMP #12| 00001BF0: 38 0D 20 20 20 20 20 20 42 43 53 20 20 4F 56 41 |8. BCS OVA| 00001C00: 58 31 0D 20 20 20 20 20 20 41 44 43 20 23 31 35 |X1. ADC #15| 00001C10: 36 0D 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 |6. INX. | 00001C20: 20 20 52 54 53 0D 4F 56 41 58 31 20 43 4D 50 20 | RTS.OVAX1 CMP | 00001C30: 23 32 30 36 0D 20 20 20 20 20 20 42 43 53 20 20 |#206. BCS | 00001C40: 4F 56 41 58 32 0D 20 20 20 20 20 20 41 44 43 20 |OVAX2. ADC | 00001C50: 23 31 30 30 0D 20 20 20 20 20 20 44 45 58 0D 4F |#100. DEX.O| 00001C60: 56 41 58 32 20 52 54 53 0D 20 20 20 20 20 20 4E |VAX2 RTS. N| 00001C70: 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 3B 0D 3B |OP. NOP.;.;| 00001C80: 0D 20 20 20 20 20 20 20 20 20 2A 3D 32 39 30 35 |. *=2905| 00001C90: 32 0D 3B 0D 3B 20 50 4F 45 54 53 20 56 45 43 54 |2.;.; POETS VECT| 00001CA0: 4F 52 2E 0D 3B 20 4C 45 4E 47 54 45 20 49 4E 20 |OR..; LENGTE IN | 00001CB0: 41 44 52 45 53 20 28 32 35 34 2C 32 35 33 29 2E |ADRES (254,253).| 00001CC0: 0D 3B 0D 50 4F 45 54 53 20 54 59 41 0D 20 20 20 |.;.POETS TYA. | 00001CD0: 20 20 20 50 48 41 0D 20 20 20 20 20 20 4C 44 59 | PHA. LDY| 00001CE0: 20 23 30 30 30 0D 20 20 20 20 20 20 4C 44 41 20 | #000. LDA | 00001CF0: 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 42 45 |(253),Y. BE| 00001D00: 51 20 20 50 4F 45 54 32 0D 20 20 20 20 20 20 54 |Q POET2. T| 00001D10: 41 59 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |AY. LDA #00| 00001D20: 30 0D 50 4F 45 54 31 20 53 54 41 20 28 32 35 33 |0.POET1 STA (253| 00001D30: 29 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 |),Y. DEY. | 00001D40: 20 20 20 20 42 4E 45 20 20 50 4F 45 54 31 0D 50 | BNE POET1.P| 00001D50: 4F 45 54 32 20 50 4C 41 0D 20 20 20 20 20 20 54 |OET2 PLA. T| 00001D60: 41 59 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 |AY. RTS. | 00001D70: 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 20 20 20 20 | NOP.;.;. | 00001D80: 20 20 20 20 2A 3D 32 39 30 37 32 0D 3B 0D 3B 20 | *=29072.;.; | 00001D90: 54 52 41 4E 53 50 4F 52 54 20 56 45 43 54 4F 52 |TRANSPORT VECTOR| 00001DA0: 2E 0D 3B 20 4C 45 4E 47 54 45 20 49 4E 20 20 48 |..; LENGTE IN H| 00001DB0: 41 41 4C 41 44 52 45 53 20 28 32 35 32 2C 32 35 |AALADRES (252,25| 00001DC0: 31 29 2E 0D 3B 20 4C 45 4E 47 54 45 20 49 4E 20 |1)..; LENGTE IN | 00001DD0: 42 52 45 4E 47 41 44 52 45 53 20 28 32 35 34 2C |BRENGADRES (254,| 00001DE0: 32 35 33 29 2E 0D 3B 20 42 52 45 4E 47 56 45 43 |253)..; BRENGVEC| 00001DF0: 54 4F 52 20 57 4F 52 44 54 20 47 45 56 4F 52 4D |TOR WORDT GEVORM| 00001E00: 44 2E 0D 3B 0D 54 52 41 53 50 20 54 59 41 0D 20 |D..;.TRASP TYA. | 00001E10: 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 4C | PHA. L| 00001E20: 44 59 20 23 30 30 30 0D 20 20 20 20 20 20 4C 44 |DY #000. LD| 00001E30: 41 20 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 |A (251),Y. | 00001E40: 53 54 41 20 20 30 30 32 0D 20 20 20 20 20 20 53 |STA 002. S| 00001E50: 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 |TA (253),Y. | 00001E60: 20 42 45 51 20 20 54 52 41 53 32 0D 54 52 41 53 | BEQ TRAS2.TRAS| 00001E70: 31 20 49 4E 59 0D 20 20 20 20 20 20 4C 44 41 20 |1 INY. LDA | 00001E80: 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 53 54 |(251),Y. ST| 00001E90: 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 |A (253),Y. | 00001EA0: 43 50 59 20 20 30 30 32 0D 20 20 20 20 20 20 42 |CPY 002. B| 00001EB0: 43 43 20 20 54 52 41 53 31 0D 54 52 41 53 32 20 |CC TRAS1.TRAS2 | 00001EC0: 50 4C 41 0D 20 20 20 20 20 20 54 41 59 0D 20 20 |PLA. TAY. | 00001ED0: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 00001EE0: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00001EF0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00001F00: 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 2A 3D 32 |;.;. *=2| 00001F10: 39 31 30 30 0D 3B 0D 3B 20 4B 52 49 4D 50 20 56 |9100.;.; KRIMP V| 00001F20: 45 43 54 4F 52 20 4D 45 54 20 57 45 47 48 41 4C |ECTOR MET WEGHAL| 00001F30: 45 4E 20 56 41 4E 0D 3B 20 44 45 20 4D 45 45 53 |EN VAN.; DE MEES| 00001F40: 54 53 49 47 4E 49 46 49 43 41 4E 54 45 20 4E 55 |TSIGNIFICANTE NU| 00001F50: 4C 4C 45 4E 2E 0D 3B 20 4C 45 4E 47 54 45 20 49 |LLEN..; LENGTE I| 00001F60: 4E 20 41 44 52 45 53 20 28 32 35 34 2C 32 35 33 |N ADRES (254,253| 00001F70: 29 2E 0D 3B 0D 4B 52 49 4D 50 20 54 59 41 0D 20 |)..;.KRIMP TYA. | 00001F80: 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 4C | PHA. L| 00001F90: 44 59 20 23 30 30 30 0D 20 20 20 20 20 20 4C 44 |DY #000. LD| 00001FA0: 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 |A (253),Y. | 00001FB0: 42 45 51 20 20 4B 52 49 4D 33 0D 20 20 20 20 20 |BEQ KRIM3. | 00001FC0: 20 54 41 59 0D 4B 52 49 4D 31 20 4C 44 41 20 28 | TAY.KRIM1 LDA (| 00001FD0: 32 35 33 29 2C 59 0D 20 20 20 20 20 20 42 4E 45 |253),Y. BNE| 00001FE0: 20 20 4B 52 49 4D 32 0D 20 20 20 20 20 20 44 45 | KRIM2. DE| 00001FF0: 59 0D 20 20 20 20 20 20 42 4E 45 20 20 4B 52 49 |Y. BNE KRI| 00002000: 4D 31 0D 4B 52 49 4D 32 20 54 59 41 0D 20 20 20 |M1.KRIM2 TYA. | 00002010: 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 | LDY #000. | 00002020: 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 4B 52 | STA (253),Y.KR| 00002030: 49 4D 33 20 50 4C 41 0D 20 20 20 20 20 20 54 41 |IM3 PLA. TA| 00002040: 59 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 3B 0D |Y. RTS.;.;.| 00002050: 20 20 20 20 20 20 20 20 20 2A 3D 32 39 31 32 34 | *=29124| 00002060: 0D 3B 0D 3B 20 45 58 54 52 41 20 28 58 29 20 41 |.;.; EXTRA (X) A| 00002070: 43 48 54 45 52 20 44 45 20 56 45 43 54 4F 52 2E |CHTER DE VECTOR.| 00002080: 0D 3B 20 4C 45 4E 47 54 45 20 49 4E 20 41 44 52 |.; LENGTE IN ADR| 00002090: 45 53 20 28 32 35 34 2C 32 35 33 29 2E 0D 3B 0D |ES (254,253)..;.| 000020A0: 58 54 52 41 58 20 54 59 41 0D 20 20 20 20 20 20 |XTRAX TYA. | 000020B0: 50 48 41 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |PHA. LDY #0| 000020C0: 30 30 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 |00. LDA (25| 000020D0: 33 29 2C 59 0D 20 20 20 20 20 20 54 41 59 0D 20 |3),Y. TAY. | 000020E0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 54 | INY. T| 000020F0: 58 41 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |XA. STA (25| 00002100: 33 29 2C 59 0D 20 20 20 20 20 20 54 59 41 0D 20 |3),Y. TYA. | 00002110: 20 20 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 | LDY #000. | 00002120: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 00002130: 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 | PLA. | 00002140: 54 41 59 0D 20 20 20 20 20 20 52 54 53 0D 20 20 |TAY. RTS. | 00002150: 20 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 20 20 20 | NOP.;.;. | 00002160: 20 20 20 20 20 2A 3D 32 39 31 34 34 0D 3B 0D 3B | *=29144.;.;| 00002170: 20 54 45 4B 45 4E 4F 4D 4B 45 45 52 20 56 41 4E | TEKENOMKEER VAN| 00002180: 20 45 45 4E 20 56 45 43 54 4F 52 2E 0D 3B 20 4C | EEN VECTOR..; L| 00002190: 45 4E 47 54 45 20 49 4E 20 41 44 52 45 53 20 28 |ENGTE IN ADRES (| 000021A0: 32 35 34 2C 32 35 33 29 2E 0D 3B 0D 4D 49 4E 45 |254,253)..;.MINE| 000021B0: 52 20 54 59 41 0D 20 20 20 20 20 20 50 48 41 0D |R TYA. PHA.| 000021C0: 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 0D 20 | LDY #000. | 000021D0: 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 | LDA (253),Y| 000021E0: 0D 20 20 20 20 20 20 42 45 51 20 20 4D 49 4E 45 |. BEQ MINE| 000021F0: 33 0D 20 20 20 20 20 20 54 41 59 0D 4D 49 4E 45 |3. TAY.MINE| 00002200: 31 20 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 |1 LDA (253),Y. | 00002210: 20 20 20 20 42 45 51 20 20 4D 49 4E 45 32 0D 20 | BEQ MINE2. | 00002220: 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 45 | SEC. E| 00002230: 4F 52 20 23 32 35 35 0D 20 20 20 20 20 20 41 44 |OR #255. AD| 00002240: 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 |C #000. STA| 00002250: 20 28 32 35 33 29 2C 59 0D 4D 49 4E 45 32 20 44 | (253),Y.MINE2 D| 00002260: 45 59 0D 20 20 20 20 20 20 42 4E 45 20 20 4D 49 |EY. BNE MI| 00002270: 4E 45 31 0D 4D 49 4E 45 33 20 50 4C 41 0D 20 20 |NE1.MINE3 PLA. | 00002280: 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 52 54 | TAY. RT| 00002290: 53 0D 3B 0D 3B 0D 3B 20 32 39 31 37 30 2E 2E 32 |S.;.;.; 29170..2| 000022A0: 39 31 38 33 20 56 52 49 4A 2E 0D 3B 20 52 55 49 |9183 VRIJ..; RUI| 000022B0: 4D 54 45 20 56 4F 4F 52 20 31 34 20 42 59 54 45 |MTE VOOR 14 BYTE| 000022C0: 53 2E 0D 3B 0D 3B 0D 20 20 20 20 20 20 2E 45 4E |S..;.;. .EN| 000022D0: 44 0D |D. |
;.; PROGRAMMA : HONDERDTALLIG..; BRON
CODE : HONT01.ASM ..; OBJECTCODE
: HONT01.OBJ ..; DISK : DEMO-
4 ..; TAAL : ASSEMBLER C64
..; DATUM : 6 JAN.1992..; PROGRAM
MEUR : J.H.VAN RIJN..;.; OP DEZE SET ST
AAN SUBPROGRAMMA'S.; VOOR BEWERKINGEN IN
HET HONDERD-.; TALLIGE STELSEL..;.;====
=============================.;.; DECIM
HEXA SYMBL FUNCTIE.;.; 28672 7000 BTDCO
DECONVERTEERT.; BYTE M.
TEKEN..; 28808 7088 DCOBT CONVERTEERT.;
BYTE M.TEKEN..; 28872 7
0C8 OVLOP ELIMIN.OVERLOOP.;
UIT VECTOR..; 28928 7100 TEKEN TEKE
NS GELIJKM..; IN VECTOR
..; 29028 7164 OVAXA (A)->[X,A].;
OVERLOPERS WEG..; 29052 717C
POETS ZET VECTOR.; OP N
UL..; 29072 7190 TRASP TRANSPORTEER.;
VECTOR->VECTOR..; 29100 7
1AC KRIMP KRIMP DE VECTOR.;
MET MS.NUL WEG..; 29124 71C4 XTRAX
EXTRA COMPONENT.; (X) A
CHTERIN..; 29144 71D8 MINER OMKEREN VAN
TE-.; KEN VAN VECTOR..;
.;=================================.;.;.
*=28672.;.; EENBYTE DECONVERSIE
MET TEKEN..; IN :(251) BINAIR;.; (B
IT 7)=0: POS.,+000...+127..; (BIT 7)
=1: NEG.,-128...-001..; UIT:(254,253) AD
RES VAN TEKEN..; POS.:+<CIJF.><CIJF.
><CIJF.>.; NEG.:-<CIJF.><CIJF.><CIJF
.>.; NUL :<SPATIE>000.;.BTDCO TYA
;RED (Y),(X).. PHA. TXA.
PHA. LDY #003. LDA #048
;ASCII NULLEN.BTDC1 STA (253),Y ;IN O
UT-BYTES.. DEY ;AFTEL 3,2,1
.. BNE BTDC1. LDY #000 ;ZE
T REST IN. STY 039 ;(039,038)..
LDA 251. STA 038. BNE
BTDC2 ;IN-BYTE NUL?. LDA #032
;JA:VOORSPATIE. STA (253),Y ;IN OUT
BYTE 0.. CLC. BCC BTDC8.BTDC2
LDX #043 ;VOORPLUS.. ROL A
;BIT 7 IN CARRY.. BCC BTDC3 ;NU
L=POSITIEF.. LDA 038 ;EEN=COMPL
.+1.. EOR #255. ADC #000.
STA 038. INX ;VOORMIN..
INX.BTDC3 TXA. STA (253),Y ;IN
OUTBYTE 0.. LDY #001 ;NA TEKEN..
CLC. BCC BTDC5.BTDC4 SEC
;TREK 100 AF. LDA 038 ;VAN
(039,038).. SBC #100. STA 03
8. LDA 039. SBC #000. ST
A 039. CLC ;TEL 1 OP.
LDA (253),Y ;BIJ (AU+M).. ADC #001
. STA (253),Y.BTDC5 LDA 039 ;VE
RGELIJK. CMP #000 ;(039,038).
BCC BTDC6 ;MET 100.. BNE BTDC
4. LDA 038. CMP #100. BC
S 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. RO
L 041. CLC. ADC 038. ST
A 038. LDA 041. ADC 039.
STA 039. INY ;VOLGEND C
IJFER.. CLC. BCC BTDC5.BTDC8
PLA ;HERSTEL. TAX ;
(X) EN (Y).. PLA. TAY. RT
S ;NAAR HOOFDPR.. NOP.
NOP. NOP.;.;. *=28808.;.;
EENBYTE CONVERSIE MET TEKEN..; IN :(254,
253) ADRES VAN TEKEN..; POS.:+<CIJF.
><CIJF.><CIJF.>.; NEG.:-<CIJF.><CIJF
.><CIJF.>.; SPATIE ALS VOORTEKEN KAN
..; UIT:(251) BINAIR;.; (BIT 7)=0: P
OS.,+000...+127..; (BIT 7)=1: NEG.,-
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?. BMI D
COB3 ;NEEN:OVERSLAAN.. CMP #010
;JA:ZET IN 002.. BCS DCOB3.
STA 002. CLC ;UIT MAAL TWE
E.. LDA 251 ;LEEG:GEEN VER-.
BEQ DCOB2 ;MENIGV.MET 10.. ROL
A ;VOL:UIT MAAL 8.. STA 251
. ROL A. ROL A. ADC 25
1 ;TEL MAAL 2 BIJ..DCOB2 ADC 002
;TEL CIJFER BIJ.. STA 251.DCOB3 CP
Y #002. BCC DCOB1 ;(Y)=1 OF 2?.
LDY #000 ;NEEN:TEST +/-.. LD
A (253),Y. CMP #045. BNE DCOB
4 ;MIN:2-COMPLEM.. SEC. LDA
251. EOR #255. ADC #000.
STA 251.DCOB4 PLA. TAY ;HE
RSTEL (Y).. RTS ;TERUG NAAR
H.P.. NOP. NOP. NOP.
NOP.;.;. *=28872.;.; ELIMINEER
OVERLOOP UIT VECTOR..; (254,253) ADRES
VAN LENGTE VAN.; TE BEWERKEN V
ECTOR..;.OVLOP TYA ;RED (Y),(X).
. PHA. TXA. PHA. LDY
#000. LDA (253),Y ;VECTORLENGTE..
BEQ OVLO4 ;NUL:KLAAR.. TAY
;ANDERS EEN BIJ. INY
;IN INDEX: L*.. LDA #000 ;ZET E
XTRA. STA (253),Y ;COMP.OP NUL..
TYA ;ZET TEVENS IN. LDY
#000 ;DE LENGTE VAN. STA (253),Y
;DE VECTOR.. STA 002 ;OOK VOOR
LUS.. INY ;COMPONENT 1..OV
LO1 LDA (253),Y ;1,2,..,L*.. JSR O
VAXA ;SPLITS (A).. CPX #000 ;OV
ERLOOP?. BEQ OVLO2 ;JA :ONVERAND.
. STA (253),Y ;NEE:EENHEDEN..
INY ; TEL HON-. CLC
; DERDTLN.. TXA ;
BIJ VOLG.. ADC (253),Y ; DOOR N
AAR. STA (253),Y ; OVLO3..
CLC. BCC OVLO3.OVLO2 INY ;
INDEX 1 HOGER..OVLO3 CPY 002 ;GELIJK
AAN L?. BCC OVLO1 ;NEE:NAAR OVLO
1..OVLO4 PLA ;JA :HERSTEL (X).
TAX ; EN (Y).. PLA
; NAAR H.P.. TAY. RT
S. NOP.;.;. *=28928.;.; TEK
ENS GELIJKMAKEN IN VECTOR..; (254,253) A
DRES VAN LENGTE VAN.; TE BEWER
KEN VECTOR..;.TEKEN TYA ;RED (Y)
,(X).. PHA. TXA. PHA.
LDY #000 ;VECTORLENGTE. LDA (2
53),Y ;OPVOEREN: L.. BEQ TEKE9 ;N
UL:KLAAR.. TAY ;ANDERS L +
1. INY ;IN INDEX: L*..
LDA #000 ;ZET EXTRA. STA (253),
Y ;COMP.OP NUL.. TYA ;ZET L
* TEVENS. LDY #000 ;IN DE VECTOR
-. STA (253),Y ;LENGTE.. STA
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 TE
KE1 ;LEEG:UIT.. BEQ TEKE9 ;GEVON
DEN?.TEKE2 TAX ;JA :MEESTSIG..
LDY #001 ;IN (X) ZETTEN.TEKE3 TXA
;VOOR TEKEN.. ROL A
;TEKENBIT=>(C).. LDA (253),Y ;COMPO
NENT.. BEQ TEKE4 ;NUL NIET..
ROL A ;ZET DE BEIDE. ROL A
;TEKENBITS NA. AND #003 ;EL
KAAR IN A.. CMP #001 ;01 :MAAK.
BEQ TEKE5 ;POSITIEF.. CMP #0
02 ;10 :MAAK. BEQ TEKE6 ;NEGAT
IEF..TEKE4 INY. CLC. BCC TEKE
8.TEKE5 CLC ;MAAK POSITIEF..
LDA (253),Y. ADC #100. STA (
253),Y. INY. SEC. LDA (25
3),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. ADC #0
01. STA (253),Y.TEKE8 CPY 002 ;
EIND?. BCC TEKE3 ;NEE:LUS TERUG..
TEKE9 PLA ;JA :HERSTEL (X).
TAX ; EN (Y).. PLA
; NAAR H.P.. TAY. RTS.;
.;. *=29028.;.; (A) -> [X,A] IN
HONDERDTALLIG..; IN DAT STELSEL WAARDEN
-50..+49..;.OVAXA LDX #000. CMP #05
0. BCC OVAX2. CMP #128.
BCS OVAX1. ADC #156. INX.
RTS.OVAX1 CMP #206. BCS OVAX2.
ADC #100. DEX.OVAX2 RTS. N
OP. NOP.;.;. *=29052.;.; PO
ETS VECTOR..; LENGTE IN ADRES (254,253).
.;.POETS TYA. PHA. LDY #000.
LDA (253),Y. BEQ POET2. T
AY. LDA #000.POET1 STA (253),Y.
DEY. BNE POET1.POET2 PLA. T
AY. RTS. NOP.;.;. *=29
072.;.; TRANSPORT VECTOR..; LENGTE IN H
AALADRES (252,251)..; LENGTE IN BRENGADR
ES (254,253)..; BRENGVECTOR WORDT GEVORM
D..;.TRASP TYA. PHA. LDY #000.
LDA (251),Y. STA 002. S
TA (253),Y. BEQ TRAS2.TRAS1 INY.
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 MEES
TSIGNIFICANTE NULLEN..; LENGTE IN ADRES
(254,253)..;.KRIMP TYA. PHA. L
DY #000. LDA (253),Y. BEQ KRI
M3. TAY.KRIM1 LDA (253),Y. BNE
KRIM2. DEY. BNE KRIM1.KRIM2
TYA. LDY #000. STA (253),Y.KR
IM3 PLA. TAY. RTS.;.;.
*=29124.;.; EXTRA (X) ACHTER DE VECTOR.
.; LENGTE IN ADRES (254,253)..;.XTRAX TY
A. PHA. LDY #000. LDA (25
3),Y. TAY. INY. TXA.
STA (253),Y. TYA. LDY #000.
STA (253),Y. PLA. TAY.
RTS. NOP.;.;. *=29144.;.;
TEKENOMKEER VAN EEN VECTOR..; LENGTE IN
ADRES (254,253)..;.MINER TYA. PHA.
LDY #000. LDA (253),Y. B
EQ MINE3. TAY.MINE1 LDA (253),Y.
BEQ MINE2. SEC. EOR #255.
ADC #000. STA (253),Y.MINE2 D
EY. BNE MINE1.MINE3 PLA. TAY.
RTS.;.;.; 29170..29183 VRIJ..; RUI
MTE VOOR 14 BYTES..;.;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL