OPMOD

* OPMOD PAGE 2

0051 EXT OR00 0052 EXT XN00 0053 EXT TG00 0054 EXT IT00 0055 EXT NT 0056 EXT ID 0057 EXT ID1 0058 EXT OS00 0059 EXT CC 0060 EXT LIST 0061 EXT NP00 0062 EXT IC00 0063 * 0064 CF5 H316 AND H516 0065 REL RELOCATABLE 0066 00000 0 000000 OPST DAC ** 0067 00001 0 35 00740 LDX L003 =-14 0068 00002 140040 CRA 0069 00003 1 04 00112 STA TEND,1 0070 00004 0 12 00000 IRS 0 0071 00005 0 01 00003 JMP *-2 0072 00006 0 02 00011 LDA L002 0073 00007 -0 04 00012 STA* L001 0074 00010 -0 01 00000 JMP* OPST 0075 00011 -1 020266 L002 DAC* L000+'20000,1 (INITIAL IPTR) 0076 00012 0 000000 L001 DAC IPTR 0077 * 0078 00013 0 02 00000 HEAD LDA LSTF 0079 00014 101040 SNZ 0080 00015 0 01 00000 JMP R2B 0081 00016 0 02 00731 LDA K103 0082 00017 0 10 00000 JST IA00 0083 00020 0 02 00000 LDA TC 0084 00021 0 05 00725 ERA K007 0085 00022 100040 SZE 0086 00023 0 01 00031 JMP L004 0087 00024 0 10 00000 JST NA00 0088 00025 0 15 00074 STX T1 0089 00026 0 02 00722 LDA K004 0090 00027 0 10 00000 JST TS00 0091 00030 0 10 00000 JST CH00 0092 00031 0 02 00000 L004 LDA TC 0093 00032 0 05 00723 ERA K005 0094 00033 100040 SZE 0095 00034 0 01 00037 JMP L005 0096 00035 0 10 00000 JST IG00 0097 00036 0 04 00075 STA T2 0098 00037 0 02 00736 L005 LDA KM1 0099 00040 0 10 00000 JST OC00 0100 00041 0 02 00075 LDA T2