A2osX/SBIN/INSDRV.S.txt

85 lines
1.9 KiB
Plaintext
Raw Normal View History

NEW
2018-11-17 17:17:13 +00:00
PREFIX
2018-07-13 14:38:24 +00:00
AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
2020-08-20 13:20:33 +00:00
.TF sbin/insdrv
*--------------------------------------
2020-08-20 13:20:33 +00:00
.INB inc/macros.i
.INB inc/a2osx.i
*--------------------------------------
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
.DA 0
.DA CS.END-CS.START Code Length To Relocate
.DA 0 Data Segment to Allocate
.DA #64 SS
.DA #6 ZP
.DA 0
*--------------------------------------
* Relocation Table
2019-10-03 06:25:27 +00:00
*--------------------------------------
.1 .DA CS.INIT
.DA CS.RUN
.DA CS.DOEVENT
.DA CS.QUIT
2018-10-18 15:32:57 +00:00
L.MSG.USAGE .DA MSG.USAGE
2016-08-17 06:25:58 +00:00
L.MSG.LOAD .DA MSG.LOAD
.DA 0
*--------------------------------------
2018-10-05 14:58:38 +00:00
CS.RUN ldy #S.PS.ARGC
2020-02-28 07:21:46 +00:00
lda (pPS),y
2018-11-23 16:20:19 +00:00
cmp #1
2018-10-26 14:46:11 +00:00
bcc .9
2020-01-31 20:26:51 +00:00
>PUSHW L.MSG.LOAD
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
2018-08-22 15:23:27 +00:00
>PUSHBI 2
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2020-01-31 20:26:51 +00:00
bcs .99
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
2018-06-28 15:26:34 +00:00
>SYSCALL LoadDrv YA = PTR to ARG[1...n]
bcs .99
lda #0 success, but....
2016-08-17 06:25:58 +00:00
sec we do not want to stay in memory
rts
2018-10-18 15:32:57 +00:00
.9 >LDYA L.MSG.USAGE
2020-02-28 07:21:46 +00:00
>SYSCALL PutS
2018-10-21 20:54:07 +00:00
lda #E.SYN 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
*--------------------------------------
2018-10-05 14:58:38 +00:00
CS.INIT
*--------------------------------------
CS.QUIT clc
rts
*--------------------------------------
2018-10-05 14:58:38 +00:00
CS.DOEVENT sec
rts
*--------------------------------------
CS.END
2018-10-18 15:32:57 +00:00
MSG.USAGE .AZ "Usage: insdrv file.drv <args>"
MSG.LOAD .AZ "INSDRV:Loading %s...\r\n"
2016-08-17 06:25:58 +00:00
*--------------------------------------
MAN
2020-08-20 13:20:33 +00:00
SAVE usr/src/sbin/insdrv.s
ASM