restructure
This commit is contained in:
parent
7802158c71
commit
cdc13dc609
12
femto.tal
12
femto.tal
|
@ -72,15 +72,10 @@
|
||||||
%pen-line { ;term/rows LDA2 #0002 SUB2 NIP }
|
%pen-line { ;term/rows LDA2 #0002 SUB2 NIP }
|
||||||
%pen-col { ;term/cols LDA2 #0002 SUB2 NIP }
|
%pen-col { ;term/cols LDA2 #0002 SUB2 NIP }
|
||||||
|
|
||||||
|0100
|
( startup )
|
||||||
;read-filename .Console/vector DEO2
|
|0100 ;startup JMP2
|
||||||
|
|
||||||
( use this if hardcoding to 80x24 )
|
@startup ;read-filename .Console/vector DEO2 BRK
|
||||||
( ;setup-80x24 JSR2 )
|
|
||||||
|
|
||||||
( use this to detect terminal size )
|
|
||||||
( ;setup-terminal-size JSR2 )
|
|
||||||
BRK
|
|
||||||
|
|
||||||
( ERROR HANDLING )
|
( ERROR HANDLING )
|
||||||
|
|
||||||
|
@ -177,6 +172,7 @@
|
||||||
;filename ;open-file JSR2 ( open file )
|
;filename ;open-file JSR2 ( open file )
|
||||||
;setup-linecount JSR2 ( determine # of lines )
|
;setup-linecount JSR2 ( determine # of lines )
|
||||||
;setup-terminal-size JSR2 ( detect terminal dimensions )
|
;setup-terminal-size JSR2 ( detect terminal dimensions )
|
||||||
|
( ;setup-80x24 JSR2 ( hardcoded terminal size ) )
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
@bol
|
@bol
|
||||||
|
|
Loading…
Reference in New Issue