C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 116

5587 11723 101040 SNZ 5588 11724 0 01 11700 JMP C4L2 NO MORE ITEMS IN COMMON BLOCK 5589 11725 0 02 00633 LDA D0 ELSE, IF TO .LT. DO+AF, 5590 11726 0 06 00630 ADD AF 5591 11727 0 11 11612 CAS C4T0 T0 = D0 + AF 5592 11730 0 04 11612 STA C4T0 5593 11731 101000 NOP 5594 11732 0 01 11722 JMP C4L GO TO C4L 5595 11733 0 02 00630 C4M LDA AF 5596 11734 0 04 00664 STA F I=AF 5597 11735 0 02 11612 LDA C4T0 (A) = T0 5598 11736 0 10 04041 JST DA00 DEFINE AF 5599 *....OUTPUT COMMON BLOCK NAME AND SIZE TO LOADER 5600 11737 0 02 00630 LDA AF LENGTH OF COMMON BLOCK 5601 11740 0 03 00730 ANA K111 ='37777 5602 11741 0 06 00740 ADD K122 ='40000 (S/C CODE = 1) 5603 11742 0 10 14312 JST ON00 OUTPUT NAME BLOCK TO LOADER 5604 11743 0 02 00664 LDA F 5605 11744 0 07 00056 SUB CFL IF I = CFL 5606 11745 101040 SNZ 5607 11746 0 01 11614 JMP C4B 5608 11747 0 02 00664 LDA F 5609 11750 0 01 11717 JMP C4L6 5610 * 5611 11751 0 000000 SAF DAC ** 5612 11752 0 02 00630 LDA AF 5613 11753 0414 76 LGL 2 5614 11754 0405 76 ARS 2 5615 11755 0 04 00630 STA AF 5616 11756 -0 01 11751 JMP* SAF 5617 * 5618 * ************************** 5619 * *DATA STATEMENT PROCESSOR* 5620 * ************************** 5621 * PROCESS VARIABLE LIST .THEN OUTPUT LITERAL ITEMS 5622 * TO APPROPRIATE LOCATIONS. MODES MUST AGREE 5623 11757 0 00 00000 T0W4 PZE 0 5624 11760 0 00 00000 T1W4 PZE 0 5625 11761 0 00 00000 G PZE 0 LOWEST INDEX POINT IN LIST 5626 11762 0 02 00113 W4 LDA L0 5627 11763 0 04 00041 STA I I=END OF DATA POOL 5628 11764 0 10 10761 W4B JST IL00 INPUT LIST ELEMENT 5629 11765 0 02 00631 LDA AT D (0) = =WDS/ITEM 5630 11766 0 07 00720 SUB K102 5631 11767 101040 SNZ IF AT = 'STR-ABS' 5632 11770 0 01 12270 JMP W4T GO TO 5633 11771 0 02 00041 LDA I 5634 11772 0 04 00000 STA 0 5635 11773 0 02 00604 LDA S1 S1 * DEFLECTION IF AN ARRAY 5636 11774 0 06 00630 ADD AF