(symbols) Formatting
This commit is contained in:
parent
d01df862dc
commit
d9df142e44
|
@ -2,12 +2,11 @@
|
|||
|
||||
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|
||||
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|
||||
|
||||
|0000
|
||||
|000
|
||||
|
||||
@src $40
|
||||
|
||||
|0100
|
||||
|100
|
||||
|
||||
@on-reset ( -> )
|
||||
.Console/type DEI ?{
|
||||
|
@ -41,8 +40,7 @@
|
|||
POP2 #01 JMP2r
|
||||
|
||||
@scap ( str* -- end* )
|
||||
&w ( -- )
|
||||
INC2 & LDAk ?&w
|
||||
INC2 & LDAk ?scap
|
||||
JMP2r
|
||||
|
||||
@sput ( chr str* -- )
|
||||
|
@ -58,15 +56,13 @@
|
|||
JMP2r
|
||||
|
||||
@<pstr> ( err* -- )
|
||||
&w ( -- )
|
||||
LDAk #19 DEO
|
||||
INC2 & LDAk ?&w
|
||||
LDAk #19 DEO
|
||||
INC2 & LDAk ?<pstr>
|
||||
POP2 JMP2r
|
||||
|
||||
@<perr> ( err* -- )
|
||||
&w ( -- )
|
||||
LDAk #19 DEO
|
||||
INC2 & LDAk ?&w
|
||||
LDAk #19 DEO
|
||||
INC2 & LDAk ?<perr>
|
||||
POP2 JMP2r
|
||||
|
||||
(
|
||||
|
@ -76,4 +72,3 @@
|
|||
|
||||
@sym
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue