mirror of
https://github.com/erkyrath/infocom-zcode-terps.git
synced 2026-01-11 23:43:24 +00:00
46 lines
441 B
Plaintext
46 lines
441 B
Plaintext
PAGE
|
|
SBTTL "--- 0-OPS ---"
|
|
|
|
; -----
|
|
; RTRUE
|
|
; -----
|
|
|
|
; SIMULATE "RETURN 1"
|
|
|
|
GRTRUE: LDX #1
|
|
|
|
GRT1: LDA #0
|
|
|
|
GRT2: STX ARG1+LO
|
|
STA ARG1+HI
|
|
JMP GRET
|
|
|
|
; ------
|
|
; RFALSE
|
|
; ------
|
|
|
|
; SIMULATE "RETURN 0"
|
|
|
|
GRFALS: LDX #0
|
|
BEQ GRT1
|
|
|
|
; ------
|
|
; RSTACK
|
|
; ------
|
|
|
|
; "RETURN" WITH VALUE ON STACK
|
|
|
|
GRSTAK: JSR POPVAL ; GET VALUE INTO [X/A]
|
|
JMP GRT2
|
|
|
|
; ------
|
|
; FSTACK
|
|
; ------
|
|
|
|
; FLUSH TOP VALUE OFF G-STACK
|
|
|
|
GFSTAK EQU POPVAL
|
|
|
|
END
|
|
|