2020-07-27 15:19:35 +00:00
|
|
|
|
NEW
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
|
|
|
|
.TF bin/shutdown
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.INB inc/macros.i
|
|
|
|
|
.INB inc/a2osx.i
|
|
|
|
|
.INB inc/kernel.i
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DUMMY
|
|
|
|
|
.OR ZPBIN
|
|
|
|
|
ZS.START
|
2020-07-30 11:14:37 +00:00
|
|
|
|
ZPPtr1 .BS 2
|
2020-07-27 15:19:35 +00:00
|
|
|
|
Count .BS 1
|
|
|
|
|
Index .BS 1
|
2020-08-25 14:54:30 +00:00
|
|
|
|
ZS.END .ED
|
2020-07-27 15:19:35 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* File Header (16 Bytes)
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
|
|
|
|
.DA #1 BIN Layout Version 1
|
|
|
|
|
.DA #0 S.PS.F.EVENT
|
|
|
|
|
.DA #0
|
|
|
|
|
.DA CS.END-CS.START Code Size (without Constants)
|
|
|
|
|
.DA DS.END-DS.START Data SegmentSize
|
|
|
|
|
.DA #32 Stack Size
|
|
|
|
|
.DA #ZS.END-ZS.START Zero Page Size
|
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Relocation Table
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.1 .DA CS.INIT
|
|
|
|
|
.DA CS.RUN
|
|
|
|
|
.DA CS.DOEVENT
|
|
|
|
|
.DA CS.QUIT
|
2020-09-24 06:24:47 +00:00
|
|
|
|
L.MSG.USAGE .DA MSG.USAGE
|
|
|
|
|
L.MSG.SHUTDOWN .DA MSG.SHUTDOWN
|
|
|
|
|
L.MSG.PS .DA MSG.PS
|
|
|
|
|
L.MSG.DEV .DA MSG.DEV
|
2020-07-27 15:19:35 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.INIT clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2020-09-24 06:24:47 +00:00
|
|
|
|
CS.RUN >LDYA L.MSG.SHUTDOWN
|
|
|
|
|
>SYSCALL PutS
|
|
|
|
|
|
|
|
|
|
jsr CS.RUN.PS
|
2020-07-27 15:19:35 +00:00
|
|
|
|
|
2020-07-30 11:14:37 +00:00
|
|
|
|
jsr CS.RUN.DEV
|
|
|
|
|
|
2020-09-22 15:34:51 +00:00
|
|
|
|
>PUSHBI 1
|
2020-07-30 11:14:37 +00:00
|
|
|
|
|
|
|
|
|
>PUSHBI 1 INITD
|
2020-08-25 14:54:30 +00:00
|
|
|
|
>SYSCALL Kill
|
2020-07-30 11:14:37 +00:00
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2020-09-24 06:24:47 +00:00
|
|
|
|
CS.RUN.PS stz Count
|
2020-07-27 15:19:35 +00:00
|
|
|
|
|
|
|
|
|
ldx #0
|
|
|
|
|
stx Index
|
|
|
|
|
|
|
|
|
|
.1 lda PS.Table.hPS,x
|
|
|
|
|
beq .7
|
|
|
|
|
|
|
|
|
|
>SYSCALL GetMemPtr
|
2020-07-30 11:14:37 +00:00
|
|
|
|
>STYA ZPPtr1
|
2020-07-27 15:19:35 +00:00
|
|
|
|
|
2020-09-24 06:24:47 +00:00
|
|
|
|
.2 lda (ZPPtr1)
|
|
|
|
|
bpl .4 HOLD ?
|
|
|
|
|
|
|
|
|
|
ldy #S.PS.CPID
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
|
|
|
|
|
.3 jsr CS.GetPSByID
|
|
|
|
|
bra .2
|
2020-07-27 15:19:35 +00:00
|
|
|
|
|
2020-09-24 06:24:47 +00:00
|
|
|
|
.4 ldy #S.PS.S
|
2020-09-22 15:34:51 +00:00
|
|
|
|
lda (ZPPtr1),y
|
2020-07-27 15:19:35 +00:00
|
|
|
|
cmp #S.PS.S.QUIT
|
|
|
|
|
beq .6
|
|
|
|
|
|
|
|
|
|
ldy #S.PS.PID
|
2020-07-30 11:14:37 +00:00
|
|
|
|
lda (ZPPtr1),y
|
2020-07-30 15:45:10 +00:00
|
|
|
|
beq .7 don't kill PS0
|
2020-07-27 15:19:35 +00:00
|
|
|
|
|
|
|
|
|
cmp #1
|
|
|
|
|
beq .7 don't kill INITD
|
|
|
|
|
|
|
|
|
|
cmp (pPS),y don't kill myself
|
|
|
|
|
beq .7
|
|
|
|
|
|
2020-09-24 06:24:47 +00:00
|
|
|
|
jsr CS.RUN.KILL
|
|
|
|
|
|
|
|
|
|
.5 ldy #S.PS.PPID
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
bne .3 go kill parent if not 0
|
|
|
|
|
|
|
|
|
|
.6 inc Count
|
|
|
|
|
|
|
|
|
|
.7 >SLEEP
|
|
|
|
|
|
|
|
|
|
inc Index
|
|
|
|
|
ldx Index
|
|
|
|
|
cpx #K.PS.MAX
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
lda Count
|
|
|
|
|
bne CS.RUN.PS
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.RUN.KILL >PUSHW L.MSG.PS
|
2020-07-27 15:19:35 +00:00
|
|
|
|
ldy #S.PS.PID
|
2020-07-30 11:14:37 +00:00
|
|
|
|
lda (ZPPtr1),y
|
2020-07-27 15:19:35 +00:00
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
|
|
|
ldy #S.PS.hARGV
|
2020-07-30 11:14:37 +00:00
|
|
|
|
lda (ZPPtr1),y
|
2020-07-27 15:19:35 +00:00
|
|
|
|
>SYSCALL GetMemPtr
|
|
|
|
|
>PUSHYA
|
|
|
|
|
|
|
|
|
|
>PUSHBI 3
|
2020-08-25 14:54:30 +00:00
|
|
|
|
>SYSCALL PrintF
|
2020-07-27 15:19:35 +00:00
|
|
|
|
|
2020-09-22 15:34:51 +00:00
|
|
|
|
>PUSHBI 1
|
2020-07-27 15:19:35 +00:00
|
|
|
|
|
|
|
|
|
ldy #S.PS.PID
|
2020-07-30 11:14:37 +00:00
|
|
|
|
lda (ZPPtr1),y
|
2020-08-25 14:54:30 +00:00
|
|
|
|
>SYSCALL Kill
|
2020-09-24 06:24:47 +00:00
|
|
|
|
rts
|
2020-07-30 11:14:37 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.RUN.DEV ldx #1
|
|
|
|
|
stx Index
|
|
|
|
|
|
|
|
|
|
.1 lda Dev.Table-1,x
|
|
|
|
|
sta ZPPtr1
|
|
|
|
|
lda Dev.Table,x
|
|
|
|
|
sta ZPPtr1+1
|
|
|
|
|
beq .7
|
2020-07-27 15:19:35 +00:00
|
|
|
|
|
2020-09-24 06:24:47 +00:00
|
|
|
|
>PUSHW L.MSG.DEV
|
2020-07-30 11:14:37 +00:00
|
|
|
|
>PUSHB Index
|
|
|
|
|
|
|
|
|
|
lda ZPPtr1
|
|
|
|
|
clc
|
|
|
|
|
adc #S.FD.DEV
|
|
|
|
|
tay
|
|
|
|
|
lda ZPPtr1+1
|
|
|
|
|
adc /S.FD.DEV
|
|
|
|
|
>PUSHYA
|
|
|
|
|
|
|
|
|
|
>PUSHBI 3
|
|
|
|
|
>SYSCALL PrintF
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.7 inc Index
|
2020-08-25 14:54:30 +00:00
|
|
|
|
inc Index
|
2020-07-27 15:19:35 +00:00
|
|
|
|
|
2020-07-30 11:14:37 +00:00
|
|
|
|
ldx Index
|
|
|
|
|
cpx #K.DEV.MAX*2+1
|
|
|
|
|
bne .1
|
|
|
|
|
|
2020-07-27 15:19:35 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2020-09-24 06:24:47 +00:00
|
|
|
|
CS.GetPSByID ldx #0
|
|
|
|
|
|
|
|
|
|
.1 ldy PS.Table.hPS,x
|
|
|
|
|
beq .7
|
|
|
|
|
|
|
|
|
|
pha
|
|
|
|
|
tya
|
|
|
|
|
|
|
|
|
|
phx
|
|
|
|
|
>SYSCALL GetMemPtr
|
|
|
|
|
>STYA ZPPtr1
|
|
|
|
|
plx
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
ldy #S.PS.PID
|
|
|
|
|
cmp (ZPPtr1),y
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
.7 inx
|
|
|
|
|
cpx #K.PS.MAX
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
* sec
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2020-07-27 15:19:35 +00:00
|
|
|
|
CS.DOEVENT sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.QUIT clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.END
|
2020-09-24 06:24:47 +00:00
|
|
|
|
MSG.USAGE .AS "Usage : SHUTDOWN <NEXT.STSTEM>\r\n"
|
|
|
|
|
.AZ " -T <seconds> : \r\n"
|
|
|
|
|
MSG.SHUTDOWN .AZ "SHUTDOWN:System..."
|
|
|
|
|
MSG.PS .AZ "SHUTDOWN:Killing process %3d, %s\r\n"
|
|
|
|
|
MSG.DEV .AZ "SHUTDOWN:Closing device %3d, %s\r\n"
|
2020-07-27 15:19:35 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DUMMY
|
|
|
|
|
.OR 0
|
|
|
|
|
DS.START
|
2020-08-25 14:54:30 +00:00
|
|
|
|
DS.END .ED
|
2020-07-27 15:19:35 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
|
|
|
|
SAVE usr/src/bin/shutdown.s
|
|
|
|
|
ASM
|