PR#3 PREFIX /A2OSX.SRC NEW INC 1 AUTO 6 .LIST OFF .OP 65C02 *-------------------------------------- * !!!!!!!! DO NOT USE VCPU16 !!!!!!!! * !!!!!! DO NOT USE ZPQuickPTRs !!!!! *-------------------------------------- SYSSCR.BASL .EQ ZPSysScr COUT SYSSCR.BASLTMP .EQ ZPSysScr+2 Scrolling SYSSCR.STRPTR .EQ ZPSysScr+4 PPSTR *-------------------------------------- SYSSCR.BASL0 .EQ $800 *-------------------------------------- * S.SysScrInit *-------------------------------------- S.SysScrInit stz SYSSCR.CPULOADI stz SYSSCR.CH stz SYSSCR.CV ldx #0 ldy #0 .1 lda SYSSCR.TITLE,y beq .2 jsr S.SysScrSetCharAtYX iny bne .1 .2 lda #$20 jsr S.SysScrSetCharAtYX iny cpy #80 bne .2 jsr S.SysScrHOME lda A2osX.SCREENS ora #A2osX.SCREENS.S sta A2osX.SCREENS lda #A2osX.SCREENS.S jsr S.ScreenSelectA clc rts *-------------------------------------- * S.ScreenSelectA * IN : * A = Screen to display *-------------------------------------- S.ScreenSelectA and A2osX.SCREENS Screen is available ? beq .9 ...not setup up cmp #A2osX.SCREENS.S bne .1 sta SETTEXT sta SET80DISP sta CLR80STORE sta SETPAGE2 sta SETALTCHAR lda #A2osX.SCREENS.S bra .8 .1 cmp #A2osX.SCREENS.C bne .2 sta SETTEXT sta SET80DISP sta CLR80STORE sta CLRPAGE2 sta SETALTCHAR lda #A2osX.SCREENS.C bra .8 .2 cmp #A2osX.SCREENS.G bne .9 sta CLRTEXT sta CLRMIXED sta SETHIRES sta CLR80STORE sta CLRPAGE2 sta SETIOUDIS sta SETDHIRES * sta CLR80DISP * sta SETDHIRES * sta CLRDHIRES * sta SET80DISP * sta SETDHIRES * sta CLRDHIRES * sta SETDHIRES lda #A2osX.SCREENS.G .8 sta A2osX.ASCREEN .9 rts *-------------------------------------- S.SysScrCPULoad ldx SYSSCR.CPULOADI lda SYSSCR.CPULOADC,x sta SYSSCR.BASL0+38 dec SYSSCR.CPULOADI bpl .1 lda #3 sta SYSSCR.CPULOADI .1 rts *-------------------------------------- * S.SysScrPRCode * In: * CC : Prints [OK] * CS : [$$] at column 36-39 *-------------------------------------- S.SysScrPRCode php save P to keep carry bcs .1 lda #0 ensure we have ERR=0 if cc .1 pha ldy #76 HTAB to 76 sty SYSSCR.CH lda #"[" jsr S.SysScrCOUTA pla pha bne .2 lda #"O" jsr S.SysScrCOUTA lda #"K" jsr S.SysScrCOUTA bra .3 .2 jsr S.SysScrPRBYTEA .3 lda #"]" jsr S.SysScrCOUTA pla plp rts *-------------------------------------- S.DumpEvent lda (pEvent) jsr S.SysScrPRBYTEA ldy #S.EVT.hDEV lda (pEvent),y jsr S.SysScrPRBYTEA ldy #S.EVT.DATALO lda (pEvent),y jsr S.SysScrPRBYTEA ldy #S.EVT.DATAHI lda (pEvent),y jsr S.SysScrPRBYTEA lda #'.' jsr S.SysScrCOUTA ldy #S.EVT.DATAW1 lda (pEvent),y jsr S.SysScrPRBYTEA iny lda (pEvent),y jsr S.SysScrPRBYTEA lda #'.' jsr S.SysScrCOUTA ldy #S.EVT.DATAW2 lda (pEvent),y jsr S.SysScrPRBYTEA iny lda (pEvent),y jmp S.SysScrPRBYTEA *-------------------------------------- S.SysScrPPSTRA jsr S.GetMemPtrA S.SysScrPPSTRYA >STYA SYSSCR.STRPTR lda (SYSSCR.STRPTR) beq .9 ldy #0 .1 iny lda (SYSSCR.STRPTR),y cmp #'\' bne .7 tya cmp (SYSSCR.STRPTR) beq .9 iny lda (SYSSCR.STRPTR),y cmp #'n' bne .7 lda #13 .7 jsr S.SysScrCOUTA .8 tya cmp (SYSSCR.STRPTR) bne .1 .9 >LDYA SYSSCR.STRPTR rts *-------------------------------------- S.SysScrPRBYTEA pha lsr lsr lsr lsr ora #$B0 cmp #$BA bcc .1 adc #6 .1 jsr S.SysScrCOUTA pla and #$0F ora #$B0 cmp #$BA bcc S.SysScrCOUTA adc #6 *-------------------------------------- S.SysScrCOUTA phx phy cmp #13 bne .1 jsr S.SysScrCROUT ply plx rts .1 ldy SYSSCR.CH ldx SYSSCR.CV ora #$80 jsr S.SysScrSetCharAtYX jsr S.SysScrFSOUT ply plx rts *-------------------------------------- S.SysScrFSOUT lda SYSSCR.CH cmp #79 beq S.SysScrCROUT1 inc SYSSCR.CH rts *-------------------------------------- S.SysScrCROUT jsr S.SysScrCLREOL S.SysScrCROUT1 stz SYSSCR.CH ldx SYSSCR.CV cpx #23 beq S.SysScrScroll inc SYSSCR.CV rts *-------------------------------------- S.SysScrCLREOL ldx SYSSCR.CV lda #$A0 ldy SYSSCR.CH .1 cpy #79 beq .2 jsr S.SysScrSetCharAtYX iny bne .1 .2 rts *-------------------------------------- S.SysScrScroll ldx #1 .1 lda SYSSCR.BASEL,x sta SYSSCR.BASL lda SYSSCR.BASEH,x sta SYSSCR.BASL+1 inx lda SYSSCR.BASEL,x sta SYSSCR.BASLTMP lda SYSSCR.BASEH,x sta SYSSCR.BASLTMP+1 ldy #39 sta SETWRITEAUX sta SETREADAUX .2 lda (SYSSCR.BASLTMP),y sta (SYSSCR.BASL),y dey bpl .2 ldy #39 sta CLRWRITEAUX sta CLRREADAUX .3 lda (SYSSCR.BASLTMP),y sta (SYSSCR.BASL),y dey bpl .3 cpx #23 bne .1 ldy #39 lda #$A0 .4 sta SETWRITEAUX sta (SYSSCR.BASLTMP),y sta CLRWRITEAUX sta (SYSSCR.BASLTMP),y dey bpl .4 rts *-------------------------------------- S.SysScrClrLineAtX lda SYSSCR.BASEL,x sta SYSSCR.BASL lda SYSSCR.BASEH,x sta SYSSCR.BASL+1 lda #$A0 ldy #39 sta SETWRITEAUX .1 sta (SYSSCR.BASL),y dey bpl .1 ldy #39 sta CLRWRITEAUX .2 sta (SYSSCR.BASL),y dey bpl .2 rts *-------------------------------------- S.SysScrHOME ldx #23 .1 jsr S.SysScrClrLineAtX dex bne .1 stz SYSSCR.CH lda #1 sta SYSSCR.CV rts *-------------------------------------- S.SysScrSetCharAtYX cmp #$40 bcc .1 cmp #$5F bcs .1 and #$3F .1 phy pha lda SYSSCR.BASEL,x sta SYSSCR.BASL lda SYSSCR.BASEH,x sta SYSSCR.BASL+1 tya lsr tay bcs .2 sta SETWRITEAUX .2 pla sta (SYSSCR.BASL),y sta CLRWRITEAUX ply rts *-------------------------------------- SYSSCR.CH .BS 1 SYSSCR.CV .BS 1 SYSSCR.CPULOADI .BS 1 SYSSCR.CPULOADC .AS -"|/-\" *-------------------------------------- SYSSCR.TITLE >CSTRING "A2osX System Screen" SYSSCR.BASEL .HS 00.80.00.80.00.80.00.80.28.A8.28.A8.28.A8.28.A8.50.D0.50.D0.50.D0.50.D0 SYSSCR.BASEH .HS 08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B *-------------------------------------- MAN SAVE SYS/KERNEL.S.SCR LOAD SYS/KERNEL.S ASM