Previous File Previous Page Single Page Next Page Next File

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

2625 * 2626 * HEX : HEX PSEUDO-OP PROCESSOR 2627 * 2628 * 2629 03507 141206 HEX AOA A = 1 FOR HEX CONVERSION 2630 * FALL THROUGH TO OCT PROCESSOR 2631 * 2632 * 2633 * OCT : 0CT PSEUDO-OP PROCESSOR 2634 * 2635 * 2636 03510 0 04 00466 OCT STA DEOT SET CONVERSION SWITCH 2637 03511 140040 CRA 2638 03512 0 04 00500 STA DBNM SET WORD COUNT TO ZERO 2639 03513 -0 10 00547 JST* DLC DEFINE SYMBOL IN LOCATION FIELD 2640 03514 0 02 00530 LDA DBIP ESTABLISH LIST POINTER 2641 03515 0 04 00501 STA DBPT 2642 03516 0 10 02224 JST VAR EVALUATE FIRST FIELD 2643 03517 0 02 00460 OCTT LDA ALFA TEST FOR NUMERIC 2644 03520 101040 SNZ SKIP IF IT IS 2645 03521 -0 10 00557 JST* CER FLAG CONVERSION ERROR 2646 03522 0 02 00423 LDA SUM GET HIGH ORDER PART OF VALUE 2647 03523 -0 04 00501 STA* DBPT PLACE IT IN LIST 2648 03524 0 02 00422 LDA DBFL FETCH DOUBLE PRECISION FLAG 2649 03525 100040 SZE SKIP IF NOT SET 2650 03526 0 01 03546 JMP OC2P GO OUTPUT SECOND WORD 2651 03527 0 02 00442 LDA WCNT FETCH WORD COUNT OF VALUE 2652 03530 0 07 00700 SUB ONE TEST FOR MULTIPLE PRECISION 2653 03531 100040 SZE SKIP IF NOT 2654 03532 0 01 03543 JMP OC2W GO OUTPUT SECOND WORD 2655 03533 0 02 00444 OCTR LDA TERM FETCH TERMINATING CHARACTER 2656 03534 0 05 00635 ERA C240 TEST FOR BLANK 2657 03535 101040 SNZ SKIP IF NOT 2658 03536 0 01 03561 JMP OCTD BLANK - SCAN COMPLETED 2659 03537 0 12 00501 IRS DBPT INCREMENT LIST POINTER 2660 03540 0 12 00500 IRS DBNM INCREMENT WORD COUNT 2661 03541 -0 10 00613 JST* VARF EVALUATE NEXT FIELD 2662 03542 0 01 03517 JMP OCTT GO MOVE VALUE TO LIST 2663 03543 0 07 00700 OC2W SUB ONE TEST FOR 3 WORD VALUE 2664 03544 100040 SZE SKIP IF NOT 2665 03545 0 01 03553 JMP OC3W GO PROCESS THREE WORD VALUE 2666 03546 0 02 00446 OC2P LDA NUM+1 FETCH SECOND WORD OF VALUE 2667 03547 0 12 00501 IRS DBPT INCREMENT LIST POINTER 2668 03550 0 12 00500 IRS DBNM INCREMENT WORD COUNT 2669 03551 -0 04 00501 STA* DBPT INSERT VALUE IN LIST 2670 03552 0 01 03533 JMP OCTR GO PROCESS NEXT FIELD 2671 03553 0 02 00446 OC3W LDA NUM+1 FETCH SECOND WORD OF VALUE 2672 03554 0 12 00501 IRS DBPT INCREMENT LIST POINTER 2673 03555 0 12 00500 IRS DBNM INCREMENT WORD COUNT 2674 03556 -0 04 00501 STA* DBPT INSERT VALUE IN LIST
Previous File Previous Page Single Page Next Page Next File