Program Logic Manual - All about the IBM 1130 Computing System

More documents

Recommendations

Info

**•* ****• * r *• 143 5 * A4 *■ • .**** *5**01740*117.* 91** * * *.;.YES11 •H.015K P.ROSY* NOX****•c1.*********seVE TRANSFER •. VECTOR LINK .woRn ADDRESS ********** ****** **X*****D1**********.SAVE REQUESTED *5 FUNCTION CODE .****************5X 7(***** A8*********** * * **SAVE RESULT AS * * CLEAR **WORKING SECTOR * * INTERMEDIATE • ADDRESS • * WORD COUNT * * * * ow*5012* ***************** ***************** *017*. R7* * 95** * * 5• * •x*i x XD1250 X DI320 .*.*****R2 ***** *5*** B3 7. 84****. 95 S.* * .* IS S. .4. S. .5 *.* TURN ON DISK . .. REQUESTED •S. NO .5 SEEK S. NO .. ARM AT S. YES*BUSY INDICATOR,* *. DRIVE ON .*.... S. OPTION .*... -X*. REQUESTED .*....SDBSY 7 S. SYSTEM .• . *. REQUESTED.* 4 *.CYLINDER .** * *. .5 .. .* 5. .******* ******* ***A. ; ,X0 YES * YES *.;** ***10*008* **** * • *013** F4* 5112* * 85 * * G2*• • . C4 *.X • • * 5* * * ***•****; D1280 X X*****C2 ****** 5*** *****C3********** *****G4 ****** ***.* SAVE MORD * * • ** COUNT, SECTOR * * CONSTRUCT 2ND * : iCIRRIMPTOD •: * SENSE ESN AND . ADDR P ROM I/O * * WORD OF READ * • NEXT CYLINDER * * SAVE AT SODSw **AREA IOCC ADDS * * * * * * * ************ ****** *** ***** *** ****** ********* ******** ************ *****X*****02•*******•* *****D3• ********* * * *.ISOLATE LOGICAL* * CONSTRUCT 2Nn ** DRIVE CODE * *WORD SENSE WITH** * * RESET TOCC ** . . **5* ***** ********5•***.012*5 04 *.X*****n1255 *•***04*********** SUBTRACT NEXT .. DEFECTIVE •X* CYLINDER *X... ADDRESS * •******** * * * * * * • ******DS*****•****:CONSTMEJ SEEK ** ******* ****************El**********ISOLATE AND ** SAVE SEEKOPTIO* pARAMETN ERt***************:Fx *. *****F1**********.* s. • *.4. LEGAL •P. NO * CONSTRUCT 2140 *P. DRIVE .5.... *WORD REQUESTED **.SPECIFIED.* *READ/WRITE 'MC*S. .* • •X **********•******• YES *****.011** F4** *XE4 S.NO .*** 5. S.***: * YESE: INTERMEDIATE ** SECTOR ,i8Ons* ******F1**** ****** ISOLATE AND .SAVEDISPLACFMENT A5 PARAMETER***** *9,4* ******X**•**F2***•****** ****•F1***•******* . * ** SET UP FILE * * SENSE OSW 5Nn ** PROTECT ADDS * * SAVE III SOOSW **FOR THIS DRIVE * * .* * * ****************** *** * *** **********• INCREMENT • *D1220 014845:ADDIFIRVEMEXT:* CYLINDER * ■ INITIATE SEEK ••X•...*G/*****•***** SAVE ADnP OF* 1/0 PUFFER aX...**,-u***********SET UP ADOR oF. USERS ERROR ** ROUTINE ******** !}}}t##}#******31 ********* ** SET UP EXIT ** ADDRESS*******************•**K1*********** INCREMENT I/0 **COUNTER, -sforT,.BY 1****************.x*****,,.•. X 53 *. 54 5. GS.. *.* * .* POWER *. .* *.* FETCH SECTOR .5 UNSAFE OR 5. YES NO .* LOOPEC P. YES .5 SEEK •P.• ADDRESS 5. WRITE ...... ...*. 3 TIMES .5* *5. SELECT .7 *. .5 *'*.REQUESTED.** * *. .. *. .5******** * ***** ** X X* NO * YES *•** • NO*0/45 * ** 87* KS * 5 * ** * * *H1 P. H4 5... D1S- S. .5 .5 5..* PLACEMENT H. NO .. DTSK P. NO .5 SCTR P. YESA. OPTION .5... 5. READY .*.... P. min TOO .5....*.S P ECIFIED.* 5. P. LARGE .5*. .. 5. •ix% x*SET UP IOCC TO ** READ ST WORD •* OF 1ST SECTOR •YES • YES ***** ***NO ******013♦50135:* 04** BE** * * **X .*.*****J,********•* J1 5. J4 5.* ADD FILE * .5 LEGAL *.*. •01220 01484•*PROTECT ArmilEss* .. I/0 S. NO .5 .5 SCTR 5. NO * TO SECETORnDR sS * *. FUNCTION .*.... 5. ADDS LOP .••....* INITIATE ** AS. CODE .*.5P. REPAO ...*READ-AFTER-SEEK** *•.S. .*** ***** ********** S. . % P. .* X :* ****** *.******:* YES • * it * * * YES *****011* * • ****x . * F4* . 85 *. * .1,. * * * K5 5.x.**** * * .; ; *55* i.....K7*•******** KI *. K4 *. •:****K5 ***** ****:*.5 •.. S.* DRIVE . .*' REQUESTED S. NO .. REQUESTED S. YES * UPDATE SCYLN *REMOVE* CODE * P. FUNCTION . P. FUNCTION .•.... * WITH CYLINDER *SEEK .* 5. WRITE .5 * ADDRESS •* . .. p. .p.*S. .* ********* ***** ****• YES ***** * NO*013* *013* : ***** Ai* * E4• . * *; ; * * % 5 * ..X* B5 **** **** **** r * ** * * * * **•■. Al * * A4 * 95 *. . * r •..•. **** ***aFlowchart F1025. System Library, DISK1• 306.12
.ET '90£ ' 21-8 49M°I.4 •tuolsAS 'WOE 3305PMOId***• ***** Ea * * I* Za * • *00* ****0 0. •:***************: :***************:V30,2:N3303-04-0 030: 0/1 0101 10003** 13001500J * * OSOM 3001S s:*********2m****: ********* *Ix*****X* * **10 ** 10*'41'2t2PS3A •2' .**•r • x3303 '**• -0000 '0ON •* -0032 N11M*•** 31100 *•or•* • • UBEIO• 30 31333 •OdOM 03133 ********1r****:********* ***** *** *****************4001 00303 *30110•3403/fd 0113055300309 00 33541 .* 01 HONVOU *440111500 000 ONV iNno*SONOM 9N1N1VN39**--1030003 00313 ObON M N 3005 * 230000 3104003*• Z15cli/1304$ ** ** ******* ****40 ***** ******* ***20***** * ********* 10*****X 4911053A 2,531****4* .*• * NOIS031X3 *,•031SnvHx3•**• 5533000*0 * •••• x* O. 0000 00133S*X-*• 10003 0000 •*•• '"*. 01 00133S •** * 3003 30100 *•*, 31,01030 *. ON ON ** 1501 ******-531NA*.***** *****49*****.* 29**.*.1.9011100101u****A •***' * * * X . * 00 **LIU*• ***♦********** *********** ***************** ***** **** ****** *0* 300 Al 0000 * 04Emoirinwnoav 1103V 00 **alas 101103003S*AU 1000J OVUM * oi 1005 * * basn or N00130** 1030 11130363Ni*3/V1030931Ni *********ta***** 1N3W30330 ***********1d*****0 •* *(2:110**2:110• ' * * • * * * '5** 43 *'V* £3 **00 *:• *E10*11,Ii:gn: ON *********:****:::: ************* ***r *.*I.• 1101'5.** 34 AS 1,0111113101 :•.' "..*** 0011000 V .2, .01301$ 0310003*000162335LIV30:*0333110 30 SUOUM*310003 S3A .2, 5101. SI *. r 0/1 10aWan330 * 31 31031001 * ♦ 001 1001A 300S** *•* r. s *** 43 ******** **3********♦******23*****00016 x!** *V3 *• •*010**43 *ON * ******010*•***** * ** AS001 *X* 0010310N1 *x.•Au 'O N 300 *' •* "4001335 * 5*. *. NO •*•••'♦ SO M44 /3S :* AS0$1 102313 *3101 /N3030301*•* A0313 *. S3A• 4* ****** * * '4, *•******** **E0**** **********20***** •* 10*5 • 00110x 00010* *X****! ** 4• *0q **010* **** ********* **** ** ********** ****** ***** • * *1%3* * 3301 031530035* •000013 an 135 ** k 130d$ SS3SO 31011101* 5535009 00133S** * 01 11%3 130 * * * 1030 dn /OS *10410 00110* **411410 50210* ** ****** ***V3***************23***** ***•******13*****xXx X**** ** ** *3 *40 *a **010*ON * ******** 03A **. .2, 00' • *•*• ••*. 1103 '4, ' * * * ' *• 00110N113.**" V 901310035 **"'• solvinwnaa y • 3301 ls30030* ..*. 31,21113WW1 .*.* .1, SaA * 01 0005 * Sad5n oa In l3S ON .* 3111Im *.•* ** SS ** • * * . ****** *****40*****Id *.•2.01110 0 0001•0*••* 0•* * * * 43 * •• * * * * **GU **00 **010*:n10:*000************** : 4.:'*"* **** S 3A'*0•*X 0' 03103303** 0340 0/1 0101 * *,' '**. 03303 -0300 . 0, SSidOOV 001335* ""*" 112031 10003 .2,ON "10 -003$ *' 153N 3001S ON •* 0000 *•'* *• * *•* 4.•2, EV **** ****** 02***** •0, Iv0040100 0• • ••*** ♦*** ** 4EV 20 *Tv ** * * * ■sio*•**• **** ***•*
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 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 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 402 and 403: ADDR REL OBJECT ST.NO. LABEL OPCD F
Page 404 and 405: AMA REL OBJECT ST.NO. LABEL OPCD FT
Page 406 and 407:
ADDR REL OBJECT ST.NO. LABEL OPCD F
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

Create successful ePaper yourself

Delete template?

Save as template?