DAP-16M2

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

0657 * 0658 * PROCESS NEXT STATEMENT 0659 * 0660 01042 0 10 04253 LINE JST CLEO CLEAR OUTPUT BUFFER 0661 01043 0 10 00000 CALL D$RD READ NEXT SOURCE LINE 0662 01044 -0 10 00552 JST* UACD UPDATE LINE COUNTER 0663 01045 0 000412 DAC CNTR ADDRESS OF LINE COUNTER 0664 01046 0 004546 DAC OTPB+2 ADDRESS OF ASCII EXPANSION FIELD 0665 01047 0 02 00704 LDA FLDP INITIALIZE SOURCE FIELD POINTER 0666 01050 0 04 00522 STA ADVP 0667 01051 -0 10 00573 JST* ADVD SET SOURCE CHARACTER POINTER 0668 01052 0 10 01261 JST CLER CLEAR REGISTERS 0669 01053 0 35 00676 LDX M12 PREPARE TO INITIALIZE FLAGS 0670 01054 1 04 00433 STA RBIT+12,1 CLEAR A WORD 0671 01055 0 12 00000 IRS 0 STEP THE POINT 0672 01056 0 01 01054 JMP *-2 GO CLEAR NEXT WORD 0673 01057 0 04 04052 STA LGCT CLEAR ERROR/LINE COUNTER 0674 01060 0 04 00457 STA SIGT CLEAR SIGN OF SYLLABLE REGISTERS 0675 01061 0 02 00671 LDA M1 GET INITIALIZATION CONSTANT 0676 01062 0 04 00466 STA DEOT SET DECIMAL CONVERSION MODE 0677 01063 0 10 01300 JST SYLL PACK LOCATION FIELD 0678 01064 0 02 00450 LDA SYL FETCH FIRST TWO CHARS. OF FIELD 0679 01065 -0 10 00605 JST* UPAK CONVERT THEM TO ASCII 0680 01066 141140 ICL ISOLAIE FIRST CHARACTER 0681 01067 0 05 00637 ERA C252 CHECK FOR COMMENT LINE 0682 01070 101040 SNZ SKIP IF NOT 0683 01071 -0 01 00611 JMP* COMX GO PROCESS COMMENT CARD 0684 01072 0 02 00450 LDA SYL SEE IF ANYTHING IS IN LOCATION FIELD 0685 01073 101040 SNZ 0686 01074 0 01 01100 JMP *+4 NO 0687 01075 0 02 00460 LDA ALFA SEE IF IT'S SOMETHING FUNNY - LIKE A NUMBER 0688 01076 100040 SZE SKIP IF VALID SYMBOL 0689 01077 0 10 03760 JST LERR FLAG 'L' ERROR 0690 01100 0 02 00444 LDA TERM FETCH TERMINATING CHARACTER 0691 01101 0 05 00635 ERA C240 CHECK FOR BLANK 0692 01102 100040 SZE SKIP IF SO 0693 01103 -0 10 00561 JST* FER FORMAT ERROR 0694 01104 0 10 01270 JST SWAP SYL1 6 LOCATION FIELD 0695 01105 -0 10 00573 JST* ADVD ADVANCE TO OP-CODE FIELD 0696 01106 0 10 01300 JST SYLL INPUT OP-CODE-TERMINATING 0697 * CHARACTER IN A REGISTER 0698 01107 0 05 00637 ERA C252 TEST FOR ASTERISK 0699 01110 101040 SNZ SKIP IF NOT 0700 01111 0 12 00426 IRS INDF SET INDIRECT FLAG 0701 01112 0 10 01470 JST OPSR SEARCH OP-CODE TABLE - RETURN 0702 * IF MACHINE OP. 0703 * 0704 * MACHINE OP-CODE PROCESSOR 0705 * 0706 *