DISO9
FILE INFORMATION
FILENAME(S): DISO9
FILE TYPE(S): DEL
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
912f955253862b115c48280dcbca3c3ce37fa8bf1d560cdf9728d21b727ffbd5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | DISO9 | DEL | DuncanTwain | 10 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 4C 56 31 0D 20 20 20 20 20 20 49 4E 43 20 | LV1. INC | 00000010: 20 30 30 37 35 38 20 20 3B 4E 45 45 4E 3A 20 56 | 00758 ;NEEN: V| 00000020: 42 20 4F 50 2E 0D 20 20 20 20 20 20 52 54 53 20 |B OP.. RTS | 00000030: 20 20 20 20 20 20 20 20 3B 54 45 52 55 47 2E 0D | ;TERUG..| 00000040: 4C 56 31 20 20 20 4C 44 59 20 23 30 30 30 20 20 |LV1 LDY #000 | 00000050: 20 20 3B 58 4C 2C 58 48 20 4E 49 45 55 57 21 21 | ;XL,XH NIEUW!!| 00000060: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 20 |. LDA 038 | 00000070: 20 20 20 3B 28 30 33 38 29 3D 58 4C 2E 0D 20 20 | ;(038)=XL.. | 00000080: 20 20 20 20 53 54 41 20 28 32 34 39 29 2C 59 0D | STA (249),Y.| 00000090: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 000000A0: 4C 44 41 20 20 30 33 39 20 20 20 20 3B 28 30 33 |LDA 039 ;(03| 000000B0: 39 29 3D 58 48 2E 0D 20 20 20 20 20 20 53 54 41 |9)=XH.. STA| 000000C0: 20 28 32 34 39 29 2C 59 0D 20 20 20 20 20 20 4C | (249),Y. L| 000000D0: 44 58 20 23 30 30 32 20 20 20 20 3B 28 32 35 32 |DX #002 ;(252| 000000E0: 2C 32 35 31 29 20 49 4E 0D 20 20 20 20 20 20 4A |,251) IN. J| 000000F0: 53 52 20 20 33 38 30 30 37 20 20 3B 28 32 35 30 |SR 38007 ;(250| 00000100: 2C 32 34 39 29 3D 4C 58 2E 0D 20 20 20 20 20 20 |,249)=LX.. | 00000110: 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |RTS. NOP. | 00000120: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00000130: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00000140: 20 20 20 20 20 2A 3D 33 37 38 33 34 0D 20 20 20 | *=37834. | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D | ;.| 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 3B 56 55 4C 20 52 45 47 45 4C 47 45 42 49 45 | ;VUL REGELGEBIE| 00000180: 44 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |D.. | 00000190: 20 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 58 20 | ;. LDX | 000001A0: 23 30 30 30 20 20 20 3B 28 32 34 38 2C 32 34 37 |#000 ;(248,247| 000001B0: 29 3D 52 58 2E 0D 20 20 20 20 20 20 4C 44 59 20 |)=RX.. LDY | 000001C0: 23 30 30 36 0D 20 20 20 20 20 20 4A 53 52 20 20 |#006. JSR | 000001D0: 33 37 39 38 34 0D 20 20 20 20 20 20 4C 44 58 20 |37984. LDX | 000001E0: 23 30 30 32 20 20 20 20 3B 28 32 35 32 2C 32 35 |#002 ;(252,25| 000001F0: 31 29 3D 52 58 2B 36 2E 0D 20 20 20 20 20 20 4A |1)=RX+6.. J| 00000200: 53 52 20 20 33 38 33 39 32 20 20 3B 28 31 31 30 |SR 38392 ;(110| 00000210: 2C 31 30 39 29 3D 4C 55 2E 0D 20 20 20 20 20 20 |,109)=LU.. | 00000220: 4A 53 52 20 20 33 38 37 38 30 20 20 3B 52 58 2B |JSR 38780 ;RX+| 00000230: 36 3C 4C 55 3F 0D 20 20 20 20 20 20 42 43 43 20 |6<LU?. BCC | 00000240: 20 52 56 31 0D 20 20 20 20 20 20 49 4E 43 20 20 | RV1. INC | 00000250: 30 30 37 35 37 20 20 20 20 3B 4E 45 45 4E 3A 20 |00757 ;NEEN: | 00000260: 56 41 20 4F 50 2E 0D 20 20 20 20 20 20 52 54 53 |VA OP.. RTS| 00000270: 20 20 20 20 20 20 20 20 20 20 20 3B 54 45 52 55 | ;TERU| 00000280: 47 2E 0D 52 56 31 20 20 20 4C 44 59 20 23 30 30 |G..RV1 LDY #00| 00000290: 35 20 20 20 20 20 20 3B 28 37 30 30 29 3D 41 4C |5 ;(700)=AL| 000002A0: 2E 0D 52 56 32 20 20 20 4C 44 41 20 20 30 30 37 |..RV2 LDA 007| 000002B0: 30 30 2C 59 20 20 3B 28 37 30 31 29 3D 41 48 2E |00,Y ;(701)=AH.| 000002C0: 0D 20 20 20 20 20 20 53 54 41 20 28 32 34 37 29 |. STA (247)| 000002D0: 2C 59 20 20 20 3B 28 37 30 32 29 3D 53 31 2E 0D |,Y ;(702)=S1..| 000002E0: 20 20 20 20 20 20 44 45 59 20 20 20 20 20 20 20 | DEY | 000002F0: 20 20 20 20 3B 28 37 30 33 29 3D 53 32 2E 0D 20 | ;(703)=S2.. | 00000300: 20 20 20 20 20 42 50 4C 20 20 52 56 32 20 20 20 | BPL RV2 | 00000310: 20 20 20 3B 28 37 30 34 29 3D 4F 4C 2E 0D 20 20 | ;(704)=OL.. | 00000320: 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 | LDX #000 | 00000330: 20 20 3B 28 37 30 35 29 3D 4F 48 2E 0D 20 20 20 | ;(705)=OH.. | 00000340: 20 20 20 4A 53 52 20 20 33 38 30 30 37 20 20 20 | JSR 38007 | 00000350: 20 3B 28 32 35 32 2C 32 35 31 29 20 49 4E 0D 20 | ;(252,251) IN. | 00000360: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000370: 20 20 20 3B 28 32 34 38 2C 32 34 37 29 3D 52 58 | ;(248,247)=RX| 00000380: 2E 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |.. NOP. | 00000390: 20 20 20 20 20 2A 3D 33 37 38 37 36 0D 20 20 20 | *=37876. | 000003A0: 20 20 20 4C 44 41 20 20 32 35 33 20 20 20 20 3B | LDA 253 ;| 000003B0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 39 38 20 |. STA 098 | 000003C0: 20 20 20 3B 5A 4F 45 4B 20 4C 41 42 45 4C 20 49 | ;ZOEK LABEL I| 000003D0: 4E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 34 |N. LDA 254| 000003E0: 20 20 20 20 3B 54 41 42 45 4C 2E 0D 20 20 20 20 | ;TABEL.. | 000003F0: 20 20 53 54 41 20 20 30 39 39 20 20 20 20 3B 28 | STA 099 ;(| 00000400: 30 33 39 2C 30 33 38 29 20 49 54 45 4D 2E 0D 20 |039,038) ITEM.. | 00000410: 20 20 20 20 20 4C 44 58 20 23 30 30 32 20 20 20 | LDX #002 | 00000420: 20 3B 28 32 35 34 2C 32 35 33 29 20 52 45 44 2E | ;(254,253) RED.| 00000430: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 39 |. JSR 3839| 00000440: 32 20 20 3B 28 31 31 30 2C 31 30 39 29 3D 4C 55 |2 ;(110,109)=LU| 00000450: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 32 |.. LDX #002| 00000460: 20 20 20 20 3B 28 32 35 30 2C 32 34 39 29 3D 4C | ;(250,249)=L| 00000470: 58 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 39 |X. JSR 379| 00000480: 39 38 20 20 3B 49 4E 20 28 32 35 32 2C 32 35 31 |98 ;IN (252,251| 00000490: 29 2E 0D 49 5A 31 20 20 20 53 45 43 20 20 20 20 |)..IZ1 SEC | 000004A0: 20 20 20 20 20 3B 54 52 45 4B 20 32 20 41 46 2E | ;TREK 2 AF.| 000004B0: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 0D |. LDA 251.| 000004C0: 20 20 20 20 20 20 53 42 43 20 23 30 30 32 0D 20 | SBC #002. | 000004D0: 20 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 | STA 251. | 000004E0: 20 20 20 20 4C 44 41 20 20 32 35 32 0D 20 20 20 | LDA 252. | 000004F0: 20 20 20 53 42 43 20 23 30 30 30 0D 20 20 20 20 | SBC #000. | 00000500: 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 | STA 252. | 00000510: 20 4A 53 52 20 20 33 38 37 38 30 20 20 20 20 3B | JSR 38780 ;| 00000520: 56 45 52 47 45 4C 49 4A 4B 2E 0D 20 20 20 20 20 |VERGELIJK.. | 00000530: 20 42 43 43 20 20 49 5A 38 20 20 20 20 20 20 3B | BCC IZ8 ;| 00000540: 4C 45 45 47 2E 0D 20 20 20 20 20 20 4C 44 59 20 |LEEG.. LDY | 00000550: 23 30 30 31 0D 49 5A 32 20 20 20 54 59 41 0D 20 |#001.IZ2 TYA. | 00000560: 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 4C | TAX. L| 00000570: 44 41 20 28 32 35 31 29 2C 59 0D 20 20 20 20 20 |DA (251),Y. | 00000580: 20 43 4D 50 20 20 30 33 38 2C 58 20 20 20 20 3B | CMP 038,X ;| 00000590: 5A 4F 45 4B 49 54 45 4D 0D 20 20 20 20 20 20 42 |ZOEKITEM. B| 000005A0: 4E 45 20 20 49 5A 31 20 20 20 20 20 20 3B 28 30 |NE IZ1 ;(0| 000005B0: 33 39 2C 30 33 38 29 2E 0D 20 20 20 20 20 20 44 |39,038).. D| 000005C0: 45 59 20 20 20 20 20 20 20 20 20 20 20 3B 20 58 |EY ; X| 000005D0: 48 2C 58 4C 2E 0D 20 20 20 20 20 20 42 50 4C 20 |H,XL.. BPL | 000005E0: 20 49 5A 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 | IZ2. CLC. | 000005F0: 20 20 20 20 20 4C 44 41 20 20 32 35 31 0D 20 20 | LDA 251. | 00000600: 20 20 20 20 41 44 43 20 23 30 30 32 0D 20 20 20 | ADC #002. | 00000610: 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 | STA 253. | 00000620: 20 20 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 | LDA 252. | 00000630: 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 | ADC #000. | 00000640: 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 20 4A |STA 254. J| 00000650: 53 52 20 20 33 38 34 34 34 20 20 3B 4C 41 42 45 |SR 38444 ;LABE| 00000660: 4C 4E 55 4D 4D 45 52 2E 0D 20 20 20 20 20 20 4C |LNUMMER.. L| 00000670: 44 58 20 23 30 30 30 20 20 20 20 3B 47 45 56 4F |DX #000 ;GEVO| 00000680: 4E 44 45 4E 2E 0D 20 20 20 20 20 20 42 45 51 20 |NDEN.. BEQ | 00000690: 20 49 5A 39 0D 49 5A 38 20 20 20 4C 44 58 20 23 | IZ9.IZ8 LDX #| 000006A0: 30 30 31 20 20 20 20 3B 4E 49 45 54 20 47 45 56 |001 ;NIET GEV| 000006B0: 4F 4E 44 45 4E 2E 0D 49 5A 39 20 20 20 4C 44 41 |ONDEN..IZ9 LDA| 000006C0: 20 20 30 39 38 20 20 20 20 3B 48 45 52 53 54 45 | 098 ;HERSTE| 000006D0: 4C 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 |L. STA 253| 000006E0: 20 20 20 20 3B 28 32 35 34 2C 32 35 33 29 2E 0D | ;(254,253)..| 000006F0: 20 20 20 20 20 20 4C 44 41 20 20 30 39 39 0D 20 | LDA 099. | 00000700: 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 | STA 254. | 00000710: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 00000720: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00000730: 20 20 4C 44 41 20 20 32 35 31 20 20 20 20 20 3B | LDA 251 ;| 00000740: 28 32 35 32 2C 32 35 31 29 20 4E 41 41 52 0D 20 |(252,251) NAAR. | 00000750: 20 20 20 20 20 53 54 41 20 20 30 30 37 31 30 2C | STA 00710,| 00000760: 58 20 3B 28 37 31 31 2B 58 2C 37 31 30 2B 58 29 |X ;(711+X,710+X)| 00000770: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 |.. LDA 252| 00000780: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 31 |. STA 0071| 00000790: 31 2C 58 0D 20 20 20 20 20 20 52 54 53 0D 20 20 |1,X. RTS. | 000007A0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 000007B0: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 000007C0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 000007D0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 000007E0: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 000007F0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00000800: 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 39 |P. *=379| 00000810: 38 34 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |84. CLC. | 00000820: 20 20 20 54 59 41 0D 20 20 20 20 20 20 41 44 43 | TYA. ADC| 00000830: 20 20 32 34 37 2C 58 0D 20 20 20 20 20 20 53 54 | 247,X. ST| 00000840: 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 59 |A 251. LDY| 00000850: 20 23 30 30 30 0D 20 20 20 20 20 20 54 59 41 0D | #000. TYA.| 00000860: 20 20 20 20 20 20 41 44 43 20 20 32 34 38 2C 58 | ADC 248,X| 00000870: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D |. STA 252.| 00000880: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00000890: 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 |NOP. *=3| 000008A0: 37 39 39 38 0D 20 20 20 20 20 20 4C 44 41 20 20 |7998. LDA | 000008B0: 32 34 37 2C 58 0D 20 20 20 20 20 20 53 54 41 20 |247,X. STA | 000008C0: 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 20 | 251. LDA | 000008D0: 32 34 38 2C 58 0D 20 20 20 20 20 20 53 54 41 20 |248,X. STA | 000008E0: 20 32 35 32 0D 20 20 20 20 20 20 52 54 53 0D 20 | 252. RTS. | 000008F0: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 | NOP. | 00000900: 20 20 2A 3D 33 38 30 30 37 0D 20 20 20 20 20 20 | *=38007. | 00000910: 4C 44 41 20 20 32 35 31 0D 20 20 20 20 20 20 53 |LDA 251. S| 00000920: 54 41 20 20 32 34 37 2C 58 0D 20 20 20 20 20 20 |TA 247,X. | 00000930: 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 53 |LDA 252. S| 00000940: 54 41 20 20 32 34 38 2C 58 0D 20 20 20 20 20 20 |TA 248,X. | 00000950: 52 54 53 0D 20 20 20 20 20 20 2E 45 4E 44 0D |RTS. .END. |
LV1. INC 00758 ;NEEN: VB OP..
RTS ;TERUG..LV1 LDY #000
;XL,XH NIEUW!!. LDA 038 ;(038
)=XL.. STA (249),Y. INY.
LDA 039 ;(039)=XH.. STA (249),Y
. LDX #002 ;(252,251) IN. J
SR 38007 ;(250,249)=LX.. RTS.
NOP. NOP. NOP. NOP.
*=37834. ;.
;VUL REGELGEBIED..
;. LDX #000 ;(248,247)=RX..
LDY #006. JSR 37984. LDX
#002 ;(252,251)=RX+6.. JSR 3839
2 ;(110,109)=LU.. JSR 38780 ;RX+
6<LU?. BCC RV1. INC 00757
;NEEN: VA OP.. RTS ;TERU
G..RV1 LDY #005 ;(700)=AL..RV2
LDA 00700,Y ;(701)=AH.. STA (247)
,Y ;(702)=S1.. DEY ;(70
3)=S2.. BPL RV2 ;(704)=OL..
LDX #000 ;(705)=OH.. JSR
38007 ;(252,251) IN. RTS
;(248,247)=RX.. NOP. *=3
7876. LDA 253 ;. STA 098
;ZOEK LABEL IN. LDA 254 ;TAB
EL.. STA 099 ;(039,038) ITEM..
LDX #002 ;(254,253) RED.. J
SR 38392 ;(110,109)=LU.. LDX #002
;(250,249)=LX. JSR 37998 ;IN
(252,251)..IZ1 SEC ;TREK 2 AF.
. LDA 251. SBC #002. STA
251. LDA 252. SBC #000.
STA 252. JSR 38780 ;VERGELIJ
K.. BCC IZ8 ;LEEG.. LDY
#001.IZ2 TYA. TAX. LDA (251)
,Y. CMP 038,X ;ZOEKITEM. B
NE IZ1 ;(039,038).. DEY
; XH,XL.. BPL IZ2. CLC.
LDA 251. ADC #002. STA
253. LDA 252. ADC #000.
STA 254. JSR 38444 ;LABELNUMMER.
. LDX #000 ;GEVONDEN.. BEQ
IZ9.IZ8 LDX #001 ;NIET GEVONDEN..I
Z9 LDA 098 ;HERSTEL. STA 253
;(254,253).. LDA 099. STA
254. RTS. NOP. NOP.
LDA 251 ;(252,251) NAAR. STA
00710,X ;(711+X,710+X).. LDA 252
. STA 00711,X. RTS. NOP.
NOP. NOP. NOP. NOP.
NOP. NOP. NOP. NOP.
NOP. *=37984. CLC.
TYA. ADC 247,X. STA 251.
LDY #000. TYA. ADC 248,X
. STA 252. RTS. NOP.
*=37998. LDA 247,X. STA
251. LDA 248,X. STA 252.
RTS. NOP. *=38007.
LDA 251. STA 247,X. LDA 252
. STA 248,X. RTS. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL