* SUBR CORRELATION REV H- PAGE 2
0058 00065 0 02 00362 LDA TOT!
0059 00066 0 04 00363 STA TOT1
0060 00067 0 02 00513 LDA =-40
0061 00070 0 04 00370 STA TIME
0062 00071 140040 CRA
0063 00072 -0 04 00357 STA*
TOP
0064 00073 0 12 00357 IRS TOP
0065 00074 0 12 00370 IRS TIME
0066 00075 0 01 00072 JMP *-3
0067 00076 101000 NOP
0068 00077 0 10 00246 JST RSET
0069 00100 0 02 00366 LDA STO!
0070 00101 0 06 00524 ADD =2
0071 00102 0 04 00367 STA STO^
0072 00103 0 12 00371 IRS REPT
0073 00104 0 10 00161 GR1 JST READ TRANSFER BUFFER
0074 00105 0 12 00357 IRS TOP
0075 00106 0 12 00360 IRS BOT
0076 00107 0 12 00371 IRS REPT
0077 00110 0 01 00104 JMP GR1
0078 00111 101000 NOP
0079 00112 140040 CRA
0080 00113 0 04 00436 STA BIT2
0081 00114 0 10 00246 GR4 JST RSET
0082 00115 -0 02 00360 LDA*
BOT
0083 00116 0416 70 ALR 8
0084 00117 0 04 00435 STA BIT1
0085 00120 0 03 00512 ANA ='377
0086 00121 0 06 00436 ADD BIT2
0087 00122 -0 04 00360 STA*
BOT
0088 00123 0 02 00435 LDA BIT1
0089 00124 0 03 00511 ANA ='177400
0090 00125 0 04 00436 STA BIT2
0091 00126 0 12 00360 IRS BOT
0092 00127 0 12 00371 IRS REPT
0093 00130 0 01 00115 JMP GR4+1
0094 00131 -0 04 00360 STA*
BOT
0095 00132 101000 NOP
0096 00133 0 10 00220 JST ERA ERA WITHOUT SHIFT
0097 00134 140040 CRA
0098 00135 0 04 00436 STA BIT2
0099 00136 0 02 00510 LDA =-16
0100 00137 0 04 00353 STA M16
0101 00140 -0 02 00357 GR2 LDA*
TOP
0102 00141 0406 77 ARR 1
0103 00142 0 04 00435 STA BIT1
0104 00143 0 03 00507 ANA ='77777
0105 00144 0 06 00436 ADD BIT2
0106 00145 -0 04 00357 STA*
TOP
0107 00146 0 02 00435 LDA BIT1
0108 00147 0 03 00523 ANA ='100000
0109 00150 0 04 00436 STA BIT2
0110 00151 0 12 00357 IRS TOP
0111 00152 0 12 00371 IRS REPT
0112 00153 0 01 00140 JMP GR2
0113 00154 0 10 00220 JST ERA
0114 00155 0 12 00353 IRS M16