mirror of https://git.sr.ht/~rabbits/drifblim
More routines are passing the type checker
This commit is contained in:
parent
e2c3e4c733
commit
98264bcd19
|
@ -203,7 +203,7 @@ JMP2r
|
||||||
.head LDZ2
|
.head LDZ2
|
||||||
LTH2k ?&no-pad
|
LTH2k ?&no-pad
|
||||||
SUB2k NIP2 !write-fill
|
SUB2k NIP2 !write-fill
|
||||||
&no-pad ( -- )
|
&no-pad ( addr* head* ~- dest* )
|
||||||
DUP2 #0101 LTH2 ?&no-err
|
DUP2 #0101 LTH2 ?&no-err
|
||||||
;err/rewind set-error
|
;err/rewind set-error
|
||||||
&no-err ( -- )
|
&no-err ( -- )
|
||||||
|
@ -235,8 +235,8 @@ JMP2r
|
||||||
DUP #02 EQU ?&byte
|
DUP #02 EQU ?&byte
|
||||||
#04 EQU ?&short
|
#04 EQU ?&short
|
||||||
POP2 POP2 ;err/number !set-error
|
POP2 POP2 ;err/number !set-error
|
||||||
&byte ( -- ) POP NIP2 NIP !write
|
&byte ( str* value* length ~- ) POP NIP2 NIP !write
|
||||||
&short ( -- ) NIP2 ( >> )
|
&short ( str* short* ~+ ) NIP2
|
||||||
@write-short ( short* -+ )
|
@write-short ( short* -+ )
|
||||||
SWP write
|
SWP write
|
||||||
@write ( byte -- )
|
@write ( byte -- )
|
||||||
|
@ -338,7 +338,7 @@ JMP2r
|
||||||
DUP2
|
DUP2
|
||||||
&w ( -- )
|
&w ( -- )
|
||||||
LDAk chex INC ?&valid
|
LDAk chex INC ?&valid
|
||||||
POP2 #00
|
POP2 #00
|
||||||
JMP2r
|
JMP2r
|
||||||
&valid ( str* ~- f )
|
&valid ( str* ~- f )
|
||||||
INC2 LDAk ?&w
|
INC2 LDAk ?&w
|
||||||
|
@ -355,10 +355,10 @@ JMP2r
|
||||||
INC GTHk ?&l
|
INC GTHk ?&l
|
||||||
POP2 POP2r #00
|
POP2 POP2r #00
|
||||||
JMP2r
|
JMP2r
|
||||||
&on-found ( -- )
|
&on-found ( name* ~- byte )
|
||||||
NIP ( LITk ) DUP #00 EQU #70 SFT ADD
|
NIP ( LITk ) DUP #00 EQU #70 SFT ADD
|
||||||
STH2r #0003 ADD2 find-modes ADD JMP2r
|
STH2r #0003 ADD2 find-modes ADD JMP2r
|
||||||
&on-brk ( -- )
|
&on-brk ( name* ~- byte )
|
||||||
POP2 #01
|
POP2 #01
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue