Browse Source

added RAMDOS

master
Michael Steil 3 months ago
parent
commit
9def99f281
4 changed files with 5240 additions and 0 deletions
  1. 2
    0
      RAMDOS/a.src
  2. 225
    0
      RAMDOS/macros.src
  3. 5009
    0
      RAMDOS/ramdos12.src
  4. 4
    0
      README.md

+ 2
- 0
RAMDOS/a.src View File

@@ -0,0 +1,2 @@
.include macros
.include ramdos12

+ 225
- 0
RAMDOS/macros.src View File

@@ -0,0 +1,225 @@
.subttl 16 bit macro definitions
;
ram .macro %a,%b
.ifdef %a
.messg multiple definitions -> curram
.else
%a = curram
.ifb <%b>
curram = curram+1
.else
curram = curram+%b
.endif
.endif
.endm
zpage .macro %a,%b
.ifdef %a
.messg multiple definitions -> curram
.else
%a = curzpg
.ifb <%b>
curzpg = curzpg+1
.else
curzpg = curzpg+%b
.endif
.ifgt curzpg-$100
ERROR- too many zero page variables.....
.endif
.endif
.endm
;
;
; double precision macros
;
;
ldd .macro %a
lda %a ; x,a <= %a
ldx %a+1
.endm
;
std .macro %a
sta %a ; %a <= x,a
stx %a+1
.endm
;
cpd .macro %a
cpx %a+1 ; compare x,a with %a
.ifn >%a
bne *+5
.else
bne *+4
.endif
cmp %a
.endm
;
;
cpi .macro %a
cpx #>%a ; compare x,a with #%a
bne *+4
cmp #<%a
.endm
;
ldi .macro %a
mactmp = %a
lda #<mactmp ; x,a <= #%a
ldx #>mactmp
.endm
;
;
incd .macro %a
inc %a ; inc double precision %a
.ifn >%a
bne *+5
.else
bne *+4
.endif
inc %a+1
.endm
;
decd .macro %a
pha ; dec double precision %a
lda %a
.ifn >%a
bne *+5
.else
bne *+4
.endif
dec %a+1
dec %a
pla
.endm
;
add .macro %a
clc
addc %a
.endm
;
addc .macro %a
adc %a
pha
txa
adc %a+1
tax
pla
.endm
;
addi .macro %a
mactmp = %a
clc
adc #<mactmp
pha
txa
adc #>mactmp
tax
pla
.endm
;
sbd .macro %a
sec
sbdc %a
.endm
;
sbdc .macro %a
sbc %a
pha
txa
sbc %a+1
tax
pla
.endm
;
cmpdr .macro %a,%b,%r ; double compare %a to %b using .%r
ld%r %a+1
cp%r %b+1
.ifn >%a
.ifn >%b
bne *+2+3+3
.else
bne *+2+3+2
.endif
.else
.ifn >%b
bne *+2+2+3
.else
bne *+2+2+2
.endif
.endif
ld%r %a
cp%r %b
.endm
;
cpa .macro %a
cmp %a
.endm
;
phd .macro
pha
txa
pha
.endm
;
pld .macro
pla
tax
pla
.endm
;
adad .macro %a
clc
adc %a
sta %a
.ifn >%a
bcc *+5
.else
bcc *+4
.endif
inc %a+1
.endm
;
zchk .macro %a
lda %a
ora %a+1
.endm
;
;
; entry name,value
; creates a symbol whose name is equal to name_*
; where * is a single char rangeing from 0-9,a-z.
; the value of the symbol is defined in the second arg.
;
; table name,directive,modifier
;
; creates n lines of code where n is the number of times
; entry was called.
; name is the name of the table symbols used in entry.
; directive is the directive for the line ( include the . )
; modifier optionally may contain ">" or other chars to
; to be immediately prepended to symbol name.
;
;
entry .macro %table,%value
flag = 0
.irpc %c,0123456789abcdefghijklomp
.ife flag
.ifndef %table_%c
%table_%c = %value
flag = 1
.endif
.endif
.endr
.ife flag
*** ERROR *** entry macro overflow %table
.endif
.endm
;
table .macro %table
.irpc %c,0123456789abcdefghijklmnop
.ifdef %table_%c
.byte <%table_%c
.endif
.endr
.endm
;


+ 5009
- 0
RAMDOS/ramdos12.src
File diff suppressed because it is too large
View File


+ 4
- 0
README.md View File

@@ -123,6 +123,10 @@ The Commodore 1571 DOS source (3.0, 1986), updated version (310654-05). Extracte

The Commodore 1581 DOS source (10.0, 1987), original version (318045-01). Extracted from 1581-source.d81 from Steve Gray's [Dennis Jarvis Page](http://6502.org/users/sjgray/dj/) and converted to LF line breaks.

## RAMDOS

The C64/C128 RAMDISK DOS V4.3 source (1987). Extracted from [ramdos.zip](http://www.zimmers.net/anonftp/pub/cbm/src/drives/ramdos.zip). This is a version of Commodore DOS running on the C64/C128 for using a REU (RAM Expansion Unit) as a RAM disk.

# Credits

This repository is maintained by Michael Steil, mist64@mac.com

Loading…
Cancel
Save