DIOE01
FILE INFORMATION
FILENAME(S): DIOE01
FILE TYPE(S): DEL
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
1ba3e8c31504dfcb98d302659c52b53ae96161e011c426c5c74d349b122a87b9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | DIOE01 | DEL | DuncanTwain | 6 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 49 54 20 46 49 4C 45 20 31 2E 0D 20 20 20 20 20 |IT FILE 1.. | 00000010: 20 4A 53 52 20 20 36 35 34 37 35 20 20 3B 2A 20 | JSR 65475 ;* | 00000020: 43 4C 4F 53 45 2A 0D 20 20 20 20 20 20 4A 53 52 |CLOSE*. JSR| 00000030: 20 20 36 35 35 31 31 20 20 3B 2A 20 43 4C 41 4C | 65511 ;* CLAL| 00000040: 4C 2A 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 |L*. RTS | 00000050: 20 20 20 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 | ;NAAR HOOFD| 00000060: 50 52 47 52 2E 0D 4C 41 58 59 20 20 53 54 41 20 |PRGR..LAXY STA | 00000070: 20 30 30 32 20 20 20 20 3B 52 45 44 20 28 41 29 | 002 ;RED (A)| 00000080: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |.. JSR 654| 00000090: 39 30 20 20 3B 28 41 29 20 4F 55 54 50 55 54 2E |90 ;(A) OUTPUT.| 000000A0: 0D 4C 58 59 20 20 20 54 58 41 20 20 20 20 20 20 |.LXY TXA | 000000B0: 20 20 20 3B 28 58 29 3D 3E 28 41 29 2E 0D 20 20 | ;(X)=>(A).. | 000000C0: 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 20 | JSR 65490 | 000000D0: 3B 28 41 29 20 4F 55 54 50 55 54 2E 0D 20 20 20 |;(A) OUTPUT.. | 000000E0: 20 20 20 54 59 41 20 20 20 20 20 20 20 20 20 3B | TYA ;| 000000F0: 28 59 29 3D 3E 28 41 29 2E 0D 20 20 20 20 20 20 |(Y)=>(A).. | 00000100: 4A 53 52 20 20 36 35 34 39 30 20 20 3B 28 41 29 |JSR 65490 ;(A)| 00000110: 20 4F 55 54 50 55 54 2E 0D 20 20 20 20 20 20 4C | OUTPUT.. L| 00000120: 44 41 20 20 30 30 32 20 20 20 20 3B 48 45 52 53 |DA 002 ;HERS| 00000130: 54 45 4C 20 28 41 29 2E 0D 20 20 20 20 20 20 52 |TEL (A).. R| 00000140: 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 |TS ;NAAR| 00000150: 20 48 4F 4F 46 44 50 52 47 52 2E 0D 52 4F 50 55 | HOOFDPRGR..ROPU| 00000160: 20 20 4C 44 41 20 20 32 35 33 20 20 20 20 3B 42 | LDA 253 ;B| 00000170: 45 47 49 4E 41 44 52 45 53 0D 20 20 20 20 20 20 |EGINADRES. | 00000180: 53 54 41 20 20 31 30 31 20 20 20 20 3B 56 41 4E |STA 101 ;VAN| 00000190: 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 4C 44 | REGEL.. LD| 000001A0: 41 20 20 32 35 34 0D 20 20 20 20 20 20 53 54 41 |A 254. STA| 000001B0: 20 20 31 30 32 0D 20 20 20 20 20 20 4C 44 41 20 | 102. LDA | 000001C0: 23 30 33 39 20 20 20 20 3B 50 4F 53 49 54 49 45 |#039 ;POSITIE| 000001D0: 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 30 20 |. STA 100 | 000001E0: 20 20 20 3B 41 46 54 45 4C 2E 0D 52 4F 50 31 20 | ;AFTEL..ROP1 | 000001F0: 20 4C 44 41 20 20 35 36 33 33 34 20 20 3B 47 45 | LDA 56334 ;GE| 00000200: 45 4E 20 54 49 4D 45 52 2D 0D 20 20 20 20 20 20 |EN TIMER-. | 00000210: 41 4E 44 20 23 32 35 34 20 20 20 20 3B 49 4E 54 |AND #254 ;INT| 00000220: 45 52 52 55 50 54 53 2E 0D 20 20 20 20 20 20 53 |ERRUPTS.. S| 00000230: 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 20 20 |TA 56334. | 00000240: 4C 44 41 20 20 30 30 31 20 20 20 20 3B 48 49 52 |LDA 001 ;HIR| 00000250: 41 4D 20 4F 50 45 4E 2E 0D 20 20 20 20 20 20 41 |AM OPEN.. A| 00000260: 4E 44 20 23 32 35 33 0D 20 20 20 20 20 20 53 54 |ND #253. ST| 00000270: 41 20 20 30 30 31 0D 20 20 20 20 20 20 4C 44 59 |A 001. LDY| 00000280: 20 23 30 30 37 20 20 20 20 3B 54 52 41 4E 53 50 | #007 ;TRANSP| 00000290: 4F 52 54 20 4E 41 41 52 0D 52 4F 50 32 20 20 4C |ORT NAAR.ROP2 L| 000002A0: 44 41 20 28 31 30 31 29 2C 59 20 3B 28 31 30 34 |DA (101),Y ;(104| 000002B0: 29 2E 2E 28 31 31 31 29 2E 0D 20 20 20 20 20 20 |)..(111).. | 000002C0: 54 41 58 0D 20 20 20 20 20 20 53 54 58 20 20 31 |TAX. STX 1| 000002D0: 30 34 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 |04,Y. DEY. | 000002E0: 20 20 20 20 20 42 50 4C 20 20 52 4F 50 32 0D 20 | BPL ROP2. | 000002F0: 20 20 20 20 20 4C 44 41 20 20 30 30 31 20 20 20 | LDA 001 | 00000300: 20 3B 48 49 52 41 4D 20 44 49 43 48 54 2E 0D 20 | ;HIRAM DICHT.. | 00000310: 20 20 20 20 20 4F 52 41 20 23 30 30 32 0D 20 20 | ORA #002. | 00000320: 20 20 20 20 53 54 41 20 20 30 30 31 0D 20 20 20 | STA 001. | 00000330: 20 20 20 4C 44 41 20 20 35 36 33 33 34 20 20 3B | LDA 56334 ;| 00000340: 57 45 4C 20 54 49 4D 45 52 2D 0D 20 20 20 20 20 |WEL TIMER-. | 00000350: 20 4F 52 41 20 23 30 30 31 20 20 20 20 3B 49 4E | ORA #001 ;IN| 00000360: 54 45 52 52 55 50 54 53 2E 0D 20 20 20 20 20 20 |TERRUPTS.. | 00000370: 53 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 20 |STA 56334. | 00000380: 20 4C 44 59 20 23 30 30 37 20 20 20 20 3B 54 52 | LDY #007 ;TR| 00000390: 41 4E 53 50 4F 53 49 54 49 45 0D 52 4F 50 33 20 |ANSPOSITIE.ROP3 | 000003A0: 20 4C 44 58 20 23 30 30 37 20 20 20 20 3B 45 4E | LDX #007 ;EN| 000003B0: 20 4F 55 54 50 55 54 2E 0D 52 4F 50 34 20 20 52 | OUTPUT..ROP4 R| 000003C0: 4F 4C 20 20 31 30 34 2C 58 0D 20 20 20 20 20 20 |OL 104,X. | 000003D0: 2E 42 59 54 45 20 24 36 41 0D 20 20 20 20 20 20 |.BYTE $6A. | 000003E0: 44 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 52 |DEX. BPL R| 000003F0: 4F 50 34 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |OP4. JSR 6| 00000400: 35 34 39 30 0D 20 20 20 20 20 20 44 45 59 0D 20 |5490. DEY. | 00000410: 20 20 20 20 20 42 50 4C 20 20 52 4F 50 33 0D 20 | BPL ROP3. | 00000420: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00000430: 20 3B 56 4F 4C 47 45 4E 44 45 0D 20 20 20 20 20 | ;VOLGENDE. | 00000440: 20 4C 44 41 20 20 31 30 31 20 20 20 20 3B 50 4F | LDA 101 ;PO| 00000450: 53 49 54 49 45 2E 0D 20 20 20 20 20 20 41 44 43 |SITIE.. ADC| 00000460: 20 23 30 30 38 0D 20 20 20 20 20 20 53 54 41 20 | #008. STA | 00000470: 20 31 30 31 0D 20 20 20 20 20 20 4C 44 41 20 20 | 101. LDA | 00000480: 31 30 32 0D 20 20 20 20 20 20 41 44 43 20 23 30 |102. ADC #0| 00000490: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 |00. STA 10| 000004A0: 32 0D 20 20 20 20 20 20 44 45 43 20 20 31 30 30 |2. DEC 100| 000004B0: 20 20 20 20 3B 50 4F 53 49 54 49 45 0D 20 20 20 | ;POSITIE. | 000004C0: 20 20 20 42 50 4C 20 20 52 4F 50 31 20 20 20 3B | BPL ROP1 ;| 000004D0: 41 46 54 45 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 |AFTELLEN.. | 000004E0: 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 |RTS ;NAA| 000004F0: 52 20 48 4F 4F 46 44 50 52 47 52 2E 0D 20 20 20 |R HOOFDPRGR.. | 00000500: 20 20 20 2E 42 59 54 45 20 24 46 46 2C 24 46 46 | .BYTE $FF,$FF| 00000510: 2C 24 46 46 2C 24 46 46 0D 20 20 20 20 20 20 2E |,$FF,$FF. .| 00000520: 45 4E 44 0D |END. |
IT FILE 1.. JSR 65475 ;* CLOSE*.
JSR 65511 ;* CLALL*. RTS
;NAAR HOOFDPRGR..LAXY STA 002
;RED (A).. JSR 65490 ;(A) OUTPUT.
.LXY TXA ;(X)=>(A).. JSR
65490 ;(A) OUTPUT.. TYA ;
(Y)=>(A).. JSR 65490 ;(A) OUTPUT.
. LDA 002 ;HERSTEL (A).. R
TS ;NAAR HOOFDPRGR..ROPU LDA 2
53 ;BEGINADRES. STA 101 ;VAN
REGEL.. LDA 254. STA 102.
LDA #039 ;POSITIE. STA 100
;AFTEL..ROP1 LDA 56334 ;GEEN TIMER
-. AND #254 ;INTERRUPTS.. S
TA 56334. LDA 001 ;HIRAM OPEN.
. AND #253. STA 001. LDY
#007 ;TRANSPORT NAAR.ROP2 LDA (101)
,Y ;(104)..(111).. TAX. STX 1
04,Y. DEY. BPL ROP2. LDA
001 ;HIRAM DICHT.. ORA #002.
STA 001. LDA 56334 ;WEL TIME
R-. ORA #001 ;INTERRUPTS..
STA 56334. LDY #007 ;TRANSPOSIT
IE.ROP3 LDX #007 ;EN OUTPUT..ROP4 R
OL 104,X. .BYTE $6A. DEX.
BPL ROP4. JSR 65490. DEY.
BPL ROP3. CLC ;VOLGEN
DE. LDA 101 ;POSITIE.. ADC
#008. STA 101. LDA 102.
ADC #000. STA 102. DEC 100
;POSITIE. BPL ROP1 ;AFTELLEN
.. RTS ;NAAR HOOFDPRGR..
.BYTE $FF,$FF,$FF,$FF. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL