7 8cu30a, May/15/1961 7 non stop program 7 load program in with non stop 7 off.await typeout which is 7 *check sw on auto.non stop on* 7 to run,follow the typeout 7 instructions + hit start 7 00004 nop a 0064 00009 sgn t 12 0000 0+00 00014 sel 2 0500 00019 wr r 0030 00024 hlt j 0000 00029 tr 1 0064 7 7 constants + work area 2 027 00056 chk sw on auto.non stop on 2 001 00057 | 7 7 interrogate non stop 7 to verify it is on 7 00064 eem 3 14 0000 0+-0 00069 tra i 07 0099 0 i9 00074 sel 2 0500 00079 wr r 0100 00084 tip , 14 0089 0+q9 00089 hlt j 1111 00094 lip , 15 3700 3g+0 00099 tr 1 0124 7 7 constants + work area 2 015 00114 non stop not on 2 001 00115 | 7 7 routine 1 7 test ability to store status 7 of interrupt program in iw 250 7 using lip 2500 7 status stored is accumulator 7 + asu zero,storage hi 7 + 7080 tgt on 7 00124 eem 3 14 0000 0+-0 00129 lim , 07 0000 0 +0 00134 spc , 3700 set up exit for lip 00139 set b 0008 00144 lod 8 0259 00149 spc , 0000 00154 rad h 0261 accumulator zero + plus 00159 rad h 01 0261 02w1 asu 01 zero + plus 00164 cmp 4 01 0261 02w1 storage high 00169 lip , 15 2500 2e+0 00174 spc , 2500 00179 set b 0008 00184 cmp 4 0269 00189 tip , 14 6104 6a-4 reset iw 250 00194 spc , 0000 00199 tre l 0244 7 00204 tra i 01 0244 02u4 error routine 00209 sel 2 0500 00214 wr r 0270 00219 tra i 03 0229 02b9 00224 tr 1 0244 00229 tip , 14 0234 0bl4 00234 hlt j 0001 00239 lip , 15 3700 3g+0 00244 tra i 02 0124 01k4 00249 tr 1 0279 7 7 constants + work area 2 006 00255 -+-- 3 00259 0174 0174 2 006 00265 +j+-d 3 00269 0174 0174 2 004 00273 0001 2 001 00274 | 7 7 7 routine 2 7 test ability to store status 7 of interrupt program in iw 250 7 using lip 2500 7 status stored is accumulator 7 +asu minus, storage lo 7 7080 tgr off 7 00279 eem 3 14 0000 0+-0 00284 lim , 07 0000 0 +0 00289 spc , 3700 set up exit in casu 15 00294 set b 0008 00299 lod 8 0429 00304 set b 0032 00309 spc , 0000 00314 rsu q 0411 accumulator minus + not zero 00319 rsu q 01 0411 04/1 asu minus + not zero 00324 cmp 4 01 0421 04s1 storage lo 00329 lip , 15 2500 2e+0 store status in iw 250 00334 spc , 2500 00339 set b 0008 00344 cmp 4 0419 00349 tip , 14 6104 6a-4 reset iw 250 00354 spc , 0000 00359 tre l 0404 7 00364 tra i 01 0404 04 4 error routine 00369 sel 2 0500 00374 wr r 0430 00379 tra i 03 0389 03h9 00384 tr 1 0404 00389 tip , 14 0394 0cr4 00394 hlt j 0002 00399 lip , 15 3700 3g+0 00404 tra i 02 0279 02p9 00409 tr 1 0439 7 7 constants + work area 2 006 00415 aak+-l 3 00419 0334 0334 2 006 00425 2-+-- 3 00429 0334 0334 2 004 00433 0002 2 001 00434 | 7 7 7 routine 3 7 go into interrupt mode + test 7 for interrupt on sdl to 7 the punch in 7080 mode 7 00439 eem 3 14 0000 0+-0 00444 eim , 06 0000 0 -0 lim , 7 0000 00449 trs o 09 0454 0mv4 lim , 8 0000 00454 trs o 09 0494 0mz4 00459 sel 2 0300 00464 sgn t 12 6185 6a85 set switch for good interrupt 00469 sdl 3 0037 correct interrupt 00474 tr 1 0484 00479 trs o 09 0534 0nt4 00484 adm 6 12 6185 6a85 reset switch 00489 lim , 07 0000 0 +0 7 00494 tra i 01 0534 05t4 error routine 00499 sel 2 0500 00504 wr r 0540 00509 tra i 03 0519 05a9 00514 tr 1 0534 00519 tip , 14 0524 0ek4 00524 hlt j 0003 00529 lip , 15 3700 3g+0 00534 tra i 02 0439 04l9 00539 tr 1 0549 7 7 constants + work area 2 004 00543 0003 2 001 00544 | 7 7 7 routine 4 7 go into interrupt mode + test 7 for interrupt on rd 01 to 7 printer in both modes 7 00549 eem 3 14 0000 0+-0 00554 lim , 07 0000 0 +0 00559 eim , 06 0000 0 -0 00564 trs o 09 0569 0nw9 art off 00569 sel 2 0400 00574 sgn t 12 6185 6a85 set switch for good interrupt 00579 rd y 01 20000 -0 0 turn art on 00584 tr 1 0634 00589 trs o 09 0599 0nz9 00594 tr 1 0634 00599 sgn t 12 6185 6a85 set switch for good interrupt 00604 eim , 06 0000 0 -0 00609 rd y 01 20000 -0 0 turn art on 00614 tr 1 0634 00619 lem 3 15 0000 0++0 00624 trs o 09 0634 0ot4 00629 tr 1 0689 00634 adm 6 12 6185 6a85 reset switch 00639 eem 3 14 0000 0+-0 00644 lim , 07 0000 0 +0 7 00649 tra i 01 0689 06y9 error routine 00654 sel 2 0500 00659 wr r 0695 00664 tra i 03 0674 06g4 00669 tr 1 0689 00674 tip , 14 0679 0fp9 00679 hlt j 0004 00684 lip , 15 3700 3g+0 00689 tra i 02 0549 05m9 00694 tr 1 0704 7 7 constants + work area 2 004 00698 0004 2 001 00699 | 7 7 routine 5 7 test for no auto interrupt 7 on sb 08 in 7080 mode 7 00704 eem 3 14 0000 0+-0 00709 lim , 07 0000 0 +0 00714 eim , 06 0000 0 -0 00719 sb % 08 0804 0q04 00724 sb % 08 0804 0q04 turn on 901 chk 00729 trs o 11 0739 0pc9 00734 tr 1 0749 00739 lim , 07 0000 0 +0 00744 tr 1 0789 7 00749 tra i 01 0789 07y9 error routine 00754 sel 2 0500 00759 wr r 0795 00764 tra i 03 0774 07g4 00769 tr 1 0789 00774 tip , 14 0779 0gp9 00779 hlt j 0005 00784 lip , 15 3700 3g+0 00789 tra i 02 0704 07-4 00794 tr 1 0809 7 7 constants + work area 2 004 00798 0005 2 001 00799 | 2 005 00804 00000 7 7 routine 6 7 test for no interrupt 7 on snd/chk memory with a 7 redundant character in 7 memory. 7080 mode 7 00809 eem 3 14 0000 0+-0 00814 lim , 07 0000 0 +0 00819 eim , 06 0000 0 -0 00824 spc , 0000 00829 set b 0000 00834 set b 0010 put zeros end of memory block 00839 unl 7 19999 z999 00844 sb % 08 19993 zr93 00849 rww s 19994 z994 00854 snd / 19994 z994 force 901 with send 00859 sb % 08 19993 zr93 00864 trs o 11 0874 0qg4 00869 tr 1 0884 00874 lim , 07 0000 0 +0 00879 tr 1 0924 7 00884 tra i 01 0924 09s4 error routine 00889 sel 2 0500 00894 wr r 0930 00899 tra i 03 0909 09+9 00904 tr 1 0924 00909 tip , 14 0914 0ij4 00914 hlt j 0006 00919 lip , 15 3700 3g+0 00924 tra i 02 0809 08-9 00929 tr 1 0939 7 7 constants + work area 2 004 00933 0006 2 001 00934 | 7 7 routine 7 7 go into interrupt mode + test 7 for non stop + interrupt 7 on main prograqm 7 use hlt to cause interrupt 7 00939 eem 3 14 0000 0+-0 00944 lim , 07 0000 0 +0 00949 eim , 06 0000 0 -0 00954 sgn t 12 6185 6a85 set switch for good interrupt 00959 hlt j 7777 correct interrupt 00964 tr 1 0974 00969 tr 1 1024 00974 lim , 07 0000 0 +0 reset switch 00979 adm 6 12 6185 6a85 7 00984 tra i 01 1024 10s4 error routine 00989 sel 2 0500 00994 wr r 1030 00999 tra i 03 1009 10+9 01004 tr 1 1024 01009 tip , 14 1014 1+j4 01014 hlt j 0007 01019 lip , 15 3700 3g+0 01024 tra i 02 0939 09l9 01029 tr 1 1039 7 7 constants + work area 2 004 01033 0007 2 001 01034 | 7 7 routine 8 7 go into interrupt mode + test 7 for auto restart + interrupt 7 on main program. 7 use iof to typewriter 7 to cause interrupt 7 01039 eem 3 14 0000 0+-0 01044 lim , 07 0000 0 +0 01049 sel 2 0500 01054 eim , 06 0000 0 -0 01059 sgn t 12 6185 6a85 set switch for good interrupt 01064 iof 3 0000 turn on art + interrupt 01069 tr 1 1079 01074 trs o 09 1129 1js9 01079 lim , 07 0000 0 +0 01084 adm 6 12 6185 6a85 reset switch 7 01089 tra i 01 1129 11s9 error routine 01094 sel 2 0500 01099 wr r 1135 01104 tra i 03 1114 11a4 01109 tr 1 1129 01114 tip , 14 1119 1aj9 01119 hlt j 0008 01124 lip , 15 3700 3g+0 01129 tra i 02 1039 10l9 01134 tr 1 1144 7 7 constants + work area 2 004 01138 0008 2 001 01139 | 7 7 routine 9 7 go into interrupt mode + test 7 for non stop + interrupt on 7 main program. 7 use 900 check to cause 7 interrupt 7 01144 eem 3 14 0000 0+-0 01149 lim , 07 0000 0 +0 01154 eim , 06 0000 0 -0 01159 sgn t 12 6185 6a85 set switch for good interrupt 01164 tr 1 1168 turn 900 on + interrupt 01169 nop a 0000 01174 trs o 10 1184 1jq4 01179 tr 1 1234 01184 adm 6 12 6185 6a85 reset switch 01189 lim , 07 0000 0 +0 7 01194 tra i 01 1234 12t4 error routine 01199 sel 2 0500 01204 wr r 1250 01209 tra i 03 1219 12a9 01214 tr 1 1234 01219 tip , 14 1224 1bk4 01224 hlt j 0009 01229 lip , 15 3700 3g+0 01234 tra i 02 1144 11m4 01239 tr 1 1249 7 7 constants + work area 2 004 01243 0009 2 001 01244 | 7 7 routine 10 7 go into interrupt mode + test 7 for nonstop + interrupt on 7 main program. 7 use 901 check to cause 7 interrupt. 7 01249 eem 3 14 0000 0+-0 01254 lim , 07 0000 0 +0 01259 eim , 06 0000 0 -0 01264 sb % 08 1354 1l54 01269 sgn t 12 6185 6a85 set switch for good interrupt 01274 sb % 09 1354 1lv4 turn on 901 + interrupt 01279 trs o 11 1289 1kh9 01284 tr 1 1339 01289 adm 6 12 6185 6a85 reset switch 01294 lim , 07 0000 0 +0 7 01299 tra i 01 1339 13t9 error routine 01304 sel 2 0500 01309 wr r 1345 01314 tra i 03 1324 13b4 01319 tr 1 1339 01324 tip , 14 1329 1ck9 01329 hlt j 0010 01334 lip , 15 3700 3g+0 01339 tra i 02 1249 12m9 01344 tr 1 1359 7 7 constants + work area 2 004 01348 0010 2 001 01349 | 2 005 01354 00001 7 7 7 routine 11 7 go into interrupt mode + test 7 for nonstop + interrupt 7 on main program. 7 use 902 chk to cause 7 interrupt 7 01359 eem 3 14 0000 0+-0 01364 lim , 07 0000 0 +0 01369 spc , 3700 set casu 15 to turn on 01374 set b 0008 902 chk 01379 lod 8 1484 01384 set b 0032 01389 eim , 06 0000 0 -0 01394 sgn t 12 6185 6a85 set switch for good interrupt 01399 lip , 15 0009 0++9 correct interrupt 01404 trs o 12 1414 1d14 01409 tr 1 1464 01414 adm 6 12 6185 6a85 reset switch 01419 lim , 07 0000 0 +0 7 01424 tra i 01 1464 14w4 error routine 01429 sel 2 0500 01434 wr r 1470 01439 tra i 03 1449 14d9 01444 tr 1 1464 01449 tip , 14 1454 1dn4 01454 hlt j 0011 01459 lip , 15 3700 3g+0 01464 tra i 02 1359 13n9 01469 tr 1 1489 7 7 constants + work area 2 004 01473 0011 2 001 01474 | 2 006 01480 -+m- 3 01484 1404 1404 7 7 7 routine 12 7 go into interrupt mode + test 7 for nonstop + interrupt 7 on main program. 7 use 903 chk to cause 7 interrupt. 7 01489 eem 3 14 0000 0+-0 01494 lim , 07 0000 0 +0 01499 spc , 3700 set casu 15 to turn on 01504 set b 0008 903 ch 01509 lod 8 1609 01514 set b 0032 01519 eim , 06 0000 0 -0 01524 sgn t 12 6185 6a85 set switch for good interrupt 01529 lip , 15 0009 0++9 correct interrupt 01534 trs o 13 1544 1eu4 01539 tr 1 1594 01544 adm 6 12 6185 6a85 reset switch 01549 lim , 07 0000 0 +0 7 01554 tra i 01 1594 15z4 error routine 01559 sel 2 0500 01564 wr r 1610 01569 tra i 03 1579 15g9 01574 tr 1 1594 01579 tip , 14 1584 1eq4 01584 hlt j 0012 01589 lip , 15 3700 3g+0 01594 tra i 02 1489 14q9 01599 tr 1 1619 7 7 constants + work area 2 006 01605 -++- 3 01609 1534 1534 2 004 01613 0012 2 001 01614 | 7 7 7 routine 13 7 go into interrupt mode + test 7 for nonstop + interrupt 7 on main program. 7 use 904 chk to cause 7 interrupt. 7 01619 eem 3 14 0000 0+-0 01624 lim , 07 0000 0 +0 01629 spc , 0000 01634 rad h 1724 01639 eim , 06 0000 0 -0 01644 sgn t 12 6185 6a85 set switch for good interrupt 01649 rnd e 0001 turn on 904 + interrupt 01654 trs o 14 1664 1fo4 01659 tr 1 1714 01664 adm 6 12 6185 6a85 reset switch 01669 lim , 07 0000 0 +0 7 01674 tra i 01 1714 17/4 error routine 01679 sel 2 0500 01684 wr r 1724 01689 tra i 03 1699 16i9 01694 tr 1 1714 01699 tip , 14 1704 1g-4 01704 hlt j 0013 01709 lip , 15 3700 3g+0 01714 tra i 02 1619 16j9 01719 tr 1 1734 7 7 constants + work area 2 005 01724 000ag 2 004 01728 0013 2 001 01729 | 7 7 7 routine 14 7 go into interrupt mode + test 7 for nonstop + interrupt 7 on main program. 7 use 905 check to cause 7 interrupt 7 01734 eem 3 14 0000 0+-0 01739 lim , 07 0000 0 +0 01744 spc , 0000 01749 eim , 06 0000 0 -0 01754 sgn t 12 6185 6a85 set switch for good interrupt 01759 rad h 1839 turn on 905 interrupt 01764 trs o 15 1774 1gg4 01769 tr 1 1824 01774 adm 6 12 6185 6a85 reset switch 01779 lim , 07 0000 0 +0 7 01784 tra i 01 1824 18s4 01789 sel 2 0500 01794 wr r 1830 01799 tra i 03 1809 18+9 01804 tr 1 1824 01809 tip , 14 1814 1hj4 01814 hlt j 0014 01819 lip , 15 3700 3g+0 01824 tra i 02 1734 17l4 01829 tr 1 1844 7 7 constants + work area 2 004 01833 0014 2 001 01834 | 2 005 01839 00000 7 7 7 routine 15 7 test blocking of 1w 250 when 7 rww is on in interrupt mode 7 use sb 08 to force 901 + send 7 to clear rww tgr. also check 7 retention of mpx signal 7 01844 eem 3 14 0000 0+-0 01849 lim , 07 0000 0 +0 01854 spc , 0000 put zeros at end of 01859 set b 0000 memory block 01864 set b 0010 01869 unl 7 19999 z999 01874 set b 0002 safety for send operation 01879 rww s 19994 z994 01884 sb % 08 1999 1r99 01889 eim , 06 0000 0 -0 01894 sgn t 12 6185 6a85 set switch for good interrupt 01899 sb % 09 1999 1rz9 01904 trs o 11 1914 1ra4 01909 tr 1 1934 01914 snd / 19994 z994 01919 nop a 0000 correct interrupt 01924 tr 1 1934 01929 tr 1 1989 01934 adm 6 12 6185 6a85 reset switch 01939 snd / 19994 z994 turn off rww 01944 lim , 07 0000 0 +0 7 01949 tra i 01 1989 19y9 error routine 01954 sel 2 0500 01959 wr r 2000 01964 tra i 03 1974 19g4 01969 tr 1 1989 01974 tip , 14 1979 1ip9 01979 hlt j 0015 01984 lip , 15 3700 3g+0 01989 tra i 02 1844 18m4 01994 tr 1 2009 7 7 constants + work area 2 005 01999 00001 2 004 02003 0015 2 001 02004 | 7 7 7 routine 16 7 test blocking of iw 250 when 7 eia is on in interrupt mode 7 use 901 chk with rww + snd 7 to delay interrupt for one 7 instruction .then use eia to 7 block interrupt till end op 7 is routed. 7 02009 eem 3 14 0000 0+-0 02014 lim , 07 0000 0 +0 02019 spc , 0000 02024 set b 0002 safety for send operation 02029 sb % 09 2154 2jv4 change test character 02034 sb % 08 2150 2j50 02039 eim , 06 0000 0 -0 02044 rww s 19994 z994 02049 sgn t 12 6185 6a85 set switch for good interrupt 02054 sb % 09 2150 2jv0 02059 snd / 19994 z994 02064 eia , 10 0000 0--0 02069 sb % 01 2074 20x4 reset test character 02074 nop a 2154 correct interrupt 02079 trs o 11 2094 2-i4 02084 rcv u 2154 02089 tzb . 01 2144 21u4 02094 adm 6 12 6185 6a85 reset switch 02099 lim , 07 0000 0 +0 7 02104 tra i 01 2144 21u4 error routine 02109 sel 2 0500 02114 wr r 2155 02119 tra i 03 2129 21b9 02124 tr 1 2144 02129 tip , 14 2134 2al4 02134 hlt j 0016 02139 lip , 15 3700 3g+0 02144 tra i 02 2009 20-9 02149 tr 1 2164 7 7 constants + work area 2 005 02154 10006 2 004 02158 0016 2 001 02159 | 7 7 routine 17 7 go into interrupt mode + test 7 for auto interrupt on 7 comma 13 op code 7 02164 eem 3 14 0000 0+-0 02169 lim , 07 0000 0 +0 02174 trs o 09 2179 2jx9 turn art off 02179 eim , 06 0000 0 -0 02184 sgn t 12 6185 6a85 set switch for good interrupt 02189 spc , 13 0005 0+ 5 correct interrupt 02194 trs o 10 2204 2k-4 02199 tr 1 2254 02204 adm 6 12 6185 6a85 reset switch 02209 lim , 07 0000 0 +0 7 02214 tra i 01 2254 22v4 error routine 02219 sel 2 0500 02224 wr r 2260 02229 tra i 03 2239 22c9 02234 tr 1 2254 02239 tip , 14 2244 2bm4 02244 hlt j 0017 02249 lip , 15 3700 3g+0 02254 tra i 02 2164 21o4 02259 tr 1 2269 7 7 constants + work area 2 004 02263 0017 2 001 02264 | 7 7 routine 18 7 test auto interrupt on 7 ion to typewriter in 7 705 iii mode 7 02269 eem 3 14 0000 0+-0 02274 lim , 07 0000 0 +0 02279 eim , 06 0000 0 -0 02284 lem 3 15 0000 0++0 02289 sel 2 0500 02294 sgn t 12 6185 6a85 set switch for good interrupt 02299 ion 3 0003 correct interrupt 02304 tr 1 2314 02309 trs o 09 2369 2lw9 02314 adm 6 12 6185 6a85 reset switch 02319 eem 3 14 0000 0+-0 02324 lim , 07 0000 0 +0 7 02329 tra i 01 2369 23w9 error routine 02334 sel 2 0500 02339 wr r 2375 02344 tra i 03 2354 23e4 02349 tr 1 2369 02354 tip , 14 2359 2cn9 02359 hlt j 0018 02364 lip , 15 3700 3g+0 02369 tra i 02 2269 22o9 02374 tr 1 2384 7 7 constants + work area 2 004 02378 0018 2 001 02379 | 7 7 routine 19 7 test auto interrupt on 4/9 7 check on indirect address 7 in 705 III mode 7 02384 eem 3 14 0000 0+-0 02389 lim , 07 0000 0 +0 02394 eim , 06 0000 0 -0 02399 lem 3 15 0000 0++0 02404 sgn t 12 6185 6a85 set switch for good interrupt 02409 nop a 17xxx xxxx turn on 900 chk + interrupt 02414 trs o 10 2424 2mk4 02419 tr 1 2479 02424 adm 6 12 6185 6a85 reset switch 02429 eem 3 14 0000 0+-0 02434 lim , 07 0000 0 +0 7 02439 tra i 01 2479 24x9 error routine 02444 sel 2 0500 02449 wr r 2486 02454 tra i 03 2464 24f4 02459 tr 1 2479 02464 tip , 14 2469 2do9 02469 hlt j 0019 02474 lip , 15 3700 3g+0 02479 tra i 02 2384 23q4 02484 tr 1 2494 7 7 constants + work area 2 004 02488 0019 2 001 02489 | 7 7 routine 20 7 test auto interrupt on 7 forced 901 chk on tzb 7 in 705 iii mode 7 02494 eem 3 14 0000 0+-0 02499 lim , 07 0000 0 +0 02504 eim , 06 0000 0 -0 02509 lem 3 15 0000 0++0 02514 sb % 08 2619 2o19 02519 sgn t 12 6185 6a85 set switch for good interrupt 02524 rcv u 2619 02529 tzb . 01 2534 25t4 turn on 901 chk + interrupt 02534 trs o 11 2549 2nd9 02539 sb % 08 2619 2o19 02544 tr 1 2609 02549 adm 6 12 6185 6a85 reset switch 02554 sb % 08 2619 2o19 02559 eem 3 14 0000 0+-0 02564 lim , 07 0000 0 +0 7 02569 tra i 01 2609 26 9 error routine 02574 sel 2 0500 02579 wr r 2620 02584 tra i 03 2594 25i4 02589 tr 1 2609 02594 tip , 14 2599 2er9 02599 hlt j 0020 02604 lip , 15 3700 3g+0 02609 tra i 02 2494 24r4 02614 tr 1 2629 7 7 constants + work area 2 005 02619 0000f 2 004 02623 0020 2 001 02624 | 7 7 routine 21 7 test auto interrupt on 7 forced 904 check on 7 add in 705 iii mode 7 02629 eem 3 14 0000 0+-0 02634 lim , 07 0000 0 +0 02639 eim , 06 0000 0 -0 02644 spc , 0000 02649 lem 3 15 0000 0++0 02654 rad h 2744 02659 sgn t 12 6185 6a85 set switch for good interrupt 02664 add g 2744 turn on 904 chk + interrupt 02669 trs o 14 2679 2fp9 02674 tr 1 2734 02679 adm 6 12 6185 6a85 reset switch 02684 eem 3 0000 02689 lim , 07 0000 0 +0 7 02694 tra i 01 2734 27t4 error routine 02699 sel 2 0500 02704 wr r 2745 02709 tra i 03 2719 27a9 02714 tr 1 2734 02719 tip , 14 2724 2gk4 02724 hlt j 0021 02729 lip , 15 3700 3g+0 02734 tra i 02 2629 26k9 02739 tr 1 2754 7 7 constants + work area 2 005 02744 000ag 2 004 02748 0020 2 001 02749 | 7 7 routine 22 7 test auto interrupt on 7 force 905 chk on 7 rsu in 705 iii mode 7 02754 eem 3 14 0000 0+-0 02759 lim , 07 0000 0 +0 02764 eim , 06 0000 0 -0 02769 lem 3 15 0000 0++0 02774 sgn t 12 6185 6a85 set switch for good interrupt 02779 rsu q 2859 turn on 905 chk + interrupt 02784 trs o 15 2794 2gi4 02789 tr 1 2849 02794 adm 6 12 6185 6a85 reset switch 02799 eem 3 14 0000 0+-0 02804 lim , 07 0000 0 +0 7 02809 tra i 01 2849 28u9 error routine 02814 sel 2 0500 02819 wr r 2860 02824 tra i 03 2834 28c4 02829 tr 1 2849 02834 tip , 14 2839 2hl9 02839 hlt j 0022 02844 lip , 15 3700 3g+0 02849 tra i 02 2754 27n4 02854 tr 1 2869 7 7 constants + work area 2 005 02859 000g7 2 004 02863 0022 2 001 02864 | 7 7 7 routine 23 7 test ability to store status 7 of interrupt program in iw 250 7 using lip 2500 7 status stored is all check 7 triggers + any on 7 02869 eem 3 14 0000 0+-0 02874 lim , 07 0000 0 +0 02879 eim , 06 0000 0 -0 02884 spc , 3700 set up casu 15 with above test 02889 set b 0008 status + exit for first lip 02894 lod 8 3039 02899 set b 0032 02904 rww s 19994 z994 block all interrupts 02909 lip , 15 0009 0++9 all chk tgrs + any on 02914 spc , 3700 02919 set b 0008 02924 lod 8 3049 02929 spc , 0000 02934 set b 0002 safety for snd operation 02939 lip , 15 2500 2e+0 store status in iw 250 02944 lim , 07 0000 0 +0 02949 snd / 19994 z994 turn off rww 02954 spc , 2500 02959 set b 0008 02964 cmp 4 3059 02969 tip , 14 6104 6a-4 reset iw 250 02974 spc , 0000 02979 tre l 3024 7 02984 tra i 01 3024 30s4 error routine 02989 sel 2 0500 02994 wr r 3060 02999 tra i 03 3009 30+9 03004 tr 1 3024 03009 tip , 14 3014 3+j4 03014 hlt j 0023 03019 lip , 15 3700 3g+0 03024 tra i 02 2869 28o9 03029 tr 1 3069 7 7 constants + work area 2 006 03035 -gg- 3 03039 2914 2914 2 006 03045 -+-- 3 03049 2944 2944 2 006 03055 -gg- 3 03059 2944 2944 2 004 03063 0023 2 001 03064 | 7 7 7 routine 24 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs ic is stored in casu 15 7 use rwd to typewriter to 7 force interrupt 7 03069 tip , 14 6139 6al9 set iw 250 03074 eem 3 14 0000 0+-0 03079 lim , 07 0000 0 +0 03084 set b 0004 03089 lod 8 3214 reset memory field 03094 unl 7 6452 03099 sel 2 0500 03104 eim , 06 0000 0 -0 03109 sgn t 12 6325 6c25 bypass typeout in int program 03114 rwd 3 0002 correct interrupt 03119 adm 6 12 6325 6c25 reset bypass switch 03124 lim , 07 0000 0 +0 03129 trs o 09 3134 3jt4 03134 spc , 0000 03139 set b 0004 03144 lod 8 6452 03149 cmp 4 3209 check area in casu 15 03154 tre l 3199 7 03159 tra i 01 3199 31z9 error routine 03164 sel 2 0500 03169 wr r 3215 03174 tra i 03 3184 31h4 03179 tr 1 3199 03184 tip , 14 3189 3aQ9 03189 hlt j 0024 03194 lip , 15 3700 3g+0 03199 tra i 02 3069 30o9 03204 tr 1 3224 7 7 constants + work area 2 001 03205 0 3 03209 3119 3119 2 005 03214 00000 2 004 03218 0024 2 001 03219 | 7 7 routine 25 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs status is stored in 7 casu 15,status stored is 900 7 any + 7080 on , storage lo 7 accumulator not minus + not 7 zero , asu zero + not minus 7 03224 eem 3 14 0000 0+-0 03229 lim , 07 0000 0 +0 03234 set b 0004 reset memory field 03239 lod 8 3394 03244 cmp 4 3398 storage lo 03249 unl 7 6448 03254 rad h 3389 acc not minus + not zero 03259 eim , 06 0000 0 -0 03264 sgn t 12 6325 6c25 bypass typeout in int program 03269 rad h 01 3387 33y7 asu zero + not minus 03274 tr 1 3280 turn on 900 + interrupt 03279 nop a 0000 03284 adm 6 12 6325 6c25 reset bypass switch 03289 trs o 10 3294 3kr4 03294 tra i 3299 03299 trs o 09 3304 3l 4 03304 lim , 07 0000 0 +0 03309 spc , 0000 03314 set b 0004 03319 lod 8 6448 03324 cmp 4 3384 check area in casu 15 03329 tre l 3374 7 03334 tra i 01 3374 33x4 error routine 03339 sel 2 0500 03344 wr r 3395 03349 tra i 03 3359 33e9 03354 tr 1 3374 03359 tip , 14 3364 3co4 03364 hlt j 0025 03369 lip , 15 3700 3g+0 03374 tra i 02 3224 32k4 03379 tr 1 3404 7 7 constants + work area 2 005 03384 kdj+ 2 005 03389 0a+aa 2 005 03394 0//// 2 004 03398 0025 2 001 03399 | 7 7 routine 26 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs status is stored in 7 casu 15,status stored is 901, 7 any + 7080 on , storage lo 7 accumulator not minus + not 7 zero, asu zero + not minus 7 03404 eem 3 14 0000 0+-0 03409 lim , 07 0000 0 +0 03414 set b 0004 reset memroy field 03419 lod 8 3574 03424 cmp 4 3578 storage lo 03429 unl 7 6448 03434 rad h 3569 acc not minus + not zero 03439 eim , 06 0000 0 -0 03444 sgn t 12 6325 6c25 bypass typeout in int program 03449 rad h 01 3567 35w7 asu zero + not minus 03454 sb % 08 3565 3n65 03459 sb % 09 3565 3nw5 turn on 901 + interrupt 03464 adm 6 12 6325 6c25 reset bypass switch 03469 trs o 11 3474 3mg4 03474 tra i 3479 03479 trs o 09 3484 3my4 03484 lim , 07 0000 0 +0 03489 spc , 0000 03494 set b 0004 03499 lod 8 6448 03504 cmp 4 3564 check area in casu 15 03509 tre l 3554 7 03514 tra i 01 3554 35v4 error routine 03519 sel 2 0500 03524 wr r 3575 03529 tra i 03 3539 35c9 03534 tr 1 3554 03539 tip , 14 3544 3em4 03544 hlt j 0026 03549 lip , 15 3700 3g+0 03554 tra i 02 3404 34-4 03559 tr 1 3584 7 7 constants + work area 2 005 03564 kdj+ 2 005 03569 1a+aa 2 005 03574 0//// 2 004 03578 0026 2 001 03579 | 7 7 routine 27 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs status is stored in 7 casu 15, status stored is 904 7 any + 7080 on , storage lo 7 accumulator minus + not 7 zero,asu not zero + not minus 7 03584 eem 3 14 0000 0+-0 03589 lim , 07 0000 0 +0 03594 set b 0004 reset memory field 03599 lod 8 3744 03604 cmp 4 3748 03609 unl 7 6448 storage lo 03614 eim , 06 0000 0 -0 03619 sgn t 12 6325 6c25 bypass typeout in int program 03624 rsu q 3739 acc minus + not zero 03629 sub p 3737 turn on 904 + interrupt 03634 adm 6 12 6325 6c25 reset bypass switch 03639 trs o 14 3644 3fm4 03644 tra i 3649 03649 trs o 09 3654 3ov4 03654 lim , 07 0000 0 +0 03659 spc , 0000 03664 set b 0004 03669 lod 8 6448 03674 cmp 4 3734 check area in casu 15 03679 tre l 3724 7 03684 tra i 01 3724 37s4 error routine 03689 sel 2 0500 03694 wr r 3745 03699 tra i 03 3709 37+9 03704 tr 1 3724 03709 tip , 14 3714 3gj4 03714 tra i 02 3584 35q4 03719 hlt j 0027 03724 tra i 02 3584 35q4 03729 tr 1 3754 7 7 constants + work area 2 005 03734 ke-j 2 005 03739 a9iaa 2 005 03744 0//// 2 004 03748 0027 2 001 03749 | 7 7 routine 28 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs status is stored in 7 casu 15, status stored is 905 7 any on,7080 off, storage lo 7 accumulator not minus + not 7 zero,asu not zero + not minus 7 03754 eem 3 14 0000 0+-0 03759 lim , 07 0000 0 +0 03764 set b 0004 reset memory field 03769 lod 8 3919 03774 cmp 4 3923 03779 unl 7 6448 storage lo 03784 eim , 06 0000 0 -0 03789 lem 3 15 0000 0++0 7080 off 03794 sgn t 12 6325 6c25 bypass typeout in int program 03799 rsu q 01 3914 39/4 turn on 905 + interrupt 03804 adm 6 12 6325 6c25 reset bypass switch 03809 trs o 15 3814 3ha4 03814 tra i 3819 03819 eem 3 14 0000 0+-0 03824 trs o 09 3829 3qs9 03829 lim , 07 0000 0 +0 03834 spc , 0000 03839 set b 0004 03844 lod 8 6448 03849 cmp 4 3909 check area in casu 15 03854 tre l 3899 7 03859 tra i 01 3899 38z9 error routine 03864 sel 2 0500 03869 wr r 3920 03874 tra i 03 3884 38h4 03879 tr 1 3899 03884 tip , 14 3889 3hq9 03889 hlt j 0028 03894 lip , 15 3700 3g+0 03899 tra i 02 3754 37n4 03904 tr 1 3929 7 7 constants + work area 2 005 03909 k0-k 2 005 03914 000a7 2 005 03919 0//// 2 004 03923 0028 2 001 03924 | 7 7 routine 29 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs status is stored in 7 casu 15, status stored is 7 901,any + 7080 tgrs on 7 storage equal, asu and 7 accumulator minus + not zero 7 03929 eem 3 14 0000 0+-0 03934 lim , 07 0000 0 +0 03939 set b 0004 03944 lod 8 4104 03949 cmp 4 4104 storage equal 03954 unl 7 6448 03959 spc , 0000 03964 rsu q 4099 acc minus + not zero 03969 eim , 06 0000 0 -0 03974 sb % 08 4095 4-95 03979 sgn t 12 6325 6c25 bypass typeout in int program 03984 rsu q 01 4099 40z9 asu minus + not zero 03989 sb % 09 4095 4-z5 turn on 901 + interrupt 03994 adm 6 12 6325 6c25 reset bypass switch 03999 tra i 4004 04004 trs o 11 4009 4-+9 04009 trs o 09 4014 4-/4 04014 lim , 07 0000 0 +0 04019 spc , 0000 04024 set b 0004 04029 lod 8 6448 04034 cmp 4 4094 check area in casu 15 04039 tre l 4084 7 04044 tra i 01 4084 40y4 error routine 04049 sel 2 0500 04054 wr r 4105 04059 tra i 03 4069 40f9 04064 tr 1 4084 04069 tip , 14 4074 4+p4 04074 hlt j 0029 04079 lip , 15 3700 3g+0 04084 tra i 02 3929 39k9 04089 tr 1 4114 7 7 constants + work area 2 005 04094 -dkl 2 005 04099 100ag 2 005 04104 00000 2 004 04108 0028 2 001 04109 | 7 7 routine 30 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs status is stored in 7 casu 15, status stored is 7 905, any + 7080 tgrs on 7 storage equal, asu and 7 accumulator minus + not zero 7 04114 eem 3 14 0000 0+-0 04119 lim , 07 0000 0 +0 04124 set b 0004 04129 lod 8 4279 04134 cmp 4 4279 storage equal 04139 unl 7 6448 04144 spc , 0000 04149 sgn t 12 6325 6c25 bypass typeout in int program 04154 eim , 06 0000 0 -0 04159 rsu q 01 4272 42x2 asu minus + not zero 04164 rsu q 4274 905 on,acc minus + not zero 04169 adm 6 12 6325 6c25 reset bypass switch 04174 tra i 4179 04179 trs o 15 4184 4ah4 04184 trs o 09 4189 4jy9 04189 lim , 07 0000 0 +0 04194 spc , 0000 04199 set b 0004 04204 lod 8 6448 04209 cmp 4 4269 04214 tre l 4259 7 04219 tra i 01 4259 42v9 error routine 04224 sel 2 0500 04229 wr r 4280 04234 tra i 03 4244 42d4 04239 tr 1 4259 04244 tip , 14 4249 4bm9 04249 hlt j 0030 04254 lip , 15 3700 3g+0 04259 tra i 02 4114 41j4 04264 tr 1 4289 7 7 constants + work area 2 005 04269 -f-l 2 005 04274 0aga7 2 005 04279 00000 2 004 04283 0030 2 001 04284 | 7 7 7 routine 31 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs spc is stored in 7 casu 15. use wtm to typewriter 7 to force interrupt. 7 04289 eem 3 14 0000 0+-0 04294 lim , 07 0000 0 +0 04299 set b 0004 04304 lod 8 4429 reset memory field 04309 unl 7 6444 04314 spc , 2735 test storage of this address 04319 sel 2 0500 in casu 15 04324 eim , 06 0000 0 -0 04329 sgn t 12 6325 6c25 bypass typeout in int program 04334 wtm 3 0001 correct interrupt 04339 adm 6 12 6325 6c25 reset bypass switch 04344 lim , 07 0000 0 +0 04349 trs o 09 4354 4lv4 04354 spc , 0000 04359 set b 0004 04364 lod 8 6444 check area in casu 15 04369 cmp 4 4434 04374 tre l 4419 7 04379 tra i 01 4419 44/9 error routine 04384 sel 2 0500 04389 wr r 4435 04394 tra i 03 4404 44+4 04399 tr 1 4419 04404 tip , 14 4409 4d-9 04409 hlt j 0031 04414 lip , 15 3700 3g+0 04419 tra i 02 4289 42q9 04424 tr 1 4444 7 7 constants + work area 2 005 04429 00000 2 005 04434 02735 2 004 04438 0031 2 001 04439 | 7 7 routine 32 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs spc is stored in 7 casu 15. use wtm to typewriter 7 to force interrupt. 7 04444 eem 3 14 0000 0+-0 04449 lim , 07 0000 0 +0 04454 set b 0004 reset memory field 04459 lod 8 4584 04464 unl 7 6444 04469 spc , 0512 test storage of this address 04474 sel 2 0500 in casu 15 04479 eim , 06 0000 0 -0 04484 sgn t 12 6325 6c25 bypass typeout in int program 04489 wtm 3 0001 correct interrupt 04494 adm 6 12 6325 6c25 reset bypass switch 04499 lim , 07 0000 0 +0 04504 trs o 09 4509 4n 9 04509 spc , 0000 04514 set b 0004 04519 lod 8 6444 04524 cmp 4 4589 04529 tre l 4574 7 04534 tra i 01 4574 45x4 error routine 04539 sel 2 0500 04544 wr r 4590 04549 tra i 03 4559 45e9 04554 tr 1 4574 04559 tip , 14 4564 4eo4 04564 hlt j 0032 04569 lip , 15 3700 3g+0 04574 tra i 02 4444 44m4 04579 tr 1 4599 7 7 constants + work area 2 005 04584 00000 2 005 04589 00512 2 004 04593 0032 2 001 04594 | 7 7 routine 33 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs mac II is stored in 7 casu 15. use skp to typewriter 7 to force interrupt. 7 04599 eem 3 14 0000 0+-0 04604 lim , 07 0000 0 +0 04609 set b 0004 reset memory field 04614 lod 8 4739 04619 unl 7 6436 04624 sel 2 0500 04629 rcv u 1469+ u69+ test storage of this address 04634 sgn t 12 6325 6c25 bypass typeout in int program 04639 eim , 06 0000 0 -0 04644 skp 3 0009 correct interrupt 04649 adm 6 12 6325 6c25 reset bypass switch 04654 lim , 07 0000 0 +0 04659 trs o 09 4664 4ow4 04664 spc , 0000 04669 set b 0004 04674 lod 8 6444 04679 cmp 4 4589 check area in casu 15 04684 tre l 4574 7 04689 tra i 01 4729 47s9 error routine 04694 sel 2 0500 04699 wr r 4745 04704 tra i 03 4714 47a4 04709 tr 1 4729 04714 tip , 14 4719 4gj9 04719 hlt j 0033 04724 lip , 15 3700 3g+0 04729 tra i 02 4599 45r9 04734 tr 1 4754 7 7 constants + work area 2 005 04739 00000 2 005 04744 0u69+ 2 004 04748 0033 2 001 04749 | 7 7 routine 34 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs sr is stored in casu 15 7 use bwp to typewriter to 7 force interrupt. 7 04754 eem 3 14 0000 0+-0 04759 lim , 07 0000 0 +0 04764 set b 0004 reset memory field 04769 lod 8 4889 04774 unl 7 6428 04779 sel 2 0500 test storage of this address 04784 eim , 06 0000 0 -0 in casu 15 04789 sgn t 12 6325 6c25 bypass typeout in int program 04794 bsp 3 0004 correct interrupt 04799 adm 6 12 6325 6c25 reset bypass switch 04804 lim , 07 0000 0 +0 04809 trs o 09 4814 4q/4 04814 spc , 0000 04819 set b 0004 04824 lod 8 6428 04829 cmp 4 4894 04834 tre l 4879 7 04839 tra i 01 4879 48x9 error routine 04844 sel 2 0500 04849 wr r 4895 04854 tra i 03 4864 48f4 04859 tr 1 4879 04864 tip , 14 4869 4ho9 04869 hlt j 0034 04874 lip , 15 3700 3g+0 04879 tra i 02 4754 47n4 04884 tr 1 4904 7 7 constants + work area 2 005 04889 00000 2 005 04894 00500 2 004 04898 0034 2 001 04899 | 7 7 7 routine 35 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs sr is stored in casu 15 7 select 800 + bsp to 7 force interrupt. 7 04904 eem 3 14 0000 0+-0 04909 lim , 07 0000 0 +0 04914 set b 0004 reset memory field 04919 lod 8 5099 04924 unl 7 6428 04929 sel 2 0800 test storage of this address 04934 eim , 06 0000 0 -0 in casu 15 04939 sgn t 12 6325 6c25 bypass typeout in int program 04944 bsp 3 0004 correct interrupt 04949 adm 6 12 6325 6c25 reset bypass switch 04954 lim , 07 0000 0 +0 04959 trs o 09 4964 4rw4 04964 spc , 0000 04969 set b 0004 04974 lod 8 6428 04979 cmp 4 5104 04984 tre l 4994 04989 tr 1 5049 04994 sgn t 12 6325 6c25 bypass typeout in int program 04999 eim , 06 0000 0 -0 05004 bsp 3 0004 correct interrupt 05009 adm 6 12 6325 6c25 reset bypass switch 05014 lim , 07 0000 0 +0 05019 trs o 09 5024 5-s4 05024 spc , 0000 05029 set b 0004 05034 lod 8 6428 05039 cmp 4 5104 05044 tre l 5089 7 05049 tra i 01 5089 50y9 error routine 05054 sel 2 0500 05059 wr r 5105 05064 tra i 03 5074 50g4 05069 tr 1 5089 05074 tip , 14 5079 5+p9 05079 hlt j 0035 05084 lip , 15 3700 3g+0 05089 tra i 02 4904 49-4 05094 tr 1 5114 7 7 constants + work area 2 005 05099 00000 2 005 05104 00800 2 004 05108 0035 2 001 05109 | 7 7 routine 36 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs spc is reset to 2000. 7 use sdl to typeriter to 7 force interrupt. 7 05114 eem 3 14 0000 0+-0 05119 lim , 07 0000 0 +0 05124 spc , 0000 05129 set b 0004 reset memory field 05134 lod 8 5264 05139 unl 7 6459 05144 spc , 2000 05149 set b 0005 load test field 05154 lod 8 5269 05159 spc , 0000 05164 sel 2 0500 05169 eim , 06 0000 0 -0 05174 sgn t 12 6325 6c25 bypass typeout in int program 05179 sdl 3 0037 correct interrupt 05184 adm 6 12 6325 6c25 reset bypass switch 05189 lim , 07 0000 0 +0 05194 trs o 09 5199 5jz9 05199 lod 8 6459 05204 cmp 4 5274 check area in channel 20 05209 tre l 5252 7 05214 tra i 01 5254 52v4 error routine 05219 sel 2 0500 05224 wr r 5275 05229 tra i 03 5239 52c9 05234 tr 1 5254 05239 tip , 14 5244 5bm4 05244 hlt j 0036 05249 lip , 15 3700 3g+0 05254 tra i 02 5114 51j4 05259 tr 1 5284 7 7 constants + work area 2 005 05264 00000 2 005 05269 a5269 2 004 05274 a5269 2 004 05278 0036 2 001 05279 | 7 7 routine 37 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs ic,status,spc,mac ii 7 + sr are stored in correct 7 places in casu 15 7 05284 eem 3 14 0000 0+-0 05289 lim , 07 0000 0 +0 05294 set b 0028 05299 lod 8 5262 05304 unl 7 6452 05309 set b 0001 05314 cmp 4 5486 storage hi 05319 spc , 3700 05324 rcv u 28731 q731 05329 sel 2 0500 05334 eim , 06 0000 0 -0 05339 sgn t 12 6325 6c25 bypass typeout in int program 05344 sdl 3 0037 correct interrupt 05349 adm 6 12 6325 6c25 reset bypass switch 05354 lim , 07 0000 0 +0 05359 trs o 09 5364 5lw4 05364 spc , 0000 05369 set b 0028 05374 lod 8 6452 05379 cmp 4 5490 check area in channel 20 05384 tre l 5429 7 05389 tra i 01 5429 54s9 error routine 05394 sel 2 0500 05399 wr r 5495 05404 tra i 03 5414 54a4 05409 tr 1 5429 05414 tip , 14 5419 5dj9 05419 hlt j 0037 05424 lip , 15 3700 3g+0 05429 tra i 02 5284 52q4 05434 tr 1 5504 7 7 constants + work area 2 014 05448 00000000000000 2 014 05462 00000000000000 2 024 05486 05000000q73100003700j+-m 3 05490 5349 5349 2 004 05494 -- 2 004 05498 0037 2 001 05499 | 7 7 7 routine 38 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs mac ii is stored in 7 casu 15. use skp to typewriter 7 to force interrupt 7 05504 eem 3 14 0000 0+-0 05509 lim , 07 0000 0 +0 05514 set b 0004 05519 lod 8 5644 05524 unl 7 6436 05529 sel 2 0500 05534 rcv u 32056 b056 05539 sgn t 12 6325 6c25 bypass typeout in int program 05544 eim , 06 0000 0 -0 05549 skp 3 0009 correct interrupt 05554 adm 6 12 6325 6c25 reset bypass switch 05559 lim , 07 0000 0 +0 05564 trs o 09 5569 5nw9 05569 spc , 0000 05574 set b 0004 05579 lod 8 6436 05584 cmp 4 5649 check area in casu 15 05589 tre l 5634 7 05594 tra i 01 5634 56t4 error routine 05599 sel 2 0500 05604 wr r 5650 05609 tra i 03 5619 56a9 05614 tr 1 5634 05619 tip , 14 5624 5fk4 05624 hlt j 0038 05629 lip , 15 3700 3g+0 05634 tra i 02 5504 55-4 05639 tr 1 5659 7 7 constants + work area 2 005 05644 00000 2 005 05649 0b056 2 004 05653 0038 2 001 05654 | 7 7 7 routine 39 7 go into interrupt mode + test 7 perform series of arithmatic 7 operations without forcing 7 interrupts. typeout any wild 7 interrupt 7 05659 eem 3 14 0000 0+-0 05664 lim , 07 0000 0 +0 05669 eim , 06 0000 0 -0 05674 spc , 0000 05679 rad h 5834 put 4 in accumulator 05684 set b 0004 05689 add g 5832 add 5 05694 mpy v 5830 multiply result by 8 05699 set b 0004 05704 unl 7 5854 05709 spc , 0000 05714 set b 0004 05719 lod 8 5854 05724 div w 5839 divide by 12 05729 set b 0004 05734 unl 7 5854 05739 spc , 0000 05744 set b 0004 05749 lod 8 5854 put 6 in accumulator 05754 add g 5828 add 3 05759 sub p 5826 subtract 2 05764 cmp 4 5849 compare 7 05769 lim , 07 0000 0 +0 05774 tre l 5819 7 05779 tra i 01 5819 58/9 error routine 05784 sel 2 0500 05789 wr r 5840 05794 tra i 03 5804 58+4 05799 tr 1 5819 05804 tip , 14 5809 5h-9 05809 hlt j 0039 05814 lip , 15 3700 3g+0 05819 tra i 02 5659 56n9 05824 tr 1 5859 7 7 constants + work area 2 010 05834 abacahaead 2 005 05839 00a1b 2 004 05843 0039 2 001 05844 | 2 005 05849 00007 2 005 05854 7 7 7 routine 40 7 go into interrupt mode + test 7 that when automatic interrupt 7 occurs sr is stored in casu 15 7 use 904 to force interrupt 7 05859 eem 3 14 0000 0+-0 05864 lim , 07 0000 0 +0 05869 set b 0004 reset memory field 05874 lod 8 6009 05879 unl 7 6428 05884 sel 2 0902 test storage of this address 05889 rad h 6024 05894 sgn t 12 6325 6c25 bypass typeout in int program 05899 eim , 06 0000 0 -0 05904 add g 6022 turn on 904 + interrupt 05909 adm 6 12 6325 6c25 reset bypass switch 05914 trs o 14 5919 5ij9 05919 tra i 5924 05924 lim , 07 0000 0 +0 05929 trs o 09 5934 5rt4 05934 spc , 0000 05939 set b 0004 05944 lod 8 6428 05949 cmp 4 6014 check area in casu 15 05954 tre l 5999 7 05959 tra i 01 5999 59z9 error routine 05964 sel 2 0500 05969 wr r 6015 05974 tra i 03 5984 59h4 05979 tr 1 5999 05984 tip , 14 5989 5iq9 05989 hlt j 0040 05994 lip , 15 3700 3g+0 05999 tra i 02 5859 58n9 06004 tr 1 6029 7 7 constants + work area 2 005 06009 00000 2 005 06014 00902 2 004 06018 0040 2 001 06019 | 2 005 06024 a9iaa 7 7 06029 sel 2 0500 06034 wr r 6075 06039 sel 2 0914 06044 trs o 0004 06049 sel 2 0500 06054 wr r 6080 06059 tip , 14 6064 6+o4 06064 hlt j 9999 06069 lip , 15 3700 3g+0 06074 tr 1 18219 y219 7 7 constants + work area 2 001 06075 z 2 001 06076 | 2 003 06079 2 019 06098 turn non stop off 2 001 06099 | 7 7 7 sub routine 1 7 set iw 250 with location 7 and status for transfer to 7 sub routine 3 06104 spc , 2500 06109 set b 0008 06114 lod 8 6134 06119 set b 0032 06124 lip , 15 0009 0++9 7 7 constants + work area 2 006 06130 -+-- 3 06134 6174 6174 7 7 sub routine 2 7 set iw 250 with location 7 and status for transfer to 7 sub routine 4 06139 spc , 2500 06144 set b 0008 06149 lod 8 6169 06154 set b 0032 06159 lip , 15 0009 0++9 7 7 constants + work area 2 006 06165 -+-- 3 06169 6309 6309 7 7 sub routine 3 7 for routines 1 through 23 7 on all interrupts reset chk 7 trgs.on good interrupts step 7 ic plus 5. for bad interrupts 7 typeout ic location + in some 7 routines also step ic plus 5 7 06174 eem 3 14 0000 0+-0 06179 spc , 3700 06184 set b 0004 06189 nop a 6239 switch to bypass typeout 06194 trs o 09 6199 6jz9 06199 sub p 6289 06204 unl 7 6296 06209 tra i 01 6224 62s4 06214 sel 2 0500 06219 wr r 6290 06224 add g 6289 06229 nop a 6239 switch 2 06234 tr 1 6244 06239 add g 6289 add 5 to address in casu 15 06244 spc , 3704 06249 lfc , 02 6284 62q4 reset check triggers 06254 spc , 0000 06259 adm 6 12 6185 6a85 reset switch 1 06264 adm 6 12 6225 6b25 reset switch 2 06269 spc , 2000 06274 lim , 07 0000 0 +0 06279 lip , 15 0009 0++9 7 7 constants + work area 2 005 06284 -+-- 2 005 06289 000ae 2 009 06298 ic- 2 001 06299 | 2 005 06304 7 7 7 sub routine 4 7 for routines 24 through 40 7 on all interrupts reset chk 7 trgs + unload contents of 7 casu 15. on bad interrupts 7 typeout ic location 7 06309 set b 0005 06314 unl 7 6459 06319 spc , 3700 unload casu 15 in memory 06324 unl 7 6452 06329 nop a 6374 switch to bypass typeout 06334 spc , 0000 06339 set b 0004 06344 lod 8 6452 06349 sub p 6424 subtract 5 from address 06354 unl 7 6416 06359 tra i 01 6374 63x4 06364 sel 2 0500 06369 wr r 6410 06374 spc , 3704 06379 lfc , 02 6409 64-9 reset check triggers 06384 spc , 0000 06389 adm 6 12 6325 6c25 06394 spc , 2000 06399 lim , 07 0000 0 +0 06404 lip , 15 0009 0++9 7 7 constants + work area 2 005 06409 -+-- 2 009 06418 ic- 2 001 06419 | 2 005 06424 000ae 2 028 06452 2 007 06459 7 7