cdc:nos2.source:opl.opl871:deck:ldistap.008
Deck LDISTAP Part 008
14 Modifications
Listing Sections
- Deck LDISTAP Start
- Deck LDISTAP Part 1 (Line 558)
- Deck LDISTAP Part 2 (Line 1481)
- Deck LDISTAP Part 3 (Line 2216)
- Deck LDISTAP Part 4 (Line 2713)
- Deck LDISTAP Part 5 (Line 3254)
- Deck LDISTAP Part 6 (Line 3824)
- Deck LDISTAP Part 7 (Line 4510)
- Deck LDISTAP Part 8 (Line 5098)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S04665 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05098 M02S04665.282l826 ---| MX0 36 CHECK NUMBER OF CHARACTERS
| Line S04666 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05099 M02S04666.282l826 ---| BX1 -X0*X6
| Line S04667 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05100 M02S04667.282l826 ---| NZ X1,VVPX IF TOO MANY CHARACTERS
| Line S04668 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05101 M02S04668.282l826 ---| SA6 VSN SAVE VSN
| Line S04669 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05102 M02S04669.282l826 ---| SX5 B0 FLAG VALID PARAMETER
| Line S04670 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05103 M02S04670.282l826 ---| EQ VVPX RETURN 05104 M01S04671.ldistap +++| COMMON SPACE 4,10 05105 M01S04672.ldistap +++|** COMMON DECKS. 05106 M01S04673.ldistap +++| 05107 M01S04674.ldistap +++| 05108 M01S04675.ldistap +++|*CALL COMCCOD 05109 M01S04676.ldistap +++|*CALL COMCCDD 05110 M01S04677.ldistap +++|*CALL COMCCIO 05111 M01S04678.ldistap +++| CCKD BSS 0 STARTING ADDRESS OF *COMCCKD* 05112 M01S04679.ldistap +++| CKDL$ EQU NLPDS MAXIMUM NUMBER OF LINES IN DISPLAY 05113 M01S04680.ldistap +++| CKDY$ EQU 7672B DEFINE INITIAL Y-COORDINATE 05114 M01S04681.ldistap +++|*CALL COMCCKD 05115 M01S04682.ldistap +++| CCKDL EQU *-CCKD LENGTH OF *COMCCKD 05116 M01S04683.ldistap +++|*CALL COMCCPM 05117 M01S04684.ldistap +++|*CALL COMCDXB 05118 M01S04685.ldistap +++|*CALL COMCMBS 05119 M01S04686.ldistap +++|*CALL COMCMVE 05120 M01S04687.ldistap +++|*CALL COMCPFM 05121 M01S04688.ldistap +++|*CALL COMCPOP 05122 M01S04689.ldistap +++|*CALL COMCRDC 05123 M01S04690.ldistap +++|*CALL COMCRDW 05124 M01S04691.ldistap +++|*CALL COMCRSB 05125 M01S04692.ldistap +++|*CALL COMCSFN 05126 M01S04693.ldistap +++|*CALL COMCUSB 05127 M01S04694.ldistap +++|*CALL COMCSYS 05128 M01S04695.ldistap +++|*CALL COMCWTC 05129 M01S04696.ldistap +++|*CALL COMCWTH 05130 M01S04697.ldistap +++|*CALL COMCWTW 05131 M01S04698.ldistap +++|*CALL COMCZTB 05132 M01S04699.ldistap +++| TITLE BUFFER AREA. 05133 M01S04700.ldistap +++| BUFFERS SPACE 4,10 05134 M01S04701.ldistap +++|** BUFFERS THAT CANNOT OVERWRITE *PRESET*. 05135 M01S04702.ldistap +++| 05136 M01S04703.ldistap +++| 05137 M01S04704.ldistap +++| USE BUFFERS DEFINE LITERALS 05138 M01S04705.ldistap +++| 05139 M01S04706.ldistap +++| ZBUF BSS ZBUFL TAPE CATALOG FILE BUFFER 05140 M01S04707.ldistap +++| DBUF BSS 0 L-DISPLAY OUTPUT BUFFER 05141 M01S04708.ldistap +++| VFD 12/DBUFL BUFFER LENGTH 05142 M01S04709.ldistap +++| VFD 1/0 SMALL CHARACTERS 05143 M01S04710.ldistap +++| VFD 1/0 PROGRAM FORMAT 05144 M01S04711.ldistap +++| VFD 1/0 SINGLE SPACING 05145 M01S04712.ldistap +++| VFD 45/0 05146 M01S04713.ldistap +++| LDISS 1,1 FIRST LINE OF TITLE
| Line S04714 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 05147 M02S04714.nos252 ---| LDIS 9,(LDISTAP. )
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | nos252 |
M02 (Updated by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 05148 M02S00071.ldista5 ---| LDIS 9,(TMSDIS. )
| Line S04715 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 05149 M02S04715.ldista5 ---| DTMS LDIS 16,( MAG ACTIVE. ) *MAGNET* STATUS 05150 M01S00010.ldista5 +++| LDIS 25,(TMSDIS. ) 05151 M01S04716.ldistap +++| DTTS LDIS 14,( TMS ENABLED. ) *TMS* STATUS 05152 M01S04717.ldistap +++| DTDS LDIS 4,(HELP) CURRENT DISPLAY 05153 M01S04718.ldistap +++| LDIS 14,( DISPLAY PAGE ) 05154 M01S04719.ldistap +++| DTPN LDIS 1,(1) CURRENT PAGE NUMBER 05155 M01S04720.ldistap +++| LDIS 4,( OF ) 05156 M01S04721.ldistap +++| DTPC LDIS 1,(1) PAGE COUNT
| Line S04722 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 05157 M02S04722.ldista5 ---| LDIS 1,(.)
| Line S04723 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 05158 M02S04723.ldista5 ---| LDISE
| Line S04724 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 05159 M02S04724.ldista5 ---| LDISS 1,K SECOND LINE OF TITLE
| Line S04725 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 05160 M02S04725.ldista5 ---| LDIS 16,(PREVIEW ENTRIES=)
| Line S04726 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 05161 M02S04726.ldista5 ---| DTPE LDIS 2,( 0) NUMBER OF PREVIEW DISPLAY ENTRIES
| Line S04727 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 05162 M02S04727.ldista5 ---| LDIS 25,(. JOBS REQUIRING ACTION=)
| Line S04728 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 05163 M02S04728.ldista5 ---| DTJA LDIS 2,( 0) NUMBER OF JOBS REQUIRING ACTION 05164 M01S04729.ldistap +++| LDIS 1,(.) 05165 M01S04730.ldistap +++| LDISE 05166 M01S04731.ldistap +++| LDISS 1,K THIRD LINE OF TITLE 05167 M01S04732.ldistap +++| LDIS 21,(CATALOGS WITH ERRORS=) 05168 M01S04733.ldistap +++| DTCE LDIS 2,( 0) NUMBER OF CATALOGS WITH ERRORS
| Line S04734 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05169 M02S04734.274l797 ---| LDIS 28,(. CATALOGS WITH NO SCRATCH=)
| Line S04735 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05170 M02S04735.274l797 ---| DTNS LDIS 2,( 0) NUMBER OF CATALOGS WITH NO SCRATCH 05171 M01S00294.274l797 +++| LDIS 34,(. CATALOGS WITH NO MT/NT SCRATCH=) 05172 M01S00295.274l797 +++| DTNM LDIS 2,( 0) NUMBER OF CATALOGS WITH NO *MT/NT* SCRATCH 05173 M01S00296.274l797 +++| LDIS 1,(.) 05174 M01S00297.274l797 +++| LDISE 05175 M01S00298.274l797 +++| LDISS 1,K FOURTH LINE OF TITLE 05176 M01S00299.274l797 +++| LDIS 28,(CATALOGS WITH NO CT SCRATCH=) 05177 M01S00300.274l797 +++| DTNC LDIS 2,( 0) NUMBER OF CATALOGS WITH NO *CT* SCRATCH 05178 M01S00301.274l797 +++| LDIS 31,(. CATALOGS WITH NO AT SCRATCH=) 05179 M01S00302.274l797 +++| DTNA LDIS 2,( 0) NUMBER OF CATALOGS WITH NO *AT* SCRATCH 05180 M01S04736.ldistap +++| LDIS 1,(.) 05181 M01S04737.ldistap +++| LDISE 05182 M01S04738.ldistap +++| LDISS 1,NLPDS+1-NLPMS FIRST LINE OF MESSAGE
| Line S04739 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 05183 M02S04739.nos252 ---| DMIN LDIS 50,(ENTER *HELP* FOR HELP. ENTER *DROP* TO TERMINATE.) 05184 M01S00072.nos252 +++| DMIN LDIS 49,(ENTER *HELP* FOR HELP. ENTER *END* TO TERMINATE.) 05185 M01S04740.ldistap +++| LDISE 05186 M01S04741.ldistap +++| LDISS 1,K SECOND LINE OF MESSAGE
| Line S04742 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista4 |
Seq # *Modification Id* Act ----------------------------+ 05187 M02S04742.ldista4 ---| DMMS LDIS 30,( LAST COMMAND) 05188 M01S00005.ldista4 +++| DMMA LDIS 30,( LAST COMMAND) 05189 M01S04743.ldistap +++| LDIS 3,( - ) 05190 M01S04744.ldistap +++| DMCM LDIS 30,( ) 05191 M01S04745.ldistap +++| LDISE 05192 M01S04746.ldistap +++| DBUFS EQU *-DBUF LENGTH OF START OF DISPLAY BUFFER 05193 M01S04747.ldistap +++|
| Line S04748 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05194 M02S04748.282l826 ---| ERRNG DBUFL-DBUFS-NWIED *EQU* DISPLAY OVERFLOW 05195 M01S04749.ldistap +++| ERRNG DBUFL-DBUFS-NWIFD *FAM* DISPLAY OVERFLOW 05196 M01S04750.ldistap +++| ERRNG DBUFL-DBUFS-NWIHD *HELP* DISPLAY OVERFLOW
| Line S04751 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05197 M02S04751.282l826 ---| ERRNG DBUFL-DBUFS-NWIJD *JOB* DISPLAY OVERFLOW
| Line S04752 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05198 M02S04752.282l826 ---| ERRNG DBUFL-DBUFS-NWIPD *PRE* DISPLAY OVERFLOW 05199 M01S04753.ldistap +++| 05200 M01S04754.ldistap +++| BUFF BSS 0 FWA OF OVERWRITTEN BUFFER AREA 05201 M01S04755.ldistap +++| BSS DBUFL-DBUFS REMAINDER OF DISPLAY BUFFER 05202 M01S04756.ldistap +++| 05203 M01S04757.ldistap +++| ERRNZ *-DBUF-DBUFL DISPLAY BUFFER MISMATCH 05204 M01S04758.ldistap +++| 05205 M01S04759.ldistap +++| CON 0 END OF DISPLAY BUFFER 05206 M01S04760.ldistap +++| BUFFERS SPACE 4,10 05207 M01S04761.ldistap +++|** BUFFERS THAT CAN OVERWRITE *PRESET*. 05208 M01S04762.ldistap +++| 05209 M01S04763.ldistap +++| 05210 M01S04764.ldistap +++| CBUF BSS 1 COMMAND BUFFER 05211 M01S04765.ldistap +++| BSS CBUFL
| Line S04766 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05212 M02S04766.282l826 ---| EBUF BSS EBUFL EJT ENTRY BUFFER 05213 M01S04767.ldistap +++| FBUF BSS FBUFL FAMILY ORDINAL TABLE BUFFER 05214 M01S04768.ldistap +++| IBUF BSS IBUFL INPUT FILE BUFFER
| Line S04769 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05215 M02S04769.282l826 ---| GBUF BSS GBUFL *QAC* BUFFER
| Line S04770 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05216 M02S04770.282l826 ---| JBUF BSS JBUFL EXECUTING JOB BUFFER 05217 M01S04771.ldistap +++| LBUF BSS LBUFL OUTPUT FILE BUFFER
| Line S04772 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05218 M02S04772.282l826 ---| MBUF BSS MBUFL MST ENTRY BUFFER
| Line S04773 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05219 M02S04773.282l826 ---| PBUF BSS PBUFL PREVIEW BUFFER
| Line S04774 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05220 M02S04774.282l826 ---| QBUF BSS QBUFL EST ENTRY BUFFER 05221 M01S04775.ldistap +++| SBUF BSS SBUFL CATALOG SYSTEM BLOCKS BUFFER
| Line S04776 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05222 M02S04776.282l826 ---| UBUF BSS UBUFL *UDT* BUFFER 05223 M01S04777.ldistap +++| TFCF BSS NFCST TABLE OF FAMILY CATALOG FIRST ENTRIES 05224 M01S04778.ldistap +++| TFCL BSS NFCST TABLE OF FAMILY CATALOG LAST ENTRIES
| Line S04779 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05225 M02S04779.282l826 ---| TEDP BSS NPGED TABLE OF EQUIPMENT DISPLAY PAGES 05226 M01S04780.ldistap +++| TFDP BSS NPGFD TABLE OF FAMILY CATALOG DISPLAY PAGES
| Line S04781 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05227 M02S04781.282l826 ---| TJDP BSS NPGJD TABLE OF EXECUTING JOB DISPLAY PAGES
| Line S04782 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05228 M02S04782.282l826 ---| TPDP BSS NPGPD TABLE OF PREVIEW DISPLAY PAGES 05229 M01S04783.ldistap +++| BUFFL EQU *-BUFF LENGTH OF BUFFER AREA 05230 M01S04784.ldistap +++| TITLE PRESET AREA. 05231 M01S04785.ldistap +++| SPACE 4 05232 M01S04786.ldistap +++| ORG BUFF 05233 M01S04787.ldistap +++| FETS SPACE 4,10 05234 M01S04788.ldistap +++|** *STATUS* FET. 05235 M01S04789.ldistap +++| 05236 M01S04790.ldistap +++| 05237 M01S04791.ldistap +++| Z BSS 0 *STATUS* FET 05238 M01S04792.ldistap +++| Z555555 FILEB 0,0,(FET=5) 05239 M01S04793.ldistap +++| TARG SPACE 4,10 05240 M01S04794.ldistap +++|** TARG - TABLE OF COMMAND ARGUMENTS. 05241 M01S04795.ldistap +++| 05242 M01S04796.ldistap +++| 05243 M01S04797.ldistap +++| TARG BSS 0 TABLE OF COMMAND ARGUMENTS 05244 M01S04798.ldistap +++| ID ARG ID,ID,400B INITIAL DISPLAY 05245 M01S04799.ldistap +++| OP ARG OP,OP,400B INPUT/OUTPUT MODE 05246 M01S04800.ldistap +++| I ARG I,I,400B INPUT FILE 05247 M01S04801.ldistap +++| L ARG L,L,400B OUTPUT FILE 05248 M01S04802.ldistap +++| NOBELL ARG (-=2R ),BEL NO BELL OPTION 05249 M01S04803.ldistap +++| WT ARG WT,WT,400B WAITING TIME 05250 M01S04804.ldistap +++| CON 0 END OF TABLE 05251 M01S04805.ldistap +++| TOPT SPACE 4,10 05252 M01S04806.ldistap +++|** TOPT - TABLE OF VALID INPUT/OUTPUT OPTIONS. 05253 M01S04807.ldistap +++| 05254 M01S04808.ldistap +++| 05255 M01S04809.ldistap +++| TOPT BSS 0 TABLE OF VALID INPUT/OUTPUT OPTIONS 05256 M01S04810.ldistap +++| LOC 0 05257 M01S04811.ldistap +++| OPTLD VFD 42/0LL,18/OPTLD L-DISPLAY MODE 05258 M01S04812.ldistap +++| OPTLN VFD 42/0LLINE,18/OPTLN LINE MODE 05259 M01S04813.ldistap +++| OPTSC VFD 42/0LSCREEN,18/OPTSC SCREEN MODE 05260 M01S04814.ldistap +++| LOC *O 05261 M01S04815.ldistap +++| TOPTL EQU *-TOPT LENGTH OF TABLE 05262 M01S04816.ldistap +++| TDIS SPACE 4,10 05263 M01S04817.ldistap +++|** TDIS - TABLE OF VALID DISPLAY DIRECTIVES. 05264 M01S04818.ldistap +++| 05265 M01S04819.ldistap +++| 05266 M01S04820.ldistap +++| TDIS BSS 0 TABLE OF VALID DISPLAY DIRECTIVES.
| Line S04821 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05267 M02S04821.282l826 ---| VFD 42/0LEQU,18/DISEQ EQUIPMENT DISPLAY 05268 M01S04822.ldistap +++| VFD 42/0LFAM,18/DISFC FAMILY CATALOG DISPLAY 05269 M01S04823.ldistap +++| VFD 42/0LHELP,18/DISHP HELP DISPLAY
| Line S04824 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05270 M02S04824.282l826 ---| VFD 42/0LJOB,18/DISJB EXECUTING JOB DISPLAY
| Line S04825 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05271 M02S04825.282l826 ---| VFD 42/0LPRE,18/DISPR PREVIEW DISPLAY 05272 M01S04826.ldistap +++| TDISL EQU *-TDIS LENGTH OF TABLE 05273 M01S04827.ldistap +++| TTSC SPACE 4,10 05274 M01S04828.ldistap +++|** TTSC - TABLE OF TERMINAL SCREEN CHARACTERS. 05275 M01S04829.ldistap +++|* 05276 M01S04830.ldistap +++|* ENTRY ONE WORD PER TERMINAL TYPE. 05277 M01S04831.ldistap +++|*T, VFD 24/ , 12/ BCHAR, 12/ CCHAR, 12/ TCHAR
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": " TCHAR", "bits": 12, "type": 4 }, { "name": " CCHAR", "bits": 12, "type": 3 }, { "name": " BCHAR", "bits": 12, "type": 2 }, { "name": " ", "bits": VFD 24, "type": 1 } ] is invalid. Please check your syntax and try again.
05278 M01S04832.ldistap +++|* 05279 M01S04833.ldistap +++|* BCHAR = BELL CHARACTER 05280 M01S04834.ldistap +++|* CCHAR = CLEAR SCREEN CHARACTER. 05281 M01S04835.ldistap +++|* TCHAR = TOP OF SCREEN CHARACTER. 05282 M01S04836.ldistap +++| 05283 M01S04837.ldistap +++| 05284 M01S04838.ldistap +++| TTSC BSS 0 TABLE OF TOP OF SCREEN CHARACTERS 05285 M01S04839.ldistap +++| LOC 0 05286 M01S04840.ldistap +++| VFD 24/,12/2R;,12/2R ,12/2R NO SCREEN MODE 05287 M01S04841.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R RESERVED 05288 M01S04842.ldistap +++| VFD 24/,12/2R;,12/2R;,12/2R; CDC 721 05289 M01S04843.ldistap +++| VFD 24/,12/2R;,12/2R;,12/2R CDC 722 05290 M01S04844.ldistap +++| VFD 24/,12/2R;,12/2R ,12/2R DEC VT100 05291 M01S04845.ldistap +++| VFD 24/,12/2R;,12/2R ,12/2R Z19 OR H19 05292 M01S04846.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05293 M01S04847.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05294 M01S04848.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05295 M01S04849.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05296 M01S04850.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05297 M01S04851.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05298 M01S04852.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05299 M01S04853.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05300 M01S04854.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05301 M01S04855.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05302 M01S04856.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05303 M01S04857.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05304 M01S04858.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05305 M01S04859.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05306 M01S04860.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05307 M01S04861.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05308 M01S04862.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05309 M01S04863.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05310 M01S04864.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05311 M01S04865.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05312 M01S04866.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05313 M01S04867.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05314 M01S04868.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05315 M01S04869.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05316 M01S04870.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05317 M01S04871.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED 05318 M01S04872.ldistap +++| ERRNZ *-40B INCORRECT TABLE SIZE 05319 M01S04873.ldistap +++| LOC *O 05320 M01S04874.ldistap +++| WORKING SPACE 4,10 05321 M01S04875.ldistap +++|** PRESET WORKING STORAGE. 05322 M01S04876.ldistap +++| 05323 M01S04877.ldistap +++| 05324 M01S04878.ldistap +++| DF DATA C*"DEFRN"* DEFAULT WAITING TIME NON-SYSTEM ORIGIN 05325 M01S04879.ldistap +++| GP BSS 3 *GETPFP* BLOCK 05326 M01S04880.ldistap +++| ID DATA C*HELP* INITIAL DISPLAY 05327 M01S04881.ldistap +++| OP DATA C*L* INPUT/OUTPUT MODE 05328 M01S04882.ldistap +++| PI BSS 1 PARAMETER IMAGE 05329 M01S04883.ldistap +++| RT CON 10 CATALOG ATTACH RETRY COUNT 05330 M01S04884.ldistap +++| WT DATA C*"DEFRS"* WAITING TIME 05331 M01S04885.ldistap +++| PRS SPACE 4,10 05332 M01S04886.ldistap +++|** PRS - PRESET PROGRAM. 05333 M01S04887.ldistap +++| 05334 M01S04888.ldistap +++| 05335 M01S04889.ldistap +++| PRS SUBR ENTRY/EXIT 05336 M01S00013.t5497 +++| MX0 1 SET THE REAL-TIME BIT IN TAPE CATALOG FET 05337 M01S00014.t5497 +++| SA1 P+1 05338 M01S00015.t5497 +++| LX0 43-59+60 05339 M01S00016.t5497 +++| BX6 X0+X1 05340 M01S00017.t5497 +++| SA6 A1 05341 M01S04890.ldistap +++| GETPFP GP GET FAMILY NAME, USER NAME, AND USER INDEX 05342 M01S04891.ldistap +++| MX0 42 SAVE ORIGINAL FAMILY NAME 05343 M01S04892.ldistap +++| SA1 GP+0 05344 M01S04893.ldistap +++| BX6 X0*X1 05345 M01S04894.ldistap +++| SA6 OFM 05346 M01S04895.ldistap +++| SA1 GP+2 SAVE ORIGINAL USER INDEX 05347 M01S04896.ldistap +++| BX6 -X0*X1 05348 M01S04897.ldistap +++| SA6 OUI 05349 M01S04898.ldistap +++| RJ GSF GET SCRATCH FILE NAME 05350 M01S04899.ldistap +++| SX1 3 SET LOCAL FILE NAME FOR CATALOG FILE 05351 M01S04900.ldistap +++| BX6 X6+X1 05352 M01S04901.ldistap +++| SA6 P 05353 M01S04902.ldistap +++| REPRIEVE RPVA,SET,237B SET EXTENDED REPRIEVE 05354 M01S04903.ldistap +++| MX0 -12 CHECK ORIGIN TYPE 05355 M01S04904.ldistap +++| SA1 JOPR 05356 M01S04905.ldistap +++| AX1 24 05357 M01S04906.ldistap +++| BX6 -X0*X1 05358 M01S04907.ldistap +++| SA6 JOT 05359 M01S04908.ldistap +++| SX6 X6-SYOT 05360 M01S04909.ldistap +++| ZR X6,PRS5 IF SYSTEM ORIGIN 05361 M01S00001.t5210 +++| SX6 X6+SYOT-IAOT 05362 M01S00002.t5210 +++| SX5 X6 05363 M01S04910.ldistap +++| PRS1 RJ ACF ATTACH CATALOG FILE 05364 M01S04911.ldistap +++| SX4 X4-CSCFA 05365 M01S04912.ldistap +++| ZR X4,PRS2 IF FILE ATTACHED 05366 M01S04913.ldistap +++| SX4 X4-CSCFB+CSCFA 05367 M01S04914.ldistap +++| NZ X4,PRS3 IF NOT FILE BUSY 05368 M01S00003.t5210 +++| NZ X5,PRS1.1 IF NOT INTERACTIVE ORIGIN 05369 M01S04915.ldistap +++| SA1 RT DECREMENT RETRY COUNT 05370 M01S04916.ldistap +++| SX6 X1-1 05371 M01S04917.ldistap +++| SA6 A1 05372 M01S04918.ldistap +++| NG X6,PRS3 IF RETRY COUNT EXHAUSTED
| Line S04919 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t5210 |
Seq # *Modification Id* Act ----------------------------+ 05373 M02S04919.t5210 ---| ROLLOUT 05374 M01S00004.t5210 +++| PRS1.1 ROLLOUT =1 05375 M01S04920.ldistap +++| EQ PRS1 RETRY ATTACH 05376 M01S04921.ldistap +++| 05377 M01S04922.ldistap +++| PRS2 REWIND P,R GET SYSTEM BLOCK
| Line S04923 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t5497 |
Seq # *Modification Id* Act ----------------------------+ 05378 M02S04923.t5497 ---| READ P 05379 M01S00018.t5497 +++| READ P,R 05380 M01S00019.t5497 +++| MX0 -5 CHECK FOR ERROR 05381 M01S00020.t5497 +++| SA1 P 05382 M01S00021.t5497 +++| AX1 9 05383 M01S00022.t5497 +++| BX1 -X0*X1 05384 M01S00023.t5497 +++| NZ X1,PRS3 IF ERROR ON READ 05385 M01S04924.ldistap +++| READW P,PRSA,SBCWL+/TFM/TMUN+/TFM/UNCL 05386 M01S04925.ldistap +++| RETURN P,R 05387 M01S04926.ldistap +++| MX0 42 CHECK FOR VALID USER NAME 05388 M01S04927.ldistap +++| SA1 GP+2 05389 M01S04928.ldistap +++| SRCHTAB X1,PRSA+SBCWL+/TFM/TMUN,0,1,/TFM/UNCL 05390 M01S04929.ldistap +++| ZR X6,PRS4 IF VALID USER NAME 05391 M01S04930.ldistap +++| PRS3 RETURN P,R 05392 M01S04931.ldistap +++| ABTMSG DFIC *INCORRECT COMMAND.* 05393 M01S04932.ldistap +++| 05394 M01S04933.ldistap +++| PRS4 SX6 -1 DISABLE L-DISPLAY MODE 05395 M01S04934.ldistap +++| SA6 TOPT+OPTLD 05396 M01S04935.ldistap +++| SA1 TOPT+OPTLN SWITCH TO LINE MODE DEFAULT 05397 M01S04936.ldistap +++| BX6 X1 05398 M01S04937.ldistap +++| SA6 OP 05399 M01S04938.ldistap +++| SA1 DF RESET DEFAULT WAITING TIME 05400 M01S04939.ldistap +++| BX6 X1 05401 M01S04940.ldistap +++| SA6 WT 05402 M01S04941.ldistap +++| SA1 JOT CHECK ORIGIN TYPE 05403 M01S04942.ldistap +++| SX1 X1-IAOT 05404 M01S04943.ldistap +++| ZR X1,PRS6 IF INTERACTIVE ORIGIN 05405 M01S04944.ldistap +++| PRS5 SX6 -1 DISABLE SCREEN MODE 05406 M01S04945.ldistap +++| SA6 TOPT+OPTSC 05407 M01S04946.ldistap +++| PRS6 RJ GTC GET TERMINAL CHARACTERISTICS 05408 M01S04947.ldistap +++| MX0 -12 GET ORDER DEPENDENT ARGUMENTS 05409 M01S04948.ldistap +++| SA1 ACTR GET ARGUMENT COUNT 05410 M01S04949.ldistap +++| SB4 X1 05411 M01S04950.ldistap +++| SA4 ARGR GET FIRST ARGUMENT 05412 M01S04951.ldistap +++| SB5 TARG GET FWA OF ARGUMENT TABLE 05413 M01S04952.ldistap +++| PRS7 ZR B4,PRS14 IF END OF ARGUMENTS 05414 M01S04953.ldistap +++| SA2 B5 CHECK FOR EQUIVALENCED ARGUMENTS 05415 M01S04954.ldistap +++| LX2 59-47 05416 M01S04955.ldistap +++| NG X2,PRS12 IF END OF EQUIVALENCED ARGUMENTS 05417 M01S04956.ldistap +++| SX2 X4 CHECK FOR EQUIVALENCED ARGUMENT 05418 M01S04957.ldistap +++| SX2 X2-1R= 05419 M01S04958.ldistap +++| ZR X2,PRS12 IF END OF ORDER DEPENDENT ARGUMENTS 05420 M01S04959.ldistap +++| SB4 B4-B1 DECREMENT ARGUMENT COUNT 05421 M01S04960.ldistap +++| SA2 B5 GET TABLE ENTRY 05422 M01S04961.ldistap +++| ZR X2,PRS13 IF END OF TABLE 05423 M01S04962.ldistap +++| BX6 X0*X4 SAVE ARGUMENT 05424 M01S04963.ldistap +++| SA4 A4+B1 05425 M01S04964.ldistap +++| SB2 X2 GET ADDRESS TO RECEIVE ARGUMENT 05426 M01S04965.ldistap +++| LX2 12 GET OPTION POINTER 05427 M01S04966.ldistap +++| BX3 -X0*X2 05428 M01S04967.ldistap +++| LX2 18 GET ASSUMED VALUE 05429 M01S04968.ldistap +++| SB3 X2 05430 M01S04969.ldistap +++| LX2 12 GET *0* STATUS 05431 M01S04970.ldistap +++| BX2 -X0*X2 05432 M01S04971.ldistap +++| SX3 X3-77B CHECK FOR TWO CHARACTER ARGUMENT 05433 M01S04972.ldistap +++| SB5 B5+B1 05434 M01S04973.ldistap +++| NZ X3,PRS8 IF TWO CHARACTER ARGUMENT 05435 M01S04974.ldistap +++| SB5 B5+B1 05436 M01S04975.ldistap +++| PRS8 NZ X6,PRS9 IF ARGUMENT SPECIFIED 05437 M01S04976.ldistap +++| SA1 B3 GET DEFAULT ARGUMENT 05438 M01S04977.ldistap +++| BX6 X1 05439 M01S04978.ldistap +++| PRS9 SX2 X2-4000B 05440 M01S04979.ldistap +++| ZR X2,PRS10 IF DISPLAY *0* ALLOWED 05441 M01S04980.ldistap +++| SX1 1R0 05442 M01S04981.ldistap +++| LX1 54 05443 M01S04982.ldistap +++| BX1 X6-X1 05444 M01S04983.ldistap +++| NZ X1,PRS10 IF NOT DISPLAY *0* 05445 M01S04984.ldistap +++| SX6 B0 05446 M01S04985.ldistap +++| PRS10 MX2 42 05447 M01S04986.ldistap +++| NZ X6,PRS11 IF NON-ZERO ARGUMENT 05448 M01S04987.ldistap +++| MX2 60 05449 M01S04988.ldistap +++| PRS11 SA1 B2 SET VALUE FOR ARGUMENT 05450 M01S04989.ldistap +++| BX1 -X2*X1 05451 M01S04990.ldistap +++| BX6 X6+X1 05452 M01S04991.ldistap +++| SA6 A1 05453 M01S04992.ldistap +++| EQ PRS7 CHECK NEXT ARGUMENT 05454 M01S04993.ldistap +++| 05455 M01S04994.ldistap +++| PRS12 RJ ARG PROCESS ORDER INDENPENDENT ARGUMENTS 05456 M01S04995.ldistap +++| ZR X1,PRS14 IF VALID ARGUMENTS
| Line S04996 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 05457 M02S04996.nos252 ---| PRS13 MX0 42 SET INVALID PARAMETER IN MESSAGE 05458 M01S00073.nos252 +++| PRS13 MX0 42 SET INCORRECT PARAMETER IN MESSAGE 05459 M01S04997.ldistap +++| BX1 X0*X4 05460 M01S04998.ldistap +++| SB2 1R$ 05461 M01S04999.ldistap +++| SB3 DFUP 05462 M01S05000.ldistap +++| SB5 -B3 05463 M01S05001.ldistap +++| RJ SNM SET NAME IN MESSAGE 05464 M01S05002.ldistap +++| ABTMSG DFUP *UNKNOWN PARAMETER - PPPPPPP.* 05465 M01S05003.ldistap +++| 05466 M01S05004.ldistap +++| PRS14 MX0 42 CHECK INITIAL DISPLAY PARAMETER 05467 M01S05005.ldistap +++| SA1 ID 05468 M01S05006.ldistap +++| SRCHTAB X1,TDIS,0,1,TDISL 05469 M01S05007.ldistap +++| SX7 2RID 05470 M01S05008.ldistap +++| LX7 48 05471 M01S05009.ldistap +++| NZ X6,PRS18 IF VALUE NOT FOUND 05472 M01S05010.ldistap +++| BX6 -X0*X2 05473 M01S05011.ldistap +++| SA6 DIS SET INITIAL DISPLAY VALUE 05474 M01S05012.ldistap +++| MX0 42 CHECK INPUT/OUTPUT MODE 05475 M01S05013.ldistap +++| SA1 OP 05476 M01S05014.ldistap +++| SRCHTAB X1,TOPT,0,1,TOPTL 05477 M01S05015.ldistap +++| SX7 2ROP 05478 M01S05016.ldistap +++| LX7 48 05479 M01S05017.ldistap +++| NZ X6,PRS18 IF VALUE NOT FOUND 05480 M01S05018.ldistap +++| BX6 -X0*X2 05481 M01S05019.ldistap +++| SA6 OPT SET INPUT/OUTPUT MODE 05482 M01S05020.ldistap +++| SA5 WT CHECK WAITING TIME 05483 M01S05021.ldistap +++| SB7 -B1 05484 M01S05022.ldistap +++| RJ DXB CONVERT DISPLAY TO BINARY 05485 M01S05023.ldistap +++| SA1 WT 05486 M01S05024.ldistap +++| SX7 2RWT 05487 M01S05025.ldistap +++| LX7 48
| Line S05026 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 05488 M02S05026.nos252 ---| NZ X4,PRS18 IF INVALID WAITING TIME 05489 M01S00074.nos252 +++| NZ X4,PRS18 IF INCORRECT WAITING TIME 05490 M01S05027.ldistap +++| SX1 X6-10000B 05491 M01S05028.ldistap +++| NG X1,PRS16 IF LESS THAN THE MAXIMUM 05492 M01S05029.ldistap +++| SX6 7777B 05493 M01S05030.ldistap +++| PRS16 SA1 OPT CHECK FOR LINE MODE 05494 M01S05031.ldistap +++| SX1 X1-OPTLN 05495 M01S05032.ldistap +++| NZ X1,PRS17 IF NOT LINE MODE 05496 M01S05033.ldistap +++| SX6 B0 05497 M01S05034.ldistap +++| PRS17 SA6 ROT SET ROLLOUT TIME 05498 M01S05035.ldistap +++| ZR X6,PRS19 IF NO ROLLOUT TIME 05499 M01S05036.ldistap +++| SA1 OPT 05500 M01S05037.ldistap +++| SX1 X1-OPTLD 05501 M01S05038.ldistap +++| NZ X1,PRS19 IF NOT DISPLAY MODE 05502 M01S05039.ldistap +++| SX1 LINE SET EVENT DESCRIPTOR FOR ROLLOUT 05503 M01S05040.ldistap +++| MBSXTA X1,ROT,12,11,23 05504 M01S05041.ldistap +++| EQ PRS20 CHECK FOR TERMINAL INPUT 05505 M01S05042.ldistap +++| 05506 M01S05043.ldistap +++| PRS18 SA7 PI SAVE PARAMETER IMAGE 05507 M01S05044.ldistap +++| SB2 1R$ SET VALUE IMAGE IN MESSAGE 05508 M01S05045.ldistap +++| SB3 DFIV 05509 M01S05046.ldistap +++| SB5 -B3 05510 M01S05047.ldistap +++| RJ SNM SET NAME IN MESSAGE 05511 M01S05048.ldistap +++| SA1 PI SET PARAMETER IMAGE IN MESSAGE 05512 M01S05049.ldistap +++| SB2 1R# 05513 M01S05050.ldistap +++| SB3 DFIV 05514 M01S05051.ldistap +++| SB5 -B3 05515 M01S05052.ldistap +++| RJ SNM SET NAME IN MESSAGE 05516 M01S05053.ldistap +++| ABTMSG DFIV *INCORRECT VALUE FOR PP PARAMETER - VVVV.* 05517 M01S05054.ldistap +++| 05518 M01S05055.ldistap +++| PRS19 SA1 OPT CHECK FOR SCREEN MODE 05519 M01S05056.ldistap +++| SX1 X1-OPTSC 05520 M01S05057.ldistap +++| NZ X1,PRS20 IF NOT SCREEN MODE 05521 M01S05058.ldistap +++| SX4 2RTT SET DEVICE TYPE 05522 M01S05059.ldistap +++| SETFET I,(DTY=X4) 05523 M01S05060.ldistap +++| RJ GSF GET SCRATCH FILE NAME 05524 M01S05061.ldistap +++| SX1 B1 SET SCRATCH FILE NAME INTO INPUT FET 05525 M01S05062.ldistap +++| BX6 X6+X1 05526 M01S05063.ldistap +++| SA6 I 05527 M01S05064.ldistap +++| REQUEST A6,TT,NOMSG ASSIGN INPUT FILE TO TERMINAL 05528 M01S05065.ldistap +++| SX4 2RTT SET DEVICE TYPE 05529 M01S05066.ldistap +++| SETFET L,(DTY=X4) 05530 M01S05067.ldistap +++| RJ GSF GET SCRATCH FILE NAME 05531 M01S05068.ldistap +++| SX1 B1 SET SCRATCH FILE NAME INTO OUTPUT FET 05532 M01S05069.ldistap +++| BX6 X6+X1 05533 M01S05070.ldistap +++| SA6 L 05534 M01S05071.ldistap +++| REQUEST A6,TT,NOMSG ASSIGN OUTPUT FILE TO TERMINAL 05535 M01S05072.ldistap +++| PRS20 SX2 I 05536 M01S05073.ldistap +++| RJ STF SET TERMINAL FILE 05537 M01S05074.ldistap +++| SA6 TIN SAVE TERMINAL INPUT STATUS 05538 M01S05075.ldistap +++| SX2 L 05539 M01S05076.ldistap +++| RJ STF SET TERMINAL FILE 05540 M01S05077.ldistap +++| SA6 TOU SAVE TERMINAL OUTPUT STATUS 05541 M01S05078.ldistap +++| CSET NORMAL SET 6-BIT CHARACTER SET
| Line S05079 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05542 M02S05079.282l826 ---| GETSSM SSS GET SYSTEM SECURITY STATUS
| Line S05080 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05543 M02S05080.282l826 ---| SA1 SSS
| Line S05081 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05544 M02S05081.282l826 ---| NZ X1,PRS21 IF SECURED
| Line S05082 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05545 M02S05082.282l826 ---| MBSATA BLANKS,DPLH,DPLHC,59,DPLHU CLEAR ACCESS LEVEL HEADER
| Line S05083 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05546 M02S05083.282l826 ---| PRS21 RDMEM ABS,FOTP,1,FFO GET FAMILY ORDINAL TABLE ADDRESS 05547 M01S00021.282l826 +++| RDMEM ABS,FOTP,1,FFO GET FAMILY ORDINAL TABLE ADDRESS 05548 M01S05084.ldistap +++| MX0 -24 05549 M01S05085.ldistap +++| LX2 24 05550 M01S05086.ldistap +++| BX6 -X0*X2 05551 M01S05087.ldistap +++| SA6 FFO 05552 M01S05088.ldistap +++| MX0 -12 GET MAXIMUM FOT ENTRIES 05553 M01S05089.ldistap +++| LX2 12 05554 M01S05090.ldistap +++| BX6 -X0*X2 05555 M01S05091.ldistap +++| SA6 MXF
| Line S05092 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05556 M02S05092.282l826 ---| RDMEM ABS,ESTP,1,ESA GET EST TABLE ADDRESS
| Line S05093 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05557 M02S05093.282l826 ---| LX2 24
| Line S05094 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05558 M02S05094.282l826 ---| SX6 X2
| Line S05095 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05559 M02S05095.282l826 ---| SA6 ESA
| Line S05096 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05560 M02S05096.282l826 ---| RDMEM ABS,EJTP,1,EJA GET EJT TABLE ADDRESS
| Line S05097 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05561 M02S05097.282l826 ---| LX2 24
| Line S05098 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05562 M02S05098.282l826 ---| SX6 X2
| Line S05099 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05563 M02S05099.282l826 ---| SA6 EJA
| Line S05100 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05564 M02S05100.282l826 ---| RDMEM ABS,NCPL,1,NCP GET NUMBER OF CONTROL POINTS
| Line S05101 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05565 M02S05101.282l826 ---| MX0 -12
| Line S05102 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05566 M02S05102.282l826 ---| LX2 24
| Line S05103 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05567 M02S05103.282l826 ---| BX6 -X0*X2
| Line S05104 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 05568 M02S05104.282l826 ---| SA6 NCP 05569 M01S05105.ldistap +++| SA1 OPT CHECK INPUT/OUTPUT MODE 05570 M01S05106.ldistap +++| SX1 X1-OPTLD 05571 M01S05107.ldistap +++| NZ X1,PRSX IF NOT L-DISPLAY 05572 M01S05108.ldistap +++| CSTATUS CON GET CONSOLE TYPE 05573 M01S05109.ldistap +++| SA1 CON 05574 M01S05110.ldistap +++| ZR X1,PRSX IF NOT 721 CONSOLE 05575 M01S05111.ldistap +++| MOVE PRSBL,PRSB,CCKD REWRITE COMMON DECK *COMCCKD* 05576 M01S00021.t2807 +++| SX3 KDL 05577 M01S05112.ldistap +++| RJ PRK PROCESS K-DISPLAY 05578 M01S05113.ldistap +++| EQ PRSX RETURN 05579 M01S05114.ldistap +++| 05580 M01S05115.ldistap +++| PRSA BSS SBCWL+/TFM/TMUN+/TFM/UNCL CATALOG WORKING BUFFER 05581 M01S05116.ldistap +++| PRSB BSS 0 IMAGE OF *COMCCKD* FOR 721 CONSOLE 05582 M01S05117.ldistap +++| LOC CCKD 05583 M01S05118.ldistap +++| QUAL PRSB 05584 M01S05119.ldistap +++| QUAL$ EQU 1 QUALIFY COMMON DECK 05585 M01S05120.ldistap +++| CKDI$ EQU 10 DEFINE Y-COORDINATE INCREMENT 05586 M01S05121.ldistap +++| CKDY$ EQU 7714B DEFINE INITIAL Y-COORDINATE 05587 M01S05122.ldistap +++|*CALL COMCCKD 05588 M01S05123.ldistap +++| QUAL * 05589 M01S05124.ldistap +++| PRSBL EQU *-CCKD LENGTH OF *COMCCKD* 05590 M01S05125.ldistap +++| LOC *O 05591 M01S05126.ldistap +++| ERRNZ CKD-/PRSB/CKD COMMON DECK ENTRY MISMATCH 05592 M01S05127.ldistap +++| ERRNZ CCKDL-PRSBL COMMON DECK LENGTH MISMATCH 05593 M01S05128.ldistap +++| GSF SPACE 4,10 05594 M01S05129.ldistap +++|** GSF - GET SCRATCH FILE NAME. 05595 M01S05130.ldistap +++|* 05596 M01S05131.ldistap +++|* EXIT (X6) = UNASSIGNED SCRATCH FILE NAME. 05597 M01S05132.ldistap +++|* 05598 M01S05133.ldistap +++|* USES X - 1, 4, 6. 05599 M01S05134.ldistap +++|* A - 1, 6. 05600 M01S05135.ldistap +++|* 05601 M01S05136.ldistap +++|* MACROS PDATE, STATUS. 05602 M01S05137.ldistap +++| 05603 M01S05138.ldistap +++| 05604 M01S05139.ldistap +++| GSF4 SX1 B1 SET FILE NAME IN FET 05605 M01S05140.ldistap +++| BX6 X6+X1 05606 M01S05141.ldistap +++| SA6 Z 05607 M01S05142.ldistap +++| STATUS Z CHECK FILE STATUS 05608 M01S05143.ldistap +++| SX6 7776B 05609 M01S05144.ldistap +++| SA1 Z 05610 M01S05145.ldistap +++| BX6 X6*X1 05611 M01S05146.ldistap +++| NZ X6,GSF1 IF FILE EXISTS 05612 M01S05147.ldistap +++| MX6 42 GET FILE NAME 05613 M01S05148.ldistap +++| BX6 X6*X1 05614 M01S05149.ldistap +++| 05615 M01S05150.ldistap +++| GSF SUBR ENTRY/EXIT 05616 M01S05151.ldistap +++| GSF1 SA1 GSFA 05617 M01S05152.ldistap +++| NZ X1,GSF2 IF BINARY NUMBER EXISTS 05618 M01S05153.ldistap +++| SA1 GSFC SET INITIAL BINARY 05619 M01S05154.ldistap +++| BX6 X1 05620 M01S05155.ldistap +++| SA6 GSFA 05621 M01S05156.ldistap +++| PDATE GSFB GET PACKED DATE AND TIME 05622 M01S05157.ldistap +++| MX6 -6 RANDOMIZE BINARY 05623 M01S05158.ldistap +++| SA1 GSFB 05624 M01S05159.ldistap +++| BX6 -X6*X1 05625 M01S05160.ldistap +++| LX6 15 05626 M01S05161.ldistap +++| SA1 GSFA 05627 M01S05162.ldistap +++| BX6 X1-X6 05628 M01S05163.ldistap +++| SA6 A1 05629 M01S05164.ldistap +++| BX1 X6 05630 M01S05165.ldistap +++| GSF2 SX6 B1 RESET BINARY 05631 M01S05166.ldistap +++| IX6 X1-X6 05632 M01S05167.ldistap +++| SA6 A1 05633 M01S05168.ldistap +++| 05634 M01S05169.ldistap +++|* CONVERT BINARY TO FILE NAME. 05635 M01S05170.ldistap +++| 05636 M01S05171.ldistap +++| SX6 B0 05637 M01S05172.ldistap +++| GSF3 ZR X1,GSF4 IF END OF BINARY 05638 M01S05173.ldistap +++| MX4 -5 CONVERT 5 BINARY BITS TO 6 BIT CHARACTER 05639 M01S05174.ldistap +++| BX4 -X4*X1 05640 M01S05175.ldistap +++| SX4 X4+B1 05641 M01S05176.ldistap +++| BX6 X6+X4 05642 M01S05177.ldistap +++| LX6 -6+60 05643 M01S05178.ldistap +++| AX1 5 05644 M01S05179.ldistap +++| EQ GSF3 GET NEXT CHARACTER CODE 05645 M01S05180.ldistap +++| 05646 M01S05181.ldistap +++| GSFA CON 0 BINARY NUMBER 05647 M01S05182.ldistap +++| GSFB CON 0 PACKED DATE AND TIME 05648 M01S05183.ldistap +++| GSFC CON 317777777777B 05649 M01S05184.ldistap +++| GTC SPACE 4,10 05650 M01S05185.ldistap +++|** GTC - GET TERMINAL CHARACTERISTICS. 05651 M01S05186.ldistap +++|* 05652 M01S05187.ldistap +++|* EXIT (BEL) = BELL CHARACTER IN BITS 11 - 0. 05653 M01S05188.ldistap +++|* (CSL) = CLEAR SCREEN CHARACTER IN BITS 47 - 36. 05654 M01S05189.ldistap +++|* (TOP) = TOP OF SCREEN CHARACTER IN BITS 35 - 24. 05655 M01S05190.ldistap +++|* 05656 M01S05191.ldistap +++|* USES X - 0, 1, 4. 05657 M01S05192.ldistap +++|* A - 1. 05658 M01S05193.ldistap +++|* 05659 M01S05194.ldistap +++|* MACROS MBSATA, SETSLM. 05660 M01S05195.ldistap +++| 05661 M01S05196.ldistap +++| 05662 M01S05197.ldistap +++| GTC SUBR ENTRY/EXIT 05663 M01S05198.ldistap +++| SA1 JOT CHECK IF INTERACTIVE 05664 M01S05199.ldistap +++| SX1 X1-IAOT 05665 M01S05200.ldistap +++| ZR X1,GTCX IF NOT INTERACTIVE ORIGIN TYPE 05666 M01S05201.ldistap +++| SETSLM GTCA GET TERMINAL MODEL 05667 M01S05202.ldistap +++| MX0 -5 05668 M01S05203.ldistap +++| SA1 GTCA 05669 M01S05204.ldistap +++| BX4 -X0*X1 05670 M01S05205.ldistap +++| MBSATA X4+TTSC,BEL,12,35,11 SET BELL CHARACTER 05671 M01S05206.ldistap +++| MBSATA X4+TTSC,CSL,12,23,47 SET CLEAR SCREEN CHARACTER 05672 M01S05207.ldistap +++| MBSATA X4+TTSC,TOP,12,11,35 SET TOP OF SCREEN CHARACTER 05673 M01S05208.ldistap +++| EQ GTCX RETURN 05674 M01S05209.ldistap +++| 05675 M01S05210.ldistap +++| GTCA BSS 1 TERMINAL MODEL WORD 05676 M01S05211.ldistap +++| COMMON SPACE 4,10 05677 M01S05212.ldistap +++|** PRESET COMMON DECKS. 05678 M01S05213.ldistap +++| 05679 M01S05214.ldistap +++| 05680 M01S05215.ldistap +++|*CALL COMCARG 05681 M01S05216.ldistap +++|*CALL COMCDCP 05682 M01S00022.t2807 +++| KDL BSS 0 TABLE OF L-DISPLAY LINES 05683 M01S05217.ldistap +++| KDL HERE 05684 M01S05218.ldistap +++| PRK HERE 05685 M01S05219.ldistap +++|*CALL COMCLFM 05686 M01S05220.ldistap +++|*CALL COMCSFM 05687 M01S05221.ldistap +++|*CALL COMCSNM 05688 M01S05222.ldistap +++|*CALL COMCSTF 05689 M01S05223.ldistap +++| TITLE *TMSON* AND *TMSOFF* PROGRAM AREA. 05690 M01S05224.ldistap +++| SPACE 4,10 05691 M01S05225.ldistap +++| QUAL TMSON 05692 M01S05226.ldistap +++| FBUF IFLT *,FBUF+FBUFL 05693 M01S05227.ldistap +++| BSS FBUF+FBUFL-* PREVENT OVERWRITE BY FAMILY TABLE BUFFER 05694 M01S05228.ldistap +++| FBUF ENDIF 05695 M01S05229.ldistap +++| FETS SPACE 4,10 05696 M01S05230.ldistap +++|** FETS. 05697 M01S05231.ldistap +++| 05698 M01S05232.ldistap +++| 05699 M01S05233.ldistap +++| TF BSS 0 *TMS* CATALOG FET FOR *TFM* 05700 M01S05234.ldistap +++| "TMFC" FILEB 0,0,(FET=16),EPR 05701 M01S05235.ldistap +++| TARG SPACE 4,10 05702 M01S05236.ldistap +++|** TARG - TABLE OF COMMAND ARGUMENTS. 05703 M01S05237.ldistap +++| 05704 M01S05238.ldistap +++| 05705 M01S05239.ldistap +++| TARG BSS 0 TABLE OF COMMAND ARGUMENTS 05706 M01S05240.ldistap +++| FM ARG FM,FM,400B FAMILY NAME 05707 M01S05241.ldistap +++| TARGN BSS 0 05708 M01S05242.ldistap +++|* CON 0 END OF TABLE FOR *TMSOFF* 05709 M01S05243.ldistap +++| DEFTO ARG DT,DT,400B DEFAULT *TO* FOR NON-*SYOT* 05710 M01S05244.ldistap +++| DEFTOS ARG DS,DS,400B DEFAULT *TO* FOR *SYOT* 05711 M01S05245.ldistap +++| CON 0 END OF TABLE 05712 M01S05246.ldistap +++| TDEF SPACE 4,10 05713 M01S05247.ldistap +++|** TDEF - TABLE OF *TO* ARGUMENT OPTIONS. 05714 M01S05248.ldistap +++| 05715 M01S05249.ldistap +++| 05716 M01S05250.ldistap +++| TDEF BSS 0 TABLE OF *TO* ARGUMENT OPTIONS
| Line S05251 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05717 M02S05251.t2807 ---| VFD 42/0LF,18/0 *TO=F*
| Line S05252 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05718 M02S05252.t2807 ---| VFD 42/0LT,18/1 *TO=T*
| Line S05253 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05719 M02S05253.t2807 ---| TDEFL EQU *-TDEF LENGTH OF TABLE 05720 M01S00023.t2807 +++| VFD 18/58,12/0,30/1RF BIT POSITION 0, CLEAR BIT, *TO=F* 05721 M01S00024.t2807 +++| VFD 18/58,12/1,30/1RT BIT POSITION 0, SET BIT, *TO=T* 05722 M01S00025.t2807 +++| VFD 18/56,12/0,30/1RE BIT POSITION 1, CLEAR BIT, *TO=E* 05723 M01S00026.t2807 +++| VFD 18/56,12/1,30/1RC BIT POSITION 1, SET BIT, *TO=C* 05724 M01S00027.t2807 +++| CON 0 END OF TABLE 05725 M01S00028.t2807 +++| TDES SPACE 4,10 05726 M01S00029.t2807 +++|** TDES - TABLE OF *TO* ARGUMENT OPTIONS FOR SYOT JOBS. 05727 M01S00030.t2807 +++| 05728 M01S00031.t2807 +++| 05729 M01S00032.t2807 +++| TDES BSS 0 TABLE OF *TO* ARGUMENT OPTIONS 05730 M01S00033.t2807 +++| VFD 18/57,12/0,30/1RF BIT POSITION 0, CLEAR BIT, *TO=F* 05731 M01S00034.t2807 +++| VFD 18/57,12/1,30/1RT BIT POSITION 0, SET BIT, *TO=T* 05732 M01S00035.t2807 +++| VFD 18/55,12/0,30/1RE BIT POSITION 1, CLEAR BIT, *TO=E* 05733 M01S00036.t2807 +++| VFD 18/55,12/1,30/1RC BIT POSITION 1, SET BIT, *TO=C* 05734 M01S00037.t2807 +++| CON 0 END OF TABLE 05735 M01S05254.ldistap +++| WORKING SPACE 4,10 05736 M01S05255.ldistap +++|** WORKING STORAGE. 05737 M01S05256.ldistap +++| 05738 M01S05257.ldistap +++|
| Line S05258 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05739 M02S05258.t2807 ---| DFS CON 0 DEFAULT *TO* FOR SYSTEM ORIGIN
| Line S05259 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05740 M02S05259.t2807 ---| DFT CON 0 DEFAULT *TO* FOR NON-SYSTEM ORIGIN 05741 M01S05260.ldistap +++| DS CON 0 *TO* FOR SYSTEM ORIGIN 05742 M01S05261.ldistap +++| DT CON 0 *TO* FOR NON-SYSTEM ORIGIN 05743 M01S05262.ldistap +++| FM CON 0 FAMILY NAME 05744 M01S05263.ldistap +++| PPC CON 0 PP CHECK FLAG FET ADDRESS 05745 M01S05264.ldistap +++| PPS CON 0 PP ERROR FLAG 05746 M01S05265.ldistap +++| SSI CON 0 SUBSYSTEM ID 05747 M01S05266.ldistap +++| TM CON 0 *TMSON* FLAG 05748 M01S05267.ldistap +++| TMSOFF SPACE 4,10 05749 M01S05268.ldistap +++|** TMSOFF - MAIN PROGRAM. 05750 M01S05269.ldistap +++| 05751 M01S05270.ldistap +++| 05752 M01S05271.ldistap +++| TMSOFF SB1 1 ENTRY 05753 M01S05272.ldistap +++| SX6 B0 CLEAR *DEFTO* AND *DEFTOS* ARGUMENTS 05754 M01S05273.ldistap +++| SA6 TARGN 05755 M01S05274.ldistap +++| RJ PRS PRESET PROGRAM 05756 M01S05275.ldistap +++| SA1 FM 05757 M01S05276.ldistap +++| ZR X1,END IF NO FAMILY CATALOGS TO DELETE 05758 M01S05277.ldistap +++| SX6 X1-1 05759 M01S05278.ldistap +++| ZR X6,TMF1 IF DELETE ALL FAMILY CATALOGS 05760 M01S05279.ldistap +++| MX0 42 FIND FAMILY IN TABLE 05761 M01S05280.ldistap +++| SA5 MXF 05762 M01S05281.ldistap +++| SRCHTAB X1,FBUF,0,1,X5 05763 M01S05282.ldistap +++| RJ DCF DELETE FAMILY CATALOG 05764 M01S05283.ldistap +++| ZR X3,END IF CATALOG DELETED 05765 M01S05284.ldistap +++| SX3 X3-2 05766 M01S05285.ldistap +++| SX5 DFFN *FAMILY NOT FOUND.* 05767 M01S05286.ldistap +++| ZR X3,ABT IF FAMILY NOT FOUND 05768 M01S05287.ldistap +++| SX5 B0 05769 M01S05288.ldistap +++| EQ ABT ABORT PROGRAM 05770 M01S05289.ldistap +++| 05771 M01S05290.ldistap +++| TMF1 SA5 MXF GET CATALOG SYSTEM BLOCKS 05772 M01S05291.ldistap +++| TMF2 SX5 X5-1 05773 M01S05292.ldistap +++| NG X5,END IF END OF FAMILIES 05774 M01S05293.ldistap +++| MX0 42 GET FAMILY NAME 05775 M01S05294.ldistap +++| SA1 X5+FBUF 05776 M01S05295.ldistap +++| RJ DCF DELETE FAMILY CATALOG FILE 05777 M01S05296.ldistap +++| EQ TMF2 CHECK NEXT FAMILY 05778 M01S05297.ldistap +++| TMSON SPACE 4,10 05779 M01S05298.ldistap +++|** TMSON - MAIN ROUTINE. 05780 M01S05299.ldistap +++| 05781 M01S05300.ldistap +++| 05782 M01S05301.ldistap +++| TMSON SB1 1 ENTRY 05783 M01S05302.ldistap +++| SX6 B1 FLAG *TMSON* 05784 M01S05303.ldistap +++| SA6 TM 05785 M01S05304.ldistap +++| RJ PRS PRESET PROGRAM 05786 M01S05305.ldistap +++| SA1 FM 05787 M01S05306.ldistap +++| ZR X1,TMN3 IF NO FAMILY CATALOGS TO INITIALIZE 05788 M01S05307.ldistap +++| SX6 X1-1 05789 M01S05308.ldistap +++| ZR X6,TMN1 IF INITIALIZE ALL FAMILY CATALOGS 05790 M01S05309.ldistap +++| MX0 42 FIND FAMILY IN TABLE 05791 M01S05310.ldistap +++| SA5 MXF 05792 M01S05311.ldistap +++| SRCHTAB X1,FBUF,0,1,X5 05793 M01S05312.ldistap +++| RJ ICF INITIALIZE FAMILY CATALOG FILE 05794 M01S05313.ldistap +++| ZR X3,TMN3 IF CATALOG INITIALIZED 05795 M01S05314.ldistap +++| SX1 X3-2 05796 M01S05315.ldistap +++| SX5 DFFN *FAMILY NOT FOUND.* 05797 M01S05316.ldistap +++| ZR X3,ABT IF FAMILY NOT FOUND 05798 M01S05317.ldistap +++| SX5 B0 05799 M01S05318.ldistap +++| EQ ABT ABORT PROGRAM 05800 M01S05319.ldistap +++| 05801 M01S05320.ldistap +++| TMN1 SA5 MXF GET CATALOG SYSTEM BLOCKS 05802 M01S05321.ldistap +++| TMN2 SX5 X5-1 05803 M01S05322.ldistap +++| NG X5,TMN3 IF END OF FAMILIES 05804 M01S05323.ldistap +++| MX0 42 GET FAMILY NAME 05805 M01S05324.ldistap +++| SA1 X5+FBUF 05806 M01S05325.ldistap +++| RJ ICF INITIALIZE FAMILY CATALOG FILE 05807 M01S05326.ldistap +++| EQ TMN2 CHECK NEXT FAMILY 05808 M01S05327.ldistap +++| 05809 M01S05328.ldistap +++| TMN3 SA1 SSI CHECK SUBSYSTEM ID 05810 M01S05329.ldistap +++| SX1 X1-MTSI 05811 M01S05330.ldistap +++| NZ X1,END IF NOT *MAGNET* SUBSYSTEM 05812 M01S05331.ldistap +++| MX6 1 SET *TMS* SYSTEM STATUS BITS
| Line S05332 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05813 M02S05332.t2807 ---| SA1 DFT
| Line S05333 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05814 M02S05333.t2807 ---| LX1 58-0
| Line S05334 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05815 M02S05334.t2807 ---| BX6 X6+X1
| Line S05335 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05816 M02S05335.t2807 ---| SA1 DFS
| Line S05336 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05817 M02S05336.t2807 ---| LX1 57-0 05818 M01S00038.t2807 +++| SA1 TMS 05819 M01S05337.ldistap +++| BX6 X6+X1 05820 M01S05338.ldistap +++| SA6 TMS 05821 M01S05339.ldistap +++| SYSTEM TFU,R,TMS,/TFU/STSF*100B CALL *TFU* 05822 M01S05340.ldistap +++| EQ END TERMINATE PROGRAM 05823 M01S05341.ldistap +++| ABT SPACE 4,15 05824 M01S05342.ldistap +++|** ABT - ABORT PROGRAM. 05825 M01S05343.ldistap +++|* 05826 M01S05344.ldistap +++|* ENTRY (X5) = ADDRESS OF DAYFILE MESSAGE. 05827 M01S05345.ldistap +++|* 05828 M01S05346.ldistap +++|* EXIT MESSAGE ISSUED TO USER AND SYSTEM DAYFILES. 05829 M01S05347.ldistap +++|* PROGRAM ABORTED. 05830 M01S05348.ldistap +++|* 05831 M01S05349.ldistap +++|* USES X - 1, 2. 05832 M01S05350.ldistap +++|* A - 1, 2. 05833 M01S05351.ldistap +++|* 05834 M01S05352.ldistap +++|* CALLS SWP. 05835 M01S05353.ldistap +++|* 05836 M01S05354.ldistap +++|* MACROS ABORT, MESSAGE, RETURN. 05837 M01S05355.ldistap +++| 05838 M01S05356.ldistap +++| 05839 M01S05357.ldistap +++| ABT BSS 0 ENTRY 05840 M01S05358.ldistap +++| MBSATA (=3),P,18,17,17 SET FET COMPLETION BIT 05841 M01S05359.ldistap +++| RETURN P,R RETURN CATALOG FILE 05842 M01S05360.ldistap +++| SA1 OFM GET ORIGINAL FAMILY NAME/USER INDEX 05843 M01S05361.ldistap +++| SA2 OUI 05844 M01S05362.ldistap +++| RJ SWP SWAP TO FAMILY NAME/USER INDEX 05845 M01S05363.ldistap +++| ZR X5,ABT1 IF NO DAYFILE MESSAGE 05846 M01S05364.ldistap +++| MESSAGE X5,0,R ISSUE DAYFILE MESSAGE 05847 M01S05365.ldistap +++| ABT1 ABORT ABORT PROGRAM 05848 M01S05366.ldistap +++| DCF SPACE 4,20 05849 M01S05367.ldistap +++|** DCF - DELETE FAMILY CATALOG FILE. 05850 M01S05368.ldistap +++|* 05851 M01S05369.ldistap +++|* ENTRY (X1) = FAMILY NAME. 05852 M01S05370.ldistap +++|* 05853 M01S05371.ldistap +++|* EXIT (X3) = 0 IF FILE IS DELETED. 05854 M01S05372.ldistap +++|* = 1 IF FILE CANNOT BE DELETED. 05855 M01S05373.ldistap +++|* = 2 IF FAMILY NOT FOUND. 05856 M01S05374.ldistap +++|* MESSAGE *DFUF* ISSUED TO DAYFILE IF (X3) = 1. 05857 M01S05375.ldistap +++|* 05858 M01S05376.ldistap +++|* USES X - 0, 1, 2, 6, 7. 05859 M01S05377.ldistap +++|* A - 1, 3, 6, 7. 05860 M01S05378.ldistap +++|* B - 2, 3, 5. 05861 M01S05379.ldistap +++|* 05862 M01S05380.ldistap +++|* CALLS SWP. 05863 M01S05381.ldistap +++|*
| Line S05382 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | m1664 |
Seq # *Modification Id* Act ----------------------------+ 05864 M02S05382.m1664 ---|* MACROS ATTACH, DFAT, MBSATA, RETURN, SETFET. 05865 M01S00003.m1664 +++|* MACROS ATTACH, DFAT, MBSATA, MBSXTA, RETURN, SETFET. 05866 M01S05383.ldistap +++| 05867 M01S05384.ldistap +++| 05868 M01S05385.ldistap +++| DCF2 RETURN P,R RETURN FILE 05869 M01S05386.ldistap +++| SA3 DCFB GET STATUS 05870 M01S05387.ldistap +++| 05871 M01S05388.ldistap +++| DCF SUBR ENTRY/EXIT 05872 M01S05389.ldistap +++| MX0 42 SAVE FAMILY NAME 05873 M01S05390.ldistap +++| BX6 X0*X1 05874 M01S05391.ldistap +++| SA6 DCFA 05875 M01S05392.ldistap +++| SX3 B1+B1 05876 M01S05393.ldistap +++| ZR X6,DCFX IF NO FAMILY NAME 05877 M01S05394.ldistap +++| SX2 377777B 05878 M01S05395.ldistap +++| RJ SWP SWAP TO FAMILY NAME AND USER INDEX 05879 M01S05396.ldistap +++| SX3 B1+B1 05880 M01S05397.ldistap +++| NZ X4,DCFX IF FAMILY NOT FOUND 05881 M01S05398.ldistap +++| SX6 B0 PRESET FILE STATUS 05882 M01S05399.ldistap +++| SA6 DCFB 05883 M01S05400.ldistap +++| MBSATA ZEROES,P,16,17,17 CLEAR ERROR CODE 05884 M01S05401.ldistap +++| SETFET P,(DTY=B0),(ERA=ACFB) 05885 M01S05402.ldistap +++| ATTACH P,,,,W,,,IP,FA ATTACH SYSTEM FILE 05886 M01S05403.ldistap +++| MX0 -8 CHECK ERROR CODE 05887 M01S05404.ldistap +++| SA1 P 05888 M01S05405.ldistap +++| AX1 10 05889 M01S05406.ldistap +++| BX1 -X0*X1 05890 M01S05407.ldistap +++| NZ X1,DCF1 IF ERROR IN ACCESS 05891 M01S05408.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG 05892 M01S05409.ldistap +++| SA6 PPS 05893 M01S05410.ldistap +++| SX6 P SET PP CHECK FLAG 05894 M01S05411.ldistap +++| SA6 PPC 05895 M01S00004.m1664 +++| SX1 B1 SET IGNORE FAMILY ACTIVITY 05896 M01S00005.m1664 +++| MBSXTA X1,P,1,0,9 05897 M01S05412.ldistap +++| DFAT P DELETE FAST-ATTACHED STATUS 05898 M01S05413.ldistap +++| SA3 PPS 05899 M01S05414.ldistap +++| NZ X3,DCF1 IF UNABLE TO DELETE FILE 05900 M01S05415.ldistap +++| EQ DCF2 RETURN FILE 05901 M01S05416.ldistap +++| 05902 M01S05417.ldistap +++| DCF1 SX6 B1 FLAG UNABLE TO DELETE FILE 05903 M01S05418.ldistap +++| SA6 DCFB 05904 M01S05419.ldistap +++| SA1 DCFA SET FAMILY NAME IN MESSAGE 05905 M01S05420.ldistap +++| SB2 1R# 05906 M01S05421.ldistap +++| SB3 DCFC 05907 M01S05422.ldistap +++| SB5 -DFUF 05908 M01S05423.ldistap +++| RJ SNM SET NAME IN MESSAGE 05909 M01S05424.ldistap +++| MESSAGE DCFC,0,R *UNABLE TO TURN OFF *TMS* CATALOG* 05910 M01S05425.ldistap +++| EQ DCF2 RETURN FILE 05911 M01S05426.ldistap +++| 05912 M01S05427.ldistap +++| DCFA BSS 1 FAMILY NAME 05913 M01S05428.ldistap +++| DCFB CON 0 FILE STATUS 05914 M01S05429.ldistap +++| DCFC DATA C$ UNABLE TO TURN OFF *TMS* CATALOG FOR #######.$ 05915 M01S05430.ldistap +++| END SPACE 4,10 05916 M01S05431.ldistap +++|** END - TERMINATE PROGRAM. 05917 M01S05432.ldistap +++|* 05918 M01S05433.ldistap +++|* EXIT PROGRAM TERMINATED. 05919 M01S05434.ldistap +++|* 05920 M01S05435.ldistap +++|* USES X - 1, 2. 05921 M01S05436.ldistap +++|* A - 1, 2. 05922 M01S05437.ldistap +++|* 05923 M01S05438.ldistap +++|* CALLS SWP. 05924 M01S05439.ldistap +++|* 05925 M01S05440.ldistap +++|* MACROS ENDRUN, RETURN. 05926 M01S05441.ldistap +++| 05927 M01S05442.ldistap +++| 05928 M01S05443.ldistap +++| END BSS 0 ENTRY 05929 M01S05444.ldistap +++| RETURN P,R RETURN CATALOG FILE 05930 M01S05445.ldistap +++| SA1 OFM GET ORIGINAL FAMILY NAME/USER INDEX 05931 M01S05446.ldistap +++| SA2 OUI 05932 M01S05447.ldistap +++| RJ SWP SWAP TO FAMILY NAME/USER INDEX 05933 M01S05448.ldistap +++| ENDRUN TERMINATE PROGRAM 05934 M01S05449.ldistap +++| ICF SPACE 4,20 05935 M01S05450.ldistap +++|** ICF - INITIALIZE FAMILY CATALOG FILE. 05936 M01S05451.ldistap +++|* 05937 M01S05452.ldistap +++|* ENTRY (X1) = FAMILY NAME. 05938 M01S05453.ldistap +++|* 05939 M01S05454.ldistap +++|* EXIT (X3) = 0 IF FILE IS INITIALIZED. 05940 M01S05455.ldistap +++|* = 1 IF FILE CANNOT BE INITIALIZED. 05941 M01S05456.ldistap +++|* = 2 IF FAMILY NOT FOUND. 05942 M01S05457.ldistap +++|* MESSAGE *DFUN* ISSUED IF (X3) = 1. 05943 M01S05458.ldistap +++|* 05944 M01S05459.ldistap +++|* USES X - 0, 1, 2, 6, 7. 05945 M01S05460.ldistap +++|* A - 1, 3, 6, 7. 05946 M01S05461.ldistap +++|* B - 2, 3, 5. 05947 M01S05462.ldistap +++|* 05948 M01S05463.ldistap +++|* CALLS SWP. 05949 M01S05464.ldistap +++|* 05950 M01S05465.ldistap +++|* MACROS ATTACH, DFAT, ENFA, MBSATA, RETURN, SETFET, SYSTEM. 05951 M01S05466.ldistap +++| 05952 M01S05467.ldistap +++| 05953 M01S05468.ldistap +++| ICF4 RETURN P,R RETURN FILE 05954 M01S05469.ldistap +++| SA3 ICFB GET STATUS 05955 M01S05470.ldistap +++| 05956 M01S05471.ldistap +++| ICF SUBR ENTRY/EXIT 05957 M01S05472.ldistap +++| MX0 42 SAVE FAMILY NAME 05958 M01S05473.ldistap +++| BX6 X0*X1 05959 M01S05474.ldistap +++| SA6 ICFA 05960 M01S05475.ldistap +++| SX3 B1+B1 05961 M01S05476.ldistap +++| ZR X6,ICFX IF NO FAMILY NAME 05962 M01S05477.ldistap +++| SX2 377777B 05963 M01S05478.ldistap +++| RJ SWP SWAP TO FAMILY NAME AND USER INDEX 05964 M01S05479.ldistap +++| SX3 B1+B1 05965 M01S05480.ldistap +++| NZ X4,ICFX IF FAMILY NOT FOUND 05966 M01S00001.ldista3 +++| ICF0.1 BSS 0 05967 M01S05481.ldistap +++| SX6 B0 PRESET FILE STATUS 05968 M01S05482.ldistap +++| SA6 ICFB 05969 M01S05483.ldistap +++| SX6 ICFC SET *TFM* ERROR MESSAGE ADDRESS 05970 M01S05484.ldistap +++| SA6 TF+/TFM/TFEA 05971 M01S05485.ldistap +++| MBSATA ZEROES,P,16,17,17 CLEAR ERROR CODE 05972 M01S05486.ldistap +++| SETFET P,(DTY=B0),(ERA=ACFB) 05973 M01S05487.ldistap +++| ATTACH P,,,,W,,,IP,NF ATTACH SYSTEM FILE 05974 M01S05488.ldistap +++| MX0 -8 CHECK ERROR CODE 05975 M01S05489.ldistap +++| SA1 P 05976 M01S05490.ldistap +++| AX1 10 05977 M01S05491.ldistap +++| BX1 -X0*X1
| Line S05492 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista3 |
Seq # *Modification Id* Act ----------------------------+ 05978 M02S05492.ldista3 ---| NZ X1,ICF1 IF ERROR IN ACCESS 05979 M01S00002.ldista3 +++| ZR X1,ICF0.2 IF NO ERROR 05980 M01S00003.ldista3 +++| SX0 X1-/ERRMSG/PFA 05981 M01S00004.ldista3 +++| NZ X0,ICF1 IF NOT UTILITY ACTIVE 05982 M01S00005.ldista3 +++| ROLLOUT =10 WAIT 10 SECONDS 05983 M01S00006.ldista3 +++| EQ ICF0.1 RETRY ATTACH 05984 M01S00007.ldista3 +++| 05985 M01S00008.ldista3 +++| ICF0.2 BSS 0 05986 M01S05493.ldistap +++| SX1 /TFM/ISFS*10B+4 SET *TFM* SUBFUNCTION 05987 M01S05494.ldistap +++| MBSXTA X1,TF,9,8,8 05988 M01S05495.ldistap +++| SX7 10000B SET INITIALIZE VSNS 05989 M01S05496.ldistap +++| SA7 TF+/TFM/TFES 05990 M01S05497.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG 05991 M01S05498.ldistap +++| SA6 PPS 05992 M01S05499.ldistap +++| SX6 TF SET PP CHECK FLAG 05993 M01S05500.ldistap +++| SA6 PPC 05994 M01S05501.ldistap +++| SYSTEM TFM,R,TF,/TFM/SSJF*100B CALL *TFM* TO INTIALIZE FILE 05995 M01S05502.ldistap +++| SA3 PPS 05996 M01S05503.ldistap +++| NZ X3,ICF3 IF ERROR FROM *TFM* 05997 M01S05504.ldistap +++| MX0 -9 CHECK *TFM* ERROR CODE 05998 M01S05505.ldistap +++| SA1 TF 05999 M01S05506.ldistap +++| AX1 9 06000 M01S05507.ldistap +++| BX1 -X0*X1 06001 M01S05508.ldistap +++| NZ X1,ICF3 IF ERROR FROM *TFM* 06002 M01S05509.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG 06003 M01S05510.ldistap +++| SA6 PPS 06004 M01S05511.ldistap +++| SX6 P SET PP CHECK FLAG 06005 M01S05512.ldistap +++| SA6 PPC 06006 M01S05513.ldistap +++| ENFA P,GLOBAL ENTER GLOBAL FAST ATTACH FILE 06007 M01S05514.ldistap +++| SA3 PPS 06008 M01S05515.ldistap +++| NZ X3,ICF3 IF UNABLE TO ENTER FAST ATTACH FILE 06009 M01S05516.ldistap +++| EQ ICF4 RETURN FILE 06010 M01S05517.ldistap +++| 06011 M01S05518.ldistap +++| ICF1 SX1 X1-/ERRMSG/FBS 06012 M01S05519.ldistap +++| NZ X1,ICF3 IF NOT *FILE BUSY* 06013 M01S05520.ldistap +++| ATTACH P,,,,W,,,IP,FA ATTEMPT FAST ATTACH 06014 M01S05521.ldistap +++| MX0 -8 CHECK ERROR CODE 06015 M01S05522.ldistap +++| SA1 P 06016 M01S05523.ldistap +++| AX1 10 06017 M01S05524.ldistap +++| BX1 -X0*X1 06018 M01S05525.ldistap +++| ZR X1,ICF4 IF ALREADY FAST ATTACHED ON THIS MACHINE 06019 M01S05526.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG 06020 M01S05527.ldistap +++| SA6 PPS 06021 M01S05528.ldistap +++| SX6 P SET PP CHECK FLAG 06022 M01S05529.ldistap +++| SA6 PPC 06023 M01S05530.ldistap +++| ENFA P,LINK LINK TO EXISTING FAST ATTACH 06024 M01S05531.ldistap +++| SA3 PPS 06025 M01S05532.ldistap +++| NZ X3,ICF3 IF UNABLE TO ENTER FAST ATTACH FILE 06026 M01S05533.ldistap +++| ATTACH P,,,,W,,,IP,FA ATTACH FILE 06027 M01S05534.ldistap +++| MX0 -8 CHECK ERROR CODE 06028 M01S05535.ldistap +++| SA1 P 06029 M01S05536.ldistap +++| AX1 10 06030 M01S05537.ldistap +++| BX1 -X0*X1 06031 M01S05538.ldistap +++| NZ X1,ICF3 IF ERROR IN ACCESS 06032 M01S05539.ldistap +++| SX1 /TFM/ISFS*10B SET FUNCTION CODE
| Line S05540 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | ldista6 |
Seq # *Modification Id* Act ----------------------------+ 06033 M02S05540.ldista6 ---| MBSATA X1,TF,9,8,8 06034 M01S00001.ldista6 +++| MBSXTA X1,TF,9,8,8 06035 M01S05541.ldistap +++| SX7 20000B SET TO CLEAR CURRENT AND DOWN MACHINES 06036 M01S05542.ldistap +++| SA7 TF+/TFM/TFES 06037 M01S05543.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG 06038 M01S05544.ldistap +++| SA6 PPS 06039 M01S05545.ldistap +++| SX6 TF SET PP CHECK FLAG 06040 M01S05546.ldistap +++| SA6 PPC 06041 M01S05547.ldistap +++| SYSTEM TFM,R,TF,/TFM/SSJF*100B CLEAN UP CATALOG 06042 M01S05548.ldistap +++| SA3 PPS 06043 M01S05549.ldistap +++| NZ X3,ICF2 IF ERROR FROM *TFM* 06044 M01S05550.ldistap +++| MX0 -9 CHECK *TFM* ERROR CODE 06045 M01S05551.ldistap +++| SA1 TF 06046 M01S05552.ldistap +++| AX1 9 06047 M01S05553.ldistap +++| BX1 -X0*X1 06048 M01S05554.ldistap +++| ZR X1,ICF4 IF NO ERROR FROM *TFM* 06049 M01S05555.ldistap +++| ICF2 SX6 P SET PP CHECK FLAG 06050 M01S05556.ldistap +++| SA6 PPC 06051 M01S05557.ldistap +++| DFAT P DELETE FAST ATTACH CATALOG FILE 06052 M01S05558.ldistap +++| ICF3 SX6 B1 FLAG UNABLE TO ATTACH FILE 06053 M01S05559.ldistap +++| SA6 ICFB 06054 M01S05560.ldistap +++| SA1 ICFA SET FAMILY NAME IN MESSAGE 06055 M01S05561.ldistap +++| SB2 1R# 06056 M01S05562.ldistap +++| SB3 ICFD 06057 M01S05563.ldistap +++| SB5 -DFUN 06058 M01S05564.ldistap +++| RJ SNM SET NAME IN MESSAGE 06059 M01S05565.ldistap +++| MESSAGE ICFD,0,R *UNABLE TO TURN ON *TMS* CATALOG* 06060 M01S05566.ldistap +++| EQ ICF4 RETURN FILE 06061 M01S05567.ldistap +++| 06062 M01S05568.ldistap +++| ICFA BSS 1 FAMILY NAME 06063 M01S05569.ldistap +++| ICFB CON 0 FILE STATUS 06064 M01S05570.ldistap +++| ICFC BSS 4 *TFM* ERROR MESSAGE BUFFER 06065 M01S05571.ldistap +++| ICFD DATA C$ UNABLE TO TURN ON *TMS* CATALOG FOR #######.$ 06066 M01S05572.ldistap +++| PRS SPACE 4,10 06067 M01S05573.ldistap +++|** PRS - PRESET PROGRAM. 06068 M01S05574.ldistap +++| 06069 M01S05575.ldistap +++| 06070 M01S05576.ldistap +++| PRS SUBR ENTRY/EXIT 06071 M01S00024.t5497 +++| MX0 1 SET THE REAL-TIME BIT IN TAPE CATALOG FET 06072 M01S00025.t5497 +++| SA1 P+1 06073 M01S00026.t5497 +++| LX0 43-59+60 06074 M01S00027.t5497 +++| BX6 X0+X1 06075 M01S00028.t5497 +++| SA6 A1 06076 M01S05577.ldistap +++| GETPFP GP GET FAMILY NAME, USER NAME, AND USER INDEX 06077 M01S05578.ldistap +++| MX0 42 SAVE ORIGINAL FAMILY NAME 06078 M01S05579.ldistap +++| SA1 GP+0 06079 M01S05580.ldistap +++| BX6 X0*X1 06080 M01S05581.ldistap +++| SA6 OFM 06081 M01S05582.ldistap +++| SA1 GP+2 SAVE ORIGINAL USER INDEX 06082 M01S05583.ldistap +++| BX6 -X0*X1 06083 M01S05584.ldistap +++| SA6 OUI 06084 M01S05585.ldistap +++| SA1 TF SET FILE NAME 06085 M01S05586.ldistap +++| BX6 X1 06086 M01S05587.ldistap +++| SA6 P 06087 M01S05588.ldistap +++| MX0 -12 CHECK ORIGIN TYPE 06088 M01S05589.ldistap +++| SA1 JOPR 06089 M01S05590.ldistap +++| AX1 24 06090 M01S05591.ldistap +++| BX6 -X0*X1 06091 M01S05592.ldistap +++| SX6 X6-SYOT 06092 M01S05593.ldistap +++| SX5 DFIC *INCORRECT COMMAND.* 06093 M01S05594.ldistap +++| NZ X6,ABT IF NOT SYSTEM ORIGIN
| Line S05595 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 06094 M02S05595.nos252 ---| SYSTEM TFU,R,TMS,/TFU/RTSF*100B GET *TMS* STATUS 06095 M01S00075.nos252 +++| SYSTEM SFM,R,TMS,GTSF*100B GET *TMS* STATUS
| Line S05596 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06096 M02S05596.t2807 ---| SX0 B1 PRESET NEW *DEFTO*
| Line S05597 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06097 M02S05597.t2807 ---| SA1 TMS
| Line S05598 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06098 M02S05598.t2807 ---| LX1 0-58
| Line S05599 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06099 M02S05599.t2807 ---| BX6 X0*X1
| Line S05600 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06100 M02S05600.t2807 ---| SA6 DFT
| Line S05601 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06101 M02S05601.t2807 ---| LX1 0-57-0+58 PRESET NEW *DEFTOS*
| Line S05602 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06102 M02S05602.t2807 ---| BX6 X0*X1
| Line S05603 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06103 M02S05603.t2807 ---| SA6 DFS 06104 M01S05604.ldistap +++| GETSSID SSI GET SUBSYSTEM ID 06105 M01S05605.ldistap +++| SA1 SSI CHECK FOR MAGNET SUBSYSTEM 06106 M01S05606.ldistap +++| SX1 X1-MTSI 06107 M01S05607.ldistap +++| ZR X1,PRS1 IF *MAGNET* SUBSYSTEM 06108 M01S05608.ldistap +++| SA1 TM 06109 M01S05609.ldistap +++| ZR X1,PRS1 IF *TMSOFF* 06110 M01S05610.ldistap +++| SA1 TMS CHECK IF *TMS* IS ENABLED 06111 M01S05611.ldistap +++| SX5 DFIC *INCORRECT COMMAND.* 06112 M01S05612.ldistap +++| PL X1,ABT IF *TMS* IS DISABLED 06113 M01S05613.ldistap +++| SX6 B0 CLEAR *DEFTO* AND *DEFTOS* ARGUMENTS 06114 M01S05614.ldistap +++| SA6 TARGN 06115 M01S05615.ldistap +++| PRS1 SA1 ACTR GET ARGUMENT COUNT 06116 M01S05616.ldistap +++| SB4 X1 06117 M01S05617.ldistap +++| ZR B4,PRS5 IF NO ARGUMENTS 06118 M01S05618.ldistap +++| SA4 ARGR GET FIRST ARGUMENT 06119 M01S05619.ldistap +++| SB5 TARG 06120 M01S05620.ldistap +++| RJ ARG PROCESS ARGUMENTS 06121 M01S05621.ldistap +++| ZR X1,PRS2 IF VALID ARGUMENTS
| Line S05622 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 06122 M02S05622.nos252 ---| MX0 42 SET INVALID PARAMETER IN MESSAGE 06123 M01S00076.nos252 +++| MX0 42 SET INCORRECT PARAMETER IN MESSAGE 06124 M01S05623.ldistap +++| BX1 X0*X4 06125 M01S05624.ldistap +++| SB2 1R$ 06126 M01S05625.ldistap +++| SB3 DFUP 06127 M01S05626.ldistap +++| SB5 -B3 06128 M01S05627.ldistap +++| RJ SNM SET NAME IN MESSAGE 06129 M01S05628.ldistap +++| SX5 DFUP *UNKNOWN PARAMETER - PPPPPPP.* 06130 M01S05629.ldistap +++| EQ ABT ABORT PROGRAM 06131 M01S05630.ldistap +++|
| Line S05631 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 06132 M02S05631.nos252 ---| PRS2 MX0 42 CHECK *DEFTO* 06133 M01S00077.nos252 +++| PRS2 SX6 B0 RESET *DEFTO* AND *DEFTOS* ARGUEMENTS 06134 M01S00078.nos252 +++| SA6 TMS 06135 M01S00079.nos252 +++| MX0 42 CHECK *DEFTO* 06136 M01S05632.ldistap +++| SA1 DT 06137 M01S05633.ldistap +++| ZR X1,PRS3 IF *DEFTO* NOT SPECIFIED
| Line S05634 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06138 M02S05634.t2807 ---| SRCHTAB X1,TDEF,0,1,TDEFL
| Line S05635 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06139 M02S05635.t2807 ---| SA1 =0LDEFTO
| Line S05636 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06140 M02S05636.t2807 ---| BX7 X1
| Line S05637 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06141 M02S05637.t2807 ---| NZ X6,PRS4 IF VALUE NOT FOUND
| Line S05638 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06142 M02S05638.t2807 ---| BX6 -X0*X2 SAVE VALUE FOR *DEFTO*
| Line S05639 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06143 M02S05639.t2807 ---| SA6 DFT 06144 M01S00039.t2807 +++| SB2 DT 06145 M01S00040.t2807 +++| RJ USB UNPACK STRING BUFFER 06146 M01S00041.t2807 +++| SX6 B0 FLAG LAST OPTION 06147 M01S00042.t2807 +++| SA6 B7+B1 06148 M01S00043.t2807 +++| SA1 B6 GET FIRST COMMAND OPTION 06149 M01S00044.t2807 +++| MX0 -12 06150 M01S00045.t2807 +++| SA3 TMS GET DEFAULT OPTIONS 06151 M01S00046.t2807 +++| BX7 X3 06152 M01S00047.t2807 +++| PRS2.1 ZR X1,PRS2.4 IF NO MORE OPTIONS 06153 M01S00048.t2807 +++| SA2 TDEF GET FIRST OPTION IN TABLE 06154 M01S00049.t2807 +++| PRS2.2 ZR X2,PRS2.5 IF UNKNOWN OPTION 06155 M01S00050.t2807 +++| BX6 -X0*X2 06156 M01S00051.t2807 +++| BX6 X6-X1 06157 M01S00052.t2807 +++| ZR X6,PRS2.3 IF OPTIONS MATCH 06158 M01S00053.t2807 +++| SA2 A2+B1 06159 M01S00054.t2807 +++| EQ PRS2.2 CHECK NEXT OPTION IN TABLE 06160 M01S00055.t2807 +++| 06161 M01S00056.t2807 +++| PRS2.3 LX2 18 GET SHIFT COUNT 06162 M01S00057.t2807 +++| SB2 X2 06163 M01S00058.t2807 +++| LX2 12 GET SET/CLEAR STATUS 06164 M01S00059.t2807 +++| BX2 -X0*X2 06165 M01S00060.t2807 +++| SX6 B1 06166 M01S00061.t2807 +++| LX2 B2 SET/CLEAR DEFAULT OPTION 06167 M01S00062.t2807 +++| LX6 B2 06168 M01S00063.t2807 +++| BX7 -X6*X7 06169 M01S00064.t2807 +++| BX7 X7+X2 06170 M01S00065.t2807 +++| SA1 A1+B1 06171 M01S00066.t2807 +++| EQ PRS2.1 CHECK NEXT OPTION ON COMMAND 06172 M01S00067.t2807 +++| 06173 M01S00068.t2807 +++| PRS2.4 SA7 A3 SET DEFAULT TAPE OPTION 06174 M01S00069.t2807 +++| EQ PRS3 CHECK *DEFTOS* 06175 M01S00070.t2807 +++| 06176 M01S00071.t2807 +++| PRS2.5 SA1 =0LDEFTO GET PARAMETER IMAGE 06177 M01S00072.t2807 +++| BX7 X1 06178 M01S00073.t2807 +++| SA1 DT 06179 M01S00074.t2807 +++| EQ PRS4 ISSUE ERROR MESSAGE 06180 M01S00075.t2807 +++| 06181 M01S05640.ldistap +++| PRS3 MX0 42 CHECK *DEFTOS* 06182 M01S05641.ldistap +++| SA1 DS 06183 M01S05642.ldistap +++| ZR X1,PRS5 IF *DEFTOS* NOT SPECIFIED
| Line S05643 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06184 M02S05643.t2807 ---| SRCHTAB X1,TDEF,0,1,TDEFL
| Line S05644 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06185 M02S05644.t2807 ---| SA1 =0LDEFTOS
| Line S05645 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06186 M02S05645.t2807 ---| BX7 X1
| Line S05646 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06187 M02S05646.t2807 ---| NZ X6,PRS4 IF VALUE NOT FOUND
| Line S05647 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06188 M02S05647.t2807 ---| BX6 -X0*X2 SAVE VALUE FOR *DEFTOS*
| Line S05648 Modification History | |
|---|---|
M01 (Added by) | ldistap |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06189 M02S05648.t2807 ---| SA6 DFS 06190 M01S00076.t2807 +++| SB2 DS 06191 M01S00077.t2807 +++| RJ USB UNPACK STRING BUFFER 06192 M01S00078.t2807 +++| SX6 B0 FLAG LAST OPTION 06193 M01S00079.t2807 +++| SA6 B7+B1 06194 M01S00080.t2807 +++| SA1 B6 GET FIRST COMMAND OPTION 06195 M01S00081.t2807 +++| MX0 -12 06196 M01S00082.t2807 +++| SA3 TMS GET DEFAULT OPTIONS 06197 M01S00083.t2807 +++| BX7 X3 06198 M01S00084.t2807 +++| PRS3.1 ZR X1,PRS3.4 IF NO MORE OPTIONS 06199 M01S00085.t2807 +++| SA2 TDES GET FIRST OPTION IN TABLE 06200 M01S00086.t2807 +++| PRS3.2 ZR X2,PRS3.5 IF UNKNOWN OPTION 06201 M01S00087.t2807 +++| BX6 -X0*X2 06202 M01S00088.t2807 +++| BX6 X6-X1 06203 M01S00089.t2807 +++| ZR X6,PRS3.3 IF OPTIONS MATCH 06204 M01S00090.t2807 +++| SA2 A2+B1 06205 M01S00091.t2807 +++| EQ PRS3.2 CHECK NEXT OPTION IN TABLE 06206 M01S00092.t2807 +++| 06207 M01S00093.t2807 +++| PRS3.3 LX2 18 GET SHIFT COUNT 06208 M01S00094.t2807 +++| SB2 X2 06209 M01S00095.t2807 +++| LX2 12 GET SET/CLEAR STATUS 06210 M01S00096.t2807 +++| BX2 -X0*X2 06211 M01S00097.t2807 +++| SX6 B1 06212 M01S00098.t2807 +++| LX2 B2 SET/CLEAR DEFAULT OPTION 06213 M01S00099.t2807 +++| LX6 B2 06214 M01S00100.t2807 +++| BX7 -X6*X7 06215 M01S00101.t2807 +++| BX7 X7+X2 06216 M01S00102.t2807 +++| SA1 A1+B1 06217 M01S00103.t2807 +++| EQ PRS3.1 CHECK NEXT OPTION ON COMMAND 06218 M01S00104.t2807 +++| 06219 M01S00105.t2807 +++| PRS3.4 SA7 A3 SET DEFAULT TAPE OPTION 06220 M01S05649.ldistap +++| EQ PRS5 CHECK *FM* 06221 M01S05650.ldistap +++| 06222 M01S00106.t2807 +++| PRS3.5 SA1 =0LDEFTOS GET PARAMETER IMAGE 06223 M01S00107.t2807 +++| BX7 X1 06224 M01S00108.t2807 +++| SA1 DS 06225 M01S05651.ldistap +++| PRS4 SA7 PI SAVE PARAMETER IMAGE 06226 M01S05652.ldistap +++| SB2 1R$ SET VALUE IMAGE IN MESSAGE 06227 M01S05653.ldistap +++| SB3 DFIV 06228 M01S05654.ldistap +++| SB5 -B3 06229 M01S05655.ldistap +++| RJ SNM SET NAME IN MESSAGE 06230 M01S05656.ldistap +++| SA1 PI SET PARAMETER IMAGE IN MESSAGE 06231 M01S05657.ldistap +++| SB2 1R# 06232 M01S05658.ldistap +++| SB3 DFIV 06233 M01S05659.ldistap +++| SB5 -B3 06234 M01S05660.ldistap +++| RJ SNM SET NAME IN MESSAGE 06235 M01S05661.ldistap +++| SX5 DFIV *INCORRECT VALUE FOR PP PARAMETER - VVVV.* 06236 M01S05662.ldistap +++| EQ ABT ABORT PROGRAM 06237 M01S05663.ldistap +++| 06238 M01S05664.ldistap +++| PRS5 SA1 FM CHECK *FM* 06239 M01S05665.ldistap +++| SA2 =1L* 06240 M01S05666.ldistap +++| BX1 X1-X2 06241 M01S05667.ldistap +++| NZ X1,PRS6 IF NOT ALL FAMILIES 06242 M01S05668.ldistap +++| SX6 B1 FLAG ALL FAMILIES 06243 M01S05669.ldistap +++| SA6 A1 06244 M01S05670.ldistap +++| PRS6 RDMEM ABS,FOTP,1,FFO GET FAMILY ORDINAL TABLE ADDRESS 06245 M01S05671.ldistap +++| MX0 -24 06246 M01S05672.ldistap +++| LX2 24 06247 M01S05673.ldistap +++| BX6 -X0*X2 06248 M01S05674.ldistap +++| SA6 FFO 06249 M01S05675.ldistap +++| MX0 -12 GET MAXIMUM FOT ENTRIES 06250 M01S05676.ldistap +++| LX2 12 06251 M01S05677.ldistap +++| BX7 -X0*X2 06252 M01S05678.ldistap +++| SA7 MXF 06253 M01S05679.ldistap +++| RDMEM ABS,X6,X7,FBUF GET FAMILY ORDINAL TABLE 06254 M01S05680.ldistap +++| REPRIEVE RPVA,SET,237B SET EXTENDED REPRIEVE 06255 M01S05681.ldistap +++| EQ PRSX RETURN 06256 M01S05682.ldistap +++| RPV SPACE 4,15 06257 M01S05683.ldistap +++|** RPV - REPRIEVE PROCESSOR. 06258 M01S05684.ldistap +++|* 06259 M01S05685.ldistap +++|* ENTRY (PPC) = 0 IF ABORT ON PP ERROR. 06260 M01S05686.ldistap +++|* = FET ADDRESS IF DO NOT ABORT ON PP ERROR. 06261 M01S05687.ldistap +++|* 06262 M01S05688.ldistap +++|* EXIT (PPC) = 0. 06263 M01S05689.ldistap +++|* (PPS) .NE. IF PP ERROR. 06264 M01S05690.ldistap +++|* COMPLETION BIT SET IN PP ERROR FET. 06265 M01S05691.ldistap +++|* 06266 M01S05692.ldistap +++|* USES X - 0, 1, 5, 6. 06267 M01S05693.ldistap +++|* A - 1, 6. 06268 M01S05694.ldistap +++|* 06269 M01S05695.ldistap +++|* CALLS ABT. 06270 M01S05696.ldistap +++|* 06271 M01S05697.ldistap +++|* MACROS REPRIEVE. 06272 M01S05698.ldistap +++| 06273 M01S05699.ldistap +++| 06274 M01S05700.ldistap +++| RPV BSS 0 ENTRY/EXIT 06275 M01S05701.ldistap +++| MX0 -12 CHECK ERROR FLAG 06276 M01S05702.ldistap +++| SA1 RPVA+/COMSRPV/OSEF 06277 M01S05703.ldistap +++| BX1 -X0*X1 06278 M01S05704.ldistap +++| SX1 X1-PPET 06279 M01S05705.ldistap +++| SX5 B0 06280 M01S05706.ldistap +++| NZ X1,ABT IF NOT PP CALL ERROR 06281 M01S05707.ldistap +++| SA1 PPC 06282 M01S05708.ldistap +++| ZR X1,ABT IF NOT PP CHECK 06283 M01S05709.ldistap +++| SX6 B0 CLEAR PP CHECK FLAG 06284 M01S05710.ldistap +++| SA6 A1 06285 M01S05711.ldistap +++| SX6 B1 SET PP ERROR FLAG 06286 M01S05712.ldistap +++| SA6 PPS 06287 M01S05713.ldistap +++| MX0 42 SET COMPLETION BIT IN FET 06288 M01S05714.ldistap +++| SA1 X1 06289 M01S05715.ldistap +++| BX1 X0*X1 06290 M01S05716.ldistap +++| SX6 3 06291 M01S05717.ldistap +++| BX6 X1+X6 06292 M01S05718.ldistap +++| SA6 A1 06293 M01S05719.ldistap +++| REPRIEVE RPVA,RESUME,237B RESUME PROGRAM EXECUTION 06294 M01S05720.ldistap +++| 06295 M01S05721.ldistap +++| RPVA RPVBLK RPV REPRIEVE BLOCK 06296 M01S05722.ldistap +++| SPACE 4,10 06297 M01S05723.ldistap +++| QUAL * 06298 M01S05724.ldistap +++| TMSOFF EQU /TMSON/TMSOFF *TMSOFF* ENTRY POINT 06299 M01S05725.ldistap +++| TMSON EQU /TMSON/TMSON *TMSON* ENTRY POINT 06300 M01S05726.ldistap +++| TITLE FIELD LENGTH DEFINITIONS. 06301 M01S05727.ldistap +++| RFL SPACE 4,10 06302 M01S05728.ldistap +++|** FIELD LENTH DEFINITION. 06303 M01S05729.ldistap +++| 06304 M01S05730.ldistap +++| 06305 M01S05731.ldistap +++| RFL IFGT BUFF+BUFFL,* 06306 M01S05732.ldistap +++| RFL= EQU BUFF+BUFFL PROGRAM FIELD LENGTH 06307 M01S05733.ldistap +++| RFL ELSE 06308 M01S05734.ldistap +++| RFL= EQU * PROGRAM FIELD LENGTH 06309 M01S05735.ldistap +++| RFL ENDIF 06310 M01S05736.ldistap +++| SPACE 4 06311 M01S05737.ldistap +++| END
cdc/nos2.source/opl.opl871/deck/ldistap.008.txt · Last modified: by 127.0.0.1