A2osX/BIN/PS.S.txt

219 lines
3.7 KiB
Plaintext
Raw Normal View History

NEW
2018-11-17 17:17:13 +00:00
PREFIX
2017-12-22 21:24:30 +00:00
AUTO 4,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
ZPArgV .BS 2
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
.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
.10 >LDYA L.MSG0
2018-08-23 15:16:20 +00:00
>SYSCALL puts
2018-12-18 14:37:07 +00:00
>LDA.G PS.Index
2019-01-24 13:53:29 +00:00
.1 tax
beq .2 PS0
2018-12-18 14:37:07 +00:00
lda PS.Table.PID,x
beq .7
2019-01-24 13:53:29 +00:00
.2 jsr CS.RUN.DUMP
2019-01-22 16:35:42 +00:00
>SLEEP
.7 >INC.G PS.Index
cmp #K.PS.MAX
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
*--------------------------------------
CS.RUN.DUMP lda PS.Table.hPS,x
2018-07-18 15:30:42 +00:00
>SYSCALL GetMemPtr
2019-01-22 16:35:42 +00:00
>STYA ZPPSPtr
ldy #S.PS.PPID
2018-12-18 14:37:07 +00:00
lda (ZPPSPtr),y
>PUSHA Parent PID
ldy #S.PS.UID
2018-12-18 14:37:07 +00:00
lda (ZPPSPtr),y
>PUSHA
jsr CS.RUN.DecodeFlags
>PUSHEA.G PS.FLAGS
2018-12-18 14:37:07 +00:00
>LDA.G PS.Index
tax
lda PS.Table.Stats,x
>PUSHA CPU%
ldy #S.PS.PID
2018-12-18 14:37:07 +00:00
lda (ZPPSPtr),y
>PUSHA
2019-01-22 16:35:42 +00:00
>PUSHBI 6
>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
2018-08-23 15:16:20 +00:00
MSG0 .AZ "ID CPU% Flags UID PID Command Line"
2018-12-18 14:37:07 +00:00
MSG1 .AZ "\e[7l%03d %03d\% %s %03d %03d"
MSG2 .AZ " %s"
MSG3 .AZ "\r\n"
MSG.FLAGS .AS "IRQDHSed"
*--------------------------------------
.DUMMY
.OR 0
DS.START
PS.Index .BS 1
PS.FLAGS .BS 9
DS.END
.ED
*--------------------------------------
MAN
2018-12-03 06:59:30 +00:00
SAVE USR/SRC/BIN/PS.S
ASM