MACRO
&LAB JCS &BP
&LAB BCC *+5
 BRL &BP
 MEND
 MACRO
&LAB JEQ &BP
&LAB BNE *+5
 BRL &BP
 MEND
 MACRO
&LAB JNE &BP
&LAB BEQ *+5
 BRL &BP
 MEND
 MACRO
&LAB CLOSE &DCB
&LAB JSL $E100A8
 DC I2'$14'
 DC I4'&DCB'
 MEND
 MACRO
&LAB GET_EOF &DCB
&LAB JSL $E100A8
 DC I2'$19'
 DC I4'&DCB'
 MEND
 MACRO
&LAB OPEN &DCB
&LAB JSL $E100A8
 DC I2'$10'
 DC I4'&DCB'
 MEND
 MACRO
&LAB READ &DCB
&LAB JSL $E100A8
 DC I2'$12'
 DC I4'&DCB'
 MEND