undar-lang/test/global-hardcoded.tal

15 lines
281 B
Tal

|0100
LIT2r 0000 main POP2r BRK
%putchar ( -- ) {
#18 DEO }
@main ( -- )
OVR2r LIT2r 0004 SUB2r
#007a STH2kr ( #0000 ADD2 ) STA2
#0020 STH2kr #0002 ADD2 STA2
STH2kr ( #0000 ADD2 ) LDA2 STH2kr #0002 ADD2 LDA2 SUB2 putchar
&return
POP2r JMP2r