ASR33IOL, F$R1

* O070-001-H001 (ASR33IOL) DRAWING NO. 41286032-001-01 PAGE 7

0301 * DAC BUFFER ADDRESS C$OI 0302 * RETURN C$OP 0303 * O$AK 0304 * C$OE 0305 * (IDENTICAL WITH O$AAE) 0306 * 0307 * O$AAE 0308 * (SEE O$AA) 0309 * 0310 * O$AS CALL O$AS O$AINT NONE 0311 * RETURN C$OP 0312 * (IDENTICAL WITH O$ASS AND O$ASE) O$AK 0313 * 0314 * O$ASS 0315 * (SEE O$AS) 0316 * 0317 * O$ASE 0318 * (SEE O$AS) 0319 * 0320 * I$AB CALL I$AB I$AO CK CHECKSUM ERROR 0321 * DAC BUFFER ADDRESS C$ER 0322 * END OF TEXT RETURN 0323 * NORMAL RETURN 0324 * 0325 * O$AB CALL O$AB O$AO NONE 0326 * DAC BUFFER ADDRESS 0327 * RETURN 0328 * (THE FIRST WORD OF THE BUFFER 0329 * CONTAINS THE NUMBER OF DATA 0330 * WORDS FOLLOWING) 0331 * 0332 * O$ASO CALL O$ASO D$AINT NONE 0333 * RETURN O$AK 0334 * (IDENTICAL WITH F$D1) 0335 * 0336 * F$D1 0337 * (SEE O$ASO) 0338 * 0339 * I$AO LDA BUFFER ADDRESS I$AINT BL BLOCK LENGTH 0340 * CALL I$AO I$AK ERROR 0341 * END OF TEXT RETURN C$ER 0342 * NORMAL RETURN I$AT 0343 * C$IS 0344 * A-REGISTER ON RETURN:- 0345 * ZERO = CHECKSUM AGREED 0346 * NON-ZERO = CHECKSUM VIOLATION 0347 * 0348 * O$AO LDX MINUS NO. DATA WORDS O$AINT NONE 0349 * LDA BUFFER ADDRESS O$AK 0350 * CALL O$AO C$SI