Program Logic Manual - All about the IBM 1130 Computing System

COLD START PROGRAMADDR REL CPRJECT ST.NO. LABEL OPCO FT OPERANDS ID/SUNO1019 ***** * ****** ************************* ********* ***** pmN101201020 * PMN101301021 *STATUS - VERSION 2, monifICATION LEVEL 5. * pMN101401022 * pmN101501021 *FUNCTION/OPERATION - * PMN101601024 * THIS PROGRAM IS READ INTO CORE FROM SECTOR 0 * PmE)101701025 * OF THE SYSTEM CARTRIDGE AND TRANSFERRED TO BY * pMN101801026 * THE COLD START CARD. DEFECTIVE CYLINDER * PMN101901027 * ADDRESSES, CARTRIDGE ID AND DISK? ARE ALSO ON * pmN102001028 * SECTOR 0 AND ARE READ IN AT THE SAME TIME. * pMN102101029 * ALL THAT REMAINS FOR THE COLD START PROGRAM IS* PMN102201030 * TO READ IN THE RESIDENT IMAGE, SAVE THE * PMN102301031 * CARTRIDGE ID AND TRANSFER TO THE AUXILIARY * PMN102401032 * SUPERVISOR THROUGH SOUMP IN THE RESIDENT * pmN102501033 * MONITOR. * PMN102601034 • pMNIO2701035 *ENTRY - CR010-2 * pmN102801036 * ENTER PROGRAM BY TRANSFER FROM COLD START CARD* PMN102901037 * pMN103001038 *INPUT - * pMN103101039 * THE CARTRIDGE ID OF LOGICAL DRIVE ZERO (THE * PMN103201040 * SYSTEM CARTRIDGE) IS READ IN FROM SECTOR 0 * PMNI03301041 * WITH THE COLD START PROGRAM. * pmNI01401042 * pmN103501043 *OUTPUT - * pmNI03601044 * * THE RESIDENT IMAGE IS READ INTO CORE FROM * PMN103701045 THE DISK. * PMN103801046 * * IN COMMA- * PMN103901047 SACDE * pmN104001048 sCIBA-I * pmN104101049 SCION * pMN104201050 SCYLN * pMN104301051 SOBSY * pMN104401052 SIOCT * PMN10450L053* PMN104601054 *EXTERNAL REFERENCES - * pmN104701055 * OZ000 SUBROUTINE TO PERFORM DISK I/0. * pmNI04801056 * pmNI04901057 *EXITS - * pMN105001058 * THE ONLY EXIT IS TO THE AUXILIARY SUPERVISOR * PMN105101059 * AS FOLLOWS- * pmNI05201060 BSI SouMP * pms1105301061 DC -1 * PmNI05401062 * * pmN105501063 *TABLES/WORK AREAS - N/A * pmNI05601064 * pMN105701065 *ATTRIBUTES - * pMN105801066 * THIS PROGRAM IS NOT NATURALLY RELOCATABLE. * PmN105901067 * * PmN106001068 *NOTES - * pmN106101069 * DISK ERRORS RESULT IN A WAIT AT S p ST2. * PmN106201070 *** **** *****•**** ********* *********** ************ ** pmN106301072 PMN106501073 * READ THE RESIDENT IMAGE INTO CORE PmN106601074 PMN1067001E0 0 6I7F 1075 LOX 1 Y PMN1068001E1 0 087E 1076 Lon CR920 SET UP WORD COUNT AND SCTR PMNI069001E2 00 00000004 1077 CR010 STD L scIBA-1 *ADDR OE RESIDENT IMAGE PmN1070001E4 0 0125 107s STO 1 SOCYL- y *INITIALIZE DEF CYL NO. 1 PMNI071001E5 0 0184 1079 Lo 1 3-y FETCH LOG DRIVE 0 AREA CODE PMN1.072001F6 0 0120 1080 STO 1 SACDE-Y *AND STORE IT IN COMMA pmN1073001E7 0 0029 1081 sTO CR920+1 SAVE THE AREA CODE PmN1074001E9 0 0156 1082 LD I 02000-2-27-Y FETCH AND SAVE THE PmNI075001E 9 0 DOE1 1083 STO SCION *CARTRIDGE ID pmN10760(ILEA 0 COER 1084 LO CR010+1 FETCH CORE ADDR OF RESIDENT PMN1077001E9 0 1890 1085 SRT 16 *IMAGE AND PUT IN EXTENSION PMN1078001 EC 0 016E 1086 STO 1 soBSY-Y CLEAR DISK BUSY INDICATOR PmN10790DIED 0 0118 1087 STO 1 SCYLN-Y INITIALIZE ARM POSITION pMN10800OlEE 0 4173 1088 BSI 1 01000- y FETCH RESIDENT IMAGE PMN10810OIEF 0 1000 1089 WAIT WAIT Our THE INTERRUPT pmN108201090 PmNi09101091 * INITIALIZE ITEMS IN COMMA pmp4108401092 pmN1085001E0 0 1810 1093 SRA 16 PmN1086001E1 0 0193 1094 STO 1 slOCT-Y CLEAR IOCS COUNTER PmNI087001E2 0 C81B 1095 Lon CR910 pmNI088001E1 0 0985 1096 STD 1 SCIBA-I-Y *FOR SAVING CORE ON THE CIB PMN1089001F4 0 COIC 1097 LO CR920+1 FETCH AREA CODE PMNI090001E5 0 01 20 1098 STo 1 SACDE-Y RESET AREA CODE PmN1091001F6 0 C016 1099 LO CR905 INITIALIZE WO ZERO TO BR TO PMN1092001E7 0 0181 1100 STO 1 0-Y *DUMP ENTRY POINT PLUS 1 Pms1109301101 PMN109401102 * TRANSFER TO THE AUXILIARY SUPERVISOR pMN10950336