A2osX/BIN/PS.S.txt

247 lines
4.3 KiB
Plaintext
Raw Normal View History

NEW
2019-04-15 05:40:13 +00:00
AUTO 3,1
.LIST OFF
.OP 65C02
.OR $2000
2018-07-23 15:28:42 +00:00
.TF BIN/PS
*--------------------------------------
2018-07-23 15:28:42 +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
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
*--------------------------------------
.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
>SYSCALL atoi
bcs .90
tax
bne .90
tya
* ldx #0
.11 cmp PS.Table.PID,x
beq .12
inx
cpx #K.PS.MAX
bne .11
lda #E.NSP
* sec
rts
.12 jsr CS.RUN.DUMP
bcs .9
lda #0
sec
rts
2019-02-18 06:42:17 +00:00
.10 >PUSHBI 0
>LDYA L.MSG0
>SYSCALL printf
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-05-08 19:41:46 +00:00
jsr CS.RUN.DUMP
2019-01-22 16:35:42 +00:00
>SLEEP
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
.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
2019-04-15 15:29:07 +00:00
ldy #S.PS.hSID
2018-12-18 14:37:07 +00:00
lda (ZPPSPtr),y
2019-05-08 19:41:46 +00:00
tax
lda S.Table.hSession-1,x
>SYSCALL GetMemPtr
>STYA ZPSessionPtr
ldy #S.SESSION.UID
lda (ZPSessionPtr),y
>PUSHA
jsr CS.RUN.DecodeFlags
>PUSHEA.G PS.FLAGS
2019-07-24 05:53:09 +00:00
ldy #S.PS.S
lda (ZPPSPtr),y
tax
lda L.STATUS+1,x
>PUSHA
lda L.STATUS,x
>PUSHA
2019-05-08 19:41:46 +00:00
ldx Index
2018-12-18 14:37:07 +00:00
lda PS.Table.Stats,x
>PUSHA CPU%
2019-05-22 15:46:20 +00:00
ldy #S.PS.CPID
2019-05-08 19:41:46 +00:00
lda (ZPPSPtr),y
>PUSHA
2019-05-22 15:46:20 +00:00
dey S.PS.PID
lda (ZPPSPtr),y
>PUSHA
dey S.PS.CPID
2018-12-18 14:37:07 +00:00
lda (ZPPSPtr),y
>PUSHA
2019-05-08 19:41:46 +00:00
lda PS.Table.hPS,x
>PUSHA
2019-07-24 05:53:09 +00:00
>PUSHBI 10
>LDYA L.MSG1
2018-06-21 15:12:10 +00:00
>SYSCALL printf
2018-12-18 14:37:07 +00:00
bcs .9
2019-01-22 16:35:42 +00:00
jmp CS.RUN.PrintArgs
2018-12-18 14:37:07 +00:00
2019-01-22 16:35:42 +00:00
.9 rts
*--------------------------------------
CS.RUN.DecodeFlags
2018-12-18 14:37:07 +00:00
lda (ZPPSPtr) Get flags
ldy #PS.FLAGS+7
ldx #7
.2 lsr
pha
lda #'-'
bcc .3
lda MSG.FLAGS,x
.3 sta (pData),y
pla
dey
dex
bpl .2
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
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
2018-12-18 14:37:07 +00:00
>PUSHW ZPArgV
>PUSHBI 2
>LDYA L.MSG2
>SYSCALL printf
bcs .9
.2 inc ZPArgV
bne .3
inc ZPArgV+1
.3 lda (ZPArgV)
bne .2
inc ZPArgV
bne .1
inc ZPArgV+1
bra .1
.8 >PUSHBI 0
>LDYA L.MSG3
>SYSCALL printf
.9 rts
*--------------------------------------
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT clc
rts
*--------------------------------------
CS.END
2019-07-24 05:53:09 +00:00
MSG0 .AZ "\e[?7lhPS pPID PID cPID CPU\% Status Flags UID Command Line\r\n"
MSG1 .AZ "%3d %3d %3d %3d %3d\% %6s %s %3d"
2018-12-18 14:37:07 +00:00
MSG2 .AZ " %s"
MSG3 .AZ "\r\n"
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
2018-12-03 06:59:30 +00:00
SAVE USR/SRC/BIN/PS.S
ASM