Program Logic Manual - All about the IBM 1130 Computing System

More documents

Recommendations

Info

J P300****A1**********ENTRY FROM Supy.p HASE 2 *A2 s...UA. PERAKIA4TA. LET .ALAM-Pal-8R:***MA** ****** **A. .. .*.*YES A*RA* • n2 *x;J8310 J5320*.*.*****Bp. ...**********81 ******** *** BI.*.. *ANDO *. NO *SEARCH LET FOR • READ PREVIOUS •.. EQUAL M8N8U .. • END OF . LET SECTOR •A . .* A PERMANENT LET * .A. .*:*********** ** YES.**. ** AA.r *CI. *.x . . C3 *.X* * . x * ***** X x ***.J p50050A.J6330 •A. JI33 xCIC2 S. .****E3**********.4. *. .* A.NO .. ALL A. .* END OF *. NO *UPDATE SITE OF...*. CARTRIDGES .* A. PFRMANFNT .5... MS*.SEARCHED .* 5. LET .* * *A. .. S. .5.*A. :***** ********** •. YES * YES**A,**n2 *.x* *****Y J5340 x.•....**ni********** *****07********** 03 *.* *UPDATF ncom OF *SEARCH LET FOR * .*. 4.*ALL A. NOA DUSTER CART END OF . *. TEMP ITEM S . ......* * TEMPORARY LET A. DELETED .** * * A. .*...•.•***•******* ***** ********** ** %• YES RAMSA aJ2 A* *x 4..4,• ...******A3 **********J5360 •A.El • A.F2 A. .****F3 * *****.* A. .*..a s.• END YES .* ANY A. OF A. NO * SFT UP LAST *FOUAT .* A. TEMP LET 0.... *DUMMY ENTRY SET*S. RECORDS ...*A NOA. FOUND .., * *ANDO - OBNOU •A. ..A YESy.. *****JE1361 x*****F7*•********...*F1**********STARCH LET FOR A Fx1T TO MCRA A * LAST DUMMY A* A A ENTRY A*************** A**. ***** ********.G/ A. G2 A.TURN A. .* A.YES .s .* DUMMY A. NOMAN A. ENTRY FOUND .A...SLFT A. .**. *r.* ' NO A YES*****F1 ******** **• VELEMT ITEMS* SATEL CART A*UPDAT SAE RE OANDU OF*A T**•*****•************. * •—X* CI .* A*A**xx.....m.********. ****.H2**********. • A *SET ABORT JOB *SAVE SIZESWITCH ATEMP* * A DELETED A. .......*********** :**** ********* *.:****J? *.x* .***J8370****J1 A ** *BLANK OUT TEMP •A Foil TO ARCA A ITEMS A* A s A.************** * *••**K7 K7 *... *.RANCH E EXIT A .* END OF A. NOTO PH5 .* ***. sPc464 .*.s.-.... • .. ....***.....*******A YES 44.*. C q *; X * *•**** MAMA *****00,* * *A B3*A3 A* * * *A ..**•Flowchart SUPO4. Supervisor, Delete (Temporary Items) Lett96
****Al**********ENTER FROM MCQA**********************A1************ RFAD IN SCUM *..***********C/ 5. *.I. IN *. YES*. COLUMN 14 Or:*. .*• NOAl *.A5 S..•.*•..5 PU NCH 5. YESN3 .. mAINLINF *.•. IN COLUMN ......*. 24NAME .*.5*. GIVEN .**. .**. .*.** NUYES***** BB***************84 ******** *** SLOSW*SET ZERO LOCALS*• CANNOT CALL LS*• SLOSH*****5**********SET NON - ZERO*LOCALS CAN CALL*F il TjaLnR K ** LOCALS• LOCALS *• SUPV***** ******* *****•* * * * * **********C3•*.•S..* *..* PUNCH 5. YESS. IN COLUMN*. 28 .•*. .**. .*NU*****o/********** *****02*********** 1MPSW* "MK& MAP * ttiP1** StWIH q U O;F **At*** ****** **I.********01* ********** sxlswigcMOONs*****D4* x **** ****** SX3SW •.cr NON - ZERO .s SPECIAL ILSES •REQUESTED * *X....,5.......••EXIT TO CORE •LOAD Auttm• * ******E1*►*********SET NCORO TO NO** OF SUPV CNTRLRCVS *.********** ******SFT FOLLOWING * TWITCHES ZERO *IN DCOM NLCNT, NNCNT, *FONT, • NGCNT, NOCSW ************* *****•*****F1***********READ COLUMN 19 **c SFT REQUESTED*. DISK I/0 * AcCORDINGLT ****************** * * ******* rls*********** WRITE DCOM TO *DISK••••*****G1*********::FFAWROnNYDRT:* * •***********4***•*.*.GA *..* *Ṡ..5 MAINLINE NO*. NAME .**. BLANK .*P. ..• .** YES****G4* * NINOR *SET NAME INDIC X* NON - ZERO *••• •HI *..* *. 5. YESID /FRO .*.*S. *. ..o.5-.-NO***** H3********** *****H4 ***********SET'NINDR, NAME*INDIC, ZERO K it SET TO ZERO *DADA, SECTOR * *CONN socoe •* ADDR OF WS *********** ****** ***•**J1 x j2** ******* * J3...*. 5*** *♦.5 NO OF S.*LOOK UP CORRISP*.*SUPV CNTRL 5. NO * p074% 12 ET * LOGICAL DRIVE * :coAETSP EltlEm *x*INFO FOR PHASE *CURE *WORKING STORAGE* 5.*. ii0I? .*.* 5* * ************* ******.********** ***** ** 5. ...5* YES;X ****5As * x1* ***** ***** . *****K4 *********** *DCDE**** * **SFT DRIVE CODE * *BRANCH TO FETCH** OF o MA I NL I N E **PHASE 5 C ExIT * TO IT *:****** ******** *:. 4.***** ********* ***•Flowchart SUPOS. Supervisor, XEQ Processing;▪;* * * ******* .002** Al * 13*• * . •**** *•.xxFlowcharts 1.97
Page 1 and 2:
File Number 1130-36Form Y-26-3714-2
Page 3 and 4:
CONTENTSSECTION 1. INTRODUCTION 1 S
Page 5:
IntroductionProgram Analysis Proced
Page 8 and 9:
SUP05„ Supervisor, XEQ Processing
Page 10 and 11:
to be fetched as a result.Phase 2 o
Page 12 and 13:
Table 1. The Contents of COMMALABEL
Page 14 and 15:
"Table 1 . The Contents of COMMA (C
Page 16 and 17:
Table 2. The Contents of DCOM (Conc
Page 18 and 19:
Likewise, information acquired by P
Page 20 and 21:
1Subphase 2Subphase 2 contains the
Page 22 and 23:
prior to performing any disk operat
Page 24 and 25:
Cold StartLoaderResidentImageParame
Page 26 and 27:
Page Blank In Original
Page 28 and 29:
Page 30 and 31:
lank (the mainline is in Working St
Page 32 and 33:
Page 34 and 35:
Page 36 and 37:
Page 38 and 39:
0 0 0 0COMMA, COMMA, COMMA, COMMA,S
Page 41 and 42:
SECTION 8. CORE LOAD BUILDERFLOWCHA
Page 43 and 44:
core load is executed) below locati
Page 45 and 46:
LOCALs AND SOCALsIf during the firs
Page 47 and 48:
LOWCORE./‘. BSC L I FL210 I BSS 1
Page 49 and 50:
SubroutineMC000RL000FunctionMaster
Page 51 and 52:
PHASE 6Phase 6 performs several mis
Page 53 and 54:
DUP CONTROL RECORDSIn the table bel
Page 55 and 56:
LocationPIHDRSIHDRPTHDRCIHDRPhase N
Page 57 and 58:
specified on the DUP control record
Page 59 and 60:
the disk area reserved for DUP phas
Page 61 and 62:
DCTL SubroutinesThese subroutines m
Page 63 and 64:
SNOFF SubroutineFixed Area is the b
Page 65 and 66:
XW000This subroutine places the dat
Page 67 and 68:
IITo delete the FORTRAN Compiler, t
Page 69 and 70:
If // or * is found in column 1, th
Page 71 and 72:
PRECIThis phase is read into core s
Page 73 and 74:
Subroutine in execution Contents of
Page 75 and 76:
phase. When the overlay phase compl
Page 77 and 78:
PHASE 2Phase 2 handles the processi
Page 79 and 80:
SCANThe SCAN subroutine collects th
Page 81 and 82:
Figure 14, panel 3 shows the layout
Page 83 and 84:
PhaseNumber Phase NameFunctionPhase
Page 85 and 86:
0 0 0 0 0 0 0 0COMMA,SkeletonSuperv
Page 87 and 88:
If at any time during the compilati
Page 89 and 90:
Dimension Information Array Name75
Page 91 and 92:
calls the System Core Dump program
Page 93 and 94:
Pass 1 of phase 4 examines all COMM
Page 95 and 96:
phase 16, when an arithmetic operat
Page 97 and 98:
Phase 11 then calculates the subscr
Page 99 and 100:
A DO Table entry is made for each D
Page 101 and 102:
associated string and performs the
Page 103 and 104:
All calls to these subprograms are
Page 105 and 106:
Errors DetectedThere are no errors
Page 108 and 109:
SECTION 12. SYSTEM LIBRARYFLOWCHART
Page 110 and 111:
Function Name(s) Type Subtype Refer
Page 112 and 113:
Page 114 and 115:
Page 116 and 117:
If (1) cylinder zero is defective,
Page 118 and 119:
1130 Disk Data File Conversion Prog
Page 120 and 121:
into a 31 word work area which has
Page 122 and 123:
Acknowledge and Receive. If the ope
Page 124 and 125:
Write Response (Transmit). If the t
Page 126 and 127:
ead response routine to handle the
Page 128 and 129:
Normal EBCDIC text. This interrupt
Page 130 and 131:
Notes. FIRST is set non-zero during
Page 132 and 133:
Notes. During call processing SYN5
Page 134 and 135:
switches and storage locations requ
Page 136 and 137:
Settings.Negative = EOTZero = Block
Page 139 and 140:
SECTION 14. STAND-ALONE UTILITIESDI
Page 141 and 142:
PROGRAM ANALYSIS PROCEDURESINTRODUC
Page 143 and 144:
SUBROUTINE ERROR NUMBER/ERROR STOPL
Page 145 and 146:
•Table 8. Error Number List (Cont
Page 147 and 148:
COMMA,SkeletonSupervisorCOMMA,Skele
Page 149 and 150:
Assumes CoreLocation Procedureshave
Page 151 and 152:
StepProcedureContinue nowhaving the
Page 153 and 154:
SUBROUTINE DATA CHARTSSYSTEM DEVICE
Page 155 and 156:
Register status:MainlineSaved at/re
Page 157 and 158:
Significant variables:Symbolic loca
Page 159 and 160:
Page 161 and 162:
Page 163 and 164:
Page 165 and 166:
Page 167 and 168:
Page 169 and 170:
Page 171 and 172:
Page 173 and 174: TYPE ZFlowchart: F1012Used by: SFIO
Page 175 and 176: PRNZFlowchart: FI010Used by: SFIOSu
Page 177 and 178: Significant variables:Symbolic loca
Page 183 and 184: Register status:MainlineSaved at/re
Page 185 and 186: READ1Used by: Assembler Language pr
Page 193 and 194: Register status:ACC EXT XR1 XR2 XR3
Page 203 and 204: Register status:ACC EXT XR1 XR2 XR3
Page 205 and 206: DISK1Used by: Monitor system progra
Page 209 and 210: Postoperative conditions and entry
Page 211: Significant variables: (Continued)S
Page 214 and 215: mom texauao ularAS • TO •LkS 2.
Page 216 and 217: MAINS• ENTER FROM• PHASE 1•SE
Page 218 and 219: •.4ISLA11.41.0..005•• • •
Page 220 and 221: ••••10•ENTER FROM COLD.
Page 222 and 223: ****A1**********ENTER FROM CORE** I
Page 226 and 227: ****AI*ENTER HF.E F.OM♦* PHASE 3
Page 228 and 229: ***** *Sim*000* 5 * * 008*%al* * A2
Page 230 and 231: .•.•••▪NNA L FRM CORE.•
Page 232 and 233: • A4 :...CM000CM11;... A4114**Al
Page 234 and 235: SOZ sixelpAAINAnoTvezifemul gaaprin
Page 236 and 237: • •• Ah •• •CCATiiA4...
Page 238 and 239: •003•• Al•• ••iSTOREA
Page 240 and 241: ..*006 *.Al.•006•. A2• •
Page 242 and 243: E T z siautromoiacuninact umi2oad A
Page 244 and 245: • D Al•••DUMPLET*A/• EXEC
Page 246 and 247: DEFINE0 *****1000* ******0*****ENTE
Page 248 and 249: •014.• Al.• •PRECI*rnA•EN
Page 250 and 251: A l•ENTER FROM MCRA•B145TAIVral
Page 252 and 253: • ENTER FROM •• PHASE 1 •
Page 254 and 255: •RHAN4 ;FLIPPER•• •x81•
Page 256 and 257: .-706 FROM •• PHASE 3 ••
Page 258 and 259: • ENTER FROM •• PHASE 9 •
Page 260 and 261: .1/1E11/2 *PHA S 7 FLIPPER:BI•RES
Page 262 and 263: •• ENTER FROM •• PHASE 9
Page 264 and 265: LDLBL Al• CONVERT LABEL •• TO
Page 266 and 267: DTHORAlCOMPUTE OSFBLOCK MORDCOUNT%I
Page 268 and 269: INT2AlFETCH DISKBUFFERADDRESSESBI
Page 270 and 271: EM0001•FETCH •APPROPRIATE •ER
Page 272 and 273: AlSAV5014yEAREAX81 82•"• INITIA
Page 274 and 275:
• •• A4 •• •XF0000 F150
Page 276 and 277:
STARTST1CKRLAl•"INITIALIZE PASSON
Page 278 and 279:
•OOP•%AI*•NXTPOAlINIUNZE•
Page 280 and 281:
•008.• AI.• •BEGIN1A• •
Page 282 and 283:
Esz SDIETT0AA0T3L asvtid (aaudutop
Page 284 and 285:
SSZ sprIpmoid6 asviTcl gaalPlum0 NV
Page 286 and 287:
• A3 ••• • •STARTAlINIT
Page 288 and 289:
STARTAl••• INITIALIZE TO •*
Page 290 and 291:
XSTARTAlA4•• I NIT I ALIZESUBSC
Page 292 and 293:
ENEAlINITIALIZE PHASE • ••STA
Page 294 and 295:
6T as'otici ‘aaudurop NV/U.1103
Page 296 and 297:
ENTAl• MOVE STRINGNEXT TO SYRT8L.
Page 298 and 299:
••ENT 12012Al A2 ..• ••IN
Page 300 and 301:
ENTAlINITIALIZEPHASE• B/ •.X.
Page 302 and 303:
RC000A2:REVAIHLPHISE•B2• LOAD S
Page 304 and 305:
FSLEN•Al:FSICUEStitiCeDD•SYSTEM
Page 306 and 307:
DISCAl•CALIO •• ••READ ID
Page 308 and 309:
IDENTAl•CALPR 007A1•.----------
Page 310 and 311:
swIrommaAc103 tAreaqn tuaiskS • 8
Page 312 and 313:
EEZ sUrqamoil.LaIsa (Areaqm uia4sA5
Page 314 and 315:
.012•• Al.• •M0530•%Al•
Page 316 and 317:
*****. YES *010.Er000 .FC015 * 02**
Page 318 and 319:
.0/2** A3** *)7(*****A3***********C
Page 320 and 321:
ICNVT****A1*** ***** *ENTER I - * C
Page 322 and 323:
INSRT .4. .4.Al *. 44 *. *****As **
Page 324 and 325:
INT2 ..*A1***** *******• SENSE &
Page 326 and 327:
XMTNTAt .. *.4:00* ******** .1,1. *
Page 328 and 329:
SCAT3 s****A1************SAVE RUGS.
Page 330 and 331:
%.• • * • **▪ 208* *0013*AL
Page 332 and 333:
SEAL...•.A1ENTRYARK)•• ENTRY
Page 334 and 335:
•003*• A/o• •.0*.*•003•
Page 336 and 337:
..Al....A; .... ao•• COLUMN •
Page 338 and 339:
RAPT!..•.AI+ENTRY VIA LIEF• PAP
Page 340 and 341:
• A2 •12300 X 12100 72400••
Page 342 and 343:
PACES PNCHZ P2080••••Al ...
Page 344 and 345:
HOLE/'ENTRY VIA LEAF •HOLEZ•
Page 346 and 347:
Z'90£ •OHDNdBacirl tualsAS 'S TO
Page 348 and 349:
******504*• Al.*****A1***•**•
Page 350 and 351:
as*** **•• *555 *****0065 *006*
Page 352 and 353:
**•**anon*41** *****•*.4 4 * 4.
Page 354 and 355:
**AI******** BRANCH TO** INTERRuPT
Page 356 and 357:
**•* ****• * r *• 143 5 * A4
Page 358 and 359:
*5****0/4** B,** * **014** 84** *01
Page 360 and 361:
**•**• A4 B...* ***** XX.*.A? *
Page 362 and 363:
ST .90E•OCILIVD 'Axemui tualsAs '
Page 364 and 365:
XA l *. *.* *.NO . READ .....**. RE
Page 366 and 367:
ZZ '90E •TUHYD 1 .A.re/qci utalsA
Page 368 and 369:
'90E•oavau `icluacin tua 3sAs 'LE
Page 370 and 371:
pLOTI****A/********* •*ENTER VIA
Page 372 and 373:
8Z '90£LT,Old `Ireami tualsAs TtOL
Page 374 and 375:
0X.*.2*•A5 *.•.* LAST 5.REMOVE
Page 376 and 377:
APPENDIX A. EXAMPLES OF FORTRAN OBJ
Page 378 and 379:
Object CodingSource Coding Object C
Page 380 and 381:
Page 382 and 383:
Source CodingObject CodingObject Co
Page 384 and 385:
Page 386 and 387:
Source CodingObject CodingObject Co
Page 388 and 389:
Source CodingObject CodingNon-Disk
Page 390 and 391:
Source CodingObject CodingWRITE (2'
Page 392 and 393:
APPENDIX B. LISTINGSThis appendix c
Page 394 and 395:
ADOR REL OBJECT ST.NO. LABEL OPCD F
Page 396 and 397:
ADDR RFL OBJECT ST.NO. LABEL OPCD F
Page 398 and 399:
ADOR REL OBJECT ST.NO. LABEL OPCD F
Page 400 and 401:
ADDR REL OBJECT ST.NO. LABEL OPCD F
Page 402 and 403:
Page 404 and 405:
AMA REL OBJECT ST.NO. LABEL OPCD FT
Page 406 and 407:
Page 408 and 409:
SYMROL VALUE REL DEFN REFERENCESSSC
Page 410 and 411:
APPENDIX C. ABBREVIATIONSBelow is a
Page 412 and 413:
Abbreviation Meaning Abbreviation M
Page 414:
Abbreviation Meaning Abbreviation M
Page 417 and 418:
Disk Monitor Microfiche Disk Monito
Page 419 and 420:
Disk Monitor Microfiche Disk Monito
Page 421 and 422:
cters respectively.CSP D1 FORMAT:CS
Page 423 and 424:
APPENDIX G: FIELD TYPE COMPRESSIONS
Page 425 and 426:
Disk I/O subroutineResident monitor
Page 427 and 428:
Arithmetic and function subroutines
Page 429 and 430:
READER'S COMMENT FORMIBM 1130 Disk
show all

Program Logic Manual - All about the IBM 1130 Computing System

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?