␣␣␣␣␣A = 0
  1. Definition
    00000 0 53400 1 00000 3A LXA0,1 BOOTSTRAP FOR FIRST CARD
  2. References (5)
    05671 0 70000 0 00000 29CPYA
    05675 0 50000 0 00000 33CLAA
    05704−0 50000 0 00000 40CALA
    05721 0 50000 0 00000 53CLAA IS NEW CONTROL CARD WEF, 9L IS -0
    05741 0 50000 0 00000 69NX CLAA IF ONLY THIS PROGRAM AND WEF CARD
␣␣␣␣␣B = 1
  1. Definition
    00001 0 70000 1 00002 4B CPY2,1
  2. References (4)
    05674 0 70000 0 00001 32TEST CPYB
    05710 0 50000 0 00001 44CLAB
    05715 0 70000 0 00001 49CONCRD CPYB 8L OVER 9R, REST OF CARD IS IGNORED
    05761 0 50000 0 00001 85NX4 CLAB
␣␣␣␣␣C = 2
  1. Definition
    00002 1 77777 1 00001 5C TXI1,1,−1
  2. References (2)
    05707 0 60200 0 00002 43SLWC
    05712 0 40200 0 00002 46SUBC
␣␣␣␣MM = 3108
  1. Definition
    06044−0 63400 1 00027 136MM SXDTPCONT,1
  2. Reference
    06043 1 00001 1 06044 135TXIMM,1,1
␣␣␣␣NX = 3041
  1. Definition
    05741 0 50000 0 00000 69NX CLAA IF ONLY THIS PROGRAM AND WEF CARD
  2. References (2)
    05720 0 10000 0 05741 52TZENX LAST NEW REC. CARD, REMAINS 0 IF WEF ONLY
    05722−0 10000 0 05741 54TNZNX
␣␣␣␣RD = 4
  1. Definition
    00004−3 77540 1 00012 7RD TXLWEF1,1,−160
  2. References (2)
    00010 0 00000 0 00004 11HTRRD
    00011 0 02000 0 00004 12TRARD
␣␣␣ALL = 3028
  1. Definition
    05724 0 07400 4 05777 56ALL TSXREAD,4 YES, END OF CHANGES, HAS ALL OF MASTER
  2. Reference
    05734 0 02000 0 05724 64TRAALL AND GET NEXT FROM MASTER
␣␣␣END = 3037
  1. Definition
    05735 0 77000 0 00201 65END WEF1
  2. Reference
    05726−0 12000 0 05735 58TMIEND
␣␣␣NOP = 3123
  1. Definition
    06063 0 76100 0 00000 151NOP NOP
  2. Reference
    06074 0 50000 0 06063 160TST2 CLANOP
␣␣␣NX1 = 3044
  1. Definition
    05744 0 50000 0 00021 72NX1 CLARDREC GET NUMBER OF REC LEFT IN CORES BY READ
  2. Reference
    05756 0 02000 0 05744 82TRANX1 TEST AGAINST NEW RECORD CARD
␣␣␣NX3 = 3055
  1. Definition
    05757 0 10000 0 05761 83NX3 TZENX4 IF CORRECT REC, SET WORD COUNT ETC.
  2. Reference
    05747 0 12000 0 05757 75TPLNX3
␣␣␣NX4 = 3057
  1. Definition
    05761 0 50000 0 00001 85NX4 CLAB
  2. References (2)
    05745−0 12000 0 05761 73TMINX4 MINUS IF NO MORE RECORDS ON MASTER
    05757 0 10000 0 05761 83NX3 TZENX4 IF CORRECT REC, SET WORD COUNT ETC.
␣␣␣ONE = 14
  1. Definition
    00016 0 00000 0 00001 17ONE HTR1
  2. References (3)
    05762 0 40000 0 00016 86ADDONE ADD 1 TO LAST ADDRESS FOR WRITE LOOP
    06001 0 40200 0 00016 101SUBONE IF 1ST RECORD STILL IN CORE, SET
    06011−0 53400 2 00016 109RDAGIN LXDONE,2 IE., ZERO
