1 1 9T11A 11/1/58 PAGE 1 * F I L E S E A R C H R O U T I N E * * 00030 ORG 24 * 00030 0762 00 0 01221 START RTBA 1 READ SEARCH ROUTINE 00031 0540 00 0 00065 RCHA CW3 TAPE MARK 00032 0060 00 0 00032 TCOA * 00033 0030 00 0 00035 TEFA *+2 00034 0000 00 0 00053 HTR D DID NOT READ TAPE MARK 00035 0420 00 0 00000 HPR HALT TO ENTER KEYS 00036 0760 00 0 00004 ENK DEPRESS KEY DESIGNATING FILE DESIRED 00037 -0130 00 0 00000 XCL EXCHANGE MQ TO ACC. 00040 0767 00 0 00001 A ALS 1 00041 0602 00 0 00060 SLW T SAVE ACC. FOR SAFETY 00042 -0760 00 0 00001 PBT TEST FOR P BIT WHICH INDICATES FILE FOUND 00043 0020 00 0 00045 TRA B FILE SKIP 00044 0020 00 0 00054 TRA C FILE FOUND 00045 0762 00 0 01221 B RTBA 1 SKIP FILE 00046 0540 00 0 00061 RCHA CW1 DO NOT TRANSMIT TO STG. 00047 0060 00 0 00047 TCOA * 00050 -0500 00 0 00060 CAL T BRING BACK FILE KEY 00051 0030 00 0 00040 TEFA A EOF INDICATED 00052 0420 00 0 00000 HPR NO EOF TRY FILE SEARCH 00053 0772 00 0 01201 D REWA 1 AGAIN. PRESS START 00054 0762 00 0 01221 C RTBA 1 SIMULATE LOAD BUTTON 00055 0540 00 0 00063 RCHA CW2 00056 0060 00 0 00056 TCOA * 00057 0020 00 0 00001 TRA 1 00060 +000000000000 T OCT 0 00061 -0777 77 2 00000 CW1 IOCP 0,2,-1 00062 1 00000 0 00061 TCH *-1 00063 -0000 03 0 00000 CW2 IOCP 0,0,3 00064 1 00000 0 00000 TCH 0 00065 0001 20 2 00000 CW3 IOCD 0,2,80 00030 END 24 1 *EOF*