mirror of
https://github.com/historicalsource/abyss
synced 2024-05-01 08:29:29 +03:00
19 lines
219 B
Plaintext
19 lines
219 B
Plaintext
|
|
||
|
|
.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
|