A2osX/SYS/KERNEL.S.BIN.txt
2023-10-18 07:41:12 +02:00

453 lines
9.3 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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 .99
jsr BIN.Load K.Buf256 = "/PATH/BIN"
bcs .99
>STYA .1+1
txa Pass hLib to LibLoad
pha
ldx #LIBMGR.LOAD
.1 jsr $ffff SELF MODIFIED, Call LIB.LOAD function
plx
bcc .8
pha
txa
jsr K.FreeMem
pla
sec
rts
.8 txa
* clc
.99 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
* 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.Free
bcs .9
lda #0 Make sure RC = 0 if success
* clc
.9 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.CompOfsYA 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.CompCSEndYA
jsr BIN.RelExe
jsr STRING.DupBuf256 get back bin path & jsr K.strdup make a copy of this string
bcs BIN.Load.Free
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
.9 rts
BIN.Load.Free php
pha
lda BIN.hMem
jsr K.FreeMem
pla
plp
rts Discard Loaded Code, exits CS
*/--------------------------------------
* # InsDrv
* ## C
* `void * insdrv (void * src, void * crvcsstart, void * drvcssize, void * drvend);`
* ## ASM
* `>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.CompCSEndYA
>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.GetKBuf 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.CompOfsYA
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.RelAtPtr1Y
ldy #16 skip Header, CS.SIZE & DS.SIZE... (16 bytes)
.HS 2C bit abs
*--------------------------------------
BIN.RelDrv ldy #2 start after CLD JMP
.1 iny
lda (ZPPtr1),y HI in A
beq .2 $00xx = end of table
dey
jsr BIN.RelAtPtr1Y
iny
bne .1
inc ZPPtr1+1
bra .1
*--------------------------------------
.2 jsr SHARED.AddYp12P1 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.65R02,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.RelAtPtr1Y
pla get back Opcode length...
.5 tay A = OPCODE length
jsr SHARED.AddY2P1
.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.CompCSEndYA 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.CompOfsYA 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.RelAtPtr1Y 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