Previous File Previous Page Single Page Next Page Next File

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 27

0886 * 0887 * SYLL: SYLLABLE ANALYZER 0888 * 0889 * 0890 * CALLING SEQUENCE: 0891 * JST SYLL 0892 * ......RETURN TERMINATING CHAR. IN A 0893 * 0894 * 0895 01300 0 000000 SYLL DAC ** SYLLABLE ANALYZER 0896 01301 0 02 00466 LDA DEOT DOCTGDEFAULT CONVERSION MODE 0897 01302 0 04 00443 STA DOCT -1 FOR DEC, 0 FOR OCT, +1 FOR HEX 0898 01303 0 02 00504 LDA SYLC SYLP=ADDRESS OF SYL 0899 01304 0 04 00505 STA SYLP 0900 01305 0 04 00460 STA ALFA TURN OFF ALFA FLAG 0901 01306 0 04 00506 STA LITF TURN OFF LITERAL FLAG 0902 01307 0 10 01261 JST CLER CLEAR NUM-NUM+2, SYL-SYL+2 0903 01310 0 02 00672 LDA M2 SET UP CHARACTER/WORD COUNTER 0904 01311 0 04 00464 STA SYL2 0905 01312 0 07 00700 SUB ONE SET UP FOR MAXIMUM OF 0906 01313 0 04 00465 STA SYL3 6 CHARACTERS/IDENTIFIER 0907 01314 -0 10 00575 SYLO JST* CHRD FETCH NEXT CHARACTER FROM INPUT BUFFER 0908 01315 0 07 00636 SUB C244 TEST FOR '$' 0909 01316 101040 SNZ SKIP IF NOT 0910 01317 0 01 01375 JMP HEXM '$' - SEE IF HEX MODE CONVERSION 0911 01320 0 07 00743 SUB C3 TEST FOR SINGLE QUOTE 0912 01321 101040 SNZ SKIP IF NOT 0913 01322 0 01 01376 JMP OCTK IT IS - CHECK FOR OCTAL MODE CONVERSION 0914 01323 0 07 00743 SUB C3 TEST FOR '*' 0915 01324 101040 SNZ SKIP IF NOT 0916 01325 0 01 01365 JMP STAR GO TO THE ASTERISK PROCESSOR 0917 01326 0 07 00632 SUB C23 TEST FOR '=' 0918 01327 101040 SNZ SKIP IF NOT 0919 01330 0 01 01443 JMP LITS GO TO LITERAL PROCESSOR 0920 01331 0 10 00000 CALL DECC HAVE THE CONVERSION ROUTINE WORK ON IT 0921 01332 0 01 01425 JMP LET1 NUMBER RETURN 0922 01333 0 01 01415 JMP LET LETTER RETURN 0923 * 0924 * HERE IF NOT NUMBER OR LETTER 0925 * 0926 01334 0 02 00441 LDA ERD CHECK FOR ERROR IN CONVERSION 0927 01335 100040 SZE SKIP IF NO ERROR DETECTED DAEM 0928 01336 -0 10 00557 JST* CER FLAG CONVERSION ERROR 0929 01337 0 02 00506 SYLA LDA LITF CHECK FOR LITERAL IN PROCESS 0930 01340 100040 SZE SKIP IF LITERAL 0931 01341 0 01 01363 JMP DELO ELSE, GO EXIT 0932 * 0933 * 0934 * FORM LITERAL SYMBOL 0935 *
Previous File Previous Page Single Page Next Page Next File