Program Logic Manual - All about the IBM 1130 Computing System

More documents

Recommendations

Info

WRTYOUsed by: Assembler Language programs and RPG generated programsSubroutines required: ILSO4Linkage: LIBF WRTYO (BSI 3 TV DISP)DC ARG1DC ARG2]Preoperative input parameters:Function ARG1 ARG2 I/O Area AddressTest/0000Return to this word ifoperation is not completePrint/2000I/O Area AddressWord CountPostoperative conditions and entry points:FunctionSymbolicentry pointReturnaddress atInterruptentry pointReturnaddress atInterruptlevelTest WRTYO WR36+1Print WRTYO WR36+1 INT1 INT1 4Register status:ACC EXT XR1 XR2 XR3 StatusMainlineSaved at/restored fromsymbolic locationSAVA WR30+1 WR32+1 WR34Used X X X XSignificant variables:Symbolic locationCOUNTIOARTEMPIPRINTPRINT+1RIGHTTEMPContents/UseDynamic word counter; number of words remaining to be printed.Pointer to data area, address of last word used.Character to be printed, high order 8 bits was last character printed.First word of IOCC to print character out of TEMPI.Second word of IOCC to print character out of TEMPI.Switch indicating which character in TEMPI will be used next:/0000 = Right character./0001 = Go get next word from date area and use left character.Right half of Sense-with-reset IOCC.176
DISK1Used by: Monitor system programs, Assembler Language programsSubroutines required: ILSO2Linkage:* for monitor system programsLDD LISTBSI L D0000LIST DC FUNCTION CODEDC I/0 AREA ADDRESSfor Assembler Language programsLIBF DISK1 (BSI 3 TV DISP)DC ARG1DC ARG2DC ARG3DC ARG4*This subroutine may be entered by user-written Assembler Language programs via the LIBF TV or bymonitor system programs via a direct branch. If a direct branch is used, DISK1 uses the parameters containedin the ACC and EXT to construct the parameters of a LIBF and simulates a LIBF entry by calling on itself.Preoperative input parameters (for LIBF entry) t :Function ARG1 ARG2 ARG3 ARG4 I/O Area AddressTest /0000 Not used Return to thisword if busyReturn to thisword if not busyNot usedRead /1000 Address of the Address of user Return to this Word 1 = wordI/O Area error routine word after countinitiating Word 2 = drive codeoperation and sectoraddressWrite /2000 Address of the Address of user Return to this Word 1 = wordW/ORBCI/O Area error routine word afterinitiatingoperationcountWord 2 = drivecode andsectoraddressWrite /3000 Address of the Address of user Return to this Word 1 = word countWithRBCI/O Area error routine word afterinitiatingoperationWord 2 = drivecode and sectoraddressWrite /4000 Address of the Address of user Return to this Word 1 = not usedImmediate I/O Area error routine word after initiatingoperation code and sectorWord 2 = driveaddressSeek /500x Address of the Address of user Return to this Word 1 = not usedx = seek option I/O Area error routine word after initingoperation code and sectorWord 2 = drivedisplacementaddresspplies to simulated LIBF.Program Analysis Procedures 177
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 173 and 174: TYPE ZFlowchart: F1012Used by: SFIO
Page 175 and 176: PRNZFlowchart: FI010Used by: SFIOSu
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: Register status:ACC EXT XR1 XR2 XR3
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 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

Create successful ePaper yourself

Delete template?

Save as template?