nxu/term.tal

215 lines
4.7 KiB
Tal
Raw Normal View History

2022-11-06 21:49:02 -05:00
|00 @System [ &vect $2 &pad $6 &r $2 &g $2 &b $2 ]
|10 @Console [ &vect $2 &r $1 &pad $5 &w $1 ]
|20 @Screen [ &vect $2 &w $2 &h $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|80 @Controller [ &vect $2 &button $1 &key $1 ]
|0000
@dirty $1 ( screen needs redraw? )
@tint $1 ( draw mode. 01=regular, 04=inverted )
@rows $2 ( height in characters )
@cols $2 ( width in characters )
@cur-x $2 ( cursor x: 0 <= cur-x < cols )
@cur-y $2 ( cursor y: 0 <= cur-y < rows )
2023-01-21 15:46:20 -05:00
@buffer $c8 ( input buffer, 200 bytes )
2023-01-21 15:41:27 -05:00
@pos $1 ( buffer position )
@subinput $1 ( reading from subprocess? )
2022-11-06 21:49:02 -05:00
|0100
( 32 characters = 256 pixels )
#0020 .rows STZ2
#0040 .cols STZ2
( set screen height/width based on rows/cols )
.rows LDZ2 #30 SFT2 .Screen/h DEO2
.cols LDZ2 #30 SFT2 .Screen/w DEO2
( set colors )
2023-01-21 15:41:27 -05:00
#08f3 .System/r DEO2
2022-11-06 21:49:02 -05:00
#0cd5 .System/g DEO2
2023-01-21 15:41:27 -05:00
#0b66 .System/b DEO2
( set pos, subinput flag )
.buffer .pos STZ
#00 .subinput STZ
2022-11-06 21:49:02 -05:00
( clear screen for initial draw )
;clear-screen JSR2
( set up interrupts )
;redraw .Screen/vect DEO2 ( set up screen )
;on-key .Controller/vect DEO2 ( set up keyboard )
2023-01-21 15:41:27 -05:00
;on-input .Console/vect DEO2 ( set up stdin )
2022-11-06 21:49:02 -05:00
( return )
BRK
@clear-screen
#01 .dirty STZ
;screen STH2
#0000 &yloop
#0000 &xloop
#20 STH2kr STA INC2r
INC2 DUP2 .cols LDZ2 LTH2 ,&xloop JCN
POP2
INC2 DUP2 .rows LDZ2 LTH2 ,&yloop JCN
POP2 POP2r
JMP2r
@redraw
#41 .tint STZ
.dirty LDZ #00 EQU ,&done JCN
;screen STH2
#0000 DUP2 .Screen/y DEO2
&yloop
#0000 DUP2 .Screen/x DEO2
&xloop
STH2kr LDA ;draw-tile JSR2
.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
INC2 INC2r
DUP2 .cols LDZ2 LTH2 ,&xloop JCN
POP2
.Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
INC2
DUP2 .rows LDZ2 LTH2 ,&yloop JCN
POP2 POP2r
;show-cursor JSR2
#00 .dirty STZ
&done BRK
@hide-cursor
2023-01-21 15:41:27 -05:00
.tint LDZ
2022-11-06 21:49:02 -05:00
#41 .tint STZ
2023-01-21 15:41:27 -05:00
;draw-cursor JSR2
.tint STZ JMP2r
2022-11-06 21:49:02 -05:00
@show-cursor
;draw-cursor JMP2
@draw-cursor
.cur-x LDZ2 #30 SFT2 .Screen/x DEO2
.cur-y LDZ2 #30 SFT2 .Screen/y DEO2
.cur-y LDZ2 .cols LDZ2 MUL2 .cur-x LDZ2 ADD2 ;screen ADD2 LDA
;draw-tile JMP2
@on-key
.Controller/key DEI #00 EQU ,&skip JCN
2023-01-21 15:41:27 -05:00
#00 .subinput STZ
#41 .tint STZ
2022-11-06 21:49:02 -05:00
.Controller/key DEI ;read JSR2
&skip BRK
2023-01-21 15:41:27 -05:00
@on-input
.Console/r DEI #00 EQU ,&skip JCN
#01 .subinput STZ
#41 .tint STZ
.Console/r DEI ;read JSR2
&skip BRK
2022-11-06 21:49:02 -05:00
@read ( byte^ -> )
DUP #07 EQU ;read-bel JCN2
DUP #08 EQU ;read-bs JCN2
DUP #09 EQU ;read-tab JCN2
DUP #0a EQU ;read-nl JCN2
DUP #0d EQU ;read-cr JCN2
DUP #1b EQU ;read-esc JCN2
DUP #7f EQU ;read-del JCN2
;read-normal JMP2
2023-01-21 15:46:20 -05:00
( TODO: we need line-editing! )
2022-11-06 21:49:02 -05:00
@read-bel JMP2r
2023-01-21 15:46:20 -05:00
@read-bs JMP2r ( POP ;scroll JMP2 )
@read-tab JMP2r ( POP POP2r #0000 DIV )
2022-11-06 21:49:02 -05:00
@read-esc JMP2r
@read-del JMP2r
2023-01-21 15:41:27 -05:00
@write-line ( -> )
.pos LDZ .buffer
&loop GTHk ,&next JCN ,&done JMP
&next LDZk .Console/w DEO INC ,&loop JMP
&done #0a .Console/w DEO .buffer .pos STZ JMP2r
2022-11-06 21:49:02 -05:00
@read-cr ( 0d -> )
2023-01-21 15:41:27 -05:00
.subinput LDZ ,&display JCN
;write-line JSR2
&display
2022-11-06 21:49:02 -05:00
POP
;hide-cursor JSR2
#0000 .cur-x STZ2
;down JMP2
@read-nl ( 0a -> )
,read-cr JMP
@forward ( -> )
.cur-x LDZ2 INC2 DUP2 .cols LDZ2 LTH2 ,&ok JCN
POP2 #0000 .cur-x STZ2 ;down JMP2
&ok .cur-x STZ2
;show-cursor JMP2
@down ( -> )
.cur-y LDZ2 INC2 DUP2 .rows LDZ2 LTH2 ,&ok JCN
POP2 ;scroll JMP2
&ok .cur-y STZ2
;show-cursor JMP2
@scroll
;end-screen STH2
;screen .cols LDZ2 ADD2 STH2
&loop
STH2kr LDA #20 STH2kr STA
STH2kr .cols LDZ2 SUB2 STA
INC2r GTH2kr STHr ,&loop JCN
POP2r POP2r
#01 .dirty STZ
;show-cursor JMP2
@cursor-addr ( -> addr* )
.cur-y LDZ2 .cols LDZ2 MUL2
.cur-x LDZ2 ADD2 ;screen ADD2
JMP2r
@read-normal ( c -> )
2023-01-21 15:41:27 -05:00
.subinput LDZ ,&display JCN
.pos LDZ STZk INC .pos STZ
&display
2022-11-06 21:49:02 -05:00
;hide-cursor JSR2
DUP ;cursor-addr JSR2 STA
;draw-tile JSR2
;forward JMP2
( 0 <= c < 256 )
@draw-tile ( c^ -> )
DUP #80 LTH
,draw-7bit JCN
,draw-8bit JMP
( 0 <= index < 128 )
@load-tile ( index^ -> )
#00 SWP #30 SFT2
;ascii ADD2 .Screen/addr DEO2
JMP2r
( 0 <= c < 128 )
@draw-7bit ( c^ -> )
;load-tile JSR2
.tint LDZ .Screen/sprite DEO
JMP2r
( 128 <= c < 256 )
@draw-8bit ( 8bit^ -> )
#80 SUB ;load-tile JSR2
.tint LDZ #05 EOR .Screen/sprite DEO
JMP2r
( 128 1-bit 8x8 tiles for ASCII 7-bit characters )
@ascii
~chr/ascii.tal
( screen to store characters for redraw, etc. )
@screen $0800 ( 64 x 32 )
@end-screen