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-01-19 19:30:13 -08:00
parent 5bad100025
commit 6130738538
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/error.tal
View File

@ -1,3 +1,5 @@
|0020 "zero-page-writing $1
|0100
( invalid paddings )

8
src/drifblim.tal
View File

@ -159,14 +159,17 @@ JMP2r
@write ( byte -- )
,&head LDR2 #0100 LTH2 ?&err
[ LIT &skip 01 ] ?&no-write
DUP ;rom ;write/head LDA2 ADD2 STA
DUP #00 EQU ?&no-write
[ LIT2 &head 0100 ] ;assemble/length STA2
&no-write
POP
( move )
#0001 !move-head
#0001 !move-head
&err POP ;token ;err/zeropage !crash
(
@|helpers )
@ -417,6 +420,7 @@ JMP2r
&limit "Labels-limit $1
&invalid "Invalid $1
&mode "Mode $1
&zeropage "Zero-page $1
@opcodes
"LIT "INC "POP "NIP "SWP "ROT "DUP "OVR