␣␣␣OUT = 3099
  1. Definition
    06033 0 02000 4 00001 127OUT TRA1,4
  2. Reference
    06000−0 12000 0 06033 100TMIOUT HAS END OF FILE BEEN REACHED
␣␣␣RCD = 3000
  1. Definition
    05670 0 76200 0 00321 28RCD RCD
  2. References (7)
    00015 0 02000 0 05670 16TRARCD
    05673 0 00000 0 05670 31HTRRCD
    05711 0 10000 0 05670 45TZERCD
    05713 0 10000 0 05670 47TZERCD
    05714 0 00000 0 05670 48HTRRCD IGNORE CHECK SUM
    05773 0 02000 0 05670 95TRARCD
    05776 0 02000 0 05670 98TRARCD
␣␣␣RD2 = 3077
  1. Definition
    06005 0 50000 0 00020 105RD2 CLAERREC 3RD, 4TH ETC, ADDRESS IS LOCREC IN REC 2
  2. Reference
    06002−0 10000 0 06005 102TNZRD2 ADDRESS TO READ IN 2ND RECORD
␣␣␣RD3 = 3078
  1. Definition
    06006 0 62100 0 06013 106RD3 STARDLOOP
  2. Reference
    06004 0 02000 0 06006 104TRARD3
␣␣␣REC = 19
  1. Definition
    00023 0 00000 0 00000 22REC HTR0 REC NUMBER FROM NEW REC CARD
  2. References (3)
    05717 0 50000 0 00023 51CLAREC INIT. 0, OR HAS NUMBER OF DIAG. REC. FROM
    05743 0 62100 0 00023 71STAREC OTHERWISE SAVE NEW RECORD NUMBER
    05746 0 40200 0 00023 74SUBREC IS RECORD IN CORE THE ONE CALLED FOR
␣␣␣SIX = 22
  1. Definition
    00026 0 00000 0 00006 25SIX HTR6
  2. Reference
    06060 0 53400 2 00026 148LXASIX,2 IF MASTER FILE DOES NOT HAVE DIAG.,
␣␣␣WDC = 21
  1. Definition
    00025 0 00006 0 00000 24WDC HTR0,0,6
  2. References (5)
    05730 0 62200 0 00025 60STDWDC
    05751 0 62200 0 00025 77STDWDC
    05772 0 62200 0 00025 94STDWDC
    05775 0 60000 0 00025 97STZWDC
    06046−0 53400 2 00025 138WRITE LXDWDC,2 WORD COUNT ZERO TO DELETE RECORD
␣␣COPY = 3013
  1. Definition
    05705−0 70000 4 00000 41COPY CAD0,4
  2. References (4)
    05677 0 62100 0 05705 35STACOPY SAVE ADDRESS OF FIRST INSTRUCTION
    05702 0 40200 0 05705 38SUBCOPY ADD FIRST ADDRESS
    05703 0 62100 0 05705 39STACOPY STORE BASE ADDRESS IN COPY LOOP
    05706 2 00001 4 05705 42TIXCOPY,4,1
␣␣END2 = 3137
  1. Definition
    06101 0 76200 0 00225 165END2 RTB5 SPACE OVER END FILE GAP AT END FILE 2
  2. Reference
    05716 0 02000 0 06101 50TRAEND2 WILL BE REPLACED BY NOP
␣␣ERAS = 20
  1. Definition
    00024 0 00000 0 00000 23ERAS HTR0
  2. References (2)
    05764 0 62100 0 00024 88STAERAS
    05766 0 40200 0 00024 90SUBERAS IF LAST ADDRESS NOT GREATER THAN
␣␣ISCP = 3121
  1. Definition
    06061 0 70000 2 00037 149ISCP CPY31,2 SET READ TO IGNORE, OTHERWISE
  2. Reference
    06062 2 00001 2 06061 150TIXISCP,2,1 FIRST RECORD WILL BE IN CORES
␣␣READ = 3071
  1. Definition
    05777 0 50000 0 00021 99READ CLARDREC
  2. References (2)
    05724 0 07400 4 05777 56ALL TSXREAD,4 YES, END OF CHANGES, HAS ALL OF MASTER
    05755 0 07400 4 05777 81TSXREAD,4 BRING NEXT RECORD FROM MASTER AND
