DAP-16M2

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

0986 01400 101040 SNZ SKIP IF DIFFERENT 0987 01401 0 01 01314 JMP SYLO SAME - NO EFFECT 0988 01402 0 02 00450 LDA SYL TEST FOR FIRST CHARACTER 0989 01403 100040 SZE SKIP IF FIRST CHARACTER 0990 01404 0 01 01415 JMP LET OTHERWISE TREAT AS A LETTER 0991 01405 0 02 00443 LDA DOCT 0992 01406 0 06 00430 ADD DECF TEST FOR ILLEGAL MODE SWITCHING 0993 01407 141206 AOA DECF+DOCT = -1 IF LEGAL 0994 01410 100040 SZE SKIP IF LEGAL 0995 01411 0 01 01415 JMP LET OTHERWISE TREAT AS A LETTER 0996 01412 0 02 00475 LDA T OK TO SWITCH, FETCH MODE INDICATOR 0997 01413 0 04 00443 STA DOCT SET NEW CONVERSION MODE 0998 01414 0 01 01314 JMP SYLO G0 PROCESS NEXT CHARACTER 0999 * 1000 * 1001 01415 0 02 00506 LET LDA LITF FETCH LITERAL FLAG 1002 01416 101040 SNZ SKIP IF NOT PROCESSING A LITERAL 1003 01417 0 01 01427 JMP LITP GO PROCESS ASCII LITERAL 1004 01420 140040 CRA 1005 01421 0 04 00460 STA ALFA SET ALFA FLAG 1006 01422 0 02 00443 LDA DOCT FETCH CONVERSION MODE INDICATOR 1007 01423 101400 SMI SKIP IF DECIMAL MODE 1008 01424 -0 10 00557 JST* CER NOT IN DEC MODE - VERY STRANGE 1009 01425 0 10 01445 LET1 JST STF PACK THE CHARACTER 1010 01426 0 01 01314 JMP SYLO CONTINUE SCAN 1011 * 1012 * HERE TO PROCESS ASCII LITERAL 1013 * 1014 01427 0 02 00444 LITP LDA TERM FETCH TERMINATING CHARACTER 1015 01430 0 05 00644 ERA C301 TEST FOR ASCII 'A' 1016 01431 100040 SZE SKIP IF 'A' 1017 01432 -0 10 00557 JST* CER ERROR - CONSIDER IT AN 'A' ANYWAY 1018 01433 -0 10 00575 JST* CHRD FETCH NEXT CHARACTER 1019 01434 141240 ICR A(1-8) = CHARACTER, A(9-16) = 0 1020 01435 0 04 00445 STA NUM SAVE FIRST CHARACTER 1021 01436 -0 10 00575 JST* CHRD FETCH NEXT CHARACTER 1022 01437 0 05 00445 ERA NUM INSERT FIRST CHARACTER 1023 01440 0 04 00445 STA NUM SAVE THEM BOTH IN NUM 1024 01441 -0 10 00575 JST* CHRD FETCH NEXT CHAR. FOR COMPATIBILITY 1025 01442 0 01 01337 JMP SYLA PROCESS THE LITERAL 1026 * 1027 01443 0 04 00506 LITS STA LITF SET LITERAL FLAG 1028 01444 0 01 01314 JMP SYLO 1029 * 1030 * 1031 * END OF SYLLABLE ANALYZER 1032 * 1033 EJCT *************************************************************