mirror of
https://github.com/A2osX/A2osX.git
synced 2024-12-01 14:50:10 +00:00
424 lines
9.2 KiB
Plaintext
424 lines
9.2 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
* LoadLib
|
||
* in :
|
||
* Y,A = PTR To "LibName" C-String
|
||
* out :
|
||
* A = hMem To loaded LIB
|
||
*--------------------------------------
|
||
K.LoadLib jsr PS.Find.LIB
|
||
bcs .9
|
||
jsr BIN.Load K.Buf256 = "/PATH/BIN"
|
||
bcs .9
|
||
>STYA .1+1
|
||
|
||
txa Pass hLib to LibLoad
|
||
ldx #LIBMGR.LOAD
|
||
.1 jsr $ffff SELF MODIFIED, Call LIB.LOAD function
|
||
bcs BIN.Load.Cleanup
|
||
|
||
lda BIN.hMem
|
||
* clc
|
||
.9 rts
|
||
*--------------------------------------
|
||
* UnloadLib
|
||
* in :
|
||
* A = hMem To Lib
|
||
* out :
|
||
*--------------------------------------
|
||
K.UnloadLib pha
|
||
jsr K.GetMemPtr
|
||
>STYA .2+1
|
||
|
||
ldy #S.MEM.REFCNT
|
||
lda (ZPMemMgrSPtr),y
|
||
dec
|
||
bne .8
|
||
|
||
ldx #LIBMGR.UNLOAD
|
||
.2 jsr $ffff Self Modified, Call LIB.UNLOAD function
|
||
pla
|
||
jmp K.FreeMem
|
||
|
||
.8 sta (ZPMemMgrSPtr),y
|
||
pla
|
||
* clc
|
||
rts
|
||
*/--------------------------------------
|
||
* # LoadDrv
|
||
* ## ASM
|
||
* **In:**
|
||
* Y,A = PTR to "NAME.DRV [PARAM]" C-String
|
||
* ## RETURN VALUE
|
||
* none
|
||
*\--------------------------------------
|
||
K.LoadDrv >STYA .2+1 Save "BIN\0ARGS\0\0"
|
||
|
||
jsr PS.Find.DRV
|
||
bcs .9
|
||
jsr BIN.Load K.Buf256 = "/PATH/BIN"
|
||
bcs .9
|
||
>STYA .3+1
|
||
|
||
ldx #$ff
|
||
|
||
.1 inx Skip "BIN"
|
||
.2 lda $ffff,x
|
||
bne .1
|
||
txa
|
||
sec
|
||
adc .2+1
|
||
tay
|
||
lda #0
|
||
adc .2+2 Y,A = ARGS
|
||
.3 jsr $ffff SELF MODIFIED, call Dev.Detect
|
||
jsr BIN.Load.Cleanup
|
||
bcs .9
|
||
lda #0 Make sure RC = 0 if success
|
||
* clc
|
||
.9 rts
|
||
BIN.Load.Cleanup
|
||
php
|
||
pha
|
||
lda BIN.hMem
|
||
jsr K.FreeMem
|
||
pla
|
||
plp
|
||
BIN.Load.Cleanup.RTS
|
||
rts
|
||
*--------------------------------------
|
||
* BIN.Load
|
||
* in :
|
||
* K.Buf256 = /BIN/PATH (CSTR)
|
||
* out :
|
||
* Y,A = MEMPTR
|
||
* X = hMem of Code Segment
|
||
*--------------------------------------
|
||
BIN.Load lda A2osX.FSID
|
||
bne .11
|
||
|
||
ldx #$ff
|
||
|
||
.10 inx
|
||
lda K.Buf256,x
|
||
beq .11
|
||
|
||
cmp #'a'
|
||
bcc .10
|
||
|
||
cmp #'z'+1
|
||
bcs .10
|
||
|
||
eor #$20
|
||
sta K.Buf256,x
|
||
bra .10
|
||
|
||
.11 ldx #0
|
||
|
||
.1 cpx Mem.LastSlot
|
||
beq BIN.Load.1
|
||
|
||
inx we will skip Slot 0...
|
||
txa
|
||
jsr MEM.GetMemByID
|
||
lda (ZPMemMgrSPtr)
|
||
bpl .1 In Use?
|
||
|
||
ldy #S.MEM.BIN any BIN PATH in this slot?
|
||
lda (ZPMemMgrSPtr),y
|
||
beq .1
|
||
|
||
jsr K.GetMemPtr X unmodified, get pathname
|
||
>STYA .3+1
|
||
|
||
ldy #0
|
||
|
||
.2 lda K.Buf256,y
|
||
.3 cmp $ffff,y SELF MODIFIED
|
||
bne .1
|
||
|
||
iny
|
||
ora #0
|
||
bne .2
|
||
|
||
stx BIN.hMem save hMem
|
||
txa
|
||
jsr MEM.GetMemByID
|
||
jsr Mem.IncRefCnt
|
||
clc
|
||
jmp MEM.GetMEMPTR Y,A=Ptr
|
||
*--------------------------------------
|
||
* STAT Already called by Filesearch in FindDRV, FindLIB
|
||
* STAT Already called by PS.Load (TXT,BIN,SYS)
|
||
*--------------------------------------
|
||
BIN.Load.1 >PUSHWI K.Buf256
|
||
>PUSHBI O.RDONLY
|
||
>PUSHBI S.FI.T.BIN
|
||
>LDYA K.S.STAT+S.STAT.P.AUXTYPE
|
||
>STYA BIN.R.CS.Start
|
||
>PUSHYA Push AUXTYPE
|
||
jsr K.LoadFile
|
||
bcs .9 Error Loading file
|
||
|
||
stx BIN.hMem save hMem
|
||
|
||
pha YA=CODE+DATA size
|
||
tya
|
||
* clc
|
||
adc BIN.R.CS.Start Get AUXTYPE for actual Base Address
|
||
sta BIN.R.End compute Range End=AUXTYPE+FILELEN
|
||
pla
|
||
adc BIN.R.CS.Start+1
|
||
sta BIN.R.End+1
|
||
|
||
txa
|
||
jsr K.GetMemPtr
|
||
>STYA ZPPtr1 set ZPPtr1 -> New Code start
|
||
|
||
jsr BIN.ComputeOffsetYA YA = actual load address
|
||
|
||
jsr Mem.SetOwnerPS0 this CS is owned by PS 0
|
||
|
||
ldy #H.BIN.CS.SIZE get Code Len
|
||
lda (ZPPtr1),y
|
||
pha
|
||
iny
|
||
lda (ZPPtr1),y
|
||
ply
|
||
jsr BIN.ComputeCSEndYA
|
||
jsr BIN.RelExe
|
||
|
||
>LDYAI K.Buf256 get back bin path
|
||
jsr K.strdup make a copy of this string
|
||
bcs .98
|
||
|
||
jsr Mem.SetOwnerPS0 Make BINPATH owned by PS0
|
||
|
||
lda BIN.hMem Keep X=new string hMem
|
||
jsr MEM.GetMemByID X unmodified
|
||
lda (ZPMemMgrSPtr)
|
||
ora #S.MEM.F.CODE This is a code segment
|
||
sta (ZPMemMgrSPtr)
|
||
|
||
txa Get Back Cmd line hMem
|
||
ldy #S.MEM.BIN
|
||
sta (ZPMemMgrSPtr),y
|
||
ldx BIN.hMem setup X = CS hMem
|
||
clc
|
||
jmp MEM.GetMEMPTR ...and Y,A=PTR to CS
|
||
.98 jmp BIN.Load.Cleanup Discard Loaded Code, exits CS
|
||
.9 rts
|
||
*/--------------------------------------
|
||
* # InsDrv
|
||
* ## C
|
||
* `void * insdrv (void * src, void * crvcsstart, void * drvcssize, void * drvend);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>PUSHW DRV.END`
|
||
* `>PUSHW DRV.CS.SIZE`
|
||
* `>PUSHW DRV.CS.START`
|
||
* `>LDYA L.SRC`
|
||
* `>SYSCALL insdrv`
|
||
* ## RETURN VALUE
|
||
* Y,A = Ptr to installed driver
|
||
*\--------------------------------------
|
||
K.InsDrv >STYA ZPPtr3 SRC PTR for move
|
||
>PULLW BIN.R.CS.Start
|
||
>PULLYA DRV.CS.SIZE
|
||
jsr BIN.ComputeCSEndYA
|
||
>PULLA BIN.R.End
|
||
sta BIN.R.End
|
||
sec
|
||
sbc BIN.R.CS.Start
|
||
tay
|
||
|
||
>PULLA
|
||
sta BIN.R.End+1
|
||
sbc BIN.R.CS.Start+1
|
||
>STYA BIN.R.Size
|
||
jsr MEM.GetKrnlBuf Y,A = CODE + DATA
|
||
bcs .9 No More Room to load Driver
|
||
|
||
>STYA ZPPtr1 Y,A = DST Buf for RelDrv...
|
||
>STYA ZPPtr4 ...for move...
|
||
sty .7+1 ...and for exit
|
||
sta .8+1
|
||
jsr BIN.ComputeOffsetYA
|
||
|
||
lda BIN.R.Size
|
||
eor #$ff
|
||
tax
|
||
lda BIN.R.Size+1
|
||
eor #$ff
|
||
pha
|
||
ldy #0
|
||
.1 inx
|
||
bne .2
|
||
pla
|
||
inc
|
||
beq .3
|
||
pha
|
||
.2 lda (ZPPtr3),y
|
||
sta (ZPPtr4),y
|
||
iny
|
||
bne .1
|
||
inc ZPPtr3+1
|
||
inc ZPPtr4+1
|
||
bra .1
|
||
.3 jsr BIN.RelDrv Relocate at Ptr1
|
||
.7 ldy #$ff SELF MODIFIED
|
||
.8 lda #$ff SELF MODIFIED
|
||
.9 rts
|
||
*--------------------------------------
|
||
BIN.RelExe ldy #H.BIN.T+1
|
||
lda (ZPPtr1),y
|
||
cmp /H.BIN.T.BIN65
|
||
beq .1
|
||
cmp /H.BIN.T.DRV65
|
||
beq .1
|
||
lda #E.IBIN
|
||
sec
|
||
rts
|
||
.1 ldy #H.BIN.JMP relocate Main JMP
|
||
jsr BIN.RelocateAtPtr1Y
|
||
|
||
ldy #H.BIN.EXE.REL.TABLE skip Header, CS.SIZE & DS.SIZE... (16 bytes)
|
||
|
||
.HS 2C bit abs
|
||
*--------------------------------------
|
||
BIN.RelDrv ldy #H.BIN.DRV.REL.TABLE
|
||
|
||
.1 iny
|
||
lda (ZPPtr1),y HI in A
|
||
beq .2 $00xx = end of table
|
||
dey
|
||
jsr BIN.RelocateAtPtr1Y
|
||
|
||
iny
|
||
|
||
bra .1
|
||
*--------------------------------------
|
||
.2 jsr SHARED.AddYp1ToPtr1 add current offset in Y to Ptr
|
||
* + 1 to skip last 00 from beq .2
|
||
* ZPPtr1=Current Code PTR
|
||
lda BIN.R.CS.End
|
||
clc
|
||
adc BIN.R.Offset
|
||
sta BIN.R.Stop
|
||
lda BIN.R.CS.End+1
|
||
adc BIN.R.Offset+1
|
||
sta BIN.R.Stop+1
|
||
|
||
.3 lda (ZPPtr1) get OPCODE
|
||
lsr /2
|
||
tax
|
||
lda BIN.65816,x get OPCODE definition
|
||
bcs .4 go get LO nibble
|
||
lsr
|
||
lsr move HI -> LO
|
||
lsr
|
||
lsr
|
||
.4 and #$0f
|
||
bit #$8 abs addressing?
|
||
beq .5 no....
|
||
and #7 save Opcode length...
|
||
pha
|
||
ldy #1
|
||
jsr BIN.RelocateAtPtr1Y
|
||
pla get back Opcode length...
|
||
|
||
.5 tay A = OPCODE length
|
||
jsr SHARED.AddYToPtr1
|
||
|
||
.6 cmp BIN.R.Stop A = ZPPtr1
|
||
bne .3
|
||
|
||
lda ZPPtr1+1
|
||
.7 cmp BIN.R.Stop+1
|
||
bne .3 next opcode....
|
||
|
||
clc Make sure exit with CC
|
||
rts
|
||
*-------------------------------------- YA = CS Size
|
||
BIN.ComputeCSEndYA
|
||
pha
|
||
tya
|
||
clc
|
||
adc BIN.R.CS.Start
|
||
sta BIN.R.CS.End ZPPtr1 + CodeLen
|
||
pla
|
||
adc BIN.R.CS.Start+1
|
||
sta BIN.R.CS.End+1
|
||
rts
|
||
*-------------------------------------- YA = Target Address
|
||
BIN.ComputeOffSetYA
|
||
pha
|
||
tya
|
||
sec
|
||
sbc BIN.R.CS.Start
|
||
sta BIN.R.Offset
|
||
pla
|
||
sbc BIN.R.CS.Start+1
|
||
sta BIN.R.Offset+1
|
||
rts
|
||
*--------------------------------------
|
||
BIN.RelocateAtPtr1Y
|
||
lda (ZPPtr1),y Get LO
|
||
tax save LO in X
|
||
iny make Y point to HI
|
||
lda (ZPPtr1),y Get HI
|
||
cpx BIN.R.CS.Start
|
||
sbc BIN.R.CS.Start+1
|
||
bcc .9 addr < BIN.R.CS.Start, out of range
|
||
txa Get back LO
|
||
cpx BIN.R.End
|
||
lda (ZPPtr1),y Get HI
|
||
sbc BIN.R.End+1
|
||
bcs .9 addr > BIN.R.End, out of range
|
||
txa Get back LO
|
||
dey
|
||
clc
|
||
adc BIN.R.Offset
|
||
sta (ZPPtr1),y
|
||
|
||
iny
|
||
lda (ZPPtr1),y
|
||
adc BIN.R.Offset+1
|
||
sta (ZPPtr1),y
|
||
.9 rts
|
||
*--------------------------------------
|
||
* 6502/65C02/65816 OPCODES
|
||
* Bit 3 : 1 = absolute addressing
|
||
* Bit 2-1-0 : opcode + @ length
|
||
*--------------------------------------
|
||
* 0.1.2.3.4.5.6.7.8.9.A.B.C.D.E.F
|
||
BIN.65816
|
||
* TO DO : Make 2 different tables
|
||
* http://axis.llx.com/~nparker/a2/opcodes.html
|
||
*--------------------------------------
|
||
* 65R02 OPCODES
|
||
*--------------------------------------
|
||
* 0.1.2.3.4.5.6.7.8.9.A.B.C.D.E.F
|
||
BIN.65R02 .HS 1.2.2.1.2.2.2.2.1.2.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.B.1.1.B.B.B.3
|
||
.HS B.2.2.1.2.2.2.2.1.2.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.B.1.1.B.B.B.3
|
||
.HS 1.2.2.1.2.2.2.2.1.2.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.B.1.1.1.B.B.3
|
||
.HS 1.2.2.1.2.2.2.2.1.2.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.B.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.2.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.B.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.2.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.B.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.2.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.B.1.1.1.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.2.1.1.B.B.B.3
|
||
.HS 2.2.2.1.2.2.2.2.1.B.1.1.1.B.B.3
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE USR/SRC/SYS/KERNEL.S.BIN
|
||
LOAD USR/SRC/SYS/KERNEL.S
|
||
ASM
|