; Four Squares in 0x0Dh instructions
; John Metcalf

MOV 004 @0F 001
ADD @0D 001 @0D
ADD @11 -10 @11
PIX 02F @12 000
PIX 040 008 000
SUB @0F 001 @0F
JGR @0F 000 @04
FLP @06 @0A 001
MOV 003 @0F 001
JGR 080 @0A @04
ADD @0D 070 @0D
ADD @11 081 @11
ADD @12 001 @12