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'