INSTRUCTION SCAN

* INSTRUCTION SCAN PAGE 1

0001 * INSTRUCTION SCAN 0002 ORG '1000 0003 01000 0 02 01242 LDA =-1024 0004 01001 0 04 01013 STA INSC INIT COUNTER 0005 01002 0 02 01241 LDA ='140000 FIRST OPCODE 0006 01003 0 04 01012 STA INST 0007 01004 0 02 01012 LL LDA INST 0008 01005 0 10 01060 JST TSOP 0009 01006 0 12 01012 IRS INST 0010 01007 0 12 01013 IRS INSC 0011 01010 0 01 01004 JMP LL 0012 01011 000000 HLT 0013 * 0014 01012 000000 INST BSZ 1 0015 01013 000000 INSC BSZ 1 0016 * 0017 * OUTPUT ONE CHARACTER 0018 * 0019 01014 0 000000 OPCH DAC ** 0020 01015 34 0104 SKS '104 0021 01016 0 01 01015 JMP *-1 0022 01017 14 0104 OCP '104 0023 01020 74 0004 OTA '4 0024 01021 0 01 01020 JMP *-1 0025 01022 -0 01 01014 JMP* OPCH 0026 * 0027 * OUTPUT TWO CHARACTERS 0028 * 0029 01023 0 000000 OP2C DAC ** 0030 01024 0 10 01014 JST OPCH 0031 01025 141340 ICA 0032 01026 0 10 01014 JST OPCH 0033 01027 -0 01 01023 JMP* OP2C 0034 * 0035 * LINE FEED, CARIAGE RETURN 0036 * 0037 01030 0 000000 LFCR DAC ** 0038 01031 0 02 01240 LDA ='106612 0039 01032 0 10 01023 JST OP2C 0040 01033 -0 01 01030 JMP* LFCR 0041 * 0042 * OUTPUT OCTAL 0043 * 0044 01034 0 000000 OPOC DAC ** 0045 01035 0 04 01056 STA OCVL SAVE VALUE TO PRINT 0046 01036 0 02 01237 LDA =A'' APOSTROPHE 0047 01037 0 10 01014 JST OPCH 0048 01040 0 02 01236 LDA =-6 SIX OCTAL DIGITS 0049 01041 0 04 01057 STA OCSH 0050 01042 0 35 01057 OPL1 LDX OCSH