FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 170

5571 11001 0 10 02242 JST NA00 INPUT VARIABLE NAME 5572 11002 0 15 10725 W4Y STX T0W4 SAVE POINTER TO NAME (OR STMT #) 5573 11003 0 35 00626 LDX I POINTS TO VAR WE'RE ORG'ING TO 5574 11004 0 15 00712 STX KPRM KILL REPITITION COUNT 5575 11005 1 02 17400 LDA DP,1 SET PGM COUNTER 5576 11006 0 04 00643 STA RPL X 5577 11007 1 02 17377 LDA DP-1,1 MAKE SURE TARGET IS INTEGER 5578 11010 0 04 00625 STA A X 5579 11011 0 10 03317 JST FA00 X 5580 11012 0 02 00706 LDA IM X 5581 11013 0 05 00735 ERA K101 X 5582 11014 100040 SZE X 5583 11015 0 01 11173 JMP WERR ERROR ... DAC MUST BE INTEGER 5584 11016 0 35 10725 LDX T0W4 SET A TO NAME OR STMT # WE DAC'ING AT 5585 11017 0 15 00625 STX A X 5586 11020 0 10 11471 JST OB00 OUTPUT DAC 5587 11021 0 01 11175 JMP W420 CONTINUE NORMALLY 5588 11022 0 10 01350 W4X JST DN00 INPUT. DNA 5589 11023 0 02 00054 LDA NT 5590 11024 100040 SZE IF NT = 0 5591 11025 0 01 11043 JMP W4G VARIABLE OR ARRAY 5592 11026 0 02 00067 LDA TC LAST CHARACTER 5593 11027 0 11 14474 CAS K17 ='250 ( =( ) 5594 11030 0 01 11032 JMP *+2 5595 11031 0 01 11034 JMP *+3 START OF COMPLEX CONSTANT 5596 11032 0 10 02615 JST ER00 ERROR 5597 11033 141716 BCI 1,CN NON-CON DATA 5598 11034 0 04 00633 STA SXF SET SXF TO NON-ZERO 5599 11035 0 01 10770 JMP W4F FINISH INPUT OF COMPLEX CONSTANT 5600 11036 0 10 01157 W4Q JST CH00 STEP OVER '$' 5601 11037 0 10 02264 JST IS00 INPUT STATEMENT NUMBER 5602 11040 0 15 10725 STX T0W4 SAVE POINTER TO STMT # 5603 11041 0 10 01307 JST FN00 FUDGE TERMINATING CHARACTER 5604 11042 0 01 11003 JMP W4Y+1 JOIN COMMON PROCESSING 5605 11043 0 02 00711 W4G LDA KBAR MULTIPLY COUNT 5606 11044 100040 SZE 5607 11045 0 01 11057 JMP W4K GO TO W4K 5608 11046 0 02 00067 LDA TC IF TC NOT * 5609 11047 0 07 00737 SUB K103 5610 11050 100040 SZE 5611 11051 0 01 11062 JMP W4L 5612 11052 0 02 00774 LDA ID 5613 11053 0 07 00735 SUB K101 5614 11054 0 04 00711 STA KBAR KBAR = ID-1 5615 11055 0 10 02433 JST IT00 INTEGER TEST 5616 11056 0 01 10770 JMP W4F 5617 11057 0 02 00712 W4K LDA KPRM IF K NOT ZERO 5618 11060 100040 SZE 5619 11061 0 01 11067 JMP W4M GO TO W4M 5620 11062 0 02 00711 W4L LDA KBAR