Members/kono/nitros9-code: level1/cmds/procs.asm annotate

annotate level1/cmds/procs.asm @ 2758:e4a0f58a5f9b

Found that people who do not have the envirornment variable NITROS9DIR set before building the project get a error missing file "/rules.mak". Found this is caused do to the fact that the code to set this envirornment variable is in the rules.mak which can't get loaded. To fix this the code needed to set the envirornment variable that is in the rules.mak is now in the makefile(s) right before the include for the rules.mak file. This should fix the problem for those who do not have the NITROS9DIR envirornment variable preset.

author	drencor-xeen
date	Mon, 14 Jan 2013 14:37:46 -0600
parents	84ea83668304
children

rev	line source
0 6641a883d6b0 Initial revision boisy parents: diff changeset	1 ********************************************************************
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	2 * Procs - Show processes
0 6641a883d6b0 Initial revision boisy parents: diff changeset	3 *
6641a883d6b0 Initial revision boisy parents: diff changeset	4 * $Id$
6641a883d6b0 Initial revision boisy parents: diff changeset	5 *
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 924 diff changeset	6 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 924 diff changeset	7 * Comment
0 6641a883d6b0 Initial revision boisy parents: diff changeset	8 * ------------------------------------------------------------------
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 924 diff changeset	9 * 9 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 924 diff changeset	10 * From Tandy OS-9 Level One VR 02.00.00.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 924 diff changeset	11 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 924 diff changeset	12 * 10 2003/01/14 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 924 diff changeset	13 * Now uses -e instead of e.
0 6641a883d6b0 Initial revision boisy parents: diff changeset	14
6641a883d6b0 Initial revision boisy parents: diff changeset	15 nam Procs
6641a883d6b0 Initial revision boisy parents: diff changeset	16 ttl program module
6641a883d6b0 Initial revision boisy parents: diff changeset	17
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	18 * Disassembled 02/04/05 13:22:14 by Disasm v1.6 (C) 1988 by RML
0 6641a883d6b0 Initial revision boisy parents: diff changeset	19
6641a883d6b0 Initial revision boisy parents: diff changeset	20 ifp1
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	21 use defsfile
0 6641a883d6b0 Initial revision boisy parents: diff changeset	22 endc
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	23
0 6641a883d6b0 Initial revision boisy parents: diff changeset	24 tylg set Prgrm+Objct
6641a883d6b0 Initial revision boisy parents: diff changeset	25 atrv set ReEnt+rev
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 924 diff changeset	26 rev set $00
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	27 edition set 10
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	28
0 6641a883d6b0 Initial revision boisy parents: diff changeset	29 mod eom,name,tylg,atrv,start,size
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	30
924 c155aac72190 Made cosmetic changes boisy parents: 842 diff changeset	31 org 0
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	32 narrow rmb 1
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	33 eflag rmb 1
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	34 aproc rmb 2
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	35 wproc rmb 2
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	36 sproc rmb 2
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	37 myuid rmb 2
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	38 u000A rmb 1
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	39 bufptr rmb 2
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	40 buffer rmb 87
0 6641a883d6b0 Initial revision boisy parents: diff changeset	41 u0064 rmb 132
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	42 u00E8 rmb 2156
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	43 PsBuf rmb 450
0 6641a883d6b0 Initial revision boisy parents: diff changeset	44 size equ .
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	45
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	46 name fcs /Procs/
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 185 diff changeset	47 fcb edition
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	48
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	49 L0013 fcb C$LF
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	50 fcc "Usr # id pty sta mem pri mod"
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	51 fcb C$CR
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	52 DshSh fcs "----- --- --- --- --- -------"
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	53 ActSh fcs " act "
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	54 WaiSh fcs " wai "
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	55 SleSh fcs " sle "
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	56 L005E fcb C$LF
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	57 fcc "Usr # id pty state mem primary module"
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	58 fcb C$CR
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	59 DshLo fcs "----- --- --- -------- --- --------------"
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	60 ActLo fcs " active "
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	61 WaiLo fcs " waiting "
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	62 SleLo fcs " sleeping "
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	63
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	64 start clr <eflag
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	65 clr <narrow
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	66 pshs y,x,b,a
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	67 lda #$01
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	68 ldb #SS.ScSiz
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	69 os9 I$GetStt
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	70 bcc L00E8
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	71 cmpb #E$UnkSvc
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	72 beq L00EF
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	73 puls y,x,b,a
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	74 lbra L01F1
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	75 L00E8 cmpx #50
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	76 bge L00EF
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	77 inc <narrow
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	78 L00EF puls y,x,b,a
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	79 *
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	80 * Check for a '-E' as argument
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	81 *
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	82 ldd ,x+
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	83 andb #$DF
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	84 cmpd #$2D45
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	85 bne L00FB
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	86 inc <eflag
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	87 L00FB leax buffer,u
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	88 stx <bufptr
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	89 orcc #IntMasks
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	90 ldx >D.AProcQ
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	91 stx <aproc
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	92 ldx >D.WProcQ
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	93 stx <wproc
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	94 ldx >D.SProcQ
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	95 stx <sproc
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	96 ldx >D.Proc
3a84dad1f851 made further changes boisy parents: 15 diff changeset	97 ldd P$User,x
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	98 std <myuid
0 6641a883d6b0 Initial revision boisy parents: diff changeset	99 pshs u
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	100 leau >PsBuf,u Assign buffer to reg u
0 6641a883d6b0 Initial revision boisy parents: diff changeset	101 lda #$01
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	102 ldx <aproc
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	103 lbsr LoopP
0 6641a883d6b0 Initial revision boisy parents: diff changeset	104 lda #$02
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	105 ldx <wproc
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	106 lbsr LoopP
0 6641a883d6b0 Initial revision boisy parents: diff changeset	107 lda #$03
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	108 ldx <sproc
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	109 lbsr LoopP
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	110 andcc #^IntMasks
0 6641a883d6b0 Initial revision boisy parents: diff changeset	111 clra
6641a883d6b0 Initial revision boisy parents: diff changeset	112 clrb
6641a883d6b0 Initial revision boisy parents: diff changeset	113 pshu b,a
6641a883d6b0 Initial revision boisy parents: diff changeset	114 pshu b,a
6641a883d6b0 Initial revision boisy parents: diff changeset	115 puls u
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	116 tst <narrow
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	117 beq L0156
0 6641a883d6b0 Initial revision boisy parents: diff changeset	118 leay >L0013,pcr
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	119 lbsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	120 lbsr WrBuf
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	121 leay >DshSh,pcr Write short dashes
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	122 lbsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	123 lbsr WrBuf
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	124 bra L016A
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	125
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	126 * Write 80 char header
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	127 L0156 leay >L005E,pcr
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	128 lbsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	129 lbsr WrBuf
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	130 leay >DshLo,pcr Write long dashes
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	131 lbsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	132 lbsr WrBuf
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	133
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	134 L016A leax >PsBuf,u
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	135 NextW leax -$09,x
0 6641a883d6b0 Initial revision boisy parents: diff changeset	136 ldd $05,x
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	137 beq Finish
0 6641a883d6b0 Initial revision boisy parents: diff changeset	138 ldd $07,x
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	139 lbsr L0250
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	140 lbsr WrSpc Write Space
0 6641a883d6b0 Initial revision boisy parents: diff changeset	141 ldb ,x
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	142 lbsr L0214
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	143 lbsr WrSpc Write Space
0 6641a883d6b0 Initial revision boisy parents: diff changeset	144 ldb $03,x
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	145 lbsr L0214
0 6641a883d6b0 Initial revision boisy parents: diff changeset	146 lda $04,x
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	147 tst <narrow
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	148 beq L0195
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	149 leay >ActSh,pcr
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	150 bra L0199
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	151 L0195 leay >ActLo,pcr
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	152 L0199 cmpa #$01
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	153 beq L01BD branch if status is active
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	154 tst <narrow
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	155 beq L01A7
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	156 leay >WaiSh,pcr
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	157 bra L01AB
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	158 L01A7 leay >WaiLo,pcr
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	159 L01AB cmpa #$02
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	160 beq L01BD branch if status is waiting
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	161 tst <narrow
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	162 beq L01B9
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	163 leay >SleSh,pcr
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	164 bra L01BD
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	165 L01B9 leay >SleLo,pcr
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	166 L01BD bsr WritY
0 6641a883d6b0 Initial revision boisy parents: diff changeset	167 ldb $02,x
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	168 bsr L0214
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	169 bsr WrSpc Write Space
0 6641a883d6b0 Initial revision boisy parents: diff changeset	170 ldy $05,x
6641a883d6b0 Initial revision boisy parents: diff changeset	171 ldd $04,y
6641a883d6b0 Initial revision boisy parents: diff changeset	172 leay d,y
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	173 bsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	174 bsr WrSpc Write Space
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	175 tst <narrow
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	176 bne L01EB
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	177 lda #'<
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	178 bsr WriCh
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	179 lda $01,x
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	180 lbsr L02B5
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	181 bcs L01EB
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	182 ldy $03,y
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	183 ldy $04,y
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	184 ldd $04,y
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	185 leay d,y
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	186 bsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	187 L01EB bsr WrBuf
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	188 lbra NextW Next line
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	189
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	190 Finish clrb
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	191 L01F1 os9 F$Exit
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	192 *
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	193 * Write text pointed to by Reg Y to buffer
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	194 *
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	195 WritY lda ,y
0 6641a883d6b0 Initial revision boisy parents: diff changeset	196 anda #$7F
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	197 bsr WriCh
0 6641a883d6b0 Initial revision boisy parents: diff changeset	198 lda ,y+
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	199 bpl WritY
0 6641a883d6b0 Initial revision boisy parents: diff changeset	200 rts
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	201 *
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	202 * Write out buffer to stdout (max 80 chars)
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	203 *
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	204 WrBuf pshs y,x,a
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	205 lda #C$CR
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	206 bsr WriCh
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	207 leax buffer,u
03a3c269ba1a Added -e option boisy parents: 716 diff changeset	208 stx <bufptr
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	209 ldy #80
0 6641a883d6b0 Initial revision boisy parents: diff changeset	210 lda #$01
6641a883d6b0 Initial revision boisy parents: diff changeset	211 os9 I$WritLn
6641a883d6b0 Initial revision boisy parents: diff changeset	212 puls pc,y,x,a
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	213
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	214 L0214 clr <u000A
0 6641a883d6b0 Initial revision boisy parents: diff changeset	215 lda #$FF
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	216 L0218 inca
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	217 subb #100
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	218 bcc L0218
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	219 bsr L022E
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	220 lda #10
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	221 L0221 deca
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	222 addb #10
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	223 bcc L0221
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	224 bsr L022E
0 6641a883d6b0 Initial revision boisy parents: diff changeset	225 tfr b,a
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	226 adda #'0
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	227 bra WriCh
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	228 L022E tsta
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	229 beq L0233
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	230 sta <u000A
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	231 L0233 tst <u000A
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	232 bne L0239
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	233 WrSpc lda #$F0
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	234 L0239 adda #'0
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	235 *
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	236 * Add char to buffer pointed to by bufptr
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	237 *
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	238 WriCh pshs x
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	239 ldx <bufptr
0 6641a883d6b0 Initial revision boisy parents: diff changeset	240 sta ,x+
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	241 stx <bufptr
0 6641a883d6b0 Initial revision boisy parents: diff changeset	242 puls pc,x
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	243
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	244 L0245 fcb $27,$10,$03,$e8,$00,$64,$00,$0a,$00,$01,$ff
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	245
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	246 L0250 pshs x,y,a,b
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	247 leax <L0245,pcr
0 6641a883d6b0 Initial revision boisy parents: diff changeset	248 ldy #$2F20
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	249 L0259 leay >$0100,y
0 6641a883d6b0 Initial revision boisy parents: diff changeset	250 subd ,x
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	251 bcc L0259
0 6641a883d6b0 Initial revision boisy parents: diff changeset	252 addd ,x++
6641a883d6b0 Initial revision boisy parents: diff changeset	253 pshs b,a
6641a883d6b0 Initial revision boisy parents: diff changeset	254 tfr y,d
6641a883d6b0 Initial revision boisy parents: diff changeset	255 tst ,x
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	256 bmi L0281
0 6641a883d6b0 Initial revision boisy parents: diff changeset	257 ldy #$2F30
6641a883d6b0 Initial revision boisy parents: diff changeset	258 cmpd #$3020
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	259 bne L027B
0 6641a883d6b0 Initial revision boisy parents: diff changeset	260 ldy #$2F20
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	261 lda #C$SPAC
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	262 L027B bsr WriCh
0 6641a883d6b0 Initial revision boisy parents: diff changeset	263 puls b,a
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	264 bra L0259
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	265 L0281 bsr WriCh
0 6641a883d6b0 Initial revision boisy parents: diff changeset	266 leas $02,s
6641a883d6b0 Initial revision boisy parents: diff changeset	267 puls pc,y,x,b,a
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	268 *
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	269 * Loop through list of processes
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	270 * Reg X contains the pointer
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	271 *
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	272 LoopP pshs y,b,a
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	273 leax ,x point to first entry in queue
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	274 beq EndP
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	275 NextP ldd P$User,x
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	276 tst <eflag
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	277 bne L0298
842 03a3c269ba1a Added -e option boisy parents: 716 diff changeset	278 cmpd <myuid
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	279 bne ContP
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	280 L0298 pshu b,a put userid on stack
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	281 lda P$Prior,x
0 6641a883d6b0 Initial revision boisy parents: diff changeset	282 ldb ,s
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	283 ldy <P$PModul,x
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	284 pshu y,b,a put module,priority,status on stack
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	285 lda P$PagCnt,x
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	286 pshu a put pagecount on stack
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	287 lda P$ID,x
3a84dad1f851 made further changes boisy parents: 15 diff changeset	288 ldb <P$PATH,x
0 6641a883d6b0 Initial revision boisy parents: diff changeset	289 pshu b,a
716 790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	290 ContP ldx P$Queue,x
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	291 bne NextP
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	292 EndP puls pc,y,b,a
790d0bf87621 Commented procs, since it is used to figure out what has to be roug parents: 200 diff changeset	293
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	294 L02B5 pshs x,b,a
185 3a84dad1f851 made further changes boisy parents: 15 diff changeset	295 ldx >D.PthDBT
0 6641a883d6b0 Initial revision boisy parents: diff changeset	296 tsta
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	297 beq L02CC
0 6641a883d6b0 Initial revision boisy parents: diff changeset	298 clrb
6641a883d6b0 Initial revision boisy parents: diff changeset	299 lsra
6641a883d6b0 Initial revision boisy parents: diff changeset	300 rorb
6641a883d6b0 Initial revision boisy parents: diff changeset	301 lsra
6641a883d6b0 Initial revision boisy parents: diff changeset	302 rorb
6641a883d6b0 Initial revision boisy parents: diff changeset	303 lda a,x
6641a883d6b0 Initial revision boisy parents: diff changeset	304 tfr d,y
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	305 beq L02CC
0 6641a883d6b0 Initial revision boisy parents: diff changeset	306 tst ,y
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	307 bne L02CD
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	308 L02CC coma
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	309 L02CD puls pc,x,b,a
9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	310
0 6641a883d6b0 Initial revision boisy parents: diff changeset	311 emod
6641a883d6b0 Initial revision boisy parents: diff changeset	312 eom equ *
14 9b772b21c68f Procs disassembly, added to makefile boisy parents: 0 diff changeset	313 end

Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/procs.asm @ 2758:e4a0f58a5f9b