test.agc
# This is just a little program for testing concepts in yaYUL.
# At the moment, the concept it's testing is the SECSIZ
# pseudo-op.
A EQUALS 0
BLOCK 2
SECSIZ 25
FIRST AD A
AD A
BLOCK 3
SECSIZ 64
SECOND XCH A
BANK
SECSIZ 6
SECONDB AD A
SETLOC FIRST
BANK
SECSIZ 12
THIRD AD A
BLOCK 3
SECSIZ 14
FOURTH AD A
BLOCK 3
SECSIZ 31
FIFTH AD A
BANK 2
SECSIZ 17
SIXTH AD A
BANK
SECSIZ 18
SEVENTH AD A
# Test for issue #1072
A = 0
L = 1
Q = 2
BLOCK 0
L1 ERASE 1
BLOCK 2
C1 RETURN
BLOCK 0
L2 ERASE
BLOCK 2
C2 RESUME
BLOCK 0
L3 ERASE 2
BLOCK 0
L4 ERASE