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