SOURCE.16KVDCRAM
FILE INFORMATION
FILENAME(S): SOURCE.16KVDCRAM
FILE TYPE(S): SEQ
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 01:13:11
APPEARS ON: 2 disk(s)
FILE HASH
1400a9c6c59c7ba4e6b2047a1e6e96295fb58ea3cad60988657da743383f74b0
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10911 SEITE A | SOURCE.16KVDCRAM | SEQ | C64er | 8 | 11 | DOWNLOAD FILE |
| 10911 SEITE A | SOURCE.16KVDCRAM | SEQ | DuncanTwain | 8 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 4F 52 47 20 35 33 31 30 30 0D 3B 2D 2D 2D 2D 2D |ORG 53100.;-----| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 31 36 4B 20 56 |---------.;16K V| 00000040: 44 43 20 52 41 4D 20 2D 20 54 4F 4F 4C 20 20 42 |DC RAM - TOOL B| 00000050: 59 20 20 4B 4C 41 55 53 20 48 45 47 45 4D 41 4E |Y KLAUS HEGEMAN| 00000060: 4E 20 31 39 38 39 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D |N 1989.;--------| 00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000090: 2D 2D 2D 2D 2D 2D 0D 3A 5A 45 52 4F 20 3D 20 32 |------.:ZERO = 2| 000000A0: 35 31 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 |51.. | 000000B0: 20 20 4A 53 52 20 24 41 45 46 44 20 20 20 3B 56 | JSR $AEFD ;V| 000000C0: 44 43 20 41 4E 46 47 2E 0D 20 20 20 20 20 20 20 |DC ANFG.. | 000000D0: 20 20 20 20 20 20 20 4A 53 52 20 24 41 39 36 42 | JSR $A96B| 000000E0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C |. L| 000000F0: 44 41 20 24 31 34 0D 20 20 20 20 20 20 20 20 20 |DA $14. | 00000100: 20 20 20 20 20 4C 44 58 20 24 31 35 0D 20 20 20 | LDX $15. | 00000110: 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 4C | STA L| 00000120: 4F 57 2B 31 0D 20 20 20 20 20 20 20 20 20 20 20 |OW+1. | 00000130: 20 20 20 53 54 58 20 48 49 47 48 2B 31 0D 20 20 | STX HIGH+1. | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 | JSR | 00000150: 5A 45 52 4F 53 45 54 0D 20 20 20 20 20 20 20 20 |ZEROSET. | 00000160: 20 20 20 20 20 20 4A 53 52 20 24 41 45 46 44 20 | JSR $AEFD | 00000170: 20 20 3B 41 4E 46 47 2E 0D 20 20 20 20 20 20 20 | ;ANFG.. | 00000180: 20 20 20 20 20 20 20 4A 53 52 20 24 41 39 36 42 | JSR $A96B| 00000190: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C |. L| 000001A0: 44 41 20 24 31 34 0D 20 20 20 20 20 20 20 20 20 |DA $14. | 000001B0: 20 20 20 20 20 4C 44 58 20 24 31 35 0D 20 20 20 | LDX $15. | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 5A | STA Z| 000001D0: 45 52 4F 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ERO. | 000001E0: 20 20 53 54 58 20 5A 45 52 4F 2B 31 0D 20 20 20 | STX ZERO+1. | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 | JSR $| 00000200: 41 45 46 44 20 20 20 3B 45 4E 44 45 0D 20 20 20 |AEFD ;ENDE. | 00000210: 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 | JSR $| 00000220: 42 37 45 42 0D 20 20 20 20 20 20 20 20 20 20 20 |B7EB. | 00000230: 20 20 20 43 50 58 20 23 30 0D 20 20 20 20 20 20 | CPX #0. | 00000240: 20 20 20 20 20 20 20 20 42 4E 45 20 57 52 49 54 | BNE WRIT| 00000250: 45 0D 0D 3A 52 45 41 44 20 20 20 20 20 20 20 20 |E..:READ | 00000260: 20 4A 53 52 20 56 44 43 47 45 54 0D 20 20 20 20 | JSR VDCGET. | 00000270: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 | LDY #0| 00000280: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 |. S| 00000290: 54 41 20 28 5A 45 52 4F 29 2C 59 0D 20 20 20 20 |TA (ZERO),Y. | 000002A0: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 45 52 | JSR ER| 000002B0: 48 4F 45 48 45 52 45 52 0D 20 20 20 20 20 20 20 |HOEHERER. | 000002C0: 20 20 20 20 20 20 20 4A 4D 50 20 52 45 41 44 0D | JMP READ.| 000002D0: 0D 3A 57 52 49 54 45 20 20 20 20 20 20 20 20 4C |.:WRITE L| 000002E0: 44 59 20 23 30 0D 20 20 20 20 20 20 20 20 20 20 |DY #0. | 000002F0: 20 20 20 20 4C 44 41 20 28 5A 45 52 4F 29 2C 59 | LDA (ZERO),Y| 00000300: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C |. L| 00000310: 44 59 20 23 33 31 0D 20 20 20 20 20 20 20 20 20 |DY #31. | 00000320: 20 20 20 20 20 4A 53 52 20 56 44 43 50 55 54 0D | JSR VDCPUT.| 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4A 53 | JS| 00000340: 52 20 45 52 48 4F 45 48 45 52 45 52 0D 20 20 20 |R ERHOEHERER. | 00000350: 20 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 57 | JMP W| 00000360: 52 49 54 45 0D 0D 3A 45 52 48 4F 45 48 45 52 45 |RITE..:ERHOEHERE| 00000370: 52 20 20 20 4C 44 41 20 5A 45 52 4F 0D 20 20 20 |R LDA ZERO. | 00000380: 20 20 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 | CLC. | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 41 44 43 | ADC| 000003A0: 20 23 31 0D 20 20 20 20 20 20 20 20 20 20 20 20 | #1. | 000003B0: 20 20 53 54 41 20 5A 45 52 4F 0D 20 20 20 20 20 | STA ZERO. | 000003C0: 20 20 20 20 20 20 20 20 20 42 43 43 20 4E 4F 50 | BCC NOP| 000003D0: 4C 55 53 0D 20 20 20 20 20 20 20 20 20 20 20 20 |LUS. | 000003E0: 20 20 49 4E 43 20 5A 45 52 4F 2B 31 0D 3A 4E 4F | INC ZERO+1.:NO| 000003F0: 50 4C 55 53 20 20 20 20 20 20 20 4C 44 41 20 5A |PLUS LDA Z| 00000400: 45 52 4F 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ERO. | 00000410: 20 20 43 4D 50 20 24 31 34 0D 20 20 20 20 20 20 | CMP $14. | 00000420: 20 20 20 20 20 20 20 20 42 4E 45 20 4C 4F 41 44 | BNE LOAD| 00000430: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C |. L| 00000440: 44 41 20 5A 45 52 4F 2B 31 0D 20 20 20 20 20 20 |DA ZERO+1. | 00000450: 20 20 20 20 20 20 20 20 43 4D 50 20 24 31 35 0D | CMP $15.| 00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 4E | BN| 00000470: 45 20 4C 4F 41 44 0D 20 20 20 20 20 20 20 20 20 |E LOAD. | 00000480: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 | PLA. | 00000490: 20 20 20 20 20 20 20 50 4C 41 0D 3A 4C 4F 41 44 | PLA.:LOAD| 000004A0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3A 56 | RTS..:V| 000004B0: 44 43 47 45 54 20 20 20 20 20 20 20 4C 44 59 20 |DCGET LDY | 000004C0: 23 33 31 0D 20 20 20 20 20 20 20 20 20 20 20 20 |#31. | 000004D0: 20 20 53 54 59 20 24 44 36 30 30 0D 3A 47 57 41 | STY $D600.:GWA| 000004E0: 49 54 20 20 20 20 20 20 20 20 42 49 54 20 24 44 |IT BIT $D| 000004F0: 36 30 30 0D 20 20 20 20 20 20 20 20 20 20 20 20 |600. | 00000500: 20 20 42 50 4C 20 47 57 41 49 54 0D 20 20 20 20 | BPL GWAIT. | 00000510: 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 44 | LDA $D| 00000520: 36 30 31 0D 20 20 20 20 20 20 20 20 20 20 20 20 |601. | 00000530: 20 20 52 54 53 0D 3A 5A 45 52 4F 53 45 54 20 20 | RTS.:ZEROSET | 00000540: 20 20 20 20 4C 44 41 20 23 38 30 0D 20 20 20 20 | LDA #80. | 00000550: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 31 | LDY #1| 00000560: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4A |. J| 00000570: 53 52 20 56 44 43 50 55 54 0D 20 20 20 20 20 20 |SR VDCPUT. | 00000580: 20 20 20 20 20 20 20 20 4C 44 41 20 23 34 37 0D | LDA #47.| 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 44 | LD| 000005A0: 59 20 23 32 38 0D 20 20 20 20 20 20 20 20 20 20 |Y #28. | 000005B0: 20 20 20 20 4A 53 52 20 56 44 43 50 55 54 0D 3A | JSR VDCPUT.:| 000005C0: 48 49 47 48 20 20 20 20 20 20 20 20 20 4C 44 41 |HIGH LDA| 000005D0: 20 23 30 0D 20 20 20 20 20 20 20 20 20 20 20 20 | #0. | 000005E0: 20 20 4C 44 59 20 23 31 38 0D 20 20 20 20 20 20 | LDY #18. | 000005F0: 20 20 20 20 20 20 20 20 4A 53 52 20 56 44 43 50 | JSR VDCP| 00000600: 55 54 0D 3A 4C 4F 57 20 20 20 20 20 20 20 20 20 |UT.:LOW | 00000610: 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 | LDA #0. | 00000620: 20 20 20 20 20 20 49 4E 59 0D 3A 56 44 43 50 55 | INY.:VDCPU| 00000630: 54 20 20 20 20 20 20 20 53 54 59 20 24 44 36 30 |T STY $D60| 00000640: 30 0D 3A 50 57 41 49 54 20 20 20 20 20 20 20 20 |0.:PWAIT | 00000650: 42 49 54 20 24 44 36 30 30 0D 20 20 20 20 20 20 |BIT $D600. | 00000660: 20 20 20 20 20 20 20 20 42 50 4C 20 50 57 41 49 | BPL PWAI| 00000670: 54 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T. | 00000680: 53 54 41 20 24 44 36 30 31 0D 20 20 20 20 20 20 |STA $D601. | 00000690: 20 20 20 20 20 20 20 20 52 54 53 0D 20 | RTS. |
ORG 53100.;-----------------------------
-----------------.;16K VDC RAM - TOOL B
Y KLAUS HEGEMANN 1989.;----------------
------------------------------.:ZERO = 2
51.. JSR $AEFD ;VDC ANFG.
. JSR $A96B. L
DA $14. LDX $15.
STA LOW+1. STX HIGH+1.
JSR ZEROSET. JS
R $AEFD ;ANFG.. JSR $A96B
. LDA $14. LDX
$15. STA ZERO.
STX ZERO+1. JSR $AEFD ;
ENDE. JSR $B7EB.
CPX #0. BNE WRITE..:READ
JSR VDCGET. LDY #0
. STA (ZERO),Y.
JSR ERHOEHERER. JMP READ.
.:WRITE LDY #0. LDA
(ZERO),Y. LDY #31.
JSR VDCPUT. JSR ERHOEH
ERER. JMP WRITE..:ERHOEHERE
R LDA ZERO. CLC.
ADC #1. STA ZERO.
BCC NOPLUS. INC ZE
RO+1.:NOPLUS LDA ZERO.
CMP $14. BNE LOAD.
LDA ZERO+1. CMP $15.
BNE LOAD. PLA
. PLA.:LOAD RTS..:V
DCGET LDY #31. STY $D
600.:GWAIT BIT $D600.
BPL GWAIT. LDA $D601.
RTS.:ZEROSET LDA #80.
LDY #1. JSR VDCPU
T. LDA #47. LD
Y #28. JSR VDCPUT.:HIGH
LDA #0. LDY #18.
JSR VDCPUT.:LOW LDA #0.
INY.:VDCPUT STY $D60
0.:PWAIT BIT $D600.
BPL PWAIT. STA $D601.
RTS.
> CLICK IMAGE PREVIEW FOR FULL MODAL