e444rs000b8 -+j +++ /orProgram Checkout l '///ä) ) SC 20064 K9-l0.0 Program Checkout l - Rel. Hex. m40k000l'l00jl'80040200'j0lkl'g0589'302w5'f0275'j00ql'20059' 2025k'l0lkl'w0lk5'g0lk9'w0lf5'g0589'w0lj9'g075l' w0599'g0589'f036l'40000000'4'l000l'l000l'j0lkl' 2029k'90l2k'w0l3l'g0l09'f0095'l0059'f007k'304g9' f04jl'f0059'2008k'l000l'f0099'l0lkl'304g9'f03f9' f02fk'4'q0l55'g0l2l'q0379'g02fk'200k9'f00kl' j000000''f034k'3wj00'l0345'204g9'l000l'f0459' l'30000'q034l'g057k'l0059'2054k'2035l'f0l0l'4lj280w4' m40k0l0l'20559'f054k'l0lkl'304g9'f0459'400'f02fk'f0225' q034l'g02fk'f0089'7ww0j002'2'40000'q029l'g00q9' w0325'g0l4k'f0589'l02kk'f039k'30000'20000'q0325' g038l'4'l004k'80200'f02jl'l000l'l035k'f039k' w3wwj'40000'q0l35'g0l39'w0l59'g0l5k'w0329'g0589' f04w5'2w0000'4wwq'q033k'g0l79'f05ll'9j004000'90000' www80000'20000'l00000'f''l00000'q0l85'g0l89' w0lj5'g0lfk'w034l'g02f5'f05wl'l'q0l35'g00f9'92280kl8' m40k020l'w00q5'g0089'f02fk'q0lg9'f0469'80040200'j032k'f0569' 800w3wwj'l0lkl'90l8l'w0lgk'g0lw9'w02wk'g0089'w03q9' g02fk'f0089'j004000'wwwwwwq'wwwwwwq'903lk'j0lkl'l000l' 304g9'f000l'f0405'k02ql'80040200'6032l'90509'j050k' 904gk'7028k'f02kl'k0000000'40000'l0525'204g9'l000l' f03f9'l04l9'f039k'l0059'w03qk'g02j5'f0l69'f0349' f02gk'q0055'20059'f007k'q050k'j032k'f02q9'f0459' '4000'900jk'702w9'q032k'f000l'f0000000'l0000'920w4k78' m40k030l'wwwj'l025k'f030k'304g9'f04jl'l0ljl'f0259'wwww0000' 4'l0000'l0000''w0705'j070k'f0l69'l0000' l0000'f02fk'f000l'l00j5'j000l'f0l69'l'f03f9' l0769'g0589'w0l3l'g07ll'f0589'j000000'7wwq0000'l0000' 302w5'f026k'q005l'20055'w032l'203qk'f0075'20265' f04k5'f04fk'80080200'80043q00'80080200'80043q00'80080200'80043q00' 80080200'80043q00'80080200'80043q00'80080200'80043q00'80080200'80043q00' 80080200'f04fk'40000'l000l'302w5'f026k'f033l'3wwj'8l8w7l48' m40k040l'4'l025k'w037k'g04lk'f0l69'l'f043l'q0l75' 2025k'q0lkl'g0255'f0305'80200'43q00'80200'43q00' 80200'43q00'80200'43q00'80200'f04fk'9022l'j05qk' g020k'q0249'80200'43q00'43q00'80200'l05qk'9059k' 50lf9'80080200'9025l'60ljk'80080200'9054l'5052k'80080200' 9024k'60ljk'80080200'l0375'80200'80200'f000l'3j3j0' 903wk'800g0l69'q0505'80200'f047k'302w5'f026k'f04ql' q040l'20l75'w0779'2037k'f0305'l0059'2050l'4'w5qgk884' m40k050l'f0000'40000000'3wwwj''302w5'f026k'w00ql'602q5' f053l'f02fk'20000'l3wwwwwq'q00ql'20569'k02ql'f02l5' wwwwwwq'l0''l000l'j00j5'l00j9'j000l'f0l69' 4'l032k'k000l'l02ql'w030l'g0l69'f05fl'q0529' g065l'f0589'l05fk'80200'f0l65'wwwj'g00000'3wwj' 20569'j02ql'f0565'94000000'l000l'9077k'w032k'g05j9' w005l'g06lk'l0359'w0595'g0l69'f05ql'l'4' 205gl'j0359'f05gl'l'302w5'f026k'w00ql'602q5'6q6kkfw4' m40k060l'q00ql'205gl'j0359'302w5'f026k'j032k'f05gl'l05gl' 2062k'304g9'f04jl'l000l'90lf5'q0249'43q00'43q00' 80200'f05j9'l'l'l00ql'206fk'w0705'g0669' w070k'g0589'k04l5'80040200'j070l'w072l'g06kl'q0545' 302w5'f0275'2070l'l070l'9073k'f06fk'j'q0699' f068l'k070l'80040200'j000l'f0l69'g06j5'w0l3l'g0589' q0l3l'k000l'k0769'f0l69'q056l'g069k'w0l3l'g06f5' k032k'40200'6056l'f06fk'302w5'f026k'j0705'f03wl'763g82g4' m20k070l'l'l'f0765'780'l00ql'20735'20749'f0725' l0'q056l'2076k'q056l'2077l'l000l'f074l'800w3wwj' j0769'l0709'j000l'f0l69'l076k'w05kk'206j5'l0769' f06g5'''f0000'f0000''4'3wwj'w2g4ww4j' s0000200' '///ä) ) SC 20065 K9-l0.0 Program Checkout l - Format Controlled Decimal PROGRAM CHECKOUT NO. l LGP-2l 0000 b0048' 3 at 5 000l 80xi0200' Prime read 0002 h0l52' BCD 0003 t0534' error 0004 r026l' Binarize address 0005 u0229' 0006 h0056' address 0007 y0022' 0008 y0223' 0009 b0l52' BCD 00l0 s0l53' l at ll 00ll t0l54' l char. or less 00l2 s0l4l' 2w,0000 X or R or S 00l3 t0534' error 00l4 s0l50' l at ll 00l5 t0720' -ve RS 00l6 s0538' ll at ll 00l7 t0534' error 00l8 u0324' SS ,0000002' 00l9 40000000' l at l 0020 00000004' l at 29 002l b0000' [ ] last + l fir P 0022 b0000' [ ] next to print 0023 h0l52' temp. 0024 y0239' get contents of address 0025 e0lll' 7ww0,j002 0026 s0ll2' l at 30 0027 t0l02' print instruction format 0028 u0037' print hex format 0029 b0022' P PRINT HERE 0030 u003l' 003l r0446' Print address 0032 u0448' 0033 u0022' 0034 y0035' set address for print contents hex 0035 b0000' get comtents 0036 u0038' 0037 b0l52' temp. 0038 r0446' Print hex 0039 u0342' 0040 u0243' go to end loop 004l xz000l' l at 29 0042 a0l2l' 3 at l5 0043 t0l08' -ve Z or B 0044 a0330' 7wwq,0000 0045 t0243' -ve I order 0046 y0054' R or Y order 0047 u0052' ,0000002' 0048 0j000000' temp. for R return 0049 00000000' 0050 u03l9' ,000000l' 005l 0003wj00' binarizing mask 0052 b03l7' u0243 0053 y0446' Print instruction exit 0054 b0000' word to print 0055 u0422' Print instruction 0056 z0000' address 0057 xr0000' 3 at l5 0058 a03l6' l at l5 0059 t053l' -ve storage or error 0060 b0022' R SET RETURN HERE 006l y05l9' 0062 y0320' 0063 u0l00' 0l00 y0522' 0l0l u05l9' 0l02 b0l52' temp. 0l03 r0446' Print instruction 0l04 u0422' 0l05 xz0400' BRANCH SWITCH 4 ON to skip printing of contents of address 0l06 u0243' skip 0l07 u0209' 0l08 a03l6' l at l5 0l09 t0243' Z skip 0ll0 u0034' B print hex ,0000003' 0lll 7ww0j002' mask 0ll2 00000002' l at 30 0ll3 00040000' 4 at l5 0ll4 a0236' 4 at l5 0ll5 t0058' 0 or l or 2 or R 0ll6 s0309' l at l5 I or 5 or 6 or 7 0ll7 t0ll9' I 0ll8 u0534' error 0ll9 b0255' u0422 0l20 u0339' 0l2l xr0000' 3 at l5 0l22 xy0000' 2 at l5 0l23 a0309' l at l5 0l24 t0332' -ve P 0l25 xz000l' l at 29 and error halt 0l26 b00l9' c. r. 0l27 xp0200' 0l28 u0248' delay 5 revolutions 0l29 b0000' last + l 0l30 b0323' u0342 H HERE 0l3l u0339' ,0000002' 0l32 000w3wwj' mask 0l33 00040000' 4 at l5 0l34 a0ll3' 4 at l5 0l35 t0ll4' 0 or l or 2 or R or 4 or 5 or 6 or 7 0l36 s0l22' 2 at l5 P or 9 or l0 or T 0l37 t0l23' -ve P or 9 0l38 s03l0' l at l5 l0 or T 0l39 t0534' error 0l40 u046l' T ,0000002' 0l4l 002w0000' 0l42 00004wwq' l0 at 20 - l at 30 0l43 a03l5' l at l5 0l44 t0l30' H 0l45 u0504' C ,0000008' 0l46 9j004000' "-" sign and order zone 0l47 00090000' 9 at l5 0l48 www80000' -8 at l5 0l49 00020000' 2 at l5 0l50 00l00000' l at ll 0l5l 0000000f' l0 at 3l 0l52 00000000' temp. 0l53 00l00000' l at ll 0l54 a0l33' l at ll - l2 at l5 [4 at l5] 0l55 t0l34' T or P or R or I or blank 0l56 s0l49' 2 at l5 H or C or A or S 0l57 t0l43' H or C 0l58 s03l6' l at l5 0l59 t024l' A 0l60 u0560' S 0l6l z0000' 0l62 a0ll3' 4 at l5 0l63 t0042' Z or I 0200 s0057' 3 at l5 D to P 020l t0034' D or N or M 0202 u0243' P 0203 a0l46' 9j00,4000 0204 u0426' 0205 80xi0200' read pattern for C 0206 h03ll' pattern 0207 u0526' 0208 80xs6363' mask 0209 b0l52' temp. 02l0 e0l32' w3wwj 02ll s0l47' 9 at l5 02l2 t0l62' Z to P 02l3 s0263' l at l5 02l4 t0034' E 02l5 s0358' 4 at l5 02l6 t0243' U to C skip 02l7 u0034' A or S print hex ,0000003' 02l8 0j004000' space and order zone 02l9 0wwwwwwq' mask 0220 0wwwwwwq' mask 022l e0307' wwww,0000 0222 h0l52' counter 0223 b0000' get next to print 0224 r0446' set common exit 0225 u0000' [ ] ALF 04l2 HEX 0342 INST 0422 0226 u040l' check loop 0227 c0256' dump 0228 80xi0200' 0229 n0308' l at 29 0230 e0502' 3wwwj 023l h0503' Tl 0232 e0447' 3j3j0 0233 m0235' -6 at 4 0234 u0252' ,0000002' 0235 k0000000' -6 at 4 0236 00040000' 4 at l5 0237 b0509' u0243 0238 y0446' Print hex exit 0239 b0000' word to print 0240 u0342' print hex routine 024l b0406' u04l2 0242 u0339' 0243 b0022' b[next] 0244 s0359' b[last] 0245 t0249' -ve continue 0246 u0l26' finished 0247 u03l8' delay 0248 u0247' delay 0249 a002l' b[last + l] 0250 y0022' set for next 025l u003l' get next 0252 a0503' Tl 0253 h03ll' T2 0254 u0258' 0255 u0422' ,0000002' 0256 00000000' dump 0257 00004000' 4 at l5 0258 e005l' 3wj00 0259 m0262' -3/4 at 0 0260 a03ll' T2 026l u0000' end "binarize address" ,0000003' 0262 f0000000' -3/4 at 0 0263 000l0000' l at l5 0300 0000wwwj' l at l5 - l at 29 030l b0223' b[next] 0302 u0303' 0303 r0446' Print location 0304 u0448' 0305 b0l48' -8 at l5 0306 u0222' ,0000005' 0307 wwww0000' 0308 00000004' l at 29 0309 000l0000' l at l5 03l0 000l0000' 03ll 00000000' T2 amd pattern 03l2 s070l' 03l3 h0703' 03l4 u0l26' ,0000002' 03l5 000l0000' l at l5 03l6 000l0000' 03l7 u0243' 03l8 u0000' end of delay 03l9 b0049' temp. 0320 h0000' memory 032l u0l26' 0322 z0000' flag 0323 u0342' 0324 b0726' SS set stop HERE 0325 t0534' error 0326 s0ll2' l at 30 0327 t0704' -ve ok 0328 u0534' error ,0000003' 0329 0j000000' space 0330 7wwq0000' 033l 000l0000' B[last] 0332 r026l' read and binarize address 0333 u0227' 0334 a0020' l at 29 0335 y002l' last + l 0336 s0308' l at 29 0337 y0359' last 0338 u0029' 0339 y0225' 0340 u0453' 034l u0443' 0342 80xp0200' PRINT HEX 0343 80xi6200' 0344 80xp0200' 0345 80xi6200' 0346 80xp0200' 0347 80xi6200' 0348 80xp0200' 0349 80xi6200' 0350 80xp0200' 035l 80xi6200' 0352 80xp0200' 0353 80xi6200' 0354 80xp0200' 0355 80xi6200' 0356 80xp0200' 0357 u0443' go to print spaces ,000000l' 0358 00040000' 4 at l5 0359 b0000' last P 0360 r026l' read and binarize address 036l u0227' 0362 u03l2' ,000000l' 0363 00003wwj' mask 0400 xz000l' l at 29 040l b0223' next to print 0402 s033l' b[last] 0403 t0407' continue 0404 u0l26' finished 0405 z0000' 0406 u04l2' 0407 a0l29' last + l 0408 y0223' 0409 a0l52' neg. flag at l5 +l at l5 in acc. 04l0 t022l' -ve continue 04ll u030l' carriage return and reset flag 04l2 xp0200' PRINT ALPHANUMERIC 04l3 xi6200' 04l4 xp0200' 04l5 xi6200' 04l6 xp0200' 04l7 xi6200' 04l8 xp0200' 04l9 xi6200' 0420 xp0200' 042l u0443' go to print spaces 0422 e0208' 800w,3wwj PRINT INSTRUCTION FORMAT 0423 h0559' T4 0424 t0203' get minus sign and order zone 0425 a02l8' 0j00,4000 space and order zone 0426 xp0200' print sign space or - 0427 xi6200' shift left l2 0428 xi6200' 0429 xp0200' print order 0430 b0559' T4 043l e0539' 3wwj 0432 d0l42' l0 at 20 - l at 30 ,4wwq 0433 80xp0200' track tens 0434 e0220' 0www,wwwq 0435 n0l5l' l0 at 3l 0436 80xp0200' track units 0437 e05l6' 0www,wwwq 0438 d05ll' l0 at 6 - ; at 30 0439 80xp0200' sector tens 0440 e02l9' 0www,wwwq 044l n0l5l' l0 at 3l 0442 80xp0200' sector units 0443 b0329' space 0j00,0000 0444 xp0200' print 2 spaces 0445 xp0200' 0446 u0000' exit ,000000l' 0447 0003j3j0' 0448 e0363' 3wwj 0449 800t0l26' RETURN TO BEGINING OF ROUTINE IF "TC" IS ON 0450 a050l' 0j00,0000 045l xp0200' print space 0452 u043l' 0453 r026l' read and binarize address 0454 u0227' 0455 u0456' 0456 a0400' l at 29 0457 y0l29' last + l 0458 s0730' l at 29 0459 y033l' last 0460 u030l' 046l b0022' TRANSFER T 0462 y0500' 0463 xz000l' halt ,0000004' 0500 000f0000' transfer to memory u[ ] 050l 40000000' l at l 0502 0003wwwj' 0503 00000000' Tl 0504 r026l' read upper limit 0505 u0227' for CLEAR PATTERN TO MEMORY C 0506 s0056' address 0507 n0257' l at l7 0508 u05l2' 0509 u0243' ,0000002' 05l0 00020000' 2 at l5 or l at l4 05ll l3wwwwwq' l0 at 6 - l at 30 05l2 a0056' address 05l3 y0526' 05l4 c0256' 05l5 u0205' ,0000003' 05l6 0wwwwwwq' 05l7 000000l0' 05l8 00000000' 05l9 b0000' R HERE 0520 h0049' temp. 052l b0050' u03l9 0522 h0000' 0523 u0l26' 0524 xz000l' l at 29 0525 b03ll' 0526 c0000' store pattern 0527 b0256' flag 0528 s0300' l at l5 - l at 29 0529 t0l26' finished 0530 u0540' continue 053l a05l0' 2 at l5 0532 t0620' -ve storage 0533 u0534' error 0534 b0543' ERROR HERE [e] 0535 xp0200' print "e" 0536 u0l25' go to error halt ,0000003' 0537 0000wwwj' l at l5 - l at 29 0538 00g00000' 6 at ll 0539 00003wwj' 0540 y0526' 054l h0256' flag 0542 u0525' ,000000l' 0543 94000000' 0544 b0000' 0545 e073l' 3wwj 0546 s03ll' test address 0547 t0550' not equal 0548 s0020' l at 29 0549 t0607' = test address 0550 b0322' flag 055l s0537' l at l5 - l at 29 0552 t0l26' finished 0553 u0556' continue 0554 z0000' 0555 xz000l' l at 29 0556 y0544' 0557 h0322' flag 0558 u0544' 0559 z0000' T4 0560 r026l' SEARCH FOR ADDRESS 056l u0227' read and binarize address 0562 s0056' address 0563 n0257' l at l7 0600 a0056' address 060l y0544' set up search 0602 h0322' flag 0603 r026l' read address to be lookd for 0604 u0227' 0605 h03ll' test address 0606 u0544' 0607 b0544' 0608 y06ll' print address 0609 r0446' 06l0 u0448' Print order of found address 06ll b0000' contents of found address reference 06l2 e0l4l' 2w,0000 06l3 a02l8' 0j00,4000 save order with zone bits 06l4 xi6200' left l2 to print position 06l5 xi6200' 06l6 xp0200' print order 06l7 u0550' 06l8 z0000' 06l9 z0000' 0620 b0056' address STORE SOMETHING HERE 062l y0643' 0622 s070l' Beginning of protected zone 0623 t0626' -ve ok not within protected zone 0624 s0703' extent of protected zone 0625 t0534' error - tried to store in protected zone 0626 c0405' dump 0627 80xi0200' read something; inst.; h for hex; or a for alpha 0628 h0700' temp 0629 s0708' l at 27 0630 t0652' possible a ro h 063l a05l7' l at 27 0632 r026l' binarize address 0633 u0229' 0634 y0700' set binarized address into instruction 0635 b0700' instruction with bin. address and trash from bcd entry 0636 e07l5' 800w,3wwj trim off trash 0637 u0643' 0638 xz0003' 3 at 29 0639 a0638' 6 at 30 0640 u0632' 064l c0700' dump 0642 80xi0200' 0643 h0000' 0644 u0l26' 0645 t0649' 0646 s0ll2' l at 30 0647 t0534' error nothing there 0648 a0ll2' l at 30 0649 c0000' restore memory 0650 c0726' clear table entry 065l u0l26' 0652 a0524' l at 27 - 6 at 30 0653 t0639' not a or h 0654 s0ll2' l at 30 0655 t064l' h for hex 0656 c03ll' dump ALPHA 0657 xi0200' read alpha word 0658 n0524' l at 29 left 2 bits 0659 u0643' 0660 r026l' HERE TO SET LIMITS FOR PROTECTED ZONE 066l u0227' read and binarize address 0662 h070l' lower limit 0663 u0360' 0700 z0000' 070l z0000' Beginning of protected zone 0702 u0725' ,000000l' 0703 00000780' Extent of protected zone 7T32S 0704 b0056' address 0705 y07l3' 0706 y07l8' 0707 u0709' 0708 xz0004' 4 at 29 0709 a0524' l at 29 07l0 y0727' 07ll a0524' l at 29 07l2 y0728' 07l3 b0000' inst. to replace 07l4 u07l6' 07l5 80xs6363' mask 07l6 h0726' table [2] 07l7 b0702' u0725 07l8 h0000' memory 07l9 u0l26' 0720 b0727' REMOVE STOP 072l s0555' l at 29 0722 y0649' 0723 b0726' 0724 u0645' ,0000007' 0725 00000000' STOP 0726 00000000' INSTRUCTION FROM MEMORY 0727 000f0000' TRANSFER TO N + l 0728 000f0000' TRANSFER TO N + 2 0729 00000000' 0730 00000004' l at 29 073l 00003wwj' mask .l000000'