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

Catch writing in zero-page

This commit is contained in:
Devine Lu Linvega 2023-05-08 10:55:32 -07:00
parent 13f1cc26b5
commit 81c1150ad3
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/drifblim.tal
View File

@ -277,7 +277,13 @@ JMP2r
@write ( byte -- )
,&b STR
.head LDZ2 #0100 LTH2 ?&ignore
( <TODO> )
.head LDZ ?&no-zep
,&b LDR #00 EQU ?&no-zep
;err/zeropage set-error
&no-zep
.head LDZ #00 EQU ?&ignore
( </TODO> )
.scan LDZ ?&pass1
[ LIT2 &length $2 ] .head LDZ2 LTH2 ?&ignore ( cache )
( pass2 ) ;&b .File2/write DEO2
@ -542,6 +548,7 @@ JMP2r
&invalid "Invalid 20 "label $1
&rewind "Rewind $1
&opcode "Opcode $1
&zeropage "Zeropage $1
@opcodes [
"LIT "INC "POP "NIP "SWP "ROT "DUP "OVR