neauoire
/
drifblim
mirror of https://git.sr.ht/~rabbits/drifblim
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Format

This commit is contained in:
neauoire 2023-12-03 09:11:14 -08:00
parent e5093ae1dc
commit 20ef7f8572
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/drifblim.tal
View File

@ -40,7 +40,7 @@
( name ) "Drifblim 0a ( name ) "Drifblim 0a
( desc ) "Uxntal 20 "Assembler 0a ( desc ) "Uxntal 20 "Assembler 0a
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a ( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "19 20 "Nov 20 "2023 $1 ( date ) "3 20 "Dec 20 "2023 $1
( exts ) 00 ( exts ) 00
( (
@ -214,7 +214,8 @@
( >> ) ( >> )
@<write> ( byte -- ) @<write> ( byte -- )
DUP .head LDZ2 INC2k STH2 ;rom ADD2 STA DUP .head LDZ2 INC2k STH2
;rom ADD2 STA
<set-length> <set-length>
STH2r STH2r
( >> ) ( >> )
@ -312,7 +313,8 @@
[ LIT2r 0000 ] [ LIT2r 0000 ]
&w ( -- ) &w ( -- )
( acc ) [ LITr 40 ] SFT2r ( acc ) [ LITr 40 ] SFT2r
( res ) LDAk chex [ LITr 00 ] STH ADD2r INC2 LDAk ?&w ( res ) LDAk chex [ LITr 00 ] STH
ADD2r INC2 LDAk ?&w
POP2 STH2r JMP2r POP2 STH2r JMP2r
@get-rel ( label* -- distance ) @get-rel ( label* -- distance )
@ -337,7 +339,8 @@
#01 JMP2r #01 JMP2r
@find-opcode ( name* -- byte ) @find-opcode ( name* -- byte )
STH2 #2000 STH2
#2000
&l ( -- ) &l ( -- )
#00 OVR #03 MUL ;opcodes ADD2 STH2kr scmp3 ?&on-found #00 OVR #03 MUL ;opcodes ADD2 STH2kr scmp3 ?&on-found
INC GTHk ?&l INC GTHk ?&l
@ -352,7 +355,8 @@
DUP ADD OVR [ LIT "k ] EQU ?&>end DUP ADD OVR [ LIT "k ] EQU ?&>end
DUP ADD OVR #00 EQU ?&>end DUP ADD OVR #00 EQU ?&>end
;err/opcode <set-error> &>end ;err/opcode <set-error> &>end
NIP STH ORAr INC2 LDAk ?&w NIP STH
ORAr INC2 LDAk ?&w
POP2 STHr ADD JMP2r POP2 STHr ADD JMP2r
( (
@ -365,7 +369,8 @@
@zkey ( key ztr -- proc ) @zkey ( key ztr -- proc )
OVR #21 LTH ?&eval OVR #21 LTH ?&eval
LDZk #2f EQU ?&overflow LDZk #2f EQU ?&overflow
( write char ) STH #00 STHkr LDZk ADD INC STZ2 ( write char ) STH
#00 STHkr LDZk ADD INC STZ2
( incr len ) STHr LDZk INC SWP STZ ( incr len ) STHr LDZk INC SWP STZ
#00 JMP2r #00 JMP2r
&overflow ( key ztr -- proc ) &overflow ( key ztr -- proc )
@ -400,7 +405,8 @@
NIP2 POP2r EQU JMP2r NIP2 POP2r EQU JMP2r
@scmp3 ( a* b* -- f ) @scmp3 ( a* b* -- f )
STH2 LDAkr LDAk STHr NEQ ?{ INC2r INC2 } STH2
LDAkr LDAk STHr NEQ ?{ INC2r INC2 }
LDA2r LDA2 STH2r EQU2 JMP2r LDA2r LDA2 STH2r EQU2 JMP2r
@chex ( c -- <val> ) @chex ( c -- <val> )