JOB LOADABLE TAPE PROGRAM (0103) RAGAN * THIS PROGRAM TAKES ANY 1401 OBJECT THAT DOES NOT USE CORE * BETWEEN 7600 AND 7928 AND CREATES A LOADABLE TAPE FROM IT. ORG 7600 ORIGIN INTO HIGH CORE. READ R READ THE FIRST LOADER CCARD SW 1 SIMULATE THE LOAD BUTTON. SBR 52,ONE PUT THE RETURN ADDRESS IN THE CARD. B 1 GO EXECUTE THE CARD. ONE SBR 65,TWO PUT RETURN ADDRESS IN SECOND CARD. B 1 GO DO SECOND CARD. TWO SBR 71,THREE SET UP RETURN ADDRESS FOR THIRD CD. B 1 GO EXECUTE THE THIRD CARD. THREE BCE SET,40,/ IS IT THE LAST CARD OF THE DECK. MCW 46,146 IF NOT SAVE THE CARD IMAGE. SBR 71,THREE PUT IN THE RETURN ADDRESS. B 40 GO LOAD THIS PART OF THE PROGRAM. SET MCW 146,END=3 SAVE HIGHEST CORE ADDRESS REACHED. SW 41 SET UP TO GET THE LOAD PT. MCW 43,ST1+3 MOVE THE LOAD PT. INTO THE LOADER. MA '001',END ADD 1 TO HIGH CORE ADDRESS. MCW END,GM+6 INSERT HIGH CORE ADDRESS IN NEXT IN GM LCA '}',** PUT A GM+WM IN HIGH CORE LOC. MA '001',END ADD 1 MORE TO HIGH CORE LOC. WTW 1,START WRITE THE LOADER ON TAPE. WRITAP WTW 1,81 BEGIN WRITING REST OF PROGRAM SBR WRITAP+6 SAVE THE LAST WRITE ADDRESS. BER BAD WAS THERE A WRITE ERROR. C WRITAP+6,END IS ALL OF THE PROGRAM ON TAPE. BU WRITAP IF NOT GO WRITE THE NEXT SEGMENT. WTM 1 IF IT IS END-FILE THE TAPE. BSS *+6,G SSW G UP MEANS DO NOT REWIND. RWD 1 REWIND THE TAPE IF G DOWN. B H GO TO FINAL HALT. BAD BSP 1 BACKSPACE THE TAPE. A '1',CT=1 ADD 1 TO THE ERROR CT. BCE TAPE,CT,3 HAVE THERE BEEN 3 ERRORS. B WRITAP IF NOT TRY AGAIN. TAPE MCW 'BAD TAPE',240 IF SO THEN MOVE MESSAGE TO PRIT. W DISPLAY IT. MCW ' ',CT ZERO OUT THE CT. CC 1 EJECT THE PAGE. H H H HALT. * THIS IS THE LOADER WHICH IS ALWAYS THE FIRST RECORD ON THE TAPE * IT CONTAINS A CLEAR STORAGE ROUTINE IN ADDITION TO THE LOADER. START SW 72 PUT WM WITH THE GROUP MARK IN 72. CS 7999 CLEAR STORAGE. SBR 8 SAVE LAST 100'S POSITION. C 8, 71 ARE WE DOWN TO 99 YET. BU 5 IF NOT CLEAR ANOTHER HUNDRED LOCS. RTW 1,81 BEGIN LOADING THE PROGRAM. SBR 31 SAVE THE LAST LOAD ADDRESS. SBR 47 SET UP TO INSERT GM+WM. LCA 73, 0 PUT IN THE GM+WM. BER 0 IF TAPE ERROR GO HANG UP AT 0) BEF 62 IF EOF GO BEGIN EXECUTION. B 25 OTHERWISE CONTINUE LOADING PROGRAM. ST1 CS 0,80 TRANSFER CONTROL TO LOADED PROGRAM. DCW '099' DC '} ' GROUP MARK AND BLANK DA 1X26,G END READ 47 SET UP TO INSERT GM+WM.