␣␣REC2 = 15
  1. Definition
    00017 0 00000 0 00036 18REC2 HTR30
  2. Reference
    06003 0 50000 0 00017 103CLAREC2
␣␣RTB1 = 3136
  1. Definition
    06100 0 76200 0 00221 164RTB1 RTB1
  2. References (2)
    06055 0 70000 0 06101 145CPYRTB1+1
    06070 0 40200 0 06100 156SUBRTB1
␣␣TEST = 3004
  1. Definition
    05674 0 70000 0 00001 32TEST CPYB
  2. Reference
    05672 0 02000 0 05674 30TRATEST
␣␣TST1 = 3130
  1. Definition
    06072−0 76000 0 00003 158TST1 SSM
  2. Reference
    06066−0 10000 0 06072 154TNZTST1
␣␣TST2 = 3132
  1. Definition
    06074 0 50000 0 06063 160TST2 CLANOP
  2. Reference
    06071 0 10000 0 06074 157TZETST2
␣␣WEF1 = 10
  1. Definition
    00012 0 77000 0 00201 13WEF1 WEF1
  2. Reference
    00004−3 77540 1 00012 7RD TXLWEF1,1,−160
␣BSTP5 = 3103
  1. Definition
    06037−0 53400 1 00027 131BSTP5 LXDTPCONT,1
  2. Reference
    06020 0 02000 0 06037 116TRABSTP5
␣ERREC = 16
  1. Definition
    00020 0 00000 0 01303 19ERREC HTRLOCREC
  2. Reference
    06005 0 50000 0 00020 105RD2 CLAERREC 3RD, 4TH ETC, ADDRESS IS LOCREC IN REC 2
␣FXWDC = 3089
  1. Definition
    06021−0 75400 2 00000 117FXWDC PXD0,2
  2. Reference
    06041 0 00000 0 06021 133HTRFXWDC PRESS START TO ACCEPT
␣RDREC = 17
  1. Definition
    00021 0 00000 0 00001 20RDREC HTR1 REC NUMBER IN DIAG FILE, 1ST WORD OF REC
  2. References (6)
    05725 0 50000 0 00021 57CLARDREC BEEN WRITTEN, RDREC WILL BE -
    05744 0 50000 0 00021 72NX1 CLARDREC GET NUMBER OF REC LEFT IN CORES BY READ
    05777 0 50000 0 00021 99READ CLARDREC
    06032 0 62100 0 00021 126STARDREC
    06035 0 60100 0 00021 129STORDREC
    06073 0 60100 0 00021 159STORDREC
␣RDWDC = 18
  1. Definition
    00022 0 00006 0 00000 21RDWDC HTR0,0,6 WORD COUNT OF RECORD READ FROM TAPE 5
  2. References (4)
    05727 0 50000 0 00022 59CLARDWDC NO, READ IN NEXT RECORD FROM MASTER
    05750 0 50000 0 00022 76CLARDWDC NOT YET, WRITE CORE RECORD ON NEW TAPE
    05774 0 60000 0 00022 96DELETE STZRDWDC
    06024 0 62200 0 00022 120STDRDWDC AND FIND BASE ADDRESS
␣TEST1 = 3135
  1. Definition
    TD06077 3 00000 0 00001 163TEST1 TXH1
  2. Reference
    06065 0 40200 0 06077 153SUBTEST1
␣WRITE = 3110
  1. Definition
    06046−0 53400 2 00025 138WRITE LXDWDC,2 WORD COUNT ZERO TO DELETE RECORD
  2. References (2)
    05733 0 07400 4 06046 63WTREC1 TSXWRITE,4 WRITE ON NEW TAPE
    05754 0 07400 4 06046 80TSXWRITE,4
␣WTOUT = 3115
  1. Definition
    06053 0 02000 4 00001 143WTOUT TRA1,4
  2. Reference
    06047−3 00000 2 06053 139TXLWTOUT,2,0
