A2osX/BIN/PS.S.txt

247 lines
4.1 KiB
Plaintext
Raw Normal View History

NEW
2019-04-15 05:40:13 +00:00
AUTO 3,1
.LIST OFF
.OP 65C02
.OR $2000
2019-12-17 12:28:49 +00:00
.TF bin/ps
*--------------------------------------
2020-07-30 13:59:04 +00:00
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/kernel.i
*--------------------------------------
2018-12-18 14:37:07 +00:00
.DUMMY
.OR ZPBIN
ZS.START
ZPPSPtr .BS 2
2019-05-08 19:41:46 +00:00
ZPSessionPtr .BS 2
2018-12-18 14:37:07 +00:00
ZPArgV .BS 2
2019-05-08 19:41:46 +00:00
Index .BS 1
2020-07-30 13:59:04 +00:00
hSession .BS 1
2018-12-18 14:37:07 +00:00
ZS.END
.ED
*--------------------------------------
2015-06-03 18:30:57 +00:00
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
2015-06-03 18:30:57 +00:00
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
2018-12-18 14:37:07 +00:00
.DA #0 S.PS.F.EVENT
.DA #0
.DA CS.END-CS.START Code Size (without Constants)
.DA DS.END-DS.START Data SegmentSize
2019-01-22 16:35:42 +00:00
.DA #32 Stack Size
2018-12-18 14:37:07 +00:00
.DA #ZS.END-ZS.START Zero Page Size
2015-06-03 18:30:57 +00:00
.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
L.MSG0 .DA MSG0
L.MSG1 .DA MSG1
2018-12-18 14:37:07 +00:00
L.MSG2 .DA MSG2
L.MSG3 .DA MSG3
2019-07-24 05:53:09 +00:00
L.STATUS .DA MSG.INIT
.DA MSG.RUN
.DA MSG.EVENT
.DA MSG.QUIT
.DA 0
*--------------------------------------
CS.INIT clc
rts
*--------------------------------------
2019-01-22 16:35:42 +00:00
CS.RUN lda #1
>SYSCALL ArgV
bcs .10
2021-05-11 18:44:13 +00:00
2020-08-12 19:31:36 +00:00
>SYSCALL AToI
2019-01-22 16:35:42 +00:00
bcs .90
2021-05-11 18:44:13 +00:00
2019-01-22 16:35:42 +00:00
tax
bne .90
2021-05-11 18:44:13 +00:00
2019-01-22 16:35:42 +00:00
tya
2021-05-11 18:44:13 +00:00
2019-10-03 06:25:27 +00:00
* ldx #0
2021-05-11 18:44:13 +00:00
2019-01-22 16:35:42 +00:00
.11 cmp PS.Table.PID,x
beq .12
2021-05-11 18:44:13 +00:00
2019-01-22 16:35:42 +00:00
inx
cpx #K.PS.MAX
bne .11
2021-05-11 18:44:13 +00:00
2019-01-22 16:35:42 +00:00
lda #E.NSP
* sec
rts
2019-10-18 15:07:14 +00:00
2021-05-11 18:44:13 +00:00
.12 lda PS.Table.hPS,x
jsr CS.RUN.DUMP
2019-01-22 16:35:42 +00:00
bcs .9
2021-05-11 18:44:13 +00:00
2019-01-22 16:35:42 +00:00
lda #0
sec
rts
2019-10-03 06:25:27 +00:00
.10 >LDYA L.MSG0
>SYSCALL Puts
2019-05-08 19:41:46 +00:00
ldx Index
.1 lda PS.Table.hPS,x
2018-12-18 14:37:07 +00:00
beq .7
2019-10-18 15:07:14 +00:00
2019-05-08 19:41:46 +00:00
jsr CS.RUN.DUMP
2019-01-22 16:35:42 +00:00
>SLEEP
2019-10-18 15:07:14 +00:00
2019-05-08 19:41:46 +00:00
.7 inc Index
ldx Index
cpx #K.PS.MAX
2019-01-22 16:35:42 +00:00
bne .1
2019-10-18 15:07:14 +00:00
2019-01-22 16:35:42 +00:00
.8 lda #0 tell Kernel that all done ok, but
sec we do not want to stay in memory
.9 rts
.90 lda #E.SYN
sec
rts
*--------------------------------------
2019-05-08 19:41:46 +00:00
CS.RUN.DUMP >SYSCALL GetMemPtr
2019-01-22 16:35:42 +00:00
>STYA ZPPSPtr
2020-07-30 13:59:04 +00:00
2020-02-14 07:21:56 +00:00
>PUSHW L.MSG1
ldx Index
lda PS.Table.hPS,x
>PUSHA
2020-02-14 07:21:56 +00:00
ldy #S.PS.PPID
2020-02-14 07:21:56 +00:00
.1 lda (ZPPSPtr),y
2019-07-24 05:53:09 +00:00
>PUSHA
2020-02-14 07:21:56 +00:00
iny
cpy #S.PS.CPID+1
bne .1
2018-12-18 14:37:07 +00:00
lda PS.Table.Stats,x
>PUSHA CPU%
2020-02-14 07:21:56 +00:00
ldy #S.PS.S
lda (ZPPSPtr),y
tax
2019-12-17 12:28:49 +00:00
2020-02-14 07:21:56 +00:00
>PUSHW L.STATUS,x
jsr CS.RUN.DecodeFlags
>PUSHEA.G PS.FLAGS
2020-07-30 13:59:04 +00:00
ldy #S.PS.hSession
lda (ZPPSPtr),y
tax
lda S.Table.hSID-1,x
>SYSCALL GetStkObj
bcs .9
>STYA ZPSessionPtr
stx hSession
2020-02-14 07:21:56 +00:00
ldy #S.SESSION.UID
lda (ZPSessionPtr),y
2019-05-08 19:41:46 +00:00
>PUSHA
2020-02-14 07:21:56 +00:00
2020-07-30 13:59:04 +00:00
>PUSHBI 10
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2020-07-30 13:59:04 +00:00
lda hSession
2020-08-12 19:31:36 +00:00
>SYSCALL FreeMem
2020-07-30 13:59:04 +00:00
2019-01-22 16:35:42 +00:00
jmp CS.RUN.PrintArgs
.9 rts
*--------------------------------------
2019-10-18 15:07:14 +00:00
CS.RUN.DecodeFlags
lda (ZPPSPtr) Get flags
ldy #PS.FLAGS+7
ldx #7
2021-05-11 18:44:13 +00:00
.2 lsr
pha
lda #'-'
bcc .3
2021-05-11 18:44:13 +00:00
lda MSG.FLAGS,x
2021-05-11 18:44:13 +00:00
.3 sta (pData),y
pla
dey
dex
bpl .2
2021-05-11 18:44:13 +00:00
rts
*--------------------------------------
2018-12-18 14:37:07 +00:00
CS.RUN.PrintArgs
2019-01-22 16:35:42 +00:00
ldy #S.PS.hARGV
lda (ZPPSPtr),y
2019-01-24 13:53:29 +00:00
beq .8 NO ARGV in PS0
2021-05-11 18:44:13 +00:00
2019-01-22 16:35:42 +00:00
>SYSCALL GetMemPtr
>STYA ZPArgV
2018-12-18 14:37:07 +00:00
.1 lda (ZPArgV)
beq .8
2019-01-22 16:35:42 +00:00
2020-02-14 07:21:56 +00:00
>PUSHW L.MSG2
2018-12-18 14:37:07 +00:00
>PUSHW ZPArgV
>PUSHBI 2
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2018-12-18 14:37:07 +00:00
bcs .9
2021-05-11 18:44:13 +00:00
2018-12-18 14:37:07 +00:00
.2 inc ZPArgV
bne .3
2021-05-11 18:44:13 +00:00
2018-12-18 14:37:07 +00:00
inc ZPArgV+1
.3 lda (ZPArgV)
bne .2
2021-05-11 18:44:13 +00:00
2018-12-18 14:37:07 +00:00
inc ZPArgV
bne .1
2021-05-11 18:44:13 +00:00
2018-12-18 14:37:07 +00:00
inc ZPArgV+1
bra .1
2019-12-17 12:28:49 +00:00
.8 >LDYA L.MSG3
>SYSCALL Puts
2019-10-03 06:25:27 +00:00
.9 rts
2018-12-18 14:37:07 +00:00
*--------------------------------------
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT clc
rts
*--------------------------------------
CS.END
MSG0 .DA #C.ESC
.AZ "[?7lhPS pPID PID cPID CPU% Status Flags UID Args"
2019-07-24 05:53:09 +00:00
MSG1 .AZ "%3d %3d %3d %3d %3d\% %6s %s %3d"
MSG2 .AS " %s"
MSG3 .DA #0
2019-07-24 05:53:09 +00:00
MSG.FLAGS .AS "HS???XEN"
MSG.INIT .AZ "Init"
MSG.RUN .AZ "Run"
MSG.EVENT .AZ "Event"
MSG.QUIT .AZ "Quit"
*--------------------------------------
.DUMMY
.OR 0
DS.START
PS.FLAGS .BS 9
DS.END
.ED
*--------------------------------------
MAN
2020-07-30 13:59:04 +00:00
SAVE usr/src/bin/ps.s
ASM