Program Logic Manual - All about the IBM 1130 Computing System

ADDR REL OBJECT ST.NO. LABEL OPCD FT OPERANDS IC/SEONO0159 0 1810 0735 07240 SRA 16 pMN073000I54 0 1084 0736 SLT 4 DRIVE CODE IN BITS 12-15 PmN073100155 n 000E 0737 STO n7280+1 PMN073200150 0 80E0 0738 A 07965 COMPUTE AND STORE THE PIN073300150 0 DOIC 0719 STO D7110+1 *ADDR OF THE AREA CODE PMN07340115E 0 800F 0740 A DZ970 COMPUTE AND STORE THE PMN07350015F n 0031 0741 STO 0Z350+1 *ADDR OF THE ARM POSITION PMN071600160 0 8008 0742 A D7960 ADO IN BASE DT ADDR pmN073700161 0 8008 0743 A 07280+1 ADD IN THE DRIVE pMN073800162 0 8007 0744 A 07280+1 *CODE TWICE MORE PMN073900163 0 D006 0745 STO 07280+1 PMN074000164 0 62F0 0746 LOX 2 —3 INITIALIZE COUNTER FOR LOOP PMN074100165 0 6902 0747 STx 1 0Z906 PMN074200166 0 C101 0748 LO 1 1 FETCH OESIRED SECTOR ADDR PMN074300167 0 EODO 0749 AND 07940 'AND' OUT SECTOR NO. PMN074400168 0 0101 0750 07250 STO 1 1 *AND DRIVE CODE PMN074500169 00 94000000 0751 07280 S L *—* SUB DEFECTIVE CYLINDER ADDR PMN074600168 0 4828 0752 8SC 7+ SKIP IF BAD CYLINDER PmN074700160 0 7007 0753 MDX 07300 BR 10 CONTINUE PROCESSING PMN074800160 0 C101 0754 LO I 1 PMN07490016F 0 8007 0755 A 02930 INCREMENT SCTR ADDR BY 8 pmN07500016F 00 74010164 0756 MDX L 01280+1.1 POINT TO NEXT DEFECTIVE CYL PMN075100171 0 7201 0757 MDX 2 1 SKIP AFTER 3RD PASS PMN075200172 0 70F5 0758 MDX 07250 COMPARE w/ NEXT DEF CYL ADR Pmt375300173 0 0101 075 9 STO 1 1 SCTR ADDR WITH 3 DEF CYL2-4 PMN075350760 PMN075400761 * CONSTRUC THE 2ND WORD OF ALL IOCC . S PMN075500762 * PMN075600174 00 660000F2 0763 02300 LOX 12 07000 ADDR OF 07000 TO XR2 PMN075700176 0 C730 0764 Lo 2 07913— x2 FETCH SECTOR ADDRESS pMN075800177 0 E249 0765 AND 2 02955—x2 'AND' OUT ALL BUT SECTOR NO PMN075900178 0 D250 0766 STO 2 0Z990—X2 SAVE SECTOR NO. pMN076000179 00 04100000 0767 0Z131) L *—* FETCH AREA CODE PMN076100179 0 EA4F 0768 OR 2 01980-12 'OR' IN SEEK FUNCTION CODE PMN076200170 n 0714 0769 STO 2 07910 — X2 SEEK TOCC MINUS DIRECTION PMN076300170 0 FA41 0770 0R 2 07925—X2 'OR' IN READ FUNCTION CODE PM007640017F 0 D239 n771 STD 2 07909— x2 TOCC FOR READ— AFTER — SEEK EMN07650017F 0 EA50 0772 OR 2 D7990—X2 'OR' IN SECTOR NO. PMN076600180 0 9247 0773 2 07945—x2 COMPLETE READ/WRITE CODE pMN076700181 0 0237 0774 STO 2 01907—X2 2ND WD OF READ/WRITE IOCC PmN076800117 0 E442 0775 OR 2 01920—x? 'OR' IN READ CHECK BIT PMN076900183 0 8747 0776 A 2 07945— X2 pMN077000184 0 0240 0777 STO 2 0Z975—X2 2ND WD OF READ CHECK IOCC PMN077100185 0 8448 0778 OR 2 07951—x2 'OR' IN SENSE IOCC BITS PMN077200186 0 0238 0779 STO 2 07911—X2 COMPLETED SENSE IOCC PMN077300137 0 CA3C 0780 LOD 7 DZ91?— x7 1+SCTR ADDR TO EXTENSION PMN077400188 0 0418 0781 D1340 x10 2 07910—x2 SENSE FOR DISK READY pMN077500189 0 07E8 0782 STO 2 cDDSW—X2 SAVE THE DSW PMN07760018A 0 4828 0783 BSC 7+ SKIP UNLESS POWER UNSAFE OR PMN077700188 D 7000 0784 MDX 02215 *WRITE SELECT, RR OTHERWISE PMN077800180 0 100? 0785 SLA 2 BR TO PREOPERATIVE ERR TRAP PMN077900I80 0 41128 0786 BSC 2+ *IF DISK NOT READY, SKIP PMN07800018F 0 708E 0787 MDX 07220 *OTHERWISE pMN078100788 * STATEMENTS REMOVED 2-1 PMN07820018F 0 0101 0789 LO 1 I FETCH DESIRED CYLINDER ADDR PMNO7R300190 00 94000000 0790 D7350 5 L *—* SUBTRACT ARM POSITION PMN0784001970193004818701807910792BSCMDX+-0Z400SKIP IF SEEK NECESSARYRANCH TO PERFORM OPERATIONPMN07850pMN078600793 PMN078700794 * SEEK PmN078800795 PMN078900194 0 1893 0796 SRT 19 PUT NO. CYLINDERS IN EXT PMN079000195 0 I800 0797 sRA 15 + OR — SIGN TO BIT 15 pMN079100196 0 1002 0798 SLA 2 SHIFT SIGN TO BIT 13 pMN079200197 1 E434 0799 OR 2 01910—x2 IN REMAINDER Of IOCC PMN079300198 0 1800 0800 RTF 16 pmN079400199 0 4810 0801 8SC SKIP IF SEEK TOWARD HOME PMN07950019A 0 7002 0802 MDX 07380 BRANCH 1E SEEK TOWARD CENTR PMN079600198 0 F25I 0803 FOR 7 DZ995—X7 COMPLEMENT NO. CYLS TO BE PMN079700190 0 8230 0804 A 2 07900— x2 *SOUGHT TO GET POSITIVE NO. PMN079800190 0 0434 0805 07380 STD 2 07904-12 PmN079900198 0 07E8 0806 In 2 SODSw—x2 FETCH THE DSW 2-1 PMN08000019F 0 1000 0807 SLA 13 2-1 PMN080100140 0 4810 0808 8SC 2-1 PMN080200181 0 7001 0809 MDX 0Z390 2-1 PMN080100182 0 0101 0810 02385 LD 1 1 FETCH SECTOR ADDR 2-1 pMN080400143 0 1803 0811 SRA CONVERT TO CYLINDER ADDR2-1 PMN080500144 0 0234 0817 STO 2 D7904—X2 *AND STORE IN IOCC 2-1 pMN080600145 0 4213 0813 07390 BSI 2 02070-1—x2 START SEEK 2-1 PMN08070332