2015-11-22 22:30:06 +00:00
|
|
|
|
NEW
|
2018-07-13 14:38:24 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
|
|
|
|
AUTO 4,1
|
2015-11-22 22:30:06 +00:00
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
2018-07-19 15:33:55 +00:00
|
|
|
|
.TF SBIN/INSDRV
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
2018-07-19 15:33:55 +00:00
|
|
|
|
.INB INC/MACROS.I
|
|
|
|
|
.INB INC/A2OSX.I
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
ZPPTR1 .EQ ZPBIN
|
|
|
|
|
ZPPTR2 .EQ ZPBIN+2
|
|
|
|
|
ZPPTR3 .EQ ZPBIN+4
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* File Header (16 Bytes)
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
2018-07-13 14:38:24 +00:00
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
2018-06-29 14:16:40 +00:00
|
|
|
|
.DA #1
|
2015-11-22 22:30:06 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
.DA CS.END-CS.START Code Length To Relocate
|
|
|
|
|
.DA 0 Data Segment to Allocate
|
2018-04-26 15:38:02 +00:00
|
|
|
|
.DA #64 SS
|
|
|
|
|
.DA #6 ZP
|
2015-11-22 22:30:06 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Relocation Table
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.1 .DA CS.INIT
|
|
|
|
|
.DA CS.RUN
|
2016-03-18 07:28:00 +00:00
|
|
|
|
.DA CS.DOEVENT
|
2015-11-22 22:30:06 +00:00
|
|
|
|
.DA CS.QUIT
|
|
|
|
|
L.MSG.HELP .DA MSG.HELP
|
2016-08-17 06:25:58 +00:00
|
|
|
|
L.MSG.LOAD .DA MSG.LOAD
|
2015-11-22 22:30:06 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
2018-10-05 14:58:38 +00:00
|
|
|
|
CS.RUN ldy #S.PS.ARGC
|
2017-09-11 15:29:08 +00:00
|
|
|
|
lda (pPs),y
|
2017-09-18 06:30:07 +00:00
|
|
|
|
beq .9
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2017-09-18 06:30:07 +00:00
|
|
|
|
lda #1 get PTR to ARG[1] (Driver name)
|
2018-10-16 15:48:03 +00:00
|
|
|
|
>SYSCALL ArgV
|
2016-08-17 06:25:58 +00:00
|
|
|
|
>PUSHYA
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2018-08-22 15:23:27 +00:00
|
|
|
|
>PUSHBI 2
|
2016-08-17 06:25:58 +00:00
|
|
|
|
>LDYA L.MSG.LOAD
|
2018-06-21 15:12:10 +00:00
|
|
|
|
>SYSCALL printf
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
lda #1 get PTR to ARG[1] (Driver name)
|
2018-10-16 15:48:03 +00:00
|
|
|
|
>SYSCALL ArgV
|
2017-03-29 15:48:15 +00:00
|
|
|
|
|
2018-06-28 15:26:34 +00:00
|
|
|
|
>SYSCALL LoadDrv YA = PTR to ARG[1...n]
|
2016-10-17 15:47:50 +00:00
|
|
|
|
bcs .99
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2016-10-17 15:47:50 +00:00
|
|
|
|
lda #0 success, but....
|
2016-08-17 06:25:58 +00:00
|
|
|
|
sec we do not want to stay in memory
|
2017-09-18 06:30:07 +00:00
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 >LDYA L.MSG.HELP
|
2018-08-22 15:23:27 +00:00
|
|
|
|
>SYSCALL puts
|
2017-09-18 06:30:07 +00:00
|
|
|
|
lda #0 tell TSKMGR that all done ok, but
|
|
|
|
|
sec we do not want to stay in memory
|
2016-08-17 06:25:58 +00:00
|
|
|
|
.99 rts
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-05 14:58:38 +00:00
|
|
|
|
CS.INIT
|
2017-03-15 16:44:15 +00:00
|
|
|
|
*--------------------------------------
|
2015-11-22 22:30:06 +00:00
|
|
|
|
CS.QUIT clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-10-05 14:58:38 +00:00
|
|
|
|
CS.DOEVENT sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2015-11-22 22:30:06 +00:00
|
|
|
|
CS.END
|
2018-08-22 15:23:27 +00:00
|
|
|
|
MSG.HELP .AZ "Usage: insdrv file.drv <args>"
|
2018-04-11 15:35:51 +00:00
|
|
|
|
MSG.LOAD .AZ "INSDRV:Loading %s...\r\n"
|
2016-08-17 06:25:58 +00:00
|
|
|
|
*--------------------------------------
|
2015-11-22 22:30:06 +00:00
|
|
|
|
MAN
|
2017-03-30 06:31:12 +00:00
|
|
|
|
SAVE /A2OSX.SRC/SBIN/INSDRV.S
|
2015-11-22 22:30:06 +00:00
|
|
|
|
ASM
|