NEW PREFIX /A2OSX.BUILD AUTO 4,1 *-------------------------------------- CORE.Run lda CORE.PSCount sta CORE.PSIndex beq CORE.Events SHOULD NEVER HAPPEN!!! .1 ldx CORE.PSIndex lda PS.Table.hMem-1,x beq .8 jsr K.GetMemPtr >STYA pPs lda (pPs) get S.PS.F bit #S.PS.F.HOLD Waiting for Another Task to Terminate? beq .2 ldy #S.PS.CPID lda (pPs),y jsr CORE.GetPS bcc .8 yes, still running.... lda (pPs) get S.PS.F again eor #S.PS.F.HOLD unmark as HOLD sta (pPs) .2 jsr CORE.PSSelect Restore ZP & Ptrs jsr CORE.PSExec INIT/RUN/QUIT/RESUME dec IRQ.InKernel bcc .61 Error ? .5 tax Yes, From INIT or RUN,save RC ldy #S.PS.PPID Notify Parent Process for exit code... lda (pPs),y beq .6 no parent process jsr CORE.GetPSByID X unmodified bcs .6 parent is dead.....skipping... >STYA ZPPtr1 lda (ZPPtr1) Parent PS is HOLD? bit #S.PS.F.HOLD beq .6 no... eor #S.PS.F.HOLD yes, release hold... sta (ZPPtr1) txa ...probably waiting for this PS to terminate.... ldy #S.PS.RC give it RC sta (ZPPtr1),y .6 lda (pPs) and #$3F $ff^S.PS.F.INIT+S.PS.F.RUN ora #S.PS.F.QUIT sta (pPs) bra .7 .61 lda (pPs) bit #S.PS.F.SLEEP bne .7 bit #S.PS.F.INIT beq .62 eor #S.PS.F.INIT+S.PS.F.RUN go from INIT to RUN sta (pPs) bra .7 .62 bit #S.PS.F.QUIT beq .7 ldy #S.PS.PID lda (pPs),y jsr CORE.PSFree.A bra .8 .7 jsr CORE.PSLeave Save ZP & Ptrs .8 dec CORE.PSIndex bne .1 *-------------------------------------- CORE.Events jsr CORE.GetEvents bcs .4 CS=no event jsr CORE.Dispatch bcc .4 CC=All Events Dispatched jsr CORE.PSSelect0 lda #Evt.Table sta pEvent .1 lda (pEvent) beq .3 bmi .2 Ignore & Discard any timer event * jsr CORE.DumpEvent .2 jsr CORE.DestroyEvent .3 lda pEvent clc adc #S.EVT sta pEvent lda CORE.EvtCount bne .1 *-------------------------------------- .4 bit OPENAPPLE bpl .8 lda KBD bpl .8 cmp #"1" bcc .8 cmp #"5" bcs .8 sta KBDSTROBE jsr CORE.ScrSel .8 jmp CORE.Run *-------------------------------------- * CORE.GetEvents : * IN : * OUT : * CS = no event, A = ERROR * CC * event in YA * (pEvent) *-------------------------------------- CORE.GetEvents lda #Evt.Table sta pEvent point to start of event list stz CORE.EvtCount reset Size bit CORE.IRQMode do we have IRQ enabled for Ticks ? bpl .1 no, regular poll lda IRQ.Tick a Tick ? beq .8 no, no event dec IRQ.Tick bra .2 .1 lda VBL get VLINE status tax eor CORE.VBLState bpl .8 no change,no tick txa sta CORE.VBLState save new bpl .8 Up2down transition,no tick .2 lda #0 dec CORE.TickSec bne .3 not yet One Sec lda SYS.BASL0+38 eor #$C0 sta SYS.BASL0+38 ldx CORE.TickPerSec stx CORE.TickSec lda #S.EVT.F.T1SEC bra .4 Force Resync T1 & T10... .3 dec CORE.Tick10t bne .6 .4 inc A2osX.TIMER16 bne .5 inc A2osX.TIMER16+1 .5 ldx CORE.TickPer10t stx CORE.Tick10t ora #S.EVT.F.T10TH .6 tax Finally, do we have an event ? beq .8 no.... sta (pEvent) inc CORE.EvtCount Add one event to Queue * lda pEvent * clc * adc #S.EVT * sta pEvent if CS, EVT queue full!!! ($100) * MORE EVENT PROCESSING HERE .8 lda CORE.EvtCount if 0, exit with CS (from cmp), and A=0 "no event" beq .9 clc rts .9 sec rts *-------------------------------------- * CORE.Dispatch * IN: * OUT: * CS: Not Dispatched * CC: Event Cleared *-------------------------------------- CORE.Dispatch lda CORE.EvtCount beq .9 lda CORE.PSCount beq .9 sta CORE.PSIndex .1 ldx CORE.PSIndex lda PS.Table.hMem-1,x beq .5 jsr K.GetMemPtr >STYA pPS lda (pPs) get S.PS.F bit #S.PS.F.INIT+S.PS.F.HOLD+S.PS.F.QUIT Init or Waiting for Another Task to Terminate? bne .5 bit #S.PS.F.EVENT Accept Events ? beq .5 jsr CORE.PSSelect lda #Evt.Table sta pEvent Select first event in list lda CORE.EvtCount sta CORE.EvtIndex .2 lda (pEvent) Empty event, select next beq .3 lda (pPs) ora #S.PS.F.DOEVENT sta (pPs) jsr CORE.PSDoEvent dec IRQ.InKernel lda (pPs) eor #S.PS.F.DOEVENT sta (pPs) bcs .3 not for this PS, try next event in list jsr CORE.DestroyEvent this PS handled the EVT, destroy it... lda CORE.EvtCount beq .4 no more event, exit .3 dec CORE.EvtIndex beq .4 all EVT submitted to this PS, try other PS lda pEvent try next EVT to this PS clc adc #S.EVT sta pEvent bra .2 .4 jsr CORE.PSLeave .5 dec CORE.PSIndex bne .1 .9 sec rts .8 clc rts *-------------------------------------- * PS.Free.A * In : A = PID to free *-------------------------------------- CORE.PSFree.A sta .1+1 Save PS ID jsr CORE.GetPSByID PS in ZPPtr1 bcs .9 >STYA ZPPtr1 ldy #S.PS.hSS jsr .8 ldy #S.PS.hDS jsr .8 ldy #S.PS.hCS jsr .8 ldy #S.PS.hARGS jsr .8 lda (ZPPtr1) get S.PS.F and #S.PS.F.DUPENV do we have to discard duplicated env & prefix ? beq .1 ldy #S.PS.hENV jsr .8 ldy #S.PS.hPREFIX jsr .8 .1 lda #$ff Self Modified ldx CORE.PSCount .2 cmp PS.Table.PID-1,x beq .3 dex bne .2 bra * .3 stz PS.Table.PID-1,x lda PS.TABLE.hMem-1,x stz PS.TABLE.hMem-1,x .4 jmp K.FreeMem .8 lda (ZPPtr1),y bne .4 .9 rts *-------------------------------------- * X unmodofied *-------------------------------------- CORE.GetPSByID tay bne .1 >LDYAI CORE.S.PS0 Select PS0 clc rts .1 jsr CORE.GetPS bcs .9 lda PS.TABLE.hMem-1,y beq * jmp K.GetMemPtr .9 rts *-------------------------------------- CORE.GetPS ldy CORE.PSCount beq .9 .1 cmp PS.Table.PID-1,y beq .8 dey bne .1 .9 lda #K.E.NSP sec rts .8 clc rts *-------------------------------------- *CORE.DumpEvent ldy #S.EVT-1 *.1 >PUSHB (pEvent),y * dey * bpl .1 * >LDYAI .2 * jmp K.printf *.2 .AZ "!Evt:F=%b,Dev=$%h,LO=$%h,HI=$%h,W1=$%H,W2=$%H\n" *-------------------------------------- CORE.ScrSel and #$0F cmp A2osX.ASCREEN Same as active screen...nothing to do beq .8 tax lda A2osX.SCRNDEVS-1,x beq .8 No device claimed this screen jsr K.GetDevByID x unmodified..... bcs .8 ??? stx A2osX.ASCREEN >STYA .1+1 ldx #IOCTL.CONTROL .1 jmp $ffff SELF MODIFED .8 rts *-------------------------------------- CORE.DestroyEvent lda (pEvent) beq .9 bit #S.EVT.F.hMEM1 beq .1 pha ldy #S.EVT.B1 lda (pEvent),y jsr K.FreeMem pla .1 bit #S.EVT.F.hMEM2 beq .2 ldy #S.EVT.B2 lda (pEvent),y jsr K.FreeMem .2 lda #0 sta (pEvent) dec CORE.EvtCount .9 rts *-------------------------------------- CORE.PSSelect0 >LDYAI CORE.S.PS0 Select PS0 >STYA pPs >LDYAI K.STACKTOP >STYA pStack rts *-------------------------------------- CORE.PSSelect ldy #S.PS.ZP+ZPBIN.SIZE-1 ldx #ZPBIN.SIZE-1 .1 lda (pPs),y sta pCode,x dey dex bpl .1 rts *-------------------------------------- CORE.PSLeave ldy #S.PS.ZP+ZPBIN.SIZE-1 ldx #ZPBIN.SIZE-1 .1 lda pCode,x sta (pPs),y dey dex bpl .1 rts *-------------------------------------- CORE.PSExec lda (pPS) bit #S.PS.F.SLEEP bne CORE.PSResume bit #S.PS.F.RUN bne .2 bit #S.PS.F.INIT bne .1 ldx #TSKMGR.QUIT .HS 2C BIT ABS .1 ldx #TSKMGR.INIT .HS 2C BIT ABS .2 ldx #TSKMGR.RUN .HS 2C BIT ABS CORE.PSDoEvent ldx #TSKMGR.DOEVENT lda pCode+1 pha lda pCode pha php sei inc IRQ.InKernel rti *-------------------------------------- CORE.PSResume sei eor #S.PS.F.SLEEP unmark as SLEEP sta (pPS) >PULLA Get !BC tax beq .2 .1 >PULLA pha inx bne .1 .2 ldy #S.PS.PC+1 lda (pPs),y pha dey #S.PS.PC lda (pPs),y pha dey #S.PS.P lda (pPs),y pha dey #S.PS.Y lda (pPs),y pha dey #S.PS.X lda (pPs),y tax dey #S.PS.A lda (pPs),y ply inc IRQ.InKernel rti *-------------------------------------- DevMgr.Stat .DA DevMgr.FreeMem DevMgr.Free .DA DevMgr.FreeMem .DA DevMgr.HiMem DevMgr.Count .DA #0 .BS 1 *-------------------------------------- CORE.VBLState .BS 1 CORE.IRQMode .BS 1 CORE.TickPerSec .BS 1 CORE.TickPer10t .BS 1 CORE.TickSec .BS 1 CORE.Tick10t .BS 1 CORE.CPUStat .BS 1 CORE.InKernelStat .BS 1 *-------------------------------------- CORE.EvtIndex .BS 1 CORE.EvtCount .BS 1 CORE.PSIndex .BS 1 CORE.PSCount .DA #0 CORE.LastPSID .DA #0 CORE.S.PS0 .BS S.PS.hStdErr+1 *-------------------------------------- MAN SAVE /A2OSX.SRC/SYS/KERNEL.S.CORE LOAD /A2OSX.SRC/SYS/KERNEL.S ASM