github.com/historicalsource.abyss
1
0
Fork 0
mirror of synced 2026-01-30 13:26:48 +00:00
Code Issues Releases Wiki Activity

Final Revision

Browse Source
This commit is contained in:
historicalsource
2019-04-14 16:25:39 -04:00
commit 2ac9da82cb
103 changed files with 54604 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
pstack.zap Normal file
View File

@@ -0,0 +1,18 @@
.SEGMENT "0"
.FUNCT PEEK-PSTACK:ANY:1:2,S,OFFS,N,VAL
?PRG1: POP S >VAL
PUSH VAL
INC 'N
DLESS? 'OFFS,0 \?PRG1
?PRG5: DLESS? 'N,0 /?REP6
POP
XPUSH STACK,S /?PRG5
JUMP ?PRG5
?REP6: RETURN VAL
.ENDSEG
.ENDI