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