2015-06-03 18:30:57 +00:00
|
|
|
|
PR#3
|
2017-03-29 15:48:15 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
2017-03-15 16:44:15 +00:00
|
|
|
|
LOMEM $A00
|
2015-06-03 18:30:57 +00:00
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
*--------------------------------------
|
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
|
2017-03-29 15:48:15 +00:00
|
|
|
|
>SYSCALL GetEnvYA get value for ENV=DRV
|
2017-04-13 20:59:25 +00:00
|
|
|
|
bcs .9
|
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
|
|
|
|
|
2017-04-13 20:59:25 +00:00
|
|
|
|
jsr K.FileSearch find Driver in $DRV
|
|
|
|
|
bcs .9
|
|
|
|
|
stx .99+1
|
|
|
|
|
|
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
|
2017-04-13 20:59:25 +00:00
|
|
|
|
stx .97+1
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
>LDYA K.LoadDrv.CmdArray Advance to ARG[1]
|
2017-01-12 17:43:45 +00:00
|
|
|
|
>STYA ZPPtr1
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2017-01-12 17:43:45 +00:00
|
|
|
|
lda ZPPtr1
|
2016-08-17 06:25:58 +00:00
|
|
|
|
sec
|
2017-01-12 17:43:45 +00:00
|
|
|
|
adc (ZPPtr1)
|
|
|
|
|
sta ZPPtr1
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bcc .1
|
2017-01-12 17:43:45 +00:00
|
|
|
|
inc ZPPtr1+1
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2017-01-12 17:43:45 +00:00
|
|
|
|
.1 >LDYA ZPPtr1
|
2016-10-04 16:01:07 +00:00
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
jsr pDrvJmp call Dev.Detect
|
2017-04-13 20:59:25 +00:00
|
|
|
|
bcs .96
|
2016-10-04 16:01:07 +00:00
|
|
|
|
|
2016-09-27 15:51:59 +00:00
|
|
|
|
jsr BIN.InstallDRV
|
2017-04-13 20:59:25 +00:00
|
|
|
|
bcs .96
|
2015-06-03 18:30:57 +00:00
|
|
|
|
|
2017-04-13 20:59:25 +00:00
|
|
|
|
jsr .96 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
|
2017-04-13 20:59:25 +00:00
|
|
|
|
.9 rts
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2017-04-13 20:59:25 +00:00
|
|
|
|
.96 pha
|
|
|
|
|
.97 lda #$ff
|
2016-09-21 15:20:37 +00:00
|
|
|
|
jsr K.FreeMemA
|
2015-06-03 18:30:57 +00:00
|
|
|
|
pla
|
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
.98 pha
|
2017-04-13 20:59:25 +00:00
|
|
|
|
.99 lda #$ff
|
2016-09-21 15:20:37 +00:00
|
|
|
|
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
|
2015-06-03 18:30:57 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
2017-03-29 15:48:15 +00:00
|
|
|
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.DRV
|
|
|
|
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
2015-06-03 18:30:57 +00:00
|
|
|
|
ASM
|