mirror of
https://github.com/A2osX/A2osX.git
synced 2024-12-01 14:50:10 +00:00
595 lines
14 KiB
Plaintext
595 lines
14 KiB
Plaintext
NEW
|
||
PREFIX
|
||
AUTO 4,1
|
||
.LIST OFF
|
||
.OP 65C02
|
||
.OR $2000
|
||
.TF SYS/KM.RAMWORKS
|
||
*--------------------------------------
|
||
.INB INC/MACROS.I
|
||
.INB INC/IO.I
|
||
.INB INC/MONITOR.I
|
||
.INB INC/MLI.I
|
||
.INB INC/MLI.E.I
|
||
*--------------------------------------
|
||
TmpPtr1 .EQ $0
|
||
TmpPtr2 .EQ $2
|
||
*--------------------------------------
|
||
RW.SAVEZP0 .EQ $800
|
||
RW.SAVEZP1 .EQ $900
|
||
*--------------------------------------
|
||
RW.BLOCK .EQ $A00
|
||
*--------------------------------------
|
||
* A2OSX.SYSTEM relocated at $1000 !!!
|
||
*--------------------------------------
|
||
RWBankSelect .EQ $C073
|
||
*--------------------------------------
|
||
RW.Init >LDYAI RW.MSG
|
||
jsr PrintFYA
|
||
jsr RW.Detect1
|
||
bcs .10
|
||
|
||
>LDYAI RW.MSG.OK
|
||
jsr PrintFYA
|
||
rts
|
||
|
||
.10 jsr RW.Detect2
|
||
bcc .1
|
||
>LDYAI RW.MSG.KO1
|
||
jsr PrintFYA
|
||
rts
|
||
.1 pha Push Page count
|
||
|
||
lsr divide by 4 to compute KB size
|
||
ror .11+1
|
||
lsr
|
||
ror .11+1
|
||
|
||
.11 ldx #$00
|
||
phx Push Kbyte LO
|
||
pha Push Kbyte HI
|
||
|
||
>LDYAI RW.MSG.OK1
|
||
jsr PrintFYA
|
||
|
||
jsr RW.Install
|
||
bcc .2
|
||
|
||
>LDYAI RW.MSG.KO2
|
||
jsr PrintFYA
|
||
rts
|
||
|
||
.2 >LDYAI RW.MSG.OK2
|
||
jsr PrintFYA
|
||
|
||
jsr RW.Format
|
||
bcc .3
|
||
|
||
>LDYAI RW.MSG.KO3
|
||
jsr PrintFYA
|
||
rts
|
||
.3 >LDYAI RW.MSG.OK3
|
||
jsr PrintFYA
|
||
rts
|
||
*--------------------------------------
|
||
RW.Detect1 jsr MLI
|
||
.DA #MLIONLINE
|
||
.DA RW.ONLINE
|
||
rts
|
||
*--------------------------------------
|
||
RW.ONLINE .DA #2
|
||
.DA #$B0 Slot 3,Drive 2
|
||
.DA RW.ONLINEBUFFER
|
||
RW.ONLINEBUFFER .BS 16
|
||
*--------------------------------------
|
||
RW.Detect2 php
|
||
sei
|
||
sta SETALTZP
|
||
ldx #0 start detection at page $00
|
||
.1 stx RWBankSelect
|
||
lda 0
|
||
sta RW.SAVEZP0,x save Bank 0 $0000 to prevent ALTZP trash
|
||
lda 1
|
||
sta RW.SAVEZP1,x
|
||
inx
|
||
bpl .1
|
||
lda #0
|
||
.2 sta RWBankSelect
|
||
|
||
*--------------------------------------
|
||
* Added after David Finnigan from macgui.com testing sessions
|
||
*
|
||
pha
|
||
pla
|
||
*
|
||
* to address possibly a timing issue with Accelerators
|
||
*--------------------------------------
|
||
sta 0
|
||
eor #$FF
|
||
sta 1
|
||
eor #$FF
|
||
inc
|
||
bpl .2
|
||
ldx #0
|
||
.3 txa
|
||
sta RWBankSelect
|
||
*--------------------------------------
|
||
* Added after David Finnigan from macgui.com testing sessions
|
||
*
|
||
pha
|
||
pla
|
||
*
|
||
* to address possibly a timing issue with Accelerators
|
||
*--------------------------------------
|
||
|
||
cmp 0
|
||
bne .4
|
||
eor #$FF
|
||
cmp 1
|
||
bne .4
|
||
inx
|
||
bpl .3
|
||
.4 dex we reached 128,last detected page was 127
|
||
ldy #127 X = detected page count
|
||
|
||
.6 sty RWBankSelect
|
||
|
||
lda RW.SAVEZP0,y
|
||
sta 0
|
||
lda RW.SAVEZP1,y
|
||
sta 1
|
||
dey
|
||
bpl .6
|
||
|
||
txa
|
||
stx RW.PGCNT PGCNT = last detected page, as we do -1 for AuxMem
|
||
sta CLRALTZP
|
||
plp
|
||
lda RW.PGCNT
|
||
beq .9
|
||
clc
|
||
rts
|
||
.9 sec
|
||
rts
|
||
*--------------------------------------
|
||
RW.Install lda RRAMWRAMBNK1
|
||
lda RRAMWRAMBNK1
|
||
ldx #RWDRV.SIZE
|
||
.1 lda RWDRV.B.START-1,x
|
||
sta RWDRV.START-1,x
|
||
dex
|
||
bne .1
|
||
lda RW.PGCNT
|
||
lsr
|
||
sta RWDRV.MAXHI+1
|
||
lda #0
|
||
ror
|
||
sta RWDRV.MAXLO+1
|
||
lda RROMBNK1
|
||
sta SETWRITEAUX
|
||
ldx #RWDRVX.SIZE
|
||
.2 lda RWDRVX.B.START-1,x
|
||
sta RWDRVX.START-1,x
|
||
dex
|
||
bne .2
|
||
sta CLRWRITEAUX
|
||
inc DEVCNT
|
||
ldx DEVCNT
|
||
lda #$B0 Slot 3,Drive 2,0=Not Removable, 0=no int, 00=1 Volume
|
||
sta DEVLST,x
|
||
lda #RWDRV.START
|
||
sta DEVPTRS3D2
|
||
lda /RWDRV.START
|
||
sta DEVPTRS3D2+1
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
RW.Format jsr RW.BLOCK.SET00
|
||
lda RW.PGCNT
|
||
lsr
|
||
sta RW.BLOCK2.TB+1
|
||
lda #0
|
||
ror
|
||
sta RW.BLOCK2.TB
|
||
jsr MLI
|
||
.DA #MLIGETTIME
|
||
.DA 0
|
||
ldx #3
|
||
.1 lda DATELO,x
|
||
sta RW.BLOCK2.CT,x
|
||
dex
|
||
bpl .1
|
||
ldx #RW.BLOCK2.END-RW.BLOCK2
|
||
.2 lda RW.BLOCK2-1,x
|
||
sta RW.BLOCK-1,x
|
||
dex
|
||
bne .2
|
||
|
||
jsr MLI Write Block 2,First VOL directory block
|
||
.DA #MLIWRITEBLOCK
|
||
.DA RW.MLIWRITEBLOCK
|
||
bcc .22
|
||
rts
|
||
*--------------------------------------
|
||
.22 jsr RW.BLOCK.SET00
|
||
|
||
lda #2
|
||
sta RW.BLOCK LO byte of previous block pointer
|
||
|
||
inc RW.MLIWRITEBLOCK.BLK
|
||
jsr MLI Write Block 3,Last VOL directory block
|
||
.DA #MLIWRITEBLOCK
|
||
.DA RW.MLIWRITEBLOCK
|
||
bcc .33
|
||
rts
|
||
*--------------------------------------
|
||
.33 lda RW.PGCNT divide RW.PGCNT by 32 to get how many bitmap
|
||
lsr blocks we need :
|
||
lsr 1 page = 128 blocks = 16 bytes
|
||
lsr 32 pages = 512 bytes = 1 Block
|
||
lsr
|
||
lsr
|
||
sta RW.FBITMAPCNT store FULL bitmap block count needed
|
||
|
||
tax
|
||
lda RW.PGCNT
|
||
and #$1F need an extra incomplete bitmap block?
|
||
beq .3
|
||
inx
|
||
.3 stx RW.BITMAPCNT store TOTAL bitmap block needed
|
||
|
||
.4 lda RW.FBITMAPCNT
|
||
beq .49
|
||
dec RW.FBITMAPCNT
|
||
jsr RW.BLOCK.SETFF
|
||
|
||
bra .5
|
||
|
||
.49 jsr RW.BLOCK.SET00
|
||
lda RW.PGCNT
|
||
and #$1F compute incomplete bitmap block
|
||
asl
|
||
asl
|
||
asl
|
||
asl times 16 for byte count
|
||
tay
|
||
lda #$FF
|
||
bcc .42 first half of block only
|
||
ldx #0
|
||
.40 sta RW.BLOCK,x
|
||
inx
|
||
bne .40
|
||
cpy #0
|
||
beq .5
|
||
.41 sta RW.BLOCK+$ff,y
|
||
dey
|
||
bne .41
|
||
bra .5
|
||
.42 sta RW.BLOCK-1,y
|
||
dey
|
||
bne .42
|
||
.5 inc RW.MLIWRITEBLOCK.BLK
|
||
lda RW.MLIWRITEBLOCK.BLK
|
||
cmp #4 Are we writing first volume bitmap ?
|
||
bne .63 no, regular one
|
||
|
||
* lda #$CF Mark Block 0 & 1 free, 2,3 used (vol hdr)
|
||
lda #$0F
|
||
sta RW.BLOCK
|
||
ldy #0
|
||
lda #$8 Start a BLOCK 4 (%00001000)
|
||
ldx RW.BITMAPCNT
|
||
.62 pha
|
||
eor RW.BLOCK,y Mark bitmap blocks as "used"
|
||
sta RW.BLOCK,y
|
||
pla
|
||
dex
|
||
beq .63
|
||
lsr
|
||
bne .62
|
||
lda #$80
|
||
iny
|
||
bra .62
|
||
.63 jsr MLI Write Block 4,5...
|
||
.DA #MLIWRITEBLOCK
|
||
.DA RW.MLIWRITEBLOCK
|
||
bcs .9
|
||
dec RW.BITMAPCNT another bitmap block needed ?
|
||
bne .4
|
||
clc
|
||
.9 rts
|
||
*--------------------------------------
|
||
RW.BLOCK.SETFF lda #$FF
|
||
bra RW.BLOCK.SET
|
||
RW.BLOCK.SET00 lda #$00
|
||
RW.BLOCK.SET ldx #0
|
||
.1 sta RW.BLOCK,x
|
||
sta RW.BLOCK+$100,x
|
||
inx
|
||
bne .1
|
||
rts
|
||
*--------------------------------------
|
||
RW.MLIWRITEBLOCK
|
||
.DA #3
|
||
.DA #$B0 Slot 3,Drive 2
|
||
.DA RW.BLOCK
|
||
RW.MLIWRITEBLOCK.BLK
|
||
.DA 2 Start writing block at #2
|
||
*--------------------------------------
|
||
RW.PGCNT .BS 1
|
||
RW.FBITMAPCNT .BS 1
|
||
RW.BITMAPCNT .BS 1
|
||
*--------------------------------------
|
||
RW.BLOCK2 .DA 0 pointer to previous block
|
||
.DA 3 pointer to next block
|
||
.DA #$F4 $F=Vol Dir Header, 4=name len
|
||
.AS 'RAM3'
|
||
.BS 11 (RAM3 len=4, fill to 15)
|
||
.HS 0000000000000000
|
||
RW.BLOCK2.CT .BS 4 Creation time
|
||
.HS 0100C3270D version/min version/access/EL/EPB
|
||
.DA 0 File Count
|
||
.DA 4 bitmap pointer (Block 2&3 are Volume directory)
|
||
RW.BLOCK2.TB .BS 2 Total Blocks
|
||
RW.BLOCK2.END .EQ *
|
||
*--------------------------------------
|
||
.INB USR/SRC/X.PRINTF.S
|
||
*--------------------------------------
|
||
RW.MSG .AZ "RAMWorks (I,II,III,z-Ram) Driver For A2osX\n"
|
||
RW.MSG.OK .AZ "/RAM3 Device Already Installed.\n"
|
||
RW.MSG.OK1 .AZ "%D KB (%d Pages) Available for RamDrive.\n"
|
||
RW.MSG.KO1 .AZ "Not Detected.\n"
|
||
RW.MSG.OK2 .AZ "RamWorks Driver Installed.\n"
|
||
RW.MSG.KO2 .AZ "RamWorks Driver Install Error.\n"
|
||
RW.MSG.OK3 .AZ "RamWorks Drive Formatted as /RAM3.\n"
|
||
RW.MSG.KO3 .AZ "RamWorks Drive Format Error.\n"
|
||
*--------------------------------------
|
||
* Driver for Ramworks in main LC
|
||
* $FF00 -> $FF9A (Inclusive)
|
||
* $FF58 MUST BE $60 (RTS)
|
||
* DO NOT trash DRV.COMMAND...DRV.BLKNUM as ProDOS
|
||
* reuses it after Block operation
|
||
* A1,A2 are used by Disk II Driver,
|
||
* so we use it safely as Tmp Ptr
|
||
*--------------------------------------
|
||
DRV.A2L .EQ $3E
|
||
DRV.A2H .EQ $3F
|
||
DRV.COMMAND .EQ $42
|
||
DRV.BUFF .EQ $44
|
||
DRV.BLKNUM .EQ $46
|
||
*--------------------------------------
|
||
RWDRV.B.START
|
||
.PH $FF00
|
||
RWDRV.START cld ProDOS will check that byte!!!
|
||
ldy DRV.COMMAND 0 = Status ?
|
||
beq RMDRV.CMDSTATUS
|
||
cpy #3
|
||
beq RWDRV.EXITOK 3 = Format : nothing to do, exit with no error
|
||
bcs RWDRV.IOERR > 3 = Invalid OP, IO error
|
||
|
||
lda DRV.BLKNUM
|
||
sbc RWDRV.MAXLO+1 Carry is Clear
|
||
lda DRV.BLKNUM+1
|
||
sbc RWDRV.MAXHI+1
|
||
bcs RWDRV.IOERR DRV.BLKNUM >= RW.DRV.SIZE, IO error
|
||
lda DRV.BLKNUM Get Back DRV.BLKNUM
|
||
asl compute PAGE = blocknumLO *2
|
||
pha
|
||
lda DRV.BLKNUM+1 compute BANK = blocknumHI *2
|
||
rol
|
||
inc +1 for skipping Aux BANK 0
|
||
plx move page into X
|
||
beq RWDRV.GOAUX move from/to aux page0/1
|
||
cpx #$C0
|
||
bcs RWDRV.GOAUX move from/to aux LC
|
||
*--------------------------------------
|
||
* X=Page($02 -> $BF),A=Bank,Y=CMD
|
||
*--------------------------------------
|
||
* php
|
||
sei Disable IRQ as no vector set in RW Banks
|
||
sta RWBankSelect Select RAMWorks Bank
|
||
sta CLR80STORE make sure SETREADAUX/SETWRITEAUX effective everywhere
|
||
|
||
inx second 256 bytes first
|
||
stx DRV.A2H Use DRV.A1L/H for RAM PTR
|
||
stz DRV.A2L
|
||
inc DRV.BUFF+1
|
||
dey Y=CMD, zero if read
|
||
bne RWDRV.W non zero, go write
|
||
sta SETREADAUX
|
||
ldx #DRV.A2L READ:copy from RAM to BUFF
|
||
lda #DRV.BUFF
|
||
bra RWDRV.RW
|
||
RWDRV.W sta SETWRITEAUX
|
||
ldx #DRV.BUFF
|
||
lda #DRV.A2L WRITE:copy from BUFF to RAM
|
||
dey Make sure Y=0 for main loop below
|
||
|
||
RWDRV.RW stx RWDRV.RW.SRC+1
|
||
sta RWDRV.RW.DST+1
|
||
|
||
ldx #2 2 pages to copy
|
||
|
||
RWDRV.RW.SRC lda ($FF),y
|
||
RWDRV.RW.DST sta ($FF),y
|
||
iny
|
||
bne RWDRV.RW.SRC
|
||
|
||
.HS 24 BIT Zero Page to skip RTS
|
||
RWDRV.RTS rts $FF58 Must Be RTS
|
||
|
||
dec DRV.BUFF+1
|
||
dec DRV.A2H
|
||
dex
|
||
bne RWDRV.RW.SRC
|
||
|
||
stz RWBankSelect
|
||
sta CLRREADAUX
|
||
sta CLRWRITEAUX
|
||
* plp
|
||
cli
|
||
|
||
RMDRV.CMDSTATUS
|
||
RWDRV.MAXLO ldx #$FF return device block count in X,Y...
|
||
RWDRV.MAXHI ldy #$FF
|
||
RWDRV.EXITOK lda #0 make A=0
|
||
clc
|
||
rts
|
||
RWDRV.IOERR lda #MLI.E.IO Carry already set
|
||
rts
|
||
*--------------------------------------
|
||
* X=Page(0/1 or LC),A=Bank
|
||
*--------------------------------------
|
||
RWDRV.GOAUX pha save BANK
|
||
sta SETWRITEAUX
|
||
|
||
ldy #RWDRVX.XM.SIZE Backup begining of $300 to generate move code
|
||
.1 lda RWDRV.XM.RUN-1,y
|
||
sta RWDRVX.XM.SAVE-1,y
|
||
dey
|
||
bne .1
|
||
pla restore BANK
|
||
sta SETREADAUX
|
||
jsr RWDRVX.START Setup Code in main mem at $300 for data move
|
||
* returns : CC=WRITE, CS=READ
|
||
sta CLRREADAUX CLRWRITEAUX already triggered by code copy
|
||
jsr RWDRV.XM.RUN Now execute generated code in main memory
|
||
sta SETREADAUX
|
||
jsr RWDRVX.RESTORE
|
||
sta CLRREADAUX
|
||
rts A & carry setup properly by RWDRVX.RESTORE
|
||
RWDRV.END .EP
|
||
RWDRV.B.END
|
||
RWDRV.SIZE .EQ RWDRV.B.END-RWDRV.B.START
|
||
*--------------------------------------
|
||
* Driver for Ramworks in aux memory
|
||
* $0200 -> $02FF TMP buffer for PAGE copy
|
||
* $0300 -> $03FD (Inclusive)
|
||
* do not trash $03FE-$03FF (IRQ Vector)
|
||
* X=Page(0/1 or LC),A=Bank
|
||
*--------------------------------------
|
||
RMDRVX.TMP .EQ $200
|
||
RWDRV.XM.RUN .EQ $300
|
||
*--------------------------------------
|
||
RWDRVX.B.START
|
||
.PH $0300
|
||
RWDRVX.START sta RWDRVX.XM.BANK+1 setup BANK
|
||
txa
|
||
beq .1 page 0/1, no need to check BANK
|
||
cmp #$D0 $C0 <= PAGE < $D0 ?
|
||
bcs .1 no, store in BNK1
|
||
ora #$10 Remap $C0 page to $D0 BNK2
|
||
.1 ror RWDRVX.XM.RWLC+1 Save Carry to select proper RW bank later
|
||
ldy DRV.BUFF
|
||
ldx DRV.BUFF+1
|
||
lsr DRV.COMMAND DRV.COMMAND: 1=READ,2=WRITE
|
||
bcc .2 CC=WRITE, CS=READ
|
||
stz RWDRVX.XM.SRC+1 READ from src LO = 0
|
||
sta RWDRVX.XM.SRC+2 READ from src HI = PAGE
|
||
sty RWDRVX.XM.DST+1 WRITE to DRV.BUFF
|
||
stx RWDRVX.XM.DST+2
|
||
bra .3
|
||
.2 sty RWDRVX.XM.SRC+1 READ from DRV.BUFF
|
||
stx RWDRVX.XM.SRC+2
|
||
stz RWDRVX.XM.DST+1 WRITE to dst LO = 0
|
||
sta RWDRVX.XM.DST+2 WRITE to dst HI = PAGE
|
||
.3 sta CLRWRITEAUX
|
||
|
||
ldy #RWDRVX.XM.SIZE
|
||
.4 lda RWDRVX.XM.START-1,y
|
||
sta RWDRV.XM.RUN-1,y
|
||
dey
|
||
bne .4
|
||
rts
|
||
*--------------------------------------
|
||
* Called form Main LC after RWDRVX.XM execution
|
||
*--------------------------------------
|
||
RWDRVX.RESTORE ldy #RWDRVX.XM.SIZE Now, restore begining of $300
|
||
.1 lda RWDRVX.XM.SAVE-1,y
|
||
sta RWDRV.XM.RUN-1,y
|
||
dey
|
||
bne .1
|
||
tya setup A=0 and CC for exit with non error
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
* "auXMove" Code, moved from Aux to main $300
|
||
* $0200 -> $02FF TMP buffer for 2 steps moving between LCs
|
||
* CC=WRITE :
|
||
* CS=READ :
|
||
*--------------------------------------
|
||
RWDRVX.XM.START php
|
||
sei
|
||
|
||
ldx #0
|
||
ldy #2 2 pages to copy
|
||
|
||
RWDRVX.XM.COPY jsr RWDRV.XM.RUN+RWDRVX.XM.MNLC-RWDRVX.XM.START WRITE:copy from MAIN to TMP
|
||
bcc RWDRVX.XM.SRC CC=WRITE,CS=READ?
|
||
jsr RWDRV.XM.RUN+RWDRVX.XM.RWLC-RWDRVX.XM.START READ:copy from BANK to TMP
|
||
sta SETALTZP
|
||
|
||
RWDRVX.XM.SRC lda $FFFF,x
|
||
sta RMDRVX.TMP,x
|
||
inx
|
||
bne RWDRVX.XM.SRC
|
||
sta CLRALTZP
|
||
jsr RWDRV.XM.RUN+RWDRVX.XM.MNLC-RWDRVX.XM.START READ:copy from TMP to MAIN
|
||
|
||
bcs RWDRVX.XM.1 CC=WRITE,CS=READ?
|
||
jsr RWDRV.XM.RUN+RWDRVX.XM.RWLC-RWDRVX.XM.START WRITE:copy from TMP to BANK
|
||
sta SETALTZP
|
||
RWDRVX.XM.1 lda RMDRVX.TMP,x
|
||
RWDRVX.XM.DST sta $FFFF,x
|
||
inx
|
||
bne RWDRVX.XM.1
|
||
sta CLRALTZP
|
||
|
||
inc RWDRV.XM.RUN+RWDRVX.XM.SRC+2-RWDRVX.XM.START
|
||
inc RWDRV.XM.RUN+RWDRVX.XM.DST+2-RWDRVX.XM.START
|
||
dey
|
||
bne RWDRVX.XM.COPY
|
||
plp
|
||
|
||
RWDRVX.XM.MNLC stz RWBankSelect ProDOS always uses LCBANK1
|
||
bit RRAMWRAMBNK1
|
||
bit RRAMWRAMBNK1
|
||
rts
|
||
RWDRVX.XM.RWLC lda #$FF
|
||
bpl RWDRVX.XM.BANK
|
||
bit RRAMWRAMBNK2
|
||
bit RRAMWRAMBNK2
|
||
RWDRVX.XM.BANK lda #$FF
|
||
sta RWBankSelect
|
||
rts
|
||
RWDRVX.XM.END
|
||
*--------------------------------------
|
||
RWDRVX.XM.SIZE .EQ RWDRVX.XM.END-RWDRVX.XM.START
|
||
*--------------------------------------
|
||
RWDRVX.XM.SAVE .BS RWDRVX.XM.SIZE
|
||
*--------------------------------------
|
||
.EP
|
||
*--------------------------------------
|
||
RWDRVX.B.END
|
||
RWDRVX.SIZE .EQ RWDRVX.B.END-RWDRVX.B.START
|
||
*--------------------------------------
|
||
* CONTROL SECTION :
|
||
*--------------------------------------
|
||
.DO RWDRV.RTS=$FF58
|
||
.ELSE
|
||
ERROR:RWDRV.RTS <> $FF58
|
||
.FIN
|
||
.DO RWDRV.SIZE>$9B
|
||
ERROR:RWDRV.SIZE too big
|
||
.FIN
|
||
.DO RWDRVX.SIZE>$FE
|
||
ERROR:RWDRVX.SIZE too big
|
||
.FIN
|
||
.DO RWDRVX.XM.SIZE>$F0
|
||
ERROR:RWDRVX.XM.SIZE too big
|
||
.FIN
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE USR/SRC/SYS/KM.RAMWORKS.S
|
||
ASM
|