INSTRUCTION SCAN

* INSTRUCTION SCAN PAGE 2

0051 01043 0 02 01056 LDA OCVL RECOVER VALUE TO PRINT 0052 01044 100000 SKP SHIFT ONCE LESS THAN DIGIT NUMBER 0053 01045 0404 75 OPL2 LGR 3 0054 01046 0 12 00000 IRS 0 0055 01047 0 01 01045 JMP OPL2 0056 01050 0 03 01235 ANA ='7 0057 01051 0 06 01234 ADD =A00 ZERO 0058 01052 0 10 01014 JST OPCH 0059 01053 0 12 01057 IRS OCSH 0060 01054 0 01 01042 JMP OPL1 0061 01055 -0 01 01034 JMP* OPOC 0062 01056 000000 OCVL BSZ 1 OCTAL PRINT SAVES VALUE 0063 01057 000000 OCSH BSZ 1 OCTAL PRINT SHIFT VALUE 0064 * 0065 * TEST ONE OPCODE 0066 * 0067 * ENTER WITH THE OPCODE IN A 0068 * 0069 01060 0 000000 TSOP DAC ** 0070 01061 0 04 01120 STA OPCD 0071 01062 0 10 01030 JST LFCR BLANK LINE 0072 01063 0 02 01120 LDA OPCD 0073 01064 0 10 01034 JST OPOC PRINT THE OPCODE 0074 01065 0 10 01030 JST LFCR 0075 * 0076 01066 0 35 01147 LDX OPND 0077 01067 1 02 01147 TSL1 LDA OPND,1 0078 01070 140200 RCB FIRST WITH C=0 0079 01071 0 10 01100 JST TSPT 0080 01072 1 02 01147 LDA OPND,1 0081 01073 140600 SCB THEN WITH C=1 0082 01074 0 10 01100 JST TSPT 0083 01075 0 12 00000 IRS 0 0084 01076 0 01 01067 JMP TSL1 0085 01077 -0 01 01060 JMP* TSOP 0086 * 0087 * TEST ONE PATTERN 0088 * 0089 01100 0 000000 TSPT DAC ** 0090 01101 0 04 01127 STA BEFR 0091 01102 0 04 01133 STA AFTR STORE IN BOTH BEFORE AND AFTER 0092 01103 0 04 01130 STA BEF2 0093 01104 000043 INK 0094 01105 0 04 01131 STA BEFC 0095 01106 0 04 01134 STA AFTC 0096 01107 0 04 01132 STA BEFK 0097 01110 0 10 01150 JST OPTP PRINT BEFORE VALUES 0098 01111 0 02 01233 LDA ='120240 SPACES 0099 01112 0 10 01023 JST OP2C 0100 *