Program Logic Manual - All about the IBM 1130 Computing System

ADDR RFL OBJECT ST.NO. LABEL OPCD FT OPERANDS ID/SEQNO004B 0 0000 03 29 $S750 DC *—* ENTRY POINT PMNO3254004C 0 C0E5 0330 $S300 LD SIOCT IS THERE INTRPT PNDNG PMNO32550040 0 E8C1 0331 OR $SCAT *OR SCA INTRPT PNDNG PMNO3256004E 00 4C20004C 0332 BSC L $5100,2 *THEN BR, IF ALL INTRPT PMNO32570050 00 4C800046 03330335RSC I $5250 *IS SERVICED—RETURN pmN0175RPMNO32700336 *** FETCH CORE IMAGE LOADER, PHASE 1 PMNO32800337 PMNO32900052 0 COEB 0338 $5000 ID $5910 PMNO33000053 0 D0C2 0339 $5100 STD SRMSW SAVE EXIT — LINK — DUMP SWITCH PMNO33100054 00 65900039 0340 LOX 11 SLINK LINK AMR TO XR1 PMNO33500056 0 C101 0341 LD 1 1 FETCH 2ND WD OF LINK NAME PMN013600057 0 1800 0342 RTE 16 PMNO33700058 4) 0100 0343 LD 1 0 FETCH 1ST ND OF LINK NAME PMNO33800344 * $5150.1 CONTAINS ADDR LAST WD OF DISK I/0 MINUS 3 PMNO34000059 00 65000000 0345 $S150 LOX LI *—* ADDR END OF OKI/0-1 TO XR1 PMNO34100058 0 0888 0346 STD SLKNM SAVE LINK NAME PMNO3415005C 0 40EE 0347 BSI $S250 CHK ANY PNONG INTRPT 2-4 PMNO34170050 0 COFC 0348 LO SCILA PMNO3470005E 0 1890 0349 $5200 SRT 16 PMNO3430005F 00 44000012 0350 BSI L DZ000 FETCH CI LOADER, PHASE 1 PMNO34400061 0 40E9 0351 BSI $S250 CHK DISK OP FINISHED 2-4 PMNO34600062 0 4102 0352 BSI 1 2 BR TO CI LOADER, PHASE 1 PMNO34700353 PMNO34800063 0 0000 0354 SGCOM DC *—* GRAPHIC SUBR PACKAGE INDR 2G2 PMNO34900064 0 0000 0155 $GR1N DC *—* GRAPHIC INITIZN PROGRAM INDR 2G2 PMNO35000356 262 PMNO35100065 0003 0357 855 3 RESERVED FOR 2250 202 PMNO35200068 0009 0358 BSS 9 PATCH AREA PMNO35300359 PMNO35400071 n 0000 03 60 SEISM OC *—* FLUSH—TO— NEXT —JOB SWITCH 1/FLUSH pMNO35500072 0000 0361 BSS E 0 PMNO35600072 0 0000 0362 SCWCT DC *—* WORD COUNT AND SECTOR ADDRESS PMNO35700073 0 0000 0363 DC *—* *FOR SAVING/RESTORING COMMON PMN015800074 0 0000 0364 SCCAD DC *—* ADDR FOR SAVING/RESTORING COMMON PMNO35900075 0 0000 0365 usto DC *—* SCTR ADOR OF 1ST LOCAL/SOCAL PMNO36000076 0 0000 0366 $DZ1N DC *—* DISKZ/1/N INDICATOR ( - 1,0,51) PMN016100077 0 0000 03 67 $DCOE DC *—* LOGICAL DRIVE CODE FOR PROGRAM PMNO36200078 0 0000 0368 SPHSE DC *—* NO. OF PHASE NOW IN CORE PMNO36300079 0 0000 0369 SUFIO DC *—* UNFORMATTED I/O RECORD NO. PMN01640007A 0 0000 0370 $WSOR DC 4,-4, WORKING STORAGE DRIVE CODE PmNO36500078 0 0000 0371 $WRD1 DC 4,-4, LOADING ADOR OF THE CORE LOAD PmNO3660007C 0 0000 0172 $KCSW DC 4,-4, 1 IF KB,CP BOTH UTILIZED PmNO36700070 0 0000 0373 $UFDR DC '0—* UNFORMATTED I/O DRIVE CODE PMNO3680007E 0 0000 0374 $CPTR DC S—*, CHANNEL 12 INDICATOR FOR CP PMNO3690007F 0 0000 0175 $1132 DC *—* CHANNEL 12 INDICATOR FOR 1112 pMN017000080 0 0000 0376 $1403 DC *—* CHANNEL 12 INDICATOR FOR 1403 PMN017100378 * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 1 pMNO37300379 * PmN017400081 0 0000 0380 $PST1 DC *—* ENTRY POINT PMNO37500082 0 3000 0381 WAIT pmN017600083 on 40800081 0382 BSC I $PST1 RETURN TO DEVICE SUBROUTINE PMNO37700383 * pmNO37800384 * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 2 pmNO37900385 * PmNO38000085 0 0000 0186 $PST2 DC *—* ENTRY POINT pMNO38100086 0 3000 0387 WAIT PMNO38200087 no 40800085 0388 BSC I SPST2 RETURN TO DEVICE SUBROUTINE PmNO38300389 * PMNO38400390 * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 3 PMNO38500391 PMNO38600089 0 0000 019? $PST3 DC *—* ENTRY POINT PMNO3870008A 0 1000 0393 WAIT PMNO38800088 no 40800089 0194 RSC I SPST3 RETURN TO DEVICE SUBROUTINE PMNO38900395 PMNO39000396 * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 4 PMNO39100397 PMNO39200080 0 0000 0398 $PST4 OC *—* ENTRY POINT PMNO39300081 0 3000 0399 WAIT PMNO39400081 00 40800080 0400 BSC I $PST4 RETURN TO DEVICE SUBROUTINE PMNO39500401 * PMNO39600402 PMNO39700403 * PROGRAM STOP KEY TRAP PMNO39800404 PMNO39900091 0 0000 0405 $STOP OC ENTRY POINT PMN040000092 0 3000 0406 WAIT WAIT T/L START KEY PUSHED PMN040100093 00 40000091 0407 ROSC I $STOP RETURN TO CALLER PMN04020Appendix B. Listings 327