BASIC-16A

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

1546 * USER INPUT PROCESSOR 1547 * 1548 * 1549 * CALLING SEQUENCE: 1550 * 1551 * LDA CHAR INPUT REQUEST CHAR...SEE BELOW 1552 * JST ILIN 1553 * DAC BUF+BUF 80 WORD BUFFER ... SEE BELOW 1554 * ......RETURN 1555 * 1556 * THIS ROUTINE WILL CALL THE ROUTINE IPUT TO INPUT 1557 * A SOURCE LINE INTO THE PROVIDED BUFFER, STARTING AT 1558 * WORD 41. THE CARRIAGE RETURN THAT TERMINATES THE RECORD IS 1559 * ASSUMED TO BE PLACED INTO THE BUFFER. 1560 * AFTER THE LINE HAS BEEN INPUT, A LEXICAL SCAN 1561 * OF THE LINE IS PERFORMED TO DO THE FOLLOWING FUNCTIONS: 1562 * 1563 * 1) REMOVE ALL NONSIGNIFICANT SPACES 1564 * 2) CONVERT ALL CONSTANTS TO THEIR BINARY EQUIVILANTS 1565 * 3) TO REPLACE ALL RESERVED IDENTIFIERS WITH THEIR ONE 1566 * BYTE REPRESENTATIONS 1567 * 1568 * THE EXTRA 40 WORDS OF BUFFER-SPACE IS REQUIRED 1569 * FOR-CASES WHEN THE COMPRESSED TEXT IS LARGER THAN THE 1570 * ORIGINAL TEXT. THIS WILL OCCUR PRIMARILY AS A RESULT 1571 * OF CONSTANT CONVERSIONS. 1572 * 1573 * 1574 * 1575 01504 0 000000 ILIN DAC ** 1576 01505 000201 IAB PREFIX CHARACTER TO B 1578 01506 -0 02 01504 LDA* ILIN GET ADDRESS OF 1579 01507 0404 77 LGR 1 41ST WORD OF THE 1583 01510 0 06 00440 ADD C50 PROVIDED BUFFER 1584 01511 0 04 01514 STA *+3 X 1585 01512 000201 IAB RETRIEVE THE PREFIX CHARACTER 1586 01513 0 10 00000 JST IPUT INPUT LINE 1587 01514 0 000000 DAC ** X 1588 * 1589 * HERE FOR LEXICAL SCAN OF NEW LINE 1590 * 1591 01515 -0 02 01504 LDA* ILIN SET POINTER TO ACTUAL START OF BUFFER 1595 01516 0 04 00040 STA DBP X 1596 01517 0 10 03125 IL32 JST GNBC GET NEXT NON-BLANK CHARACTER 1597 01520 0 11 00407 CAS C242 IS IT START OF TEXT STRING ^ 1598 01521 100000 SKP NO 1599 01522 0 01 01542 JMP IL05 YES...GO PACK IT WITHOUT COMPRESSION 1600 01523 0 11 00416 CAS C256 IS IT A DECIMAL POINT ^ 1601 01524 100000 SKP NO 1602 01525 0 01 01553 JMP IL06 YES...GO CONVERT A NUMBER