DAP-16M2

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

0936 * THE LITERAL SYMBOL IS STORED IN THE FIRST 0937 * TWO WORDS OF THE SYMBOL TABLE ENTRY AS FOLLOWS: 0938 * 0939 * WORD ONE -- BITS 1-4 CONTROL FLAGS 0940 * BITS 5-12 FIN LEVEL 0941 * BITS 13-16 4 HIGH ORDER BITS OF VALUE 0942 * 0943 * WORD TWO -- BITS 1-3 CONTROL FLAGS 0944 * BIT 4 LITERAL FLAG 0945 * BIT 5-16 12 LOW ORDER BITS OF VALUE 0946 * 0947 * THE FIN LEVEL, FINF, CORRESPONDS TO THE NUMBER 0948 * OF 'FIN' PSEODO-OPS THAT HAVE BEEN ENCOUNTERED. 0949 * EACH TIME A 'FIN' IS ENCOUNTERED, FINF IS 0950 * DECREMENTED BY 1B12. 0951 * 0952 * 0953 01342 0 04 00460 STA ALFA LITERALS ARE CONSIDERED ALFA 0954 01343 0 02 00450 LDA SYL IF THE CURRENT CHARACTER IS 0955 01344 100040 SZE A PLUS OR MINUS, AND NO 0956 01345 0 01 01351 JMP *+4 PART OF THE NUMERIC VALUE HAS 0957 01346 -0 10 00607 JST* PMS BEEN ENCOUNTERED, THE LITERAL IS, AS 0958 01347 100000 SKP OF YET, UNFORMED THEREFORE 0959 01350 0 01 01314 JMP SYLO WE SHOULD CONTINUE LOOKING FOR DIGITS, ETC. 0960 01351 0 02 00445 LDA NUM FETCH VALUE OF LITERAL 0961 01352 0404 64 LGR 12 A(13-16) = HIGH 4 BITS OF VALUE 0962 01353 0 05 00525 ERA FINF INSERT FIN LEVEL 0963 01354 0 04 00450 STA SYL SYL = FIRST WORD OF LITERAL ENTRY 0964 01355 0 02 00445 LDA NUM FETCH THE VALUE OF LITERAL 0965 01356 0 03 00665 ANA CHR2 A(1-4) = 0 0966 01357 0 05 00621 ERA B4 SET LITERAL FLAG 0967 01360 0 04 00451 STA SYL+1 SYL+1 = SECOND WORD OF LITERAL ENTRY 0968 01361 140040 CRA 0969 01362 0 04 00453 STA SIGN CLEAR SIGN 0970 01363 0 02 00444 DELO LDA TERM TERMINATING CHARACTER 0971 01364 -0 01 01300 JMP* SYLL EXIT 0972 * 0973 01365 0 02 00450 STAR LDA SYL IS '*' FIRST CHARACTER 0974 01366 100040 SZE SKIP IF FIRST CHARACTER 0975 01367 0 01 01363 JMP DELO OTHERWISE TREAT AS DELIMITING CHAR. 0976 01370 0 04 00460 STA ALFA SET ALFA MODE 0977 01371 0 10 01445 JST STF PACK THE CHARACTER 0978 01372 -0 10 00575 JST* CHRD FETCH NEXT CHAR. FROM INPUT BUFFER 0979 01373 0 07 00637 SUB C252 REDUCE THE CHAR FOR '*' TEST 0980 01374 0 01 01366 JMP STAR+1 GO TEST FOR ANOTHER '*' 0981 * 0982 01375 141206 HEXM AOA A = 1 FOR HEX MODE 0983 * 0984 01376 0 04 00475 OCTK STA T SAVE DESIRED CONVERSION MODE 0985 01377 0 05 00443 ERA DOCT COMPARE WITH CURRENT MODE