A2osX/BIN/PS.S.txt
2018-11-17 18:17:13 +01:00

146 lines
2.7 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
PREFIX
AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
.TF BIN/PS
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/KERNEL.I
*--------------------------------------
ZPPtr .EQ ZPBIN
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA 0
.DA CS.END-CS.START CS
.DA DS.END-DS.START DS
.DA #64 SS
.DA #2 ZP
.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1 .DA CS.INIT
.DA CS.RUN
.DA CS.DOEVENT
.DA CS.QUIT
L.MSG0 .DA MSG0
L.MSGK .DA MSGK
L.MSG1 .DA MSG1
.DA 0
*--------------------------------------
CS.INIT clc
rts
*--------------------------------------
CS.RUN >LDYA pData
>SYSCALL GetPSStat
>LDYA L.MSG0
>SYSCALL puts
>PUSHB.G PS.KCPU
>PUSHBI 1
>LDYA L.MSGK
>SYSCALL printf
lda #1
>STA.G PS.Index
.1 >INC.G PS.Index
tay
lda (pData),y PID
>SYSCALL GetMemPtr
>STYA ZPPtr
ldy #S.PS.hARGV
lda (ZPPtr),y
>SYSCALL GetMemPtr
>PUSHYA
ldy #S.PS.PPID
lda (ZPPtr),y
>PUSHA Parent PID
ldy #S.PS.UID
lda (ZPPtr),y
>PUSHA
jsr CS.RUN.DecodeFlags
>PUSHEA.G PS.FLAGS
>INC.G PS.Index
tay
lda (pData),y
>PUSHA CPU%
ldy #S.PS.PID
lda (ZPPtr),y
>PUSHA
>PUSHBI 8
>LDYA L.MSG1
>SYSCALL printf
.7 >DEC.G PS.COUNT
bne .1
.8
* lda #0 tell Kernel that all done ok, but
sec we do not want to stay in memory
rts
*--------------------------------------
CS.RUN.DecodeFlags
lda (ZPPtr) 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
*--------------------------------------
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT clc
rts
*--------------------------------------
CS.END
MSG0 .AZ "ID CPU% Flags UID PID Command Line"
MSGK .AZ "000 %03d\% -------- 000 --- *KERNEL*\r\n"
MSG1 .AZ "%03d %03d\% %s %03d %03d %s\r\n"
MSG.FLAGS .AS "IRQDHSed"
*--------------------------------------
.DUMMY
.OR 0
DS.START
PS.COUNT .BS 1
PS.KCPU .BS 1
PS.DATA .BS K.PS.MAX*2
PS.Index .BS 1
PS.FLAGS .BS 9
DS.END
.ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/BIN/PS.S
ASM