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

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

5637 11775 1 04 15400 STA DP,1 DP(E) = AF + S1 5638 11776 0 02 00040 W4C LDA A 5639 11777 1 04 15377 STA DP-1,1 DP (E-1) = A 5640 12000 0 02 00041 LDA I 5641 12001 0 07 00720 SUB K102 5642 12002 0 04 00041 STA I 5643 12003 0 04 11761 STA G 5644 12004 0 02 00607 LDA TC IF TC = , 5645 12005 0 07 00752 SUB K134 5646 12006 101040 SNZ 5647 12007 0 01 11764 JMP W4B GO TO W4B 5648 12010 0 02 00722 LDA K104 5649 12011 0 10 02547 JST TS00 TEST FOR SLASH TERMINATOR 5650 12012 0 02 00060 LDA RPL 5651 12013 0 04 11760 STA T1W4 5652 12014 0 02 00113 LDA L0 5653 12015 0 04 00041 STA I I= END OF DATA POOL 5654 12016 140040 W4E CRA 5655 12017 0 04 00657 STA KPRM K' = KBAR = 0 5656 12020 0 04 00656 STA KBAR 5657 12021 0 10 01521 W4F JST DN00 INPUT, DNA 5658 12022 0 02 00573 LDA NT 5659 12023 100040 SZE IF NT = 0 5660 12024 0 01 12035 JMP W4G VARIABLE OR ARRAY 5661 12025 0 02 00607 LDA TC LAST CHARACTER 5662 12026 0 11 00702 CAS K17 ='250 ( =( ) 5663 12027 0 01 12031 JMP *+2 5664 12030 0 01 12033 JMP *+3 START OF COMPLEX CONSTANT 5665 12031 0 10 03116 JST ER00 ERROR 5666 12032 141716 BCI 1,CN NON-CON DATA 5667 12033 0 04 00050 STA SXF SET SXF TO NON-ZERO 5668 12034 0 01 12021 JMP W4F FINISH INPUT OF COMPLEX CONSTANT 5669 12035 0 02 00656 W4G LDA KBAR MULTIPLY COUNT 5670 12036 100040 SZE 5671 12037 0 01 12051 JMP W4K GO TO W4K 5672 12040 0 02 00607 LDA TC IF TC NOT * 5673 12041 0 07 00721 SUB K103 5674 12042 100040 SZE 5675 12043 0 01 12054 JMP W4L 5676 12044 0 02 01475 LDA ID 5677 12045 0 07 00717 SUB K101 5678 12046 0 04 00656 STA KBAR KBAR = ID-1 5679 12047 0 10 02635 JST IT00 INTEGER TEST 5680 12050 0 01 12021 JMP W4F 5681 12051 0 02 00657 W4K LDA KPRM IF K NOT ZERO 5682 12052 100040 SZE 5683 12053 0 01 12061 JMP W4M GO TO W4M 5684 12054 0 02 00656 W4L LDA KBAR 5685 12055 0415 77 ALS 1 K ' = E-3* KBAR 5686 12056 140407 TCA