HP67 Logging started. 00000 nop 00001 if n/c go to 0370 ; S= ................ 00370 0 -> c[w] 00371 m1 exch c 00372 0 -> c[w] 00373 m2 exch c 00374 0 -> c[w] 00375 delayed rom 02 00376 if n/c go to 01000 01000 hi im woodstock 01001 display reset twf 01002 c -> addr 01003 clear data registers 01004 p <- 1 ; P= 1 01005 load constant 3 ; C= 00000000000030 P= 0 01006 c -> addr 01007 clear data registers *** ram[62] -> c (=00000000000000) 01010 data register -> c 14 ; C= 00000000000000 01011 if c[w] # 0 01012 then go to 01023 01013 CRC 1000 01014 0 -> c[w] 01015 p <- 7 ; P= 7 01016 load constant 1 ; C= 00000010000000 P= 6 01017 load constant 2 ; C= 00000012000000 P= 5 01020 load constant 2 ; C= 00000012200000 P= 4 01021 load constant 2 ; C= 00000012220000 P= 3 *** c -> ram[62] (=00000012220000) 01022 c -> data register 14 01023 jsb 01036 01036 delayed rom 00 01037 jsb 0004 00004 p <- 1 ; P= 1 00005 load constant 3 ; C= 00000012220030 P= 0 00006 c -> addr *** ram[61] -> c (=00000000000000) 00007 data register -> c 13 ; C= 00000000000000 00010 return 01040 0 -> c[w] *** c -> ram[61] (=00000000000000) 01041 c -> data register 13 01042 return 01024 p <- 1 ; P= 1 01025 c + 1 -> c[p] ; C= 00000000000010 01026 c -> addr 01027 clear data registers 01030 c + 1 -> c[p] ; C= 00000000000020 01031 c -> addr 01032 clear data registers 01033 clear s 01034 delayed rom 00 01035 if n/c go to 0074 00074 b -> c[w] ; C= 00000000000000 00075 1 -> s 9 ; S= .........9...... 00076 0 -> s 12 00077 if n/c go to 0124 00124 CRC 1300 00125 binary 00126 0 -> s 3 00127 delayed rom 02 00130 jsb 01205 01205 0 -> s 4 01206 0 -> s 6 01207 0 -> s 7 01210 0 -> s 8 01211 0 -> s 10 01212 0 -> s 13 01213 return 00131 CRC 1500 00132 if 1 = s 3 00133 then go to 0257 00134 jsb 0116 00116 if 1 = s 2 00117 then go to 0122 00120 if 0 = s 1 00121 then go to 0123 00123 return 00135 b -> c[w] 00136 if 1 = s 2 00137 then go to 0304 00140 0 -> c[w] 00141 0 -> s 1 00142 0 -> s 3 00143 0 -> c[s] 00144 m1 exch c 00145 if 1 = s 11 00146 then go to 0317 00147 delayed rom 017 00150 jsb 07706 07706 p <- 1 07707 load constant 3 ; C= 00000000000030 P= 0 07710 c -> addr *** ram[63] -> c (=00000000000000) 07711 data register -> c 15 ; C= 00000000000000 07712 return 00151 a exchange b[w] 00152 a -> b[w] 00153 if 1 = s 12 00154 then go to 0157 00155 delayed rom 04 00156 jsb 02007 02007 p <- 1 ; P= 1 02010 load constant 3 ; C= 00000000000030 P= 0 02011 c -> addr 02012 0 -> s 3 *** ram[62] -> c (=00000012220000) 02013 data register -> c 14 ; C= 00000012220000 02014 decimal 02015 jsb 02137 02137 c -> a[w] ; A= 00000012220000 02140 0 -> c[w] ; C= 00000000000000 02141 p <- 3 ; P= 3 02142 0 -> a[wp] 02143 p <- 6 ; P= 6 02144 a exchange c[wp] ; A= 00000010000000 C= 00000002220000 02145 c -> a[p] ; A= 00000012000000 02146 c - 1 -> c[s] ; C= 90000002220000 02147 a - 1 -> a[p] ; A= 00000011000000 02150 if n/c go to 02146 02146 c - 1 -> c[s] ; C= 80000002220000 02147 a - 1 -> a[p] ; A= 00000010000000 02150 if n/c go to 02146 02146 c - 1 -> c[s] ; C= 70000002220000 02147 a - 1 -> a[p] ; A= 00000019000000 02150 if n/c go to 02146 02151 c -> a[s] ; A= 70000019000000 02152 p <- 12 ; P= 12 02153 c - 1 -> c[p] ; C= 79000002220000 02154 a - 1 -> a[s] ; A= 60000019000000 02155 if n/c go to 02153 02153 c - 1 -> c[p] ; C= 78000002220000 02154 a - 1 -> a[s] ; A= 50000019000000 02155 if n/c go to 02153 02153 c - 1 -> c[p] ; C= 77000002220000 02154 a - 1 -> a[s] ; A= 40000019000000 02155 if n/c go to 02153 02153 c - 1 -> c[p] ; C= 76000002220000 02154 a - 1 -> a[s] ; A= 30000019000000 02155 if n/c go to 02153 02153 c - 1 -> c[p] ; C= 75000002220000 02154 a - 1 -> a[s] ; A= 20000019000000 02155 if n/c go to 02153 02153 c - 1 -> c[p] ; C= 74000002220000 02154 a - 1 -> a[s] ; A= 10000019000000 02155 if n/c go to 02153 02153 c - 1 -> c[p] ; C= 73000002220000 02154 a - 1 -> a[s] ; A= 00000019000000 02155 if n/c go to 02153 02153 c - 1 -> c[p] ; C= 72000002220000 02154 a - 1 -> a[s] ; A= 90000019000000 02155 if n/c go to 02153 02156 return 02016 if 1 = s 3 02017 then go to 02023 02020 p <- 4 ; P= 4 02021 if c[p] # 0 02022 then go to 02066 02066 p <- 6 ; P= 6 02067 b -> c[x] 02070 if c[xs] = 0 02071 then go to 02124 02124 if c[x] = 0 02125 then go to 02116 02116 if 1 = s 3 02117 then go to 02105 02120 jsb 02162 02162 p <- 3 ; P= 3 02163 c -> a[w] ; A= 72000002220000 02164 c + 1 -> c[s] ; C= 82000002220000 02165 a - 1 -> a[p] ; A= 72000002229000 02166 if n/c go to 02164 02167 c - 1 -> c[s] ; C= 72000002220000 02170 0 -> s 3 02171 p <- 12 ; P= 12 02172 a exchange b[wp] ; A= 70000000000000 B= 02000002229000 02173 a -> b[wp] ; B= 00000000000000 02174 if b[m] = 0 02175 then go to 02232 02232 return 02121 if 0 = s 3 02122 then go to 02105 02105 c + 1 -> c[xs] ; C= 72000002220100 02106 if n/c go to 02063 02063 binary 02064 0 -> s 3 02065 return 00157 delayed rom 02 00160 jsb 01162 01162 jsb 01143 01143 c -> a[x] ; A= 70000000000100 01144 if b[s] = 0 01145 then go to 01147 01147 p <- 12 01150 shift right c[wp] ; C= 70200000222010 01151 if c[xs] = 0 01152 then go to 01156 01156 shift right c[wp] ; C= 70020000022201 01157 shift right c[wp] ; C= 70002000002220 01160 shift right c[wp] ; C= 70000200000222 01161 return 01163 p <- 3 ; P= 3 01164 shift left a[w] ; A= 00000000001000 01165 0 -> c[m] ; C= 70000000000222 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p ; P= 4 01171 a - 1 -> a[p] ; A= 000000000f1000 01172 c - 1 -> c[s] ; C= 60000000000222 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p ; P= 5 01171 a - 1 -> a[p] ; A= 00000000ff1000 01172 c - 1 -> c[s] ; C= 50000000000222 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p ; P= 6 01171 a - 1 -> a[p] ; A= 0000000fff1000 01172 c - 1 -> c[s] ; C= 40000000000222 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p ; P= 7 01171 a - 1 -> a[p] ; A= 000000ffff1000 01172 c - 1 -> c[s] ; C= 30000000000222 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p ; P= 8 01171 a - 1 -> a[p] ; A= 00000fffff1000 01172 c - 1 -> c[s] ; C= 20000000000222 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p ; P= 9 01171 a - 1 -> a[p] ; A= 0000ffffff1000 01172 c - 1 -> c[s] ; C= 10000000000222 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p ; P= 10 01171 a - 1 -> a[p] ; A= 000fffffff1000 01172 c - 1 -> c[s] ; C= 00000000000222 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01174 if c[xs] = 0 01175 then go to 01201 01176 c - 1 -> c[xs] ; C= 00000000000122 01177 p + 1 -> p ; P= 11 01200 if n/c go to 01174 01174 if c[xs] = 0 01175 then go to 01201 01176 c - 1 -> c[xs] ; C= 00000000000022 01177 p + 1 -> p ; P= 12 01200 if n/c go to 01174 01174 if c[xs] = 0 01175 then go to 01201 01201 shift right a[wp] ; A= 0000fffffff100 01202 load constant 3 ; C= 03000000000022 P= 11 01203 b exchange c[w] ; B= 03000000000022 C= 00000000000000 01204 return 00161 hi im woodstock 00162 display off 00163 display toggle 00164 0 -> s 15 00165 if 1 = s 15 00166 then go to 0164 00167 0 -> s 3 00170 CRC 1500 00171 if 1 = s 3 00172 then go to 0263 00173 0 -> s 1 00174 CRC 300 00175 if 1 = s 3 00176 then go to 0204 00177 if 0 = s 11 00200 then go to 0206 00206 0 -> s 3 00207 CRC 560 00210 if 1 = s 3 00211 then go to 01324 00212 if 0 = s 15 00213 then go to 0167