Program Logic Manual - All about the IBM 1130 Computing System

More documents

Recommendations

Info

'90E•oavau `icluacin tua 3sAs 'LEDO 71et131A01.1• •* 30883 40 - *. 1504 VOA asnIrd*4150►*• 3003 .41111482749NO./:* 14119 559 0905 •****•**** SH*****)1 S 9E38•0438 0893* IOSZ 1891533 ***** **••. * .44 * 69 . **::* ** * 4 * * *4*** *•*► *44*)1 )1' ON .....***** ******** .. ..4• .4* 4 * 3000 * • .1• ASo. 6.*13A31 Id/18831Ni* * 30883 39938 4 0938 •• apainuuans ..---* £083 (41(0138 * *100 1050 0004/* *02193 IOSZ 1(1915(*********4M****•4 5161 S1 *' Si.• 141114 339 0901 •.4 .•X **********Ex ***** ****** *** : * 4M****.*'s 1h8 4E33)1.**49384.1**** •X . * *44444 %58 '• * . ET ►*•*• • * .ON * **!*. . * • • * . 4 . * ***** ************** *+1.° NO 116 • •* *';31.: 419531's*- Asnw 3 IA30 **X".. NO113N04 **X"LenNTAAAMati:.* S 4' : t2d474119? : 'a 0/1 *.• * ** *•* yal pinoa *:13B. 1N3438)30************ H****▪ Eris$33 • **** *--x. 4V ** ******W. ****• ** 49 E0 .• * * •ON * *•** *•sr.... 6* X** '.. * * ' 3 1(83 * •X"* •►• 11(1 n31.13"'°*. ""* i 300 m ?T 80 *v:) , :X" r 1301 0933 r531 '4.. 40883 4•*.*NI 8009 838 135** HJIM 338 8901 *** . 45 ***(******5 8 3****•* X 4E6 1 3413i3/1 HI1M* *SO OSZ 3SN3S*X 9EEI8Zr* 11311100.1* 0/I 3011NOW **13011 163938061**4►►* *64 *• ****►******C1:7361*ON •***** •* EL) ** *****• * *1 A9lux IN3N33:1u1:*********15****:*14*• •3 69 • •*•5 ON 4*. **rt s' 15061 A9 4 3N11nub9OS4• IVX 1N314310141 * S3A 51 4.0 * 4•-4.4.(3X 8013*ON **• °44.4 . NO •**. 119 10433 .*••' * 10N •• S3A•• 53 8••*.• * ■ **13A31 AdntivaANI. • 31911619W •* 3131(419 40 * * 01 N8A133 ********** 3**** *** ****** i3****94038 x 08138ON **•** 8B84X ••• * • N9141 8369385:*53A •► 100 tin 110M*u* baJAn.- ZAS3A *(01 1531•*• NO113113•* oil ON*.• 4 Li09E38•*:44138ON *4 •••*• 3311953N•*• IN003 0809S3A daiAna *--* *••* 00• L'Tfivi3s• *•0,7.*..** •***********••***4 ..• •• * **• 0336 -4 . ... S11009 iN31411589*I8X W083 wa y * *• IN003 40/4 a. 4 30 6009 ** nuniad do 135 * '4, 833408** 53A * H11" Al 5161 4• • •4 *• . 4083 18% 40901 ►***** *****3***** .4 ********4*1X 1E138-!. XX ****'.:* .* Er • •***• ON ** - •* ***** ****** ******* 4° '4 • 4 ..• NO '. ** 339 3801638 *""•• Ile A0938 '* Lax 3A9S 4S3A '* ION ••* * •► **• *• •.•. Z8 **********I8 ******4*4****)1* *. .* 44 ** cv ** *• • •**►►**!* -• 4 * • . ****** ********** 13831 * • * ** •4 I 89 * "'X * 15311 100H11M *00433 *:602411(38b69:X"18* 1NAI1383141 • m 0*OSZ 3SN3S** 3911 911 84163*• * ******* **:.1/****** ***Vim*03. rt.** *X (4133.X 96038 00933• * *• .•.1. EY • •*8** r * *4**• 4 *44*49 • * Z4 ** ***** *4**
7*** **** ****. A2 * A3 A4 * 3 * * * ****• **** *4**• • •READ/ RE096 X ii RE216 XRES60******A7•**** * *sit* ******A3****►****** ***** A ****** ********5 ***********A1*********** BRANCH TO 4.*ENTER VIA LIRE *START 250/ CARD**USER'S ERROR *READ/ *TM/74M *X...READ..X:BViREMEVORVIN: X*SUBROUTINE WITH** * * * ** ACC /0001 ******* ***sass** . . **** ***** ****** ****************** *******4.** 54**• . * A2 * A4 * ***** ****XXRE/70x*****A1********* 97 • 3. *****B3********** *****B4**********85 *. *.* .* S. ► * .* *•YES .* NOT *. * INCREMENT XR1 * SET XR1 TO TES.,.*ETIFII TO * ...* SAVE XRI • .••.• READY BIT .* ..X* BY 1 * SPRET . I *S. *. ON *.* .*..*. ZERO .•*: ! * *. .****** ************ X . ******* ******* *** ********* ******** X 5. .****• * NO *****•*• * NO•JI 83 H4 * * . * * * ***** **** ***•;x .5. xRE362 x***** C1********** C7 • ►S. *****CS ******* ***Lou) XRI FROM .4 *. THIS TV WITH * YES .. BUFFER 4. *SENSE 2501 DSW ** ADDS OF 3 ...*. WORD COUNT .. * RESTORE ACC * •.X WITHOUT RESET*ARGUMENT ADORS B. ZERO .* . * ** * .******************* NO *:;**. X C5 * *•***Xxornon x.*. RE132 0E049*****D1********** D2 *. *****03********** D5 3.* **. * ****04 ****** *** .. S.* SAVE * .* .* PUFFER *. YES SET UP RETURN * OP COMPLETE * .5 NOT *. YES*ACC,STATUS, 7017* *. WORD COUNT .* * BOOR FROM SRI *INTERRUPT LEVEL* S. READY BIT .5...*.NEGATIVE .4, 5 4 * 3. ON .** * *. .5 * * *************** t. .5**************•**S. * .5 NO ********* ******** *• 10X.:•RES-16 x xFI S. F2 *. ***** E3********** ******E4***** ****** ******E5 ***********.3 *. .•AUFFER S. * *NO .3 1/0 3. .*WORD COUNT 5. YES*SENSE 7501 55W 3 * RESTART 2501 •..... FUNCTION .3 *.GREATER THAN .*....X ► IM R ;TATUi :WITH RESET CARD READ*.TEST (0/ .* 3. AO .5* • *3. .* 5. .5 :*•S. .3 **** ***** ******** ***** ********* YES * NO . .xilX***•Z REI08 x RETRO * K4 *El *. x F4.*.*. . .*. *MET ********* .3 *. **•*.* .* /S THIS *. YES * INCREMENT XR/ * RETURN TO .3 ERROR S. YES*. SUBROUTINE .3.... BY 2 • MAINLINE * 5. CHECK 91T .....5 . BUSY .• * * 3. ON .5•, .t* ***a•** **33**** 3. .3.3 .* ; **** ****** **** NO *33* * NO****RS *▪ * * A4 *X..• **** * ***** . XX x RE192RE370*****cl********** *****07***** ***** *****03*;******** 04 *. **G5 ******** * * * LOAD ACC WITH •*. * 9RANCH TO •INCREMENT XRI * *SFT BUFFER *ono* * /4001, 2501 .* .* LAST 4. YES *USER'S ERROR *AY 1 *.... * IN READ TOCC X..X* ILLEGAL CALL 5. CARD BIT ON .5 X*SUBROUTINE WITH*. * ERROR CODE * *. .* * ACC - /0000 ** . * * * *. ** ***** *********** X ******** ********* . *********** ****** 5.5. .3***** **** * NO. * 5***53 GS •* * * * H4 *.X*3** **** * ■ X****xRE340 K RE375*****H2***************H4*********** * * * * LOAD ACC WITH 3*SAVE USER ERROR**DECREMENT SIOCT* 3/4000. 2501 NOT.*SUBROUTINE AMR*MONITOR 1/0 READY ERROR 5X..* * COUNTER COOS *3** • • **** * * * ******** ********** . ***** ****** ******n* 42 * * * ***** ****xX.;.NO.p .YESRF077X RE704XJ1*. ***** J2** ***** *** J3 *. *****J4 ***** *****.3 3. * * .* 5. * * *SPST4 *. 5 I/O •. *INCREMENT STOCT* .* IS *.* -*..X*. FUNCTION .5 * MONITOR T/0 5 :*X*..DEXIiE0ZUS!..* :SUMIWIVIBOSY: ...*PAUSE FOR POST *.LEGAL. (II.• . COUNTER INDICATOR *. * - OP ERROR •S. .* * * . S. .5 * * . * *****••***********.****** ****** **** X* YES 34** *.illn **v.*. **** •* Jl * C5 K4 • X * *X •**** . * *****x *•**9E084... XRE348K1 *. *****K7********** *****K1***•••••** x•* *. * LOAD ACC WITH * ****K4 *********YES .3 IS THIS 5. * SET THIS * 5/4000. 2501 NOT* * RETURN FROM *...*. SUBROUTINE .5 :SUBNIMINBUSY: READY ERROR *INTERRUPT LEVEL**. RUST .* * CODE * 4 **. .3 * * 5 **. .3 ******* ***** ***** **** ******* ******* NO. .; X Xsr** **** ***•. 02 * Al • A4 * * • * * ***** **** ****Flowchart FI038. <strong>System</strong> Library, READ1• Flowcharts 306.25
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:
Page 179 and 180:
Page 181 and 182:
Page 183 and 184:
Register status:MainlineSaved at/re
Page 185 and 186:
READ1Used by: Assembler Language pr
Page 187 and 188:
Page 189 and 190:
Page 191 and 192:
Page 193 and 194:
Register status:ACC EXT XR1 XR2 XR3
Page 195 and 196:
Page 197 and 198:
Page 199 and 200:
Page 201 and 202:
Page 203 and 204:
Register status:ACC EXT XR1 XR2 XR3
Page 205 and 206:
DISK1Used by: Monitor system progra
Page 207 and 208:
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 224 and 225:
J P300****A1**********ENTRY FROM Su
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 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 382 and 383: Source CodingObject CodingObject Co
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 404 and 405: AMA REL OBJECT ST.NO. LABEL OPCD FT
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?