7 7 8tc20a december 12, 1961 7 check proper decrementing 7 of record counter 7 00004 eem 3 14 0000 0+-0 00009 chr 3 13 0000 0+ 0 00014 spc , 0000 7 00019 set b 0005 generate write field 00024 lod 8 0689 00029 unl 7 1004 00034 rcv u 1009 00039 set b 0200 00044 snd / 1004 00049 set b 0200 00054 snd / 2004 00059 set b 0200 00064 snd / 3004 00069 set b 0200 00074 snd / 4004 00079 SET B 0200 00084 snd / 5004 7 00089 set b 0004 set up special cmp chars 00094 lod 8 0717 00099 unl 7 1003 rcd #1 00104 lod 8 0711 00109 unl 7 1453 rcd #90 00114 lod 8 0701 00119 unl 7 5953 7 00124 set b 0004 tape selector 00129 lod 8 0721 00134 unl 7 0139 00139 sel 2 2001 00144 trs o 01 0154 01v4 00149 tr 1 0579 7 00154 set b 0002 00159 lod 8 0137 00164 unl 7 0744 00169 unl 7 0771 00174 unl 7 0794 7 00179 set b 0004 00184 lod 8 0827 00189 unl 7 0209 00194 rad h 01 0697 06z7 00199 set b 02 0006 00-6 00204 lod 8 02 0707 07-7 asu 02 000005 wr add mod 7 00209 wr r 1000 00214 trs o 03 0219 02a9 00219 trs o 0244 00224 sub p 01 0713 07/3 00229 trz n 01 0264 02w4 00234 adm 6 02 0209 02-9 00239 tr 1 0209 7 00244 eia , 10 0000 0--0 00249 sel 2 0139 00254 rwd 3 0002 00259 tr 1 0579 7 00264 wr r 02 0090 00r0 check units position 00269 bsp 3 0004 decrement of 00274 eia , 10 0000 0--0 record ctr 00279 sel 2 0139 00284 trs o 01 0294 02z4 00289 tr 1 0284 7 00294 rcv u 0804 00299 blm $ 0003 rd rcd #990 00304 rd y 0800 00309 trs o 03 0314 03a4 00314 set b 0004 00319 lod 8 0803 00324 cmp 4 0701 00329 tre l 0364 7 00334 tra i 01 0364 03w4 error routine 00339 sel 2 0500 units position 00344 wr r 0722 check 00349 tra i 03 0359 03e9 00354 tr 1 0364 00359 hlt j 0001 7 00364 eia , 10 0000 0--0 check hundreds 00369 sel 2 0139 position decrement 00374 bsp 3 0004 of record ctr 00379 wr r 02 9000 90-0 00384 bsp 3 0004 00389 trs o 01 0399 03z9 00394 tr 1 0389 7 00399 rcv u 0804 00404 blm $ 0003 00409 rd y 0800 rd rcd #090 00414 trs o 03 0419 04a9 00419 set b 0004 00424 lod 8 0803 00429 cmp 4 0711 00434 tre l 0469 7 00439 tra i 01 0469 04w9 error routine 00444 sel 2 0500 hundreds position 00449 wr r 0746 check 00454 tra i 03 0464 04f4 00459 tr 1 0469 00464 hlt j 0002 7 00469 eia , 10 0000 0--0 error tens position 00474 sel 2 0139 decrement of 00479 bsp 3 0004 record ctr 00484 wr r 02 0900 09-0 00489 bsp 3 0004 00494 trs o 01 0504 05 4 00499 tr 1 0494 7 00504 rcv u 0804 00509 blm $ 0003 00514 iof 3 0000 00519 rd y 0800 rd rcd #001 00524 trs o 03 0529 05b9 00529 set b 0004 00534 lod 8 0803 00539 cmp 4 0693 00544 tre l 0579 7 00549 tra i 01 0579 05x9 error routine 00554 sel 2 0500 tens position 00559 wr r 0773 check. 00564 tra i 03 0574 05g4 00569 tr 1 0579 00574 hlt j 0003 7 00579 set b 0002 modify tape 00584 lod 8 0797 unit selector 00589 adm 6 0139 00594 lod 8 0139 00599 cmp 4 0799 00604 tre l 0614 00609 tr 1 0139 7 00614 set b 0002 modify channel 00619 lod 8 0797 selector 00624 unl 7 0139 00629 lod 8 0797 00634 adm 6 0137 00639 lod 8 0137 00644 cmp 4 0821 00649 tre l 0659 00654 tr 1 0139 7 00659 tra i 04 0674 0w74 check alt 00664 sel 2 2000 sw 914 00669 tr 1 18219 y219 7 00674 sel 2 0500 00679 wr r 0822 00684 tr 1 0124 7 7 constants and data area 2 004 00688 abcd 2 001 00689 | 2 004 00693 0001 2 001 00694 2 003 00697 +999 2 004 00701 0990 2 006 00707 000005 2 004 00711 0090 2 001 00712 2 001 00713 +1 2 004 00717 0001 2 004 00721 2001 2 018 00739 rc-units position 2 005 00744 ch-xx 2 001 00745 | 2 021 00766 rc-hundreds position 2 005 00771 ch-xx 2 001 00772 | 2 017 00789 rc-tens position 2 005 00794 ch-xx 2 001 00795 | 2 002 00797 01 2 002 00799 10 2 002 00821 24 2 001 00822 z 2 001 00823 | 2 004 00827 1000