DIW3
FILE INFORMATION
FILENAME(S): DIW3
FILE TYPE(S): SEQ
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
cd99e9dc296d9851626cbb1949e7731f29a4b87819f13666287ea19d3414b8e6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | DIW3 | SEQ | DuncanTwain | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 2A 3D 24 37 33 37 30 0D 44 49 57 | *=$7370.DIW| 00000010: 58 20 4C 44 58 20 20 24 41 38 20 20 20 20 20 20 |X LDX $A8 | 00000020: 3B 4B 45 20 49 4E 20 52 45 47 2E 58 2E 0D 20 20 |;KE IN REG.X.. | 00000030: 20 20 20 43 50 58 20 20 24 41 37 20 20 20 20 20 | CPX $A7 | 00000040: 20 3B 4B 45 3C 4B 42 3F 0D 20 20 20 20 20 42 43 | ;KE<KB?. BC| 00000050: 53 20 20 20 44 49 30 20 20 20 20 20 3B 4A 41 3A |S DI0 ;JA:| 00000060: 46 4F 55 54 2E 0D 20 20 20 20 20 52 54 53 0D 44 |FOUT.. RTS.D| 00000070: 49 30 20 20 4C 44 41 20 20 24 41 37 20 20 20 20 |I0 LDA $A7 | 00000080: 20 20 3B 4E 45 45 4E 3A 4B 42 20 49 4E 0D 20 20 | ;NEEN:KB IN. | 00000090: 20 20 20 53 54 41 20 20 20 36 39 30 20 20 20 20 | STA 690 | 000000A0: 20 3B 49 4E 47 41 4E 47 53 43 45 4C 2E 0D 20 20 | ;INGANGSCEL.. | 000000B0: 20 20 20 4A 53 52 20 20 24 37 30 39 46 20 20 20 | JSR $709F | 000000C0: 20 3B 5B 4B 54 5D 2D 3E 28 58 54 29 2E 0D 20 20 | ;[KT]->(XT).. | 000000D0: 20 20 20 4C 44 41 20 20 20 36 39 37 20 20 20 20 | LDA 697 | 000000E0: 20 3B 58 45 4C 3D 58 42 4C 2E 0D 20 20 20 20 20 | ;XEL=XBL.. | 000000F0: 53 54 41 20 20 24 32 34 0D 20 20 20 20 20 4C 44 |STA $24. LD| 00000100: 41 20 20 20 36 39 38 20 20 20 20 20 3B 58 45 48 |A 698 ;XEH| 00000110: 3D 58 42 48 2E 0D 20 20 20 20 20 53 54 41 20 20 |=XBH.. STA | 00000120: 24 32 35 0D 20 20 20 20 20 43 50 58 20 20 24 41 |$25. CPX $A| 00000130: 37 20 20 20 20 20 20 3B 4B 45 3D 4B 42 3F 0D 20 |7 ;KE=KB?. | 00000140: 20 20 20 20 42 45 51 20 20 20 44 49 31 20 20 20 | BEQ DI1 | 00000150: 20 20 3B 4A 41 3A 20 44 49 31 2E 0D 20 20 20 20 | ;JA: DI1.. | 00000160: 20 53 54 58 20 20 20 36 39 30 20 20 20 20 20 3B | STX 690 ;| 00000170: 4E 45 45 4E 3A 4B 45 2E 0D 20 20 20 20 20 4A 53 |NEEN:KE.. JS| 00000180: 52 20 20 24 37 30 39 46 20 20 20 20 3B 5B 4B 54 |R $709F ;[KT| 00000190: 5D 2D 3E 28 58 54 29 2E 0D 44 49 31 20 20 4C 44 |]->(XT)..DI1 LD| 000001A0: 59 20 23 24 30 30 20 20 20 20 20 20 3B 59 42 20 |Y #$00 ;YB | 000001B0: 45 56 45 4E 20 52 45 47 2E 59 2E 0D 20 20 20 20 |EVEN REG.Y.. | 000001C0: 20 43 50 58 20 23 24 32 44 20 20 20 20 20 20 3B | CPX #$2D ;| 000001D0: 4B 45 3C 34 35 3F 0D 20 20 20 20 20 42 43 43 20 |KE<45?. BCC | 000001E0: 20 20 44 49 34 20 20 20 20 20 3B 4A 41 3A 20 44 | DI4 ;JA: D| 000001F0: 49 34 2E 0D 20 20 20 20 20 4C 44 41 20 20 24 41 |I4.. LDA $A| 00000200: 37 20 20 20 20 20 20 3B 4E 45 45 3A 4B 42 3C 34 |7 ;NEE:KB<4| 00000210: 35 3F 0D 20 20 20 20 20 43 4D 50 20 23 24 32 44 |5?. CMP #$2D| 00000220: 0D 20 20 20 20 20 42 43 53 20 20 20 44 49 33 20 |. BCS DI3 | 00000230: 20 20 20 20 3B 4E 45 45 3A 44 49 33 2E 0D 20 20 | ;NEE:DI3.. | 00000240: 20 20 20 4A 53 52 20 20 20 58 42 4D 20 20 20 20 | JSR XBM | 00000250: 20 3B 4A 41 3A 20 58 42 2D 33 0D 20 20 20 20 20 | ;JA: XB-3. | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 49 | ;I| 00000270: 4E 20 28 37 30 32 2C 37 30 31 29 2E 0D 20 20 20 |N (702,701).. | 00000280: 20 20 4C 44 41 20 23 24 30 30 20 20 20 20 20 20 | LDA #$00 | 00000290: 3B 30 30 30 0D 20 20 20 20 20 53 54 41 20 20 20 |;000. STA | 000002A0: 37 30 30 20 20 20 20 20 3B 49 4E 20 28 37 30 30 |700 ;IN (700| 000002B0: 29 2E 0D 20 20 20 20 20 4C 44 41 20 23 24 34 30 |).. LDA #$40| 000002C0: 20 20 20 20 20 20 3B 33 32 30 0D 20 20 20 20 20 | ;320. | 000002D0: 53 54 41 20 20 20 37 30 34 20 20 20 20 20 3B 49 |STA 704 ;I| 000002E0: 4E 20 28 37 30 35 2C 37 30 34 29 2E 0D 20 20 20 |N (705,704).. | 000002F0: 20 20 4C 44 41 20 23 24 30 31 0D 20 20 20 20 20 | LDA #$01. | 00000300: 53 54 41 20 20 20 37 30 35 0D 20 20 20 20 20 4C |STA 705. L| 00000310: 44 41 20 23 24 35 46 20 20 20 20 20 20 3B 30 39 |DA #$5F ;09| 00000320: 35 0D 20 20 20 20 20 53 54 41 20 20 20 37 30 33 |5. STA 703| 00000330: 20 20 20 20 20 3B 49 4E 20 28 37 30 33 29 2E 0D | ;IN (703)..| 00000340: 20 20 20 20 20 4A 53 52 20 20 24 37 32 33 30 20 | JSR $7230 | 00000350: 20 20 20 3B 50 4F 45 54 53 20 42 4C 4F 4B 2E 0D | ;POETS BLOK..| 00000360: 20 20 20 20 20 4C 44 41 20 23 24 30 33 20 20 20 | LDA #$03 | 00000370: 20 20 20 3B 30 30 33 0D 20 20 20 20 20 53 54 41 | ;003. STA| 00000380: 20 20 24 32 34 20 20 20 20 20 20 3B 49 4E 20 28 | $24 ;IN (| 00000390: 24 32 35 2C 24 32 34 29 2E 0D 20 20 20 20 20 4C |$25,$24).. L| 000003A0: 44 41 20 23 24 30 30 0D 20 20 20 20 20 53 54 41 |DA #$00. STA| 000003B0: 20 20 24 32 35 0D 44 49 33 20 20 4C 44 59 20 23 | $25.DI3 LDY #| 000003C0: 24 36 38 20 20 20 20 20 20 3B 31 30 34 0D 44 49 |$68 ;104.DI| 000003D0: 34 20 20 53 54 59 20 20 20 37 30 30 20 20 20 20 |4 STY 700 | 000003E0: 20 3B 49 4E 20 28 37 30 30 29 2E 0D 20 20 20 20 | ;IN (700).. | 000003F0: 20 4A 53 52 20 20 20 58 42 4D 20 20 20 20 20 3B | JSR XBM ;| 00000400: 58 42 2D 33 0D 20 20 20 20 20 20 20 20 20 20 20 |XB-3. | 00000410: 20 20 20 20 20 20 20 20 3B 49 4E 20 28 37 30 32 | ;IN (702| 00000420: 2C 37 30 31 29 2E 0D 20 20 20 20 20 43 4C 43 20 |,701).. CLC | 00000430: 20 20 20 20 20 20 20 20 20 20 3B 58 45 2B 33 0D | ;XE+3.| 00000440: 20 20 20 20 20 4C 44 41 20 20 20 36 39 37 20 20 | LDA 697 | 00000450: 20 20 20 3B 49 4E 20 28 37 30 35 2C 37 30 34 29 | ;IN (705,704)| 00000460: 2E 0D 20 20 20 20 20 41 44 43 20 23 24 30 33 0D |.. ADC #$03.| 00000470: 20 20 20 20 20 53 54 41 20 20 20 37 30 34 0D 20 | STA 704. | 00000480: 20 20 20 20 4C 44 41 20 20 20 36 39 38 0D 20 20 | LDA 698. | 00000490: 20 20 20 41 44 43 20 23 24 30 30 0D 20 20 20 20 | ADC #$00. | 000004A0: 20 53 54 41 20 20 20 37 30 35 0D 20 20 20 20 20 | STA 705. | 000004B0: 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B 59 |CLC ;Y| 000004C0: 42 2B 39 35 0D 20 20 20 20 20 4C 44 41 20 20 20 |B+95. LDA | 000004D0: 37 30 30 20 20 20 20 20 3B 49 4E 20 28 37 30 33 |700 ;IN (703| 000004E0: 29 2E 0D 20 20 20 20 20 41 44 43 20 23 24 35 46 |).. ADC #$5F| 000004F0: 0D 20 20 20 20 20 53 54 41 20 20 20 37 30 33 0D |. STA 703.| 00000500: 20 20 20 20 20 4A 53 52 20 20 24 37 32 33 30 20 | JSR $7230 | 00000510: 20 20 20 3B 50 4F 45 54 53 20 42 4C 4F 4B 2E 0D | ;POETS BLOK..| 00000520: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 4E 4F | RTS. NO| 00000530: 50 0D 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |P. NOP. | 00000540: 4E 4F 50 0D 58 42 4D 20 20 53 45 43 20 20 20 20 |NOP.XBM SEC | 00000550: 20 20 20 20 20 20 20 3B 58 42 2D 33 0D 20 20 20 | ;XB-3. | 00000560: 20 20 4C 44 41 20 20 24 32 34 20 20 20 20 20 20 | LDA $24 | 00000570: 3B 49 4E 20 28 37 30 32 2C 37 30 31 29 2E 0D 20 |;IN (702,701).. | 00000580: 20 20 20 20 53 42 43 20 23 24 30 33 0D 20 20 20 | SBC #$03. | 00000590: 20 20 53 54 41 20 20 20 37 30 31 0D 20 20 20 20 | STA 701. | 000005A0: 20 4C 44 41 20 20 24 32 35 0D 20 20 20 20 20 53 | LDA $25. S| 000005B0: 42 43 20 23 24 30 30 0D 20 20 20 20 20 53 54 41 |BC #$00. STA| 000005C0: 20 20 20 37 30 32 0D 20 20 20 20 20 52 54 53 0D | 702. RTS.| 000005D0: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 4E 4F | NOP. NO| 000005E0: 50 0D 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |P. NOP. | 000005F0: 4E 4F 50 0D |NOP. |
*=$7370.DIWX LDX $A8 ;KE IN R
EG.X.. CPX $A7 ;KE<KB?. BC
S DI0 ;JA:FOUT.. RTS.DI0 LDA
$A7 ;NEEN:KB IN. STA 690
;INGANGSCEL.. JSR $709F ;[KT]->
(XT).. LDA 697 ;XEL=XBL..
STA $24. LDA 698 ;XEH=XBH..
STA $25. CPX $A7 ;KE=KB?.
BEQ DI1 ;JA: DI1.. STX 6
90 ;NEEN:KE.. JSR $709F ;[KT
]->(XT)..DI1 LDY #$00 ;YB EVEN REG
.Y.. CPX #$2D ;KE<45?. BCC
DI4 ;JA: DI4.. LDA $A7 ;
NEE:KB<45?. CMP #$2D. BCS DI3
;NEE:DI3.. JSR XBM ;JA: XB
-3. ;IN (702,701)..
LDA #$00 ;000. STA 700
;IN (700).. LDA #$40 ;320.
STA 704 ;IN (705,704).. LDA #$
01. STA 705. LDA #$5F ;09
5. STA 703 ;IN (703).. JSR
$7230 ;POETS BLOK.. LDA #$03
;003. STA $24 ;IN ($25,$24)
.. LDA #$00. STA $25.DI3 LDY #
$68 ;104.DI4 STY 700 ;IN (70
0).. JSR XBM ;XB-3.
;IN (702,701).. CLC
;XE+3. LDA 697 ;IN (705,704)
.. ADC #$03. STA 704. LDA
698. ADC #$00. STA 705.
CLC ;YB+95. LDA 700
;IN (703).. ADC #$5F. STA 703.
JSR $7230 ;POETS BLOK.. RTS
. NOP. NOP. NOP.XBM SEC
;XB-3. LDA $24 ;IN (702
,701).. SBC #$03. STA 701.
LDA $25. SBC #$00. STA 702.
RTS. NOP. NOP. NOP.
NOP.
> CLICK IMAGE PREVIEW FOR FULL MODAL