diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/programs.asm | 7 | ||||
| -rw-r--r-- | src/syscall.asm | 58 |
2 files changed, 65 insertions, 0 deletions
diff --git a/src/programs.asm b/src/programs.asm index f21d40b..e83d29e 100644 --- a/src/programs.asm +++ b/src/programs.asm @@ -94,6 +94,9 @@ ProgPs: SECTION "prog_kill", ROMX[$4000], BANK[19] ProgKill: INCBIN "c/kill.bin" +SECTION "prog_spin", ROMX[$4000], BANK[20] +ProgSpin: + INCBIN "c/spin.bin" ; ----------------------------------------------------------------------------- ; PROG_SH (bank 3) - the shell, now written in C (c/sh.c): parses >/</| and @@ -172,6 +175,8 @@ ProgramTable:: dw ProgPs db LOW(BANK(ProgKill)), HIGH(BANK(ProgKill)) dw ProgKill + db LOW(BANK(ProgSpin)), HIGH(BANK(ProgSpin)) + dw ProgSpin ; ----------------------------------------------------------------------------- ; NameTable (ROM0) - command name -> program id, searched by sys_lookup. @@ -214,4 +219,6 @@ NameTable:: db PROG_PS db "kill", 0 db PROG_KILL + db "spin", 0 + db PROG_SPIN db 0 diff --git a/src/syscall.asm b/src/syscall.asm index 0b47c05..2fc66b6 100644 --- a/src/syscall.asm +++ b/src/syscall.asm @@ -56,6 +56,7 @@ SyscallTable: dw sys_lookup ; 19 LOOKUP dw sys_ps ; 20 PS dw sys_progname ; 21 PROGNAME + dw sys_reap ; 22 REAP ; ----------------------------------------------------------------------------- sys_nosys: @@ -554,3 +555,60 @@ sys_progname:: xor a ld [de], a ret + +; ============================================================================= +; sys_reap() -> A = pid of a reaped zombie child, or 0 (never blocks). +; Used by the shell to clean up finished background jobs. +; ============================================================================= +sys_reap:: + ld a, [wCurProc] + add PROC_PID + ld l, a + ld a, [wCurProc+1] + adc 0 + ld h, a + ld a, [hl] + ld [wWaitMyPid], a + ld c, 0 +.scan + ld a, c + call PcbPtr ; DE = &PCB[c] + ld a, [de] + cp PS_ZOMBIE + jr nz, .next + ld h, d + ld l, e + ld a, l + add PROC_PARENT + ld l, a + ld a, h + adc 0 + ld h, a + ld a, [wWaitMyPid] + cp [hl] + jr nz, .next + ; reap: pid, free bank, free slot + ld h, d + ld l, e + inc hl ; PROC_PID + ld a, [hl] + ld [wWaitRetPid], a + ld a, e + add PROC_RAMB + ld l, a + ld a, d + adc 0 + ld h, a + ld a, [hl] + call FreeRamBank + ld a, PS_FREE + ld [de], a + ld a, [wWaitRetPid] + ret +.next + inc c + ld a, c + cp MAX_PROCS + jr c, .scan + xor a + ret |