1 files changed, 3 insertions(+), 5 deletions(-)
M src/left.tal
M src/left.tal => src/left.tal +3 -5
@@ 878,17 878,15 @@ JMP2r
&basic ( char -- )
- #00 SWP STH2
- ;font
- ( width ) DUP2 STH2kr ADD2 LDA
- ( addr* ) ROT ROT STH2r #0020 SUB2 #50 SFT2 ADD2 #0080 ADD2
+ ( width ) #00 SWP STH2k ;font ADD2 LDA
+ ( glyph* ) ;font/glyphs STH2r #0020 SUB2 #50 SFT2 ADD2
&seg ( width addr* -- )
.Screen/addr DEO2
STHk #00 SWP .Screen/x DEI2 ADD2
[ LIT &color $1 ] .Screen/sprite DEOk
- STHr #09 LTH JMP DEOk POP2
+ STHr #09 LTH [ JMP DEOk POP2 ]
.Screen/x DEO2
JMP2r