Previous File Previous Page Single Page Next Page Next File

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 40

1401 02073 0 01 02175 JMP MRO PROCESS FORWARD REFERENCE 1402 02074 0 02 00423 LDA SUM FETCH ADDRESS 1403 02075 0404 76 LGR 2 POSITION TO PRINT FIRST DIGIT 1404 02076 -0 10 00600 JST* OPTD PRINT FIRST DIGIT 1405 02077 000423 VFD 8,1,8,19 ONE DIGIT IN COLUMN 20 1406 02100 0 02 00423 LDA SUM FETCH THE ADDRESS 1407 02101 0414 77 LGL 1 POSITION TO PRINT LAST FIVE DIGITS 1408 02102 -0 10 00600 JST* OPTD PRINT LAST FIVE DIGITS 1409 02103 002424 VFD 8,5,8,20 FIVE DIGITS STARTING IN COLUMN 21 1410 02104 0 02 00417 LDA RBIT FETCH RELOCATION OF ADDRESS 1411 02105 0 03 00743 ANA C3 MASK TO TWO BITS 1412 02106 0416 65 ALR 11 SHIFT T0 OPCODE FIELD 1413 02107 0 06 00437 ADD WORD PUT IN REST OF WORD 1414 02110 0 04 00437 STA WORD SAVE THE RESULT 1415 02111 0 01 02142 JMP MR5 CONTINUE PROCESSING 1416 02112 0 02 00437 MR1 LDA WORD FETCH INSTRUCTION WORD 1417 02113 140100 SSP REMOVE INDIRECT BIT 1418 02114 -0 10 00600 JST* OPTD PRINT THE OPCODE 1419 02115 001023 VFD 8,2,8,19 TWO DIGITS STARTING IN COLUMN 20 1420 02116 0 02 00420 LDA E FETCH FORWARD REFERENCE FLAG 1421 02117 100040 SZE SKIP IF NOT SET 1422 02120 0 01 02175 JMP MRO GO PROCESS FORWARD REFERENCE 1423 02121 0 02 00423 LDA SUM FETCH ADDRESS 1424 02122 140100 SSP TRUNCATE TO 15 BITS 1425 02123 0 04 00423 STA SUM REPLACE THE ADDRESS 1426 02124 0415 77 ALS 1 POSITION ADDRESS FOR PRINTING 1427 02125 -0 10 00600 JST* OPTD PRINT THE ADDRESS 1428 02126 002426 VFD 8,5,8,22 FIVE DIGITS STARTING IN COLUMN 23 1429 02127 0 02 00407 LDA LODF FETCH LOAD FLAG 1430 02130 101040 SNZ SKIP IF SET 1431 02131 0 01 02142 JMP MR5 NOT SET - DO NOT CHECK CROSS SECTOR REF. 1432 02132 0 02 00423 LDA SUM FETCH ADDRESS OF INSTRUCTION 1433 02133 0 03 00625 ANA C7X ISOLATE SECTOR NUMBER 1434 02134 101040 SNZ SKIP IF NOT SECTOR REFERENCE 1435 02135 0 01 02142 JMP MR5 SECTOR ZERO REFERENCE IS ALWAYS OK 1436 02136 0 05 00405 ERA CLOC MERGE WITH CURRENT ADDRESS 1437 02137 0 03 00625 ANA C7X ISOLATE SECTOR BITS 1438 02140 100040 SZE SKIP IF CURRENT SECTOR REFERENCE 1439 02141 -0 10 00564 JST* SER CROSS SECTOR REFERENCE - FLAG 'S' ERROR 1440 02142 0 02 00423 MR5 LDA SUM FETCH ADDRESS 1441 02143 0400 73 LRL 5 PUT LOW ORDER 5 BITS IN B REGISTER 1442 02144 0 06 00437 ADD WORD ADD IN OP-CODE 1443 02145 0 06 00427 ADD TAG ADD IN TAG 1444 02146 0 04 00437 STA WORD SAVE RESULT IN WORD 1445 02147 000201 IAB PUT LOW ORDER ADDRESS BITS IN A(1)-A(5) 1446 02150 0 03 00623 ANA B174 ELIMINATE ANY OTHER BITS 1447 02151 0 06 00440 ADD W2 INSERT LOW HALF 1448 02152 0 04 00440 STA W2 SAVE THE RESULT 1449 02153 0 02 00427 LDA TAG FETCH TAG 1450 02154 0406 77 ARR 1 POSITION IT FOR PRINTING
Previous File Previous Page Single Page Next Page Next File