1BLOCK SIX OF SECTION TWO.
2 MASTER RECORD CARD = FN053 F2600010
3DOFILE INVERSI0N ROUTINE--BLOCK 6 F2600020
00030 4ORG24 ORIGIN FOR DFI INSTRUCTIONS. F2600030
00030 0 77200 0 00224 5DFI01 REW148 REWIND OUTPUT TAPE 4 F2600040
00031 0 77200 0 00223 6REW147 AND INPUT TAPE 3 F2600050
00032 0 76200 0 00224 7DFI02 RDS148 SPACE F2600060
00033 0 70000 0 00163 8CPYERAS OVER F2600070
00034 0 02000 0 00032 9TRADFI02 FIRST FILE F2600080
00035 0 02000 0 00037 10TRADFI03 OF OUTPUT TAPE F2600090
00036 0 07400 4 00004 11TSXDIAG,4 FALSE END OF RECORD. F2600100
00037−0 76000 0 00143 12DFI03 MSE99 TEST SENSE LIGHT 3 FOR EMPTY INPUT F2600110
00040 0 02000 0 00044 13TRADFI05 NOT EMPTY F2600120
00041 0 76000 0 00142 14PSE98 TURN ON SENSE LIGHT 2, EMPTY OUTPUT. F2600130
00042 0 77000 0 00224 15DFI04 WEF148 WRITE END OF FILE ON OUTPUT TAPE. F2600140
00043 0 02000 0 00154 16TRAEXIT EXIT FROM DFI ROUTINE. F2600150
00044 0 53400 1 00156 17DFI05 LXAL(0),1 INITIALIZE TO BEGIN READING INTO N F2600160
00045−0 76000 0 00143 18MSE99 TURN OFF F2600170
00046 0 76100 0 00000 19NOP SENSE LIGHT 3 F2600180
00047−0 76000 0 00012 20RTT TURN OFF F2600190
00050 0 76100 0 00000 21NOP TAPE CHECK INDICATOR F2600200
00051 0 53400 2 00157 22 DFI10 LXAL(5),2 INITIALIZE TAPE ERROR COUNTER F2600210
00052−0 63400 1 00163 23SXDERAS,1 SAVE INDEX 1 IN CAS OF REREAD F2600220
00053 0 76200 0 00223 24DFI11 RDS147 PREPARE TO READ INPUT TAPE F2600230
00054 0 70000 1 00200 25DFI12 CPYNOR,1 COPY FIRST OF FOUR WORDS F2600240
00055 0 02000 0 00060 26TRADFI13 F2600250
00056 0 02000 0 00042 27TRADFI04 END OF FILE--GO TO EXIT F2600260
00057 0 02000 0 00111 28TRADFI20 END OF RECORD//GO TO REDUND TEST F2600270
00060 0 70000 1 00201 29DFI13 CPYNOR+1,1 COPY SECOND OF FOUR WORDS F2600280
00061 0 02000 0 00064 30TRADFI14 F2600290
00062 0 07400 4 00004 31TSXDIAG,4 FLASE END OF FILE. F2600300
00063 0 07400 4 00004 32TSXDIAG,4 FALSE END OF RECORD. F2600310
00064 0 70000 1 00202 33DFI14 CPYNOR+2,1 COPY THIRD OF FOUR WORDS F2600320
00065 0 02000 0 00070 34TRADFI15 F2600330
00066 0 07400 4 00004 35TSXDIAG,4 FLASE END OF FILE. F2600340
00067 0 07400 4 00004 36TSXDIAG,4 FALSE END OF RECORD. F2600I50
00070 0 70000 1 00203 37DFI15 CPYNOR+3,1 COPY FOURTH OF FOUR WORDS F2600360
00071 0 02000 0 00074 38TRADFI16 F2600370
00072 0 07400 4 00004 39TSXDIAG,4 FLASE END OF FILE. F2600380
00073 0 07400 4 00004 40TSXDIAG,4 FALSE END OF RECORD. F2600390
00074 0 50000 1 00201 41DFI16 CLANOR+1,1 F2600400
00075 0 10000 0 00122 42TZEDFI30 2ND WORD ZERO MEANS END OF NEST F2600410
00076 0 40200 0 00160 43SUBALLONE 2ND WORD ALL ONES F2600420
00077 0 10000 0 00107 44TZEDFI19 MEANS BEGINNING OF BLOCK F2600430
00100−0 76000 0 00143 45MSE99 WAS PREVIOUS FOUR WORDS BEG OF BLOCK F2600440
00101 0 02000 0 00104 46TRADFI17 NO, LEAVE FIRST WORD PLUS F2600450
00102−0 50000 0 00161 47CALL(M0) MAKE SIGN OF F2600460
00103−0 60200 1 00200 48ORSNOR,1 FIRST WORD MINUS F2600470
00104 1 77774 1 00105 49DFI17 TXIDFI18,1,−4 INDEX BY 4 FOR NEXT 4 WORDS F2600480
00105 3 70300 1 00054 50DFI18 TXHDFI12,1,−3904 TEST AND CONTINUE NEXT 4 WORDS F2600490
00106 0 07400 4 00004 51TSXDIAG,4 NOR BUFFER SIZE EXCEEDED. F2600500
00107 0 76000 0 00143 52DFI19 PSE99 TURN ON BEGIN OF BLOCK IND F2600510
00110 0 02000 0 00054 53TRADFI12 CONTINUE NEXT FOUR WORDS F2600520
00111 0 76600 0 00333 54DFI20 WRS219 DELAY UNTIL TAPE DISCONNECTS F2600530
00112−0 76000 0 00012 55RTT TEST TAPE CHECK F2600540
00113 0 02000 0 00115 56TRADFI21 ERROR F2600550
00114 0 02000 0 00051 57TRADFI10 IF NO ERROR RETRN TO READ NEXT RECORD F2600560
00115 2 00001 2 00117 58DFI21 TIXDFI22,2,1 REDUCE ERROR COUNTER BY 1 F2600570
00116 0 07400 4 00004 59TSXDIAG,4 TAPE CHECK. TRIED 5 TIMES. F2600580
00117 0 76400 0 00223 60DFI22 BST147 RESTORE TAPE POSITION F2600590
00120−0 53400 1 00163 61LXDERAS,1 AND INDEX 1 F2600600
00121 0 02000 0 00053 62TRADFI11 FOR ANOTHER TRY F2600610
00122 0 70000 0 00163 63DFI30 CPYERAS CHECK THAT END OF RECORD F2600620
00123 0 07400 4 00004 64TSXDIAG,4 HAS BEEN REACHED---END OF NEST. F2600630
00124 0 07400 4 00004 65TSXDIAG,4 RECORD IS ONLY FOUR WORDS. F2600640
00125 0 76600 0 00333 66WRS219 DELAY UNTIL TAPE DISCONNECTSP F2600650
00126−0 76000 0 00012 67RTT TEST TAPE CHECK F2600660
00127 0 02000 0 00131 68TRADFI40 ERROR F2600670
00130 0 02000 0 00133 69TRADFI50 PROCEED TO PROCESS THIS NEST F2600680
00131 2 00001 2 00117 70DFI40 TIXDFI22,2,1 REDUCE ERROR COUNT BY 1 AND RETRY F2600690
00132 0 07400 4 00004 71TSXDIAG,4 TAPE CHECK. TRIED 5 TIMES. F2600700
00133−0 63400 1 00146 72DFI50 SXDDFI55,1 STORE INDEX FOR END OF BLOCK TEST F2600710
00134 1 00004 1 00135 73DFI51 TXIDFI52,1,4 F2600720
00135 0 50000 1 00200 74DFI52 CLANOR,1 SCAN UP EVERY FOURTH WORD F2600730
00136 0 12000 0 00134 75TPLDFI51 TO TEST FOR,MINUS F2600740
00137−0 63400 1 00163 76SXDERAS,1 SAVE FOR NEXT END OF BLOCK TEST F2600750
00140 0 50200 1 00200 77CLSNOR,1 RESTORE PLUS SIGN TO F2600760
00141 0 60100 1 00200 78STONOR,1 FIRST WORD OF BLOCK F2600770
00142 0 76600 0 00224 79DFI53 WRS148 SELECT OUTPUT TAPE F2600780
00143 0 53400 2 00162 80LXAL(100),2 PREPARE FOR NEXT 100 WORDS F2600790
00144 0 70000 1 00200 81DFI54 CPYNOR,1 WRITE BLOCK IN F2600800
00145 1 77777 1 00146 82TXIDFI55,1,−1 FORWARD DIRECTION F2600810
D00146−3 00000 1 00151 83DFI55 TXLDFI60,1 UNTIL END OF BLOCK F2600820
00147 2 00001 2 00144 84TIXDFI54,2,1 IF WORDS IN RECORD F2600830
00150 0 02000 0 00142 85TRADFI53 START ANOTHER RECORDEACHED 0 F2600840
00151−0 53400 1 00163 86DFI60 LXDERAS,1 IF INDEX 1 HAS NOT REACHED 0 F2600850
00152 3 00000 1 00133 87TXHDFI50,1,0 PROCESS NEXT BLOCK F2600860
00153 0 02000 0 00044 88TRADFI05 RETURN TO PROCESS NEXT NEST F2600870
00154 0 76200 0 00221 89 EXIT RDS145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE.F2600880
00155 0 02000 0 00004 90TRA4
91 CONSTANTS AND ERAS STORAGE FOR DFI F2600900
00156 0 00000 0 00000 92L(0) 0 F2600910
00157 0 00000 0 00005 93 L(5) 5 F2600920
00160+377777777777 94ALLONE OCT377777777777 F2600930
00161−0 00000 0 00000 95L(M0) MZE0 - F2600940
00162 0 00000 0 00144 96L(100) 100 F2600950
00163 97ERAS BSS1 F2600960
00200 98ORG128 ORIGIN FOR NOR F2600970
00200 99NOR BSS3904 F2600980
00004 100 DIAG EQU4 F2600990