2015-06-03 18:30:57 +00:00
|
|
|
|
PR#3
|
|
|
|
|
|
PREFIX /A2OSX.SRC
|
|
|
|
|
|
NEW
|
|
|
|
|
|
INC 1
|
|
|
|
|
|
AUTO 6
|
|
|
|
|
|
.LIST OFF
|
|
|
|
|
|
*--------------------------------------
|
2016-09-21 15:20:37 +00:00
|
|
|
|
* K.LoadDrvYA
|
2015-06-03 18:30:57 +00:00
|
|
|
|
* in :
|
2016-08-17 06:25:58 +00:00
|
|
|
|
* Y,A = PTR To Full Cmd Line PStrArray
|
2015-06-03 18:30:57 +00:00
|
|
|
|
* out :
|
|
|
|
|
|
* none
|
|
|
|
|
|
*--------------------------------------
|
2016-09-21 15:20:37 +00:00
|
|
|
|
K.LoadDrvYA >STYA K.LoadDrv.CmdArray
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
|
|
|
|
|
>LDYAI ENV.DRV push ENVNAME=DRV
|
2016-10-24 15:54:43 +00:00
|
|
|
|
>SYSCALL GetEnvYA get value for ENV=DRV
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bcs .99
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
>PUSHYA Push $DRV value
|
|
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
>PUSHW K.LoadDrv.CmdArray (ARG[0] = DRVNAME)
|
2016-06-07 06:10:18 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
jsr K.FileSearch find libname in $DRV
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bcs .99
|
2016-09-21 15:20:37 +00:00
|
|
|
|
stx K.LoadDrv.hFullName
|
2016-10-03 15:59:36 +00:00
|
|
|
|
|
2016-09-30 06:24:52 +00:00
|
|
|
|
jsr K.LoadExeYA Y,A =filename full path
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bcs .98
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2016-03-18 07:25:43 +00:00
|
|
|
|
>STYA pDrv
|
2016-09-21 15:20:37 +00:00
|
|
|
|
stx K.LoadDrv.hMem
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
>LDYA K.LoadDrv.CmdArray Advance to ARG[1]
|
2016-08-17 06:25:58 +00:00
|
|
|
|
>STYA ZPQuickPtr1
|
|
|
|
|
|
|
|
|
|
|
|
lda ZPQuickPtr1
|
|
|
|
|
|
sec
|
|
|
|
|
|
adc (ZPQuickPtr1)
|
|
|
|
|
|
sta ZPQuickPtr1
|
|
|
|
|
|
bcc .1
|
|
|
|
|
|
inc ZPQuickPtr1+1
|
|
|
|
|
|
|
|
|
|
|
|
.1 >LDYA ZPQuickPtr1
|
2016-10-04 16:01:07 +00:00
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
jsr pDrvJmp call Dev.Detect
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bcs .97
|
2016-10-04 16:01:07 +00:00
|
|
|
|
|
2016-09-27 15:51:59 +00:00
|
|
|
|
jsr BIN.InstallDRV
|
2016-06-23 15:56:13 +00:00
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bcs .97
|
2015-06-03 18:30:57 +00:00
|
|
|
|
ldy #S.DEV.F
|
|
|
|
|
|
lda (pDev),y
|
|
|
|
|
|
ora #S.DEV.F.INUSE
|
|
|
|
|
|
sta (pDev),y
|
|
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
jsr .97 Cleanup...
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
lda #0 Make sure RC = 0 if success
|
|
|
|
|
|
clc
|
|
|
|
|
|
.99 rts
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
.97 pha
|
2016-09-21 15:20:37 +00:00
|
|
|
|
lda K.LoadDrv.hMem
|
|
|
|
|
|
jsr K.FreeMemA
|
2015-06-03 18:30:57 +00:00
|
|
|
|
pla
|
|
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
.98 pha
|
2016-09-21 15:20:37 +00:00
|
|
|
|
lda K.LoadDrv.hFullName
|
|
|
|
|
|
jsr K.FreeMemA
|
2015-06-03 18:30:57 +00:00
|
|
|
|
pla
|
2016-08-17 06:25:58 +00:00
|
|
|
|
sec
|
2015-06-03 18:30:57 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2016-09-21 15:20:37 +00:00
|
|
|
|
K.LoadDrv.CmdArray .BS 2
|
|
|
|
|
|
K.LoadDrv.hFullName .BS 1
|
|
|
|
|
|
K.LoadDrv.hMem .BS 1
|
2015-06-03 18:30:57 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE SYS/KERNEL.S.DRV
|
|
|
|
|
|
LOAD SYS/KERNEL.S
|
|
|
|
|
|
ASM
|
