Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

48 lines (46 sloc) 1.628 kB
LOC 4
LDVTS $0,$0,0
LOC #100
Main SET $1,4
PUSHJ 0,InstTest
JMP Main
a IS #ffffffff % table entry when anything goes
b IS #ffff04ff % table entry when Y <= ROUND_NEAR
c IS #001f00ff % table entry for PUT and PUTI
d IS #ff000000 % table entry for RESUME
e IS #ffff0000 % table entry for SAVE
f IS #ff0000ff % table entry for UNSAVE
g IS #ff000003 % table entry for SYNC
h IS #ffff001f % table entry for GET
table GREG @
TETRA a,a,a,a,a,b,a,b,b,b,b,b,b,b,b,b % 0x
TETRA a,a,a,a,a,b,a,b,a,a,a,a,a,a,a,a % 1x
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % 2x
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % 3x
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % 4x
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % 5x
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % 6x
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % 7x
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % 8x
TETRA a,a,a,a,a,a,a,a,0,0,a,a,a,a,a,a % 9x
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % Ax
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % Bx
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % Cx
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % Dx
TETRA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a % Ex
TETRA a,a,a,a,a,a,c,c,a,d,e,f,g,a,h,a % Fx
tetra IS $1
maxXYZ IS $2
InstTest BN $0,9F
LDTU tetra,$0,0
SR $0,tetra,22
LDT maxXYZ,table,$0
BDIF $0,tetra,maxXYZ
PBNP maxXYZ,9F
ANDNML $0,#ff00
BNZ $0,9F
MOR tetra,tetra,#4
CMP $0,tetra,18
CSP tetra,$0,0
ODIF $0,tetra,7
9H POP 1,0
Jump to Line
Something went wrong with that request. Please try again.