Previous File Previous Page Single Page Next Page Next File

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 47

1603 01526 0 10 03164 JST NUMC IS IT A DIGIT (0-9) ^ 1604 01527 100000 SKP NO 1605 01530 0 01 01553 JMP IL06 YES---GO CONVERT A NUMBER 1606 01531 0 10 03155 JST ALFA IS IT A ALPHABETIC CHARACTER 1607 01532 100000 SKP NO 1608 01533 0 01 01732 JMP IL07 YES...GO SEE IF IT'S A RESERVED WORD 1609 01534 0 10 03133 IL22 JST SCHR PUT THE CHARACTER IN THE BUFFER 1610 01535 0 05 00401 ERA C215 A TEST FOR END OF LINE 1611 01536 100040 SZE X 1612 01537 0 01 01517 JMP IL32 NO...GO PROCESS NEXT CHARACTER 1613 01540 0 12 01504 IRS ILIN YES...INCREMENT RETURN ADDRESS 1614 01541 -0 01 01504 JMP* ILIN AND EXIT 1615 * 1616 * HERE TO PACK LITERAL TEXT STRING 1617 * 1618 01542 0 10 03133 IL05 JST SCHR PLACE THE CHARACTER IN THE BUFFER 1619 01543 0 10 03047 JST GCHR GET THE NEXT CHARACTER 1620 01544 0 11 00401 CAS C215 C/R ILLEGAL WITHIN A STRING 1621 01545 100000 SKP OK 1622 01546 0 01 02005 JMP IL08 ERROR...UNCLOSED TEXT STRING 1623 01547 0 11 00407 CAS C242 TEST FOR END OF STRING 1624 01550 0 01 01542 JMP IL05 NO...CONT1NUE PACKING 1625 01551 0 01 01534 JMP IL22 YES...REVERT TO NORMAL MODE 1626 01552 0 01 01542 JMP IL05 NO....CONTINUE PACKING 1627 * 1628 * HERE TO CONVERT CONSTANTS 1629 * 1630 01553 0 02 00075 IL06 LDA LCHR IT LAST CHARACTER WAS ALPHABETIC, 1631 01554 0 10 03155 JST ALFA THEN THE CURRENT DIGIT 1632 01555 0 01 01560 JMP *+3 IS PART OF A VARIABLE NAME 1633 01556 0 02 00074 LDA CHAR GO STORE PART OF A NAME 1634 01557 0 01 01534 JMP IL22 X 1635 * 1636 01560 0 10 03065 JST UCHR BACK UP OVER FIRST CHAR OF NUMBER 1637 01561 140040 CRA CLEAR DECIMAL POINT DETECTED FLAG 1638 01562 0 04 00056 STA ILT1 X 1639 01563 0 04 00057 STA ILT2 CLEAR DECIMAL POINT POSITIQN COUNTER 1640 01564 0 04 00041 STA CVAL CLEAR NUMERIC ACCUMULATOR 1641 01565 0 04 00042 STA CVAL+1 X 1642 01566 0 10 03125 IL10 JST GNBC GET NEXT NON-BLANK CHARACTER 1643 01567 0 10 03164 JST NUMC TEST FOR NUMERIC 1644 01570 0 01 01607 JMP IL11 NO....GO CHECK FOR SPECIAL CHARACTER 1645 01571 0 07 00420 SUB C260 CONVERT DIGIT TO BINARY 1646 01572 0 10 00000 JST FINT FLOAT IT 1647 01573 0 10 00000 JST H$22 SAVE NEW DIGIT 1648 01574 0 000043 DAC LVAL X 1649 01575 0 10 03203 JST LCVL GET PREVIOUS ACCUMULATION 1650 01576 0 10 00000 JST M$22 MULTIPLY BY POSITIONAL BIAS 1651 01577 0 000446 DAC F10 (BASE 10) 1652 01600 0 10 00000 JST A$22 ADD IN NEW DIGIT
Previous File Previous Page Single Page Next Page Next File