e444rs000b8 -+j z-yip8 -+jMemory Print l 8 -+jä) ) SC 20073 K2-l0.0 Memory Print l - Rel. Hex. m40k000l'f059l'30l95'f0lg5'g036k'l024k'202f5'400' f02q5'f02jk'l0445'g00wl'q0485'80200'80200'j04lk' 90479'w047k'g020k'w04w5'g023l'f02lk'l04lk'80200' l0425'q0445'43q00'43q00'80200'903j9'5042l'300qk' f00j5'l03w5'80200'l000'40'800'f000l'3026l' f026k'g0005'f039l'80080200'80043q00'f024l'20l7k'f025l' l075k'504l9'80080200'904q9'6034l'80080200'904ll'503wk' 80080200'9040l'6034l'80080200'f000l'80080200'q04l5'80200' f0039'w5q276q9' m40k0l0l'80000002'4wwq'l0lkl'q0349'f0l25'80200'f04fk' l'l'20lkl'q03wl'20lk9'f0lkl'l047l'f026l' l075k'w0l99'g0lfk'3032k'f02w9'f0005'l'30l95' f0lg5'g0l3k'3032k'f02w9'f0005'80200'f0309'gj000004' '800f049l'l07w9'904wk'w0l0l'f0l95'f000l'wj' 30lw5'f033l'l02ql'f0l7l'q079l'f0379'l0l7k'w07w5' g0l85'w07wk'g0l95'f0l09'l'l000l'k07w5'l000l' k07wk'f0lg5'3wwj'43q00'80200'f0ll5'f000l'l0489' 80200'3lj866w8' m40k020l'f0lq9'80200'f0265'q048l'g02lk'w04w9'g023l' 90lq5'w0405'g023l'w07wl'g0055'l03w9'80200'l0475' f006l'80080200'80043q00'f04fl'f0025'202f9'w07q5'g032l' f026l'f000l'80200'f0lw9'l02f9'q03lk'2032l'f00g5' k04wl'30lw5'f033l'l02f9'w0555'50l05'300qk'f00j5' l03ll'80200'f000l''k0l2l'f02f5'k04wl'30lw5' f03f9'f0289'800l0004'k0l2l'l0409'q04wl'g027k'l074k' f02g5'j000000'l0l2l'q0409'g02fk'l07g9'f02j9'400' f0lw9'02l6qk29' m40k030l'f0l9k'43kk9l84'80200'f03l5'kg08000'80200'f0205' 4'l000l'j0445'f03fl'f000l'l056k'q0l55'g03kl' f034k'f'43wwwwwq'8'w056k'9048k'80200'q0l79' g03g5'l07k5'f03ql'gj000004'l02f9'k0llk'l03gl'k075k' 3026l'f026k'g0l59'3032k'f02w9'20'f000l'80080200' f0449'j07w9'f0l35'l0l55'f03g5'4'90345'80200' q0369'g035l'f036l'3wwj000'wwwwq00l'90345'80200'q0369' w056k'k0l55'f0lw5''3j3j0'4'80000000'9j000000' l3wwwwwq'7g4k06lq' m40k040l'wwwwwwq''4'4'wwwwwwq'88000000'4wwq' '4wwq000''ww00'80080200'80043q00'f00f9'80080200' 80043q00'f0399'l'80043q00'80080200'l02j5'q049l'80200' l000'40'800'f000l'f04j9'80000000'4000'w3wwj' 80000'40000'j000000'6j200000'43wwwwwq'l000l'80080200'80043q00' f042k'80080200'80043q00'f0439'80200'300qk'f00gk'l0l8l' 80200'202f5'l0llk'f0795'l075k'w040k'g032k'k075k' 400'f02q5'f02jk'wwwwwwq'jw00000''l0000'l0000' 7ww0j002'wg25l8l8' m40k050l'80200'43q00'80200'43q00'80200'43q00'80200' 43q00'80200'l04qk'80200'80040200'g058l'j057l'603wl' j0ljk'903qk'7073l'f0559'20000'42l675j4''q0ljk' j074l'90429'70749'f0579'20'''q074l' 9070k'f000l'l054k'7057l'f053k'2000'f0779'l0729' 3058l'f050l'k0765'l07lk'3058l'f050l'k0759'l072k' 3058l'f050l'k0769'l0305'3058l'f050l'f07fl'w0769' k07g9'k0l2l'w0759'j074k'f076k'w0765'j07k5'q0735' k0l55'380kf4q9' m40k060l'l073k'3058l'f050l'k07j9'3058l'f0585'k0405' l07j9'q03gl'w0405'k07wl'l07ll'3058l'f050l'k0555' l072l'w0555'k0425'l0785'2067k'q07l9'2069l'w03gl' 20lkl'l0745'3058l'f050l'g06gk'k07fk'3058l'f0585' j000l'k074l'w074l'q07l9'q07fk'k000l'l0349'q067k' 2067k'w07l5'g06gk'q0755'2069l'3058l'f0525'f066k' l067k'206j9'l0739'k000l'l080l'k07w5'l0805'k07wk' l055l'3058l'f050l'q0709'k07q5'3058l'f0585'3026l' f0275'76l077l9' m40k070l'f0005''4'3wwj'4lk8k544'800j08w9'4' 4068w5w4'4000''406459w4'43q355w4'k0000000'4'4000' 4lk543q4''43l9j3q4'f0000000'''800j08wk'80' ''jj'20'w07l9'k04wl'f05wl'k078l' f05k9'wwwwq00l'l080l'l'l'l00'202f9'2049l' f04jk'q07l9'k056k'f05k9'l8095j00'q0056'380l5800'20544' w27l8'k24w0'f25w0'30260'j098400'f0226'28089j00'j03l0' 300j4400'f0544'28l5l000'l0544'4l5l000'206l0'8l84400'30446' jlll800'64w5fj0f'.l000000' 8 -+jä) ) SC 20074 K2-l0.0 Memory Print l - Format Controlled Decimal 0000 u0536' initialize 000l r0l37' 0002 u0l45' is it hex word? 0003 t0327' if neg is hex 0004 b02l9' u0009 0005 y024l' exit of location subroutine ,000000l' 0006 00000400' sense 4 short format? 0007 u0257' word/line subroutine 0008 u025l' location subroutine 0009 b04l7' wtp temp 00l0 t0060' neg inst 00ll a0433' 0j00 0000 00l2 xp0200' lst space of command 00l3 xp0200' 2nd space of command 00l4 h0407' print temp 00l5 e0430' xs6363 00l6 s043l' 8 at l5 00l7 t0203' 00l8 s046l' l at l5 00l9 t02l2' print "x" 0020 u0207' unmodify? 002l b0407' print temp 0022 xp0200' print space or 0 before command letter 0023 b0409' 0-modifier+command character zone bit 0024 a04l7' wtp temp 0025 xi6200' shift left 6 0026 xi6200' 0027 xp0200' print command letter 0028 e0350' 03ww j000 0029 d0408' l0 at 8-l at l8 0030 r0059' 003l u0049' print address 0032 b036l' 8000 0000 0033 xp0200' stop code after order ,0000003' 0034 0000l000' sense l6 0035 00000040' stop for comments 0036 00000800' sense 8 0037 u0000' start over 0038 r0224' 0039 u0227' pick new wt-increment and check wtp location 0040 t000l' 004l u0336' 0042 80xp0200' print 3rd hex char 0043 80xi6200' 0044 u02l6' 0045 y0l3l' location of wtp 0046 u0220' 0047 b0723' hex word counter 0048 d0406' l0 at 20-l at 30 0049 80x0200' print track tens 0050 e0458' 0www wwwq 005l n03l6' l0 at 3l 0052 80xp0200' print track units 0053 e0404' 0www wwwq 0054 d0363' l0 at 6-l at 30 0055 80xp0200' print sector tens 0056 e0400' 0www wwwq 0057 n03l6' l0 at 3l 0058 80xp0200' print sector units 0059 u0000' print address exit 0060 80xp0200' print 8 of command 006l a0405' 8800 0000 0062 xp0200' print 0 of command 0063 u00l4' ,0000002' 0l00 80000002' l at 30+sign bit 0l0l 00004wwq' l0 at 20-l at 30 0l02 b0l52' 0l03 a03l8' 2 at 29 0l04 u0l09' 0l05 xp0200' 2nd 0 after comma 0l06 u0443' 0l07 z0000' location prime of wtp 0l08 z0000' word/line count 0l09 y0l52' 0ll0 a0360' l at 29 0lll y0l54' 0ll2 u0l52' 0ll3 b0428' 8000 0000 0ll4 u0224' 0ll5 b0723' hex counter 0ll6 s0l38' 63 at 29 0ll7 t0l43' 0ll8 r03ll' 0ll9 u0262' print hex 0l20 u000l' 0l2l z0000' line/page count 0l22 r0l37' 0l23 u0l45' is it hex word? 0l24 t0ll5' if neg is hex 0l25 r03ll' 0l26 u0262' print hex 0l27 u000l' 0l28 xp0200' lst space before comma 0l29 u0302' ,0000002' 0l30 gj000004' 0l3l 00000000' location of wtp 0l32 800u0436' constant 0l33 b0762' wtp temp 0l34 e0463' 7ww0 j002 0l35 s0l00' l at 30+sign bit 0l36 u0l37' 0l37 u0000' ,000000l' 0l38 000000wj' 63 at 29 0l39 r0l6l' 0l40 u03l2' c.r. subroutine 0l4l b0256' 0j00 0000 0l42 u0l28' 0l43 a0736' 64 at 29 0l44 u0330' 0l45 b0l3l' location of wtp 0l46 s076l' hex area lo 0l47 t0l33' not in hex area 0l48 s0763' hex area hi-lo+l 0l49 t0l37' is hex 0l50 u0l02' get next hex area from table 0l5l z0000' ts l 0l52 b0000' hex area lo from table 0l53 c076l' hex area lo 0l54 b0000' hex area hi-l0+l from table 0l55 c0763' hex area hi-lo+l 0l56 u0l45' ,0000003' 0l57 00003wwj' xz6363 0l58 00043q00' shift left 6 0l59 00080200' lst 0 for comma word 0l60 u0l05' 0l6l u0000' c.r. subroutine exit 0l62 b0434' 6j20 0000 0l63 xp0200' print , for comma word 0200 u0l58' 020l xp0200' 4th space before comma 0202 u0225' 0203 a0432' 4 at l5 0204 t0207' unmodify? 0205 s0462' l at l5 0206 t02l2' print "x" 0207 e0l57' xs6363 0208 s040l' mod lo 0209 t02l2' print "x" 02l0 s0760' mod hi-lo+l 02ll t002l' unmodify 02l2 b0362' 9j00 0000 02l3 xp0200' print x of command 02l4 b0429' 0000 4000 order character zone bit 02l5 u0024' 02l6 80xp0200' print 4th hex character 02l7 80xi6200' 02l8 u0440' 02l9 u0009' constant 0220 y0242' location of wtp 022l s0757' final+l+sign bit 0222 t0308' 0223 u0224' 0224 u0000' exit from pick and increment wtp location subroutine 0225 xp0200' 5th space before comma 0226 u0l62' 0227 b0242' location of wtp 0228 a0307' l at 29 0229 y0308' wtp pick up 0230 u0045' 023l c0460' loc/page count 0232 r0l6l' 0233 u03l2' c.r. subroutine 0234 b0242' location of wtp 0235 s052l' modifier 0236 d0l0l' l0 at 20-l at 30 0237 r0059' 0238 u0049' print address 0239 b0304' 0kg0 8000 alpha sace-comma-zero 0240 xp0200' space after location 024l u0000' print location exit 0242 z0000' location of wtp 0243 c0l08' word/line count 0244 u024l' location subroutine exit 0245 c0460' loc/page count 0246 r0l6l' 0247 u0342' skip out page subroutine 0248 u0234' ,000000l' 0249 800l0004' 80xb000l 0250 c0l08' word/line count 025l b0402' location subroutine here 0252 a0460' loc/oage count 0253 t023l' 0254 b07l9' 0-loc/page 0255 u0245' ,000000l' 0256 0j000000' alpha space 0257 b0l08' word/line count and subroutine start 0258 a0402' l at 29 0259 t0243' 0260 b0746' 0-word/line 026l u0250' location subroutine ,000000l' 0262 00000400' sense 4 print hex here 0263 u0l62' short format 0300 u0l39' long format ,000000l' 030l 43kk9l84' c.r.skip 0302 xp0200' 2nd space before comma 0303 u0305' ,000000l' 0304 0kg08000' 0305 xp0200' 3rd space before comma 0306 u020l' ,000000l' 0307 00000004' l at 29 0308 b0000' 0309 h04l7' wtp 03l0 u0340' 03ll u0000' location print subroutine exit 03l2 b0527' skip at 29 c.r. subroutine here 03l3 a0l2l' lin/page count 03l4 t0352' 03l5 u03l9' ,0000003' 03l6 0000000f' l0 at 3l 03l7 43wwwwwq' 03l8 00000008' 2 at 29 03l9 s0527' skip 0320 e0435' 43ww wwwq 032l xp0200' c.r. 0322 a0l30' gj00 0004 0323 t0345' 0324 b0753' 0-lin/page 0325 u0356' ,000000l' 0326 gj000004' 0327 b0242' location of wtp 0328 c0l07' location prime of wtp 0329 b0344' l at 29 0330 c0723' hex word counter 033l r0224' 0332 u0227' pick new wtp and increment and check location of wtp 0333 t0l22' 0334 r03ll' 0335 u0262' print hex ,000000l' 0336 00000020' halt-done 0337 u0000' start over 0338 80xp0200' print 7th hex character 0339 u04l8' 0340 h0762' wtp 034l u0ll3' 0342 b0l2l' lin/page count 0343 u0345' ,000000l' 0344 00000004' l at 29 0345 e03l7' 43ww wwwq 0346 xp0200' c.r. 0347 a0326' gj00 0004 0348 t0320' 0349 u0324' ,000000l' 0350 03wwj000' 035l xz0000' spare 0352 e03l7' 43ww wwwq 0353 xp0200' c.r. 0354 a0326' gj00 0004 0355 s0527' skip 0356 c0l2l' lin/page count 0357 u0l6l' ,00000l9' 0358 00000000' spare 0359 0003j3j0' 0360 00000004' l at 29 036l 80000000' 0362 9j000000' 0363 l3wwwwwq' lo at 6-l at 30 0400 0wwwwwwq' 040l 00000000' mod lo 0402 00000004' l at 29 0403 00000004' l at 29 0404 0wwwwwwq' 0405 88000000' 0406 00004wwq' l0 at 20-l at 30 0407 00000000' print temp 0408 04wwq000' l0 at 8-l at l8 0409 00000000' 0-modifier+order char zone bit 04l0 0000ww00' 04ll 80080200' print 2nd hex char 04l2 80043q00' shift left 4 04l3 u0042' 04l4 80xp0200' print 6th hex char 04l5 80xi6200' 04l6 u0338' 04l7 z0000' wtp temp 04l8 80xi6200' 04l9 80xp0200' print 8th hex char 0420 b0249' 80xb000l 042l a0436' wtp pick up ,0000004' 0422 00080200' print stop code 0423 0000l000' sense l6 0424 00000040' stop for comments 0425 00000800' sense 8 0426 u0000' start over 0427 u0450' ,0000008' 0428 80000000' 0429 00004000' 64 at 29 0430 000w3wwj' xs6363 043l 00080000' 8 at l5 0432 00040000' 4 at l5 0433 0j000000' alpha space 0434 6j200000' 0435 43wwwwwq' 0436 b0000' wtp from memory 0437 80xp0200' lst hex char 0438 80xi6200' 0439 u04ll' 0440 80xp0200'print 5th hex char 044l 80xi6200' 0442 u04l4' 0443 xp0200' 3rd zero after comma 0444 r0059' 0445 u0047' print hex word counter 0446 b0l32' 800u0436 0447 xp0200' stop code after comma word 0448 y024l' 0449 b0l07' location prime of wtp 0450 u0737' 045l b0723' hex word counter 0452 s0403' l at 29 0453 t03ll' done hex print 0454 c0723' hex word counter ,000000l' 0455 00000400' sense 4 0456 u0257' short format word/line subroutine 0457 u025l' long format location subroutine ,0000006' 0458 0wwwwwwq' 0459 0jw00000' 0460 00000000' loc/page count 046l 000l0000' l at l5 0462 000l0000' l at l5 0463 7ww0j002' 0500 xp0200' alpha out-input-binarize 050l xi6200' 0502 xp0200' 2nd alpha char 0503 xi6200' 0504 xp0200' 3rd alpha char 0505 xi6200' 0506 xp0200' 4th alpha char 0507 xi6200' 0508 xp0200' 5th alpha char 0509 b0459' 0jw0 0000 05l0 xp0200' space 05ll 80xi0200' input a word 05l2 t0532' nothing input if neg 05l3 h0528' temp l 05l4 n0360' l at 29 05l5 h0l5l' ts l 05l6 e0359' 0003 j3j0 05l7 m07l2' -6 at 4 05l8 u0522' ,0000003' 05l9 00020000' l at l4 0520 42l675j4' c.r.pnch 052l 00000000' modifier 0522 a0l5l' ts l 0523 h07l6' ts 2 0524 e04l0' 0000 ww00 0525 m07l8' -3/4 at 0 0526 u0530' ,0000003' 0527 00000020' skip at 29 0528 00000000' temp l 0529 00000000' spare 0530 a07l6' ts 2 053l e0703' 0000 3wwj 0532 u0000' input and binarize exit 0533 b05l9' l at l4 0534 m0528' temp l 0535 u05l5' ,000000l' 0536 00002000' sense 32 0537 u0730' skip input of format parameters 0538 b07l0' c.r.lins 0539 r0532' 0540 u0500' alpha out-input-binarize 054l c0725' lines/page 0542 b0707' c.r.locs 0543 r0532' 0544 u0500' alpha out-input-binarize 0545 c0722' locs/page 0546 b07ll' c.r.wrds 0547 r0532' 0548 u0500' alpha out-input-binarize 0549 c0726' words/line 0550 b030l' c.r.skip 055l r0532' 0552 u0500' alpha out-input-binarize 0553 u0740' adjust and clear to skip 0554 s0726' words/line 0555 c0746' 0-words/line 0556 c0l08' w/l count 0557 s0722' locs/page 0558 h07l9' 0-loc/page 0559 u0727' 0560 s0725' lines/page 056l h0753' 0-lines/page 0562 a07l3' l at 29 0563 c0l2l' lines/page count 0600 b07l5' c.r.md a 060l r0532' 0602 u0500' alpha out-input-binarize 0603 c0750' mod area hi 0604 r0532' 0605 u0533' binarize lo 0606 c040l' mod area lo 0607 b0750' mod area hi 0608 a0344' l at 29 0609 s040l' mod area lo 06l0 c0760' mod area hi-lo+l 06ll b0704' c.r.modi 06l2 r0532' 06l3 u0500' alpha out-input-binarize 06l4 c052l' modifier 06l5 b0708' order char zone bit 06l6 s052l' modifier 06l7 c0409' 0-modifier+order char zone bit 06l8 b0733' start of hex table 06l9 y063l' 0620 a0706' l at 29 062l y0636' 0622 s0344' l at 29 0623 y0l52' 0624 b07l7' c.r.hx a 0625 r0532' 0626 u0500' alpha out-input-binarize 0627 t0647' done 0628 c0743' hex area hi 0629 r0532' 0630 u0533' binarize lo 063l h0000' hex area lo table 0632 c07l6' hex area lo 0633 s07l6' hex area lo 0634 a0706' l at 29 0635 a0743' hex area hi 0636 c0000' hex area hi-lo+l table 0637 b03l8' 2 at 29 0638 a063l' 0639 y063l' 0640 s0705' h[final]+sign bit 064l t0647' 0642 a072l' h[final+l]+sign bit 0643 y0636' 0644 r0532' 0645 u0509' input and binarize 0646 u0627' 0647 b063l' 0648 y0650' 0649 b07l4' 64 at 23 0650 c0000' last entry in hex table 065l b0800' lst entry in hex table 0652 c076l' hex area lo 0653 b080l' 2nd entry in hex table 0654 c0763' hex area hi-lo+l 0655 b0520' c.r.pnch 0656 r0532' 0657 u0500' alpha out-input-binarize 0658 a0702' sign bit+l at 29 0659 c0757' final+l+sign bit 0660 r0532' 066l u0533' binarize lo 0662 r0224' 0663 u0229' 0700 u000l' ,0000004' 070l 00000000' spare 0702 00000004' l at 29 0703 00003wwj' xz6363 0704 4lk8k544' c.r.modi 0705 800h0862' b[final]+sign bit ,00000l5' 0706 00000004' l at 29 0707 4068w5w4' c.r.locs 0708 00004000' 64 at 23 0709 00000000' spare 07l0 406459w4' c.r.lins 07ll 43q355w4' c.r.wrds 07l2 k0000000' -6 at 4 07l3 00000004' l at 29 07l4 00004000' 64 at 23 07l5 4lk543q4' c.r.md a 07l6 00000000' ts 2 07l7 43l9j3q4' c.r.hx a 07l8 f0000000' -3/4 at 0 07l9 00000000' 0-loc/page 0720 00000000' spare 072l 800h0863' b[final+l]+ sign bit ,0000005' 0722 00000080' loc/page 0723 00000000' hex word counter 0724 00000000' spare 0725 000000jj' lines/page 0726 00000020' wrds/line 0727 s0706' 0728 c0460' 0729 u0560' 0730 c0732' 073l u0554' 0732 xz0000' spare 0733 b0800' start hex table 0734 z0000' 0735 z0000' 0736 xz0l00' l at 23 0737 y0242' 0738 y0436' 0739 u045l' 0740 a0706' 074l c0527' 0742 u0554' ,000002l' 0743 l8095j00' hex area hi 0744 000q0056' spare 0745 380l5800' spare 0746 00020544' 0-words/line 0747 000w27l8' spare 0748 000k24w0' spare 0749 000f25w0' spare 0750 00030260' mod area hi 075l 0j098400' spare 0752 000f0226' spare 0753 28089j00' 0-lins/page 0754 000j03l0' spare 0755 300j4400' spare 0756 000f0544' spare 0757 28l5l000' final+l+sign bit 0758 000l0544' spare 0759 04l5l000' spare 0760 000206l0' mod hi-lo+l 076l 08l84400' hex area lo 0762 00030446' wtp temp 0763 0jlll800' hex area hi-lo+l .0000000'h