CONCRD = 3021
  1. Definition
    05715 0 70000 0 00001 49CONCRD CPYB 8L OVER 9R, REST OF CARD IS IGNORED
  2. References (3)
    05676−0 12000 0 05715 34TMICONCRD MINUS IF NEW RECORD CARD
    06075 0 60100 0 05716 161STOCONCRD+1
    06076 0 02000 0 05717 162TRACONCRD+2
CPLODR = 6
  1. Definition
    00006 0 70000 1 05642 9CPLODR CPY3000−22,1 COPY REST OF EDITOR INTO UPPER MEMORY
  2. Reference
    00007 1 77777 1 00006 10TXICPLODR,1,−1
DELETE = 3068
  1. Definition
    05774 0 60000 0 00022 96DELETE STZRDWDC
  2. References (2)
    05767 0 10000 0 05774 91TZEDELETE FIRST ADDRESS DELETE THIS REC WHEN COPYING
    05770 0 12000 0 05774 92TPLDELETE MASTER
ISDIAG = 3116
  1. Definition
    06054 0 76200 0 00225 144ISDIAG RTB5 SPACE OVER LIBRARY
  2. References (2)
    06056 0 02000 0 06054 146TRAISDIAG
    06102 0 02000 0 06054 166TRAISDIAG
ONEDEC = 3
  1. Definition
    00003 0 00001 0 00000 6ONEDEC HTR0,0,1
  2. Reference
    06023 0 40000 0 00003 119ADDONEDEC RECOMPLIMENT WORD COUNT
RDAGIN = 3081
  1. Definition
    06011−0 53400 2 00016 109RDAGIN LXDONE,2 IE., ZERO
  2. Reference
    06045 0 02000 0 06011 137TRARDAGIN
RDLOOP = 3083
  1. Definition
    06013 0 70000 2 00037 111RDLOOP CPY31,2
  2. References (6)
    05731 0 50000 0 06013 61CLARDLOOP
    05752 0 50000 0 06013 78CLARDLOOP
    06006 0 62100 0 06013 106RD3 STARDLOOP
    06014 1 77777 2 06013 112TXIRDLOOP,2,−1
    06027 0 40000 0 06013 123ADDRDLOOP ADD WORD COUNT TO FIRST ADDRESS
    06030 0 62100 0 06013 124STARDLOOP
SETEOF = 3100
  1. Definition
    06034−0 76000 0 00003 128SETEOF SSM SET RDREC - IF END OF MASTER FILE
  2. Reference
    06015 0 02000 0 06034 113TRASETEOF
SETREC = 3097
  1. Definition
    06031 0 50000 0 00000 125SETREC CLA0 FIRST WORD OF RECORD HAS RECORD NUMBER
  2. Reference
    06007 0 62100 0 06031 107STASETREC
TPCONT = 23
  1. Definition
    00027 0 00000 0 00000 26TPCONT HTR0
  2. References (3)
    06010 0 60000 0 00027 108STZTPCONT
    06037−0 53400 1 00027 131BSTP5 LXDTPCONT,1
    06044−0 63400 1 00027 136MM SXDTPCONT,1
TRABST = 3106
  1. Definition
    06042 0 76400 0 00205 134TRABST BST5
  2. Reference
    06040−3 00017 1 06042 132TXLTRABST,1,15
WTLOOP = 3113
  1. Definition
    06051 0 70000 2 00037 141WTLOOP CPY31,2
  2. References (4)
    05732 0 62100 0 06051 62STAWTLOOP
    05753 0 62100 0 06051 79STAWTLOOP
    05763 0 62100 0 06051 87STAWTLOOP
    06052 2 00001 2 06051 142TIXWTLOOP,2,1
WTREC1 = 3035
  1. Definition
    05733 0 07400 4 06046 63WTREC1 TSXWRITE,4 WRITE ON NEW TAPE
  2. References (2)
    05723 0 02000 0 05733 55TRAWTREC1 WRITE CURRENT BUFFER
    05742 0 10000 0 05733 70TZEWTREC1 WRITE ALL OF MASTER WITHOUT CHANGES