HONT02.ASM
FILE INFORMATION
FILENAME(S): HONT02.ASM
FILE TYPE(S): SEQ
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 21:26:13
APPEARS ON: 1 disk(s)
FILE HASH
6102244d6ba400c84380bdb72a2b4ec11b1313ac0b1507880fc55868fd617d70
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 4 | HONT02.ASM | SEQ | DuncanTwain | 12 | 2 | 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 32 2E 41 53 4D 20 20 20 |: HONT02.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 32 2E 4F 42 4A 20 20 20 |: HONT02.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 38 20 46 45 42 2E 31 39 39 32 2E 0D 3B |: 8 FEB.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: 39 31 38 34 20 37 32 30 30 20 4F 50 54 45 4C 20 |9184 7200 OPTEL | 00000190: 4F 50 54 45 4C 4C 45 4E 20 56 41 4E 0D 3B 20 20 |OPTELLEN VAN.; | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 54 57 45 45 20 56 45 43 54 4F 52 45 4E 2E 0D 3B |TWEE VECTOREN..;| 000001C0: 20 32 39 32 36 30 20 37 32 34 43 20 41 46 54 52 | 29260 724C AFTR| 000001D0: 45 20 41 46 54 52 45 4B 4B 45 4E 20 56 41 4E 0D |E AFTREKKEN VAN.| 000001E0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 000001F0: 20 20 20 54 57 45 45 20 56 45 43 54 4F 52 45 4E | TWEE VECTOREN| 00000200: 2E 0D 3B 20 32 39 33 33 36 20 37 32 39 38 20 44 |..; 29336 7298 D| 00000210: 55 42 42 45 20 56 45 52 44 55 42 42 45 4C 45 4E |UBBE VERDUBBELEN| 00000220: 20 56 41 4E 0D 3B 20 20 20 20 20 20 20 20 20 20 | VAN.; | 00000230: 20 20 20 20 20 20 20 20 45 45 4E 20 56 45 43 54 | EEN VECT| 00000240: 4F 52 2E 0D 3B 20 32 39 33 37 32 20 37 32 42 43 |OR..; 29372 72BC| 00000250: 20 48 4F 56 4F 44 20 56 45 43 54 4F 52 20 4D 41 | HOVOD VECTOR MA| 00000260: 41 4C 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 |AL.; | 00000270: 20 20 20 20 20 20 48 4F 4E 44 45 52 44 2E 0D 3B | HONDERD..;| 00000280: 20 32 39 34 30 38 20 37 32 45 30 20 4C 41 42 45 | 29408 72E0 LABE| 00000290: 4C 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |L ..............| 000002A0: 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; | 000002B0: 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ...........| 000002C0: 2E 2E 2E 2E 0D 3B 0D 3B 3D 3D 3D 3D 3D 3D 3D 3D |.....;.;========| 000002D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000002E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 3B 0D 4F 56 41 58 |=========.;.OVAX| 000002F0: 41 20 20 20 20 20 3D 32 39 30 32 38 20 20 20 3B |A =29028 ;| 00000300: 28 41 29 2D 3E 5B 58 2C 41 5D 2E 0D 54 52 41 53 |(A)->[X,A]..TRAS| 00000310: 50 20 20 20 20 20 3D 32 39 30 37 32 20 20 20 3B |P =29072 ;| 00000320: 54 52 41 4E 53 50 4F 52 54 2E 0D 58 54 52 41 58 |TRANSPORT..XTRAX| 00000330: 20 20 20 20 20 3D 32 39 31 32 34 20 20 20 3B 45 | =29124 ;E| 00000340: 58 54 52 41 20 28 58 29 20 4E 41 2E 0D 3B 0D 3B |XTRA (X) NA..;.;| 00000350: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000360: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000370: 3D 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 2A |=.;.;. *| 00000380: 3D 32 39 31 38 34 0D 3B 0D 3B 4F 50 54 45 4C 4C |=29184.;.;OPTELL| 00000390: 45 4E 20 56 41 4E 20 54 57 45 45 20 56 45 43 54 |EN VAN TWEE VECT| 000003A0: 4F 52 45 4E 2E 0D 3B 28 31 36 38 2C 31 36 37 29 |OREN..;(168,167)| 000003B0: 20 41 44 52 45 53 20 4C 45 4E 47 54 45 20 4F 50 | ADRES LENGTE OP| 000003C0: 54 45 4C 4C 45 52 2E 0D 3B 28 32 35 32 2C 32 35 |TELLER..;(252,25| 000003D0: 31 29 20 41 44 52 45 53 20 4C 45 4E 47 54 45 20 |1) ADRES LENGTE | 000003E0: 4F 50 54 45 4C 54 41 4C 2E 0D 3B 28 32 35 34 2C |OPTELTAL..;(254,| 000003F0: 32 35 33 29 20 41 44 52 45 53 20 4C 45 4E 47 54 |253) ADRES LENGT| 00000400: 45 20 53 4F 4D 2E 0D 3B 20 42 45 47 49 4E 3A 20 |E SOM..; BEGIN: | 00000410: 28 58 29 20 45 58 54 52 41 20 49 4E 43 52 45 4D |(X) EXTRA INCREM| 00000420: 45 4E 54 2E 0D 3B 20 45 49 4E 44 20 3A 20 28 58 |ENT..; EIND : (X| 00000430: 29 20 45 58 54 52 41 20 4F 56 45 52 4C 4F 4F 50 |) EXTRA OVERLOOP| 00000440: 2E 0D 3B 0D 4F 50 54 45 4C 20 54 59 41 20 20 20 |..;.OPTEL TYA | 00000450: 20 20 20 20 20 20 3B 52 45 44 20 28 59 29 2E 0D | ;RED (Y)..| 00000460: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 00000470: 4C 44 59 20 23 30 30 30 20 20 20 20 3B 56 45 43 |LDY #000 ;VEC| 00000480: 54 4F 52 4C 45 4E 47 54 45 53 3A 0D 20 20 20 20 |TORLENGTES:. | 00000490: 20 20 4C 44 41 20 28 31 36 37 29 2C 59 20 3B 4C | LDA (167),Y ;L| 000004A0: 45 4E 47 54 45 20 56 41 4E 20 41 20 49 53 0D 20 |ENGTE VAN A IS. | 000004B0: 20 20 20 20 20 53 54 41 20 20 30 33 38 20 20 20 | STA 038 | 000004C0: 20 3B 4C 41 20 28 4F 50 54 45 4C 4C 45 52 29 2E | ;LA (OPTELLER).| 000004D0: 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 31 29 |. LDA (251)| 000004E0: 2C 59 20 3B 4C 45 4E 47 54 45 20 56 41 4E 20 42 |,Y ;LENGTE VAN B| 000004F0: 20 49 53 0D 20 20 20 20 20 20 53 54 41 20 20 30 | IS. STA 0| 00000500: 33 39 20 20 20 20 3B 4C 42 20 28 4F 50 54 45 4C |39 ;LB (OPTEL| 00000510: 54 41 4C 29 2E 0D 20 20 20 20 20 20 43 4D 50 20 |TAL).. CMP | 00000520: 20 30 33 38 20 20 20 20 3B 47 52 4F 4F 54 53 54 | 038 ;GROOTST| 00000530: 45 20 49 53 0D 20 20 20 20 20 20 42 43 53 20 20 |E IS. BCS | 00000540: 4F 50 54 45 31 20 20 3B 4C 45 4E 47 54 45 20 56 |OPTE1 ;LENGTE V| 00000550: 41 4E 20 43 3A 0D 20 20 20 20 20 20 4C 44 41 20 |AN C:. LDA | 00000560: 20 30 33 38 20 20 20 20 3B 4C 43 20 28 53 4F 4D | 038 ;LC (SOM| 00000570: 29 2E 0D 4F 50 54 45 31 20 53 54 41 20 20 31 30 |)..OPTE1 STA 10| 00000580: 32 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |2. STA (253| 00000590: 29 2C 59 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |),Y. CMP #0| 000005A0: 30 30 0D 20 20 20 20 20 20 42 45 51 20 20 4F 50 |00. BEQ OP| 000005B0: 54 45 37 0D 20 20 20 20 20 20 49 4E 43 20 20 30 |TE7. INC 0| 000005C0: 33 38 20 20 20 20 3B 4C 41 2A 3D 4C 41 2B 31 2E |38 ;LA*=LA+1.| 000005D0: 0D 20 20 20 20 20 20 49 4E 43 20 20 30 33 39 20 |. INC 039 | 000005E0: 20 20 20 3B 4C 42 2A 3D 4C 42 2B 31 2E 0D 4F 50 | ;LB*=LB+1..OP| 000005F0: 54 45 32 20 49 4E 59 20 20 20 20 20 20 20 20 20 |TE2 INY | 00000600: 3B 56 4F 4C 47 45 4E 44 45 20 43 4F 4D 50 2E 0D |;VOLGENDE COMP..| 00000610: 20 20 20 20 20 20 43 50 59 20 20 30 33 38 20 20 | CPY 038 | 00000620: 20 20 3B 43 48 45 43 4B 20 4F 50 20 4C 41 2A 2E | ;CHECK OP LA*.| 00000630: 0D 20 20 20 20 20 20 42 43 43 20 20 4F 50 54 45 |. BCC OPTE| 00000640: 33 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |3. LDA #000| 00000650: 0D 20 20 20 20 20 20 42 45 51 20 20 4F 50 54 45 |. BEQ OPTE| 00000660: 34 0D 4F 50 54 45 33 20 4C 44 41 20 28 31 36 37 |4.OPTE3 LDA (167| 00000670: 29 2C 59 20 3B 43 4F 4D 50 4F 4E 45 4E 54 20 56 |),Y ;COMPONENT V| 00000680: 41 4E 0D 4F 50 54 45 34 20 53 54 41 20 20 31 30 |AN.OPTE4 STA 10| 00000690: 31 20 20 20 20 3B 4F 50 54 45 4C 4C 45 52 20 41 |1 ;OPTELLER A| 000006A0: 2E 0D 20 20 20 20 20 20 43 50 59 20 20 30 33 39 |.. CPY 039| 000006B0: 20 20 20 20 3B 43 48 45 43 4B 20 4F 50 20 4C 42 | ;CHECK OP LB| 000006C0: 2A 2E 0D 20 20 20 20 20 20 42 43 43 20 20 4F 50 |*.. BCC OP| 000006D0: 54 45 35 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |TE5. LDA #0| 000006E0: 30 30 0D 20 20 20 20 20 20 42 45 51 20 20 4F 50 |00. BEQ OP| 000006F0: 54 45 36 0D 4F 50 54 45 35 20 4C 44 41 20 28 32 |TE6.OPTE5 LDA (2| 00000700: 35 31 29 2C 59 20 3B 43 4F 4D 50 4F 4E 45 4E 54 |51),Y ;COMPONENT| 00000710: 20 56 41 4E 0D 4F 50 54 45 36 20 53 54 41 20 20 | VAN.OPTE6 STA | 00000720: 31 30 33 20 20 20 20 3B 4F 50 54 45 4C 54 41 4C |103 ;OPTELTAL| 00000730: 20 42 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 20 | B.. CLC | 00000740: 20 20 20 20 20 20 3B 4F 56 45 52 44 52 41 43 48 | ;OVERDRACH| 00000750: 54 20 3D 20 30 2E 0D 20 20 20 20 20 20 54 58 41 |T = 0.. TXA| 00000760: 20 20 20 20 20 20 20 20 20 3B 4F 56 45 52 4C 4F | ;OVERLO| 00000770: 4F 50 20 28 58 29 2E 0D 20 20 20 20 20 20 41 44 |OP (X).. AD| 00000780: 43 20 20 31 30 31 20 20 20 20 3B 4F 50 54 45 4C |C 101 ;OPTEL| 00000790: 4C 45 52 20 41 2E 0D 20 20 20 20 20 20 43 4C 43 |LER A.. CLC| 000007A0: 20 20 20 20 20 20 20 20 20 3B 4F 56 45 52 44 52 | ;OVERDR| 000007B0: 41 43 48 54 20 3D 20 30 2E 0D 20 20 20 20 20 20 |ACHT = 0.. | 000007C0: 41 44 43 20 20 31 30 33 20 20 20 20 3B 4F 50 54 |ADC 103 ;OPT| 000007D0: 45 4C 54 41 4C 20 42 2E 0D 20 20 20 20 20 20 4A |ELTAL B.. J| 000007E0: 53 52 20 20 4F 56 41 58 41 20 20 3B 53 50 4C 49 |SR OVAXA ;SPLI| 000007F0: 54 53 2D 3E 5B 58 2C 41 5D 2E 0D 20 20 20 20 20 |TS->[X,A].. | 00000800: 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B 45 45 | STA (253),Y ;EE| 00000810: 4E 48 45 44 45 4E 20 53 4F 4D 2E 0D 20 20 20 20 |NHEDEN SOM.. | 00000820: 20 20 43 50 59 20 20 31 30 32 20 20 20 20 3B 43 | CPY 102 ;C| 00000830: 4F 4D 50 4F 4E 45 4E 54 4E 55 4D 4D 45 52 0D 20 |OMPONENTNUMMER. | 00000840: 20 20 20 20 20 42 43 43 20 20 4F 50 54 45 32 20 | BCC OPTE2 | 00000850: 20 3B 54 45 53 54 45 4E 20 4F 50 20 45 49 4E 44 | ;TESTEN OP EIND| 00000860: 2E 0D 4F 50 54 45 37 20 50 4C 41 20 20 20 20 20 |..OPTE7 PLA | 00000870: 20 20 20 20 3B 45 49 4E 44 3A 48 45 52 53 54 45 | ;EIND:HERSTE| 00000880: 4C 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 |L. TAY | 00000890: 20 20 20 20 3B 28 59 29 20 45 4E 20 4E 41 41 52 | ;(Y) EN NAAR| 000008A0: 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 |. RTS | 000008B0: 20 20 20 3B 48 4F 4F 46 44 50 52 4F 47 52 41 4D | ;HOOFDPROGRAM| 000008C0: 4D 41 2E 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |MA.. NOP. | 000008D0: 20 20 20 20 4E 4F 50 0D 3B 0D 3B 0D 20 20 20 20 | NOP.;.;. | 000008E0: 20 20 20 20 20 2A 3D 32 39 32 36 30 0D 3B 0D 3B | *=29260.;.;| 000008F0: 41 46 54 52 45 4B 4B 45 4E 20 56 41 4E 20 54 57 |AFTREKKEN VAN TW| 00000900: 45 45 20 56 45 43 54 4F 52 45 4E 2E 0D 3B 28 31 |EE VECTOREN..;(1| 00000910: 36 38 2C 31 36 37 29 20 41 44 52 45 53 20 4C 45 |68,167) ADRES LE| 00000920: 4E 47 54 45 20 41 46 54 52 45 4B 4B 45 52 2E 0D |NGTE AFTREKKER..| 00000930: 3B 28 32 35 32 2C 32 35 31 29 20 41 44 52 45 53 |;(252,251) ADRES| 00000940: 20 4C 45 4E 47 54 45 20 41 46 54 52 45 4B 54 41 | LENGTE AFTREKTA| 00000950: 4C 2E 0D 3B 28 32 35 34 2C 32 35 33 29 20 41 44 |L..;(254,253) AD| 00000960: 52 45 53 20 4C 45 4E 47 54 45 20 56 45 52 53 43 |RES LENGTE VERSC| 00000970: 48 49 4C 2E 0D 3B 20 42 45 47 49 4E 3A 20 28 58 |HIL..; BEGIN: (X| 00000980: 29 20 45 58 54 52 41 20 49 4E 43 52 45 4D 45 4E |) EXTRA INCREMEN| 00000990: 54 2E 0D 3B 20 45 49 4E 44 20 3A 20 28 58 29 20 |T..; EIND : (X) | 000009A0: 45 58 54 52 41 20 4F 56 45 52 4C 4F 4F 50 2E 0D |EXTRA OVERLOOP..| 000009B0: 3B 0D 41 46 54 52 45 20 54 59 41 20 20 20 20 20 |;.AFTRE TYA | 000009C0: 20 20 20 20 3B 52 45 44 20 28 59 29 2E 0D 20 20 | ;RED (Y).. | 000009D0: 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 4C 44 | PHA. LD| 000009E0: 59 20 23 30 30 30 20 20 20 20 3B 56 45 43 54 4F |Y #000 ;VECTO| 000009F0: 52 4C 45 4E 47 54 45 53 3A 0D 20 20 20 20 20 20 |RLENGTES:. | 00000A00: 4C 44 41 20 28 31 36 37 29 2C 59 20 3B 4C 45 4E |LDA (167),Y ;LEN| 00000A10: 47 54 45 20 56 41 4E 20 41 20 49 53 0D 20 20 20 |GTE VAN A IS. | 00000A20: 20 20 20 53 54 41 20 20 30 33 38 20 20 20 20 3B | STA 038 ;| 00000A30: 4C 41 20 28 41 46 54 52 45 4B 4B 45 52 29 2E 0D |LA (AFTREKKER)..| 00000A40: 20 20 20 20 20 20 4C 44 41 20 28 32 35 31 29 2C | LDA (251),| 00000A50: 59 20 3B 4C 45 4E 47 54 45 20 56 41 4E 20 42 20 |Y ;LENGTE VAN B | 00000A60: 49 53 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |IS. STA 03| 00000A70: 39 20 20 20 20 3B 4C 42 20 28 41 46 54 52 45 4B |9 ;LB (AFTREK| 00000A80: 54 41 4C 29 2E 0D 20 20 20 20 20 20 43 4D 50 20 |TAL).. CMP | 00000A90: 20 30 33 38 20 20 20 20 3B 47 52 4F 4F 54 53 54 | 038 ;GROOTST| 00000AA0: 45 20 49 53 0D 20 20 20 20 20 20 42 43 53 20 20 |E IS. BCS | 00000AB0: 41 46 54 52 31 20 20 3B 4C 45 4E 47 54 45 20 56 |AFTR1 ;LENGTE V| 00000AC0: 41 4E 20 43 3A 0D 20 20 20 20 20 20 4C 44 41 20 |AN C:. LDA | 00000AD0: 20 30 33 38 20 20 20 20 3B 4C 43 20 28 56 45 52 | 038 ;LC (VER| 00000AE0: 53 43 48 49 4C 29 2E 0D 41 46 54 52 31 20 53 54 |SCHIL)..AFTR1 ST| 00000AF0: 41 20 20 31 30 32 0D 20 20 20 20 20 20 53 54 41 |A 102. STA| 00000B00: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 43 | (253),Y. C| 00000B10: 4D 50 20 23 30 30 30 0D 20 20 20 20 20 20 42 45 |MP #000. BE| 00000B20: 51 20 20 41 46 54 52 37 0D 20 20 20 20 20 20 49 |Q AFTR7. I| 00000B30: 4E 43 20 20 30 33 38 20 20 20 20 3B 4C 41 2A 3D |NC 038 ;LA*=| 00000B40: 4C 41 2B 31 2E 0D 20 20 20 20 20 20 49 4E 43 20 |LA+1.. INC | 00000B50: 20 30 33 39 20 20 20 20 3B 4C 42 2A 3D 4C 42 2B | 039 ;LB*=LB+| 00000B60: 31 2E 0D 41 46 54 52 32 20 49 4E 59 20 20 20 20 |1..AFTR2 INY | 00000B70: 20 20 20 20 20 3B 56 4F 4C 47 45 4E 44 45 20 43 | ;VOLGENDE C| 00000B80: 4F 4D 50 2E 0D 20 20 20 20 20 20 43 50 59 20 20 |OMP.. CPY | 00000B90: 30 33 38 20 20 20 20 3B 43 48 45 43 4B 20 4F 50 |038 ;CHECK OP| 00000BA0: 20 4C 41 2A 2E 0D 20 20 20 20 20 20 42 43 43 20 | LA*.. BCC | 00000BB0: 20 41 46 54 52 33 0D 20 20 20 20 20 20 4C 44 41 | AFTR3. LDA| 00000BC0: 20 23 30 30 30 0D 20 20 20 20 20 20 42 45 51 20 | #000. BEQ | 00000BD0: 20 41 46 54 52 34 0D 41 46 54 52 33 20 4C 44 41 | AFTR4.AFTR3 LDA| 00000BE0: 20 28 31 36 37 29 2C 59 20 3B 43 4F 4D 50 4F 4E | (167),Y ;COMPON| 00000BF0: 45 4E 54 20 56 41 4E 0D 41 46 54 52 34 20 53 54 |ENT VAN.AFTR4 ST| 00000C00: 41 20 20 31 30 31 20 20 20 20 3B 41 46 54 52 45 |A 101 ;AFTRE| 00000C10: 4B 4B 45 52 20 41 2E 0D 20 20 20 20 20 20 43 50 |KKER A.. CP| 00000C20: 59 20 20 30 33 39 20 20 20 20 3B 43 48 45 43 4B |Y 039 ;CHECK| 00000C30: 20 4F 50 20 4C 42 2A 2E 0D 20 20 20 20 20 20 42 | OP LB*.. B| 00000C40: 43 43 20 20 41 46 54 52 35 0D 20 20 20 20 20 20 |CC AFTR5. | 00000C50: 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 42 |LDA #000. B| 00000C60: 45 51 20 20 41 46 54 52 36 0D 41 46 54 52 35 20 |EQ AFTR6.AFTR5 | 00000C70: 4C 44 41 20 28 32 35 31 29 2C 59 20 3B 43 4F 4D |LDA (251),Y ;COM| 00000C80: 50 4F 4E 45 4E 54 20 56 41 4E 0D 41 46 54 52 36 |PONENT VAN.AFTR6| 00000C90: 20 53 54 41 20 20 31 30 33 20 20 20 20 3B 41 46 | STA 103 ;AF| 00000CA0: 54 52 45 4B 54 41 4C 20 42 2E 0D 20 20 20 20 20 |TREKTAL B.. | 00000CB0: 20 53 45 43 20 20 20 20 20 20 20 20 20 3B 4F 56 | SEC ;OV| 00000CC0: 45 52 44 52 41 43 48 54 20 3D 20 31 2E 0D 20 20 |ERDRACHT = 1.. | 00000CD0: 20 20 20 20 54 58 41 20 20 20 20 20 20 20 20 20 | TXA | 00000CE0: 3B 4F 56 45 52 4C 4F 4F 50 20 28 58 29 2E 0D 20 |;OVERLOOP (X).. | 00000CF0: 20 20 20 20 20 53 42 43 20 20 31 30 31 20 20 20 | SBC 101 | 00000D00: 20 3B 41 46 54 52 45 4B 4B 45 52 20 41 2E 0D 20 | ;AFTREKKER A.. | 00000D10: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00000D20: 20 3B 4F 56 45 52 44 52 41 43 48 54 20 3D 20 30 | ;OVERDRACHT = 0| 00000D30: 2E 0D 20 20 20 20 20 20 41 44 43 20 20 31 30 33 |.. ADC 103| 00000D40: 20 20 20 20 3B 41 46 54 52 45 4B 54 41 4C 20 42 | ;AFTREKTAL B| 00000D50: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4F 56 41 |.. JSR OVA| 00000D60: 58 41 20 20 3B 53 50 4C 49 54 53 2D 3E 5B 58 2C |XA ;SPLITS->[X,| 00000D70: 41 5D 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 |A].. STA (2| 00000D80: 35 33 29 2C 59 20 3B 45 45 4E 48 2E 56 45 52 53 |53),Y ;EENH.VERS| 00000D90: 43 48 49 4C 2E 0D 20 20 20 20 20 20 43 50 59 20 |CHIL.. CPY | 00000DA0: 20 31 30 32 20 20 20 20 3B 43 4F 4D 50 4F 4E 45 | 102 ;COMPONE| 00000DB0: 4E 54 4E 55 4D 4D 45 52 0D 20 20 20 20 20 20 42 |NTNUMMER. B| 00000DC0: 43 43 20 20 41 46 54 52 32 20 20 3B 54 45 53 54 |CC AFTR2 ;TEST| 00000DD0: 45 4E 20 4F 50 20 45 49 4E 44 2E 0D 41 46 54 52 |EN OP EIND..AFTR| 00000DE0: 37 20 50 4C 41 20 20 20 20 20 20 20 20 20 3B 45 |7 PLA ;E| 00000DF0: 49 4E 44 3A 48 45 52 53 54 45 4C 0D 20 20 20 20 |IND:HERSTEL. | 00000E00: 20 20 54 41 59 20 20 20 20 20 20 20 20 20 3B 28 | TAY ;(| 00000E10: 59 29 20 45 4E 20 4E 41 41 52 0D 20 20 20 20 20 |Y) EN NAAR. | 00000E20: 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 48 4F | RTS ;HO| 00000E30: 4F 46 44 50 52 4F 47 52 41 4D 4D 41 2E 0D 20 20 |OFDPROGRAMMA.. | 00000E40: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00000E50: 50 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 2A |P.;.;. *| 00000E60: 3D 32 39 33 33 36 0D 3B 0D 3B 0D 3B 56 45 52 44 |=29336.;.;.;VERD| 00000E70: 55 42 42 45 4C 45 4E 20 56 41 4E 20 45 45 4E 20 |UBBELEN VAN EEN | 00000E80: 56 45 43 54 4F 52 2E 0D 3B 28 32 35 34 2C 32 35 |VECTOR..;(254,25| 00000E90: 33 29 20 41 44 52 45 53 20 56 41 4E 20 4C 45 4E |3) ADRES VAN LEN| 00000EA0: 47 54 45 20 56 41 4E 0D 3B 20 20 20 20 20 20 20 |GTE VAN.; | 00000EB0: 20 20 20 54 45 20 56 45 52 44 55 42 42 45 4C 45 | TE VERDUBBELE| 00000EC0: 4E 20 56 45 43 54 4F 52 2E 0D 3B 20 42 45 47 49 |N VECTOR..; BEGI| 00000ED0: 4E 3A 20 28 58 29 20 45 58 54 52 41 20 49 4E 43 |N: (X) EXTRA INC| 00000EE0: 52 45 4D 45 4E 54 2E 0D 3B 20 45 49 4E 44 20 3A |REMENT..; EIND :| 00000EF0: 20 28 58 29 20 45 58 54 52 41 20 4F 56 45 52 4C | (X) EXTRA OVERL| 00000F00: 4F 4F 50 2E 0D 3B 0D 44 55 42 42 45 20 54 59 41 |OOP..;.DUBBE TYA| 00000F10: 20 20 20 20 20 20 20 20 20 3B 52 45 44 20 28 59 | ;RED (Y| 00000F20: 29 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 |).. PHA. | 00000F30: 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 | LDY #000. | 00000F40: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 4C | LDA (253),Y ;L| 00000F50: 45 4E 47 54 45 20 4E 55 4C 3F 0D 20 20 20 20 20 |ENGTE NUL?. | 00000F60: 20 42 45 51 20 20 44 55 42 42 32 20 20 3B 4E 45 | BEQ DUBB2 ;NE| 00000F70: 45 3A 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 |E:NAAR H.P.. | 00000F80: 20 20 53 54 41 20 20 31 30 32 0D 44 55 42 42 31 | STA 102.DUBB1| 00000F90: 20 49 4E 59 0D 20 20 20 20 20 20 43 4C 43 20 20 | INY. CLC | 00000FA0: 20 20 20 20 20 20 20 3B 54 45 4C 20 4F 56 45 52 | ;TEL OVER| 00000FB0: 4C 4F 4F 50 0D 20 20 20 20 20 20 54 58 41 20 20 |LOOP. TXA | 00000FC0: 20 20 20 20 20 20 20 3B 45 4E 20 43 4F 4D 50 4F | ;EN COMPO| 00000FD0: 4E 45 4E 54 0D 20 20 20 20 20 20 41 44 43 20 28 |NENT. ADC (| 00000FE0: 32 35 33 29 2C 59 20 3B 42 49 4A 20 5A 49 43 48 |253),Y ;BIJ ZICH| 00000FF0: 5A 45 4C 46 2E 0D 20 20 20 20 20 20 43 4C 43 0D |ZELF.. CLC.| 00001000: 20 20 20 20 20 20 41 44 43 20 28 32 35 33 29 2C | ADC (253),| 00001010: 59 0D 20 20 20 20 20 20 4A 53 52 20 20 4F 56 41 |Y. JSR OVA| 00001020: 58 41 20 20 3B 53 50 4C 49 54 53 2E 0D 20 20 20 |XA ;SPLITS.. | 00001030: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B | STA (253),Y ;| 00001040: 5A 45 54 20 54 45 52 55 47 2E 0D 20 20 20 20 20 |ZET TERUG.. | 00001050: 20 43 50 59 20 20 31 30 32 20 20 20 20 3B 43 4F | CPY 102 ;CO| 00001060: 4D 50 4F 4E 45 4E 54 4E 55 4D 4D 45 52 0D 20 20 |MPONENTNUMMER. | 00001070: 20 20 20 20 42 43 43 20 20 44 55 42 42 31 20 20 | BCC DUBB1 | 00001080: 3B 54 45 53 54 45 4E 20 4F 50 20 45 49 4E 44 2E |;TESTEN OP EIND.| 00001090: 0D 44 55 42 42 32 20 50 4C 41 20 20 20 20 20 20 |.DUBB2 PLA | 000010A0: 20 20 20 3B 45 49 4E 44 3A 48 45 52 53 54 45 4C | ;EIND:HERSTEL| 000010B0: 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 |. TAY | 000010C0: 20 20 20 3B 28 59 29 20 45 4E 20 4E 41 41 52 0D | ;(Y) EN NAAR.| 000010D0: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 000010E0: 20 20 3B 48 4F 4F 46 44 50 52 4F 47 52 41 4D 4D | ;HOOFDPROGRAMM| 000010F0: 41 2E 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |A.. NOP. | 00001100: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00001110: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00001120: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 3B | NOP. NOP.;| 00001130: 0D 3B 0D 20 20 20 20 20 20 20 20 20 2A 3D 32 39 |.;. *=29| 00001140: 33 37 32 0D 3B 0D 3B 20 56 45 43 54 4F 52 20 4D |372.;.; VECTOR M| 00001150: 41 41 4C 20 48 4F 4E 44 45 52 44 2E 0D 3B 20 28 |AAL HONDERD..; (| 00001160: 32 35 34 2C 32 35 33 29 20 41 44 52 45 53 20 56 |254,253) ADRES V| 00001170: 41 4E 20 44 45 20 4C 45 4E 47 54 45 2E 0D 3B 0D |AN DE LENGTE..;.| 00001180: 48 4F 56 4F 44 20 54 59 41 0D 20 20 20 20 20 20 |HOVOD TYA. | 00001190: 50 48 41 0D 20 20 20 20 20 20 4A 53 52 20 20 58 |PHA. JSR X| 000011A0: 54 52 41 58 20 20 3B 56 45 43 54 4F 52 20 45 45 |TRAX ;VECTOR EE| 000011B0: 4E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 |N. LDY #000| 000011C0: 20 20 20 20 3B 4C 41 4E 47 45 52 20 4D 41 4B 45 | ;LANGER MAKE| 000011D0: 4E 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 |N.. LDA (25| 000011E0: 33 29 2C 59 0D 20 20 20 20 20 20 54 41 59 0D 20 |3),Y. TAY. | 000011F0: 20 20 20 20 20 43 50 59 20 23 30 30 31 20 20 20 | CPY #001 | 00001200: 20 3B 4C 45 47 45 20 56 45 43 54 4F 52 20 4D 45 | ;LEGE VECTOR ME| 00001210: 54 0D 20 20 20 20 20 20 42 45 51 20 20 48 4F 56 |T. BEQ HOV| 00001220: 4F 32 20 20 3B 4C 45 4E 47 54 45 20 45 45 4E 2E |O2 ;LENGTE EEN.| 00001230: 0D 48 4F 56 4F 31 20 44 45 59 20 20 20 20 20 20 |.HOVO1 DEY | 00001240: 20 20 20 3B 54 52 41 4E 53 50 4F 52 54 20 4E 41 | ;TRANSPORT NA| 00001250: 41 52 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 |AR. LDA (25| 00001260: 33 29 2C 59 20 3B 56 45 52 53 43 48 4F 56 45 4E |3),Y ;VERSCHOVEN| 00001270: 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 |. INY | 00001280: 20 20 20 3B 50 4C 41 41 54 53 45 4E 2E 0D 20 20 | ;PLAATSEN.. | 00001290: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 000012A0: 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 | DEY. | 000012B0: 43 50 59 20 23 30 30 32 20 20 20 20 3B 32 20 4F |CPY #002 ;2 O| 000012C0: 46 20 4D 45 45 52 0D 20 20 20 20 20 20 42 43 53 |F MEER. BCS| 000012D0: 20 20 48 4F 56 4F 31 20 20 3B 43 4F 4D 50 4F 4E | HOVO1 ;COMPON| 000012E0: 45 4E 54 45 4E 2E 0D 48 4F 56 4F 32 20 4C 44 41 |ENTEN..HOVO2 LDA| 000012F0: 20 23 30 30 30 20 20 20 20 3B 45 45 4E 48 2E 43 | #000 ;EENH.C| 00001300: 4F 4D 50 4F 4E 45 4E 54 0D 20 20 20 20 20 20 53 |OMPONENT. S| 00001310: 54 41 20 28 32 35 33 29 2C 59 20 3B 4D 45 54 20 |TA (253),Y ;MET | 00001320: 4E 55 4C 2E 0D 20 20 20 20 20 20 50 4C 41 20 20 |NUL.. PLA | 00001330: 20 20 20 20 20 20 20 3B 48 45 52 53 54 45 4C 20 | ;HERSTEL | 00001340: 28 59 29 2E 0D 20 20 20 20 20 20 54 41 59 0D 20 |(Y).. TAY. | 00001350: 20 20 20 20 20 52 54 53 0D 3B 0D 20 20 20 20 20 | RTS.;. | 00001360: 20 2E 44 42 59 54 45 20 24 45 41 45 41 0D 20 20 | .DBYTE $EAEA. | 00001370: 20 20 20 20 2E 44 42 59 54 45 20 24 45 41 45 41 | .DBYTE $EAEA| 00001380: 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 2A 3D |.;.;. *=| 00001390: 32 39 34 30 38 0D 3B 0D 3B 0D 3B 20 52 45 53 45 |29408.;.;.; RESE| 000013A0: 52 56 45 2E 0D 3B 0D 20 20 20 20 20 20 2E 44 42 |RVE..;. .DB| 000013B0: 59 54 45 20 24 44 30 30 46 0D 20 20 20 20 20 20 |YTE $D00F. | 000013C0: 2E 44 42 59 54 45 20 24 44 30 30 46 0D 20 20 20 |.DBYTE $D00F. | 000013D0: 20 20 20 2E 44 42 59 54 45 20 24 44 30 30 46 0D | .DBYTE $D00F.| 000013E0: 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 44 30 | .DBYTE $D0| 000013F0: 30 46 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 |0F. .DBYTE | 00001400: 24 44 30 30 46 0D 20 20 20 20 20 20 2E 44 42 59 |$D00F. .DBY| 00001410: 54 45 20 24 44 30 30 46 0D 20 20 20 20 20 20 2E |TE $D00F. .| 00001420: 44 42 59 54 45 20 24 44 30 30 46 0D 3B 0D 20 20 |DBYTE $D00F.;. | 00001430: 20 20 20 20 2E 45 4E 44 0D | .END. |
;.; PROGRAMMA : HONDERDTALLIG..; BRON
CODE : HONT02.ASM ..; OBJECTCODE
: HONT02.OBJ ..; DISK : DEMO-
4 ..; TAAL : ASSEMBLER C64
..; DATUM : 8 FEB.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.;.; 29184 7200 OPTEL
OPTELLEN VAN.; TWEE VEC
TOREN..; 29260 724C AFTRE AFTREKKEN VAN.
; TWEE VECTOREN..; 2933
6 7298 DUBBE VERDUBBELEN VAN.;
EEN VECTOR..; 29372 72BC HOVOD V
ECTOR MAAL.; HONDERD..;
29408 72E0 LABEL ................;
................;.;========
=========================.;.OVAXA =2
9028 ;(A)->[X,A]..TRASP =29072 ;
TRANSPORT..XTRAX =29124 ;EXTRA (X)
NA..;.;================================
=.;.;. *=29184.;.;OPTELLEN VAN T
WEE VECTOREN..;(168,167) ADRES LENGTE OP
TELLER..;(252,251) ADRES LENGTE OPTELTAL
..;(254,253) ADRES LENGTE SOM..; BEGIN:
(X) EXTRA INCREMENT..; EIND : (X) EXTRA
OVERLOOP..;.OPTEL TYA ;RED (Y)..
PHA. LDY #000 ;VECTORLENGT
ES:. LDA (167),Y ;LENGTE VAN A IS.
STA 038 ;LA (OPTELLER).. L
DA (251),Y ;LENGTE VAN B IS. STA 0
39 ;LB (OPTELTAL).. CMP 038
;GROOTSTE IS. BCS OPTE1 ;LENGTE V
AN C:. LDA 038 ;LC (SOM)..OPTE1
STA 102. STA (253),Y. CMP #0
00. BEQ OPTE7. INC 038 ;L
A*=LA+1.. INC 039 ;LB*=LB+1..OP
TE2 INY ;VOLGENDE COMP.. CP
Y 038 ;CHECK OP LA*.. BCC OPTE
3. LDA #000. BEQ OPTE4.OPTE3
LDA (167),Y ;COMPONENT VAN.OPTE4 STA 10
1 ;OPTELLER A.. CPY 039 ;CHE
CK OP LB*.. BCC OPTE5. LDA #0
00. BEQ OPTE6.OPTE5 LDA (251),Y ;C
OMPONENT VAN.OPTE6 STA 103 ;OPTELTAL
B.. CLC ;OVERDRACHT = 0..
TXA ;OVERLOOP (X).. AD
C 101 ;OPTELLER A.. CLC
;OVERDRACHT = 0.. ADC 103 ;OPT
ELTAL B.. JSR OVAXA ;SPLITS->[X,A
].. STA (253),Y ;EENHEDEN SOM..
CPY 102 ;COMPONENTNUMMER. BCC
OPTE2 ;TESTEN OP EIND..OPTE7 PLA
;EIND:HERSTEL. TAY ;(Y)
EN NAAR. RTS ;HOOFDPROGRAM
MA.. NOP. NOP.;.;. *=2
9260.;.;AFTREKKEN VAN TWEE VECTOREN..;(1
68,167) ADRES LENGTE AFTREKKER..;(252,25
1) ADRES LENGTE AFTREKTAL..;(254,253) AD
RES LENGTE VERSCHIL..; BEGIN: (X) EXTRA
INCREMENT..; EIND : (X) EXTRA OVERLOOP..
;.AFTRE TYA ;RED (Y).. PHA.
LDY #000 ;VECTORLENGTES:.
LDA (167),Y ;LENGTE VAN A IS. STA
038 ;LA (AFTREKKER).. LDA (251),
Y ;LENGTE VAN B IS. STA 039 ;LB
(AFTREKTAL).. CMP 038 ;GROOTST
E IS. BCS AFTR1 ;LENGTE VAN C:.
LDA 038 ;LC (VERSCHIL)..AFTR1 ST
A 102. STA (253),Y. CMP #000.
BEQ AFTR7. INC 038 ;LA*=
LA+1.. INC 039 ;LB*=LB+1..AFTR2
INY ;VOLGENDE COMP.. CPY
038 ;CHECK OP LA*.. BCC AFTR3.
LDA #000. BEQ AFTR4.AFTR3 LDA
(167),Y ;COMPONENT VAN.AFTR4 STA 101
;AFTREKKER A.. CPY 039 ;CHECK
OP LB*.. BCC AFTR5. LDA #000
. BEQ AFTR6.AFTR5 LDA (251),Y ;COM
PONENT VAN.AFTR6 STA 103 ;AFTREKTAL
B.. SEC ;OVERDRACHT = 1..
TXA ;OVERLOOP (X).. SBC
101 ;AFTREKKER A.. CLC
;OVERDRACHT = 0.. ADC 103 ;AFT
REKTAL B.. JSR OVAXA ;SPLITS->[X,
A].. STA (253),Y ;EENH.VERSCHIL..
CPY 102 ;COMPONENTNUMMER. B
CC AFTR2 ;TESTEN OP EIND..AFTR7 PLA
;EIND:HERSTEL. TAY ;(
Y) EN NAAR. RTS ;HOOFDPROGR
AMMA.. NOP. NOP.;.;. *
=29336.;.;.;VERDUBBELEN VAN EEN VECTOR..
;(254,253) ADRES VAN LENGTE VAN.;
TE VERDUBBELEN VECTOR..; BEGIN: (X) E
XTRA INCREMENT..; EIND : (X) EXTRA OVERL
OOP..;.DUBBE TYA ;RED (Y)..
PHA. LDY #000. LDA (253),Y ;L
ENGTE NUL?. BEQ DUBB2 ;NEE:NAAR H
.P.. STA 102.DUBB1 INY. CLC
;TEL OVERLOOP. TXA ;
EN COMPONENT. ADC (253),Y ;BIJ ZICH
ZELF.. CLC. ADC (253),Y.
JSR OVAXA ;SPLITS.. STA (253),Y ;
ZET TERUG.. CPY 102 ;COMPONENTN
UMMER. BCC DUBB1 ;TESTEN OP EIND.
.DUBB2 PLA ;EIND:HERSTEL. T
AY ;(Y) EN NAAR. RTS
;HOOFDPROGRAMMA.. NOP. NOP.
NOP. NOP. NOP. NOP.;
.;. *=29372.;.; VECTOR MAAL HOND
ERD..; (254,253) ADRES VAN DE LENGTE..;.
HOVOD TYA. PHA. JSR XTRAX ;V
ECTOR EEN. LDY #000 ;LANGER MAKE
N.. LDA (253),Y. TAY. CPY
#001 ;LEGE VECTOR MET. BEQ HOV
O2 ;LENGTE EEN..HOVO1 DEY ;TRAN
SPORT NAAR. LDA (253),Y ;VERSCHOVEN
. INY ;PLAATSEN.. STA
(253),Y. DEY. CPY #002 ;2 O
F MEER. BCS HOVO1 ;COMPONENTEN..H
OVO2 LDA #000 ;EENH.COMPONENT. S
TA (253),Y ;MET NUL.. PLA ;
HERSTEL (Y).. TAY. RTS.;.
.DBYTE $EAEA. .DBYTE $EAEA.;.;.
*=29408.;.;.; RESERVE..;. .DB
YTE $D00F. .DBYTE $D00F. .DBYT
E $D00F. .DBYTE $D00F. .DBYTE
$D00F. .DBYTE $D00F. .DBYTE $D
00F.;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL