Deck DMREC Part 008

25 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S10993 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
12611  M02S10993.dmrec7  ---|          NZ     X1,UPD14    IF ERROR
Line S10994 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
12612  M02S10994.dmrec7  ---|          RJ     AAI         APPLY AFTER IMAGES
12613  M01S00407.dmrec7  +++|          ZR     X1,UPD11.2  IF NO ERROR
12614  M01S00408.dmrec7  +++|          PL     X1,UPD11.11 IF ERROR
12615  M01S00409.dmrec7  +++|          MX0    -2
12616  M01S00410.dmrec7  +++|          BX1    -X0-X1
12617  M01S00411.dmrec7  +++|          NZ     X1,UPD12    IF *EOF*
12618  M01S00412.dmrec7  +++| UPD11.11 RJ     RRE         READ RECOVERY ERROR
12619  M01S00413.dmrec7  +++|          NZ     X1,UPD14    IF ERROR
12620  M01S00414.dmrec7  +++|          EQ     UPD11.1     CONTINUE PROCESSING
12621  M01S00415.dmrec7  +++|
12622  M01S00416.dmrec7  +++| UPD11.2  SA2    EORCNT
12623  M01S00417.dmrec7  +++|          SX6    X2+B1
12624  M01S00418.dmrec7  +++|          SA6    A2          INCREMENT EOR COUNT
12625  M01S00419.dmrec7  +++|          RJ     AAI         APPLY AFTER IMAGES
Line S10995 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
12626  M02S10995.ns2056  ---|          NZ     X1,UPD15    IF ERROR
12627  M01S00240.ns2056  +++|          NZ     X1,UPD14    IF ERROR
Line S10996 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec7
Seq #  *Modification Id* Act 
----------------------------+
12628  M02S10996.dmrec7  ---|          EQ     UPD11       GET NEXT RECORD
12629  M01S00420.dmrec7  +++|          EQ     UPD11.1     GET NEXT RECORD
12630  M01S10997.dmrec   +++|
12631  M01S10998.dmrec   +++| UPD12    RETURN TP
12632  M01S10999.dmrec   +++|          EQ     UPD8        GET NEXT TAPE
12633  M01S11000.dmrec   +++|
12634  M01S11001.dmrec   +++| UPD13    ERROR  UPDB,,,UPD14,,E  RECORD NUMBER ERROR
12635  M01S11002.dmrec   +++|
12636  M01S00241.ns2056  +++| UPD13.0  SA2    XXIXN
12637  M01S00242.ns2056  +++|          ZR     X2,UPD14    IF NO INDEX FILE
12638  M01S00243.ns2056  +++|          RJ     BIF         BUILD INDEX FILE
12639  M01S00244.ns2056  +++|          RJ     RAF         RETURN ALL FILES
12640  M01S00245.ns2056  +++|          EQ     DMR3        RETURN NORMAL
12641  M01S00246.ns2056  +++|
12642  M01S11003.dmrec   +++| UPD14    CLOSEM DFIT,U
12643  M01S11004.dmrec   +++|          RJ     RAF         RETURN DATA FILES
12644  M01S11005.dmrec   +++|          EQ     DMR3        NORMAL RETURN
12645  M01S11006.dmrec   +++|
Line S11007 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
12646  M02S11007.ns2056  ---| UPD15    CLOSEM DFIT,U
Line S11008 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
12647  M02S11008.ns2056  ---|          RJ     RAF         RETURN DATA FILES
Line S11009 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
M03 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
12648  M03S11009.ns2056  ---|          SA1    QRFFLG      GET QRF DOWN FLAG
Line S11010 Modification History
M01 (Added by) dmrec
M02 (Updated by) dmrec2
M03 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
12649  M03S11010.ns2056  ---|          NG     X1,REC2     IF *QRF* DOWN RECOVERY
Line S11011 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
12650  M02S11011.ns2056  ---|          EQ     DMR3        RETURN
Line S11012 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2056
Seq #  *Modification Id* Act 
----------------------------+
12651  M02S11012.ns2056  ---|
12652  M01S11013.dmrec   +++| UPD16    ERROR  UPDC,,,UPD14,,E  DMREC TAPE LABEL ERROR
12653  M01S11014.dmrec   +++|
12654  M01S11015.dmrec   +++| UPD17    ERROR  UPDD,,,UPD14,,E  DXB CONVERSION ERROR
12655  M01S11016.dmrec   +++|
12656  M01S11017.dmrec   +++| UPD18    ERROR  DMRA,,,UPD14,,E  DIRECTIVE FORMAT ERROR
12657  M01S11018.dmrec   +++|
12658  M01S11019.dmrec   +++| UPDB     DATA   20H0     *****
12659  M01S11020.dmrec   +++|          DATA   C*RECORD NUMBER ERROR.*
12660  M01S11021.dmrec   +++| UPDBL    EQU    *-UPDB
12661  M01S11022.dmrec   +++|
12662  M01S11023.dmrec   +++| UPDC     DATA   20H0     *****
12663  M01S11024.dmrec   +++|          DATA   C*DMREC TAPE LABEL ERROR.*
12664  M01S11025.dmrec   +++| UPDCL    EQU    *-UPDC
12665  M01S11026.dmrec   +++| UPDD     DATA   20H0     *****
12666  M01S11027.dmrec   +++|          DATA   C*DXB CONVERSION ERROR - TRANSACTION SEQUENCE NUMBER.*
12667  M01S11028.dmrec   +++| UPDDL    EQU    *-UPDD
12668  M01S00167.dmrec2  +++| UPDE     BSSZ   1           DATA BASE NAME
12669  M01S11029.dmrec   +++| WBL      SPACE  4,15
12670  M01S11030.dmrec   +++|**        WBL - WRITE BLANK LINE.
12671  M01S11031.dmrec   +++|*
12672  M01S11032.dmrec   +++|*         ENTRY  NONE.
12673  M01S11033.dmrec   +++|*
12674  M01S11034.dmrec   +++|*         EXIT   BLANK LINE WRITTEN.
12675  M01S11035.dmrec   +++|*
12676  M01S11036.dmrec   +++|*         USES   X - 2.
12677  M01S11037.dmrec   +++|*                A - NONE.
12678  M01S11038.dmrec   +++|*                B - NONE.
12679  M01S11039.dmrec   +++|*
12680  M01S11040.dmrec   +++|*         CALLS  ALC, WTC.
12681  M01S11041.dmrec   +++|*
12682  M01S11042.dmrec   +++|*         MACROS WRITES.
12683  M01S11043.dmrec   +++|
12684  M01S11044.dmrec   +++|
12685  M01S11045.dmrec   +++| WBL      SUBR               ENTRY/EXIT
12686  M01S11046.dmrec   +++|          WRITEC O,WBLA      WRITE BLANK LINE
12687  M01S11047.dmrec   +++|          SX2    B1
12688  M01S11048.dmrec   +++|          RJ     ALC         ADVANCE LINE COUNT
12689  M01S11049.dmrec   +++|          EQ     WBLX        RETURN
12690  M01S11050.dmrec   +++|
12691  M01S11051.dmrec   +++| WBLA     DATA   2C
12692  M01S11052.dmrec   +++| WEM      SPACE  4,25
12693  M01S11053.dmrec   +++|**        WEM - WRITE ERROR MESSAGE.
12694  M01S11054.dmrec   +++|*
12695  M01S11055.dmrec   +++|*         *WEM* WRITES AND ERROR MESSAGE TO THE DESIGNATED OUTPUT FILE.
12696  M01S11056.dmrec   +++|*
12697  M01S11057.dmrec   +++|*         ENTRY  (B4) =      FWA OF ERROR MESSAGE.
12698  M01S11058.dmrec   +++|*                (X5) =      LENGTH OF ERROR MESSAGE.
12699  M01S11059.dmrec   +++|*                (X1) =      REPLACEMENT WORD IN MESSAGE
12700  M01S11060.dmrec   +++|*                            (UP TO 7 CHARACTERS, LEFT JUSTIFIED).
12701  M01S11061.dmrec   +++|*                (X1) =      0 IF NO REPLACEMENT WORD.
12702  M01S11062.dmrec   +++|*                (A2) =      FWA OF CARD-IMAGE CONTAINING ERROR.
12703  M01S11063.dmrec   +++|*                (X2) =      0 IF NO CARD-IMAGE TO PRINT.
12704  M01S11064.dmrec   +++|*                (JOBORG) =  0 IF INTERACTIVE ORIGIN.
12705  M01S11065.dmrec   +++|*
12706  M01S11066.dmrec   +++|*         EXIT   (X1) = 1.
12707  M01S11067.dmrec   +++|*
12708  M01S11068.dmrec   +++|*         USES   X - 0, 1, 2, 5, 6.
12709  M01S11069.dmrec   +++|*                A - 1, 2, 6.
12710  M01S11070.dmrec   +++|*                B - 2, 3, 4, 5.
12711  M01S11071.dmrec   +++|*
12712  M01S11072.dmrec   +++|*         CALLS  ALC, SNM.
12713  M01S11073.dmrec   +++|*
12714  M01S11074.dmrec   +++|*         MACROS WRITEC, WRITEW, WRITER.
12715  M01S11075.dmrec   +++|
12716  M01S11076.dmrec   +++|
12717  M01S11077.dmrec   +++| WEM      SUBR               ENTRY/EXIT
12718  M01S11078.dmrec   +++|          SX6    B4
12719  M01S11079.dmrec   +++|          SA6    WEMD        SAVE (B4)
12720  M01S11080.dmrec   +++|          ZR     X1,WEM1     IF NO REPLACEMENT WORD
12721  M01S11081.dmrec   +++|          MX0    42          FORM MASK
12722  M01S11082.dmrec   +++|          BX1    X0*X1       MASK UPPER 7 CHARACTERS
12723  M01S11083.dmrec   +++|          BX0    X2          SAVE (X2)
12724  M01S11084.dmrec   +++|          SB5    -B4
12725  M01S11085.dmrec   +++|          SB2    1RX         REPLACEMENT CHARACTER IN MESSAGE
12726  M01S11086.dmrec   +++|          SB3    WEMA
12727  M01S11087.dmrec   +++|          RJ     SNM         SET NAME
12728  M01S11088.dmrec   +++|          SX6    WEMA
12729  M01S11089.dmrec   +++|          SA6    WEMD        RESET FWA FOR MESSAGE
12730  M01S11090.dmrec   +++|          BX2    X0          RESTORE (X2)
12731  M01S11091.dmrec   +++| WEM1     MX0    0
12732  M01S11092.dmrec   +++|          ZR     X2,WEM4     IF NO CARD-IMAGE TO LIST
12733  M01S11093.dmrec   +++|          SA1    JOBORG
12734  M01S11094.dmrec   +++|          NZ     X1,WEM2     IF NOT INTERACTIVE ORIGIN
12735  M01S11095.dmrec   +++|          SX2    A2
12736  M01S11096.dmrec   +++|          WRITEC O,X2
12737  M01S11097.dmrec   +++|          SX0    B1
12738  M01S11098.dmrec   +++|          EQ     WEM4        PROCESS ERROR MESSAGE WRITE
12739  M01S11099.dmrec   +++|
12740  M01S11100.dmrec   +++| WEM2     SB3    7
12741  M01S11101.dmrec   +++|          SA2    A2+8        MOVE DATA
12742  M01S11102.dmrec   +++| WEM3     SA2    A2-B1
12743  M01S11103.dmrec   +++|          BX6    X2
12744  M01S11104.dmrec   +++|          SA6    WEMC+B3
12745  M01S11105.dmrec   +++|          SB3    B3-B1
12746  M01S11106.dmrec   +++|          GE     B3,WEM3     IF MORE
12747  M01S11107.dmrec   +++|          SX0    2           INCREASE LINE COUNTER
12748  M01S11108.dmrec   +++|          WRITEC O,WEMB
12749  M01S11109.dmrec   +++| WEM4     SA2    JOBORG
12750  M01S11110.dmrec   +++|          SA1    WEMD
12751  M01S11111.dmrec   +++|          SB4    X1          RESTORE (B4)
12752  M01S11112.dmrec   +++|          NZ     X2,WEM5     IF NOT INTERACTIVE ORIRGIN
12753  M01S11113.dmrec   +++|          SB4    B4+2
12754  M01S11114.dmrec   +++|          SX5    X5-2
12755  M01S11115.dmrec   +++|          SX0    X0+B1
12756  M01S11116.dmrec   +++|          EQ     WEM6        WRITE ERROR MESSAGE
12757  M01S11117.dmrec   +++|
12758  M01S11118.dmrec   +++| WEM5     SA1    WEMB
12759  M01S11119.dmrec   +++|          SX0    X0+B1
12760  M01S11120.dmrec   +++|          SA2    B4
12761  M01S11121.dmrec   +++|          MX6    6
12762  M01S11122.dmrec   +++|          BX2    X2*X6
12763  M01S11123.dmrec   +++|          BX1    X1*X6
12764  M01S11124.dmrec   +++|          IX2    X1-X2
12765  M01S11125.dmrec   +++|          NZ     X2,WEM6     IF SINGLE SPACE
12766  M01S11126.dmrec   +++|          SX0    X0+B1
12767  M01S11127.dmrec   +++| WEM6     SX1    B4          WRITE ERROR MESSAGE
12768  M01S11128.dmrec   +++|          WRITEW O,X1,X5
12769  M01S11129.dmrec   +++|          WRITER O           FLUSH BUFFER
12770  M01S11130.dmrec   +++|          BX2    X0
12771  M01S11131.dmrec   +++|          RJ     ALC         ADVANCE LINE COUNT
12772  M01S11132.dmrec   +++|          SX1    B1          SET ERROR INDICATOR
12773  M01S11133.dmrec   +++|          EQ     WEMX        RETURN
12774  M01S11134.dmrec   +++|
12775  M01S11135.dmrec   +++|*         MISCELLANEOUS FIELDS.
12776  M01S11136.dmrec   +++|
12777  M01S11137.dmrec   +++| WEMA     BSS    8
12778  M01S11138.dmrec   +++| WEMB     DATA   20H0     -----
12779  M01S11139.dmrec   +++| WEMC     BSSZ   9
12780  M01S11140.dmrec   +++| WEMD     BSS    1           STORAGE FOR (B4)
12781  M01S11141.dmrec   +++| WFH      SPACE  4,20
12782  M01S11142.dmrec   +++|**        WFH - WRITE FILE HEADER.
12783  M01S11143.dmrec   +++|*
12784  M01S11144.dmrec   +++|*         *WFH* WRITES A HEADER FOR FILES WRITTEN TO TAPE.  THIS
12785  M01S11145.dmrec   +++|*         HEADER IS TEN OCTAL WORDS LONG AND CONSISTS OF THE
12786  M01S11146.dmrec   +++|*         FILE NAME AND FORMAT.
12787  M01S11147.dmrec   +++|*
12788  M01S11148.dmrec   +++|*         ENTRY  (X2) = FILE NAME.
12789  M01S11149.dmrec   +++|*                (X4) = DUMP MODE INDECATOR.
12790  M01S11150.dmrec   +++|*                (ACFA) = DIRECTORY FILE NAME.
12791  M01S11151.dmrec   +++|*
12792  M01S11152.dmrec   +++|*         EXIT   (X1) = 0 - IF NO ERROR.
12793  M01S11153.dmrec   +++|*
12794  M01S11154.dmrec   +++|*         USES   X - 0, 1, 2, 6, 7.
12795  M01S11155.dmrec   +++|*                A - 1, 6, 7.
12796  M01S11156.dmrec   +++|*                B - NONE.
12797  M01S11157.dmrec   +++|*
12798  M01S11158.dmrec   +++|*         MACROS WRITER.
12799  M01S11159.dmrec   +++|*
12800  M01S11160.dmrec   +++|*         CALLS  DER.
12801  M01S11161.dmrec   +++|
12802  M01S11162.dmrec   +++|
12803  M01S11163.dmrec   +++| WFH      SUBR               ENTRY/EXIT
12804  M01S11164.dmrec   +++|          MX0    42
12805  M01S11165.dmrec   +++|          SA1    TP+B1
12806  M01S11166.dmrec   +++|          SX7    X1
12807  M01S11167.dmrec   +++|          SA7    A1+2        OUT
12808  M01S11168.dmrec   +++|          SX7    X7+8
12809  M01S11169.dmrec   +++|          SA7    A7-B1       IN
12810  M01S11170.dmrec   +++|          SA1    ACFA
12811  M01S11171.dmrec   +++|          BX1    X1-X2
12812  M01S11172.dmrec   +++|          BX1    X0*X1
12813  M01S11173.dmrec   +++|          ZR     X1,WFH1     IF DIRECTORY FILE
12814  M01S11174.dmrec   +++|          SA1    DMPFLG      GET DUMP FLAG
Line S11175 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
12815  M02S11175.ns2023  ---|          NZ     X1,WFH1     IF NOT *LRF*
Line S11176 Modification History
M01 (Added by) dmrec
M02 (Updated by) ns2023
Seq #  *Modification Id* Act 
----------------------------+
12816  M02S11176.ns2023  ---|          LX2    48-0        POSITION *LRF*
12817  M01S00175.ns2023  +++|          NZ     X1,WFH1     IF NOT *ARF*
12818  M01S00176.ns2023  +++|          LX2    48-0        POSITION *ARF*
12819  M01S11177.dmrec   +++| WFH1     BX7    X2
12820  M01S11178.dmrec   +++|          SA7    TBUF        FN IN HEADER+0
12821  M01S11179.dmrec   +++|          BX6    X4
12822  M01S11180.dmrec   +++|          SA6    A7+B1       MODE IN HEADER+1
12823  M01S11181.dmrec   +++|          WRITER TP,R
12824  M01S11182.dmrec   +++|          RJ     DER         DETECT END OF TAPE
12825  M01S11183.dmrec   +++|          NG     X1,WFH2     IF END OF TAPE
12826  M01S11184.dmrec   +++|          NZ     X1,WFHX     IF ERROR
12827  M01S11185.dmrec   +++| WFH2     SX1    B0
12828  M01S11186.dmrec   +++|          EQ     WFHX        NORMAL RETURN
12829  M01S11187.dmrec   +++| WSB      SPACE  4,15
12830  M01S11188.dmrec   +++|**        WSB - WRITE STRING BUFFER.
12831  M01S11189.dmrec   +++|*
12832  M01S11190.dmrec   +++|*         ENTRY  NONE.
12833  M01S11191.dmrec   +++|*
12834  M01S11192.dmrec   +++|*         EXIT   STRING BUFFER WRITTEN TO OUTPUT FILE.
12835  M01S11193.dmrec   +++|*
12836  M01S11194.dmrec   +++|*         CALLS  ALC, WTS.
12837  M01S11195.dmrec   +++|*
12838  M01S11196.dmrec   +++|*         USES   X - 2, 6.
12839  M01S11197.dmrec   +++|*                A - 6.
12840  M01S11198.dmrec   +++|*                B - NONE.
12841  M01S11199.dmrec   +++|
12842  M01S11200.dmrec   +++|
12843  M01S11201.dmrec   +++| WSB      SUBR               ENTRY/EXIT
12844  M01S11202.dmrec   +++|          WRITES O,OLWS,OLWSL
12845  M01S11203.dmrec   +++|          SX2    B1
12846  M01S11204.dmrec   +++|          RJ     ALC         ADVANCE LINE COUNT
12847  M01S11205.dmrec   +++|          BX6    X6-X6
12848  M01S11206.dmrec   +++|          SA6    SCPC        SET LINE EMPTY
12849  M01S11207.dmrec   +++|          EQ     WSBX        RETURN
12850  M01S11208.dmrec   +++| UPD      SPACE  4,10
12851  M01S11209.dmrec   +++|          TITLE  BUFFERS.
12852  M01S11210.dmrec   +++| BUFFERS  SPACE  4,10
12853  M01S11211.dmrec   +++|**        BUFFERS.
12854  M01S11212.dmrec   +++|
12855  M01S11213.dmrec   +++| IBUF     BSS    IBUFL       INPUT FILE BUFFER
12856  M01S11214.dmrec   +++|
12857  M01S11215.dmrec   +++| OBUF     BSS    OBUFL       OUTPUT FILE BUFFER
12858  M01S11216.dmrec   +++|
12859  M01S00247.ns2056  +++| PBUF     BSS    PBUFL       PROCEDURE FILE BUFFER
12860  M01S00248.ns2056  +++|
12861  M01S11217.dmrec   +++| TBUF     BSS    TBUFL       TAPE FILE BUFFER
12862  M01S11218.dmrec   +++|
12863  M01S11219.dmrec   +++| DBUF     BSS    DBUFL       DATA FILE BUFFER
12864  M01S11220.dmrec   +++|
12865  M01S11221.dmrec   +++| HBUF     BSS    HBUFL       HASH FILE BUFFER
12866  M01S11222.dmrec   +++|
12867  M01S11223.dmrec   +++| OLWS     EQU    FTAB        PRINT LINE BUFFER - CHARACTER MODE
12868  M01S11224.dmrec   +++|
12869  M01S11225.dmrec   +++| DIR      EQU    *           INPUT CHARACTER BUFFER
12870  M01S11226.dmrec   +++| LRDBUF   BSS    LRDBUFL     HASH LOAD BUFFER
12871  M01S11227.dmrec   +++|
12872  M01S11228.dmrec   +++| CBUF     BSS    CBUFL       RECORD DECOMPRESSION BUFFER
12873  M01S11229.dmrec   +++|
12874  M01S11230.dmrec   +++| FWAB     BSS    0           FWA OF BUFFER
12875  M01S11231.dmrec   +++| WBUF     BSS    WBUFL       WORKING STORAGE BUFFER
12876  M01S11232.dmrec   +++| LWAB     EQU    *           LWA OF BUFFER
12877  M01S11233.dmrec   +++| COMMON   SPACE  4,10
12878  M01S11234.dmrec   +++|
12879  M01S11235.dmrec   +++|          END    DMREC