PVOL1BACKUP D%B1111001001 1Pe _vߋt&` (=R 5@0$L= ZTЖ\ЂXзx= r& 6D7, e 7Zpn~EЀ ***THIS VOLUME DOES NOT CONTAIN A HARDWARE BOOTABLE SYSTEM *** 5  H U 5U@ 5 h U5U@ X 5U`7 F\@X<5f5\ f j n r E@EPHDR1RSX11MPBL24 00010001000100 00000 00000 000000DECFILE11A PPHDR2U0414404144 M 00 PPRSX11MPBL24RSX11MPBL24W  $%< dDR"#16NOV87091536DECNP_.[!sߕE T~ 6   w5 %LefAEȋA$%@ %A  r  ؁rP͕9Y 5:5 " @U   `"2@@ArB rP5 U5DE  XX X!e 90 4B! 0~1   Y   % %           P=xRSX11MPBL24iw05NOV87105708RSX11MPBL24[001,001] DECFILE11A PUFDNNzPszPUFDOOzP$rl^?rl^@rl^Arl^Brl^Cr[qGr[qyH8xrl^I8l^K8[qyt^^Lt^8^NM^OZg9;^PZg8^QZgd^SZg^Lr_"zjL_rjL_r8_r[qr\Kr]KINQqQM#Q"S YZ8_ skQxrkQ"S8[q &Y^#^ &_M#^ &(K#^ &^ &aT^ &Q^3 &[qyPUFDOPzPTysdVOlydWxXXkz?TZ Ԁ[_Mp:Ԁ#qK3%3&; 93' 3( 3) 3*e3+a3,3-,3.3/s30,8^31q|K32qO33t!34K f935K @j36 H37 838_393:3;_3<&}3=&3>(@3?* 3@e 3A3BL3Cy3Dy3EX3Fu:3Ge"3H{3IvLD3J>3K@j3Ln%3Mz3Ny:}3OSZ3P3Q'3R'}3S2d3Td43Ux3V2d3W:}3XjL3Y_Mp:3Z_Ma3[kQr3\Q3]Rv3^;d3_fZ3`Zg,3aTq3bUq5a3cVqM3dYq3e[q3fs3gQw3hw !3iw@j3jxs3kQS3lz3mx3nx@3oxh3p*y}3qys3ryd3syd3ty}3u zR3v@3wv<3x|C^3y3z3{%3|3}}3~#;3 &3x'3'32d383:3bK3oQ3Q3Q3Q3Q43QF 3Ql 3Q_3Q3Q3Q* 3Q3Q3Q3Qa'3Q'}3Q,`r3Q2]3Q2d3Qe43Qy:3Q:3QYM3Q_Mp:3QkQ3QE`3Q;d3QfZ3Qm3Qs3Qv3Q zR3Q;}3Q43t^3Md?Mdl^ _ _ _@ fd"_B fdl^DgdEgdl^x'_GOld(_w*?T_KOldl^NzdP|d:_1KX_bK_R|dl^Tdddl^ddl^"aT_#QXx_$__% s@ syA $qsC $qsyD sF syG  sPUFDPz,P :}}sz_m"&MR)w*?T4y::KYMoQQQSaTf qrvxxxxxX~4[qv[q)![q2[qM[q f[qg[qOl[qz[q|[q8[qxe[q&8xeOlOlf}ssyzzyyyyKKyTsTsyssyssyssy s syssy LsKg_ssy_ssyMs Msy LSs LSsy kQF9KkQM9kQlkQskQ zkQskQQؖHqkQ6 skQskQ;p:kQ>gkQ?3kQ@-`^kQA92kQE)XkQF/0kQG)kQH$` kQI2kQJ&dkQK̖skQL,2kQM! kQN4`kQO9p5kQPYqwkQQfkQSkQTskQUz8kQV@`kQW@`kQXkQY^kQZLSskQ[kQF9KkQM9kQPUFDwz P-sE /ZvE dTskQ]xkQ_}kQ`'kQbHkQdYMkQf#"kQjwkQmof"kQnKg_kQop:kQqhkQtGkQvzkQ}y:~kQykQ5vkQyykQzkQz kQ<#pkQH#8;kQO#}kQI*kQA-kQJ-8;kQC/8;kQL9>kQF9KkQM9kQPUFDwz PPUFDwz PPUFDxz P^E jLdE &E &jLd8E 8E 8E 8jLd8ZjLy:E y:jLdYME QE QjLdvE ykQ5vkQyykQzkQz kQ<#pkQH#8;kQO#}kQI*kQA-kQJ-8;kQC/8;kQL9>kQF9KkQM9kQPUFDvz%PlG}G}(DkQsDkQD9ykQDjkQDkQpD@,kQvD:kQD:kQD:kQD:kQD:kQD:kQD:kQDhzkQ D}kQ.ErkQqEykQ/DEy_kQDEz_kQ1GEHSkQ2NEkQ:iE.kQriE]kQUiEhzkQVoEhzkQtrEkQXsEkQYsE'kQZvEkQ\EhjkQ]EkQnEL;kQ^-FykQ_FkQ`F zkQbFKkQaAG@kQfRG@kQdGLkQeG8^kQcGp kQoG}kQuGkQgG kQhG8kQiG@`kQkG kQ0GkQj*KkQkQmF "S! kQN4`kQO9p5kQPYqwkQQfkQSkQTskQUz8kQV@`kQW@`kQXkQY^kQPUFDz%PxE DyDEv}GEQwF zF {F`|JxRG@kQdGLkQeG8^kQcGp kQoG}kQuGkQgG kQhG8kQiG@`kQkG kQ0GkQj*KkQkQmF "S! kQN4`kQO9p5kQPYqwkQQfkQSkQTskQUz8kQV@`kQW@`kQXkQY^kQPUFDOzP~_Mp:DEv}GEQwF zF {F`|JxRG@kQdGLkQeG8^kQcGp kQoG}kQuGkQgG kQhG8kQiG@`kQkG kQ0GkQj*KkQkQmF "S! kQN4`kQO9p5kQPYqwkQQfkQSkQTskQUz8kQV@`kQW@`kQXkQY^kQPUFD=pzP  p,e"_Mp:,UC;xHx hL(skQkQxkQ3@kQyxskQ hLkQęskQԙkQ""`w" zvX+u'Ԁy'Ԁ2XMԀfM+Ԁ"Ԁ.kQwqkQVqMkQ"wkQ:dwkQwqVqM"w:dwDjkQDkQpD@,kQvD:kQD:kQD:kQD:kQD:kQD:kQD:kQDhzkQ D}kQ.ErkQqEykQ/DEy_kQDEz_kQ1GEHSkQ2NEkQ:iE.kQriE]kQUiEhzkQVoEhzkQtrEkQXsEkQYsE'kQZvEkQ\EhjkQPUFDzPz,d1KXwddwF wf'z,ąe sQkQ#(Ԁ{QGwԀ{QrwԀy Ԁy2 ԀwqQWw#w{QwH wwdw ww(z,w/sQkQ4wz5w:d@Q6z,w7sQkQ8zP}kQD9JwzRsQkQ5sdYsE \ZvE sx$sxsx $qsx!sx&8zkQ?8zkQ@8}kQA8}kQC8KkQD8ĐkQE8 kQGy: kQJy:e4kQKy:oQkQMy::dkQP:p kQQ:kQS:(kQT:8,kQU:2kQW:fkQX:rkQY:` kQZE`kQ[K0kQ\K~kQ]KskQ_K :kQaKPkQbK8kQcLykQdOM0akQeVN0akQftQwkQgxQuLkQhQ0akQkQ,`kQlQ0akQm[R SkQnSkQpS{kQsS?TkQuSfkQvSrkQxS8}kQySqkQzSPdkQ{?TakQ|\X zkQ}E`0akQ~:d0akQf0akQp0akQIq0akQLq0akQYq,kQvkQvkQvkQvkQvkQvkQvkQvkQvkQvkQvkQv@kQv'kQv4kQv:kQvRkQv zkQvKkQv kQFwpkQxD,kQRy0akQy0akQy0akQy0akQz0akQz0akQzP}kQz0akQzrkQ;}0akQu~kQ{~`"kQ~WkQskQkQkQJkQHqkQyZ`kQ kQ4kQ4?TkQ4:dkQ4fkQ4"gkQ4kQ|kQ|#kQ|&kQJwkQ:dkQWkQXkQX+kQXkQkQ8TkQS8fkQT8X kQU8N kQV8s kQW8"kQX8""kQY8&kQZ8#&kQ[8'kQ\8X:kQ]8:kQ^8_MkQ_8dkQ`8 zkQa8zkQb8(zkQc8'zkQd8kQeS zkQfS:dkQgy:,kQhy: kQiy:8XkQjy:rkQky:ąkQlS'kQmS<kQnSkQoy:D,kQpQ{kQqQkQr40akQsp:kQt0akQuKp:kQvs0akQws0akQxvBxkQyvkQzX 0akQ{:`'kQ|&kQ}:PKkQ~z0akQmkQvykQKkQ0akQw0akQu~0akQjz0akQ4"gkQ4kQ|kQ|#kQ|&kQJwkQ:dkQWkQXkQX+kQXkQkQ8TkQS8fkQT8X kQU8N kQV8s kQW8"kQX8""kQY8&kQZ8#&kQ[8'kQ\8X:kQ]8:kQ^8_MkQ_8dkQ`8 zkQPUFDxz PPUFDxz PPUFDyvz PK"kQ,8^kQ' ЉkQc ~kQx:kQ kQt(}kQHkQ8kQ kQ_kQHqkQkQ !kQ;kQ kQkQkQ`rkQ8kQ :kQ:h;kQ<H:kQ8kQxkQzkQ{wkQ<>wkQ=xxKkQ>x_kQ?x !kQ@xPkQAxЉkQBWkQCxkQDkQEwkQ=xxKkQ>x_kQ?x !kQ@xPkQAxЉkQBWkQCxkQDkQEkQrkQ?xQkQ@|QkQAQkQBR,kQCRv@kQDSZkQE_XkQFyXKkQHiY}kQIYkQJe^kQKi^pkQL`kQMakQN:dwkQO;dkQPxekQQf:dwkQRfkQTfkQUfkQVZg,kQWkp kQXmkQYTq{@kQZUq5akQ[VqMkQ\Yq}kQ]skQ^Lw kQ_wkQc*y}kQdAykQeyskQfydkQhzkQi}kQj}@QkQkh~kQlu~@kQm~8YkQnZkQpXakQq kQr@kQskQttkQuv<kQv|C^kQwZkQxipkQyKkQzkQ{5pkQ|WkQ}gkQ~KkQ.kQkQkQjLp@kQvLDkQwkQ'WkQ_kQ<kQvLIkQfZkQxkQ'@QkQ_L kQXkQ zRkQe"kQwkQ}kQi^pkQL`kQMakQN:dwkQO;dkQPUFDzPE RE SE E RE E RE E RE E RE E E E E zdvLIkQfZkQxkQ'@QkQ_L kQXkQ zRkQe"kQwkQ}kQi^pkQL`kQMakQN:dwkQO;dkQPUFDzPPUFDz PPUFDvzP}kQ RE E RE E RE E RE E E E E zdvLIkQfZkQxkQ'@QkQ_L kQXkQ zRkQe"kQwkQ}kQi^pkQL`kQMakQN:dwkQO;dkQPUFDzP}E  RE E RE E RE E RE E E E E zdvLIkQfZkQxkQ'@QkQ_L kQXkQ zRkQe"kQwkQ}kQi^pkQL`kQMakQN:dwkQO;dkQPUFDzPPUFDz PPUFDvzPkQkQ@kQW3dkQ(;kQ,kQf]kQf:kQfJ`kQOlkQOlkQOlGkQOlHkQOl""kQOl/"kQOl0"kQOl'kQOla-kQOl.kQOl.kQOl:kQOl:kQOl@kQOl@kQOlkQkQOlSkQOlfkQOlskQOlxkQOlykQOlykQOlykQOlu~kQOlkQmDkQmkQmkQm@kQmkQwkQx@kQxhkQ z:kQ z@kQ zJ`kQkQmkQmkQ zkQfkQOlzkQOlykQf@kQOlkQOlK kQOl:kQ zkQ""kQ""?TkQfkQ XkQ NkQtkQuv<kQPUFDzPOlE OlE mDkQmkQmkQm@kQmkQwkQx@kQxhkQ z:kQ z@kQ zJ`kQkQmkQmkQ zkQfkQOlzkQOlykQf@kQOlkQOlK kQOl:kQ zkQ""kQ""?TkQfkQ XkQ NkQtkQuv<kQPUFDzPPUFDz PPUFDvzP}kQQkQTkQ`kQP}kQkQ8;kQ kQrkQPskQ:kQpkQSkQXkQ^kQ`kQykQwkQHqkQrkQxskQ`kQfkQ~kQkQ(kQ4 kQ4akQ40kQ48kQ4%kQ4%kQ4%kQ4p:kQ4pXkQ4`rkQ4PskQ4hkQ4SkQ4XkQ4kQ4H!kQ 4%kQ 48wkQ 4`'kQ 4(kQ 4pXkQ4`YkQ4ZkQ4`kQ4HqkQ4P<kQ4skQ4(}kQ4P}kQ4~kQ4kQv4kQOlfkQOlskQOlxkQOlykQOlykQOlykQPUFDzP&E 4E _jL4`rkQ4PskQ4hkQ4SkQ4XkQ4kQ4H!kQ 4%kQ 48wkQ 4`'kQ 4(kQ 4pXkQ4`YkQ4ZkQ4`kQ4HqkQ4P<kQ4skQ4(}kQ4P}kQ4~kQ4kQv4kQOlfkQOlskQOlxkQOlykQOlykQOlykQPUFDzPPUFDz PPUFDvz(P ,dkQ!; fkQ"; vkQ#K VNkQ$" KqkQ&J+kQ'y[MkQ(wkQ+e kQ,kQ-e"kQ.@kQ/l'kQ0n XkQ1zkQ2z'kQ3WkQ5! kQ6#LkQ7#t!kQ8 &@8kQ9 & kQ; &,kQ< &jLwkQ= &jLwkQ> &kQkQ@ &TkQA &fkQB &[qkQC &ywkQD &ywkQE &zkQF &kQH &KkQI &[qkQJ &ƻzkQK&`;kQM(#kQN(kQO,kQP,hkQQ,lkQR,zkQSS.!kQTT.@kQU_MfkQVRrkQWRKkQXSKqkQYTkQZE`WkQ[E`PZkQ\F`8kQ]F`WkQ^N`@kQ_:dhkQ`:dlkQa:diwkQb:dvwkQd:dwkQedvkQhafZkQkf; kQlfvkQnkkQkQokzkQp2qWkQq7qkQsIqkQtVqMkQu\qkQvs"&kQwsvkQxtLkQytykQz$t_kQ{vXukQ|kQ}KqkQ~K &kQK(kQK@kQh~kQHkQYkQwkQ}kQkQd kQ(_kQakQ0!# kQ &kQkQ &kQ &(kQ\gkQu'xkQkf`;kQkfKqkQDfTkQepkQ kQ7qqkQ&kQ%SkQ:dwkQ,zkQSS.!kQTT.@kQU_MfkQVRrkQWRKkQXSKqkQYTkQZE`WkQ[E`PZkQ\F`8kQ]F`WkQ^N`@kQ_:dhkQ`:dlkQa:diwkQb:dvwkQd:dwkQedvkQhafZkQkf; kQlfvkQPUFDz(P &@8 &E  &2 &T &YZ &[q+2 &R &,R &R &E R &_MR &TR &gYR &YK &E KZE SKqkQYTkQZE`WkQ[E`PZkQ\F`8kQ]F`WkQ^N`@kQ_:dhkQ`:dlkQa:diwkQb:dvwkQd:dwkQedvkQhafZkQkf; kQlfvkQPUFDz(PPUFDz (PPUFDkvz=P qkQ qrkQ q<kQ q zkQ &[q+2 &R &,R &R &E R &_MR &TR &gYR &YK &E KZE SKqkQYTkQZE`WkQ[E`PZkQ\F`8kQ]F`WkQ^N`@kQ_:dhkQ`:dlkQa:diwkQb:dvwkQd:dwkQedvkQhafZkQkf; kQlfvkQPUFDkz=P qE  qrkQ q<kQ q zkQ &[q+2 &R &,R &R &E R &_MR &TR &gYR &YK &E KZE SKqkQYTkQZE`WkQ[E`PZkQ\F`8kQ]F`WkQ^N`@kQ_:dhkQ`:dlkQa:diwkQb:dvwkQd:dwkQedvkQhafZkQkf; kQlfvkQPUFDkz=PPUFDkz =PPUFDvzDPx{XkQlfvkQf0kQOlzkQ XkQfkQ@ykQ:skQp'XkQ@t!kQKq kQ#"#"("X("a"c"s"Ss"u"u"u"X~"6"s"fHPUFDƢzQPME f@kQ "skQ&fkQg'p!kQi'XkQy:}kQ>XkQlfvkQf0kQOlzkQ XkQfkQ@ykQ:skQp'XkQ@t!kQKq kQ#"#"("X("a"c"s"Ss"u"u"u"X~"6"s"fHPUFDzQPPUFDz QPPUFD vzUP xkQ xkQ xkQ x(kQxzkQxkQxkQx<kQx{kQx""kQx'kQxX:kQxy:kQx:kQx:kQx^KkQx?TkQx_kQxfkQxfkQxfkQxrkQ xykQ!xykQ"x\}kQ#xkQu"u"u"X~"6"s"fHPUFD$ƢzUP%xE &xjLxkQ x(kQxzkQxkQxkQx<kQx{kQx""kQx'kQxX:kQxy:kQx:kQx:kQx^KkQx?TkQx_kQxfkQxfkQxfkQxrkQ xykQ!xykQ"x\}kQ#xkQu"u"u"X~"6"s"fHPUFD'zUPPUFD(z UPPUFD)vzVP*[+kQ,rkQ-rkQ.rkQ/#rkQ03&kQ14&rkQ2,kQ3. kQ4?TkQ5N`&kQ6T`rkQ7:dykQ8fkQ9qPkQ:sPkQ;w0akQ<x0akQ=x0akQ>y0akQ?ywkQ@y0akQAz%kQBz_MkQC kQD5kQErkQu"X~"6"s"fHPUFDFƢzVPGE HjLIrkQ.rkQ/#rkQ03&kQ14&rkQ2,kQ3. kQ4?TkQ5N`&kQ6T`rkQ7:dykQ8fkQ9qPkQ:sPkQ;w0akQ<x0akQ=x0akQ>y0akQ?ywkQ@y0akQAz%kQBz_MkQC kQD5kQErkQu"X~"6"s"fHPUFDJzVPPUFDKz VPPUFDMOz(PPUFDNOBz4PPUFDOPzPPUFDPPzPPUFD}vzPNNz05NOV87105708PHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADHEADPPUFDNNzP.sz04SEP8513033604SEP85130335œPUFDOOzP.$Cdh.+++6&jL_04SEP8513070104SEP85130656*.,))+jL_04SEP8513070904SEP85130703(.-..86&M_04SEP8513071604SEP85130710-..W"S04SEP8513072104SEP85130718).0.'kQ"S04SEP8513074704SEP85130746.1 &(04SEP8513075004SEP85130749Z.2z &(y04SEP8513075104SEP85130750̜.#$ &[q22MAR8712511622MAR87125116"R .;F BuWTkQ04SEP8513080504SEP85130804 .<z r(^04SEP8513080604SEP85130805.=G4rxrl^04SEP8513080704SEP85130807.>WVV.rl^04SEP8513080804SEP85130808U.?Y&rl^04SEP8513080904SEP85130809v.@Yrl^04SEP8513081004SEP85130809#&x.AYrl^04SEP8513081104SEP85130810'jq.B^rl^04SEP8513081204SEP85130811-{q.Cr[q04SEP8513081204SEP851308123<.GzZr[qy04SEP8513081604SEP851308157.HML8xrl^04SEP8513081804SEP85130817.IY8l^04SEP8513081804SEP85130818R .Kb8[qy04SEP8513082004SEP85130820.Tt^^22MAR8712495222MAR87124951R.LJt^8^22MAR8712495322MAR87124952 .NM^04SEP8513082504SEP851308244.OZg9;^04SEP8513082604SEP85130826l.PFZg8^04SEP8513082804SEP85130827j.QTZgd^04SEP8513082904SEP85130829 Q.SrZg^04SEP8513083204SEP85130832 Q".Ldar_"04SEP8514282604SEP85142825ch.  zjL_22MAR8713005922MAR87124941^  ^ .*rjL_22MAR8713010022MAR87124943i t.ffPr8_22MAR8712494522MAR87124944eF e0./0r[q22MAR8712494622MAR87124946. #{.r\K22MAR8712494722MAR87124947 3. r]K22MAR8712494822MAR87124948 @.INQ22MAR8712494922MAR87124949 ..qQ22MAR8712495022MAR87124950S6.M #Q"S22MAR8713010022MAR87125026/ kJ. YZ8_22MAR8713010122MAR87125028  ,.   skQx22MAR8713010122MAR87125030  4.rkQ"S22MAR8712510722MAR87125106i.'(8[q22MAR8712510822MAR87125108&}. &Y^#^22MAR8712511022MAR87125110 . &_M#^22MAR8712511122MAR87125111.((T &(K#^22MAR8712511222MAR87125112 GPjL!. &^22MAR8712511322MAR87125113l$u.$$d &aT^22MAR8712511422MAR87125114 2.&& &Q^22MAR8712511522MAR87125114 3*M.3|  &[qy22MAR8712511722MAR87125117  J PUFDOPzP.TK Vysd04SEP8513083504SEP85130835  J.VLtOlyd04SEP8513083804SEP85130838$ X>.W>:xX04SEP8513084004SEP85130839% 9.X@kz?T04SEP8513084104SEP85130841& n/.ZB( Ԁ04SEP8513084504SEP85130844 )~.[B(_Mp:Ԁ04SEP8513084604SEP85130846 @.#F qK304SEP8514033604SEP85140335 b.%N304SEP8514033704SEP85140337lw.&I z; 9304SEP8514033804SEP85140338sO.'K 304SEP8514033904SEP85140339|U.(Fr 304SEP8514034004SEP85140340.)M  304SEP8514034204SEP85140341 Գ.*J++<e304SEP8514034304SEP85140342*.+Ja304SEP8514034404SEP851403432.,N&304SEP8514034504SEP85140344„<.-F,304SEP8514034604SEP85140345ńK..L304SEP8514034704SEP85140346 DŽDz./K4s304SEP8514034804SEP85140347ՄI".0J:,8^304SEP8514034904SEP85140349ׄw.1K|q|K304SEP8514035004SEP85140350 لV.2G>qO304SEP8514035204SEP85140351.3Ot!304SEP8514035304SEP85140352.4H K f9304SEP8514035404SEP85140353 a.5GK @j304SEP8514035504SEP85140354+.6L** H304SEP8514035604SEP85140355)$.7F 8304SEP8514035704SEP85140356*o.8I0_304SEP8514035804SEP85140357-Ÿ.9G304SEP8514035804SEP85140358/.:H|304SEP8514035904SEP851403590u.;Nz_304SEP8514040004SEP85140400 5*.<N&}304SEP8514040104SEP85140401FK1.=M|&304SEP8514040204SEP85140402GX.>J (@304SEP8514040304SEP85140403 bZ.?O* 304SEP8514040404SEP85140404l.@Me 304SEP8514040504SEP85140404l.AP304SEP8514040604SEP85140405t.BFL304SEP8514040704SEP85140406` .CKy304SEP8514040804SEP85140408=.DE~y304SEP8514041004SEP85140409;.EIX304SEP8514041104SEP85140410|@.FNu:304SEP8514041204SEP85140411.GO e"304SEP8514041304SEP85140412.HI{304SEP8514041404SEP85140413.IP??>vLD304SEP8514041504SEP85140415>s.JF>304SEP8514041704SEP85140416.KI@j304SEP8514041804SEP85140417+.LN \n%304SEP8514041904SEP85140419 z.MH z304SEP8514042004SEP85140420 .NO%%y:}304SEP8514042104SEP85140420${.OO22SZ304SEP8514042204SEP8514042118.PK304SEP8514042304SEP85140422jr.QGH'304SEP8514042404SEP85140423n.RP'}304SEP8514042504SEP85140425qc.SJL2d304SEP8514042604SEP85140426@.TKd4304SEP8514042704SEP85140427'.UNQQbx304SEP8514042804SEP85140428P.Vv2d304SEP8514043004SEP85140429'.WM J:}304SEP8514043104SEP85140430 e.XOjL304SEP8514043204SEP85140431͇7.YO_Mp:304SEP8514043304SEP85140432..ZM_Ma304SEP8514043404SEP85140433!V.[P.kQr304SEP8514043504SEP851404343 .\FQ304SEP8514043604SEP85140435.]HRv304SEP8514043704SEP85140436q.^/6;d304SEP8514043704SEP85140437r ._OfZ304SEP8514043804SEP85140438{.`HnZg,304SEP8514043904SEP85140439 D.aITq304SEP8514044004SEP85140440.bJUq5a304SEP8514044104SEP85140441ux.cLVqM304SEP8514044204SEP85140442".dHYq304SEP8514044404SEP85140443~.eD[q304SEP8514044504SEP85140444.fP Vs304SEP8514044604SEP85140445 (.gOKKQw304SEP8514044704SEP85140446J'Τ.hFw !304SEP8514044804SEP85140447r$I.iN0w@j304SEP8514044904SEP85140448 wۛ.jGxs304SEP8514045004SEP85140449V.kO jQS304SEP8514045104SEP85140450\Q.lGz304SEP8514045104SEP85140451$.mLx304SEP8514045204SEP85140452x.nN>x@304SEP8514045304SEP85140453y.oIxh304SEP8514045404SEP85140453.pM*y}304SEP8514045504SEP85140454 .qM xys304SEP8514045604SEP85140455 È.rNyd304SEP8514045704SEP85140456ψ.sGyd304SEP8514045804SEP85140457ֈ.tI>y}304SEP8514045904SEP85140458׈*.uP P zR304SEP8514050004SEP85140459 ݈J.vE@304SEP8514050004SEP85140500wD.wLv<304SEP8514050104SEP85140501ge.xHt|C^304SEP8514050204SEP85140502a.yM p304SEP8514050304SEP85140502 M.zF 304SEP8514050404SEP85140503W.{P((r%304SEP8514050404SEP85140504$ W.|H8304SEP8514050504SEP85140505.7.}Md}304SEP8514050604SEP85140506 CR.~N#;304SEP8514050804SEP85140507Q.PmmZ &304SEP8514050904SEP85140508l4@%.F px'304SEP8514050904SEP85140509 c.I '304SEP8514051004SEP85140510 .I2d304SEP8514051104SEP851405115:.P}}8304SEP8514051204SEP85140511|͊B.O772:304SEP8514051304SEP851405126Jf.MbK304SEP8514051404SEP85140514.NoQ304SEP8514051504SEP85140515p.K pQ304SEP8514051604SEP85140516.HQ304SEP8514051704SEP85140516.HQ304SEP8514051804SEP85140517.DlQ4304SEP8514051804SEP85140518‹.I QF 304SEP8514051904SEP85140519ċ.HQl 304SEP8514052004SEP85140520ȋ.HQ_304SEP8514052104SEP85140521΋z.I2Q304SEP8514052204SEP85140522Ћ.H BQ304SEP8514052304SEP85140522 ҋl.O:Q* 304SEP8514052404SEP85140523܋,.HQ304SEP8514052504SEP85140524.GQ304SEP8514052604SEP85140525.HQ304SEP8514052704SEP85140527r.EJQa'304SEP8514052804SEP85140528H.O^Q'}304SEP8514052904SEP85140528 .BQ,`r304SEP8514053004SEP851405299.OQ2]304SEP8514053104SEP85140530 r.IQ2d304SEP8514053204SEP85140531 {.PQe4304SEP8514053304SEP85140532.OVQy:304SEP8514053404SEP85140533+.PQ:304SEP8514053504SEP85140534)\$.PQYM304SEP8514053604SEP85140535.-5.OQ_Mp:304SEP8514053604SEP851405360Ap.O RQkQ304SEP8514053704SEP85140537 3B.O QE`304SEP8514053804SEP85140538 > T./6Q;d304SEP8514053904SEP85140539IJ`.PQfZ304SEP8514054104SEP85140540 J.QQm304SEP8514054204SEP85140541Xmn.N tQs304SEP8514054304SEP85140542 vb.OQv304SEP8514054404SEP85140543Z^.N Q zR304SEP8514054504SEP85140544.HQ;}304SEP8514054604SEP85140545f.MNQ4304SEP8514054704SEP85140546n.H00t^304SEP8514054804SEP85140547/9&.G>~T`304SEP8514060704SEP85140606=O.D~W304SEP8514060804SEP85140608Oi.L`304SEP8514060904SEP85140609 .PBBf304SEP8514061004SEP85140610A] .O304SEP8514061204SEP85140611@6M.PZZpw304SEP8514061304SEP85140612YZ|.N""`304SEP8514061404SEP85140613/.KFOlys22MAR8712492122MAR87124920c G."Zr822MAR8712492322MAR87124922h ^(.hit:z22MAR8713011822MAR87124954g  PUFDOQzPPUFD ORzPPUFD OTzP..89""_M"22APR8717512222APR87175004 =>?+@ nAF..y""_Mc""22APR8717531422APR87175258~BPUFD OUzPPUFD OvzPPUFD Owz P.R P22MAR8712445222MAR87124452YPUFDOzP.i] dd04SEP8513092004SEP85130919 o .t-`dd04SEP8513092804SEP85130928y & .;dd04SEP8513104004SEP85131039} .<dd04SEP8513104104SEP85131040 .;dd04SEP8513101704SEP85131017 .= dd04SEP8513103604SEP85131036 .Wdd04SEP8513101804SEP85131018 P .Zdd04SEP8513104404SEP85131043 .lJ&dd04SEP8513092204SEP85130921 n.V,dd04SEP8513105504SEP85131054 ;.ePdd04SEP8513091604SEP85130916 ._&dd04SEP8513091204SEP85130911j.BVdd04SEP8513105004SEP85131050 l.X//dd04SEP8513095704SEP85130957.)P.L"dd04SEP8513103804SEP85131038c!.xIB &(dd04SEP8513093204SEP85130931,K.U(dd04SEP8513102804SEP85131028'.j1R)dd04SEP8513092004SEP85130920#.8^w*?Tdd04SEP8513105404SEP85131053x.fI 4dd04SEP8513091704SEP85130917m8.r8(dd04SEP8513094104SEP85130940?\.r8[qdd04SEP8513094304SEP85130943.^:dd04SEP8513100604SEP85131006 G.LnYMdd04SEP8513103004SEP851310306C.6.Mdd04SEP8513093704SEP85130937:O.wXlkQ_d04SEP8513093104SEP85130930dL.gHQdd04SEP8513091804SEP85130918tT.r6$Qdd04SEP8513092704SEP85130926vQ.L bQdd04SEP8513103304SEP85131032 xO.QVaTdd04SEP8513101204SEP85131012BY.s<8 Xdd04SEP8513092704SEP85130927qo.Afdd04SEP8513100904SEP85131008f.R fdd04SEP8513095304SEP85130952jo.yIldd04SEP8513093204SEP85130932*l.]"sdd04SEP8513100704SEP85131007Ky.avdd04SEP8513105604SEP85131056).o,$wdd04SEP8513092404SEP851309249kv.kH Dxdd04SEP8513092104SEP85130921 ;(}.6xdd04SEP8513102104SEP85131021Em.Ixdd04SEP8513095104SEP85130951J|.h>*zdd04SEP8513091904SEP85130918d}.;nzdd04SEP8513103504SEP85131034fmt.D}dd04SEP8513100204SEP85131002hr.>~dd04SEP8513102804SEP85131027z.L4dd04SEP8513105104SEP85131051^}.<Tdd04SEP8513105804SEP85131058u.K>|dd04SEP8513110004SEP85131100T{.Ixd04SEP8513105904SEP85131059.Cz|d_04SEP8513103104SEP85131031.Rdd22MAR8712455022MAR87124549*.K0 dd22MAR8712455122MAR87124550ҞZ.Bdd22MAR8712455222MAR87124551֞.s^kQdd22MAR8712455322MAR87124552؞.S &sdd22MAR8712455422MAR87124553ɠ.R jdd22MAR8712455522MAR87124554 Рy.M (~dd22MAR8712455722MAR87124556 ۠.M :ydd22MAR8712455822MAR87124557 .cxedd22MAR8712455922MAR87124558;.R&Sdd22MAR8712460022MAR87124600.Wdd22MAR8712460122MAR87124601VkV.O R8dd22MAR8712460222MAR87124602 fN.aXadd22MAR8712460322MAR87124603r$.S fdd22MAR8712460422MAR87124604 .2" qdd22MAR8712460522MAR87124605f.;_dd22MAR8712460722MAR87124606U.g 2dd22MAR8712460822MAR87124607 s.S<edd22MAR8712460922MAR871246085.P8%dd22MAR8712461022MAR87124610t.<:dd22MAR8712461122MAR87124611 m.Uxdd22MAR8712461222MAR87124612.WMdd22MAR8712461422MAR87124613.c Qdd22MAR8712461522MAR87124614 ).Qdd22MAR8712461622MAR871246155.ggdd22MAR8712461722MAR87124617;._>bKdd22MAR8712461822MAR87124618C.Ndd22MAR8712461922MAR87124619X#.M %dd10APR8709343210APR87093431=Q. M.DRdd10APR8709345010APR87093449=4PUFDOzP.; Y04SEP8513123704SEP85131236[.7 ^Z04SEP8513123504SEP85131235lZ.7 Z04SEP8513123904SEP85131238]. s_06NOV8713125306NOV87130948&Ci&s.9Y04SEP8513144404SEP85131443uc.3YY$s_06NOV8713142106NOV87131336X.,d06NOV8713163006NOV87131629.Ldl^06NOV8713163206NOV87131630_.<8[q04SEP8513123104SEP85131231y.;Y04SEP8513165004SEP85131649^q.:^Z04SEP8513164804SEP85131648o.:Z04SEP8513165204SEP851316518j.;Y04SEP8513175304SEP85131752sk.:^Z04SEP8513175104SEP85131751j.:Z04SEP8513175404SEP85131754On.;Y04SEP8513154904SEP85131548p.:^Z04SEP8513154704SEP85131546o.LZ04SEP8513155004SEP85131550gj.?J<9Y04SEP8513185004SEP85131850^.:$<9^Z04SEP8513185204SEP85131852.:J<9Z04SEP8513185404SEP85131854.`Gr%04SEP8513113404SEP85131134.cKr\K04SEP8513113604SEP85131136d.p9r]K04SEP8513113704SEP85131136N.aMr[q04SEP8513113504SEP85131135x.uCr04SEP8513113804SEP85131137 .*tsY04SEP8513133904SEP85131339h.*s^Z04SEP8513133704SEP85131337.*sZ04SEP8513134104SEP85131341P.G* Yl^04SEP8513123804SEP85131237U.G* ^Zl^04SEP8513123604SEP85131235ͧ.GJ Zl^04SEP8513124004SEP85131239.Y zYl^04SEP8513144304SEP85131442 .CYl^04SEP8513144504SEP85131444h.C^Zl^04SEP8513144104SEP85131441°.CbZl^04SEP8513144604SEP85131446:.C0Zl^04SEP8513144904SEP85131448.;8[ql^04SEP8513123204SEP85131231 .AYl^04SEP8513165104SEP85131650 /.A2^Zl^04SEP8513164904SEP851316481.ABZl^04SEP8513165304SEP85131652k.JYl^04SEP8513175404SEP85131753.J^Zl^04SEP8513175204SEP85131751".J4Zl^04SEP8513175504SEP85131755".GYl^04SEP8513155004SEP85131549)п.G^Zl^04SEP8513154804SEP85131547,Q.GZl^04SEP8513155104SEP85131551/.HZd06NOV8713163606NOV87131635 .Cjdl^06NOV8713163606NOV87131636a.$(\d06NOV8713164006NOV87131639.|I rl^04SEP8513121004SEP85131210>.vL$r\Kl^04SEP8513120504SEP85131205G.{Mr]Kl^04SEP8513120604SEP85131206J.}Lrl^l^04SEP8513121204SEP85131211Mk .G`sYl^04SEP8513134004SEP85131340e .G`s^Zl^04SEP8513133804SEP85131338j.GsZl^04SEP8513134204SEP85131341on.||_25OCT8514133225OCT85141331{t.P_04SEP8513200204SEP85131959Yb.&=|,d06NOV8713164406NOV87131643]$.+Bn,dl^06NOV8713164506NOV87131644HFp._04SEP8513202104SEP85132019YJ`.-/)!d06NOV8713164906NOV87131648I6.5Y)!dl^06NOV8713165006NOV87131649\1.;F2d06NOV8713165406NOV87131653_C._04SEP8513213104SEP85132128t.=T2dl^06NOV8713165506NOV87131654a.((_04SEP8513214604SEP85132141'}.77_04SEP8513215504SEP851321486.>NMd06NOV8713170006NOV87131658ek.?<Mdl^06NOV8713170206NOV87131701t. 11_04SEP8513233204SEP851323260V. _04SEP8513235204SEP85132334 . 99_04SEP8513240004SEP851323548+.@Jz fd06NOV8713170506NOV87131705vu.FF"_24MAR8709515724MAR87095155E^e.B7 fdl^06NOV8713170706NOV87131706y.DFgd06NOV8713171006NOV87131710{r.ETgdl^06NOV8713171106NOV87131710|+.2x'_04SEP8513255404SEP85132539.GK Old06NOV8713171606NOV87131714̓.jj(_04SEP8513261904SEP85132605i . dw*?T_04SEP8513262404SEP85132621u.KEOldl^06NOV8713171706NOV87131716Z.N/hzd06NOV8713172106NOV87131720.P1^|d06NOV8713172506NOV87131724K.N:_04SEP8513272204SEP85132707t.&1KX_04SEP8513272704SEP85132725o .FFbK_04SEP8513273804SEP85132730E.R@D|dl^06NOV8713172506NOV87131725.T)d06NOV8713173006NOV87131729.(d06NOV8713173406NOV87131733.@dl^06NOV8713173506NOV871317343j.D^d06NOV8713173906NOV87131738_%.<~dl^06NOV8713174006NOV87131739.u."gghaT_04SEP8513292804SEP85132917f # .#8QXx_04SEP8513293204SEP85132930 t# 3.$__04SEP8513295004SEP85132935#r`.%""d06NOV8713175806NOV87131757!6..s_04SEP8513331704SEP85133249c).:/"d06NOV8713180206NOV87131801W3.0''x_04SEP8513334204SEP85133335&*,.1""x_04SEP8513334904SEP85133344!*.2z}_04SEP8513335704SEP85133352*.?E"dl^06NOV8713180306NOV87131802.4T_04SEP8513344904SEP85133445+u.GAb&Md06NOV8713180706NOV87131806.L0<R)d06NOV8713181206NOV87131811;.7!!_04SEP8513355404SEP85133548 -).zrry04SEP8513123004SEP85131230I+S.]H"_22MAR8713012022MAR87124956)C@.^ta_22MAR8713012022MAR87124957CO.b77Q_22MAR8713012122MAR87124959E6FF.dGGRYM_22MAR8713012122MAR87125001FDu.m\\v_22MAR8713012122MAR87125002[D7.n8Z_22MAR8713012122MAR87125004G.q++rl_22MAR8712500822MAR87125005*WK.z&_22MAR8713012222MAR87125009H.~ww\4SJ_22MAR8713012222MAR87125011v[q.h]_22MAR8713012222MAR87125012SSSF.mmhOl_22MAR8713012222MAR87125016lGY.==~_22MAR8713012322MAR87125017JS E003II<OlS`ET:;pT:;pT;pfY%HT[8?T[8= T[^?o^HX= T`Z:H`@yHaJ;>:dh+f f`" f@yHf:?fX fPK?ff?fxd fd fPK?l 5|l`"5|l@yHl:5|l: lElX5|l :5|lPK5|lf5|l 5|lxd5|lPK5|lEm)m})mEm5| q+Tq0HrxQHs;"+wfwDyp5HDyHHy@8Hys= y= y(J@LzHLz'H (s5|#p$#X\$)x$)X5|)X$+pJ@0h3H0$`H0J@3`"3"5J@9hH9iH9(iH9PiHpEZHՅ ?ՅW?9L;^L;_L;XgL;`}J@D:dLEu~LJP"LK@}LKpLM^LM_LMXgLssHĜ:dEܝ:dEP":b@}:b!Q#^Q#_Q#XgQ#`}J@,:dE-u~Q2P"Q3@}Q3pQ5^Q5_Q5XgQNj^Nj_NjXgNj`}J@:dNju~NjŸP"Njß@}NjßpNjş^Njş_NjşXgNjȟ^Hȟ_HQR8S^R8S_R8SXgR8S`}J@\:dR8]u~R8`_R8bP":bc@}:bcpR8e^R8e_R8eXgR8T:TaTyTyT%J@U}J@\}J@:LaL:QaQ:NjaNj¬:R8¬aR8! #p$#8;$` H&d))+)X5|*:b,2T-8;;p-`^;</0= /8;>2?3E4`J@5vL92N$9p5Nj9>Q9KQ9R8$W 54@;F4 rDfts(@BB- WAEfE 'EE5  ^^$9  f$9f p$9 v$9 |$9 lw @ ݂ f 5@@WtE&~r$9   $9  $9 T; z aK";F4 &7&0Hy@8Uf ;F4 dz 6  E ы;U 5 5 64 Eы&U  5!UыzS`E5   5vwT T B=:1EE?E U 5E$B0h3HaKJ;F4 N9ir9h\UŀUuEWUWUQ  w,9i9(i49Pi<;F4 v=̀zS`:Bы ѕHE Bf0ffffffe}Wt )&ߕ U E,sE3 Rw\f`aKb;F4 f(jS`T :ߕe  wQ51B ‹  E U2y( S`;F4 $f&fX[M(Fp[M(F~ 5@ ff& ɋ$     w@ &  퇎  BS`2D`:^L2  5   >  0 "  5 ыfw@1&D4eVej6F3 nsE3 tϫ5 5@55 ɋ ɋѥE@U@ w(@`" .Df0s(j+{pn0IrDE E@WU@U ы w2  r   $ы 5fw EUwR54 6 r8,sE3 T; aK";F4 &4FL*S`B;F4 < 4 be (e RRRRRR ʕ Z1  e e e  p Z:Z E5?f&w 0=e @ 5  ߕP5#     f U sE3 0DfXn4  %w0r eJew5    df$9 $9 $$9  (.f2rDsE3 zaK|;F4       Н.PP5 5 F  w75,H ;F4 :^;F4 aK;F4  rxQ$;F4 (@.^:jln;F4 ,  5 $3 wb{0$5  $eL <dww5 w 2$$9  >:daKf;F4 jlz$939  5W 5W  5W 5W & W&  JT5H:^$  [M(FLj[M(Fvfz[(P}|C 0@e_ ߕeE_ UߕBEwUe P5\d e4sE3 "f2sE3 6T[8FT[8Lf`8(d\!W h9h "9hh9i "j9ih9(i "9(ih9Pi 9PihK xxQ #xQhrxQh$0$`hy:}h xQ  } C=p} C=003 &+3DATADATADATADATA} E=8w}y A=8"} C=x}}   C=}   C=} C=X} C=}   D=0 }   }   H}   }  0 } #}}  #%}   #%} ""#}} $$#@y} &&#0 } (( p} ** } ,, 8w} .. 8"} 00 0 }$ 22 }+ 44 }0# 66 }1 88  } :: } << xQ ^R^U ->^Z \  PPYY??OO[[ / 0~ ?@~ ~09 ~ C   x x 9h 9iH 9(iB 9h 9iH 9(iB 9h 9iH# 9(iB 9h 9iP 9(iB 9h 9iP 9(iB 9h 9i 9(iB 9hh 9iHO 9(i0 9h  9iP 9(i 9h 9iP 9(i 9h  9i  P 9(i  9h  9i  P 9(i  9h   9i  9(i  B 9h  9i  P 9(i  9h   9i  9(i  B 9h0 9i 9(iB 9h0 9i 9(iB 9h 9i 9(iB 9h 9i 9(iB 9h 9iP 9(i 9h 9iP 9(i 9h 9iP 9(i 9h 9iP 9(i 9h 9iP 9(i 9h 9iP 9(i 9h0 9iP 9(iB 9h0 9i 9(iB 9h0 9i 9(iB 9h 9iP 9(i 9h 9iP 9(i 9h0 9i 9(iB 9h 9i 9(iB 9h  0 9i  9(i  B 9h!!0 9i!! 9(i!!B 9Pi     +[ xQ KKR3@}!2P" 3p -u~#Xg5Xg#_#^5_5^,:dxQ KKRc@}QbP" cp ]u~SXgeXgS_S^e_e^\:dxQ0 K0K00Rß@}ŸP" ßp u~XgşXg_^ş_ş^:dxQH KHKHHRSL@}ALRLP" SLp MLu~CLXgULXg003II<OlCL_CL^UL_UL^LL:dxQ` K`K``RK@}9JP" Kp Eu~;XgMXg;_;^M_M^D:dxQ0~ ( q( q( (y ( :(^ ((((s (` ((l :lPKlPK l "l`"$lxd&lX,lf.l &&xl:fPK fPK  f   f`" fxd fX ff :fPK ddxf: y: a y(sC=C=C=C=C=C=gC=hC=i C=j"#p$#&#z *Q@y Q@yQ Q(d Q@y Q   TT    Q`T    RR Qp:@Qp Q:: Qz**. . 88@66   Q` Q QxFF*Q^QQ8w QHS QzQH5VV"S=S@=S= Sh=xQ% xQbbfft3tHJY "O{O{O{ #e>    e  f v El_n vz6F3  %$%(%,6F4 0sE4 4aK86F3 ::dh@:dhF6F3 HxQ LxQPʫWZxQ pxQl txQnxsE/ f~ Ep_r vhR ,TT5dAWte¿bZ xQp xQr xQh()x*3 .xZ2eĊ8nH@u LxQd^ bxQbzW dXz&ddXDT;@T K@ ( q@kZ@L,@4 @T;8@[M(F@تf@T[8@4FL@4FhL@z q@iy@ xQD (^h (h(yh(h(DŽhN(hxQ  ( :hmh(m}h\ xQD ;  5 0& &  te P  UE pE@EfEU L,4 ,T;86 ( qZT[8| w 0 @@ 1w( 2 2w( ͇6w(8 ( LT K qL,> qLxQ(VT;Z4FLbxQ(fL,rxQ(|xQ( w 4FhLxQ5E4 B @  0 @@wC5@ U@  (kZ\iyxتf~[M(F&|Ce ҋ3ӊ`  ҇^W dz)dDT K@$9 @aK@s@H\}@; @; H@;F4 @(s@ RX4@#@T;`@z;w@o^HX@T;@sE3 @<;@y@: x@(DŽ@Lz'@: @y@@K@[M(F@T;;"@T;I"@ϫ@z`9@C=s@#Xu@$99@$9!@T[8@$9Z@; xK@$CT@$97@T;@@'D@y@Lz@zՅW@ s@J x@=s@;"y@6F4 @Xa@y@+{p@ xQD  8(hl:8^h hE=8whzD=0 hHh 8whVhC=ph 8"hV0 h~ 0 h=hC=XhC=hh,C=jhNC=hhC=ih zC=ghC=h=̀hC=h8HXh qhT C=hC=h8/ h80 hA=8"h< phC=h s;"h hbC=hC=x}hC=hhC=hdC=hzxQ :dhhL,hxQhhTh\ xQDyu_  2l & 5\5M52E5p-5@E F003&+3DATADATADATADATA5sE3 :ϫt=s|  @H5&   .B5m^:͋ 5 5@   c5pU , *=sb'Dw Uw\ Ew\ 5@U@  @  XwE@52 T K[M(FxQ\ [M(F6xQ\pxQXto^HXt  • Ep0 : w( 5p B B w &50[M(F$0F$97 N$9  V$9Z E  & 5]5@w5w*&& (K55 5 5 F5 25 ϫl ww55}~wza 5 5  5sC=sxxQ Be w5(5%5 UwCewC5@& BE  އ5C  RX40#<yF\ϫd܋  5% $)  5 z w "Etm"E <% }   T[88<;@y<;wD'Df$CT5  5@w55 U‹2.585'"0 s4pT;;"\W e   Ӌ  w |E4w& 5   <;"y*T;I"8$99 BxQJxQ|dT;n$9! 5  wp5@&  U cH w 5w45U )5:xQ(#Xu@Lz'F; HR(s\Lzb; r#|ՅWT e  5i  w  w 455E (DŽT[8J#XuNy4w CEœe  `   ”   y; xK.H\}h#L4t w6  w04w5w *#Xu#Xu2; xK6; xKPH\}n#De `->є~ %$)BE w5 w> |55: µ`>yNxQ|tJ xf5& 5 $:     %N5@UU@ w0xQ6#Z: @y<E@Uw& f&@EE (%5@    TW 8@U@5: xRXan`9EHEU \ ɋ2-5)5 5 j  5&xQ\@2x'D4     L8Ie 5  <2 0e e&  08^$CT wF < N Ε <  &  5. Z5V͋ 30 $CT,T;`8$CTF'D, * ^@]5 5 :5 5@;0 @ 5ACE57rH\} 懗 ͋ 5@55 0 `5p 5 'D xQ|'D4$ :   ԃ Ӥ` ˬ xQX  5 7$&&; ҋw` ` BE ҇$;F4 "aK$;F4 &e&E;3 ,ˊEp5D ĬU$0 5 ע E U \(xQ\xQTT CĜmB ^&e5 5  4 h"e>  003#II<Ol $ [M(F+{pK<   57  6F4 0;F4 6aK8;F4  W 0f eE C,׬EeC _W W <xQl@yl(02epsE3 x:s ~:t  |t 5@w`W aB,5F$(f 4U ,4,:$4&e& : ",$9B ":  FV}R4 z;F4  " $  !,  $"&4 ,E5-" W  & ,aK;F4 4 2P}n:s |4 t?"" " ~"e ~ @B <  5@ A   .;F4 aK;F4 P$CT\ϫrf@yzS w(W &@e@, & ,  wv,)u&5,55W54 $9Y :  .e8P}>xQD߂H0Aylw 5@ We wv,s,Ü B ¥B ¥¥•°f@ sE3 00Ay>0AyD0AyX:  b:s h:s   C  w5 W    CC E| #X\e$9 "xQD߂,T; z 0xQD߂:C @Cr P;F4 V2X;F4 ^;F4 d[Ml$9Cy t$9  (d?U 0 55 xQD@@ ;5,$U P)   s"PDfD s($uHxQ\xQr$9f x$9  ~$9Cy | wW e@ W p< 5@23  ww>aK;F4 7&@$CTLϫl:74 tfdxS |fX0@ 5  5 U    wH , , p, ,52S qZ&w>9!NJ9!N^:.xu~Df,tw\ www$s( xQڠ&$939 xQڈ ,5 wwl$ uDfs(xQDߔxQDlW z*D$CT@T@T:@aJ;@ xQ DB`hP"hbP"h@}hc@}h xQH5  \  &   @ $CT T$$CT,aJ;>T:W XR-8;XD8/ @ xQD BTh$T:hT:h xQDFf &   EB m`Ee8/ W h xQDI_4 .5 :@"50  ( 5@  w 8sE3 @DL,J:8^P qT80 pT;t8HXx (s|w 5U 5@E  E4 eUe  e UU@& 'D[M(F,: ,!2[M(FfՅ |T`Z:  wW z/8;DaK@P ^@;F4 @P _@#@o^HX@sE3 @T[^@ xQ aJ;hS}hv  xQc5 5EEI F_e  3 5* $P ^2P _LsE3 `T[^\|  %   4 3 @ ;F4 aK;F4 #To^HXz W dXz2dXDw@}@$9d@`r@}@T`Z:@$9Y@H\}@P ^@;F4 @68@Ov@zkZ@L,@4 @@:p:@ @;w@y@P}@V}@#@@T; z@˪s@[M(F@ss@zϫ@w@#@#Xu@$9!@s;"@ke@T;@e@aK@y@7&@ xQD ,Յ hb ( qhf:hfPKhTT[8hpՅWhxQ Tf@h>( qhT[^hffhfPKh xQD@e@, e3 Ue & 5 wE3 0 E@ EAHeVxQڤ|E@P3 5U`5UE}uP5E E 5U U@ 5WWp tsE PE@ 55U Ut  "( " *  e  &xQPV}d4 l68t: c $)")$3 "Ee  e   ܆ wB@5  52@e5B4 H$9YPxQfϫ B$R" & &4` 5  5@U45B w EE":wLϫjP}txQx;wl@4  4  4   5E45  U@ E53 & "P}<$9d RL,r;F4 H>5@  B 55 w>P ^$`rFxQ>xQ5 wQ"/פ,*( 'E@5 E5U# ]B"T`Z:xQD߂(T;.T; z8˪s| UiweMWt b7J  R&ff : E7T 78kZw&;F4 .˪sHaKJ;F4 l;F4 raKt;F4  6 -BE5  U E4 U 4 wר5@ΕΕ2;F4 aK;F4 ke.H\}J;wbP}f$9!tEU 3 e" 4 5 E@5@  , 4 ,w &Z4 dP}l$9Y rT; zv:p:  EUeE E  Pe EUЋ3 45  "f Nss^}djlv5 E%"5 • 45 U*##@v$Ov&#@,#.#@ )5 35 & 54 Be Be ( ž  ,&ϫ@;F4 FaKH;F4 h;F4 paKr;F4 d5• E5   EB  "   4,   3 " 2&Ov(#@.#0#@BP}PV}j4 0033II<Olt68U %w w& ffE   v `W":Д~W": % އ EEU&y[M(F#Xu y$[M(F<#@\B      E3 "  5w 4 E@5EˋU w4 <$9Y ^E, 4 ,    ׬͋ U 5 3 U  "ww.xQD^P}"ϫ*P}bs;"z}~7&B W   U(U( exQj &w@5  ߕ 55  5&  w$FxQxQ.f2'D6fLwRxQ^xQhxQ$xQ$$  &E=pfE5E 5UUߕ   %  %w&  fՀ >fDfR6F3 b"{ZՀ@ f (   wwwzm}"e86F3 >rxQ@6F3 F6F3 L6F3 P#xQR6F3 X6F3 ^#xQ`6F3 dl:hrxQj6F3 nlPKrrxQt6F3 xm|U( f> • 5& N CE{5 fӋ {5 wN e(U(:^@`@yX#sf}l5=vE5EV)U     E55f e*D %rfY%  E^5XeU΋SΊO3E EU5  UE5`45 az fY%R@ }"5veUBE  t  ΕU V u  5 5u C :j4(>; p ÜtEE{ e    e e   &f 8; >0h3 9h"Oy._4_ <_ V`ra@.[ ـJ2[e Ё r U0ce d 5  a@frh !nw~ϫ$5@ C@e xW `}h,0hDCL`}h4+phhy(h%hBU}h@\}h"5hS`}h"(hH xQFhDhYLYZYVLHUSdhn})X #p Dh:a ¬:"¬a*:,a4<:>aDD >e   =  %" e ^+5'e >6F4  ]a ϫ*6F4 8)XJ6F4 TxQv;F4 zxQ~ ~ Dl   \ 5 4 44 4 4 "4 ,e0      LJ"";F4 xQ0Ir K(;F4 ,xQ04;F4 86F4 BwLsE3 L<@5 w Ae}Wt w eE w, $9# ""ew2xQ6‹F[M(FJwflW t0z5vt0D(0@;F4 @p@o^003;&+3DATADATADATADATAHX@rh !@تf@xQ@8/ @ xQ M_hb;XghjKph;^hzah;_h Eu~hrD:dhMXghj:hM^h9hK@}hJP"h xQ wwwwAAwg   wh(w\wTwL2&;F4 2p6rh !8;F4 J8/ Po^HXV(0\;F4 f|AAwg $w$,w ww0AAf& >;F4 prh !;F4 $;F4 8xQ<8/ Xp\rh !bتfFW <*92<D $W şXgh:dhdj:hh(ş^hzß@}hŸP"hş_hah8XghßphX^hp_hu~h xQ5 4wU 5}5E5kgE5\X5W5Hȟ^Pȟ^fȟ_nȟ_| e r U -e Zŀ 3 3 %5 m s m  s  3Հ 2S}< 3>CTFTq0LTq0XTq0^Tq0 55 s s  55  U% ŀ 55X[MG^ftEEtPYEt B558 Dyp5(Dyp52Dyp5d[M(Fn 3pCTvZzf 5 5 @@ UE5   B  U@5UU$9&""$[M(FT[M(Fl  xENf E%p& 5&5U@5U 5 U‹& [M(F[M(F$3`"&`}4TJ8/ U@  UEBtB  &f OK_5 SJ;V3`"X`}fTxsE3 d  5<15E .5' T5E5e  e   rT[^bE  w@@N 5 E U UEo^HX,[M(FD[M(FN3u~NW 029>0D xQ \W Xz9KXDaJ;@3`"@8/ @#`}@ xQ H2P"h5_h 3ph#Xgh3@}h<!hB#^h:h#_hah.5Xgh 5^h-u~h xQLU@U@ ewe@Pw&3`" #`}08/ 43`"6#`}JaJ;W z9DSJ;@$CT@+{p@T:@3u~@B`@[M(F@S`}@3`"@Dy@ xQ RrQhPS^hcphPS_ht`_heXgh\:dh¬:h4]u~he^h e_h¬ah@SXght xQ 55E E 555t5BE?U UB5"Dy.Dy|U`@E 5 < CB  UU` &*$CT.[M(F23u~H+{pR$CTnSJ;^ • @5& N  ,8$CTB3`"DS`}HT:N3`"PS`}XB` W Кz,2КD+{p@'D@CL`}@‹@""@;F. @;F4 @C @$9B@4 @ @o^HX@zsE3 @f@تf@w@@vQv@3`"@3"@Rd@L N@DL@y@* X@8/ @ xQ zUL^hRLP"h(UL_hCLXgh(ALhahCL^h(:hBSLph"CL_h(PLh(ULXgh(LL:dhyhSL@}h2yhMLu~hxQ  (` hHh xQf45 5003C+H-I%J<OlE@":E@""."  4%A. A 5.5 4 | A4 4 " ߕw  v f5# A f& r@28*f.‹23"6fDxQڤTxQڤj4 ~+{p@e. E&ߕ    ""A*eD ,(($9B*""@fD'DHf~xQ,t A, ,&f&ߕ  @" ~B25 2 " u, , f  E   E$xQ,f"8/ &f\xQ,   5 5A "#$" " D"#U5  & &B. l00-"wX&@0e4 %w.e ^& 40.UOe\  C'C-0>t-0*@0 &  0.U#" "5 05 . 50" 0 d"   #"% " " 5f& Eߕ U"Uw xQZf^o^HXbf%w& K  5@A>; uU@"5 w-   T* XVC \d\"5 0A&$5#E Eߕ "E&f&  n5"ߕ  ,,f0vQv4f^$9BtfxRd|f ,LHer& l&f&4B. eB`B0EUWtEAL N~;F. T  t_&f& A. A:B 8  2  & .w&sE3 d4 "& : `4`eeҔ~"fB.  "v L"5 .5 0 xQf rr&_(  B"'&"5 C.  &;F4 ;F4 *;F4 2;F4 8;F4 H;F4 t| " Eߕ U &fA&B$D&&  ߕ \ߕXfo^HXfB+{pF+{pJتf\f`3`"bCL`}ffjxQ\pfxQ\<\ EAB C Df p  0pP+{p+{p +{p +{p"DL@y(+{p,+{p 0+{p 4+{p8+{p rr&RPRT:GTKNM:GERRMHRC: .FCTR [1,24]OLR/LB:HRCINL4EXEC: .FCTR SY:[1,54]RSX11M.STB/SS-LB:[1,1]EXELIB/LB .ENDOOT [1,24]COT/LB:COT:COTDSP:COTERR-*OVERL"OVERL: .FCTR (INI,OPN,CMD,WRT,ERR)BINI: .FCTR [1,24]COT/LB:COTINI-EXEC-LB:[1,1]SYSLIB/LB:FINIT:RWFSR28OPN: .FCTR [1,24]COT/LB:COTOPN-HRC-EXEC-*(FCSOPN,FCSPRS)%FCSPRS: .FCTR LB:[1,1]SYSLIB/LB:PARSER%FCSOPN: .FCTR LB:[1,1]SYSLIB/LB:OPFNB.#CMD: .FCTR [1,24]COT/LB:COTCMD-EXECB*WRT: .FCTR [1,24]COT/LB:COTWRT:COTWAT-EXEC4ERR: .FCTR [1,24]PIPUTL/LB:FCSERR:ER;; TKB BUILD FILE FOR ELI; ON AN RSX-11M-PLUS SYSTEMf; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;e'; BUILD ELI.TSK (ERRLOG INTERFACE TASK)c;./SY:[1,54]ELI/PR/-FP/CP/-IP/MM,MP:[1,34]ELI/-SP=c[1,24]ELIBLD/MPe;L TASK=...ELIn IDENT=03.01UNITS=12 ASG=TI:1:5ASG=TI:9 ;GCML LUN ASG=LB:10 ;ERRORS.LOG LUNASG=LB:11 ;ERRORS.ACC LUN ASG=SY:12 ;USER OUTPUT FILE LUNSTACK=64 PAR=GEN:0:0-GBLPAT=ERRELI:DEFLTR:003777-/.; 0 error log control control!@.; 1 device errors <0U2%@-@00%K&+3DATADATADATADATA"L3Љ6sBKBv#xx'e.`X.`0y: ty: y:x ^Te 80qX J0q8 >s:8 0` ~UXb"LXD#@?T@{@©2@*@ Zg#0*kh Zg#.f  eE   *©2#Ԃ{?T:UtXb3ЉtXD[ L@jS@d@N`r@ X:Zg#0B2zh Zg#F B` w` w wmf X:[ L X:X: X:&N`r*jS0X:4[ L8dR@?hu~P?h2UzBvD?hk@?hu~@?h2@/d@?hT[@W@A-@A-@R@jD@?hBx@@*k@ Zg#0ZN`rh Zg#^w E   B ` p 7A @ae  ^W?hBxkA-,?hk0/d4A-6?hT[:A->R@?hu~P?h2TjDZjDUtX:#xxtXD Zg#0"h Zg#&e?E? & f Y<UXj'eXD?hk@?hu~@?hT[@A-@A-@R@ Zg#0Nh Zg#R  0 B ` TR RA-?hT[ ?hT[?hu~&A-:A-?hT[ @?hT[F?hkLRN?hu~UXz.`XD?hcM@j/d@?hk@?hu~@?hT[@W@A-@A-@@?hBx@3e@?hy@2©2@@ Zg#0~*h Zg#w f 4 & D -N   `   vW ©2A-?hT[ &?hT[,?hu~2?hcM:?hu~H3eJ?hyPj/dTA-\?hkh?hT[j?hT[n?hBxr©2v|DUXz.`XD?hcM@j/d@@?hk@?hu~@?hT[@Cs:@©Bx@W@A-@A-@@Z@?hBx@3e@?hy@CQ@©2@@ Zg#0*h Zg#w f E  w`K`/ & D -N   vW ©2CQ$Cs:(.©Bx:A-?hT[ H?hT[N?hu~T?hcM\?hu~j3el?hyrj/dvA-~?hk(| `   ?hT[?hT[?hBx©2FULRy:LDs@@ X:0Zg#0R68h X:A? Zg#VeE & m*  * * *bFX: X: s $X: *X:*6X:*>X:*HX:*Uzy:D@W@A-@00%S1ZI%J<OlA-@h'@R@?hBx@jTG@lE@©2@[/d@k@" Zg#0l6;h Zg#pw 7 7 7  W, 7 7 0 #   jW A-A-R©2&[/d?hBx 0k4A-8?hBx ?hcM ?hcM&*03e2?hyXUz0qXD#@?hk@?h2@e;@?T@@ձ@#h@jTG@{@ X: "Zg#0j/dh</dh X:#Zg# vp4e6( d> >p4e6( ( B X: 0X:6ձB TX: lX:re;zX:J|7 w e)w 7   TX:?hkX:X:?h2 jTG2X:8X:B{#h F?TUz0q8 D#@?hk@?h2@e;@?T@@ձ@#h@jTG@{@jG@jjH@2 X: Zg#0j/dhF/dh X:#Zg# p4e6( xH   Hp4e6( H X: 0X:6ձ@jGFjGL ^X: vX:|e;^|2 䇷  7 w e)w 7   jX:jjHjjH"X:&?hk(X:,X:0?h24jTGFX:LX:V{#h Z?TULXB>sLXD@ Zg#04h Zg#8B B  @`   B`.BUz` D#@VN@3eH Q?hcMH?hkH?hu~H?h2H?hT[H?hBxH?hyH:X:jhA-hA-hRhjTGh X: :    &&# :,,VNbUz8 D#@VN@3eH Q?hcMH?hkH?hu~H?h2H?hT[H?hBxH?hyHZX:xhhA-hA-hRhjDh jTGhjGhjjHh X: 44# &&::VN.UXj~XDGG@@jS@N`r@ Zg#0\=HhNcMhhB Zg#`   v  m ` @ 8N`r GGN`r jS6N`r:jSNN`rZN`rX:xhhA-hA-hRhjDh jTGh,?? IU#005\;_=a3DATADATADATADATA;; TKB ODL FILE FOR ERL; ON AN RSX-11M-PLUS SYSTEME; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01; .ROOT ELI,FCS; YELI: .FCTR [1,24]ERL/LB:ERRELI:ERRRSB:ERRRDT:ERRPAR:ERRMSG:ERRUCB:ERRSHO:ERRSHN-LIB1-LIB2D;e-LIB1: .FCTR LB:[1,1]SYSLIB/LB:CATB:CBTA:EDTMG=;14LIB2: .FCTR SY:[1,54]RSX11M.STB/SS-LB:[1,1]EXELIB/LB;=;1; THIS IS THE COMMON FCS CODE;;R+FCS: .FCTR FCSRT-*(FCSB1,FCSB2,FCSB3,FCSB4)P;ETFCSR1A: .FCTR LB:[1,1]SYSLIB/LB:XQIOU:XQIOI:WAITI:COMMON:DARITH:ASSLUN:UDIREC:PPNASC@FCSR1B: .FCTR LB:[1,1]SYSLIB/LB:BKRG:DIRECT:ANSPAD:BIGBUF:RWFSR2FFCSR1C: .FCTR LB:[1,1]SYSLIB/LB:RETADR:RDWAIT:WTWAIT:RWBLK:RQLCB:OD2CT;FCSR1D: .FCTR LB:[1,1]SYSLIB/LB:EOFCHK:WATNOD:WATSET:CKALOCR%FCSR1F: .FCTR LB:[1,1]SYSLIB/LB:PARSE ;[; BUILD THE FCS CO-TREED;= .NAME FCSROT/FCSRT: .FCTR FCSR1A-FCSR1B-FCSR1C-FCSR1D-FCSR1F1; ; THIS IS THE OPEN LEG;; .NAME FCSBR1FCSB1: .FCTR FCSB1A-FCSB1B;4*FCSB1A: .FCTR LB:[1,1]SYSLIB/LB:OPEN:FINIT%FCSB1B: .FCTR LB:[1,1]SYSLIB/LB:.CSI1E;P; THIS IS THE "GET/PUT" LEGY;B .NAME FCSBR2GFCSB2: .FCTR LB:[1,1]SYSLIB/LB:GET:GETSQ:PUT:POSIT:POSREC:PNTMRK:EXTENDT;B; THIS IS THE CLOSE LEGF; $FCSB3: .FCTR LB:[1,1]SYSLIB/LB:CLOSE;A; THIS IS THE CSI2 LEG;]$FCSB4: .FCTR LB:[1,1]SYSLIB/LB:.CSI2;T .END= .NAME FCSROT/FCSRT: .FCTR FCSR1A-FCSR1B-FCSR1C-FCSR1D-FCSR1F1; ; THIS IS THE OPEN LEG;; .NAME FCSBR1FCSB1: .FCTR FCSB1A-FCSB1B;4*FCSB1A: .FCTR LB:[1,1]SYSLIB/LB:OPEN:FINIT%FCSB1B: .FCTR LB:[1,1]SYSLIB/LB:.CSI1E;D; TKB BUILD FILE FOR HEL; ON AN RSX-11M-PLUS SYSTEML; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;/SY:[1,54]HEL/-FP/CP/PR/-IP/MM,MP:[1,34]HEL/-SP=N[1,24]HELBLD/MP(;O TASK=...HEL (IDENT=03.06 ; RSX-11M-PLUS V3.0 UPDATE ESTACK=64UNITS=7 ASG=TI:1:7 ASG=SY:2,CO:3 PAR=GEN:0:0E-GBLDEF=HELP$P:101 ; OCTAL PRIORITY OF "HELP"<GBLDEF=$DNTSB:0 ; ADDRESS OF DECNET SUBROUTINE (0=NOT USED):GBLDEF=$USESB:0 ; ADDRESS OF USER SUBROUTINE (0=NOT USED)FGBLDEF=ENCRPT:0 ; ADDRESS OF PASSWORD ENCRYPTION ROUTINE (0=NOT USED)5GBLDEF=TIMOUT:74 ; SECONDS BEFORE TIMEOUT ON PROMPTSE GBLREF=$DIV GBLREF=$MUL /,54]HEL/-FP/CP/PR/-IP/MM,MP:[1,34]HEL/-SP=N[1,24]HELBLD/MP(;O TASK=...HEL (IDENT=03.06 ; RSX-11M-PLUS V3.0 UPDATE ESTACK=64UNITS=7 ASG=TI:1:7 ASG=SY:2,CO:3 PAR=GEN:0:0E-GBLDEF=HELP$P:101 ; OCTAL PRIORITY OF "HELP"<GBLDEF=$DNTSB:0 ; ADDRESS OF DECNET SUBROUTINE (0=NOT USED):GBLDEF=$USESB:0 ; ADDRESS OF USER SUBROUTINE (0=NOT USED)FGBLDEF=ENCRPT:0 ; ADDRESS OF ;S; TKB ODL FILE FOR HELLO/HELPU; ON AN RSX-11M-PLUS SYSTEMO; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01; .ROOT A-*(HELO,HELP),FCS6A: .FCTR [1,24]MLTUSR/LB:HELROT-[1,24]MCR/LB:ACTFIL-A2;A2: .FCTR LB:[1,1]SYSLIB/LB:CAT5:CATB:CBTA:CDDMG:SAVR1-LIB1S+HELO: .FCTR [1,24]MLTUSR/LB:HELLO-LIB2-LIB1F,HELP: .FCTR [1,24]MLTUSR/LB:HLP-*(STTAB,SUB)7LIB1: .FCTR SY:[1,54]RSX11M.STB/SS-LB:[1,1]EXELIB/LB/SS8LIB2: .FCTR [1,24]MCR/LB:BLKSUB:COLOG:FMTDV:GNBLK:GETNUMASTTAB: .FCTR [1,24]MLTUSR/LB:HSTTAB-LB:[1,1]SYSLIB/LB:.TPARS-LIB1U!SUB: .FCTR [1,24]MLTUSR/LB:HLPSUBS; ; ;;R; THIS IS THE COMMON FCS CODE.;+FCS: .FCTR FCSRT-*(FCSB1,FCSB2,FCSB3,FCSB4)4;TTFCSR1A: .FCTR LB:[1,1]SYSLIB/LB:XQIOU:XQIOI:WAITI:COMMON:DARITH:ASSLUN:UDIREC:PPNASC@FCSR1B: .FCTR LB:[1,1]SYSLIB/LB:BKRG:DIRECT:ANSPAD:BIGBUF:RWFSR2FFCSR1C: .FCTR LB:[1,1]SYSLIB/LB:RETADR:RDWAIT:WTWAIT:RWBLK:RQLCB:OD2CT;FCSR1D: .FCTR LB:[1,1]SYSLIB/LB:EOFCHK:WATNOD:WATSET:CKALOCO+FCSR1F: .FCTR LB:[1,1]SYSLIB/LB:EDTMG:PARSES;B; BUILD THE FCS CO-TREE:;A .NAME FCSROT/FCSRT: .FCTR FCSR1A-FCSR1B-FCSR1C-FCSR1D-FCSR1FH;I; THIS IS THE OPEN LEG; .NAME FCSBR1FCSB1: .FCTR FCSB1A-FCSB1B;T*FCSB1A: .FCTR LB:[1,1]SYSLIB/LB:OPEN:FINIT%FCSB1B: .FCTR LB:[1,1]SYSLIB/LB:.CSI1A;; THIS IS THE "GET/PUT" LEGL;K .NAME FCSBR2GFCSB2: .FCTR LB:[1,1]SYSLIB/LB:GET:GETSQ:PUT:POSIT:POSREC:PNTMRK:EXTENDK;L; THIS IS THE CLOSE LEGB;,$FCSB3: .FCTR LB:[1,1]SYSLIB/LB:CLOSE;; THIS IS THE CSI2 LEG;B$FCSB4: .FCTR LB:[1,100=d>eI%J<Ol]SYSLIB/LB:.CSI2;T .ENDA .NAME FCSROT/FCSRT: .FCTR FCSR1A-FCSR1B-FCSR1C-FCSR1D-FCSR1FH;I; THIS IS THE OPEN LEG; .NAME FCSBR1FCSB1: .FCTR FCSB1A-FCSB1B;T*FCSB1A: .FCTR LB:[1,1]SYSLIB/LB:OPEN:FINIT%FCSB1B: .FCTR LB:[1,1]SYSLIB/LB:.CSI1A;; THIS IS THE "GET/PUT" LEGL;K .NAME FCSBR2GFCSB2: .FCTR LB:[1,1]SYSLIB/LB:GET:GETSQ:PUT:POSIT:POSREC:PNTMRK:EXTENDK;L; THIS IS THE CLOSE LEGB;,$FCSB3: .FCTR LB:[1,1]SYSLIB/LB:CLOSE;; THIS IS THE CSI2 LEG;B$FCSB4: .FCTR LB:[1,1;g; TKB .CMD FILE FOR LPPn; ON AN RSX-11M-PLUS SYSTEM; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;W; 2SY:[1,54]LPP/PR/SL/-FP/CP/-IP/MM,MP:[1,34]LPP/-SP=[1,24]LPPBLD/MPiTASK=LP0(IDENT=05.04 ; RSX-11M-PLUS V3.0 Update ESTACK=64UNITS=6MASG=CO:2 PAR=GEN:0:0MPRI=70GBLDEF=$CDDMG:0;;@; E$OJFF is the number of additional form feeds to output at the; end of a print job. eGBLDEF=E$OJFF:0p;r>; Define default module to determine whether input file should@; be deleted. If user-written module is supplied, LPP will callB; it with the file FDB address in R0 (R0 must be preserved). User;; supplied $DELCK must return C-bit set to delete the file.2;P>; To include user-supplied $DELCK, insert the object module in<; LPP.OLB, append the name of the module to the line labeled<; "PD:" in LPPBLD.ODL, and comment out the following global ; definition line.;aGBLDEF=$DELCK:0B;F@; NOTE: When file deletion is disabled, the following files will; still be deleted:l;d ; LP.LST;*i ; LP.MAP;*s ; *.DMP;* ; *.PMD;*; C; Automatic deletion may be turned off for these by enabling of theu; appropriate GBLPATs below:;e;GBLPAT=PRTDN:PMD:240;GBLPAT=PRTDN:DMP:240u;GBLPAT=PRTDN:LPLST:240 ;GBLPAT=PRTDN:LPMAP:240L;a;n; INCREASE BUFFER SIZE; 0; To increase the input buffer size used by LPP 0; you must specify the new buffer size in GBLUFZ.; and the same value plus two for both INBUF1 /; and INBUF2. The default buffer size is 256. l-; [400(8)]. To extend the buffer to maximum 0; buffer size, make GBLUFZ equal to 1000(8) and !; INPBF1/INPBF2 equal to 1002(8).i;oGBLDEF=GLBUFZ:400tEXTSCT=INPBF1:402eEXTSCT=INPBF2:402:;;G; DEFINE FORMS TYPE. G;AJ; Associated with every form number is a word which defines the length andJ; width of the form. The low order byte of this word defines the number ofI; lines on the form and the high order byte defines the number of columns &; that may be printed across the form.; G; Some of your forms may not be of a standard length that your printer kJ; can handle, and hence it will not be able to properly skip to the top ofJ; forms. If the high order bit of the length byte is set, the form is saidG; to be simulated. When a form-feed is encountered while printing on a eF; simulated form (actually it is the form-feed that is simulated), theK; despooler will output the correct number of line feed characters to bring ; the printer to top of forms.;rL; Initially, the table is set with form #0 as the normal 132 column, 66 lineJ; computer paper, wih the remainder of the table set with simulated forms,G; where the form length is equal to the form number, and the form width I; equal to 132, so that if you are using a 37 line form, and your printerdN; does not handle 37 line forms correctly, you can use /FOR:37. This, however,N; is not good in all cases. If, for example, you have a number of forms of theK; same standard length, you will want to pick form numbers for them and seteI; their form entries correctly. To set a form entry, you specify a global ; patch like the following:t;i'; GBLPAT=INIT:FRMTBL+formnumber*2:values5; where value is calculated from the octal equation ,; value = length + <200*SIMFF> + >; SIMFF is 0 for no simulated forms feeds or 1 if simulated.;uI; The following table was derived from the above equation and can be usedlG; to specify common default settings by simply adding entries in octal:n!; 66 lines per page = 000102 !; 88 lines per page00>l_=a3DATADATADATADATA = 000130y!; 80 columns per line = 050000a!; 132 columns per line = 102000g!; Simulated Form Feed = 000200m;*;aK; The following line sets form #1 to an 80 column form of a standard lengthhH; (66 lines). (NOTE - all numbers here are in octal, except where noted H; with a decimal (.).) Also, since form entries are full words, form #1 "; is offset 2 from the form table.;cGBLPAT=INIT:FRMTBL+2:50102;y'; 50102 = 66. + 0 + ( 80. * 400 ) ; I; The following section enables support of LA50/LA100/LN01/LN03 printers.i;=; *** Note ***;u:; In order to enable/disable the printer support for LA50,@; LA100, LN01, and LN03 printers, both QMGBLD.BLD and LPPBLD.BLD; must be modified. ; B; First, the special symbiont numbers must be defined. The symbolsB; Q$LSPS and Q$HSPS define the low and high limits of the range ofF; special symbionts. (The symbiont type is expressed as the forms type?; on the INITIALIZE/PROCESSOR TTnn:/FORMS: or the MCRnF; QUE TTnn:/SP/FO: command, used in QMGSR2 when processing.);o5; Symbiont form type Printer type Default form numberp;t; Q$LSPS+0 LN03 124.; Q$LSPS+1 LA50 125.; Q$LSPS+2 LA100 126.B; Q$LSPS+3 LN01 127.GBLDEF=Q$LSPS:174sGBLDEF=Q$HSPS:177b; E; Next, the special forms type must be defined. When parsing the PRI gF; command, JOBSTR will use any symbiont in the above range, the range F; of forms between Q$LSPF and Q$HSPF will be passed to that symbiont. C; The meaning of the forms types is as follows: (These meanings areSG; defined by escape sequences in the internal table SPFTBL. At presentnG; changing the contents of this table is not supported, but it may be aA; possible future enhancement.).;B@; Form type Width Font quality Mode (LN01/LN03) Default form no.;y#; Q$LSPF+0 132. draft Landscape 3.P#; Q$LSPF+1 80. letter Portrait 4.s$; Q$LSPF+2 132. letter Landscape 5."; Q$LSPF+3 80. draft Portrait 6.;wGBLDEF=Q$LSPF:3tGBLDEF=Q$HSPF:6 ; C; Next the form width/length of the special forms is set up. If youiG; change the values of Q$LSPF and Q$HSPF, you must modify the followingnC; GBLPAT offsets to reflect your chosen forms types rather than the D; types 3 through 6 currently reflected below. (You can also changeD; the number of lines per page on one of these special forms if, forH; example, you have a LA50 and want 88 lines per page when in compressedI; mode. Here you could change FRMTBL+6 and FRMTBL+12 to value 102130(8).)P; GBLPAT=INIT:FRMTBL+6:102102eGBLPAT=INIT:FRMTBL+10:50102sGBLPAT=INIT:FRMTBL+12:102102GBLPAT=INIT:FRMTBL+14:50102o;uH; The special forms support for the LA50/LA100/LN01/LN03 use PRINT formsF; of 3 through 6. Many of the utilities default to using form #0 whenF; performing output. Thus, if all you have is, say, an LA50 set up toK; form 125., these other jobs from MAC, TKB, etc, using form #0 will buildiJ; up in the queue. If you only have a LA50/LA100/LN01/LN03 and want themK; to utilize the default form #0, then you would have to change the specialJ; form types, and the forms table. To do this you would change LPPBLD.BLDK; and QMGBLD.BLD to reflect the following changes, rebuild these tasks, and6; install them.iF; GBLDEF=Q$LSPF:0 ;Change special forms types low and high limits; GBLDEF=Q$HSPF:3 H; GBLPAT=INIT:FRMTBL+00:102102 ;Change forms table, in LPPBLD.BLD only ; GBLPAT=INIT:FRMTBL+02:050102 ; GBLPAT=INIT:FRMTBL+04:102102 ; GBLPAT=INIT:FRMTBL+06:050102;i1; End of LA50/LA100/LN01/LN03 support parameters.g;h/pecialJ; form types, and the forms table. To do this you would change LPPBLD.BLDK; and QMGBLD.BLD to reflect the following changes, rebuild these tasks, and6; install them.iF; GBLDEF=Q$LSPF:0 ;Change special forms types low and high limits; GBLDEF=Q$HSPF:3 H; GBLPAT=INIT:FRMTBL+00:102102 ;Change forms table, in LPPBLD.BLD only ; GBLPAT=INIT:FRMTBL+02:050102 ; GBLPAT=INIT:FRMTBL+04:102102 ; GBLPAT=INIT:FRMTBL+06:050102;i1; End of LA50/LA100/LN01/LN03 support pa00?t@vByD{<Ol;e; TKB .ODL FILE FOR LPPo; ON AN RSX-11M-PLUS SYSTEM.; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;t .NAME LPP< .ROOT LPP-[1,24]LPP/LB:RECEIV:POTS-E-Q-A-*(J,FI,C,D,P,F,PD)E: .FCTR SY:[1,54]RSX11M.STBQ: .FCTR [1,24]QMG/LB:QMGSYM!A: .FCTR LB:[1,1]SYSLIB/LB:PPNASC .J: .FCTR [1,24]LPP/LB:INIT:JOBSTR:JOBEND:IOPRT;FI: .FCTR [1,24]LPP/LB:FILPRO-[1,24]QMG/LB:FPRIV-(DIR,OFID))DIR: .FCTR LB:[1,1]SYSLIB/LB:GETDI:UDIRECT#OFID: .FCTR LB:[1,1]SYSLIB/LB:OPFIDLC: .FCTR [1,24]LPP/LB:CONT3D: .FCTR [1,24]LPP/LB:IOPRT:ERPRT-[1,24]QMG/LB:PRCOSP: .FCTR [1,24]LPP/LB:PRT:IOPRTE)F: .FCTR [1,24]LPP/LB:FLPAG-(FLI,JBI,FLG)LFLI: .FCTR [1,24]LPP/LB:FLINIEJBI: .FCTR [1,24]LPP/LB:JBINI)#FLG: .FCTR [1,24]LPP/LB:FLGEN:IOPRTC!PD: .FCTR [1,24]LPP/LB:PRTDN:DONE: .ENDSLIB/LB:PPNASC .J: .FCTR [1,24]LPP/LB:INIT:JOBSTR:JOBEND:IOPRT;FI: .FCTR [1,24]LPP/LB:FILPRO-[1,24]QMG/LB:FPRIV-(DIR,OFID))DIR: .FCTR LB:[1,1]SYSLIB/LB:GETDI:UDIRECT#OFID: .FCTR LB:[1,1]SYSLIB/LB:OPFIDLC: .FCTR [1,24]LPP/LB:CONT3;K; TKB .CMD FILE FOR PMDR; ON AN RSX-11M-PLUS SYSTEMD; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;I+SY:[1,54]PMD/-FP/CP/PR/MM,MP:[1,34]PMD/-SP=0[1,24]PMDBLD/MPA TASK=PMD...AIDENT=07.03 ; TASK IDENTUNITS=4 ASG=SY:1ASG=SY:2ASG=TI:3 ; ERROR MESSAGE LUNASG=SY:4 PAR=GEN:0:0;PRI=140U STACK=128S9GBLDEF=$CDDMG:1 ; $CDDMG ISN'T NEEDED SO DON'T INCLUDE ITG;=7; $DFCTL DEFINES THE DUMP OPTIONS FOR A POSTMORTEM DUMPA;$; BIT 0 SC.HDR DUMP HEADER; BIT 1 SC.LUN DUMP LUNS+; BIT 2 SC.OVL DUMP LOADED OVERLAY SEGMENTS-;S; BIT 3 SC.STK DUMP STACK -; BIT 4 SC.WRD DUMP MEMORY IN WORDS AND RAD50,-; BIT 5 SC.BYT DUMP MEMORY IN BYTES AND ASCIIM;DGBLPAT=PMD:$DFCTL:000077; D; $DFDEV DEFINES THE DEVICE WHERE POSTMORTEM DUMP FILES WILL BE SENT;7; $DFDEV MUST BE TWO ASCII CHARACTERS, E.G. 41114 = LB.D;:GBLPAT=PMD:$DFDEV:041114;T+; $DFUNT DEFINES THE UNIT NUMBER FOR $DFDEV ;IGBLPAT=PMD:$DFUNT:000000 UIC=[1,4] ;RJ; $DFSPL DETERMINES WHETHER POSTMORTEM AND SNAPSHOT DUMP FILES ARE SPOOLED;E; 0 -- DO NOT SPOOL FILE; 1 -- SPOOL FILE ;WGBLPAT=PMD:$DFSPL:1D/ RAD50,-; BIT 5 SC.BYT DUMP MEMORY IN BYTES AND ASCIIM;DGBLPAT=PMD:$DFCTL:000077; D; $DFDEV DEFINES THE DEVICE WHERE POSTMORTEM DUMP FILES WILL BE SENT;7; $DFDEV MUST BE TWO ASCII CHARACTERS, E.G. 41114 = LB.D;:GBLPAT=PMD:$DFDEV:041114;T+; $DFUNT DEFINES THE UNIT NUMBER FOR $DFDEV ;IGBLPAT=PMD:$DFUNT:000000 UIC=[1,4] ;RJ; $DFSPL DETERMINES WHETHER POSTMO;M; TKB .ODL FILE FOR PMDA; ON AN RSX-11M-PLUS SYSTEM ; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;6 .ROOT PMDROT-*(OV1,OV2,OV3,OV4-(OV5,OV6,OV7,OV8,OV9)))PMDROT: .FCTR [1,24]EUT/LB:PMD:PMDGBL-S-ED'OV1: .FCTR LB:[1,1]SYSLIB/LB:OPEN:FINITM)OV2: .FCTR LB:[1,1]SYSLIB/LB:$PRINT:CLOSET OV3: .FCTR [1,24]EUT/LB:PMDINI-E(OV4: .FCTR LB:[1,1]SYSLIB/LB:EDTMG:PUTSQ2OV5: .FCTR [1,24]EUT/LB:DUMP1-[1,24]MCR/LB:FMTDV-E2OV6: .FCTR [1,24]EUT/LB:DUMP2-[1,24]MCR/LB:FMTDV-E%OV7: .FCTR [1,24]EUT/LB:DUMP3:DUMP5-EOOV8: .FCTR [1,24]EUT/LB:DUMP4-E-OV9: .FCTR [1,24]EUT/LB:DUMP6-ER7S: .FCTR LB:[1,1]SYSLIB/LB:BTMSK-LB:[3,54]RSXVEC.STB/SSVE: .FCTR LB:[1,1]EXELIB/LB .END))PMDROT: .FCTR [1,24]EUT/LB:PMD:PMDGBL-S-ED'OV1: .FCTR LB:[1,1]SYSLIB/LB:OPEN:FINITM)OV2: .FCTR LB:[1,1]SYSLIB/LB:$PRINT:CLOSET OV3: .FCTR [1,24]EUT/LB:PMDINI-E(OV4: .FCTR LB:[1,1]SYSLIB/LB:EDTMG:PUTSQ2OV5: .FCTR [1,24]EUT/LB:DUMP1-[1,24]MCR/LB:FMTDV-E2OV6: .FCTR [1,24]EUT/LB:DUMP2-[1,24]MCR/LB:FMTDV-E%OV7: .FCTR [1,24]EUT/LB:;T; TKB BUILD FILE FOR PSW; ON AN RSX-11M-PLUS SYSTEM:; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;C/SY:[1,54]PSW/-FP/CP/PR/-IP/MM,MP:[1,34]PSW/-SP=1[1,24]PSWBLD/MP:;E TASK=...PSWB IDENT=02.01STACK=64UNITS=7F ASG=TI:1:7 ASG=SY:2,CO:3/ PAR=GEN:0:0A5GBLDEF=TIMOUT:74 ; SECONDS BEFORE TIMEOUT ON PROMPTS1FGBLDEF=ENCRPT:0 ; ADDRESS OF PASSWORD ENCRYPTION ROUTINE (0=NOT USED)/A FCSR1F: .FCTR LB:[1,1]SYSLIB/LB:EDTMG:PARSE@.IFT $FCSTK .DATA ;,A.IFT $FCSTK .DATA ; BUILD00E|Ga3DATADATADATADATA;T; TKB ODL FILE FOR PSW; ON AN RSX-11M-PLUS SYSTEME; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01; .ROOT A,FCSW3A: .FCTR [1,24]MLTUSR/LB:PSW-[1,24]MCR/LB:ACTFIL-A2:;A2: .FCTR LB:[1,1]SYSLIB/LB:CAT5:CATB:CBTA:CDDMG:SAVR1-LIB118 LIB1: .FCTR SY:[1,54]RSX11M.STB/SS-LB:[1,1]EXELIB/LB/SS; ;O;T; THIS IS THE COMMON FCS CODEP; +FCS: .FCTR FCSRT-*(FCSB1,FCSB2,FCSB3,FCSB4)N;UTFCSR1A: .FCTR LB:[1,1]SYSLIB/LB:XQIOU:XQIOI:WAITI:COMMON:DARITH:ASSLUN:UDIREC:PPNASC@FCSR1B: .FCTR LB:[1,1]SYSLIB/LB:BKRG:DIRECT:ANSPAD:BIGBUF:RWFSR2FFCSR1C: .FCTR LB:[1,1]SYSLIB/LB:RETADR:RDWAIT:WTWAIT:RWBLK:RQLCB:OD2CT;FCSR1D: .FCTR LB:[1,1]SYSLIB/LB:EOFCHK:WATNOD:WATSET:CKALOCC+FCSR1F: .FCTR LB:[1,1]SYSLIB/LB:EDTMG:PARSET;B; BUILD THE FCS CO-TREEB;. .NAME FCSROT/FCSRT: .FCTR FCSR1A-FCSR1B-FCSR1C-FCSR1D-FCSR1FH;I; THIS IS THE OPEN LEG; .NAME FCSBR1FCSB1: .FCTR FCSB1A-FCSB1B;U*FCSB1A: .FCTR LB:[1,1]SYSLIB/LB:OPEN:FINIT%FCSB1B: .FCTR LB:[1,1]SYSLIB/LB:.CSI1A;; THIS IS THE "GET/PUT" LEGL;K .NAME FCSBR2GFCSB2: .FCTR LB:[1,1]SYSLIB/LB:GET:GETSQ:PUT:POSIT:POSREC:PNTMRK:EXTENDK;L; THIS IS THE CLOSE LEGB;,$FCSB3: .FCTR LB:[1,1]SYSLIB/LB:CLOSE;; THIS IS THE CSI2 LEG;B$FCSB4: .FCTR LB:[1,1]SYSLIB/LB:.CSI2;T .END. .NAME FCSROT/FCSRT: .FCTR FCSR1A-FCSR1B-FCSR1C-FCSR1D-FCSR1FH;I; THIS IS THE OPEN LEG; .NAME FCSBR1FCSB1: .FCTR FCSB1A-FCSB1B;U*FCSB1A: .FCTR LB:[1,1]SYSLIB/LB:OPEN:FINIT%FCSB1B: .FCTR LB:[1,1]SYSLIB/LB:.CSI1A;; THIS IS THE "G; ; TKB .CMD FILE FOR QMGd; ON AN RSX-11M-PLUS SYSTEMh; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;e/SY:[1,54]QMG/PR/-FP/CP/-IP/MM,MP:[1,34]QMG/-SP= [1,24]QMGBLD/MPn TASK=QMG...f IDENT=03.05pSTACK=64UNITS=5iASG=CO:5 PAR=GEN:0:0P UIC=[1,7]wPRI=75B; The name of the queue file may be changed from its default here.3; Unfortunately, the patches must be made in octal.g; The fields to patch are:;;5; $QFDEV $QFUNT $QFUIC $QFNAM $QFTYP $QFVER0;pA; Please note that $QFUIC must be the full 9 characters long (useL%; leading zeros in fields: [001,007])Y$; $QFDEV and $QFUIC are ASCII fields*; $QFUNT and $QFVER are binary word fields$; $QFNAM and $QFTYP are RAD50 fields;0; GBLPAT=QMGIN1:$QFDEV:1234565;A;EE; When a file is passed to QMG via .PRINT (PRT...) there is no way to C; to specify the attributes that this job is to have. The followingoD; global definition sets up the byte value that is to be used as theD; attribute string. The option values are meant to be ORed together.; G; NOTE: In the case of a file spooled via .PRINT as part of a batch jobaB; (where the file does not create a new print job, but rather getsE; tacked on to the end of the logfile print job) this attribute value33; will override the one in place for the batch log.N;P; VALUE MEANINGw+; 10 print job flag pages before each job '; 20 a lower case printer is requiredd.; 100 print file flag pages before each file; 200 job is restartable; D; The following global definition causes files spooled via .PRINT to;; have normal job flag pages. Other options are turned off.w;eGBLDEF=$JATDF:10;e; GBLREF=FE.MUP,;tI; The following section enables support of LA50/LA100/LN01/LN03 printers.t;a; *** Note ***; :; In order to enable/disable the printer support for LA50,@; LA100, LN01, and LN03 printers, both QMGBLD.BLD and LPPBLD.BLD; must be modified.d; B; First, the special symbiont numbers must be defined. The symbolsB; Q$LSPS and Q$HSPS define the low and high limits of the range ofE; special symbionts. The symbiont type is expressed as the forms typew?; on the INITIALIZE/PROCESSOR TTnn:/FORMS: or the MCRn%; QUE TTnn:/SP/FO: command./;15; Symbiont form type Printer type Default form numbert;n; Q$LSPS+0 LN03 124. 174(8); Q$LSPS+1 LA50 125. 175(8); Q$LSPS+2 LA100 126. 176(8) ; Q$LSPS+3 LN01 127. 177(8)GBLDEF=Q$LSPS:174sGBLDEF=Q$HSPS:177b; C; Next, the special forms type must be defined. For any sy00GKNP<Olmbiont inhD; the above range, the range of forms between Q$LSPF and Q$HSPF willB; be passed to that symbiont. The meaning of the forms types is as ; follows:;o@; Form type Width Font quality Mode (LN01/LN03) Default form no.;r$; Q$LSPF+0 132. draft Landscape 3.$; Q$LSPF+1 80. letter Portrait 4.%; Q$LSPF+2 132. letter Landscape 5.S#; Q$LSPF+3 80. draft Portrait 6.3;NGBLDEF=Q$LSPF:3GBLDEF=Q$HSPF:6s;BC; Next the form width/length of the special forms is set up. If you G; change the values of Q$LSPF and Q$HSPF, you must modify the followingFC; GBLPAT offsets to reflect your chosen forms types rather than therD; types 3 through 6 currently reflected below. (You can also changeD; the number of lines per page on one of these special forms if, forH; example, you have a LA50 and want 88 lines per page when in compressedI; mode. Here you could change FRMTBL+6 and FRMTBL+12 to value 102130(8).)P;s-;GBLPAT=INIT:FRMTBL+6:102102 (LPPBLD only...)a;GBLPAT=INIT:FRMTBL+10:50102;GBLPAT=INIT:FRMTBL+12:102102 ;GBLPAT=INIT:FRMTBL+14:50102;wH; The special forms support for the LA50/LA100/LN01/LN03 use PRINT formsF; of 3 through 6. Many of the utilities default to using form #0 whenF; performing output. Thus, if all you have is, say, an LA50 set up toK; form 125., these other jobs from MAC, TKB, etc, using form #0 will buildeJ; up in the queue. If you only have a LA50/LA100/LN01/LN03 and want themK; to utilize the default form #0, then you would have to change the specialGJ; form types, and the forms table. To do this you would change LPPBLD.BLDK; and QMGBLD.BLD to reflect the following changes, rebuild these tasks, and6; install them.iF; GBLDEF=Q$LSPF:0 ;Change special forms types low and high limits; GBLDEF=Q$HSPF:3 H; GBLPAT=INIT:FRMTBL+00:102102 ;Change forms table, in LPPBLD.BLD only ; GBLPAT=INIT:FRMTBL+02:050102 ; GBLPAT=INIT:FRMTBL+04:102102 ; GBLPAT=INIT:FRMTBL+06:050102;i1; End of LA50/LA100/LN01/LN03 support parameters.g;h/pecialGJ;o; TKB .ODL FILE FOR QMGa; ON AN RSX-11M-PLUS SYSTEMa; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;h .ROOT ROOT-*OVLROOT: .FCTR QMGROT-R-E-MEQMGROT: .FCTR [1,24]QMG/LB:QMG:QMGSYM:QMGVMR:QMGDA1:QMGDA2:QMGGTI-ERRi'OVL: .FCTR (QMGSR-E-(S1,S2,S3,S4),INIT):5QMGSR: .FCTR [1,24]QMG/LB:QMGSR1:QMGSR2:QMGSR3:QMGJNOy$S1: .FCTR [1,24]QMG/LB:QMGASS:QMGGJQ2S2: .FCTR [1,24]QMG/LB:QMGSTA:QMGRSY:QMGTIM:QMGGJQ$S3: .FCTR [1,24]QMG/LB:QMGJOB:QMGGTN$S4: .FCTR [1,24]QMG/LB:QMGMOJ:QMGFJE/ERR: .FCTR [1,24]QMG/LB:QMGIN3:QMGERR-ERR1-ERR2-ERR1: .FCTR [1,24]QMG/LB:QMGER1$ERR2: .FCTR [1,24]QMG/LB:QMGER2:PRCO3INIT: .FCTR [1,24]QMG/LB:QMGIN1:QMGIN2-(OPEN,CLOSE)R1OPEN: .FCTR LB:[1,1]SYSLIB/LB:OPFNB-(OP1,OP2,OP3)D(OP1: .FCTR LB:[1,1]SYSLIB/LB:FINIT:RQLCB#OP2: .FCTR LB:[1,1]SYSLIB/LB:ASSLUNQ#OP3: .FCTR LB:[1,1]SYSLIB/LB:RDWAIT1+CLOSE: .FCTR LB:[1,1]SYSLIB/LB:GETDIR:CLOSE R: .FCTR SY:[1,54]RSX11M.STBE: .FCTR LB:[1,1]EXELIB/LBM: .FCTR [1,24]MCR/LB:BLKSUB .ENDQMGMOJ:QMGFJE/ERR:;.; TKB .CMD FILE FOR SYL'; ON AN RSX-11M-PLUS SYSTEMR; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;5/SY:[1,54]SYL/CP/PR/-FP/MM/-IP,MP:[1,34]SYL/-SP= [1,24]ACC/LB:$ULUAB:SYSLOG:GBLDF [1,24]ACC/LB[1,24]MCR/LB:BLKSUB.SY:[1,54]RSX11M.STB/SS/ TASK=SYSLOGMIDENT=03.00 ; M-PLUS V3.0PRI=130D PAR=GEN:0:0F UIC=[1,1] ASG=TI:1//:rR .SETF TKBIN8S .IFF $11MPL .IFF $MLH .IFF $SGN2 .IFF $SYBLD ASN =LB:T .IFF $DBF .GOTO 2000 U ;.V ; Delete the task build .CMD and .ODL f;;; TKB .CMD FILE FOR UNLe; ON AN RSX-11M-PLUS SYSTEM ; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;; NOTE:E1; EXPSB MUST BE PLACED BETWEEN 120000 AND 140000V; ;T0SY:[1,54]UNL/PR/-FP/-CP/-IP/MM,MP:[1,34]UNL/-SP=[1,24]UNLBLD/MP[ TASK=...UNL: IDENT= 5.0STACK=64UNITS=5.WNDWS=11ASG=TI:1 PAR=GEN:0:0MPRI=50/IFT $FCSTK .DATA FCS1: .FCTR LB:[1,1]SYSLIB/LB:PARSE:DIRFNDL6.IFT $FCSTK .DATA FCS2: .FCTR LB:[1,1]SYSLIB/LB:OPFNB .DATA .END .CLOSEF .EXIT 1.;00RTDATADATADATADATA;;; TKB .ODL FILE FOR UNL.TSK ; ON AN RSX-11M-PLUS SYSTEM ; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;  .ROOT UNLROT-*(FCS1,FCS2)-UNLROT: .FCTR UNL1-UNL2-UNL3-EXE-CNVRT-RSX11M4<UNL1: .FCTR LI:[1,24]LOA/LB:UNLCTL:EXPSB:UNLFIL:UNLEXP:DFSYM!UNL2: .FCTR LI:[1,24]LOA/LB:SCNDVN@UNL3: .FCTR LI:[1,24]LOA/LB:GTBYT:ERMSG:IODAT:LDUIC:SYMTB:ICBDEFEXE: .FCTR LB:[1,1]EXELIB/LB8CNVRT: .FCTR LB:[1,1]SYSLIB/LB:CAT5:C5TA:EXST:CATB:CDDMG$RSX11M: .FCTR TK:[1,54]RSX11M.STB/SS*FCS1: .FCTR LB:[1,1]SYSLIB/LB:PARSE:DIRFND#FCS2: .FCTR LB:[1,1]SYSLIB/LB:OPFNBS .END USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;  .ROOT UNLROT-*(FCS1,FCS2)-UNLROT: .FCTR UNL1-UNL2-UNL3-EXE-CNVRT-RSX11M4<UNL1: .FCTR LI:[1,24]LOA/LB:UNLCTL:EXPSB:UNLFIL:UNLEXP:DFSYM!UNL2: .FCTR LI:[1,24]LOA/LB:SCNDVN@UNL3: .FCTR LI:[1,24]LOA/LB:GTBYT:ERMSG:IODAT:LDUIC:SYMTB:ICBDEFEXE: .FCTR LB:[1,1]EXELIB/LB8CNVRT: .FCTR LB:[1,1]SYSLIB/LB:CAT5:C5TA:EXST:CATB:CDDMG$RSX11M: .FCTR TK:[1,54]RSX11M.STB/SS*FCS1: .FCTR LB:[1,1];.; TKB .CMD FILE FOR ACD'; ON AN RSX-11M-PLUS SYSTEMR; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;5)SY:[1,54]ACD/PR/-IP/-FP,MP:[1,34]ACD/-SP=T[1,24]ACD/LB:ACDSY:[1,54]RSX11M.STB/SS/ ASG=TI:1ASG=TI:3 PAR=GEN:0:0 WNDWS=1 TASK=...ACD IDENT=1.00/HSY:[1,54]MCSVT/-HD= [1,24]ACD/LB:XLBASE:VTMNCI:VTMNC(SY:[1,54]RSX11M.STB/SS,LB:[1,1]EXELIB/LB/FPAR=GEN:120000:0STACK=0NUNITS=0YGBLDEF=$ACDNM:24 IDENT=1.00/2SY:[1,54]MCSVTW/-HD=[1,24]ACD/LB:XLBASE:VTMNCI:VTW(SY:[1,54]RSX11M.STB/SS,LB:[1,1]EXELIB/LB/1PAR=GEN:120000:0STACK=0LUNITS=0AGBLDEF=$ACDNM:20 IDENT=1.00/SY:[1,54]MCSVTWG/-HD=/[1,24]ACD/LB:XLBASE:VTMNIG:VTW(SY:[1,54]RSX11M.STB/SS,LB:[1,1]EXELIB/LB/1PAR=GEN:120000:0STACK=0NUNITS=0AGBLDEF=$ACDNM:22 IDENT=1.00/,SY:[1,54]MCSVTWF/-HD=C[1,24]ACD/LB:XLBASE:VTMNIF:VTW(SY:[1,54]RSX11M.STB/SS,LB:[1,1]EXELIB/LB/EPAR=GEN:120000:0STACK=0=UNITS=0FGBLDEF=$ACDNM:16 IDENT=1.00//54]MCSVTW/-HD=[1,24]ACD/LB:XLBASE:VTMNCI:VTW;A; TKB .CMD FILE FOR BOO:; ON AN RSX-11M-PLUS SYSTEMP&; CREATED BY SYSGEN3.CMD VERSION 03.01;A(SY:[1,54]BOO/PR/-FP/MM,MP:[1,34]BOO/-SP=[1,24]BOOBLD/MPF TASK=...BOOLSTACK=48UNITS=2 ASG=TI:1ASG=SY:2 PAR=GEN:0:0APRI=50/$11M .DATA SAVEM: .FCTR '$LI'SAV/LB:SAVEMT/.IFT $11M .DATA SAVDU: .FCTR '$LI'SAV/LB:SAVDU,/.IFT $11M .DATA SAVDR: .FCTR '$LI'SAV/LB:SAVDRS .DATA .END .CLOSEA .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4:SAVDS/.IFT $11M .;A; TKB .ODL FILE FOR BOO:; ON AN RSX-11M-PLUS SYSTEMP&; CREATED BY SYSGEN3.CMD VERSION 03.01;A .ROOT BOOROTP'BOOROT: .FCTR BOOMOD-SAVMOD-MCRMOD-EXECM-BOOMOD: .FCTR [1,24]BOO/LB:BOOT:BOTPH2:BOODRVSAVMOD: .FCTR SAVDRV-SCNDV@SAVDRV: .FCTR [1,24]SAV/LB:SAVDV1:SAVDK:SAVDP:SAVDL:SAVCM:SAVDV2SCNDV: .FCTR [1,24]SAV/LB:SCNDV:MCRMOD: .FCTR [1,24]MCR/LB:FILBN:$FDUCB:GNBLK:GETNUM:COT2B4EXEC: .FCTR SY:[1,54]RSX11M.STB/SS-LB:[1,1]EXELIB/LB .ENDed by IND.;.ERXIT: .EXIT 4:SAVDS/.IFT $11M .;L; TKB .CMD FILE FOR BPR.; ON AN RSX-11M-PLUS SYSTEMB; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;:3SY:[1,54]BPR/-FP/CP/SL/FU/MM/PR:0,MP:[1,34]BPR/-SP=:[1,24]BPRBLD/MPB TASK=BAP0P IDENT=04.11T STACK=132APRI=80 PAR=GEN:0:0Q(EXTSCT=PARM:12 ; extend parameter buffer;P@; The attributes of the batch logfile print job can be set here.D; Should you wish to change any attributes, OR together the required@; attribute values and replace that value into the GBLDEF below.;A; VALUE ACTIONK;C5; 4 logfile print job is to be put in the hold queue ); 10 print job flag pages before the job.&; 20 a lower case printer is required-; 100 print file flag pages before each fileP; 200 print job is restartable=;GBLDEF=LO$GDF:10;PB; The page length of the logfile can be set here. Place the octalD; value of the desired number of lines per page in the GBLDEF below.;bGBLDEF=P$LNTH:74; D; The default CPU time limit can be set here. Place the octal value@; of the desir00<Oled maximum CPU time in minutes per user job in the; GBLDEF below.u;GBLDEF=D$ELPS:3l/pages before the job.&; 20 a lower case printer is required-; 100 print file flag pages before each fileP; 200 print job is restartable=;GBLDEF=LO$GDF:10;PB; The page length of the logfile can be set here. Place the octalD; value of the desired number of lines per page in the GBLDEF below.;bGBLDEF=P$LNTH:74; D; The default CPU time limit can be set here. Place the octal value@; of the desir;m; TKB .ODL FILE FOR BPRs; ON AN RSX-11M-PLUS SYSTEMF; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;21 .ROOT BPR-QMGSM-RMSROT-BPR3,BPRCT0,BPRCT1,RMSALLl<BPR: .FCTR [1,24]BPR/LB:BPRRT:BPRIO:BPRSRV:BPRAST:BPRCV-BPR24BPR2: .FCTR [1,24]BPR/LB:BPREOJ:BPRPRF:BPRSPW:BPRTOT QMGSM: .FCTR [1,24]QMG/LB:QMGSYM*BPR3: .FCTR *(BPF1,BPF3,BPF4,BST,BPPR,BRM)BPF1: .FCTR [1,24]BPR/LB:BPRPF1.BPF3: .FCTR [1,24]BPR/LB:BPRPF3 BPF4: .FCTR [1,24]BPR/LB:BPRPF4 BST: .FCTR [1,24]BPR/LB:BPRST BPPR: .FCTR [1,24]BPR/LB:BPRPRBRM: .FCTR [1,24]BPR/LB:BPRRMSBOUT: .FCTR [1,24]BPR/LB:OUTREQE$BIN: .FCTR [1,24]BPR/LB:INREQ:BPRDAT .NAME BPRC0BPRCT0: .FCTR BPRC0-*(BOUT,BIN)l .NAME BPRC1'BPRCT1: .FCTR *BPRC1-*(ERROR-PRC,PARSE)CERROR: .FCTR [1,24]BPR/LB:BPRERB!PRC: .FCTR LB:[1,1]SYSLIB/LB:PRCO.PARSE: .FCTR [1,24]BPR/LB:LNPRSF; ; RMS CO-TREE4;T @BPRRMS.ODLP;  .END1,24]BPR/LB:BPRPF1.BPF3: .FCTR [1,24]BPR/LB:BPRPF3 BPF4: .FCTR [1,24]BPR/LB:BPRPF4 BST: .FCTR [1,24]BPR/LB:BPRST BPPR: .FCT;1; TKB ODL FILE FOR BPR; ON AN RSX-11M-PLUS SYSTEMT&; CREATED BY SYSGEN3.CMD VERSION 03.01;,; RMS CO-TREE FOR BPR'; ORIGINALLY created by "MAKRMSODL.CMD"B;l3; Options chosen for this overlay description file:E; ; RMSRES F ; RMSSEQ F ; RSTSE F;. ; CREATE T ; EXTEND F ; ERASE T;C; SEQ T ; SEQCRE T ; SEQROP T ; SEQRED T ; SEQWRI T ; SEQUPD F ; SEQOPT F;R; REL F ; RELCRE F ; RELROP F ; RELRED F ; RELWRI F ; RELUPD F ; RELDEL F ; RELOPT F;:; IDX F ; IDXCRE F ; IDXROP F ; IDXRED F ; IDXWRI F ; IDXUPD F ; IDXDEL F ; IDXOPT F; ; BLOCK F ; MISC T;M;RMSROT: .FCTR LB:[1,1]RMSLIB/LB:RMSSYM:R0AUTO:R0IMPA-RMROOT)RMROOT: .FCTR RMSIOM-RMSCBL-RMSCOM-RMSEXEiBRMSIOM: .FCTR LB:[1,1]RMSLIB/LB:R0CACH:R0RLCH:R0MAPC:R0RWBF:R0UNLK;RMSCBL: .FCTR LB:[1,1]RMSLIB/LB:R0RTCB:R0ACBB:R0RTDB:R0MDATT-RMSCOM: .FCTR LB:[1,1]RMSLIB/LB:R0RMSE:R0IDPBFBRMSEXE: .FCTR LB:[1,1]RMSLIB/LB:R0EXSY:R0RSES:R0WTBS:R0RMSA:R0IFLF .NAME RMS11$RMSALL: .FCTR RMS11-*(RMSFIL,RMSREC) .NAME RMSFABFRMSFIL: .FCTR RMSFAB-RMSFL3RMSFL: .FCTR LB:[1,1]RMSLIB/LB:R0CLCM-RMFILE-RMSFL0IGRMSFL0: .FCTR (RMSCR0,RMSOPN-RMSDPC-RMSCON,RMSFNM,RMSCLS-RMSDIS-RMSMIC);OBRMSOPN: .FCTR LB:[1,1]RMSLIB/LB:R0OPFL-RMSOP0-RMSEQO-RMRELO-RMIDXO4RMSDPC: .FCTR LB:[1,1]RMSLIB/LB:R0DPYC:R0CKSM-RMSFL14RMSFL1: .FCTR LB:[1,1]RMSLIB/LB:R0ALDB:R0ALBD:R0ALIOBRMSCON: .FCTR LB:[1,1]RMSLIB/LB:R0CCLN:R0ALBS-RMSCNS-RMRCNR-RMXCNXIRMSFNM: .FCTR LB:[1,1]RMSLIB/LB:R0PRFN:R0XPFN:R0MKWA:R0ASLN:R0INIT-RMSFL1-IRMSCLS: .FCTR LB:[1,1]RMSLIB/LB:R0CKSM-RMEXTD-RMR1RL-RMSEQC-RMRELC-RMIDXCL;RMSDIS: .FCTR LB:[1,1]RMSLIB/LB:R0CCLN-RMSDSS-RMRDSR-RMXDSX, .NAME RMSCREM9RMSCR0: .FCTR RMSCRE-RMCREA-RMCRIX-(RM0X11-RM0X21,RM0X31),BRMCREA: .FCTR LB:[1,1]RMSLIB/LB:R0CRXI:R0CRFL:R0MFNB:R0RD50-RMSCR2&RMFILE: .FCTR LB:[1,1]RMSLIB/LB:R0RXAC4RMSOP0: .FCTR LB:[1,1]RMSLIB/LB:R0RXDI:R0MFNB:R0RD504RMSCR2: .FCTR LB:[1,1]RMSLIB/LB:R0RXCR:R0RXMD:R0RXDI-RMSER1: .FCTR LB:[1,1]RMSLIB/LB:R0RXMD-RMSOP0R&RMEXTD: .FCTR LB:[1,1]RMSLIB/LB:R0EXTD-RMR1RL: .FCTR LB:[1,1]RMSLIB/LB:R1RLBK:R1NXBKL&RMR1WL: .FCTR LB:[1,1]RMSLIB/LB:R1WTLS .NAME RMDMIC:RMSMIC: .FCTR RMSERA-RMSEXT-RMSERA: .FCTR LB:[1,1]RMSLIB/LB:R0ERFL-RMSER1R .NAME RMDDXT2RMSEXT: .FCTR RMDDXT .NAME RMDCRSL-RM0X11: .FCTR LB:[1,1]RMSLIB/LB:R1CRFL:R1CRCKE&RMSEQO: .FCTR LB:[1,1]RMSLIB/LB:R1OPFL&RMSEQC: .FCTR LB:[1,1]RMSLIB/LB:R1CLOS&RMSCNS: .FCTR LB:[1,1]RMSLIB/LB:R1CONP-RMSDSS: .FCTR LB:[1,1]RMSLIB/LB:R1DISC-RMR1WLL .NAME RMDCRRSRM0X21: .FCTR RMDCRR .NAME RMDRLO: .NAME RMDRLC 00%)DATADATADATADATA .NAME RMDCNRM .NAME RMDDSRRRMRELO: .FCTR RMDRLORMRELC: .FCTR RMDRLCRMRCNR: .FCTR RMDCNRRMRDSR: .FCTR RMDDSR .NAME RMDCLSF .NAME RMDCRXL .NAME RMDIDXS .NAME RMDOPND .NAME RMDCNXF .NAME RMDDSXA .NAME RMDCXXXRM0X31: .FCTR RMDCRXRMCRIX: .FCTR RMDCXXRMIDXC: .FCTR RMDCLSRMIDXO: .FCTR RMDOPNRMXCNX: .FCTR RMDCNXRMXDSX: .FCTR RMDDSX .NAME RMSRABM9RMSREC: .FCTR RMSRAB-(RMSSQ0,RM0X26,RM0X36,RMSBLK,RMMISC)W .NAME RMSSEQR)RMSSQ0: .FCTR RMSSEQ-RMR1RL-RMEXTD-RMSQOP.;RMSQOP: .FCTR LB:[1,1]RMSLIB/LB:R1WTLS:R1CKEF:R1DELE-RMSQORM$RMSQOR: .FCTR (RMIN10,RMOU1P,RMOU1U)3RMIN10: .FCTR LB:[1,1]RMSLIB/LB:R1GET:R1GSET:R1GBLDA:RMOU1P: .FCTR LB:[1,1]RMSLIB/LB:R1PUT:R1PSET:R1PUNR:R1PBLD .NAME RMDS1URMOU1U: .FCTR RMDS1U .NAME RMDDRLRM0X26: .FCTR RMDDRL .NAME RMDDIXMRM0X36: .FCTR RMDDIX .NAME RMDBLKFRMSBLK: .FCTR RMDBLKBRMMISC: .FCTR LB:[1,1]RMSLIB/LB:R0FREE:R1TRUN:R0RWIN:R2CALC-RMWATRBRMWATR: .FCTR LB:[1,1]RMSLIB/LB:R0WATR:R0MAGT-RMR1WL-RMR1RL-RMEXTD;R; end of ODL file "BPRRMS.ODL";B/LB:R1WTLS:R1CKEF:R1DELE-RMSQORM$RMSQOR: .FCTR (RMIN10,RMOU1P,RMOU1U)3RMIN10: .FCTR LB:[1,1]RMSLIB/LB:R1GET:R1GSET:R1GBLDA:RMOU1P: .FCTR LB:[1,1]RMSLIB/LB:R1PUT:R1PSET:R1PUNR:R1PBLD .NAME RMDS1URMOU1U: .FCTR RMDS1U .NAME RMDDRLRM0X26: .FCTR RMDDRL .NAME RMDDIXMRM0X36: .FCTR RMDDIX .NAME RMDBLKFRMSBLK: .FCTR RMDBLKBRMMISC: .FCTR LB:[1,1]RMSLIB/LB:R0FREE:R1TRUN:R0RWIN:R2CALC-RMWATRBRMWATR: .FCTR LB:[1,1]RMSLIB/LB:R0WATR:R0MAGT-RMR1WL-RMR1RL-RMEXTD;R; end of ODL fil;.; TKB BUILD FILE FOR BRO; ON AN RSX-11M-PLUS SYSTEMR&; CREATED BY SYSGEN3.CMD VERSION 03.01;e(SY:[1,54]BRO/PR/-FP/MM,MP:[1,34]BRO/-SP=*[1,24]MLTUSR/LB:BROADC,[1,24]MCR/LB:BLKSUB%SY:[1,54]RSX11M.STB,LB:[1,1]EXELIB/LB./ TASK=...BROI;E1; THE SPEED OF BRO MAY BE SIGNIFICANTLY INCREASED-; BY CHANGING THE "UNITS=" TO A LARGER NUMBER;NUNITS=10ASG=TI:1:2:3:4:5:6 PAR=GEN:0:0 #IDENT=06.02 ; M-PLUS V3.0 UPDATE E/.IFF $DBF .GOTO 2000 U ;.V ; Delete the task build .CMD and .ODL f;.; TKB BUILD FILE FOR BYE; ON AN RSX-11M-PLUS SYSTEMR&; CREATED BY SYSGEN3.CMD VERSION 03.01;e;SY:[1,54]BYE/-FP/CP/PR/MM,MP:[1,34]BYE/-SP=[1,24]MCR/LB:BYEL&[1,24]MCR/LB:BLKSUB:COLOG:FMTDV:NETSUB+SY:[1,54]RSX11M.STB/SS,LB:[1,1]EXELIB/LB/SSE/K TASK=...BYE1UNITS=7 IDENT=04.02I STACK=100ASG=TI:1:7,CO:3F PAR=GEN:0:0K:GBLDEF=$USRSB:0 ; ADDRESS OF USER SUBROUTINE (0=NOT USED)GGBLDEF=$MALSB:0 ; ADDRESS OF MAIL NOTIFICATION SUBROUTINE (0=NOT USED)2GBLDEF=INDTIM:36 ; TIMEOUT FOR INDIRECT (SECONDS)2GBLDEF=ABOTIM:0 ; TIMEOUT FOR ABORT AST (SECONDS)/ATED BY SYSGEN3.CMD VERSION 03.01;e;SY:[1,54]BYE/-FP/CP/PR/MM,MP:[1,34]BYE/-SP=[1,24]MCR/LB:BYEL&[1,24]MCR/LB:BLKSUB:COLOG:FMTDV:NETSUB+SY:[1,54]RSX11M.STB/SS,LB:[1,1]EXELIB/LB/SSE/K TASK=...BYE1UNITS=7 IDENT=04.02I STACK=100ASG=TI:1:7,CO:3F PAR=GEN:0:0K:GBLDEF=$USRSB:0 ; ADDRESS OF USER SUBROUTINE (0=NOT USED)GGBLDEF=$MALSB:0 ; ADDRESS OF MAIL NOTIFICATION SUBROUTINE (0=NOT USED)2GBLDEF=INDTIM:36 ; TIMEOUT FOR INDIRE;$; TKB .CMD FILE FOR CRPO; ON AN RSX-11M-PLUS SYSTEMC; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;U;R+SY:[1,54]CRP/PR/CP/-FP/MM,MP:[1,34]CRP/-SP= [1,24]CRPBLD/MPTTASK=CR0 IDENT=02.00 STACK=128 PAR=GEN:0:0C ASG=CO0:3SPRI=70;I#; Define default batch job options:Q;Y; 4 = Hold job; 10 = Spool logfileA; 20 = Generate a logfile; 200 = Job is restartable;IGBLDEF=$BATDF:30;C"; Define default print job options;.; 4 = Hold job ; 10 = Print job flag pages*; 20 = Lower case printer is required!; 100 = Print file flag pagesI; 200 = Job is restartable;PGBLDEF=$PRIDF:10;-5; Comment out the following if you include a password25; encription routine (it should be the same module asu5; that which is used for HELLO). Include the name of ; the module in segment CRPACC. ;eGBLDEF=ENCRPT:0 ; 4; Define default job name as three RAD50 word values<; (3 characters/word * 3 words = 9 characters for job name).00)*4:?Ol; "GBLPAT=CRP:$DFJNM:35200:6274:12000/ Lower case printer is required!; 100 = Print file flag pagesI; 200 = Job is restartable;PGBLDEF=$PRIDF:10;-5; Comment out the following if you include a password25; encription routine (it should be the same module asu5; that which is used for HELLO). Include the name of ; the module in segment CRPACC. ;eGBLDEF=ENCRPT:0 ; 4; Define default job name as three RAD50 word values<; (3 characters/word * 3 words = 9 characters for job name).;; TKB .ODL FILE FOR CRP2; ON AN RSX-11M-PLUS SYSTEMr; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01; .NAME CRP1 .ROOT CRP-ROT-QSYM-*(PRS,PAS,ACC,IVL,OPJ,PT,CLJ)h6ROT: .FCTR [1,24]CRP/LB:CRPROT:CRPFUN:CRPPRO:CRPERR-AR!AR: .FCTR LB:[1,1]SYSLIB/LB:ARITHaQSYM: .FCTR [1,24]QMG/LB:QMGSYMOPRS: .FCTR [1,24]CRP/LB:CRPPRSPAS: .FCTR [1,24]CRP/LB:CRPPAS?ACC: .FCTR [1,24]CRP/LB:CRPACC-[1,24]MCR/LB:ACTFIL-XSYM-(OP,CL)r#IVL: .FCTR [1,24]CRP/LB:CRPIVL-XSYMr*OPJ: .FCTR [1,24]CRP/LB:CRPOPJ:CRPSND-XSYM*CLJ: .FCTR [1,24]CRP/LB:CRPCLJ:CRPSND-XSYM%PT: .FCTR LB:[1,1]SYSLIB/LB:PUT:DLFNBS OP: .FCTR LB:[1,1]SYSLIB/LB:OPEN!CL: .FCTR LB:[1,1]SYSLIB/LB:CLOSE,"XSYM: .FCTR SY:[1,54]RSX11M.STB/SS .ENDLB:CRPROT:CRPFUN:CRPPRO:CRPERR-AR!AR: .FCTR LB:[1,1]SYSLIB/LB:ARITHaQSYM: .FCTR [1,24]QMG/LB:QMGSYMOPRS: .FCTR [1,24]CRP/LB:CRPPRSPAS: .FCTR [1,24]CRP/LB:CRPPAS?ACC: .FCTR [1,24]CRP/LB:CRPACC-[1,24]MCR/LB:ACTFIL-XSYM-(OP,CL)r#IVL: .FCTR [1,24]CRP/LB:CRPIVL-XSYMr*OPJ: .FCTR [1,24]CRP/LB:CRPOPJ:C;.; TKB BUILD FILE FOR DMO; ON AN RSX-11M-PLUS SYSTEMR&; CREATED BY SYSGEN3.CMD VERSION 03.01;e>SY:[1,54]DMO/-FP/PR/CP/MM,MP:[1,34]DMO/-SP=[1,24]FIL/LB:DISMNT+[1,24]INI/LB:INIGCL,LB:[1,1]SYSLIB/LB:ARITHM[1,24]MCR/LB:FMTDV:$FDUCBF(LB:[1,1]EXELIB/LB,SY:[1,54]RSX11M.STB/SS/F PAR=GEN:0:0K IDENT=04.00SUNITS=3 ASG=TI:1ASG=TI:3 ; ERROR MESSAGESSTACK=32PRI=160. TASK=...DMOFGBLDEF=$CTPRT:0 ;F%; THE FOLLOWING DEFAULT BLOCK SIZE IS0'; SET FOR MAGTAPE DEVICES UPON DISMOUNT "; IT IS DISTRIBUTED AS 1000 (512.)(; THE CORRESPONDING GBLDEF IN THE MTAACP"; MUST ALSO BE ALTERED IF THIS IS.;YGBLDEF=TPDFBS:1000/,MP:[1,34]DMO/-SP=[1,24]FIL/LB:DISMNT+[1,24]INI/LB:INIGCL,LB:[1,1]SYSLIB/LB:ARITHM[1,24]MCR/LB:FMTDV:$FDUCBF(LB:[1,1]EXELIB/LB,SY:[1,54]RSX11M.STB/SS/F PAR=GEN:0:0K IDENT=04.00SUNITS=3 ASG=TI:1ASG=TI:3 ; ERROR MESSAGESSTACK=32PRI=160. TASK=...DMOFGBLDEF=$CTPRT:0 ;F%; THE FOLLOWING DEFAULT BLOCK SIZE IS0'; SET FOR MAGTAPE DEVICES UPON DISMOUNT "; IT IS ;R; TKB BUILD FILE FOR ERRLOGE; ON AN RSX-11M-PLUS SYSTEMA; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;S; BUILD ERL.TSK (ERRLOG TASK)1;D/SY:[1,54]ERL/FU/PR/-FP/-IP/MM,MP:[1,34]ERL/-SP=A[1,24]ERLBLD/MP:;1 TASK=ERRLOGR IDENT=04.00W UIC=[1,6]FUNITS=12ASG=LB:1ASG=TI:2ASG=CO:3ASG=LB:10 ;ERRORS.LOG LUNASG=LB:11 ;ERRORS.ACC LUNASG=SY:12 ;USER OUTPUT FILEASG=TI:2ASG=CO:3STACK=64 PAR=GEN:0:0CPRI=1481/DFLIB'/LB:RWFSR2:EDTMG:ASCPPN::.CSI1:.CSI2AD .DATA FCS;R; TKB ODL FILE FOR ERL; ON AN RSX-11M-PLUS SYSTEMS; USING SYSLIB&; CREATED BY SYSGEN3.CMD VERSION 03.01;.1 .ROOT ERLOG-LIB-COL-FCS,FCSOVR,LB:[1,1]SYSLIB/DL4;LEERLOG: .FCTR [1,24]ERL/LB:ERRLOG:ERRRSB:ERRRDT:ERRPRC:ERRUCB-MISC-STBR;D!STB: .FCTR SY:[1,54]RSX11M.STB/SSS;B2MISC: .FCTR LB:[1,1]SYSLIB/LB:CBTA:CDDMG:CATB:C5TA;=LIB: .FCTR LB:[1,1]EXELIB/LB; #COL: .FCTR [1,24]MCR/LB:COLOG:TISET3;T; THIS IS THE COMMON FCS CODE;L4FCS: .FCTR FCSR1A-FCSR1B-FCSR1C-FCSR1D-FCSR1E-FCSR1F;R8FCSR1A: .FCTR LB:[1,1]SYSLIB/LB:XQIOU:XQIOI:WAITI:COMMON?FCSR1B: .FCTR LB:[1,1]SYSLIB/LB:PARSE:PARSDV:ANSPAD:BKRG:DIRECTEAFCSR1C: .FCTR LB:[1,1]SYSLIB/LB:RETADR:RDWAIT:WTWAIT:BIGBUF:RWBLKE;FCSR1D: .FCTR LB:[1,1]SYSLIB/LB:EOFCHK:WATNOD:WATSET:CKALOC.9FCSR1E: .FCTR LB:[1,1]SYSLIB/LB:RSTFDB:DELETE:CLOSE:FINITB@FCSR1F: .FCTR LB:[1,1]SYSLIB/LB:RWFSR2:EDTMG:ASCPPN::.CSI1:.CSI29FCSB2A: .FCTR LB:[1,1]SYSLIB/LB:GETSQ:PUTSQ:PNTMRK:EXTENDN;S; BUILD THE FCS CO-TREES;- .NAME FCSROTC#FCSOVR: .FCTR FC00?GLDATADATADATADATASROT-*(FCSB1,FCSB2) ;[; THIS IS THE "OPEN" LEG;T#FCSB1: .FCTR LB:[1,1]SYSLIB/LB:OPENB;:; THIS IS THE "OPFID" LEGR;E$FCSB2: .FCTR LB:[1,1]SYSLIB/LB:OPFID;R .ENDTWAIT:BIGBUF:RWBLKE;FCSR1D: .FCTR LB:[1,1]SYSLIB/LB:EOFCHK:WATNOD:WATSET:CKALOC.9FCSR1E: .FCTR LB:[1,1]SYSLIB/LB:RSTFDB:DELETE:CLOSE:FINITB@FCSR1F: .FCTR LB:[1,1]SYSLIB/LB:RWFSR2:EDTMG:ASCPPN::.CSI1:.CSI29FCSB2A: .FCTR LB:[1,1]SYSLIB/LB:GETSQ:PUTSQ:PNTMRK:EXTENDN;S; BUILD THE FCS CO-TREES;- .NAME FCSROTC#FCSOVR: .FCTR FC;H; FCPLRGBLD.CMDA;'?; Build entirely memory resident F11ACP (FCPLRG) for RSX11M/M+.'=; This version does not have any overlays nor does it requireLA; special executive support such as memory management directives./;C?; Since this thing is over 8K words minimum it is not supportedI!; on unmapped system (obviously).; ; ON AN RSX-11M-PLUS SYSTEM:&; Created by SYSGEN3.CMD VERSION 03.01;C; Name - FCPLRGD;Y>SY:[1,54]FCPLRG/-IP/AC/MM/CP/-FP/MU/PM,MP:[1,34]FCPLRG/-SP/MA=;U;[1,24]FCP/LB:F11ACP:F11CM:F11BUF:SMCOM:DISPAT:DIRBUF:FIOSUBm#[1,24]FCP/LB:ARWVB:INIT:MXQIO:SMRVB10[1,24]FCP/LB:ALLOC:BLXIO:CKSUM:CLACC:CLDAC:GTFID0[1,24]FCP/LB:ATCTL:CRFID:DATIM:RATCM:RWATT:WATCM*[1,24]FCP/LB:CLATT:CLCRE:CLDEL:CLDIR:GTMAP1[1,24]FCP/LB:CLEXT:DARITH:DLBLK:DLHDR:DRGET:DELCKo6[1,24]FCP/LB:INFCB:MPHDR:MPVBN:NXHDR:PROCK:RDHDR:RLEAS6[1,24]FCP/LB:RLFCB:RW1LB:SCFAC:SCFCB:WITRN:WRHDR:WTRN16[1,24]FCP/LB:DRINI:DRPAC:DRSEF:DRVLB:DRWRT:DWPND:FDRMV1[1,24]FCP/LB:LOCAT:MATNAM:SMALC:SMDEL:SMNXB:WACCK11[1,24]FCP/LB:CRFIL:DLMRK:DLFIL:TRUNC:ACCESS:DEACCF6[1,24]FCP/LB:CLNUP:CLFCB:CLCOM:EXTEN:EXINI:EXCOM:EXCMP/[1,24]FCP/LB:IXEXT:EXTHD:RDATT:WRATT:RWVB:RWVBL//[1,24]FCP/LB:FNDNM:DREX:RMVNM:ENTNM:DRACC:INWIN/+[1,24]FCP/LB:DREXT:DRALC:DRCPY:DREOF:DMOUNTB-[1,24]FCP/LB:CNTRL:MOUNT:MOUNT0:MOUNT1:MOUNT2C([1,24]FCP/LB:CDTTA:CATDT:MONTB:DIVD:DIVQLB:[1,1]EXELIB/LBRSY:[1,54]RSX11M.STB/SS/N;H TASK=F11ACP2STACK=50UNITS=1C UIC=[1,1]BPRI=149P PAR=GEN:0:02 IDENT=06.01T TSKV=.SSTVC:7M;:5; ===================================================S; NOTE BENE6; PSECTs below $$BUF3 must map completely below 160000;E5; ===================================================M3; Allocate a separate buffer for index file bitmap.Y;E:; If you've memory to burn, enable the EXTSCT=$$BUF0:1006.;2EXTSCT=$$BUF0:1006;N.; Allocate a separate buffer for file headers.;T3; Always enable the EXTSCT=$$BUF1:1006 if possible.1;BEXTSCT=$$BUF1:1006;2"; Allocate private FCB pool space.;=3; The value of the EXTSCT determine the size of the 2; internal FCB pool which doesn't help performance7; but cuts down on the use of system pool. The optimum=4; size is the size of an FCB (about 54(8)) times the:; number of files open plus preaccessed directories (LRU).;nEXTSCT=$$AFR1:3300;1; Extend the directory buffer.; 7; The EXTSCT=$$BUF3 determines the number of additionals8; blocks of directory buffer to allocate. Determine the7; size of the most frequently used directories and then 7; extend $$BUF3 by that value minus one times the blocke; size (1000(8)). ;sEXTSCT=$$BUF3:2000; / cuts down on the use of system pool. The optimum=4; size is the size of an FCB (about 54(8)) times the:; number of files open plus preaccessed directories (LRU).;nEXTSCT=$$AFR1:3300;1; Extend the directory buffer.; 7; The EXTSCT=$$BUF3 determines the number of additionals8; blocks of directory buffer to allocate. Determine the7; size of the most frequently used directories and then 7; extend $;.; TKB .CMD FILE FOR FIXERL; ON AN RSX-11M-PLUS SYSTEME&; CREATED BY SYSGEN3.CMD VERSION 03.01;n0SY:[1,54]FXR/-FP/-CP/-SE/MM/PR,MP:[1,34]FXR/-SP=[1,24]EUT/LB:FIXERLB:[1,1]EXELIB/LB/SSSY:[1,54]RSX11M.STB/SS/BIDENT=02.00 ; TASK IDENT UNITS=1.WNDWS=1LPRI=100H TASK=FXR...E PAR=GEN:0:0F/SYBLD .IFF $MLH .IFF TKBIN REM TKBi Q.NOREM:rR .SETF TKBIN8S .IFF $11MPL .IFF $MLH .IFF $SGN2 .IFF $SYBLD ASN =LB:T .IFF $DBF .GOTO 2000 U ;.V ; Delete the task build .CMD and .ODL f00)&4:?Ol<0U 1g"@?BZ###LL #LI"#LK#LQ#LY#L`#Lm#L{##w#,#,#:^#d}#T #T #T {#T #T ##T (#T d#T d#T f#T p#T p#T Iq#T Lq#T Qs#T w#T # 8# =# T[# y# `# ,# `# _# !# 8;# ;;# L# Jm# # K# # K# xQ# Z# 8^# A`# `# y# .# p:# 8 # d# f# H# p# # # K# L# ]a# q# r# r# # !# 8"# # K# xQ# (}# <}# # # p#d #d #d #d #d #d \!#d &#d '#d (#d ,#d 5#d 8#d #:#d ):#d :#d :#d J;#d CM#d +S#d X#d X#d 3X#d X#d Z#d Z#d H^#d d^#d nf#d w#d w#d Bx#d _y#d `y#d y#d #d #d #d #d #d # # z# # y# ""# ## y:# :# D# N# S# T`# :d# e# df# 3g# k# v# Fw# x# y# # # $# # # +# # |# +#'#Y#x#z####'L#Fw#4x##Z#,###z## #:#:#_M#S#f#s#v#y#*}#u~#j####:#X #&#[(#D#E#@G#G#H#K#Hg#Tg#\g#s#y#~#Ѐ#Ԁ###;#\K#K#LT#W#Fw##### #3#8#t!#8##K#W#f#g#g###p!#.#K#W#8Y#Fw## #H!#|:#:#K#H#=####&#Jw##=####&#Jw##y##](#K#W#yX#Z#+e#f#Vg#q##:#:#s##K#\M#W#W# X#(y#~###2#2#K#x###E#8 #k###8#H:#K#\M#.S#W#_X#_#z###2#8#K#;M#XM# N#X#w##T#T#T##T4F#TQ#T?T#Tf#T$#|#|""#|&#|8#iw#D#Dz#D:#DG#Dg##s##-!###t:#u:#L#?T#r#U""#\#\#\##\'L#\?T#\X#\Z#\df#\f#\s#\w#e^#6#Yq#s#!u#!y##k####L##Q##y##y##y##z}######Ԁ#####$#$#$y#%'#& <#,.#,8Y#-Lr#.H#0L#0#0W#0r#0y#0z}#20 #2`m#2(x#3#3p#3x#3#3L#3k#4#4H:#5#58#5r####+#{#q!#:d# q#zs#w#D#%#z###w*#H;#Q#S#LDATADATADATADATADf#DUq#Dr#Ds#Dx#Dkz#l#l#l'#lK#lT#lf#lf#lx##,##%##f#\g#Ey####f#ԃ'#ԃt #ԃ#ԃ&#ԃ#ԃ4F#ԃ L#ԃX#ԃZ#ԃg#ԃm#ԃq#ԃ#ԃC#. #/ #0 #1 #2 #3 #4 #5 ##########~##\###8#N#. #/ #0 #1 #2 #3 #4 #5 #########<#zH H:GxHdh LHT#HT dH(YH(HԃH@#HH#T[H< NH"{IyH7WH5HdOHԃH TSH@:wHZH H卶(H-'H3DsH dfHHTwLyHzl'H_MHlKH+"2HeH(6qH<.H(\ÌH<HH&mVNHf6H H 0z}HkfH@z{H"LH(mHr<H 58HKHdrHp6 Hd}H e:H (H ~H2uHd]ZH#HzczdH.|H6{HGQHb#"H*H3b<}H \gH 4H:H<HfHT pHSsH )ZHgHzT pH JwH,& shҒHH2/Ip&H(HH8,|wH@0rH U H YH;MHBzGHl\MHHB'HKHV:HEHdWHKHrH6\MHH:\gHrDHpX H(z NH:HHP+eHH HHfLTH"WHXHREH8YHKHHHfHH@zZH22H6:HFwH^HXMH8xHH\_H#H& +H&HWH FwHHz yH@HKH#H HKH_MH ""H.SHHHHsH HH$zHH0#H(vHWHWHH:H KH,KH,H.H(zHyH =H"zfHxHJwH*zHjHVgH 'LH *}H,H FwHZHSH&H](HyXHzKH! H:HgH& H@sHfHHH u~H =H{#yH H H# Hz#H#KH H#H4xH#s!Hx""H xHT"_MH#SHxQH #H{#H#!H #Hz#YMHT"uLHxlH#|H#H##"H{#ewH #yH HH@# LHT"<H{#zH#xH#Hz#azH#yHT"y:H#H 'H{#H #H#u~HxZH#u~H# H{#RH +H|:H#9gHz#g'H # qH#RH#H#8H#RH{#H#Hx2H YH{#""HxhH#zH#[qHy# LHz#dH#BxH#kH( -H{"fH#H!xeH H#g'H #g'Hy#BxH#l~H#dH#H#4Hz#VgH#:H#H##"H&# LH#Hy#H#'H !9H#H #KH#3dH!#H{"fH#g'H z# gH MHy#VgH#H! H ZH#sH#H#&LH jHy#H00)f*h:?Ol#H,xeHy#VNH#R`H"z!H#l~H#VNHy#}~H #KH #9H#KH0y#dH zH#KHy#KH#H# LH#}~H #}~H z yH#gHd nfHd J;Hd XH $Hd ,Hd yHNd :HFd Hd Hd d^H@d BxHd #:H kHzd ZH<$=CQ.;-+*BEFGLNPSVWX!:&#? ,&,&&Zj <>@BDFHv,x&z,|&~&B",z(|$:D:h~",z  (| "$$&(:*,.0D2:468:h<>@7 p7  r77P7 \   L" DD T:  ,? 7 " 8hv7  7 & 6 7 B "7tm  2  w  ? w De w %6,Bhpx.eDl r w ׭ D B 5$ 4  t@  z%B l6BHRfB (f 8w ? D 7 f_ 7c  7Z7 X w ԇ  y;5w 82bp*7$  77w77%5 f   b/7* 7 b # Ba 8 , 8  & Lw 7R7Pw_F5B05 L  wB~  w   7m     77 wj  hz ~ 4b  $| B` :%dZ vw 77TM7HU@E 7tz   p e 77Ɓ 0׭U >sfr7 ($ĝw)t!MC w7i   e0B7P pJflH l: j@ 7w>MPODcJ BE7IOILLsVsjEMTRFPzw 7 w   T  L  % R ,4X`hp&dhr,tv4xXz`|h~px p 43 8  N (  >  @ @   J 6  xvsb(f&f)w bd 4j w L^%4 < % ! &d$40^NPVdf%44 >7`$-  z@@@Pr@ @em 7X wRPw Z   @f   m77  ` `  07Eu` A "  A ы <>  ( &5  &% F) L:t T$9)\:pFR  7F)  w $ az $s0F>sd +f&%&%#$ h%  zU wH N, @ e0 2 @7^ >.ss"(6>DzR^nJ 7N 7 @7<&e N @ e0  wZ L   @ LZ NL P R T r |i3 e ee e @( `ADD  SUB  MOV  CMP  0BIT  @BIC  PBIS  BRBNE& & BEQ, , BGE2 2 BLT 8 8 BGT > > BLED D BPLJ J BMIP P BHIV V BLOSBHISBVSeh h BCCn n BCS t t  CLRz z F COM  INCP  DEC   NEG  F ADC  SBC  TST   ROR  F ROL  ASR  ASL00*vh:?Ol  SXT  pMUL  rDIV  tASH  vASHCxXOR  ~SOB  EMT  JSR  SWABRTS  FJMP  BPTe  CLC  CLV   CLN  SEC" " SEVP( ( SEN. . SCC4 4 CCC: : NOP@ >@ ~p`>  <Vh@\h: > $<(V,h04\8h  qq0uqXuququququq@yqxdqqqq  2|qqqq    f&Bwpz KWt E@ Ktpe 4e0 &tt` *z > J@ ^ f)  a    xXt(pet @ 8  S  @ÝE 2Ý ( 2 Ft T ` j  3t8pe  ѕ,Ýt v Ý` ÝT Vѕ,J E tpe ѕ,  2 @ h z ^  єєєє &&f L$q   D!De    ѕ + : ~ ѕBѕ rnl r Zѕ & v5vѕ0 tEe0v V&  r e.e e ~&f &ѕ  D~ѕ( ѕ)  < X ѕ@ Ý r Ý`  | ѕ+ѕ#ѕ- & D ! !E7QN09t$v J~ %  6!   6!    D   !?t7Qf  +-'"A) N4 Ft0P pA h b Z TtP J F` Z   & , ff  P>&f @ #!-((- >( !U, D7& \)U0 ~ !  j 8U  ,+ U> F U&(  " )  P! tP: "5 u7Q&   U  ^ x --r 6 &7 5  ҋ⋗B* &h     EE  4 R V rz ~&d &f 0 $q ePf wB w$q &d b .,,e 8  .$ 09AZ ~׭<.   ׭,$8 z׭$A~ %$ %.@e.Wp(`~&7 "q  fHUz|:Ds@$9)@:t @2Hq:@i@    \~h\h}h}h BBBBBBBBB* (B*B,B.B0B2B4B6B8B(4( X\*X.\\\ggj01234567SWAMLHCQFXBGIVED}~\/'"% ^_@><$=CQ.;-+*BEFGLNPSVWX!:&#? ,&,&&Zj <>@BDFHv,x&z,|&~&B",z(|$:D:h~",z  (| "$$&(:*,.0D2:468:h<>@7 p7  r77P7 \00*~LDATADATADATADATA   L" DD T:  ,? 7 " 8hv7  7 & 6 7 B "7tm  2  w  ? w De w %6,Bhpx.eDl r w ׭ D B 5$ 4  t@  z%B l6BHRfB (f 8w ? D 7 f_ 7c  7Z7 X w ԇ  y;5w 82bp*7$  77w77%5 f   b/7* 7 b # Ba 8 , 8  & Lw 7R7Pw_F5B05 L  wB~  w   7m     77 wj  hz ~ 4b  $| B` :%dZ vw 77TM7HU@E 7tz   p e 77Ɓ 0׭U >sfr7 ($ĝw)t!MC w7i   e0B7P pJflH l: j@ 7w>MPODcJ BE7IOILLsVsjEMTRFPzw 7 w   T  L  % R ,4X`hp&dhr,tv4xXz`|h~px p 43 8  N (  >  @ @   J 6  xvsb(f&f)w bd 4j w L^%4 < % ! &d$40^NPVdf%44 >7`$-  z@@@Pr@ @em 7X wRPw Z   @f   m77  ` `  07Eu` A "  A ы <>  ( &5  &% F) L:t T$9)\:pFR  7F)  w $ az $s0F>sd +f&%&%#$ h%  zU wH N, @ e0 2 @7^ >.ss"(6>DzR^nJ 7N 7 @7<&e N @ e0  wZ L   @ LZ NL P R T r |i3 e ee e @( `ADD  SUB  MOV  CMP  0BIT  @BIC  PBIS  BRBNE& & BEQ, , BGE2 2 BLT 8 8 BGT > > BLED D BPLJ J BMIP P BHIV V BLOSBHISBVSeh h BCCn n BCS t t  CLRz z F COM  INCP  DEC   NEG  F ADC  SBC  TST   ROR  F ROL  ASR  ASL  SXT  pMUL  rDIV  tASH  vASHCxXOR  ~SOB  EMT  JSR  SWABRTS  FJMP  BPTe  CLC  CLV   CLN  SEC" " SEVP( ( SEN. . SCC4 4 CCC: : NOP@ >@ ~p`> 00*h:?Ol <Vh@\h: > $<(V,h04\8h  qq0uqXuququququq@yqxdqqqq  2|qqqq    f&Bwpz KWt E@ Ktpe 4e0 &tt` *z > J@ ^ f)  a    xXt(pet @ 8  S  @ÝE 2Ý ( 2 Ft T ` j  3t8pe  ѕ,Ýt v Ý` ÝT Vѕ,J E tpe ѕ,  2 @ h z ^  єєєє &&f L$q   D!De    ѕ + : ~ ѕBѕ rnl r Zѕ & v5vѕ0 tEe0v V&  r e.e e ~&f &ѕ  D~ѕ( ѕ)  < X ѕ@ Ý r Ý`  | ѕ+ѕ#ѕ- & D ! !E7QN09t$v J~ %  6!   6!    D   !?t7Qf  +-'"A) N4 Ft0P pA h b Z TtP J F` Z   & , ff  P>&f @ #!-((- >( !U, D7& \)U0 ~ !  j 8U  ,+ U> F U&(  " )  P! tP: "5 u7Q&   U  ^ x --r 6 &7 5  ҋ⋗B* &h     EE  4 R V rz ~&d &f 0 $q ePf wB w$q &d b .,,e 8  .$ 09AZ ~׭<.   ׭,$8 z׭$A~ %$ %.@e.Wp(`~&7 "q  f"UzyDs@<&Kq@p@`@$9)@<&9@:t @2Hq @?S@:@i@z=@@=@' q@:@<&D@hp!@   \~h\h}h}hy ( BBBBBBBBB   & . J (B*B,B.B0B2B4B6B8Bprtv x z |& ~. (4( X\*X.\\\  mm=<&9<&Kq<&D ' > P    ' q ySY  ggDDDfDDDD01234567SWAMLHCQFXBGIVED}~\/'"% ^_@><$=CQ.;-+*BEFGLNPSVWX!:&#? ^ DDDfDDDD:<>@BDFtvxz|~B0<Ld2,8 B t 0Nb~0< L d2,8 "$ & (*B , .02t 4 6 8:0b@N T\7 00*LDATADATADATADATA7 \  N7J77"    "< DD T:  |? 7F N T\8hB7< 7 & X @7 :B 07    w  ? w 0De w ;%X,Bh0px;.eDlB  w ׭]DJ B 5$ 4  t@  %B znfB6BHRfB: ( w ?  7 _ 7  77 w Tԇ  y|w 2bTp|z7tld  7D7RwM7472%5$ f   h27z * 7 b 2& Ba  < 2   & P w 77w5z5 J 6`w`B~  w ] U:67Im0*&&  ,) T  77 6nT* wd  4b  $rl B` B% w 777UE 7| b  \ .eT7D7>9Ɓ 0׭'  Dsl"Uh`^7 0>$ĝw)t!MC w 7   e0B7Plr x t: r@ 7fw>4.(MP^[ODPc .BE07/IO$IL Rs\s EMTR FPw 7P wF   \  T  %  R  j nxz|~    & .  p 43 8  N (  >  @ @   2   &  . ` xbjf&f)w   w  %.4 < %,s(2> \^drt ! %44 7`f-b @@@P@ @em8 7 w4 $* w   T @f   m77  ` `  n07E  T0  u` A A ы ~  j h\5  h%\XTLFZ:t b$9)j:~F ) HB, 7.F),^b d /VR *2s>FLsX^b h?Sz~=i~ $ȕ R 7 Hd& SYfp"# 7 N .STB FILE NAME IS: m&@=`6>' qDhp!  ^ @j d] w P$ az +f&%&%#$ %  "&PPsXs`ft|` (U w N,D @B e0 @;7  7 7 7&e N @ e0 L (D B0;q w>  * $ >@ e ee e @( `ADD$     4>>iJ J SUBP P MOVqV V CMP\ \ 0BITb b @BIC h h PBISnnBRBNEz zBEQ BGE& BLTf BGT BLE BPL BMI BHIBLOSBHISBVS BCC BCS   CLR F COM  INC  DECe  NEG` F ADC   SBC  TST  ROR F ROL  ASR    ASL  SXT pMUL rDIV" "tASH&((vASHCxXOR4 4~SOB: :EMT@ @00*h:?OlJSRFFSWABRTSR RFJMPX XBPT^ ^CLCd dCLV j jCLNp pSECv vSEV| |SENe SCC` CCC  NOP>~pp>`  b@:p > $(,0b4844 qq0uqXuququququq@yqxdqqqq  2|qqqq >> (f&BwpKWtE Ktpeh 4e0 &tt` *>J^h)X  a  D J Xt(pe  8 <S@ : ÝE ÝX(D2JFT`@j:6 3t8pe p ѕ,Ýt vL VÝ`4 HÝT Vѕ,J E tpeJ ѕ,F2L@4hJzFR  єєєє &&f L$q   D!De /*f   R|:.7 @ D!wwD     ѕ+ : $ .ѕB:ѕ   ѕ & v5vѕ0 tEe0v &> r e.e d>&e ~&f &ѕ  D~ѕ( dѕ)Y ѕ@ ÝJ r 6Ý6n0`  " ѕ+ѕ#ѕ- & D ! !E7QB09"$ v"J~ %  <!   6!    D   !?7Qf  +-'"A) N7 Ft0P vA n h ` ZtP P ` Z  &  , ff  P&f @ #!-((- >( !U, D7& \)U0 ~ !  j 8U  ,+ U F U&(  " )  J! tP 5 u7Q&   Ux  ^ xD -B-> VD&70 5 (ҋ⋗B* & 6 X  EE b6 L*(66:XVb^6bdfLhj&f 0 $q ePf( wbB wZX$q ,,eF( 8 ( .$ 09AZ ~׭.   ׭$׭A~(z B5 `  w@7l:ew07 ew  B5  `  f   w"w,@e %$ %..:<r@e.Wp(`~&7 "q  (fUVZt^sVDs@:t @:@ t^d \~h\ht^( t^00tZ|B (*,.0246ntpZr|tvx|4  *.  = gg|||||||01234567SWAMLHCQFXBGIRVED.|||||| |D=DTfx}~\/'"% ^_@><$=CQ.;-+*,BEFGKLNOPRSVWX^&Tfx  ~B~$$`jf~0jdp|6l~$00*LDATADATADATADATA$  `jf~0 j"d$p&(*,.02|4668:@"\L7 v7  0 x77P7 \ OD T:  B? 7 7 7 " \ L0\8& B  7  7   w  1 w 0De@ w ;% e0DlD" B$\0d@l;x0~D N w  5W 4 T @  Z r 4;t  83 @  D $T>X0^ #E = e0,  ~@ nb (0,r f^w ? :0 P (.R0bt07 ,_ &7+  7"7 hw Xԇ  &y~w7  !7(X6~p( 77w77%5 f     }`\7qmVPLL DB Q X 8 |X8, 767 4w  $b   B` % D _ & >   w 777UE   l f <eb7Rls7LGǁ 0f׭5.&Uvnl7 8L#ĝw)t!T fxTTE w7 f f e0B7  : @ PJDMP|yODnc, JffjstszsBEN7MIOBIL:FP2 EM*TR"w 7n wd      t  l  % <R tZ|  N3 X  n H  ^ 8 @ "*"<&0t2Z4|68:<>@  <  <& t<f&fw ~ | w h 4sB<Xb|n 4TxT <xT % !   %4T4xf j&TxT&x(TRlTpxvf7`N-J @@@P@ @em  7 w~|w   X @f   lX|   m77  ` `  07E ` A A ы df |  P NB5  N8 @ H$0 7" ,:::t Tz )  w2E  w "T$ az +f&%0%%"BTt0zt $ d%T 0 (U  N,F @D e0 0 @;  Ne0, 7z 7 l7h T0(&F2DB; &e N @ e0  w , &   @f A N  % * , ., 0& 2 P Xl e ee e ^ @(F   ,B     8@UXZXDs@ t2VNh ѱXhY8 h< <( t <^ @ZL 8-7>7 Z#@\%zt t@tZ tL t "t8&t.t2>4tC 8e . &) B  B B ( t Ft`sdtht B e0 ѕ ѕ t> \q gR^ PCPCPC PCPCPC PCPCPC PSPSPS DSDSDS R0R <>\2@R H<^S0R0 R1R1R1 R2R2R2 R3R3R3 R4R4R4 R5R5R5 SPSPSP TOSTOS >>> BREAK <<< 4t 8t4Js Vt]Ztbt Z R<0T 3,  #+ S'  g' ; Bx' 0' P' 8T' ++^q+ +dkW.^qt9?9@;M>8>DXH8HKJKNt Xt .0) %RZJwx{(KXYqsOy*}d|&s)|&,&&&&<&,&.& N&Z)|&N`&4d&f&\g&p&s&x&x&Fy&Ny&c& c&c&=c&c&%c&&c&b'c&d'c&'c&](c&(c&8c&>9c&X:c&y:c&:c&:c&vLc&Yc&{Zc&yc&r&%)|&})|&.})|&4})|&a )|&0M)|c'kM)|e'W)|o'd)|'a )|'~)|(})|(})|(4})|(~)|U(4})|U(0)|(Xa)|(^)|(_)|(` )|(s:( z(b (DG(Z(T[(f(w(w(y(Ry([()Bx)04)W)S)p!)H)H)!)Bx))r) S;4S;S;S;S;""S;2S;3S;:S; NS; RS;YS;JwS;wy<yODOXJOH"='' A> ' Dp' :Bx' P' >d' >8' >r' K<}' Kօ' L ' Ls' Ly' .)|@q%@r%r&>Xu$vu$wu$xu$yu$zu${u$|u$}u$u$u$u$u$u$u$u$ v$Hv$w%Ry&>(Ǝ((00+LDATADATADATADATA6&6&<' 6&""$6&f&>6&w~%'v(3)|-T Oسz6&OسDc&yHc&y:Hvu@u@5 @zu@xu@wu@{u@c&X:HS;3H)sE@zc&rHS;Hyu@c&:H(b HXu@`@d@u@u@z>P@c&:HHv@)@}s@|H@([H v@Hd8T@>r@KXH$98@ձ@c&Hh'@$9.@zS;Hc&d'HHc&=Hc&b'HsH(ZHc&'H@(fHc&HƎ@0@(T[Hc&(Hz(H@Kօ@tHdH(wH c&](H)W@)p@S;""H@@q@(wHS;:HLy@P@z.H@@r@(yHRH(RyH)'@JwH@)Ps@' q@S;4H; Bx@K<}@w@.H0Hz`;@S;00+:?OlYH^qHS;H+H9HzS;2HRy@}u@|u@  )!H)BxH) H )WH)rH)HH)p!H )HH z)04H)SH)H)BxH&&fH&\gH &sH&H&<H& NH&xH&N`H&xH$&,Hz&NyH"&FyH &.H&,H&4dH &H&pH&H&Hͫ( zH(s:H$;ONHDOXHz>OHJOH"HXt H JKH>HNt H H8H>8HDXH9@H9?H HKH;MH 5Dez~<~<HJrd&  N  w ~FR  ($.(l,0F2h4h68:>@dBD& F HJ L NN P RTV  >EuB AeueOu%UU"wMe 5 %& 05 :ue jN  5  Aej~UU dBeXPCeL eVe 0 BCe~U   L L  >E  dBe$R~ D~ & 5F*5% 6  %P P  0 F5@ @A- 5 B5%6B0JFT@B@mBAmBu     U  E~  50 \  h ` @ ~ "4VƎ`wdlx>R  u  :  X 5     c7[H[24B[132C[6n8[[c[?"T@q @ ɋ ;B  0 9 f e 0`  w %@mB    @q,@q6 E~  w@0  ` Ce2`54 `  E@t0  t0 5 6U& t0 5NB& E% W @&  &D5@  $D  K s.e~ ~ e 4w D4 %56 9 (   h~fe &4~ L5 U5&Ǝ@  eP ~  E  ҁ B~e• D`~ E5@  wPƎ& KmB3eC-4  wB6 % RR D~ D~ 80 C2 4QA8B 5@  ` ` VD45@ +  b  &f  m ~ 8C~meI~ ~ 5!6̇U DE5`u-   t   4 z5@ & B2   nꆇe B` . . 2@   @ B` :Ǝ 톇   ҋ  %UU >u A ˥*  :0e L= : 0  1 hL= x <  l  81@ "B8  5 ZTC2 4 C@ xL=wd 2 l5C@  1e1 1   0   f W W C@& L=@0e r $.    "f $ & H  00+LDATADATADATADATA@2"e $5@  0 &  L=eH~ l   N    4&@`  L  4  lw `ҔD~ LLj &    .&@`  O Z r t w C`~ D~    6OPz  eC~L=l f5@ &- @ P ;  B r 5 : @ w J D-x  2 L=6  w  C~ D-6L=66  h  wB,r @ʢ    1w l ^ w b f #N :B` e~ 0H 2 C6"    e a~ 0 e    D4 R fj D-65@  5   E  C` \ w ” B  ~azT 5@0!0:Aw B5  4DV , 5B~mB`B~ 4~Ǝb ~5>5  ѥ ~eB'@ J~! X  e Ǝ @ f ~ z 5@  14575+5õ@ $ - N 0  ;BC@Ǝb-jZ m õ<  f @   5  N .  E BVfP  %l <|l!t-<%%  <%#t-<. C@%C@ &C@ 0XR wNe B ѥ. ~APBV1 2 UE U@E122A& `1e2ƎS Q$ A5 W RW  W 5W F h &5-5 r'm!WB<&S @q(R.4@FFLJ q~  ,& FB<C Q~f:  t-<0Am< ^5  5t-<5 5@  %6U T5  05  P @0w 5@  25@ 4XuXu\B$L=%5@ & l 6 6w F"5@  5@ RuVL=6 6d5@   D5@   $ 5@ ,uLul v:     |t-< R w B> <t-< e ` J &Hv@r$@q8RvuVw B> <e ` $  >`  <  <  < < <E Bm< 5#5 \wu`Ǝ2A< C~ f: ( % R A<C~  H5 , 45 f: h  nUzxu~Ǝ`!~B-< F UUw 5 Ue B` B`  JEf:fBAe*BҥƎ6* ~ N5 U v% BEAe ,  w f:Ae$  j 4`yud` X 5 0UC2 hEC@ 0w   5E5 <e  U5<eJ"`  B<w! Lu :u ; w f: 5  0E  &f@ D~ U  r  !: 5 :A4Cz9`NX Am< U E5   4  eы. 4z `&,26ZƎ^Am> e$   AZa%z 09  00+:?Ol*zuV{uv|uzƎ-+ +- . Ѡ~ z l   ~5 5  >}uLuPƎ.(C2L=  5 f   F5 : uuuew %UU  ~U@  z %RF 5 :&- *; j  H X:>RDFV-  `w  d1 0 C    e0 e0 ;= u- @e5 5 f@  B $      Bɋ W]W: mKɋ Ry:$9rxP|P~%& ppe ' $%%b'  1  z 1 BrztH0)sE)sE")2H*)2H.ձ4`;B`JPbPf`A1d^w *AHCCHeEfD & pe ͇ ʇ%FuJ< K<}$>PN)sER)sEZ)2Hb)2Hfձl`;v `Dw E) B ",e$FFJ% ~4 C-C`Ale &>8^>Pl:Bxr:BxC ",e%uDH UBE`JF R5H&   5 V5 Z8Th>dp)Pz)pn   @,e fe N,Nv v  1  J jDpn:s ~r zL ~L v|  << & & & & & f& Ε &f  8L L }V}$r @DpDwxb5 f8TT Oγz6&fOγDs@:G@='@$9Y@ ~@@$9΅@Dp@  rhRyh  w ѰB   f& & & & && f& Ε `  ,& & & & f& f& Ε.<='@DpD:G ~ x='|DpH| f& &  ׭W1 ":G ~ $s&$9΅,$9YT Oγz6&<OγD5!@='H<&%t@A> HDpH NTPHLsH >dH >rHz SHL H:BxH>8HKօH gHLyHK<}H  WT WT WT2 WT WT" WT"& WT&WT$  WT226 6DD <&%t^^ tJJ" "ZZ&& b'SYT OγJ'vOγD  LhƎhh, Pf& f& &f&f T Oγz3OγD&ZH&f@&\g@&s@&@&<@& N@&x@&N`@&,@&Fy@&Ny@z&.@&,@&4d@3@&@&p@&@&@   (_hn'~h.h(}h(4}hzU(4}h&o'dhc'kMh(~he'WhU(0h8'a h(XahJ(` h&%h&a h`&}h*&.}h<&4}hN&sh"&0Mhr(^h\(}h   7 7 7 7 7 7 7 P3 &3*3-&,<3?&N3Q&,`3c&<r3u&.7 7 7 7 7 7 7 V3 &3&s,3/&N`>3A&<P3S&fb3e&t3w&\g7 7 7 7 7 7 7 V 3 &4d3& N.31&p@3C&sR3U&xd3g&Fyv3y&Nyz7  3Q&,`3c&<r3u&.7 7 7 7 7 7 7 V3 &3&s,3/&N`>3A&<P3S&fb3e&t3w&\g<0T 4  &) S% g%; Bx%0%P%8T%++^q+ +dkW.^qt9?9@;M>8>DXH8HKJKNt Xt .0) %RZJwx{(KXYqsOy*}d|&s'l&,&&&&<&,&.& N&Z'l&N`&4d&f&\g&p&s&x&x&Fy&Ny&c& c&c&=c&c&%c&&c&b'c&d'c&'c&](c&(c&8c&>9c&X:c&y:c&:c&:c&vLc&Yc&{Zc&yc&r&%'l&}'l&.}'l&4}'l&a 'l&0M'lc'kM'le'W'lo'd'l'a 'l'~'l(}'l(}'l(4}'l(~'lU(4}'lU(0'l(Xa'l(^'l(_'l(` 'l(s:( z(b (DG(Z(T[(f(w(w(y(Ry([()Bx)04)W)S)p!)H)H)!)Bx))r) S;4S;S;S;S;""S;2S;3S;:S; NS; RS;YS;JwS;wy<yODOXJOH"='%A> %Dp%:Bx%P%>d%>8%>r%K<}%Kօ%L %Ls%Ly%.'l@q#@r#r%.Xu#vu#wu#xu#yu#zu#{u#|u#}u#u#u#u#u#u#u#u# v#Hv#w#Ry%.'Ǝ''6&6&<%6&""#6&f%.6&w~#'v'3'l00,DATADATADATADATA*T Oسz6&OسDc&yHc&y:Hvu@u@5 @zu@xu@wu@{u@c&X:HS;3H)sE@zc&rHS;Hyu@c&:H(b HXu@`@d@u@u@z>P@c&:HHv@)@}s@|H@([H v@H48T@>r@KXH$98@ձ@c&Hh'@$9.@zS;Hc&d'HHc&=Hc&b'HsH(ZHc&'H@(fHc&HƎ@0@(T[Hc&(Hz(H@Kօ@tHdH(wH c&](H)W@)p@S;""H@@q@(wHS;:HP@Ly@z.H@@r@(yHRH(RyH)'@JwH@)Ps@' q@S;4H; Bx@K<}@.H0H`;@zS;YH^qHS;H+H9HS;2HzRy@}u@|u@  )!H)BxH) H )WH)rH)HH)p!H )HH )04Hz)SH)H)BxH&&fH&\gH &sH&H&<H& NH&xH&N`H&xH$&,H&NyH"z&FyH &.H&,H&4dH &H&pH&H&Hͫ( zH(s:H$;ONHDOXH>OHzJOH"HXt H JKH>HNt H H8H>8HDXH9@H9?H HKH;MH 5De~<~<HJ fv2 w EuB AeueOu%UU"wMe 5 HZ n Lz4>   f v"2 &%& v 5 :ue  5  Aej~UU *BeXPCeLvt eVe 0 BCe~U    r E 6Be$R~ D~ & v@A- 5 B5-B@mBAmBu #    U   E~ NV ltl 50  P  w %@mB     $E~  w@0  ` Ce2`54 `  E@t0  t0 5 6U& t0 5NB& dE% W @&  &D5@  $D  K se~ ~ e 4w D4vƎ %56 9 (   n~fe &4~ R5 U5@  eP ~  \E  ҁ B~e• D`~ E5@  w KmB3eC-4  w$ƎB6 00,:?Ol% RR D~ D~ 80 C2 4QA8B 5@ T ` ` VD45@ +  b  &f  m ~ 8C~meI~ ~ 5!6̇U DE5`u-   t  < 4 z5@ & B2  L nꆇe B`  . 2@   @ B` 톇   ҋ  Ǝ%UU Du A  ˥*  :0e L=  0  1 hL= Dx <  l  N1@ "B8  5pjC2 4 C@ xL=wd t l5C@  1e1 1 ~ 0 RR$ T   j W *dfRhjRl$ nT p r t vj <W C@& L=@0e  : @2"e 5@   \ F &  L=eH~ l     "4 & C` L  w `ҔD~ >    & r b <w C`~ &n D~    eC~L=l 5w  e~@~ V, w  2 L=6 T w ^ C~ D-6L=66  h  8 *wB@ʢ |   1w l w f #N :B` 0<T$ e~ v C6"    e a~ 0 e  z  D4r  R D-65@  5   E  C`  w ” B  ~` az 5@0!0:Aw B5  DV , 5B~mB`@ B~  ~575 ѥ ~eB#@ P~ r e Ǝ$Ǝ  "@ ~ 5@  f @ 5  < .  E BVfP   %,!t-<%%  <%#t-<. C@%C@ &C@ ,"6^  wNe B ѥ. ~APBV1 2 UE U@E122A& `1eƎ2' Q$ A5 W W  W H5W  h L&5-5 r'm!W& '@q.4:HFLRB< q~ ,& FB<C Q~f: v Rt-<0Am< 5 ~ 5t-<5 5@  %6U 05  05  P @ w 5@  2:Xu^ub5@ $L=%5@ & l b6 6w ""5@  L5@Xu\x L=6 6@5@   t 5@    52uRur v@  ~    Xt-< . w B> <t-< e ` &Hv@r*@q>Xvu\p w B> <e `   >`  <  <  <  <E PBm< 5bwufƎ#5A< C~ f:  % R A<C~ H5 , 45 f:  :U~h`!~B-< UUw 5 Ue B`00,DATADATADATADATA B`  8Ef:fBAe*BxuƎ"Ǝ<ҥ ~ N5 U v% BEAe ,  Xw f:Ae$  :fyuj`6 f " \5 0 UC2 * .Ew   5E5 <e  U5<e` b> B<w *u :u ; w f: 5  E   D~U  b 5 :AC9.brx~XN*Xnn Am< U EF5   4  eыAm> e$ *nn<Ǝ@F  AZa%z 09  -+ +- . zu8{uX|u\ƎP Ѡ~ z l   ~5 5  .(C2& }u.u2ƎluruvL=  5 f   F5 : uew %UU  nU frH@  2% 5 :&# e de X: `w  d1 0 C  2#`   e0 e0 ;= u- @e5 5 f@  B XRy@      Bɋ W]W: mKɋ F&&pe  D rJPNPR0b)sEh)sEp)2Hx)2H|ձ8 $%%b'  1  z 1 BrA1tnw *AHC2`;`P4P8`XK<}jr>PCHeEfD & pe ͇ ʇ%FuJ `Dw E) B "6 )sE$)sE,)2H4)2H8ձ>`;^t>80,e$FFJ% ~4 C-C`AleC ",e%uDH U0>P>:BxD:BxBE`JF R5H&   5   @,e 8(5 ,8T:>dB)PL)pf jDpn:s ~r zL ~L v|  << & & & & & f& Ε &f  8L L 00,-:?Ol}V}$r @DpDwxb5 f8TT Oγz6&fOγDs@:G@='@$9Y@ ~@@$9΅@Dp@  rhRyh  w ѰB   f& & & & && f& Ε `  ,& & & & f& f& Ε.<='@DpD:G ~ x='|DpH| f& &  ׭W1 ":G ~ $s&$9΅,$9YT Oγz6&<OγD5!@='H<&%t@A> HDpH NTPHLsH >dH >rHz SHL H:BxH>8HKօH gHLyHK<}H  WT WT WT2 WT WT" WT"& WT&WT$  WT226 6DD <&%t^^ tJJ" "ZZ&& b'SYT OγJ'vOγD  LhƎhh, Pf& f& &f&f T Oγz3OγD&ZH&f@&\g@&s@&@&<@& N@&x@&N`@&,@&Fy@&Ny@z&.@&,@&4d@3@&@&p@&@&@   (_hn'~h.h(}h(4}hzU(4}h&o'dhc'kMh(~he'WhU(0h8'a h(XahJ(` h&%h&a h`&}h*&.}h<&4}hN&sh"&0Mhr(^h\(}h   7 7 7 7 7 7 7 P3 &3*3-&,<3?&N3Q&,`3c&<r3u&.7 7 7 7 7 7 7 V3 &3&s,3/&N`>3A&<P3S&fb3e&t3w&\g7 7 7 7 7 7 7 V 3 &4d3& N.31&p@3C&sR3U&xd3g&Fyv3y&Nyz7  3Q&,`3c&<0R    .8 S) g); Bx)0)P)8T)++^q+ +dkW.^qt9?9@;M>8>DXH8HKJKNt Xt .0) %RZJwx{(KXYqsOy*}d|&s,X&,&&&&<&,&.& N&Z,X&N`&4d&f&\g&p&s&x&x&Fy&Ny&c& c&c&=c&c&%c&&c&b'c&d'c&'c&](c&(c&8c&>9c&X:c&y:c&:c&:c&vLc&Yc&{Zc&yc&r&%,X&},X&.},X&4},X&a ,X&0M,Xc'kM,Xe'W,Xo'd,X'a ,X'~,X(},X(},X(4},X(~,XU(4},XU(0,X(Xa,X(^,X(_,X(` ,X(s:( z(b (DG(Z(T[(f(w(w(y(Ry([()Bx)04)W)S)p!00-DATADATADATADATA)H)H)!)Bx))r) S;4S;S;S;S;""S;2S;3S;:S; NS; RS;YS;JwS;wy<yODOXJOH"=')A> )Dp):Bx))>P)>d)>8)>r)J)K<})Kօ)L )Ls)Ly).,X@q'@r'r(Xu&0vu&0wu&0xu&0yu&0zu&0{u&0|u&0}u&0u&0u&0u&0u&0u&0u&0u&0 v&0Hv&0w'Ry(+Ǝ++6&6&<)6&""&06&f(6&w~''v+3,X00-:?Ol01R Oγ*6&OγL b@c&yH*c&y:Hvu@u@5 @zu@*xu@wu@{u@c&X:HS;3H*c&rHS;Hyu@c&:HIq@*(b HXu@b&@u@u@*u@u@>d@u@u@*>P@c&:HHv@|H@([H* v@Hd8T@>r@KXH*+^qHS; NH c&vLHS; RH(H*aG@*}Hc& H:Bx@H *WH dHkHa@`@ b@`@*YqHc&%Hc&YHS;JwHc&&H*8T@+ H{HS;wHZH*c&{ZH8@c&HS;H*c&d'HHc&=Hc&b'HsH*>@J@(ZHc&'H@*(fHc&HƎ@0@(T[H*c&(H(H@Kօ@+"Z@*tHb(x@dH(wH c&](H*S;""H@@q@(wHS;:HaW@*+"iK@E`@Ly@P@+"K@*.H@@@r@(yHRH*(RyH&@JwH@b@S;4H* bz@; Bx@axZ@K<}@.H*0HS;YH+"@^qH+"z@*S;H+H9HS;2HRy@ bp @+"'@*}u@|u@( )!H*)BxH) H )WH)rH)HH*)p!H )HH )04H)SH*)H)BxH&fH&\gH *&sH&H&<H& NH&xH*&N`H&xH$&,H&NyH"&FyH *&.H&,H&4dH &H&pH*&H&Hͫ( zH(s:H*$;ONHDOXH>OHJOH"H*Xt H JKH>HNt H *H8H>8HDXH9@H9?H *HKH;MH 5De~<~<HJ5 %& (*: R5 :ue *`( 5  Aej~*UU BeXPCeL* eVe 0 B*Ce~U  0 j *j  E  Be$*R~ *D~ "&00-DATADATADATADATA @*DA- 5 B5JB@m*jBAmBu @  0  U h* E~  BJ5*56 0P F5 60&F*@  f50 b  @(@q*0 9 f e 0` 2 *(w $%@mB   0*N ( "E~  w@0 *t ` Ce2`54 *`  E@t0  t0 5* 6U& t0 *5NB& E% W @&*   &D5@  $*2D  K se~ ~*X e 4w D4 Ǝ*~ %56 9 (   ~*fe &4~ 5 U5@*  eP ~ * E  ҁ B~(Ǝ*e• D`~ E5@  *<w KmB3eC-4*b  wB6 %* RR D~ *D~ 80 C2 *4QA8B 5@  `* ` VD45@ +  b *   &f  m ~ 8C~*FmeI~ ~ 5!6*l̇U DE5`u- *  t   4* z5@ & B2 *  nꆇe B` .Ǝ* . 2@   @** B` 톇   *Pҋ  %UU Bu *vA ˥*  :0e* L=  0  1* hL= x <*  l  <1*@ "B8  5^*4XC2 4 C@ xL=*Zwd 2 l5C@ * 1e1 1*  0  : 0  * :  0 " $ & ( *W W C@& $*L=@0e v* (@2"e*>  $5@  4 *d &  L=e* H~ l   *   4&@`*   L  4 L* lw `ҔD~ & *"    .&@` *H O ^ r t w   O$*n C`~ D~   *  eC~L=* l f5@ &- @"-* T ;  F r 5 : @ * w J 2 L=6 *,  w  C~ D-*R 6L=66  h*x  wB@ʢ*    1w "* l ^ w b f * #N :B` e~ * 2 C6"  *6  e a~ 0 e*\  $  D4 * R D-65@  * 5   E  C` \*  w ” B  ~* az 5@0* !0:Aw B5 *@ 4DV , 5*f B~mB`B~  Ǝ* ~5>5   Ǝ* ѥ ~eB'@ J~!* X  e *  @ j ~ ~ 5@ *$ 14575+5Ǝ*Jõ@ ( - R ,0  ; -,*pBC  m õ<  $<*f @   5  R *.  E BVfP* " %!00-:?Olt-<% (*%.  <%2#t-< .2*.. C@%C@*T &C@  wN*ze B ѥ. ~APBV1 Ǝ*2 UE U@E122*A& `1e2*S Q$ A5 W pS @q(p*W  W 5W d  d&*8h &5-5 r'm!*^WB< q~  ,& FB*<C Q~f:  t-<*0Am< ^5  5*t-<5 5@ * %6U X5 "Xu* 05  P @4w  u$*B5@  25@ $*hL=%5@ & l *6 6w $u(* J"5@  5@ *L=6 6*h5@   Hu(u*&5@   ( " v*L5@     Hv"@r*r   t-<  @q*V w B> <t-< vu*e ` J w B> < *e ` $  >` * " <  <  < @&wu*0 <E Bm< 5#5A<Ǝ*V C~ f: ( % R *|A<C~  H5 , *45 f: h  rU(xu*`!~B-< Ǝ$Ǝ*B UUw 5 U*e B` B`  JEf:*:fBAe*Bҥ ~ N5*` DU r%  *BEAe ,  w &yu*f:Ae$  j > T *5 0UC2 dE*C@ ,w   5E*5 <e  U5<e*D`  B<w! Lu  !*j:u ; w f: 5  0E*  &f@ D~ U * r 5 :AVC9 V$*NX Am<  *U E5   Ǝ*( 4  eыAm> e*N$   AZzu*ta%z 09{u*  -|uƎ*+ +- . Ѡ~* z l }uu"Ǝ*   ~5 5  *2.(C2L=uu*X  5 f *~   F5 :* uew %UU &* zU@  z %p$p*d 5 :&- *; j d-*  H X: `w (*< d1 0 C   *b e0 e0 ;=* u- @e5 5 *f@  BRy*     ?+"iK* Br55 f:Bx>r(P* 1A% & C *$%%b' P 0*F  1 8 ^ 1 P&P*l Br A1$K<}*w AHCCH>P*eEA& fD  ؇%F*uJ `Dw E) *ȇB ",e$F>8**FJ% ~4 C->P(:Bx*PC`AleC ",e:Bx*v%uDH UBE`00-DATADATADATADATAJ*F Q5H& 5  8T*  5 >d*  @,e   EPLyLy8T*ZF 0 JEJ@JeJF * @J J F F5 H *  e  &  Ǝ Ǝ*   b $B* f&: EBa & :*& ̋•v ` !A[*>$%././0: fE V4 U Kօ$Kօ*d& DU E Kօ&+"z(+"(Ӌ 0 0 &+"'+"Z+"iK +"K>$aW*H11 ff eA axZ ba@`E`( b*$ $$$$$*3 f e  >b&J b@`&&* 22 0   bb(x> b&$a@`*Ff e& b&*l&pf&( Jb(x bp aGaG bz" e< Iq bK<}R Oγ*6&""OγL(گt*vuhwuhuhxuh zuh*}uhW{uh0yuh |uhAXuh*uhuhouhuhuh*uhHvh vh 0 گt*NO HELP AVAILABLEALPHABETIC*& REQUIREDNUMERIC REQUIREDALPHANUMERI*LC REQUIREDSIGNED NUMERIC REQUIREDNON*r-DISPLAYABLE CHARACTERFULL FIELD REQUIREDINPUT REQUIREDR Oγ*6&w~OγL:G@5 @*wx@Ls@='@8T@ ~r@*r@ ~@L @}V}@:s@*A> @Dp@((@qh:@rhwh *&  & & & & & f& Εr&='*&   & & "Dp:G ~ L $r*L&& && f& Ε (LsL A> Dp":s ~r *r <  << L  L L $L (}V}* & & & & & f& Εr A> $Dp(wx* &f  5 $8T R Oγ*6&fOγLs@:G@*='@$9Y@ ~@@$9΅@*Dp@((rhRyh  *w ѰB   f& *&& & & && f& Ε `='Dp:G ~ *L  ,& & & & f& f& *rΕ f& &  =' Dp:G ~ * ׭W1 s $9΅$9YR Oγ*6&<OγL5!@='H*)x@G]\@i{@A> H($@*DpHDb@(NT>PH*LsH >dH >rH SHL H*:BxH>8H>HJHKօH* gHLyHK<}H>"8 8TT ~%~P . . SY:.FLB  WT ($ Db G]\  i{WT R Oγ*'vOγL((L"hƎhh, *00-&.):?Olf& f& *&&f&f R Oγ*3OγL&ZH&f@*&\g@&s@&@&<@& N@*&x@&N`@&,@&Fy@&Ny@*&.@&,@&4d@3@&@*&p@&@&@( (*(_hn'~h.h(}h(4}h*U(4}h&o'dhc'kMh(~he'Wh*U(0h8'a h(XahJ(` h&%h*&a h`&}h*&.}h<&4}hN&sh"&0Mhr(^h\(}h   *7 7 7 3 &3*,7 7 3&,3&(3*R7 7 &,3&<&3)&.*x7 7 3&$3'&s*7 7 3&N`"3%&<*7 7 3&f 3#&*7 7  3&\g3!&4d*7 7  3 & N3&p*67 7 3 &s3&x*\7 7 7 3 &Fy3&Ny37 3&$3'&s*7 7 3&N`"3%&<*7 7 3&f 3#&*<0T  @<  !  T .MACRO DLXDF$,L,B,LST .IIF NB .LIST;; DEFINE THE QIO FUNCTION CODES;IO.XTM='B'<31*400> ; TRANSMITIO.XRC='B'<32*400> ; RECEIVE!IO.XOP='B'<33*400> ; OPEN A LINEIO.XTR='B'<34*400> ; TERMINATE IO.XIN='B'<35*400> ; INITIALISEIO.XTL='B'<36*400> ; CONTROL%IO.XCH='B'<37*400> ; CHARACTERISTICS;; DEFINE SUBFUNCTION CODES;; IO.XTR SUBFUNCTIONS;'XF.STP='B'10 ; STOP ONLY, NO DEASSIGN6XF.STD='B'200 ; STOP & DISABLE, CLOSE LUN & DEASSIGN;; IO.XTL SUBFUNCTIONSA; XF.ON='B'0 ; TURN A LINE-ID ON#XF.OFF='B'10 ; TURN A LINE-ID OFFE#XF.REA='B'20 ; REASSIGN A LINE-IDT!XF.ASS='B'30 ; ASSIGN A LINE-IDO#XF.DEA='B'40 ; DEASSIGN A LINE-IDX;'; IO.XCH SUBFUNCTIONS;O,XF.SMC='B'0 ; SET MULTIPLE CHARACTERISTICS-XF.GMC='B'10 ; GET MULTIPLE CHARACTERISTICSE;T ; DEFINE COMPOUND FUNCTION CODES;&IO.XSP='B'IO.XTL!XF.OFF ; STOP A LINE&IO.XST='B'IO.XTL!XF.ON ; START A LINE"IO.XHG='B'IO.XTR ; HANG UP A LINE-IO.XCL='B'IO.XTR!XF.STP!XF.STD ; CLOSE A LINEF7IO.XSC='B'IO.XCH!XF.SMC ; SET MULTIPLE CHARACTERISTICSI7IO.XGC='B'IO.XCH!XF.GMC ; GET MULTIPLE CHARACTERISTICS';0'; DEFINE MAXIMUM DLC PROTOCOL OVERHEADSD;S2PRO$OV=0 ; NO LONGER NEEDED - DEFINED TO ZERO TO7CRC$OV=0 ; RESOLVE ANY REFERENCES TO THESE SYMBOLS;;T; DEFINE DEVICE TYPE CODES6; (RETURNED IN HIGH BYTE OF I/O STATUS WORD 1 ON OPEN);X,XV.OTH='B' 000000 ; 'OTHERS' - NON-ETHERNET&XV.BRO='B' 000001 ; BROADCAST CHANNEL .IIF NB .NLISTO 00..DATADATADATADATA .ENDM DLXDF$ST .MACRO DLXBUF,LABEL,SIZE; .MCALL DLXDF$ DLXDF$T .BLKB PRO$OV' .IF NB

PARCT=PARCT+1L .IIF IDN , DESCT=DESCT+1'2 .IIF GT .ERROR INVALID PARAMETER COUNT3 .IIF GT .ERROR INVALID DESCRIPTOR COUNTT .ENDR TEMP=+$( .WORD. IO$'NAME,<>,TEMP .ENDM .WORD. IO.MFC,000,001 .WORD. IO.RSC,000,002 .WORD. IO.WSC,000,006 FUNC ONL,001,006,. FUNC OFL,002,006,U FUNC MAI,003,006,' FUNC CAC,004,006,<> FUNC MEM,005,006,<> FUNC STN,006,006,P FUNC HRC,007,006,, FUNC ONE,010,006,  FUNC STA,011,006,D FUNC IF ,012,006, FUNC RLI,013,006,V FUNC RUL,014,006,T' FUNC MBO,015,006,N FUNC RSW,016,006,P FUNC WAT,017,006,A FUNC RAT,020,006,P' FUNC MBF,021,006, IO$MAX=21 DEFIN$ IS.HRG,6.0 .MACRO OLREM$ $$$VAL=-256..& .IOER. IE$DAL," .IOER. IE$DNL, .IOER. IE$PRM, .IOER. IE$SYN,,' .IOER. IE$AFE,TD .IOER. IE$TMU,( .IOER. IE$CAB,1 .IOER. IE$TRP,D+ .IOER. IE$ALG,23 .IOER. IE$TQU, # .IOER. IE$EPO,A$ .IOER. IE$EUO,* .IOER. IE$ECO,$ .IOER. IE$EPF,% .IOER. IE$EUF,x+ .IOER. IE$ECF,r< .IOER. IE$CFU,; .IOER. IE$CSR,RC .IOER. IE$SWF,b? .IOER. IE$ICE,e8 .IOER. IE$SCE,6 .IOER. IE$MDE,6 .IOER. IE$NFW,: .IOER. IE$CXT,* .IOER. IE$IDU,8 .IOER. IE$UNK,= .IOER. IE$SZE,nF .IOER. IE$POB,F .IOER. IE$NLB,C .IOER. IE$OMP,t= .IOER. IE$POC,v- .IOER. IE$DFE,i5 .IOER. IE$IDS,s= .IOER. IE$UOE,o .ENDM CO$ONL = 1R CO$OFL = 2o CO$UNK = 3e CO$ACC = 4e CO$ANY = 5E CO$MAI = 6C CO$MAX = 6 CD$STO = 2i CD$GOT = 4 CD$CON = 6 CD$MAX = 6. M$LOG = 1 M$INIT = 2N M$DEBG = 4n M$EXIT = 10 .ASECTP .=0C$DTYP: .BLKB 1a ET$HDR = 1 ET$END = 2s ET$DEV = 'AC$DECT: .BLKB 1tC$DVER: .BLKB 1 C$DSTD: .BLKB 1C$DMUB: .BLKB 1RC$DMCT: .BLKB 1a .EVENC$DFAC: .BLKW 2SC$DIDN: .BLKW 9.C$STD: .=0C$DTYP:C$DNAM: .BLKW 1RC$DPUN: .BLKB 1 C$DLUN: .BLKB 1nC$DSCT: .BLKB 1C$DEVT: .BLKB 1$C$DSTS: .BLKW 1 CS$ATR=1C CS$EXF=76 CS$SUB=100$ ;CS$XXX=200 CS$OFL=400$ CS$PDF=1000 CS$POR=2000 CS$MBD=4000 CS$UNK=10000G CS$ACC=20000 CS$MTD=40000n CS$DRV=100000C$DST2: .BLKW 1$ CS$PUN=20 CS$CRD=40 CS$PRC=100 CS$CTL=200 CS$DCL=3400 DC$UNI = 0V DC$CTL = 1 DC$MKU = 2 DC$MKC = 3B DC$SBU = 4T DC$SBC = 5. DC$CPU = 6 ;DC$XXX = 7C$DDAT: .BLKW 2TC$SME: .=C$SMEC$DKPO: .BLKW 1RC$SCT: .=C$SMEC$DCTN: .BLKW 1nC$DUPO: .BLKW 1C$SUN: .=C$SMEC$DCPO: .BLKW 1 C$SCP: .=C$SMEC$DCTN: .BLKW 10 .BLKW 4C$SMB: CP$OFL=400 CP$XXX=1000 CP$CUR=2000 CP$XXX=4000 CP$XXX=10000 CP$ACC=20000 CP$MTD=40000 CP$XXX=100000 .MACRO ATT NAME,SIZ $$$TMP=$$$TMP+1! DEFIN$ DA$'NAME,$$$TMP!<400*SIZ>C .ENDM $$$TMP=0V ATT CSR,2 ATT VEC,2 ATT UBR,2 ATT TYP,2 ATT VOL,12. ATT ERR,10$ ATT PRI,2 ATT MBP,6 ATT STE,2 ATT SAL,2 ATT DSN,2 ATT CSN,10  .ASECT: .=0C$MBAS: .BLKW 1KC$MINT: .BLKB 1K .BLKB 1C$MSIZ: .BLKW 1CC$MGRN: .BLKW 1CC$MDSC:S .PSECTN .MACRO OLRDF$ X .ENDM .MACRO ATT X .ENDM .ENDMU .MACRO DEVCD$ $$$GBL .MCALL DEFIN$ .IF IDN <$$$GBL>,0...GBL=1 .IFF ...GBL=0 .ENDC .MACRO DEV XN DEFIN$ D$'X,$$$TMP0 $$$TMP=$$$TMP+1 .ENDM $$$TMP = 0 DEV UDET DEV UKNO DEV RK03 DEV RK05. DEV RK5F1 DEV RX01I DEV RX02P DEV RL01E DEV RL02L DEV RP02N DEV RP03N DEV RP04C DEV RP05$ DEV RP06 DEV RP07 DEV RK06. DEV RK07S DEV RM02C DEV RM03B DEV RM05D DEV RM80C DEV RS03 DEV RS04. DEV RF11R DEV TK25. DEV TK50M DEV TU10 DEV TU16A DEV TU45$ DEV TU77C DEV TU78 DEV TS11$ DEV TSU0G DEV TSV01 DEV TU80. DEV TU81N DEV TM02 DEV TM03F DEV TM78$ DEV TU56M DEV TU58 DEV TU60$ DEV MSCPD DEV RA60D DEV RA80D DEV RA81D DEV RC25D DEV RD50D DEV RD51D DEV RX50D DEV ML11D DEV TERMD $$$TMP=370V DEV USR0V DEV USR1V DEV USR2V DEV USR3V DEV USR4V DEV USR5V DEV USR6V DEV USR7V .MACRO DEVCD$ .ENDM 00Mw  [ & Ol .MACRO DEV X0 .ENDM .ENDM U .MACRO ACNDF$,L,B .ASECT.=0TB.LNK:'L'.BLKW 1B.TYP:'L'.BLKB 1B.LEN:'L'.BLKB 1B.TIM:'L'.BLKW 3 B.HID='B'.B.UID:'L'.BLKW 2B.ACN:'L'.BLKW 1B.TID:'L'.BLKB 1 .BLKB 1 B.HEND='B'.$$$HLN=.B.CPU:'L'.BLKW 2B.DIR:'L'.BLKW 2B.QIO:'L'.BLKW 2B.TAS:'L'.BLKW 2B.MEM:'L'.BLKW 3B.BEG:'L'.BLKW 3B.CPUL:'L'.BLKW 2MB.PNT:'L'.BLKW 1B.STM:'L'.BLKB 1$$$TLN=..=$$$TLNB.USE:'L'.BLKB 1B.ACT:'L'.BLKW 1B.UUIC:'L'.BLKW 1 B.UCB:'L'.BLKW 1B.LGO:'L'.BLKW 3B.ULNK:'L'.BLKW 1B.RNA:'L'.BLKW 3B.NAM:'L'.BLKB 14. .BLKB 1 .BLKB 1B.LDS:'L'.BLKB 10. B.ULEN='B'..$$$= <.+77>/100..=$$$TLNB.PRI:'L'.BLKB 1B.TNAM:'L'.BLKW 2.B.TCB:'L' .BLKW 1LB.TST3:'L'.BLKW 1E .BLKW 1B.CUIC:'L'.BLKW 1LB.PUIC:'L'.BLKW 1WB.CTXT:'L'.BLKW 22B.TCKP:'L'.BLKW 2B.OVLY:'L'.BLKW 2.B.EXST:'L'.BLKW 2P B.TLEN='B'.MB.TBLK='B'<.+77>/100.=$$$TLNB.SHDN:'L'.BLKB 1$B.UHD:'L'.BLKW 1B.ULO:'L'.BLKW 1B.ULT:'L'.BLKW 2B.CKP:'L'.BLKW 2B.SHF:'L'.BLKW 2B.RND:'L'.BLKW 2B.FID:'L'.BLKW 3B.DVNM:'L'.BLKB 2.B.UNIT:'L'.BLKW 1B.EXTS:'L'.BLKW 1.B.LSCN:'L'.BLKW 3'B.SCNR:'L'.BLKW 1.B.DSCN:'L'.BLKW 1LB.STSP:'L'.BLKW 2'B.SYSM:'L'.BLKW 1 B.CKUS:'L'.BLKW 3'B.CKSP:'L'.BLKW 21B.CKAL:'L'.BLKW 1L B.SLEN='B'.BB.CPUT:'L'.BLKW 8.B.CTXP:'L'.BLKW 8.B.IDCT:'L'.BLKW 8.B.QIOC:'L'.BLKW 8.B.MIOC:'L'.BLKW 8.B.AIOC:'L'.BLKW 8.B.IPSN:'L'.BLKW 8.B.IPRC:'L'.BLKW 8.B.CKEX:'L'.BLKW 2LB.CFCL:'L'.BLKW 2.B.CFRK:'L'.BLKW 2LB.TLOD:'L'.BLKW 2WB.RLOD:'L'.BLKW 22 .BLKB 82.B.SSBL=.-B.SLEN'$$$= <.+77>/100' .= $$$HLN B.SSLN='B' . .= $$$HLNNB.CTLS:'L'.BLKW 3RB.CSRT:'L'.BLKW 1NB.CRSN:'L'.BLKB 60.' B.CLEN='B'.. .= $$$HLNKB.INAM:'L'.BLKB 14. B.IUIC:'L'.BLKB 6.B.IPSW:'L'.BLKB 6. B.ILEN='B'.' .= $$$HLN'B.DNAM:'L'.BLKW 1'B.DUNT:'L'.BLKB 1' B.DLEN='B'.. .BLKB 1B.DLBL:'L'.BLKW 6BB.DMST:'L'.BLKW 1BB.DUIC:'L'.BLKW 1BB.DVPR:'L'.BLKW 1BB.DACP:'L'.BLKW 2B B.MLEN='B'.L BM.SHR='B'1 BM.NOS='B'2K BM.SYS='B'4' BM.FOR='B'10 .= $$$HLNKB.TOLD:'L'.BLKB 6.B.TNEW:'L'.BLKB 6= B.TMLN='B'. .= $$$HLNB.PNAM:'L'.BLKW 3$B.PPGS:'L'.BLKW 1KB.PNFI:'L'.BLKW 1KB.PFRM:'L'.BLKB 1KB.PPRI:'L'.BLKB 1.B.PDEV:'L'.BLKW 1MB.PPUN:'L'.BLKB 1U B.PLEN='B'.. .= $$$HLN'B.RNAM:'L'.BLKW 3'B.RCDS:'L'.BLKW 1NB.RDEV:'L'.BLKW 1UB.RUNT:'L'.BLKB 1LB.RSOP:'L'.BLKB 1 B.RLEN='B'.K .= $$$HLNTB.LUIC:'L'.BLKW 1CB.LNAM:'L'.BLKB 14.' .BLKB 1 B.LLEN='B'.B.=$$$HLNB.OFID:'L'.BLKW 3'B.ODNM:'L'.BLKB 2B.OUNT:'L'.BLKW 1RB.NFID:'L'.BLKW 3B.NDNM:'L'.BLKB 2B.NUNT:'L'.BLKW 1B.OEXS:'L'.BLKW 1$B.NEXS:'L'.BLKW 1KB.OSCR:'L'.BLKW 1KB.NSCR:'L'.BLKW 1KB.ODSC:'L'.BLKW 1KB.NDSC:'L'.BLKW 1K B.RTLN='B'.' BT.SAB='B'1. BT.UAB='B'2 BT.TAB='B'3' BT.SS='B'11' BT.INV='B'12 BT.TIM='B'13 BT.ALL='B'14 BT.DEA='B'15 BT.MOU='B'16 BT.DMO='B'17 BT.PRT='B'20 BT.DIR='B'21 BT.VOL='B'22 BT.LOG='B'23 BT.CRH='B'24 BT.DST='B'25 BT.RTP='B'26 BT.INP='B'27 BS.ACT='B'200' BS.CRH='B'100D BS.LGO='B'40 BS.CO='B'40B BS.TML='B'20 BS.SIL='B'20 BS.ZER='B'10 BS.SCN='B'4'BF.DST='B'40000SBF.WRT='B'2000BF.SCN='B'1000 BF.SLR='B'400K BF.ERR='B'200' BF.STR='B'100C BF.LSS='B'40 BF.TRN='B'10 BF.XTK='B'4' BF.TSK='B'2' BF.XAC='B'1'B.MAXL='B'128.B.MINL='B'$$$HLN .PSECT' .MACRO ACNDF$ X,Y .ENDM .ENDMFU .MACRO ACTDF$,L,B .ASECT'.=0TA.GRP:'L' .BLKB 3'A.MBR:'L' .BLKB 3A.PSWD:'L' .BLKB 6A.LNM:'L' .BLKB 14.A.FNM:'L' .BLKB 12.'A.LDAT:'L' .BLKB 6A.NLOG:'L' .BLKB 2A.SYDV:'L' .BLKB 4A.ACN:'L' .BLKW 1A.CLI:'L' .BLKW 2 .BLKW 2DA.LPRV:'L' .BLKW 1A.SID:'L' .BLKW 1'A.DDS:'L' .BLKB 11. .BLKB 10A.FPRO:'L' .BLKW 1FA.RLVL:'L' .BLKW 1 AR.LVL='B'401'A.SALT:'L' .BLKW 1A.ENCT:'L' .BLKB 1 .BLKB 1IA.HPW:'L' .BLKW 4C .IF DF A$$LOG$A.TTY:'L' .BLKB 5MA.PRID:'L' .BLKB 1A.SECD:'L' .BLKB 1A.PRIT:'L' .BLKW 1A.SECT:'L' .BLKW 1 A.RLEN ='B' . .ENDC'A.LEN ='B' 128.L AL.SLV='B' 1 AL.DDS='B' 2 AL.SIL='B' 4 .IF DF A$$LOGL AL.AUT='B' 10 AL00M  T DATADATADATADATA.BND='B' 20B AL.RMT='B' 40BAL.NET='B' 100AL.DIS='B' 200AL.PRI='B' 400AL.SEC='B' 1000: .ENDC  .PSECT: .ENDMU .MACRO SHDDF$,L,B,SYSDEFL PKTDF$L .ASECTL.=0'M.LNK:'L' .BLKW 1LM.LHD:'L' .BLKW 1LM.UCBS:'L'.BLKW 2.M.STS:'L' .BLKW 1 M.LBN:'L' .BLKB 1T .BLKB 1 .BLKW 1M.LGH=.1 .PSECT' MS.MDA'B'=1. MS.CHP'B'=2W .ASECTT.=0.ML.LNK:'L' .BLKW 1ML.LEN:'L' .BLKB 1ML.TYP:'L' .BLKB 1ML.DNC:'L' .BLKB 1 .BLKB 1ML.PRI:'L' .BLKW 1ML.PKT:'L' .BLKB I.LGTH2ML.LGH=. .PSECT MT.PKT'B'=10 I.R0'B'=I.PRM0I.R1'B'=I.PRM+2 .PSECT'ML.FID'B'=ML.PKT+I.IOSB:ML.FSEQ'B'=ML.PKT+I.IOSB+2ML.LBN'B'=ML.PKT+I.PRM+10ML.CNT'B'=ML.PKT+I.PRM+4ML.TCB'B'=ML.PKT+I.TCBML.SR0'B'=ML.PKT+I.R0'ML.SR1'B'=ML.PKT+I.R1BML.PR0'B'=ML.PKT+I.PRM+14ML.PR1'B'=ML.PKT+I.PRM+16G .MACRO SHDDF$,X,Y,Z .ENDM .ENDMU .MACRO MKDEF$ $$$GBL .MCALL .WORD.,DEFIN$T .IF IDN <$$$GBL>,....GBL=1 .IFF ...GBL=0 .ENDC .WORD. IO.GRN 0,6.B .WORD. IO.SIZ 0,7.. .WORD. IO.ORG 0,9. .WORD. IO.INT 0,24. .WORD. IO.IIN 0,25. .WORD. IO.PRG 0,26. .WORD. IO.ERR 0,27. .WORD. IO.RSA 0,28. .WORD. IO.CST 0,29. .WORD. IO.MSK 0,30. .WORD. IO.CLM 0,31. .WORD. IO.SSI 1,7.' .WORD. IO.SOR 1,9.R .WORD. IO.SIN 1,24. .WORD. IO.SII 1,25. .WORD. IO.SMA 1,26. .WORD. IO.SER 1,27. .WORD. IO.SMK 1,30. .WORD. IO.CII 3,25. .WORD. IO.CMA 3,26. .WORD. IO.CER 3,27. IE.IDS=-25. IS.MAN=2 EPT=1 MS.SET=2. MS.CLR=4D .ENDMU .MACRO LCBDF$,L,B .ASECT9.=0.L.LNK:'L' .BLKW 1L.NAM:'L' .BLKW 1.L.UNIT:'L' .BLKB 1L.TYPE:'L' .BLKB 1L.UCB:'L' .BLKW 1AL.ASG:'L' .BLKW 1CL.LGTH='B'.-L.LNKO .PSECT. .MACRO LCBDF$,X,Y .ENDM .ENDM\U .MACRO UCBDF$,L,B,TTDEF,SYSDEF. .ASECT .=177772 .IF NB SYSDEF .IF DF A$$CNT.=.-2R .ENDC .IF DF L$$GCL.=.-2. .ENDC.=.-22 .IF DF N$$DIR.=.-2. .ENDC U.UAB:'L'2 .IF DF A$$CNT .BLKW 1 .ENDC U.LOG:'L'= .IF DF L$$GCL. .BLKW 1 .ENDC U.FPRO:'L' .BLKW 1 U.CTX:'L'9 .IF DF N$$DIR .BLKW 1 .ENDC .ENDCU.MUP:'L' .BLKW 1LU.LUIC:'L' .BLKW 1U.OWN:'L' .BLKW 1KU.DCB:'L' .BLKW 1KU.RED:'L' .BLKW 1.U.CTL:'L' .BLKB 1AU.STS:'L' .BLKB 1NU.UNIT:'L' .BLKB 1U.ST2:'L' .BLKB 1CU.CW1:'L' .BLKW 1EU.CW2:'L' .BLKW 17U.CW3:'L' .BLKW 1U.CW4:'L' .BLKW 1-U.SCB:'L' .BLKW 1 U.ATT:'L' .BLKW 1NU.BUF:'L' .BLKW 1  .BLKW 1U.CNT:'L' .BLKW 1:U.UCBX='B'U.CNT+2TU.ACP='B'U.CNT+4U.VCB='B'U.CNT+6U.CBF='B'U.CNT+2U.UMB='B'U.CNT+10OU.PRM='B'U.CNT+12TU.ICSR='B'U.CNT+16U.SLT='B'U.CNT+20CU.SPRM='B'U.CNT+22U.UTIL='B'U.CNT+16 UU.SER ='B'1 UU.RCT ='B'2 UU.AVN ='B'4 UU.GUS ='B'10L UU.ONL ='B'20T UU.SPC ='B'40UU.ATN ='B'100UU.RDY ='B'200UU.ABO ='B'400 UU.SIO ='B'1000LUU.IOS ='B'2000:UU.BLK ='B'4000U.BPKT='B'U.CNT+20U.MEDI='B'U.BPKTU.UC2X='B'U.CNT+24U.SNUM='B'U.CNT+10U.FCDE='B'U.CNT+12U.KRB1='B'U.CNT+14.=0: .BLKW 9.'X.NAME:'L' .BLKW 2X.IOC:'L' .BLKW 2CX.ERSL:'L' .BLKB 1X.ERHL:'L' .BLKB 1X.ERSC:'L' .BLKB 1X.ERHC:'L' .BLKB 1X.WCNT:'L' .BLKW 2X.CYLC:'L' .BLKW 2X.CCYL:'L' .BLKW 1X.FCUR:'L' .BLKB 1 X.FLIM:'L'X.DSKD:'L' .BLKB 1X.DNAM:'L' .BLKW 1X.UNIT:'L' .BLKB 1X.CSTS:'L' .BLKB 1X.CPCB:'L' .BLKW 1X.CSBA:'L' .BLKW 1X.CCED:'L' .BLKW 2X.XDAT:'L' .BLKB 1X.XRDA:'L' .BLKB 1X.XDIR:'L' .BLKB 1X.XLOG:'L' .BLKB 1X.XOVR:'L' .BLKB 1 .BLKB 1 X.LGTH='B'.' X.DFFL='B'10. X.DFSL='B'8. X.DFHL='B'5. XC.ENA='B'200B XC.ACT='B'100' XC.DIR='B'020R XC.OVR='B'010 XC.DAT='B'004B XC.LOG='B'002. XC.RDA='B'001' XX.MAX='B'15.Y XX.DAT='B'5. XX.RDA='B'5. XX.DIR='B'1. XX.LOG='B'1. XX.OVR='B'4..=0'X.MLUN:'L'.BLKW 1'X.UNFL:'L'.BLKW 1' .BLKW 2X.UNTI:'L'.BLKW 41X.MEDI:'L'.BLKW 21X.SHUN:'L'.BLKW 11X.SHST:'L'.BLKW 12X.TRCK:'L'.BLKW 11X.GRP:'L'.BLKW 1X.CYL:'L'.BLKW 1X.USVR:'L'.BLKB 1LX.UHVR:'L'.BLKB 1LX.RCTS:'L'.BLKW 1LX.RBNS:'L'.BLKB 1X.RCTC:'L'.BLKB 1FX.UNSZ:'L'.BLKW 2'X.VSER:'L'.BLKW 2 X.DUSZ='B'.' .IF NB TTDE00M  [ & OlFR.=U.BUF' U.TAPR:'L'U.TUX:'L' .BLKW 1'U.TSTA:'L' .BLKW 4U.UIC:'L' .BLKW 1U.TFRQ:'L' .BLKW 1U.TFLK:'L' .BLKW 1U.TCHP:'L' .BLKB 1U.TCVP:'L' .BLKB 1U.TTYP:'L' .BLKB 1U.TMTI:'L' .BLKB 1U.TTAB:'L' .BLKW 1 .=.-2U.TECO:'L' .BLKB 1U.TBSZ:'L' .BLKB 1U.TLPP:'L' .BLKW 1U.TST5:'L' .BLKW 1U.TST6:'L' .BLKW 1U.TIXL:'L' .BLKW 1U.ACB:'L' .BLKW 1RU.AFLG:'L' .BLKW 1U.ADMA:'L' .BLKW 1U.LINS:'L' .BLKB 1U.CREN:'L' .BLKB 1U.SRVN:'L' .BLKW 1U.SESN:'L' .BLKB 1U.SLSZ:'L' .BLKB 1U.RSBB:'L' .BLKW 1U.RBHA:'L' .BLKW 1U.RSDV:'L' .BLKW 1U.TRLH:'L' .BLKW 1U.TRSC:'L' .BLKW 1U.CCBA:'L' .BLKW 1 UL.TRS='B'1' UL.TDA='B'2. UL.LST='B'4B UL.RDA='B'10 UL.ECH='B'20 UL.RSS='B'100 UL.LEN='B'200W S1.RST='B'1. S1.ESC='B'2B S1.RSP='B'4' S1.PTH='B'10 S1.RNE='B'20 S1.TSY='B'40 S1.OBY='B'100' S1.IBY='B'200I S1.DPR='B'400S1.DEC='B'1000S1.IBF='B'2000S1.DSI='B'4000S1.RES='B'10000SS1.RNF='B'20000RS1.TNE='B'40000.S1.USI='B'100000 S2.RCU='B'1L S2.WRA='B'6' S2.WRB='B'2. S2.WAL='B'10 S2.BRQ='B'20 S2.SRQ='B'40 S2.ORQ='B'100 S2.IRQ='B'200W S2.FLF='B'400.S2.ELF='B'1000 S2.CR='B'2000TS2.OBF='B'4000S2.PCU='B'10000'S2.BEL='B'20000S2.CTO='B'40000RS2.CTS='B'100000 S3.ACR='B'1R S3.TAB='B'2E S3.CTC='B'4R S3.RAL='B'10 S3.NEC='B'20 S3.TSY='B'40 S3.8BC='B'100Y S3.FDX='B'200Y S3.MHE='B'400RS3.ICE='B'1000S3.TME='B'2000S3.PTH='B'4000S3.RES='B'10000'S3.PPT='B'20000'S3.RUB='B'40000' S4.HFL='B'7U S4.VFL='B'10 S4.HFF='B'20 S4.HHT='B'40 S4.DLO='B'1002 S4.HSY='B'200B S4.ANI='B'400QS4.AVO='B'1000S4.BLK='B'2000S4.DEC='B'4000S4.EDT='B'10000'S4.RGS='B'200000S4.SFC='B'400000S4.ABD='B'100000 S5.SW1='B'10 S5.TMM='B'2' S5.XOF='B'4C S5.XON='B'10 S5.HPC='B'14 S5.HPO='B'20 S5.OXF='B'40 S5.ITI='B'1003S5.RPO='B'2000S5.VER='B'10000'S5.BCC='B'20000'S5.DAO='B'400000S5.ABP='B'100000 S6.EIO='B'4000S6.RLU='B'1000S6.RDI='B'100000 .ENDC.=U.UNITU.OCNT:'L'.BLKB 1.=U.BUF'U.RPKT:'L'.BLKW 14U.WPKT:'L'.BLKW 1'U.IAST:'L'.BLKW 12U.OAST:'L'.BLKW 14U.AAST:'L'.BLKW 1O .IF NB TTDEFK.IIF NE U.AAST+2-U.UIC .ERRORT .ENDC .=U.AAST+4U.PTCB:'L'.BLKW 1' .=U.BUF+2AU.CTCB:'L' .BLKW 1U.COTQ:'L' .BLKW 2U.RED2:'L' .BLKW 1 .PSECT DV.REC='B'1 DV.CCL='B'2 DV.TTY='B'4 DV.DIR='B'10 DV.SDI='B'20 DV.SQD='B'40 DV.MSD='B'100' DV.UMD='B'200O DV.MBC='B'400A DV.EXT='B'4006DV.SWL='B'1000DV.ISP='B'2000DV.OSP='B'4000DV.PSE='B'10000DV.COM='B'20000DV.F11='B'40000TDV.MNT='B'100000U2.DH1='B'100000U2.DJ1='B'40000U2.RMT='B'200004U2.HFF='B'10000 U2.L8S='B'10000KU2.NEC='B'4000U2.CRT='B'2000U2.ESC='B'1000 U2.LOG='B'400' U2.SLV='B'200U U2.DZ1='B'100' U2.HLD='B'40 U2.AT.='B'20 U2.PRV='B'10 U2.L3S='B'4C U2.VT5='B'2' U2.LWC='B'1' UM.OVR='B'1' UM.CLI='B'36 UM.DSB='B'2000 UM.NBR='B'400UM.CNT='B'1000UM.CMD='B'2000UM.SER='B'4000UM.KIL='B'10000VU2.R04='B'100000U2.7CH='B'10000PU3.UPC='B'20000'U3.PAR='B'40000'U3.OPA='B'100000 U3.FDX='B'1M U3.DBF='B'2 U3.RPR='B'40 U4.CR='B'100 UC.ALG='B'200' UC.NPR='B'100F UC.QUE='B'40 UC.PWF='B'20 UC.ATT='B'10 UC.KIL='B'4' UC.LGH='B'3' US.BSY='B'200' US.MNT='B'100' US.FOR='B'40 US.MDM='B'20 US.PWF='B'10 US.ABO='B'1P US.MDE='B'2L US.WCK='B'10 US.SPU='B'2L US.VV='B'1 US.CRW='B'4M US.DSB='B'2M US.OIU='B'1 US.FRK='B'2 US.SHR='B'10 US.LAB='B'4' US.OFL='B'1' US.RED='B'2L US.PUB='B'42 US.UMD='B'10 US.PDF='B'20 US.MUN='B'40 US.TRN='B'100R US.SIO='B'200O UD.UNS='B'0 UD.200='B'1 UD.556='B'2 UD.800='B'3 UD.160='B'4 UD.625='B'5' UD.8K='B'6 .MACRO UCBDF$,X,Y,Z,A .ENDM .ENDMU .MACRO MTADF$,L,B .ASECT0.=0SV.TCNT:'L' .BLKW 1V.TYPE:'L' .BLKB 1V.VCHA:'L' .BLKB 1V.LABL:'L' .BLKB 12.V.NXT:'L' .BLKW 1SV.MVL:'L' .BLKW 11V.UVL:'L' .BLKW 1DV.ATL:'L' .BLKW 1'V.UCB:'L' .BLKW 1SV.RVOL:'L' .BLKB 1V.MOU:'L' .BLKB 1V.TCHR:'L' .BLKW 1V.SEQN:'L' .BLKW 1V.SECN:'L' .BLKW 1V.TPOS:'L' .BLKB 1V.PSTA:'L' .BLKB 1V.TIMO:'L' .BLKW 1V.STAT:'L' .BLKW 3V.TRTB:'L' .BLKB 1V.00M  T DATADATADATADATAEFTV:'L' .BLKB 1V.BLKL:'L' .BLKW 1V.RECL:'L' .BLKW 1V.FNAM:'L' .BLKW 3V.FTYP:'L' .BLKW 1V.FVER:'L' .BLKW 1V.CDAT:'L' .BLKW 2V.EDAT:'L' .BLKW 2V.BLKC:'L' .BLKW 2V.RTYP:'L' .BLKB 1V.FATT:'L' .BLKB 1 .BLKB 30..V.WIND:'L' .BLKW 4.V.MST2:'L' .BLKW 1:V.FABY:'L' .BLKB 1L .BLKB 1V.ANSN:'L' .BLKB 17.V.BOFF:'L' .BLKB 1.V.DENS:'L' .BLKB 1.V.DRAT:'L' .BLKB 1.V.DBLK:'L' .BLKW 1.V.DREC:'L' .BLKW 1. S.VSCB='B'.' .PSECT1 .ASECT'.=0L W.CTL:'L'.BLKW 1L V.WINC='B'V.WIND+W.CTL .PSECT' .ASECT.=0L .IF DF R$$11MM.NXT:'L' .BLKW 1. .ENDCM.UIC:'L' .BLKW 1'M.CH:'L' .BLKW 1M.PROT:'L' .BLKW 1 .IF NDF R$$11MC .BLKW 22M.NXT:'L' .BLKW 11 .ENDCM.RVOL:'L' .BLKB 1M.STAT:'L' .BLKB 1M.VIDP:'L' .BLKW 1M.UCB:'L' .BLKW 1Y S.MVL='B'. .PSECTB .ASECT..=0'L.NXT:'L' .BLKW 1FL.VOL1:'L' .BLKB 1L.VOL2:'L' .BLKB 1L.VID1:'L' .BLKB 6L.VID2:'L' .BLKB 6 S.UVL='B'. .PSECT.VM.OLD ='B' 200.VM.BYP ='B' 100VM.ULB ='B' 40VM.FSC ='B' 20VM.EXC ='B' 10 V2.INI ='B' 1. V2.XH2 ='B' 2. V2.XH3 ='B' 4.V2.NH3 ='B' 10V2.OAC ='B' 20 VP.RM ='B' 2 VP.WM ='B' 4 VP.UCM ='B' 6. VP.SM ='B' 10FVP.MOU ='B' 20VP.RWD ='B' 40VP.VFY ='B' VP.RWDVP.POS ='B' 100 VP.TO='B'1LWI.RDV ='B' 400.WI.WRV ='B' 1000WI.EXT ='B' 2000WI.LCK ='B' 4000MS.VER ='B' 200: MS.RID ='B' 1. MS.NMO ='B' 21 MS.TMO ='B' 4LMS.EXP ='B' 10 MO.OVR ='B' 12 MO.UIC ='B' 2. MO.PRO ='B' 4CMO.160 ='B' 10 .ENDMU .MACRO SPMDF$,L,B .MCALL SPMHK$ .MACRO $DFINI TYPE,INIVAL TYPE'VAL=INIVAL TYPE'MIN=INIVAL .ENDM $DFINIC .MACRO $DFN TYPE,SYM,LENW TYPE'SYM=TYPE'VAL TYPE'VAL=TYPE'VAL+1 .IIF NB LEN TYPE'SYM'L=LEN0 .ENDM $DFN .MACRO $DFN2 TYPE,SYM TYPE'SYM=TYPE'VAL TYPE'VAL=TYPE'VAL+2 .ENDM $DFN2T .MACRO $DFEND TYPEB TYPE'MAX=TYPE'VAL .ENDM $DFEND SPMHK$N .PSECT1 .MACRO SPMDF$ X,Y .ENDM .ENDM SPMDF$BRU .MACRO SPMHK$,L,BO .ASECT $DFINI H$,2 $DFN2 H$,CDRP $DFN2 H$,RTSK $DFN2 H$,XTSK $DFN2 H$,SCTX $DFN2 H$,LCTX $DFN2 H$,ACRG $DFN2 H$,USTP $DFN2 H$,QAST $DFN2 H$,EXTK $DFN2 H$,QPAR $DFN2 H$,QLDR $DFN2 H$,GLDR $DFN2 H$,FLDR $DFN2 H$,RLPR $DFN2 H$,QDRV $DFN2 H$,GPKT $DFN2 H$,IODN $DFN2 H$,IOFN $DFN2 H$,QAC1 $DFN2 H$,QAC2 $DFN2 H$,GACP $DFN2 H$,CRVT $DFN2 H$,ELVT $DFN2 H$,OVLY $DFN2 H$,SYEN $DFN2 H$,SYXT $DFN2 H$,EIDL $DFN2 H$,XIDL $DFN2 H$,USER $DFEND H$ .PSECT, .MACRO SPMHK$ X,Y .ENDM .ENDM SPMHK$U .MACRO BGCK$A FAC,ERR,TYPE ...FLG = -1 .IF B TYPEC EMT 374 ...FLG=0$ .ENDC .IF IDN , EMT 375 BR .+6, ...FLG=02 .IFFR .IF IDN , EMT 374 ...FLG=0 .IFF .IF IDN , HALT$ ...FLG=0F .IFF$! .IF IDN ,2 ...FLG=1 .IFF& .IF IDN , ...FLG=2, .IFF .IF IDN , ...FLG=3$ .ENDC .ENDC .ENDC .ENDC .ENDCP .ENDC- .IIF LT ...FLG, .ERROR BGCK$A - UNKNOWN TYPEA .IIF LT ...FLG, .MEXIT .IF B FAC .ERROR  .MEXIT  .ENDC .IF B ERR .ERROR  .MEXIT .ENDC .IF EQ ...FLG .WORD FAC .WORD ERR .ENDC .IF GE ...FLG -1F MOV #FAC,@#$BCFAC MOV #ERR,@#$BCERR .ENDC .IF EQ ...FLG -1  .WORD MOV!0737,$BCPCF JMP @#$CRENTT .ENDC .IF EQ ...FLG-3 .WORD MOV!0737,$BCPC  JMP @#$CRAL2 .ENDC .ENDM BGCK$A U .MACRO BGCK$R FAC,ERR,TYPE ...FLG=-1 .IF NB FAC .IF IDN , .IF NDF X$$DBTK .IF NDF R$$PRO ...FLG=0 .ENDCO .IFF ...FLG=0R .ENDC .IFF .IF NDF X$$DBT. .IF DF R$$PRON ...FLG=1 .IFF ...FLG=0 .ENDC. .IFF- ...FLG=03 .ENDC .ENDC .ENDC .IF EQ ...FLG MOV FAC,@#$BCFACB .ENDC .IF EQ ...FLG-1 MOV FAC,R0C .ENDC ...FLG=-1 .IF NB ERRG 00M  [ & Ol .IF IDN , .IF NDF X$$DBT  .IF NDF R$$PRO ...FLG=0 .ENDC .IFF  ...FLG=0 .ENDC .IFF .IF NDF X$$DBT  .IF DF R$$PRO  ...FLG=1 .IFF ...FLG=0 .ENDC .IFF  ...FLG=0 .ENDC .ENDC- .ENDC .IF EQ ...FLG MOV ERR,@#$BCERR .ENDC .IF EQ ...FLG-1 MOV ERR,R1C .ENDC ...FLG = -1 .IF DF R$$PRO .IF NDF X$$DBT .MCALL BTJMP$ BTJMP$R ...FLG=0F .ENDC  .ENDC .IF LT ...FLG ...FLG = -1 .IF B TYPE  EMT 374 ...FLG=0. .ENDC .IF IDN , EMT 375 ...FLG=0F .IFF$ .IF IDN , EMT 374 ...FLG=0 .IFF .IF IDN , HALTE ...FLG=0 .IFFL! .IF IDN ,N JMP @#$CRENTF ...FLG=1 .IFF& .IF IDN , ...FLG=2O .ENDC .ENDCT .ENDC .ENDC  .ENDC .ENDC- .IIF LT ...FLG, .ERROR BGCK$R - UNKNOWN TYPE .IIF LT ...FLG, .MEXIT. .ENDM BGCK$RC`U .MACRO REBOT$ .MCALL BTJMP$ CLR R0 CLR R1D BTJMP$< .ENDM REBOT$4DU .MACRO BTJMP$ MOV @#$RBTAD,PC .ENDM BTJMP$ <U .MACRO BCKDF$ L,B .ASECTTBE.ODD ='B' 000100BE.SGF ='B' 000102BE.BPT ='B' 000104BE.IOT ='B' 000106BE.ILI ='B' 000110BE.EMT ='B' 000112BE.TRP ='B' 000114BE.STK ='B' 000116BE.NPA ='B' 000200BE.SGN ='B' 000201BE.2FR ='B' 000202BE.ISR ='B' 000203BE.FHW ='B' 000204BE.CSR ='B' 000205BE.IDC ='B' 000206BE.ACP ='B' 000207BE.HSP ='B' 000210BE.NCT ='B' 000211BE.NPL ='B' 000300BE.DDA ='B' 000301BE.SIZ ='B' 000302BE.BAK ='B' 000303BE.POV ='B' 000304BE.FSI ='B' 000305BE.GGF ='B' 000400BF.PKS ='B' 000100BF.TTD ='B' 000200BF.EXE ='B' 000300BF.XDT ='B' 000301BF.MP ='B' 000302 BE.NDS ='B' 100100= BE.NCK ='B' 100200B BE.URM ='B' 100300  BE.WTL ='B' 1004000 BE.UNO ='B' 1005002 BE.ILC ='B' 1006002 BE.LNS ='B' 100700 BE.OCP ='B' 101000E BE.MLK ='B' 101100I BE.NIN ='B' 101200P BE.UNP ='B' 101300=BF.POL ='B' 000303BF.ERR ='B' 000304BF.INT ='B' 000305BF.INI ='B' 000306BF.DVI ='B' 000307BF.PAR ='B' 000310BF.XIT ='B' 000311BF.QIO ='B' 000312BF.OPT ='B' 000313BF.ACC ='B' 000314BF.KAS ='B' 000315BF.DIR ='B' 000316BF.SAN ='B' 000317BF.UP ='B' 000400 BE.IN1 ='B' 100100  BE.SP1 ='B' 100200  BE.SP2 ='B' 100300  BE.FNF ='B' 100400 BF.PTS ='B' 100400 .PSECT0 .MACRO BCKDF$ X,Y .ENDM BCKDF$ .ENDM BCKDF$BU .MACRO CHEDF$,L,B VV$CHE='B'4' .SAVE .ASECTL.=0 H.CSTS:'L'.BLKB 1 H.IIOC:'L'.BLKB 1 H.PAVL:'L'.BLKW 3 H.PKTQ:'L'.BLKW 2 H.CMDH:'L'.BLKW 2 H.CEDH:'L'.BLKW 2 H.TMP1:'L'.BLKW 1 H.TMP2:'L'.BLKW 1 CS.REQ='B'000001CS.RUN='B'000002CS.DNF='B'000004CD.ERR='B'100000CD.DRV='B'040000CD.FIN='B'020000CD.WIP='B'010000.=0BE.BNXT:'L'.BLKW 1E.BPRV:'L'.BLKW 1 E.PHYA:'L'.BLKW 10E.SIZE:'L'.BLKB 14E.ST2: 'L'.BLKB 1RE.ANXT:'L'.BLKW 1ME.APRV:'L'.BLKW 1KE.LBNH:'L'.BLKW 1 .BLKB 1 .BLKB 1E.LBNL:'L'.BLKW 1.E.LNXT:'L'.BLKW 1 E.LPRV:'L'.BLKW 1 E.IOPA:'L'E.ATTL:'L'.BLKW 1'E.PCNT:'L'.BLKB 1'E.STAT:'L'.BLKB 1'E.UCBX:'L'.BLKW 1' E.LGTH='B'.M ES.DEL='B'200 ES.ERR='B'100 ES.RIP='B'0400 ES.XIP='B'010'.=02A.ANXT:'L'.BLKW 1A.IOPA:'L'.BLKW 1D A.LGTH='B'.0 D.=0'S.DAT:'L' .BLKW 2'S.RDA:'L' .BLKW 2TS.DIR:'L' .BLKW 2VS.LOG:'L' .BLKW 2AS.OVR:'L' .BLKW 2E$$$= ..=0S.LNK:'L' .BLKW 1S.UCB:'L' .BLKW 1S.RTOT:'L' .BLKB $$$S.RHIT:'L' .BLKB $$$S.RLOD:'L' .BLKB $$$S.RLAP:'L' .BLKB $$$S.RBIG:'L' .BLKB $$$S.WTOT:'L' .BLKB $$$S.WHIT:'L' .BLKB $$$S.WLAP:'L' .BLKB $$$S.POL:'L' .BLKW 2CS.PSP:'L' .BLKW 2GS.RLE:'L' .BLKW 2' .BLKW 2R S.SIZE='B'.R DC$ENA='B'1S DC$DIS='B'2 DC$ACT='B'3' DC$DAC='B'4. DC$RCS='B'5 DC$SET='B'6' DC$CSB='B'7 DC$RSB='B'10DC$CRE='B'100000DC$PAR='B'40000 .RESTORE. .MACRO CHEDF$ Y00M  T DATADATADATADATA,Z .ENDM .ENDMU .MACRO LNMDF$,L,B,SYSDEF  .SAVE .ASECT'.=0LL.NLNK:'L' .BLKW 1L.NTBL:'L' .BLKB 1L.NBLK:'L' .BLKB 1L.NSTS:'L' .BLKB 1L.NGRP:'L' .BLKB 1 L.NUCB:'L'L.NTCB:'L' .BLKW 1L.NLNS:'L' .BLKB 1L.NENS:'L' .BLKB 1 L.NNAM:'L' L.NHSZ='B'. LT.SYS='B'0 LT.GRP='B'1B LT.USR='B'2E LT.TSK='B'3A LT.SES='B'4S LT.INV='B'6T LT.APP='B'5C LS.TRM='B'1S LS.PRV='B'2T LB.LOC='B'1B LB.LOG='B'2B IN.TSK='B'1E IN.SES='B'20 IN.GRP='B'4 IN.SYS='B'10.=0RC.REF:'L' .BLKB 1MC.DDSL:'L' .BLKB 1C.CUIC:'L' .BLKW 1 C.FIXL='B'. C.DDS:'L'..=0'O$STAT:'L' .BLKW 1O$FLAG:'L' .BLKW 1O$NODS:'L' .BLKW 1O$NODA:'L' .BLKW 1O$DEVS:'L' .BLKW 1O$DEVA:'L' .BLKW 1O$DIRS:'L' .BLKW 1O$DIRA:'L' .BLKW 1O$NAMS:'L' .BLKW 1O$NAMA:'L' .BLKW 1O$TYPS:'L' .BLKW 1O$TYPA:'L' .BLKW 1O$VERS:'L' .BLKW 1O$VERA:'L' .BLKW 1O$TRLS:'L' .BLKW 1O$TRLA:'L' .BLKW 1O$ACCS:'L' .BLKW 1O$ACCA:'L' .BLKW 1O$LTYP:'L' .BLKB 1 .BLKB 1G O$PLEN='B'.S SU$SUC ='B'1ER$NOD ='B'175550MER$DEV ='B'1771001ER$DIR ='B'1770601ER$FNM ='B'176420DER$TYP ='B'174540TER$VER ='B'174460GER$ESS ='B'176640SER$XTR ='B'174340AER$BEQ ='B'177510SER$TRN ='B'174550AER$FTB ='B'176364SFS$NOD ='B'400FS$DEV ='B'200FS$DIR ='B'100FS$QUO ='B'2000. FS$NAM ='B'4 FS$TYP ='B'2 FS$VER ='B'1FS$WCH ='B'4000.FS$WDI ='B'1000' FS$WNA ='B'40S FS$WTY ='B'20$ FS$WVE ='B'101FS$NDF ='B'10000 P.LNON ='B'0 P.LNAM ='B'1 P.LDEV ='B'2 P.LNOD ='B'3 .RESTORES .MACRO LNMDF$ X,Y,Z .ENDM .ENDMW .MACRO PRTDF$ L,B .ASECTB.=02(P.RIDN:'L' .BLKW 1 ; Ident of interface PI.LVL='B'401.P.ROFF:'L' .BLKW 1 ; Offset to dispatch table"P.RSTA:'L' .BLKW 2 ; Start output"P.RABO:'L' .BLKW 2 ; Abort output#P.RRES:'L' .BLKW 2 ; Resume outputM!P.RSTO:'L' .BLKW 2 ; Stop output!P.RMTI:'L' .BLKW 2 ; Modem timer)P.RCPU:'L' .BLKW 2 ; Controller power-up1#P.RUPU:'L' .BLKW 2 ; Unit power-up.'P.RCON:'L' .BLKW 2 ; Controller online.(P.RCOF:'L' .BLKW 2 ; Controller offline!P.RUON:'L' .BLKW 2 ; Unit onlineD"P.RUOF:'L' .BLKW 2 ; Unit offline-P.RLPA:'L' .BLKW 2 ; Get/set line parameters..=177774.P.TTSN:'L' .BLKW 1 ; TTDRV entry point - SNXC4P.TTDA:'L' .BLKW 1 ; TTDRV entry point - Deallocate2P.TTIN:'L' .BLKW 1 ; TTDRV entry point - Initiate0P.TTCN:'L' .BLKW 1 ; TTDRV entry point - Cancel1P.TTTM:'L' .BLKW 1 ; TTDRV entry point - Timeoutr3P.TTPW:'L' .BLKW 1 ; TTDRV entry point - Powerfail'9P.TTKR:'L' .BLKW 1 ; TTDRV entry point - KRB stat changeo9P.TTUC:'L' .BLKW 1 ; TTDRV entry point - UCB stat change'9P.TTII:'L' .BLKW 1 ; TTDRV entry point - Input interrupte:P.TTOI:'L' .BLKW 1 ; TTDRV entry point - Output interrupt3P.TTFP:'L' .BLKW 1 ; TTDRV Fork processing address  .PSECTe .MACRO PRTDF$ .ENDM PRTDF$n .ENDM PRTDF$tb W .MACRO HWDDF$,L,B,SYSDEF ;+2; MACROS FOR DEFINING MAPPING REGISTER DEFINITIONS;- . .MACRO CRESET NAM,ADDR $$$=0o .REPT 8.f CRENAM NAM,ADDR+<$$$*2>,\$$$R $$$=$$$+1n .ENDR .ENDM o .MACRO CRENAM NAM,ADDR,NR'NAM''N'==ADDR .ENDM a;+.; HARDWARE REGISTER ADDRESSES AND STATUS CODES;->MPCSR='B'177746 ;ADDRESS OF PDP-11/70 MEMORY PARITY REGISTER9MPAR='B'172100 ;ADDRESS OF FIRST MEMORY PARITY REGISTER7PIRQ='B'177772 ;PROGRAMMED INTERRUPT REQUEST REGISTER PR0='B'0 ;PROCESSOR PRIORITY 0!PR1='B'40 ;PROCESSOR PRIORITY 1N"PR4='B'200 ;PROCESSOR PRIORITY 4"PR5='B'240 ;PROCESSOR PRIORITY 5"PR6='B'300 ;PROCESSOR PRIORITY 6"PR7='B'340 ;PROCESSOR PRIORITY 7%PS='B'177776 ;PROCESSOR STATUS WORD'4SWR='B'177570 ;CONSOLE SWITCH AND DISPLAY REGISTER9TPS='B'177564 ;CONSOLE TERMINAL PRINTER STATUS REGISTER1;+'; EXTENDED ARITHMETIC ELEMENT REGISTERS;;- .IF DF E$$EAEAC='B'177302 ;ACCUMULATOR'#MQ='B'177304 ;MULTIPLIER-QUOTIENTTSC='B'177310 ;SHIFT COUNTS .ENDC;+7; MEMORY MANAGEMENT HARDWARE REGISTERS AND STATUS CODESC;- R .IF NB BR B$ CRESET KINAR,172340 ;KERNEL I PAR'S$ CRESET KINDR,172300 ;KERNEL I PDR'S$ CRESET KDSAR,172360 ;KERNEL00M  [ & Ol D PAR'S$ CRESET KDSDR,172320 ;KERNEL D PDR'S( CRESET SISAR,172240 ;SUPERVISOR I PAR'S( CRESET SISDR,172200 ;SUPERVISOR I PDR'S( CRESET SDSAR,172260 ;SUPERVISOR D PAR'S( CRESET SDSDR,172220 ;SUPERVISOR D PDR'S" CRESET UINAR,177640 ;USER I PAR'S" CRESET UINDR,177600 ;USER I PDR'S" CRESET UDSAR,177660 ;USER D PAR'S" CRESET UDSDR,177620 ;USER D PDR'S E .ENDC U O .IF NB SYSDEF N R .IF DF K$$DAS ,$ CRESET KISAR,172360 ;KERNEL D PAR'S$ CRESET KISDR,172320 ;KERNEL D PDR'S 3 .IFFN D$ CRESET KISAR,172340 ;KERNEL I PAR'S$ CRESET KISDR,172300 ;KERNEL I PDR'S I .ENDC E .IF DF U$$DAS" CRESET UISAR,177660 ;USER D PAR'S" CRESET UISDR,177620 ;USER D PDR'S .IFF ; DF U$$DASV" CRESET UISAR,177640 ;USER I PAR'S" CRESET UISDR,177600 ;USER I PDR'S .ENDC ; DF U$$DAS D , .ENDC R P,UBMPR='B'170200 ;UNIBUS MAPPING REGISTER 00CMODE='B'140000 ;CURRENT MODE FIELD OF PS WORD0PMODE='B'30000 ;PREVIOUS MODE FIELD OF PS WORD9CSMODE='B'40000 ;CURRENT MODE = SUPERVISOR PS WORD BITS :PSMODE='B'10000 ;PREVIOUS MODE = SUPERVISOR PS WORD BITS*SR0='B'177572 ;SEGMENT STATUS REGISTER 0*SR3='B'172516 ;SEGMENT STATUS REGISTER 3%CPUERR='B'177766 ;CPU ERROR REGISTERA/MEMERR='B'177744 ;MEMORY SYSTEM ERROR REGISTERI*MEMCTL='B'177746 ;MEMORY CONTROL REGISTER;+8; DEFINE THE LOCATIONS USED IN THE NON-VOLATIL RAM (NVR); FOR XT SYSTEMS;-)N.KEY='B'173054 ;NUMBER OF KEYS PRESSED=$N.UPT='B'173064 ;UPTIME IN MINUTES0N.DZA='B'173074 ;NUMBER OF I/OS DONE ON THE DZ0N.DWA='B'173104 ;NUMBER OF I/OS DONE ON THE DW9N.DAY='B'173114 ;DATE THAT THE NVR WAS LAST INITIALIZEDEN.MON='B'173116 ;...N.YEA='B'173120 ;...;+; FEATURE SYMBOL DEFINITIONS;- E.FE.EXT='B'1 ;22-BIT EXTENDED MEMORY SUPPORT,FE.MUP='B'2 ;MULTI-USER PROTECTION SUPPORT,FE.EXV='B'4 ;EXECUTIVE IS SUPPORTED TO 20K'FE.DRV='B'10 ;LOADABLE DRIVER SUPPORTFE.PLA='B'20 ;PLAS SUPPORT3FE.CAL='B'40 ;DYNAMIC CHECKPOINT SPACE ALLOCATION.-FE.PKT='B'100 ;PREALLOCATION OF I/O PACKETS0FE.EXP='B'200 ;EXTEND TASK DIRECTIVE SUPPORTED'FE.LSI='B'400 ;PROCESSOR IS AN LSI-11L4FE.OFF='B'1000 ;PARENT/OFFSPRING TASKING SUPPORTED7FE.FDT='B'2000 ;FULL DUPLEX TERMINAL DRIVER SUPPORTEDE$FE.X25='B'4000 ;X.25 CEX IS LOADED6FE.DYM='B'10000 ;DYNAMIC MEMORY ALLOCATION SUPPORTED%FE.CEX='B'20000 ;COM EXEC IS LOADEDK3FE.MXT='B'40000 ;MCR EXIT AFTER EACH COMMAND MODE'7FE.NLG='B'100000 ;LOGINS DISABLED - MULTI-USER SUPPORTA A;+(; FEATURE MASK DEFINITIONS (SECOND WORD);- K*F2.DAS='B'1 ;KERNEL DATA SPACE SUPPORTED2F2.LIB='B'2 ;SUPERVISOR MODE LIBRARIES SUPPORTED-F2.MP='B'4 ;SYSTEM SUPPORTS MULTIPROCESSINGP3F2.EVT='B'10 ;SYSTEM SUPPORTS EVENT TRACE FEATURE .F2.ACN='B'20 ;SYSTEM SUPPORTS CPU ACCOUNTING0F2.SDW='B'40 ;SYSTEM SUPPORTS SHADOW RECORDING0F2.POL='B'100 ;SYSTEM SUPPORTS SECONDARY POOLS<F2.WND='B'200 ;SYSTEM SUPPORTS SECONDARY POOL FILE WINDOWS:F2.DPR='B'400 ;SYSTEM HAS A SEPARATE DIRECTIVE PARTITION2F2.IRR='B'1000 ;INSTALL, RUN, AND REMOVE SUPPORT1F2.GGF='B'2000 ;GROUP GLOBAL EVENT FLAG SUPPORT 2F2.RAS='B'4000 ;RECEIVE/SEND DATA PACKET SUPPORT3F2.AHR='B'10000 ;ALT. HEADER REFRESH AREA SUPPORTT1F2.RBN='B'20000 ;ROUND ROBIN SCHEDULING SUPPORTY8F2.SWP='B'40000 ;EXECUTIVE LEVEL DISK SWAPPING SUPPORT7F2.STP='B'100000 ;EVENT FLAG MASK IS IN THE TCB(1=YES)C;+'; THIRD FEATURE MASK SYMBOL DEFINITIONSS;-3F3.CRA='B'1 ;SYSTEM SPONTANEOUSLY CRASHED (1=YES) .F3.XCR='B'2 ;SYSTEM CRASHED FROM XDT (1=YES)7F3.EIS='B'4 ;SYSTEM REQUIRES EXTENDED INSTRUCTION SETU4F3.STM='B'10 ;SYSTEM HAS SET SYSTEM TIME DIRECTIVE/F3.UDS='B'20 ;SYSTEM SUPPORTS USER DATA SPACET4F3.PRO='B'40 ;SYSTEM SUPPORTS SEC. POOL PROTO TCBS6F3.XHR='B'100 ;SYSTEM SUPPORTS EXTERNAL TASK HEADERS'F3.AST='B'200 ;SYSTEM HAS AST SUPPORT'F3.11S='B'400 ;RSX-11S SYSTEME&F3.CLI='B'1000 ;MULTIPLE CLI SUPPORT:F3.TCM='B'2000 ;SYSTEM HAS SEPARATE TERMINAL DRIVER POOL1F3.PMN='B'4000 ;SYSTEM SUPPORTS POOL MONITORINGM4F3.WAT='B'10000 ;SYSTEM HAS WATCHDOG T00M  T DATADATADATADATAIMER SUPPORT5F3.RLK='B'20000 ;SYSTEM SUPPORTS RMS RECORD LOCKING 0F3.SHF='B'40000 ;SYSTEM SUPPORTS SHUFFLER TASK;+; FOURTH FEATURE MASK BITS;-6F4.CXD='B'1 ;COMM EXEC IS DEALLOCATED (NON-I/D ONLY),F4.XT='B'2 ;SYSTEM IS AN XT SYSTEM (1=YES)4F4.ERL='B'4 ;SYSTEM SUPPORTS ERROR LOGGING (1=YES)5F4.PTY='B'10 ;SYSTEM SUPPORTS PARITY MEMORY (1=YES)M8F4.DVN='B'20 ;SYSTEM SUPPORTS DECIMAL VERSIONS (1=YES)6F4.LCD='B'40 ;SYSTEM SUPPORTS LOADABLE CRASH (1=YES)<F4.NIM='B'100 ;SYSTEM SUPPORTS DELETED TASK IMAGES (1=YES):F4.CHE='B'200 ;SYSTEM SUPPORTS DISK DATA CACHING (1=YES)6F4.LOG='B'400 ;SYSTEM SUPPORTS LOGICAL NAMES (1=YES);F4.NAM='B'1000 ;SYSTEM SUPPORTS NAMED DIRECTORIES (1=YES)L4F4.FMP='B'2000 ;SYSTEM SUPPORTS FAST MAP DIRECTIVE,F4.DCL='B'4000 ;DCL IS DEFAULT CLI (1=YES)>F4.DDS='B'10000 ;NAMED DIRECTORY MODE IS THE DEFAULT (1=YES)0F4.ACD='B'20000 ;SYSTEM SUPPORTS ACD'S (1=YES)1F4.NCT='B'40000 ;SYSTEM HAS NCT SUPPORT (1=YES)(/F4.LSD='B'100000 ;SYSTEM HAS LUT SCAN DISABLEDT7F5.PRO='B'1 ;SYSTEM SUPPORTS PROFESSIONAL 3XX SERIES ;+'; HARDWARE FEATURE MASK BIT DEFINITIONS ;P7; HF.CIS,HF.FPP DEFINED AS SIGN BITS FOR RUN TIME SPEEDO;-1HF.UBM='B'1 ;PROCESSOR HAS A UNIBUS MAP (1=YES)M4HF.EIS='B'2 ;PROCESSOR HAS EXTENDED INSTRUCION SET'HF.QB='B'4 ;SYSTEM HAS A QBUS (1=YES)N,HF.DSP='B'10 ;HARDWARE SUPPORTS DATA SPACE<HF.SWR='B'20 ;SYSTEM HAS SWITCH REGISTER HARDWARE PRESENT>HF.CIS='B'200 ;PROCESSOR SUPPORTS COMMERCIAL INSTRUCTION SET7HF.FPP='B'100000 ;(1=PROC. HAS NO FLOATING POINT UNIT)R;+.; SECOND HARDWARE FEATURE MASK BIT DEFINITIONS0; THIS WORD IS RESERVED FOR XT HARDWARE FEATURES;-2H2.NVR='B'1 ;XT NON-VOLATILE RAM PRESENT (1=YES)2H2.INV='B'2 ;NON-VOLATILE RAM IS INVALID (1=YES)*H2.CLK='B'4 ;XT CLOCK IS PRESENT (1=YES)?H2.ITF='B'10 ;INVALID TIME FORMAT IN NON-VOLATILE RAM (1=YES)A+H2.PRO='B'20 ;RUNNING ON PRO/3XX HARDWARER3H2.BRG='B'100000 ;XT BRIDGE MODULE PRESENT (1=YES)S;+A; SYSGEN FEATURE SELECTIONS MASK. THIS IS INTENDED TO RECORD IN AFF; BIT MASK THE CHOICES THE USER HAS MADE AT SYSGEN TIME. FEATURES WILLC; BE LISTED HERE WHEN THEY ARE BEING RECORDED FOR OUR INFORMATIONAL D; PURPOSES ONLY. THEY CANNOT BE TESTED LIKE BITS IN THE FEATURE MASKB; SINCE THIS ONLY EXISTS IN THE RSX11M.STB FILE. NO BITS IN MEMORYJ; ARE USED. THEY ARE ONLY INTENDED TO BE PRINTED FROM THE STB FILE BY CDA.;-%SF.STD='B'1 ;STANDARD EXEC SELECTED0>SF.PGN='B'2 ;SYSTEM WAS PRE-GENERATED (EX. RL02/RC25 SYSTEM) C;+5; MULTIPROCESSOR STATUS TABLE DEFINITIONS (TEMPORARY)E;- S.MP.CRH='B'100000 ;CRASH PROCESSOR IMMEDIATELY'MP.PWF='B'40000 ;POWERFAIL ON ONE CPUC(MP.RSM='B'20000 ;RESET INTERRUPT MASKS6MP.NOP='B'10000 ;NOP FUNCTION FOR TRANSMISSION CHECK0MP.STP='B'4 ;STOP PROCESSOR IN ORDERLY FASHION6MP.INT='B'7777 ;BIC MASK FOR INTERRUPT LVL FUNCTIONS E .MACRO HWDDF$ X,Y,Z .ENDM .ENDMEW .MACRO UDADF$,L,B;+); DISK CLASS MSCP DEFINITIONS AND SYMBOLS.;-;+-; GENERIC DISK MSCP COMMAND PACKET DEFINITIONL;- .ASECT .=0O+P.CRF:'L'.BLKB 4 ;COMMAND REFERENCE NUMBEREP.UNIT:'L'.BLKB 2 ;UNIT NUMBER  .BLKB 2 ;RESERVEDPP.OPCD:'L'.BLKB 1 ;OP CODEI .BLKB 1 ;RESERVEDP)P.MOD:'L'.BLKB 2 ;COMMAND MODIFIERS WORDC+P.BCNT:'L'.BLKB 4 ;BYTE COUNT (FOUR BYTES)Y>P.BUFF:'L'.BLKB 12. ;BUFFER ADDRESS DESCRIPTOR (TWELVE BYTES)'P.LBN:'L'.BLKB 4 ;LOGICAL BLOCK NUMBERM .BLKB 16. ;REMINDER OF PACKET$ P.END:'L' $P.LENG='B'. ;LENGTH OF MSCP PACKET;6; ABORT AND GET COMMAND STATUS COMMAND PACKETS OFFSETS;.=P.BCNT0P.OTRF:'L'.BLKB 4 ;OUTSTANDING REFERENCE NUMBER;.<; ONLINE AND SET UNIT CHARACTERISTICS COMMAND PACKET OFFSETS;B.=P.BCNT .BLKB 2 ;RESERVEDSP.UNFL:'L'.BLKB 2 ;UNIT FLAGS .BLKB 12. ;RESERVEDC/P.DVPM:'L'.BLKB 4 ;DEVICE DEPENDENT PARAMETERS'P.SHUN:'L'.BLKB 2 ;SHADOW UNITRP.CPSP:'L'.BLKB 2 ;COPY SPEED1; TAPE FORMAT FOR ONLINE AND SET CHARACTERISTICSE.=P.BCNT .BLKB 2 ;RESERVEDG%P.UNFL:'L'.BLKB 2 ;UNIT FLAGS (TAPE)B .BLKB 12. ;RESERVEDT .BL00M  [ & OlKB 4 ;P.DVPMO!P.FORM:'L'.BLKB 2 ;FORMAT (TAPE)K P.SPED:'L'.BLKB 2 ;SPEED (TAPE);. ; REPLACE COMMAND PACKET OFFSETS;C.=P.BCNT+P.RBN:'L'.BLKB 4 ;REPLACEMENT BLOCK NUMBERR;S; FORMAT COMMAND PACKET OFFSET;L.=P.BCNT .BLKB 4' .BLKB 12. ;BUFFER ADDRESS DESCRIPTORM(P.FMTI:'L'.BLKB 4 ;FORMATI INFORMATION;P$; REPOSITION COMMAND MESSAGE OFFSETS;T.=P.BCNT.P.RECC:'L'.BLKB 4 ;RECORD/OBJECT COUNT (TAPE)8P.TMGC:'L'.BLKB 4 ;TAPE MARK OBJECT COUNT OR N/A (TAPE);.7; SET CONTROLLER CHARACTERISTICS COMMAND PACKET OFFSETSM;(.=P.BCNT P.VRSN:'L'.BLKB 2 ;MSCP VERSION$P.CNTF:'L'.BLKB 2 ;CONTROLLER FLAGS P.HTMO:'L'.BLKB 2 ;HOST TIMEOUT .BLKB 2 ;RESERVEDR,P.TIME:'L'.BLKB 8. ;QUAD-WORD TIME AND DATE3P.CNTP:'L'.BLKB 4 ;CONTROLLER DEPENDENT PARAMETERSP;+%; GENERIC MSCP END PACKET DEFINITIONSI;- .=P.OPCD+1%P.FLGS:'L'.BLKB 1 ;END MESSAGE FLAGSCP.STS:'L'.BLKB 2 ;STATUSO .=P.BCNT+16.#P.FBBK:'L'.BLKB 4 ;FIRST BAD BLOCKR;B1; ABORT AND GET COMMAND STATUS END PACKET OFFSETSA;R.=P.BCNT0P.OTRF:'L'.BLKB 4 ;OUTSTANDING REFERENCE NUMBER; '; GET COMMAND STATUS END PACKET OFFSETSO;R"P.CMST:'L'.BLKB 2 ;COMMAND STATUS;T$; GET UNIT STATUS END PACKET OFFSETS;..=P.BCNT#P.MLUN:'L'.BLKB 2 ;MULTI-UNIT CODE;P.UNFL:'L'.BLKB 2 ;UNIT FLAGS .BLKB 4 ;RESERVEDE$P.UNTI:'L'.BLKB 8. ;UNIT IDENTIFIER)P.MEDI:'L'.BLKB 4 ;MEDIA TYPE IDENTIFIER.P.SHUN:'L'.BLKB 2 ;SHADOW UNITT!P.SHST:'L'.BLKB 2 ;SHADOW STATUS P.TRCK:'L'.BLKB 2 ;TRACK SIZEP.GRP:'L'.BLKB 2 ;GROUP SIZE P.CYL:'L'.BLKB 2 ;CYLINDER SIZE)P.USVR:'L'.BLKB 1 ;UNIT SOFTWARE VERSIONM)P.UHVR:'L'.BLKB 1 ;UNIT HARDWARE VERSION'"P.RCTS:'L'.BLKB 2 ;RCT TABLE SIZEP.RBNS:'L'.BLKB 1 ;RBN'S/TRACKP.RCTC:'L'.BLKB 1 ;RCT COPIES; TAPE SPECIFIC;.=P.SHUN&P.FORM:'L'.BLKB 2 ;TAPE FORMAT (TAPE) P.SPED:'L'.BLKB 2 ;SPEED (TAPE)&P.FMEM:'L'.BLKB 2 ;FORMAT MENU (TAPE);E8; ONLINE AND SET UNIT CHARACTERISTICS END PACKET OFFSETS; .=P.TRCKP.UNSZ:'L'.BLKB 4 ;UNIT SIZEC(P.VSER:'L'.BLKB 4 ;VOLUME SERIAL NUMBER;TAPE..=P.FMEM4P.MXWR:'L'.BLKB 4 ;MAXIMUM WRITE RECORD SIZE (TAPE)'P.NREC:'L'.BLKB 2 ;NOISE RECORD (TAPE)S;'3; SET CONTROLLER CHARACTERISTICS END PACKET OFFSETS ;;.=P.BCNT P.VRSN:'L'.BLKB 2 ;MSCP VERSION#P.CNTF:'L'.BLKB 2 ;CONTROLER FLAGS'&P.CTMO:'L'.BLKB 2 ;CONTROLLER TIMEOUT/P.CSVR:'L'.BLKB 1 ;CONTROLLER SOFTWARE VERSIONM/P.CHVR:'L'.BLKB 1 ;CONTROLLER HARDWARE VERSIONE"P.CNTI:'L'.BLKB 8. ;CONTROLLER ID;K; REPOSITION END PACKET OFFSETS.=P.BCNT*P.RCSK:'L'.BLKB 4 ;RECORDS SKIPPED (TAPE)-P.TMSK:'L'.BLKB 4 ;TAPE MARKS SKIPPED (TAPE)S;+; ERROR LOG MESSAGE OFFSETSO;-.=0D+L.CRF:'L'.BLKB 4 ;COMMAND REFERENCE NUMBERSL.UNIT:'L'.BLKB 2 ;UNIT NUMBERT"L.SEQ:'L'.BLKB 2 ;SEQUENCE NUMBERL.FMT:'L'.BLKB 1 ;FORMATE+L.FLGS:'L'.BLKB 1 ;ERROR LOG MESSAGE FLAGSOL.EVNT:'L'.BLKB 2 ;EVENT CODE"L.CNTI:'L'.BLKB 8. ;CONTROLLER ID/L.CSVR:'L'.BLKB 1 ;CONTROLLER SOFTWARE VERSIONK/L.CHVR:'L'.BLKB 1 ;CONTROLLER HARDWARE VERSION #L.MLUN:'L'.BLKB 2 ;MULTI-UNIT CODE L.UNTI:'L'.BLKB 8. ;UNIT ID)L.USVR:'L'.BLKB 1 ;UNIT SOFTWARE VERSION)L.UHVR:'L'.BLKB 1 ;UNIT HARDWARE VERSION .BLKB 2 ;RESERVEDM(L.VSER:'L'.BLKB 4 ;VOLUME SERIAL NUMBER .BLKB 16. ;RESERVED SPACEB L.LENG='B'. ;BE; HOST MEMORY ACCESS ERRORS WITH BUS ADDRESS ERROR LOG MESSAGE FORMATL;O .=L.MLUN+2L.BADR:'L'.BLKB 4 ;BUS ADDRESSB; 0; DISK TRANSFER ERRORS ERROR LOG MESSAGE OFFSETS;F .=L.UHVR+1L.LVL:'L'.BLKB 1 ;LEVELL.RTRY:'L'.BLKB 1 ;RETRY COUNTN(L.VSER:'L'.BLKB 4 ;VOLUME SERIAL NUMBERL.HDCD:'L'.BLKB 4 ;HEADER CODEK; &; SDI ERRORS ERROR LOG MESSAGE OFFSETS; $L.SDI:'L'.BLKB 12. ;SDI INFORMATION;R-; SMALL DISK ERRORS ERROR LOG MESSAGE OFFSETS;L .=L.UHVR+1L.SCYL:'L'.BLKB 2 ;CYLINDER; 0; TAPE TRANSFER ERRORS ERROR LOG MESSAGE OFFSETS;M .=L.UHVR+1%L.FMTD:'L' .BLKB 2 ;FORMAT DEPENDENT;,L.GPCT:'L' .BLKB 4 ;POSITION (OBJECT COUNT)/L.FSVR:'L' .BLKB 1 ;FORMATTER SOFTWARE VERSIONL/L.FHVR:'L' .BLKB 1 ;FORMATTER HARDWARE VERSION.;R; STI ERROR LOG ME00M  T DATADATADATADATASSAGE OFFSETSR;..=L.FMTD6 .BLKB 10. ;RESERVED (DIFFERS FROM SPEC AT 2)?????6L.STI:'L' .BLKB 62. ;SIZE VARIES FROM 12 TO 62 BYTES;MG; TAPE ACCESS, COMPARE HOST DATA, READ REPOSTION, WRITE, WRITE TAPEMARKK; .=P.MEDI*P.POS:'L' .BLKB 4 ;POSITION/OBJECT COUNT;O); TAPE ACCESS,COMPARE HOST DATA, AND READ ;R.=P.FORM+P.TRBC:'L' .BLKB 4 ;TAPE RECORD BYTE COUNTO .PSECTS;+ ; OP-CODES;-OP.ABO='B'1. ;ABORTLOP.ACC='B'16. ;ACCESSROP.AVL='B'8. ;AVAILABLER(OP.CCD='B'17. ;COMPARE CONTROLLER DATA"OP.CMP='B'32. ;COMPARE HOST DATA'OP.DAP='B'11. ;DETERMINE ACCESS PATHSLOP.ERS='B'18. ;ERASE OP.FMT='B'47. ;FORMATOP.FLU='B'19. ;FLUSH"OP.GCS='B'2. ;GET COMMAND STATUSOP.GUS='B'3. ;GET UNIT STATUS.OP.ONL='B'9. ;ONLINEOP.RD='B'33. ;READOP.REP='B'37. ;REPOSITIONAOP.RPL='B'20. ;REPLACE.OP.SCC='B'4. ;SET CONTROLLER CHARACTERISTICS)OP.SUC='B'10. ;SET UNIT CHARACTERISTICSOP.WR='B'34. ;WRITER OP.WTM='B'36. ;WRITE TAPE MARK!OP.END='B'128. ;END PACKET FLAGA-OP.SEX='B'7. ;SERIOUS EXCEPTION END MESSAGE'%OP.AVA='B'64. ;AVAILABLE ATTENTION '0OP.DUP='B'65. ;DUPLICATE UNIT NUMBER ATTENTION&OP.ACP='B'66. ;ACCESS PATH ATTENTION!OP.ERG='B'26 ;ERASE GAP COMMANDN;+; COMMAND MODIFIERS ;-;E; GENERIC COMMAND MODIFIERSP;'*MD.CSE='B'20000 ;CLEAR SERIOUS EXCEPTIONMD.CMP='B'40000 ;COMPARE"MD.EXP='B'100000 ;EXPRESS REQUESTMD.ERR='B'10000 ;FORCE ERRORMD.OBC='B'4 ;OBJECT COUNT'MD.REV='B'10 ;REVERSEMD.RWD='B'2 ;REWINDAMD.UNL='B'20 ;UNLOAD/MD.SCH='B'4000 ;SUPPRESS CACHING (HIGH SPEED) .MD.SCL='B'2000 ;SUPPRESS CACHING (LOW SPEED)+MD.SEC='B'1000 ;SUPPRESS ERROR CORRECTIONA(MD.SER='B'400 ;SUPPRESS ERROR RECOVERY#MD.SSH='B'200 ;SUPPRESS SHADOWINGR*MD.WBN='B'100 ;WRITE BACK (NON-VOLATILE)%MD.WBV='B'40 ;WRITE BACK (VOLATILE)P3MD.SEQ='B'20 ;WRITE SHADOW SET ONE UNIT AT A TIMEE;+;TAPEE;-MD.DLE='B'200 ;DETECT LEOT MD.EXC='B'40 ;EXCLUSIVE ACCESS%MD.IMM='B'100 ;IMMEDIATE COMPLETIONR;N; AVAILABLE COMMAND MODIFIERSS;' MD.ALL='B'2 ;ALL CLASS DRIVERSMD.SPD='B'1 ;SPIN-DOWN;P; FLUSH COMMAND MODIFIERSD;C MD.FEU='B'1 ;FLUSH ENTIRE UNITMD.VOL='B'2 ;VOLATILE ONLY;R; GET UNIT STATUS MODIFIERS ;PMD.NXU='B'1 ;NEXT UNIT;0; ONLINE COMMAND MODIFIERS;"MD.RIP='B'1 ;ALLOW SELF DESTRUCT(MD.IMF='B'2 ;IGNORE MEDIA FORMAT ERROR; /; ONLINE AND SET UNIT CHARACTERISTICS MODIFIERSC;E*MD.CWB='B'10 ;CLEAR WRITE BACK DATA LOST MD.SWP='B'4 ;SET WRITE PROTECT%MD.SHD='B'20 ;SHADOW UNIT SPECIFIED;A; REPLACE COMMAND MODIFIERS;S(MD.PRI='B'1 ;PRIMARY REPLACEMENT BLOCK;+; END MESSAGE FLAGS';-#EF.BBR='B'200 ;BAD BLOCK REPORTEDL%EF.BBU='B'100 ;BAD BLOCK UNREPORTEDI#EF.LOG='B'40 ;ERROR LOG GENERATED0!EF.SEX='B'20 ;SERIOUS EXCEPTIOND'EF.EOT='B'10 ;END OF TAPE ENCOUNTERED'EF.PLS='B'4 ;POSITION LOST;+; CONTROLLER FLAGS;-*CF.ATN='B'200 ;ENABLE ATTENTION MESSAGES8CF.MSC='B'100 ;ENABLE MISCELLANEOUS ERROR LOG MESSAGES6CF.OTH='B'40 ;ENABLE OTHER HOST'S ERROR LOG MESSAGES5CF.THS='B'20 ;ENABLE THIS HOST'S ERROR LOG MESSAGESR3CF.RPL='B'100000 ;CONTROLLER INITIATED BAD BLOCK R ;REPLACEMENT (ALL UNITS)CF.SHD='B'2 ;SHADOWINGCF.576='B'1 ;576 BYTE SECTORSR;+ ; UNIT FLAGS;-UF.CMR='B'1 ;COMPARE READSUF.CMW='B'2 ;COMPARE WRITES 3UF.RPL='B'100000 ;CONTROLLER INITIATED BAD BLOCK T! ;REPLACEMENT (PER UNIT BASIS)E+UF.INA='B'40000 ;INACTIVE SHADOW SET UNITA!UF.RMV='B'200 ;REMOVEABLE MEDIAS/UF.SCH='B'4000 ;SUPPRESS CACHING (HIGH SPEED)E.UF.SCL='B'2000 ;SUPPRESS CACHING (LOW SPEED)*UF.WBN='B'100 ;WRITE-BACK (NON-VOLATILE)+UF.WPH='B'20000 ;WRITE PROTECT (HARDWARE)L5UF.WPS='B'10000 ;WRITE PROTECT (SOFTWARE OR VOLUME)BUF.576='B'4 ;576 BYTE SECTORS-.UF.VSS='B'40 ;VARIABLE SPEED MODE SUPRESSION#UF.VSU='B'20 ;VARIABLE SPEED UNITO;+ ; ERROR LOG MESSAGE FORMAT CODES;- FM.CNT='B'0 ;CONTROLLER ERRORS9FM.BAD='B'1 ;HOST MEMORY ACCESS ERRORS WITH BUS ADDRESSV#FM.DSK='B'00M  [ & Ol2 ;DISK TRANSFER ERRORSEFM.SDI='B'3 ;SDI ERRORSF FM.SDE='B'4 ;SMALL DISK ERRORS"FM.TPE='B'5 ;TAPE TRANSFER ERROR"FM.DEL='B'7 ;STI DRIVE ERROR LOG'FM.FEL='B'10 ;STI FORMATTER ERROR LOG04FM.STI='B'6 ;STI COMMUNICATIONS OR COMMAND FAILURE;+; ERROR LOG MESSAGE FLAGS';-%LF.SUC='B'200 ;OPERATION SUCCESSFULV%LF.CON='B'100 ;OPERATION CONTINUING $LF.SNR='B'1 ;SEQUENCE NUMBER RESET;+; STATUS AND EVENT CODES;-&ST.MSK='B'37 ;STATUS/EVENT CODE MASK#ST.SUB='B'40 ;SUB-CODE MULTIPLIER ST.SUC='B'0 ;SUCCESSST.CMD='B'1 ;INVALID COMMANDST.ABO='B'2 ;COMMAND ABORTEDST.OFL='B'3 ;UNIT OFF-LINEST.AVL='B'4 ;UNIT AVAILABLEG!ST.MFE='B'5 ;MEDIA FORMAT ERROROST.WPR='B'6 ;WRITE PROTECTEDST.CMP='B'7 ;COMPARE ERRORST.DAT='B'8. ;DATA ERROR(ST.HST='B'9. ;HOST BUFFER ACCESS ERROR!ST.CNT='B'10. ;CONTROLLER ERRORNST.DRV='B'11. ;DRIVE ERROR1ST.DIA='B'31. ;MESSAGE FROM INTERNAL DIAGNOSTIC;+;TAPE SPECIFIC ERRORST;-ST.BOT='B'15 ;BOT ENCOUNTEREDMST.FMT='B'14 ;FORMATTER ERRORSST.LED='B'23 ;LEOT DETECTEDDST.POL='B'21 ;POSITION LOSTD%ST.RDT='B'20 ;RECORD DATA TRUNCATED'!ST.SEX='B'22 ;SERIOUS EXCEPTION %ST.TM ='B'16 ;TAPE MARK ENCOUNTEREDW#ST.SUB='B'40 ;SUB-CODE MULTIPLIERE;+ R;TAPE FORMAT FLAG VALUES;-TF.800='B'1 ;NRZI 800 BPIC$TF.PE='B'2 ;PHASE ENCODED 1600 BPI/TF.GCR='B'4 ;FROUP ENCODED RECORDING 6250 BPI'%TF.BLK='B'10 ;CARTRIDGE BLOCK MODEL;++; STANDARD STATUS AND EVENT SUB-CODE VALUES;;-;O; SUCCESS SUB-CODES4;;!ST.NML='B'0*ST.SUB+ST.SUC ;NORMALE,ST.SDI='B'1*ST.SUB+ST.SUC ;SPIN-DOWN IGNORED*ST.CON='B'2*ST.SUB+ST.SUC ;STILL CONNECTED0ST.DUP='B'4*ST.SUB+ST.SUC ;DUPLICATE UNIT NUMBER*ST.ONL='B'8.*ST.SUB+ST.SUC ;ALREADY ONLINE)ST.SON='B'16.*ST.SUB+ST.SUC ;STILL ONLINEU;; INVALID COMMAND SUB-CODESP;0ST.IPT='B'0*ST.SUB+ST.CMD ;INVALID PACKET LENGTH;F; COMMAND ABORTED SUB-CODES ;SUB-CODES NOT USEDA;I; UNIT OFFLINE SUB-CODES;AGST.UNK='B'0*ST.SUB+ST.OFL ;UNIT UNKNOWN OR ONLINE TO ANOTHER CONTROLLERTCST.VOL='B'1*ST.SUB+ST.OFL ;NO VOLUME MOUNTED OR DRIVE DISABLED VIA N ;RUN/STOP SWITCH.ST.IOP='B'2*ST.SUB+ST.OFL ;UNIT IS INOPERATIVE3ST.DPU='B'4.*ST.SUB+ST.OFL ;DUPLICATE UNIT NUMBER+GST.DIS='B'8.*ST.SUB+ST.OFL ;UNIT DISABLED BY FIELD SERVICE OR INTERNAL  ;DIAGNOSTICU;O; AVAILABLE SUB-CODEST;SUB-CODES NOT USEDP;E;E; WRITE PROTECTED SUB-CODESU;O>ST.HWP='B'256.*ST.SUB+ST.WPR ;UNIT IS HARDWARE WRITE PROTECTED>ST.SWP='B'128.*ST.SUB+ST.WPR ;UNIT IS SOFTWARE WRITE PROTECTED;E; COMPARE ERROR SUB-CODESF;SUB-CODES NOT USEDO;R; ; DATA ERROR SUB-CODES;OEST.FER='B'0*ST.SUB+ST.DAT ;SECTOR WRITTEN WITH "FORCE ERROR" MODIFIERS;U; CONTROLLER ERROR SUB-CODES;+AST.CTO='B'0*ST.SUB+ST.CNT ;COMMAND TIMEOUT / RETRY LIMIT EXCEEDEDE;+/; NON-STANDARD STATUS AND EVENT SUB-CODE VALUES;-;D; MEDIA FORMAT EROR SUB-CODESR;C6ST.FDC='B'1.*ST.SUB+ST.MFE ;FCT UNREADABLE - EDC ERRORDST.FSH='B'2.*ST.SUB+ST.MFE ;FCT UNREADABLE - INVALID SECTOR HEADER@ST.FST='B'3.*ST.SUB+ST.MFE ;FCT UNREADABLE - DATA SYNC TIMEOUTIST.576='B'5.*ST.SUB+ST.MFE ;DISK ISN'T FORMATTED WITH 512. BYTE SECTORSCCST.FCT='B'6.*ST.SUB+ST.MFE ;DISK ISN'T FORMATTED OR FCT CORRUPTEDCDST.FEC='B'7.*ST.SUB+ST.MFE ;FCT UNREADABLE - UNCORRECTABLE ECC ERROR;E; DATA ERROR SUB-CODES;UKST.ISH='B'2.*ST.SUB+ST.DAT ;HEADER COMPARE ERROR (VALID HEADER NOT FOUND)FEST.DST='B'3.*ST.SUB+ST.DAT ;DATA SYNC NOT FOUND (DATA SYNC TIMEOUT)+5ST.ECC='B'7.*ST.SUB+ST.DAT ;UNCORRECTABLE ECC ERRORTKEV.ISH='B'2.*ST.SUB+ST.DAT ;HEADER COMPARE ERROR (VALID HEADER NOT FOUND)UEEV.DST='B'3.*ST.SUB+ST.DAT ;DATA SYNC NOT FOUND (DATA SYNC TIMEOUT)S5EV.ECC='B'7.*ST.SUB+ST.DAT ;UNCORRECTABLE ECC ERROR2EV.EC1='B'8.*ST.SUB+ST.DAT ;ONE SYMBOL ECC ERROR2EV.EC2='B'9.*ST.SUB+ST.DAT ;TWO SYMBOL ECC ERROR5EV.EC3='B'10.*ST.SUB+ST.DAT ;THREE SYMBOL ECC ERROR 4EV.EC4='B'11.*ST.SUB+ST.DAT ;FOUR SYMBOL ECC ERROR4EV.EC5='B'12.*ST.SUB+ST.DAT ;FIVE SYMBOL ECC ERROR3EV.EC6='B'13.*ST.SUB+ST.DAT ;S00M  T DATADATADATADATAIX SYMBOL ECC ERRORS5EV.EC7='B'14.*ST.SUB+ST.DAT ;SEVEN SYMBOL ECC ERRORF5EV.EC8='B'15.*ST.SUB+ST.DAT ;EIGHT SYMBOL ECC ERRORN;D$; HOST BUFFER ACCESS ERROR SUB-CODES;T2ST.ODA='B'1.*ST.SUB+ST.HST ;ODD TRANSFER ADDRESS,ST.ODB='B'2.*ST.SUB+ST.HST ;ODD BYTE COUNT7ST.NXM='B'3.*ST.SUB+ST.HST ;NON-EXISTENT MEMORY ERRORS6ST.PAR='B'4.*ST.SUB+ST.HST ;HOST MEMORY PARITY ERROR;S; CONTROLLER ERROR SUB-CODES;V2ST.SDS='B'1.*ST.SUB+ST.CNT ;SERDES OVERRUN ERROR'ST.EDC='B'2.*ST.SUB+ST.CNT ;EDC ERROR @ST.IDS='B'3.*ST.SUB+ST.CNT ;INCONSISTENT INTERNAL DATA STRUCTURE2EV.SDS='B'1.*ST.SUB+ST.CNT ;SERDES OVERRUN ERROR'EV.EDC='B'2.*ST.SUB+ST.CNT ;EDC ERRORC@EV.IDS='B'3.*ST.SUB+ST.CNT ;INCONSISTENT INTERNAL DATA STRUCTURE;'; DRIVE ERROR SUB-CODES ;EDST.SRT='B'1.*ST.SUB+ST.DRV ;SDI COMMAND TIMED OUT (NO RESPONSE OR  ;SEEK INCOMPLETE) BST.SRI='B'2.*ST.SUB+ST.DRV ;CONTROLLER DETECTED TRANSMISSION OR  ;PROTOCOL ERRORC8ST.POE='B'3.*ST.SUB+ST.DRV ;POSITINER ERROR (MIS-SEEK)FST.RDY='B'4.*ST.SUB+ST.DRV ;LOST READ/WRITE READY DURING OR BETWEEN  ;TRANSFERS1ST.CLK='B'5.*ST.SUB+ST.DRV ;DRIVE CLOCK DROPOUT'AST.RSP='B'6.*ST.SUB+ST.DRV ;LOST RECEIVER READY BETWEEN SECTORSS2ST.SUR='B'7.*ST.SUB+ST.DRV ;DRIVE DETECTED ERROR>ST.PSP='B'8.*ST.SUB+ST.DRV ;CONTROLLER DETECTED PULSE OF STATE ;PARITY ERROR DEV.SRT='B'1.*ST.SUB+ST.DRV ;SDI COMMAND TIMED OUT (NO RESPONSE OR  ;SEEK INCOMPLETE) BEV.SRI='B'2.*ST.SUB+ST.DRV ;CONTROLLER DETECTED TRANSMISSION OR  ;PROTOCOL ERRORS8EV.POE='B'3.*ST.SUB+ST.DRV ;POSITINER ERROR (MIS-SEEK)FEV.RDY='B'4.*ST.SUB+ST.DRV ;LOST READ/WRITE READY DURING OR BETWEEN  ;TRANSFERS1EV.CLK='B'5.*ST.SUB+ST.DRV ;DRIVE CLOCK DROPOUTSAEV.RSP='B'6.*ST.SUB+ST.DRV ;LOST RECEIVER READY BETWEEN SECTORS+2EV.SUR='B'7.*ST.SUB+ST.DRV ;DRIVE DETECTED ERROR>EV.PSP='B'8.*ST.SUB+ST.DRV ;CONTROLLER DETECTED PULSE OF STATE ;PARITY ERROR ;+4; CONTROLLER, UNIT, AND MEDIA TYPE IDENTIFIER VALUES;-;+); CONTROLLER AND UNIT "CLASS" BYTE VALUESS;-;E; ZERO IS A RESERVED VALUE;E&MSCNT='B' 1 ;MASS STORAGE CONTROLLERS4DISK='B' 2 ;DISK CLASS DEVICES -- DEC STD 166 DISKS6DISKLT='B' 4 ;DISK CLASS DEVICES -- DEC STD 144 DISKS;+-; MASS STORAGE CONTROLLER "MODEL" BYTE VALUESE;-; ; ZERO IS A RESERVED VALUE;S HSC50='B' 1 UDA50='B' 2T RC25 ='B' 3P VMS ='B' 4U TU81 ='B' 5T UDA5A='B' 6E RD.RX='B' 7A TOPS ='B' 10 TK50 ='B' 11 RUX50='B' 12 RC26 ='B' 13 AIO ='B' 14 KDA50Q='B' 15 BDA ='B' 16 BSA ='B' 17 RRD50 ='B' 20E KDA25Q='B' 21E KDA50B='B' 22D RQDX3 ='B' 23N QIA ='B' 24S UIA ='B' 25E;+(; DISK CLASS DEVICES "MDOEL" BYTE VALUES;- RA80 ='B' 1 RC25 ='B' 2 RCF25 ='B' 3 RA60 ='B' 4 RA81 ='B' 5 RD51 ='B' 6 RX50 ='B' 7 RD52 ='B' 10E RD53 ='B' 11O RX33 ='B' 12V RA82 ='B' 13= RD31 ='B' 14B RD54 ='B' 15 RRD50 ='B' 16 RX31 ='B' 17 RX32 ='B' 20D RX18 ='B' 21S;+1; DISK CLASS DEVICES MEDIA TYPE IDENTIFIER VALUES ;-;4"; IDENTIFIER VALUES HAVE THE FORM:;B$; 31 26 21 16 11 7 6 0%; +----+----+----+----+----+-------+'%; | D0 | D1 | A0 | A1 | A2 | N |S%; +----+----+----+----+----+-------+ ;'"; WHERE THE FIELDS ARE AS FOLLOWS:;'; D01; D1 THE PREFERRED DEVICE TYPE NAME FOR THE UNIT.'H; D0 AND D1 ARE FIVE BIT FIELDS. EACH ENCODING ONE ALPHABETIC CHARACTER.; ENCODING IS AS FOLLOWS:(; "SPACE" IS REPRESENTED BY THE VALUE 0$; "A" IS REPRESENTED BY THE VALUE 1$; "B" IS REPRESENTED BY THE VALUE 2; .V; .A; .F%; "Z" IS REPRESENTED BY THE VALUE 266C; THUS EACH FIVE BIT FIELD, IF IT IS NON-ZERO, MAY BE CONVERTED TO 1; ASCII BY ADDING 100(8).-;+; A0; A1; A2+; N THE NAME OF THE MEDIA USED ON THE UNIT.:L; A0 THROUGH A2 ARE FIVE BIT FIELDS. EACH ENCODING ONE ALPHABETIC CHARACTER.; ENCODING IS AS FOLLOWS:O(; "SPACE" IS REPRESENTED BY THE VALUE 0$; "A" IS REPRESENTED BY THE VALUE 1$; "B" IS REPRESENTED BY THE VALUE 2; .Y; .L; . %; "Z" IS REPRESENTED BY THE VALUE 26 C; THUS EACH FIVE BIT FIELD, IF00M  [ & Ol IT IS NON-ZERO, MAY BE CONVERTED TO C; ASCII BY ADDING 100(8).N;ZK; N IS A SEVEN BIT FIELD CONTAINING THE BINARY VALUE OF TWO DECIMAL DIGITS.; O; THEREFORE "DURA 80" IS ENCODED AS .WORD 022544,010120 ;RA80 FIXED DISK DRIVEC;N; ZERO IS A RESERVED VALUE;.;  .MACRO UDADF$ X,Y .ENDM .ENDMW .MACRO FEADF$,L,B .MCALL DEFIN$ .IF NB L'B1 ...GBL=1  .IFFN ...GBL=0V .ENDC ; Word 19 DEFIN$ FE$EXT,1 ; 22-bit extended memory support (bit 1)C0 DEFIN$ FE$MUP,2 ; Multi-user protection support1 DEFIN$ FE$EXV,3 ; Executive is supported to 20KWS* DEFIN$ FE$DRV,4 ; Loadable driver support DEFIN$ FE$PLA,5 ; PLAS supportR6 DEFIN$ FE$CAL,6 ; Dynamic checkpoint space allocation/ DEFIN$ FE$PKT,7 ; Preallocation of I/O packetsE1 DEFIN$ FE$EXP,8. ; Extend task directive support* DEFIN$ FE$LSI,9. ; Processor is an LSI-115 DEFIN$ FE$OFF,10. ; Parent/offspring tasking supportC8 DEFIN$ FE$FDT,11. ; Full duplex terminal driver support' DEFIN$ FE$X25,12. ; X.25 CEX is loadedi8 DEFIN$ FE$DYM,13. ; Dynamic memory allocation supported' DEFIN$ FE$CEX,14. ; Com exec is loadeda5 DEFIN$ FE$MXT,15. ; MCR exit after each command mode9 DEFIN$ FE$NLG,16. ; Logins disabled - multi-user supportF ; Word 2: DEFIN$ FE$DAS,17. ; Kernel data space supported (bit 17.)6 DEFIN$ FE$LIB,18. ; Supervisor mode libraries support2 DEFIN$ FE$MP,19. ; System support multiprocessing8 DEFIN$ FE$EVT,20. ; System supports event trace feature3 DEFIN$ FE$ACN,21. ; System supports CPU accountinge6 DEFIN$ FE$SDW,22. ; System supports shadow recording 4 DEFIN$ FE$POL,23. ; System supports secondary pools@ DEFIN$ FE$WND,24. ; System supports secondary pool file windows> DEFIN$ FE$DPR,25. ; System has a seperate directive partition5 DEFIN$ FE$IRR,26. ; Install, run, and remove supportD4 DEFIN$ FE$GGF,27. ; Group global event flag support5 DEFIN$ FE$RAS,28. ; Receive/send data packet supportF5 DEFIN$ FE$AHR,29. ; Alt. header refresh area supportD3 DEFIN$ FE$RBN,30. ; Round robin scheduling supportD: DEFIN$ FE$SWP,31. ; Executive level disk swapping support2 DEFIN$ FE$STP,32. ; Event flag mask is in the TCB ; Word 3; DEFIN$ FE$CRA,33. ; System spontaneously crashed (bit 33.)R, DEFIN$ FE$XCR,34. ; System crashed from XDT= DEFIN$ FE$EIS,35. ; System requires extended instruction setF9 DEFIN$ FE$STM,36. ; System has set system time directiveE4 DEFIN$ FE$UDS,37. ; System supports user data space> DEFIN$ FE$PRO,38. ; System supports secondary pool proto TCBS: DEFIN$ FE$XHR,39. ; System supports external task headers+ DEFIN$ FE$AST,40. ; System has AST support # DEFIN$ FE$11S,41. ; RSX-11S systeme) DEFIN$ FE$CLI,42. ; Multiple CLI supports= DEFIN$ FE$TCM,43. ; System has seperate terminal driver poole5 DEFIN$ FE$PMN,44. ; System supports pool monintorings6 DEFIN$ FE$WAT,45. ; System has watchdog timer support7 DEFIN$ FE$RLK,46. ; System supports RMS record lockinge2 DEFIN$ FE$SHF,47. ; System supports shuffler task ; Word 4F DEFIN$ FE$CXD,49. ; Comm exec is deallocated (non-I/D only) (bit 49.), DEFIN$ FE$XT,50. ; System is an P/OS system2 DEFIN$ FE$ERL,51. ; System supports error logging1 DEFIN$ FE$PTY,52. ; System support parity memory < DEFIN$ FE$DVN,53. ; System supports decimal version numbers; DEFIN$ FE$LCD,54. ; System supports loadable crash driversW> DEFIN$ FE$NIM,55. ; System supports deleted fixed task images6 DEFIN$ FE$CHE,56. ; System supports disk data caching2 DEFIN$ FE$LOG,57. ; System supports logical names6 DEFIN$ FE$NAM,58. ; System supports named directories7 DEFIN$ FE$FMP,59. ; System supports fast map directive' DEFIN$ FE$DCL,60. ; DCL is default CLIr4 DEFIN$ FE$DDS,61. ; Named directory mode is default* DEFIN$ FE$ACD,62. ; System supports ACD's+ DEFIN$ FE$NCT,63. ; System has NCT support;: DEFIN$ FE$LSD,64. ; System has LUT scan in LOADR disabled< DEFIN$ FE$PC3,65. ; System supports Professional 3xx series ; personal computers;+&; Hardware feature symbol definitions ;- ; Word 1- DEFIN$ HF$UBM,-1. ; Processor has unibus mapd00M   DATADATADATADATA; DEFIN$ HF$EIS,-2. ; Processor has extended instruction sete2 DEFIN$ HF$QB,-3. ; Processor has a QBUS backplane: DEFIN$ HF$DSP,-4. ; Processor supports separate I/D space4 DEFIN$ HF$SWR,-5. ; Processor has a switch registerB DEFIN$ HF$CIS,-8. ; Processor supports commercial instruction set: DEFIN$ HF$FPP,-16. ; Processor has no floating point unit ; Word 26 DEFIN$ HF$NVR,-17. ; PRO-300 Non-volatile RAM present. DEFIN$ HF$INV,-18. ; Non-volatile RAM present. DEFIN$ HF$CLK,-19. ; PRO-300 clock is present= DEFIN$ HF$ITF,-20. ; Invalid time format in non-volatile RAMF2 DEFIN$ HF$PRO,-21. ; Hardware system is a PRO/3xx3 DEFIN$ HF$BRG,-32. ; PRO-300 Bridge module presentF;+); Definitions of bits for TFEA$ directiver;D; Second task status word bits;-1 DEFIN$ T2$WFR,1 ; Task in waitfor state (1=yes) 3 DEFIN$ T2$WFA,2 ; Saved T2$WFR on ast in progressD* DEFIN$ T2$SPN,3 ; Task suspended (1=yes)3 DEFIN$ T2$SPA,4 ; Saved T2$SPN on ast in progresse( DEFIN$ T2$STP,5 ; Task stopped (1=yes)3 DEFIN$ T2$STA,6 ; Saved T2$SPN on ast in progressn1 DEFIN$ T2$ABO,7 ; Task marked for abort (1=yes)s4 DEFIN$ T2$AFF,9. ; Task is installed with affinity3 DEFIN$ T2$SIO,10. ; Task stopped for buffered i/oA< DEFIN$ T2$SEF,12. ; Task stopped for event flag(s) (1=yes)2 DEFIN$ T2$REX,13. ; Requested exit ast specified5 DEFIN$ T2$CHK,14. ; Task not checkpointable (1=yes)26 DEFIN$ T2$DST,15. ; Ast recognition disabled (1=yes)- DEFIN$ T2$AST,16. ; Ast in progress (1=yes)5;+$; Third status word (attribute bits);- e2 DEFIN$ T3$GFL,17. ; Group global event flag lock8 DEFIN$ T3$SWS,18. ; Reserved for software services use5 DEFIN$ T3$CMD,19. ; Task is executing a cli commando: DEFIN$ T3$MPC,20. ; Mapping change with outstanding i/o , DEFIN$ T3$NET,21. ; Network protocol level0 DEFIN$ T3$ROV,22. ; Task has resident overlays8 DEFIN$ T3$CAL,23. ; Task has checkpoint space in image3 DEFIN$ T3$NSD,24. ; Task does not allow send data.0 DEFIN$ T3$RST,25. ; Task is restricted (1=yes)8 DEFIN$ T3$CLI,26. ; Task is a command line interpreter2 DEFIN$ T3$SLV,27. ; Task is a slave task (1=yes): DEFIN$ T3$MCR,28. ; Task requested as external mcr func.0 DEFIN$ T3$PRV,29. ; Task is privileged (1=yes)1 DEFIN$ T3$REM,30. ; Remove task on exit (1=yes)2< DEFIN$ T3$PMD,31. ; Dump task on synchronous abort (0=yes)9 DEFIN$ T3$ACP,32. ; Ancillary control processor (1=yes)  c;+7; Status bit definitions for fourth status word (T.ST4)t;- F; DEFIN$ T4$SNC,33. ; Task uses commons for synchronization27 DEFIN$ T4$DSP,34. ; Task was built for user i/d space2; DEFIN$ T4$PRV,35. ; Task was priv, but has cleared t3.prvk' ; with GIN (may reset with gin if  ; T4$PRV SET)7 DEFIN$ T4$PRO,36. ; TCB is (or should be) a prototypen< DEFIN$ T4$LDD,37. ; Task's load device has been dismounted/ DEFIN$ T4$MUT,38. ; Task is a multi-user tasko8 DEFIN$ T4$CTC,39. ; Task has been processed by gin ^c ; abort0 DEFIN$ T4$FMP,40. ; Task has fast map hdr ext. .MACRO FEADF$ X,Y .ENDM FEADF$o .ENDM FEADF$DSP,34. ; Task was built for user i/d space2; DEFIN$ T4$PRV,35. ; Task was priv, but has cleared t3.prvk' ; with GIN (may reset with gin if  ; T4$PRV SET)7 DEFIN$ T4$PRO,36. ; TCB is (or should be) a prototypen< DEFIN$ T4$LDD,37. ; Task's load device has been dismounted/ DEFIN$ T4$MUT,38. ; Task is a multi-user tasko8 DEFIN$ T4$CTC,39. ; Task has been processed by gin ^c ; abort0 DEFIN$ T4$FMP,40. ; Task has fast map hdr ext. .MACRO FEADF$ X,Y<0W  &&00   [ & Olse:We3fx4ffF F VNgr +g> (E .J %E 2&E (E PdE (E E :E `E XE iE tE qE |E (J ,E 8E 8E VNJ SJ i^E v^E wJ yJ \}J J .J 5J qJ J e^E E E xsE pJ E (E TE E ,h`ThtE 0 i}Cp{Hg>_M*fM*%{@+g>}{)WJ)WJ))XJ)XJ)ZJ)ZJ, J,!J,R"J,(J,CMJ,NJ,SJ,yJ,\}J-DJ-EJ.J.J.J.J2J2.J2pJ2J2銹J2J2ًJ3^sJ3sJ:Ki_MfM{i,yn$2+g>d6&E d&E d(E l(JlCMJlNJlSJl\}JtpJ!!g>'!%}6!}~:[!}~0q!i`q!yi+"Y J+"J+"zJ+"K"J+"'J+"(J+"YJ+"J+"J+"ZJ+"2J #n~i#}i#Oqj,#j#""J#wJ# zJ#J#J#.J#J#yJ#yJ#N&J#yJ#v~J%E %E %E %r!E %#E % #E %#E %LE %ZE %kfE % qE %tE %wE %xE %E %CE %E <&kE <&DE <&%E <&E <&zE <&(E <&w*E <&:E <&H;E <&SE <&`E <&eE <&fE <&fE <&pE <&pE <&KqE <&%tE <&iwE <&lyE <&9E <&E I&}ic&Jc&Jc&Jc&L Jc&Jc&Jc&Jc&Jc&Jc&Jc&;Jc&Jc&Jc&Jc&Jc&~Jc&Jc& Jc&"Jc&"Jc&#Jc&#Jc&#Jc&4&Jc&'Jc&,Jc&";Jc&|KJc&jLJc&_MJc&MJc&NJc&SJc&TJc&UJc&WJc& XJc&XJc&gYJc&^Jc&dJc&eJc&eJc&fJc&dfJc&fJc&9gJc&pJc&pJc&krJc&wwJc&xJc&yJc&yJc&hzJc&}Jc&Jc&Jc&Jc&Jc&RJc& Jc&#Jc&ƹJp&H&E &ZE &]fE &tE &tE &CyE |' E 'dkx'ekx'E 'IRE ' qE 'ąE 'E (k(J(zJ(WJ(&XJ(YJ(mJ(J(ZJ(@J(iJ(J(J(5J(yE ( E (QE \)zE \)E \) E \)KE )E )u:)[ME ) E )PE ),E )nEE )sEE )EE )_GE )GE )2HE )4E )ZE )p u:)'E )TyE )E )0J)%E )'E )^E )PsE ) E )E )%E )LE )WE )WE )E )ZE )8E )xu:)` u:)VJ)J)(J)VNJ)SJ)CTJ)VdJ)[dJ)jdJ)fJ)fJ)gJ)pJ)nrJ)sJ)wJ)yJ)\}J)pE ) E ) E )w E )pE )KqE )E )%u:)5u:)E )t E )E )E )BxE )OzJ)PzJ)E )!E )dE )VgE )[}E )p u:)u:)u:)XE )pE )E )E t*St*St*St*GSt*I"St*3St*NSt*rSt*sSt*sSt*sSt*zSt*St*St*bSt*։S*4S*S*S*S* S*8&S*@,S* XS*@wS*wST,KJT,JT,JT,J,l,1z.,on,VNm~,Qm,:dm,Oql,u~,n-l`.Qz.#0J#0J#0J#0J#09J#0DJ#0LJ#0MJ#0vJ#0J#0)J#04J#0J#0J#0TJ#0UJ#0J#0J#0xJ#08J#08J#08J#08J#08J#08J#08J#08J#0:J#0k;J#0;J#0;J$0!J$0R"J$0(J$0SJ$0sJ,0J,0J,0σJ,02J,05J,0qJ,0J-0J-01J00pJ00qJ00sJ00sJ00sJ20,J20,J20,-J20.J20.J408J408J408J408J409J40Q:J40W:J40;;J40:<J40wJ40uwJ40wJ40wJ40xJ40xJ40CyJ40NyJ40RyJ40yJ40yJ40yJ40yJ401zJ40wS:KwS:iwS:owS:wS:wS:xS:xS:xS:ByS:FyS:WyS:yS:yS:yS:yS:azS:zS:}S:S:S:S:S:+S:|S:AS:iS:yS:S:S:$S:CS:dS:hS:S:S:S:S:S:ۑS:S:BS:DS:S:S:2S:S:1S:D;KS;@jS;vS;LS;S@;(h,T;ST;8ST;ST;ST;ST;ST;7ST;!ST;;"ST;I"ST;`ST;dST;4fST;$qST;sST;wST;DyST; zST;zST;*}ST;ST;ST;3ST;ST;SlK[MJlK_MJKHNfJNJzQDo|S]oT|(JT(JT(JT(JTJTJTLJTQJUQdJU-}JU}JUJUVJU JU+}JU,}JUV}JUqJWE WE WzE WWE WwE WwE WxE WyE WBzE WE WZE W@E Yh,[K[YE [YE [o["E [8E [;E [}[E [L [8E [WE [YE [E [ZE [`[Kr[#E [y[[[ u:[<}E [\}[[XE a9JaKJa"Ja"Ja;Ja#;Ja/KJbJbIJb[Jba^Jbs^JbKJ b<}J barJ bsrJ bJ bӞJb"Jb#"JeDf &pfrpfHfHfHfHfHfHfHfHZggr lhJlhWJlhYJlhYJkkkZSn]Jn^Jn^Jn_JnL`JnR`Jn`J q}n q_M~ qfM~Iqs IqvHKq sKq^sYqtb[qMtsrsr%.s@8s]Js^Js`JUs%tcs}tst JsJsJs#JsQJs,XJs`XJsLqJs}JsJsxX[t{8J[tƹJ[tƹJ[tƹJtwJtyJtJt Jt{S?{0S?{pS?{S?{S?{pS?{NS?{@S@{0S@{NS@{NSA{0SA{SA{SB{NSC{SD{0SE{SE{SG{S}S}S}S}4S}yS}S} S}H S} S} S}kS}S}>S}S}S}S}S}S}S}S}!S}I"S}8&S}](S}(S}2S}2S}T3S}3S}5S}8S}O:S}:S}D;S}KS}MS}vNS}QS}RS}WS}KXS}:YS}`YS}ZS}ZS}`S}:dS}fS}fS}(gS}iS}pS}UqS}qS}sS}HwS}JwS}wS}wS}xS}xS}xS}xS}yS}yS}8}S}V}S}]}S}c}S}~S}S}S}S}0S}փS}׃S}؃S}كS}ڃS}ۃS}܃S}݃S}ރS}߃S}|S},S}S}S}S}@i ~L S ~ S ~GS ~I"S ~YS ~pS ~ qS ~)qS ~[qS ~brS ~urS ~rS ~rS ~sS ~sS ~sS ~sS ~zS ~S ~5S ~S ~S ~$S ~:S ~S ~ۑS ~{S ~^S_MfMa |Sa |SbSSd}Sk |Sl8 Sl Sl Sl Sl Sl!JlR"Jl(JlCMJlNJlSJlQ\SllSllSllSlsJlsJlyJl\}JlSlSlSlSlSlSsSuVYSuySuySuySuySuySvӁSvSvSvSvSvSvSvSvSvSvSvSvSJ6JL J J J`qJwJ7xJAyJNyJyJyJJJCJCJCJCJC,JCQJCSJC\XJC|ZJC fJCfJCUqJCrJCsJCxJCkzJkJkJk'JkKJkTJkfJkfJkxJ'%}g>LdJ.JSSvS|@Hi`` 8Tō,ōwȍ8 ȍȍ`ʍ8TˍsˍH}r2~i``ÐHXxԒJԒJԒJԒ7!JԒ#JԒxQJԒWJԒWJԒqJԒLqJԒ[qJԒVsJԒ;xJԒJԒ}JԒJԒRJ:k.J. J.8J.KJ. LJ.^J.qJ.BxJ.yJ.yJ4wJ#S#֯S#S#S-S-'S-(S00   DATADATADATADATA-?S-S-[S-S5|S5S5S5^S5fS5ٱS5$S55S5QS1K1o1pp1qp1rp1sp1tp1up1vp1wp4}6L 9`=Kr?y?BC\}C\DF\ȟ^Whp!th!h&h'}s:2/KJP:Tv>0:iw<lvwzw}} Ա2&@Ա&@Ա(@ձ?|ձSBձW?Tֱfa@oA f0 0# 02XAfDF`;C22&@&@(@fa@e;CV*yѲ:DXܲ""Rܲ#yܲ#yܲ`yܲ)dyܲGdyܲ@wzaK3a[M3aVNb2bG3c2 6"cIqcd?!4vd)&<ld;5dȟe&6"e&6"eMeMeMeMeZe$3e?3ffft:fy:9ggggpg,pgg}9iDjmlE;mo;p# ph;p &=pJ,^pK,pZBpiw<lpvwzpwpr"&6rSr,}frbrbrCzrs2s2 6"s.2sks}wBwBwtCwL "wk wzwwwxkDjxkDj00   [ & OlWe%Ps3fx4ff,dZ dR g* @~t; f2; v2F K VNr +g> ]` ]p `_$" Kq2 LJ+3xxe lڪ0۪6$@xdXRy[M3z.w &}%Sf&e _M*%{@}{1y|DL@:h;H4ve"4,@J~_Ml'5n X5fzz'5zzJW6J` }j` $a.bXR[ Sp[ @S[ AS'!%}0!# 6!}~:[!}~0! 6"#y~#'#L:#}#t!7#Oqj,#j &( &,E &@7 &oKL &pKN &yJ &zKN & &KHr&`;9&aVu'xx'dkx(jLP(yO (#9.(8(k,@,on,h9,l:,z:,Oql,hy-l`T.@H2d4:;YM^RK;SKq;T;>ZK^E`WtE`PZF`8F`WN`@H:3ax}3a~3af4a` 7a9ax9a^9a Ba8"5dp:dh;:dl<:diw<l:dvwz:dw:dwdv=ep^ev$ep!eDDfTafZBkf`;kfKqNf; >Tfv>0f]\g\ghykzS q}n q_M~2qW>7qb7qqz7qsIq?|VqM?T\qfsrsr%.s@84sUs%ts"&6tL ty@$t_3ukM3u^3u_63uIq4u%!T4u;;4uH;H5uZ5up5u%46u" 6ut:7u`"~9uX>u>uz>u>u#>uu'>uU(R>uT[>uN`^>uIq&>uTq>u!t<>uAy>u>ut>u%H?udd@u# &@u`BuW!Buq!Bu"bBuCuzDuslEudGuv vqZvXuAvP9wKrwNrwdwn7xsx+uyvAyNy dSyRTy`y%wy%y]tydLy@_MAfKqB!H! &z!p:VLd `}`(}BS|@h~BHC2YCw"}CVd (_DjaDX9}w * 8B pB  0 B o`$s}2d?!:fNU42l'4D  D"0NU42n X4D  D"0U4ӭJz'4ӭDs.@ft:@  D"0d;h  D"Jĥ[ĥ<C` >C ҥ, ~4B *㨂 De $ $ $ z ds.| DEe    *1  ˕03 "   ˔Ӕ ʥ7ft: U ZW D`@o@d?!@aVN@  D"04'h  D"8w *eB 8  oaVN"`0d?!U R!  D  D"0le&he&hc2 h\s2 h.  D"p *) l0, *) $ )*)0,40,6 U -Z#t! -De?@o@ft:@s}@  D"0H4h  D"Lw *f f ! fP ŀ)Bos}ft::e?U mz &@ mD@`@:@}s@ձS@}@@@e;@h&@ձ@h'@ X@zձW@X@e@,l@,z@}@4@ 8r@֯}@'@B(>D  D"0yuhvU>ƭZ(#>ƭD  D"0yyphyyBU Z&`; Ds@; @o@  D"0Xhfy:h   D"w DB C DBe ?De(e$2e (%[]%<> o s@s| 1 > ; U4R,h00   DATADATADATADATA4Dph@d;@aVN@  D"0|g}h  D"* 5)%Eefffff f% EDD%][%><  1 aVNXd;^phU4J,l4Dg}@o@  D"0 ,lh  D"w  wo g}U4J,z4Dg}@o@  D"0,zh  D" w wo g}U JRK Dq:@i@  D"0mlEh  D" Mwiq:U :SKq D  D"0&moh  D"*  DP5R RRR U RT DmlE@o@aVN@  D"0*lEh  D".w *eB 8  oaVN*mlE U4mJ:dh4mDs@d;@  D"0phh  D"e( 1  `((   >: 5s<w $o|d;`| w1  %,,:4  ph`U?WJdv?WD&s@s@  D"0p &h  D"ef  Ee2 UfD Ԕ %:ԕ: f& sV|f&f& & Ε lle  NsU :f; D  D"0t; h  D"xf&5ҕ[ "5ҕ, 5ҕ]E 5 5  e0Ґ U :fv D  D"04vh  D"8    f e  C C C e`U R2qW Dr@r@w@  D"0rh  D")  wrrU bIq DrC@w@r@o@s2 @  D"0&ձh  D"*w 0,0w  o rCr s2 &wU rVqM D`@eZ@o@rS@f@ft:@s}@  D"0ձWh  D"w *&fB IB D  ? 5   ,*+*1,\\1,^^pBBpDDpFFeB &o`"s},ft:4s}@ft:B|eB **p**0 B1 BweZrS@fU -zty -Ds@  D"0fahX2&h&h<ֱfahL(htԱ2&hԱ&h0Ա(hh  D"e(BA &e(H0 A f AfAD&)2ss6sDsRs`sns|s|&pDCe(e$fҕ[ ,ҕ, "ҕ]e(0 >E 5  e0Ґ U :vXu D  D"0oh  D" &ff U J D`@f@  D"0"2Xh  D"& 8 !Հ)w*w00 '  [ & Ol`$fU rKq DeZ@o@rS@aVN@ft:@  D"0,ձSh Xh֯}h  D"0w ww ww w8o aVNeZoaVN rS$o(aVN.ft:U rh~ Ds@xk@s@4}@f@  D"0Zwh2wh"q:h   D"^0+1e  %p*w f( f)f sxk"s.f\4}U RH Dw@w@o@  D"0`;h  D"w wwoww|U :Y D  D"0wth  D",*1U j} DrC@w@r@aK@o@s2 @  D"0Te;h  D"Xw $0,0w 46  )0406 0 *&o rCr s2 .aK4wU Z(_ Ds@s@  D"0Vxkhxkhih>  D"Z8Ae f"( UCɗ+e$&% 8sDsU Ra Dq:@i@o@  D"0Ѳ:h  D""w *D  woi q:.U z &, D)HN<&`H)H>[XH)^H<&%H WWH&CyH\)KH<&H(yH)nEHz)sEH<&KqHTH )EH( HL[;H&{PH`[8HHWH&{Hd6&H%kfH%ZH@d&Hz qH'ąH |H)H#)H4)H%H PdH :H )_GH))HWH)TyH$'IRH&{ZHzWzH@'H)H0)GH%wH@%xH [#H%CH )2HH4) H,)BxH) H-<&%tH<&9H `H$z)[MH &H %HB)pH<&pH<&pHWwH (H 2&H(d(HWwH i^HV v^HPt!H)w H.z)H)PH8)KqH'HF xsH[YHtw(@w BwDwFwHw&-H 6lF8sU4=J@4=D X@K@  D"0'h  D" 8eB   XK0Uvz &yvD  :(}h:`hh4fahxGP}h\h@Ѳ:hX:Zh:h}h @hPz=B@=F\JN:R 8rV@Z`;^Ѳ:X^wwwwwwwwwwwwwwwwwwwwwԱ2&Ա& Ա(ֱfa2&&( fa$y(?T,GP}0wBvF;VNJ,lN,zR4V֯}Z X^ձS"^wwwwwww22XlE K'ձW:syh^`;hԱ(hh`rhBiwh2 hb:hjvwh6hp!hyh*:_hwh:2Xh w:6  66,6^% N a Uvz(jLvD:(}@:`@@fa@`@:@}s@GP}@\@Ѳ:@:Z@ձS@z:@}@@@e;B F{H$9KH}xH$9;H%{!H:GH H}D;H:qH:H:qH,wfH:"qH:&qHz:&H:$qH:.qH:(qH$9YH}H&$9 H$9YH:WHP:a H$9YH,w{H ~sH:TqH:RHz$9H}HU:H :H:t H:qH:H8:H$9CfH$9DfH ~H:H:H ~sH$9ZZHz$9bH$9`&H ~H$9kH$9{H<H$9~ZH,wH:q!H $9ZH$9ZH}`H`:-HA{0H $9ZHz:x HvH;LH}4H ~sH:H:H wvH:!H:-H:}H`$9[H$9'H$93H$9[Hz$9H$9H,wWH:H$91H$93gH:H:-H ~$H@:H5^HlH5fH :#"HuVYHz}yHR}H;E{H?{pH$9rH$9&H:brH:crH$9fHt*bH@:krH $9H:vrH@t*H5ٱH zw+H:rH}pHk |H:rH :rH :rH:rH0:2H:rH8:rH} HD$9BH5$HlHz55H}8}H%$9g'H$9n'H<_Ht*zH$9sH$9H$9H?{pH ~:H:[KHkZH}qHV?{Hzt*GH$9'H$9H$9H$9H$9 H}V}H9}H H>:sH :sHx}]}HA}UqH6: sH:#H:sH z}c}H@*@wH5QHw:dH:KH?{@H:KH$9H}H:} HS:3H@:{3H:|sH }H<:sH`z:sH*wH }H=:sH:sH:sH:sH0:sH ~HT;8H:sH:KHlH $9CH:KHHz}!H :H$9VH$9XH ~ۑH:sHP$9|H:4H:tHT;wH$9.H:-tH`:,dH:1H}|H z:74HwHwHz-[H}`YH :vH$9H$9H:n'H$98H$9H:owHvӁH:H}HT:wHP:H:wHzt*H }ZHUƨz ]ƨD[@[Kr@[K@[}@[@o@ o0R h&h hFXh4 oV5ew  Bv    5Bw .o[([Kr2[F[}NR[KfU b& Ds@s@; @o@  D"0Xhfy:h   D"w OB C DBe ?De(e$2e (%[]%<> o s@s2| 1 >ߋ J ; (sUbDݪK@W@:<@00 G  [ & Oli@ Zg(08a}h@Qh$ Zg(w D&& VЕ- \Е-$w D  &Е. ce  Е:   B% W*WPit:<| & G`ЕJЕAЕNЕFЕEЕBЕMЕAЕRЕAЕPЕRЕMЕAЕYЕJЕUЕNЕJЕUЕLЕAЕݪKDUЕGЕSЕEЕPЕOЕCЕTЕNЕOЕVЕDЕEЕCUz.D:`@:Z@:@Aׁ  `)9H%EKQNdi%vhlAP AЕ Bf  & e6& e/& e*AHŀ ȕ Е Е Е & e & <:: ,: 6<( x:`j teЕ A %& eA Е A EA EЕ A A   $Е. : :_x *: 2[(}Ha}T@Qf[(}~[(}0 AЕ;    :ZUt0: t0D ,@,hC,h 0e   UXzNy XDNHQHHNBxH BxHQHN:dHBxHHN H  :\}hNt!ht!hN\}h\}ht!hUt02xxt0D "$CTh & @ @UB*`Dܲ`@ ke(0sh ke( Sw ܲ`UXBWXDܲ#@ܲGd@ <Wh @ Av wܲGd>ܲ#UB3DܲGd@ ke(03h ke( C &qFre @AE2cD! D2rܲGd|8 HUJ4fDܲ#@ܲGd@ ke(0"4fh ke(& & CC w ܲGd$ܲ#rUt0: t0D  @,hC,h eUJ;VNDܲ#@ܲGd@ ke(0F VNh ke( RRRwܲGdܲ#Urr +Dܲ#@ ke(0D+h!!hh2+h xQh}h$r +h ke(H97; uwy{D& fW#v&wFܲ#URbs;D V9phBYh@;(hv8h:h Z L@W @@@ 8@ A Be   @  @ A@@K@P @UByXDܲ`@ ke(0,h ke( w ܲ`UHJTHDܲ#@ܲGd@ ke(0 `Th ke($ & w ܲGd"ܲ#UJDܲ#@ܲGd@ ke(0{h ke( _w ܲGdܲ#U J֯L Dܲ#@ܲGd@ ke(0q!yh ke( ew ܲGdܲ#UJ֯Dܲ#@ܲGd@ ke(0q!h ke( aw ܲGdܲ#00 O  DATADATADATADATA2UW &=e00 W  [ & Ol e@ B  $ݪK6d;URD z@*@ \q@4u~@ <}h @& %NBwA & fww z4u~2 \q>*URsD,0z@ܲ#@ܲGd@)%@ Zgh ^&  & e mw&f&fe  s&ܲGd,0z)%,ܲ#B,0zF)%UBձDܲGd@ ke(0pIqh ke(t   _(  ?f'& f' ?E@@ a B 0e  ܲGdURձDs@ܲGd@ ke(04Kq hKq^h ke(8KM & & &&& ܲGd4sUBsrDܲGd@ ke(0.srh ke(2 e@AB ܲGdUJ#DܲGd@ܲ@w@ ke(0Yqh ke(  wܲGdܲ@wUXRUs%XDܲ#@ܲGd@ ke(0(cs}hUs%h ke(,Q &wܲGd*ܲ#UBձzDܲ`@ ke(0[qMh ke( /w ܲ`UzxDlOpH)H)H)H)xH)p H)%H[ H)` H)p H)5H  UXJx+XDܲ""@ܲ#@ܲGd@ vx+h z W#0A %+B%&AB`B`D&  B~> ee Jb"b "╫w HܲGdpܲ#xܲ""UJ XDܲ#@ܲGd@ ke(0&wh ke(* GwܲGd(ܲ#URyDܲ#@ܲGd@C,@ ke(0$yh ke((  wܲGdC,&ܲ#U Ry Ds@ܲ#@ ke(0@Iqh0y}h ke(D B (W/ D  7 f& }w(sBܲ#UJy%Dܲ#@ܲGd@ ke(02y%h ke(6 @  EwܲGd4ܲ#UXZ #XDܲ#@ܲGd@ Zg(0y@h.yhX:` Zg( e2w 7 Nw&f&fCDEe  > ܲGd X:`0ܲ#:ܲGd>X:`BX:`HNPܲ# dX:`(|   cs X:` UB zDܲGd@ܲ@w@ 2sh 6 X eETETwܲGd4ܲ@wUB 4fDܲ#@ܲGd@ z4fh  -w ܲGdܲ#|U:xDܲ#@  ÐHXh & 1w ܲ#vU2*D *h )UJܲ#Ds@ ke(0ܲ#hܲ#h ke(sUJܲ`Dܲ#@ܲGd@ ke(0ܲ`h ke( &w ܲGdܲ#UJܲ)dDܲ""@ ke(00 _  DATADATADATADATA0Lܲ)dhܲGdh ke(PC & ` `Ba#   L Lܲ""UBܲ@wDܲ#@ ke(0(ܲ@wh ke(,CC    &w*ܲ#^U~R~Dܲ#@ܲGd@ .Qh,1hHwh ` e BBCC w qqq0 fqC Q IܲGd4ܲ#VܲGd4|w C Q Qqwܲ#ܲGd2ܲ#UXJXDs@ܲGd@ ke(0,Cph ke(0 & & &&&ܲGd,sUJ%Dܲ#@ܲGd@C,@ %h "  w ܲGdC, ܲ#Uz}Ds@N@N]@ܲ#@ܲGd@ X@NBx@N{8@N{@$9΅@C,@ }h    *e  f w  NܲGdC,N X$NBxDN{PN]ZN{8^fhܲ#lsrs~$9΅ | e UXR1yXDN@ݩ%@ XN]hN{8hN{h \&&&f&f   ` % s*N.ݩ%$UJ` Ds@# z@$9@ s&   (w  *ܲGdC,$(*ܲ#.s4N8ݩ%UJ[!}Dܲ#@ܲGd@C,@ 2[!}h 6  2 w ܲGdC,4ܲ#UB#yDݩ%@@ RL h V&f&f   /<    sݩ%Utbf]tDs@G> @$9s@GVN@:$@:4F@ Rh &)_& & &  & && && Ε 61& 1)ȋ& & & ,s.G> 2GVN6:$B$9sZG> nG> T|& & & & & & Ε 1 &  a@ G> GVN:4F6G> UJ q}Dܲ#@ܲGd@C,@ 2 q}h 6  2 w ܲGdC,4ܲ#UJr%Dܲ#@ܲGd@C,@ r%h   w ܲGdC,ܲ#UtBs@8tDܲ#@ܲGd@ s@8h   eCBBaIBBJbCBB ɒɐBܲGd| & &  wܲ#UR9wKDܲ#@E4d@ܲGd@C,@ (9wKh ,  wܲGdC, E4d*ܲ#UtBrwdtDܲ#@ܲGd@ drwdh00 g  [ & Ol h e ICBBaI    B wܲGdfܲ#UXJ u~XDܲ#@ܲGd@ &,u~hwu~h * =w =w ܲGdܲ# ܲGd(ܲ#<UjSyD5!@5 @ @@@  Xhݩ%hwh<  ,#b3!  b3!a & > >265 : FX |>UXzTy`XDNHQHHNBxH BxHQHN:dHBxHH N H  :\}h>Nt!h>t!hN\}h\}ht!h   >>> >|tld2UJy%Dܲ#@ܲGd@C,@ y%h    w ܲGdC,ܲ#UBy]Dܲ""@ܲ#@ Xy]h \@$A E& & B ?E@  D Q w% Nܲ#Xܲ""UBydDܲ#@ܲGd@ ydh  w ܲGdܲ#UJy@Dܲ#@ܲGd@C,@ y@h "  w ܲGdC, ܲ#UXBT,XDܲ#@ܲGd@ '%h  w ܲGdܲ#zUX:LdXDܲ`@ Ldh  w ܲ`UZSDܲ#@ܲGd@C,@ TShSvhSh  XKM&     2 &wܲGd&C,Vܲ#UXB|@XDܲ#@ܲGd@ @|@h D &  eq B C1GwܲGdBܲ#Utb!tD)@4@@W@<&e@)p@ 4@h 8w &&E  AHW )p)p<&e)"4&<&e().)p2)p$UXz!p:XD$9 @)Bx@)p@W@t<@ @)@)Ps@:@ @h Dw   . ʥ:W:t<) )Bx$ *)p<$9 >)PsUtz! &tD)@)Bx@$9~Z@)p@W@<&e@ @)@)Ps@t @)p@00 o  DATADATADATADATA:@ 4h w    j2-  (@ep@ D  e  ` e RW $9~Z")Ps.:4<&e6):t <)B)BxJ)pP)pT b:F|     R#R- )Bx:& ,)pUB @~D  D"06ݪKhih  D":&  m  f A N  %UN@B:h;N@D  D"0@d;hm h  D"D&   `@ ` B   & A @    UΚXb9}ΚXDi(Pi Zi di .tՕ: @e e0e0UiU0zܩu~0DݪM@ݪK@W@i@ab@ Zg`Zg(0ܩu~h:h::"h Zg`< Zg(w &fe&  w &ff=elC    5p  d  W"W`iri|  A &@d &@ &m M M` M`5u  @ @ e@ M`u 5`2ii$i0i:ݪKFݪKRݪKfݪKBW @ `u  #;eu o eA eS S S B CeS S S A eS , ab HZg`PݪM ^Zg`fݪMxݪM0tS S B ee Zg`ݪMUΚXBתZΚXD Zg`0תZhabh$ Zg`4JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECUX:i XD Zg(06i h Zg(:&f!  E D  E E C B Ί AUXzXDfH`fHH fHH p&H fHjzHxfHfHKH fH " 5H fH@ UXB%PsXDs@ K0 ""h K$'1sUNBi(ND@ Zg(0ni(h Zg(r AUUUU    T T T T ee(e(e(e(T $)T T TU U U U  ~UXz#'XD)@:Z@)Ty@:@[Y@[Y@)@)Z@)W@)W@[<}@o@:Ա2&@[(}@)X@ Zg(0dh Zg(w EH  P A Е:%ʋ B   5Е" e pe d\o)))X"00 w  [ & Ol:<)TyNԱ2&`)W[<} n)W[Y z[Y[Y  z|Е"A 2 A (A Е.A Е;A      HХ"Е" B)W[Y )W)W$)W0)<)ZB:ZN[(}nUt02#}t0D yh &3UXz ]XD1o@ sJhab1vh 1ph1sh1uh 1wh1qh"1th1rhc0Z aX cXb $*J c c c c c c c$ c*c^   fwvAAU Xs ssss$s *s 0s@a VaZ1oUz[ SD:}s@Ѳ:@s@:br@@:s@ @o@T; z@ 8r@g@'@zg<@g@g@g@g@$9!@:@gC@gR@g@g@g@g@w@:@:NK@ Zg(0D۩ Shgh:g,h. Zg(w T&8uE@ %a `g0?@MMWw5@5*6 T @2ȋoNgXT; z| eT5 N ) @   J 5 w DC uw  E  ggC%  6  p + k5e d ^ [U5@ g.g$9!RgUXB XD `E4dhEdhHʫh~h d% & ^UU U U UUUN a  Uz[ ASD:s@$9p@}s@Ѳ:@s@d@ 8r@'@:@w@ Zg(0*ghghZghghB Zg(5 A&)f  u BA U` B`CAB5 b| Rusx$9p|ABAB6C4 Е/ЕLЕBЕ:Ae,P   S  ɥ ɥ    d ɥ ɥ ɥ@ɥ/ U|Xz S|XDs@:G@<&Kq@`@$9p@)@}s@Ѳ:@)Ty@-0@s@<&9@z:t @)p@)P@)@h'@ @ (@)W@X@o@:@ 8r@=@)'@@=@b)Ps@' q@$9!@)p@:@<&D@ Zg(0l@ShASh?Sh Zg(w 5 funhj uhdB 0jwaw<  vw &  AdBbA>o*)TyH)PR$9!T)P`<&9b)h:t nѲ:r)Ps|ep& f P aAAf@pnp C֋ 8Ë7AB`f VT:GѲ:@)pD)pH L)PsP)PX:^Ѳ:b)Pf)Psn)pr)pa`& WaWz  ɥ"N  ajfu-nhwFɥ;]a)wנ"å.@j  a`$9pl$9!t Bw@ ŀajTI& af n00   DATADATADATADATA`V @e,w jj4`&<&9<&Kq<&D ()<)PsD)Psnolj ɥ@@aujk,bp 5f fˇ ȕ ‡ eSY <=X@=l e,5 funhwe,aja`W- f`nw^uhnw@ DlljaCe###3X`v)W3 & w  jDl@ TeT5l@ @ L:)P$$9!&)Ps,28o>)PN 8rX)W\)Pt`|sd e  & @ & V An5jP a@@` > ~ @ 8 ( X)W)'}s2' q4)8h'zs. ePa-eP BAnB X/   @   RՀaePÕwePP6 -0P -0Pd-0Ph$9p p-0Pz-0P\)K@>U0R40D\s!s@ v4h U9qhdh(Zgh6 M@BCAf } f&  GRR@ 3   &$&~ Vs!s|& e% ~ԥ ~F` F` f&Pe e  @  veT  % % % %% % %@ABCD f @  f% % % % t ' %&f&f`%  : BBe  *uuuuFE@aaH~  r 6  < (  .   "    x  l l&f&D%% %% v  % %%l% Z %% %% D   % %%% " eTTTT@A% X@Ae BA 2`u u `u @A `u u `u p B` `ee% ; vu u d5 5 w6%%% %e;u u u  x ueM u u  ueM u  ueM ue eeeeeeeeeeeeuuuu%&D   5  5\  n eUNBݪMND@ Zg(0TݪMh Zg(X @    e  T T T T H1CdT T L $)dL t dL d  FUX*ZKXD \Uj\DDs@c&~@T;@o@  D"0DhDh\Dh  D"% w &Ba +- ʥ# . U 0   b c&~T;s$o*|  `     JUQXR^QXDo@  D"0\h hdh  D"w  w & W+W- Ba. W#  B0  c  c S W %ec e`s oo<|  # 3  & ˥ Z ^C  UXZ7aXD@S@?S@o@ N.D,hD,h ۩"S Rw w &e`` a  `e`P D 2o ?So@S ۩"S` ,۩"S :۩"S`UXzR:XD<&`@<&Kq@`@[8@)P@[Z@)W@)p@s@BDRFHJHLxNPhRTVX| &- ae  $e  & & & & && & & & &)4  ^b: R &E@ U U @ P J .1 6 (  2  4t  AW A t  %& & & & & & & & & & & & & & & & & & & & tT:t v:  V4  X@ :tP A V @ HI @ :E wAW HAfW l H @ eB   n wL B f  B \   %ww x ^f <D |  U w 6 H L P@ U w  eC "@d U w| t wh t  @44Vt   B B   4 4 H   (B r 4m -c  :  t \%ww H     C    wL J w< K w, B  T w  w x X@ ~wtUXz4a` XD?H"ɪKr@X@""@w@ 46L h Ch C\}h9`h1ohZBh =Krh1Kh4}h?yh ~, , t t t 4  ~, ""  wɪKr X ,  UXzBa8"XD c[H [KrH[KH[}H[yH[L H [\}H[H [`H[oH zUt:ͫetD  ̅ ͫeh  ̅enU0R 0DB,0zH*sH&5 H.sH([H, U< z`}< Dȍ`Hȍ8 H8THʍ8TH HōwH`H`HiHHˍsHȍH"ō,HˍHH *U< z`(}< D # ZT`8Ti w s,`: H8 `#5!h #  ZT  ` 8T i   w    s   , `  H 8    `UJ DݪK@W@ <GP}hZg(0?Th Zg`*ABDEFIMNOPQRSTUXYZ<>zv      " $  &" (&$ &~4& B( >*  l,  x. 0 2 4 6 8 :*: < Zg(w && D¥%  B&ХVA C e!  aebE  Е%*WB> :2 'LBCH   00   [ & Ol .MAIN. Zg(n 7 $& Lwf@> 07 ԋ_  7 j hz Zg`Zg` Zg`Zg`@y `^ Zg`$$ `^&Zg`&4:t 6Zg`@ :Zg`>FZg`JZg`XZg`j7 E L4  w7 " 2 $  h jZg`Zg`Zg`$Zg`2Zg`   J!     rZg` Zg`H Zg` $Zg`(4Zg`8P )pD)pH}V)p \Zg`d)ptP|Pbp  Zцw    T߇ B܇7ق&7 %n)p)p }P "Zg`$)p*)p.}4Zg`D)pJ)pPZg`fZg`pZg`tZg`i wVȥ ȥ ȥ*  ȥ$ȥ/ ̥/   7    . Zg`i P)p)p2Zg`dZg`zZ ¥ ¥ p R $  ~ P$ &)p*)Ty.)'2' q4)8' q:)><&e@) DZg`F)pL)pPhp! XZg` fZg`$n@ tZg` U N 1ȥ9C ʥ ʥ ҥ@w Vp @ Zg`P 8r Zg`"P&:DZg` rZg`V~=|L  \fdwȕ e 7 5j1-C 7 | Zg`Zg`fZg`d Zg`&@=4P8)W " @>    (zZg`Zg`Zg`Zg`Zg` Zg`(&Zg`DZg`J:LZg`@ PZg`>VZP `Zg`n` tZg`^( 4A Е.) ыѝѝɝwы@>4 t&R Zg`()Ps Zg`A: "Zg`)0M4M8MH:2JZg`@ NZg`>UtR$ep!tDs@ztCyH c&|KH6T,HkxH!)pH ,R"H L H0{mH`qH a9H"-DH)XHaKH #{8H)jdH z7{ HT,KHc&RH'(ZH0{HtyH(zH@.8H,yH .Hc&H0{DHlSHc&WH:#0Hz#0H4{*LH#0Hs,XH@#09H [t{8H3^sH)VHc& XH?tBxH.yH (H)\}H-EH#{8HztsH3sH0{9H#0HtsH.{H)ZH #z zH.yH #0LHc&dHAkH'-0H0{H0{Hzt H#0DH0{Ht8Hs`XHn]H #0vH# zH0{nHl!H #0MH c&jLH#""H#0H)VNHzԒLqH4{MHԒ[qH-01H40wHn^HlyH(WH 3jHc&pH#0)H #04H c&pH#{mHT,HzԒqH@CkzHc&XH7Ԓ7!H c& H2uNEDH NUNE2>uU(NED©#H NUNE2>uTqNEDOH NUNE2>uu'NEDH NUNE2>u!tNEDuT[NEDH NUNE2>uAyNEDȫ H NUNE2>uIqNED H NUNE2>uNEDjuNEDpŜH NUNE2>u#NEDH NUNE2>uN`NED(XH NUNE2>uNEDJH NUNE2>uzNEDi5uH NUNE2>u%NEDt!H :UNEz3u^NED5 @@@ dhPhHh hHh Wh hRWh  h  @ &e6% 4% 4%04 f   w eF w 5 >RX5 fUN:7xsND5 @ $7sh (e6@a "H5 W ΥJ%S ΥD  D"0 h 4}h fh  D"**W ӵR0!# ӵD  D"0eMheMheMheMh  D" W Ӎbu'x ӍD @q:@w@i@o@  D"04@h  D"8w ! & &  e o w$i0q:W ΥBep ΥD @  D"08pJ,h  D"< 8   **$ W ΥJev ΥD @  D"00pK,hskh&  D"4 8  ** W ΥjDfT ΥD @pZ@o@r,}@f@  D"0D 8rh.:h  D"Hw ) * w46l0 o pZ,r,}0fW ΥZkf`; ΥD @d;@m @  D"0pL lܲ#ps |<   e$9΅zWrrwDs@ܲ#@ܲGd@L @$9΅@w@C,@ rwhrwh  p`  2@  e *  w  *pܲGd"C,8w>L rܲ#vs&|/<   e$9΅WrAyDs@ܲ#@ܲGd@L @$9΅@w@C,@ AyhAyh       2@  e 9ܲGd"C,zw|2       w   /<  L Vܲ#Zs|$9΅ eWtrtDs@ܲ#@ܲGd@L @$9΅@w@C,@ hh  x  2@  e .  w *xܲGd"C,8w>L zܲ#~s.| /<  e$$9΅WXJ_MXDܲ#@ܲGd@ :_MhfMh > ~ Q Q Q IwܲGd<ܲ#WXJ_MXDܲ#@ܲGd@ L_MhfMh P   x qqfII1 qq  wܲGdNܲ#WXJ_MXDܲ#@ܲGd@ 6_MhfMh :  Q Q QwܲGd8ܲ#WXJ q_MXDܲ#@ܲGd@ L q_Mh qfMh P   x qqfII1 qq  wܲGdNܲ#vW<:ܲ""<D ke(0ܲ""h ke(& VW뀻bjM뀻Dܲ""@ܲ#@$99@ `h&`hy`h y`h & @EA:% NP& @5A E& B _"E@  D Q 5E,|w+w E  ܲ#ܲ#$99(ܲ""WJF Dܲ#@ܲGd@ ke(0.F h ke(2> qqqQѕwܲGd0ܲ#Wz[ @SD:s@$9W@@@`@}s@Ѳ:@s@c&_M@@9x@h'@T;w@zu@ (@X@o@Ա2&@ 8r@$9pw@'@=@@=@=@$9!@g@:@g,@bw@ Zg(0Lghg<hghgChgRhghngh2gh Zg(u j  5 , ɥ/b J  1ECe, e   g,Ng|' @%7U @ E $  , D(@e , 5@@e,C& n: K s@w@&p > :%%ȕp*f  D9x9x*@:=Hc&_MT$9pwVs\T;w^stux=tȕp* eBEETH EBe Z5    O 2e(5 @&B &@=DgT'Zgdz`B 2=200   DATADATADATADATA D(:(@$8 &SY e2edE_$8$8$8lw < &1 57D(e:(EE_ U@5 e`############# e" (885(o * 0 H0 J0 L   !  w   D 5 4 >$9!D}sJwRoVsZ (`Xh}s~Ա2&du46 D A(! ! (* @&s eB<B7 pB!# Zp *pB   dw ɥ ɥ   ɥ ɥ ɥ@ɥ/ h' $9W" 8r4:^WXb:;XDݪK@W@:<@i@ Zg(0va}h@Qhb Zg(w T MAOR_FTEDAS$SY& & & ff  oN eͥD ͥM ͥYͥZW|PAAMA   &f& C @H_NTMOS$SY& & &  f f,:<J:<  P  >eeD&& \Е- Е-' Vw D  &pWtЕ. ce  Е:   B%  & G`ЕJЕAЕNЕFЕEЕBЕMЕi>:<XݪKAЕRЕAЕPЕRЕMЕAЕYЕJЕUЕNЕJЕUЕLЕAЕUЕGЕSЕEЕPЕOЕCЕTЕNЕOЕVЕDlЕEЕC2W|R:=|RD Cx0=h Cxf&f ` *  !נ נ  נננ"D נaנz E ѐEp(p| נ$נ0נ9נAנZנ_נ:  Vנ[ȕ]נ<ȕ>ȋ8 |נ%נ*נ-נ.נ0נ9נAנZȠ |נ0נ7נ*נ,A lȠj h  qנ"A   #A cנ$tנ%נ*נ0נ9נAנZנ_נ.  נ.נ; fנ0נ9 ]נ- X נ* QA  נ, Dנ=  >5 B>U (wZנ/* . .נ$נ-נ.נ0נ9נAנZ נ_ נ:Dl  Dנ"  0W|RB@=|RDd@ Cx0@=h Cxf&f E^`  UQ  UQ ËUI U `e |ccD    Ĕ%*.A U 0 0 W ,Uw@W /D D cBDaW- N WN WOD!B N{ CECCD! D! ΋5  e ΐ UpRpRtpBC5D  KR΋KBAE:D0CĊ f eB  Dҁ CSĊ  |dȀWC E Cs Ε f)& 6 l(*  E 'W " =lN  W :+W = 1 #W ,W / %W %W *Հ W <W [W >W ] v(* 6 eWtXz9axtXD @[Kr@[}@[@[@o@[`@ Kr4ɪ3qhɪ2qhɪ#qhZɪ;rhɪJrhɪKrh 4Twh4P t t tK0 Kr1 5  B5BUW/ - ',  wE5  [}<[\[}\|  wE5 E  W5  ,E @[ EWX 52 / & 4 &9 &9U3uE uUw [|5   uE uU5`AU & E& & E00   [ & Ol& De&fr[`` $̋"5 & & & & De&fH ̋E U6[`T)aw 6  w  e 1 w 0" , 0o4[F[KrJ[}N >WtXz9atXDs@[@[`@ Kr4ɪ3qhɪ2qhɪJrhɪKrh 4Bwh4 K0 Kr5  <5<UW) ' !  wE5   8[L|wE5 E  W5  ,E 0[ EWO ,) &  4 &9U3uE uUw5  [|  uE uU5`AU & E& & E& De&f $̋"5`[`N & & & & De&fH ̋E U$[`ws KWtXj9atXD[`@ Kr4>ɪ3qhɪKrh 4wh4K0 KrB5  5U   E5@? & E& & E& De&f $̋"5 & & & & De&fH2[`r[`| ̋U bWTz3ax}TD @[Kr@[}@[@[@o@[`@ Kr4ɪ;rhɪJrhɪKrhB 4wh4P t t tK0 Kr1 5  .5.UW  ,   wE5 E [}<[\[}4|  WLJ5  ,E [ E U &W2/ , & 4 &9 &9U3uE uU[t|.5`.U & E& & f&ËDef Ë )̋E U<[`T)aw 6  w  e 1 w 0" , 0o4[F[KrJ[}N WTz3aTDs@[@[`@ Kr4ɪJrhɪKrh 4wh4 K0 Kr5  (5(UW      wE5 E  8[$|W͇5  ,E [ E U &W)& #  4 &9U3uE uU.5`.[b|U & E& & f&ËDef Ë )̋E U*[`ws KjWTb3a~TD[`@ Kr4>ɪKrh 4pwh4K0 KrB5  5U   tE U *5@*& E& & f&ËDef Ë )̋U@[`NW 2,d D  D"0LW bK VN Ds@s@o@f@  D"0;VNhaVNh  D"w BC "& <SY*p0p21E%0*w*e "fo6sbffs"| D CB.EW4'rw4'Ds@r"&@q:@w@i@o@f@  D"0 `h  D"w *8I *=)98 eB &&  U 00   DATADATADATADATA**o"w8ihq:|e *Nlv ΋*.)  & #!)&ePe && 2i^s~q:p* wr"&fW ӧZe ӧDs@q:@i@f@  D"0vcIqh  D"z0f& e %&&eH U   Ef p  ws8i`q:xfW Zz Dq:@i@  D"06eZhrShft:h   D":    f u    i(q:lW : & D  D"0h  D" W 'z, 'De&@py@r@r@pJ,@o@mo@f@  D"0}h  D"w ) 8C * ) *w*  ep p &o pJ, rNfbpyje&| C  =  0* = Eե^ A e@ v߇ Ep |p  , J *` |r:tC#   D moW 'r,hy 'De&@r@pK,@o@mo@sk@f@  D"0 h  D"w ) 8C * ) *w* ep p   o pK, rNfZe&|C  =  0* = Eե^ A e@ ߇ Ep p  8 V *`)w rskxr6tC#   D moW zE`W Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@Rf@@ft:@fy:@cIq@s}@  D"0Hhp!h  D"w  D 8#"#)%ĥ ĥ w  0 o sfy:|*0 @Q$    0 40 60))  :# 3&*w #( P) @#2s}Jft:XcIqreZ**fff  &*wL. P358e$8w22&e  d?!,eZPsnsvt%p8q #) *R*)@#0l C# 028 0&r|b0ĥۇAĥĊ  000 0 @0 &*0 @ u # eBFr,}dipq:l&B B * eBe>  # #D #&0  rSmlEr"&"id#   0@e 6@#040 6w!p2$q:NfFW zE`PZ Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@baVN@f@@ft:@fy:@cIq@s}@  D"0d^Whh!h  D"w & w  D  8#"#)%ĥ ĥ oos fy:|w 0 *0 @Q$    0 40 60))  eB  :# 3&*w #(Bs}NaVNfft:tcIq P) @#**fff 00   [ & Ol &*wL. P358e$8w2eZ8d?!HeZlst2&e %p8q #) *R*)@#0l C# 02sBr돀8 00ĥۇAĥĊ  000 0 @0 &*0 @ bbr,}lu # eB&B B * eBe>  # #D&iq:&rS.mlE2r"&>i #&0 #   0@e 6@#040 6w!p2@q:jf8W zF`8 Db@s@r"&@r@q:@i@o@r,}@aVN@f@@fy:@"  D"0h&h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60))eB &*   w6 . 2358e$8aVNxs8w22&e %p8q #) *R*)@#0l Cs"Nr돀t# 028 00ĥۇAĥĊ  000 0 @0 (bnr,}&*0 @ u * eBe>  # #D #iq: r"&,inl&0 #   0@e 6@#040 6w!p2.q:XfW zF`W Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@RaVN@f@@ft:@fy:@cIq@  D"0Nh'h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60))eB  :# 3&*w #( P) @8aVNPft:^cIqxeZ#**fff  &*wL. P358e$8w22&e  "d?!2eZVsts|t%p8q #) *R*)@#0l C# 028,r돀 00ĥۇAĥĊ  000 0 @0 &*0 @ u # bLr,}jivq:leB&B B * eBe>  # #D #&rSmlEr"&(ij0 #   0@e 6@#040 6w!p2*q:Tf.W =Z:dw =Ds.@D@o@  D"0zpwh wh  D"w *  )Ĕ%.&%;D  5)5@DD ͥ*Ce a%wUX5@ o^D|5U U*U  5@XU@5 U*U  ʥ*%C!.D` *weC5U5  5 5@e s. t* W jafZ De&@e&@r@c2 @w@aK@  D"0`pZh  D"d 6 p 4 0`p f 64 46 e*w & e&,w:c2 HaKNr\e&W r7q Db@wt@rk@wL @bG@s2 @  D"0<rhrh  D"@00    DATADATADATADATAe6p 4 8  &s2 "b*bG.rk2wL :wtW :\q D  D"0hr,}h  D"l. 00l  0 *W Js"& Ds@@  D"0Nr"&h  D"R82e& 0 0 0 80 B0 0 0 0)#0.s"W 'RtL 'Dq:@i@  D"0 rkhwkh  D"$ U4 6wi"q:fW R$t_ Dw@aK@s2 @  D"0rh  D"&4&6 64 wr%64 2 6  l0 & Z46 64 :s2 6s2 paKH|)0406 0 *0e6p 4 @wW Jw Dw@f@  D"0wL h  D"" Bfep`pww f(W4Χr4ΧDb@wt@bG@wk@a[M@f@  D"0`whwh  D"d ) !f  e) . e6p 4 08*w&bGa[M&wk2wtXbbfW Bd Dw@  D"0wh  D" ) . .wW4gz\g4gD @e&@py@r@r@w@w@pJ,@o@mo@r,}@f@"  D"0}h  D"w n832cd& & & B  2OΕ   N Υ$Ε  2o pJ,|2Υ   v Ε f e * e*w &mo>wTr,}` pf|py*0, L  ) )    l 0l  r*e&8 t   ee@ x0 j) E ep )w ,  N w  J B # f  `* w (r,}0wwTr,}` pf|rH  ) )    l 0l   e& t  ee@ t. f' E ep )w ,  w  JwB # f  `* w)0406 & r,}w sk:mo` dfll0 NW Υ2  ΥD  D"0W %b& %D @q:@i@o@  D"04ch`rh  D"8w  )  U o $i4q:W4εj:dvw4εDs@s@o@aVN@\D@  D"0pvwh vwh 00    & Ol D"w *D YTfe<ӕ_ S :ӕ: & "& Ε4'o0s|sx| *'**UqqC ӥ:  Ce   *ssP\DhaVNW?WJ#L?WDp &@s@  D"00eh  D"4&ff  'p &"sW>b=>D&p &@s@@$9pw@@=@ Cx0,=h Cx eeȵe ~  DE  ȵ2e &e  %'@^e5 *@=Xp &`$9pwbs|5@558Beeȵee& q1B$8e q1 B  W ej &( eDs@  D"0yyph &hByy y y((  BBFF y W z:dw D&p &@s@[;@piw@pvw@pw@o@aVN@  D"0}sh p# h*s}h  D"eB  8 $&w *<S1   K U U@  f&"  aVN&oR[;fpwxp &r|')'* *%0*ND   EU   ,sssJaVNbpvwhpiwnpwW z:dw D&p &@s@[;@piw@pvw@pw@o@aVN@  D"0}sh p# h*s}h  D"eB  8 $&w *<S1   K U U@  f<0W '`> 8;KP[[[648hF4;h4Kh5[5[&5[L 8$L ;L Kr /~r /&r 0/ && }L}@8||KMP)}E8OaB: &O 686;j6KV))T)/z/ 0[R[[zw8l;Khύ؍N8;K% f|CtfCtCtd ))T)/b/  08N;fKD]\Ϋ\ϫZzXXYuxnH{nnqg;qz8ON;OKO:#"ة*r(*:**{"z// 0[[[ks20ttt`8hR;h(Kh2/2/R2 0[ Rip!!!!@!! '!)'!)'!)H6!86!;@6!K[!8[!;d[!K4q!tq!tq!ts!8hs!;h`s!Kh"" #)& #) #) #8  #; #K#8&#;x#K6#H#H4# I & &Q !&9!&Jt"& "&)"&)"&Hb"& I"&z/&&#/&)V/&9h/&Jh2&2& ^3&^)jI& uI&8HI&;2I&K&^S&bS&:4&{; (^(8(z\(l(8(;,x<;,{<;,<A,x<A,{<jA,<DE,kK_dE,KaE,8O`E,..X. .xU.{U.U.H&.Hh. I(3 sv 4^V> 4bVN9t9tB9t:ks,L;{ CKkK](2M z=M{^pxQ<xQ8xQSfT8T;$TKs{UsUss8stvt9wx l9w{ 9w 9wKOVDwx<Dw{<Dw<aw8aw;awKLiwtiwtiwtrwrwrw rw8hrw;hrwKhw)w)w)wx w{ w x/x/x 0x8hB&ySAJy @ybyy \Cy:6Eyx @Ey{ Ey Ny8&Ny;NyKRyx Ry{ ~Ry <Wy[Wy[Wy[<yx y{ y yx y{ y y)y)y)y8y;PyKyx xy{ 2y y)y)vy)4y}ERyxUy{UyU\yaZya$y by8hy;hyKhyx#y{#\y#4zx4z$4zDzHDzHXDz Ikz8kz;kzK}x }}{ ~} ~d~/~/~ 0~[L~[F~[`[EX3cH') ')') I8h xI;h "IKh L:>L8h hL;h LKh S8 S; jSK <Sz Sz S { S8LS;SK|x (|{ n| R 8bSb 58h25;h5Kh}>/(/ 0aa bJx#2{##\,E\tH\ I8la stw,"?dwtR@\a s e^sa sr^? .BLKB NFILES*S.BFHD+B .IFF .BLKB NFILES*T .ENDC .PSECT PSECTL .ENDM FSRSZ$fU .MACRO FDBDF$ .MCALL FDBSZ$ FDBSZ$B ...PC1=.L .BLKB S.FDB .ENDM FDBDF$EU' .MACRO FDAT$A RTYP,RATT,RSIZ,CNTG,ALOC .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$L, CBYTE$ ,F.RTYPA CBYTE$ ,F.RATTC CWORD$ ,F.RSIZD CWORD$ ,F.CNTG CWORD$ ,F.ALOCS .ENDM FDAT$AU .MACRO FDRC$A RACC,URBA,URBS, .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LF CBYTE$ ,F.RACCH CWORD$ ,F.URBD+2  CWORD$ ,F.URBD .ENDM FDRC$AU( .MACRO FDOP$A LUN,FNPT,DFNB,FACC,FACTRL .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$L. CBYTE$ ,F.LUNT CWORD$ ,F.DSPTL CWORD$ ,F.DFNB CBYTE$ ,F.FACC  CWORD$ ,F.ACTLR .ENDM FDOP$ACU! .MACRO FDBF$A EFN,OVBS,MBCT,MBFG  .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$L CBYTE$ ,F.EFNC CWORD$ ,F.OVBSD CBYTE$ ,F.MBCTO CBYTE$ ,F.MBFGC .ENDM FDBF$AOU, .MACRO FDBK$A BKAD,BKSZ,BKVB,BKEF,BKST,BKDN .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LF CWORD$ ,F.BKDS+2$ CWORD$ ,F.BKDS  CWORD$ ,F.BKVB+2U CBYTE$ ,F.BKEFP CWORD$ ,F.BKSTN CWORD$ ,F.BKDNC .ENDM FDBK$ACU+ .MACRO FDAT$R FDB,RTYP,RATT,RSIZ,CNTG,ALOCE .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBW CMOV$B RTYP,F.RTYP CMOV$B RATT,F.RATT CMOV$W RSIZ,F.RSIZD CMOV$W CNTG,F.CNTGC CMOV$W ALOC,F.ALOCM .ENDM FDAT$RBU! .MACRO FDRC$R FDB,RACC,URBA,URBS, .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDB$ CMOV$B RACC,F.RACCO CMOV$W URBA,F.URBD+2C CMOV$W URBS,F.URBD .ENDM FDRC$RFU, .MACRO FDOP$R FDB,LUN,FNPT,DFNB,FACC,FACTRL .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDB CMOV$B LUN,F.LUNT CMOV$W FNPT,F.DSPT, CMOV$W DFNB,F.DFNBD CMOV$B FACC,F.FACCL CMOV$W FACTRL,F.ACTLP .ENDM FDOP$R$U% .MACRO FDBF$R FDB,EFN,OVBS,MBCT,MBFGC .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDB CMOV$B EFN,F.EFNR CMOV$W OVBS,F.OVBSA CMOV$B MBCT,F.MBCT$ CMOV$B MBFG,F.MBFGB .ENDM FDBF$R U0 .MACRO FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN# .MCALL LDFDB$,CMOV$B,CMOV$W,CMOV$2P LDFDB$ FDBP CMOV$W BKAD,F.BKDS+2C CMOV$W BKSZ,F.BKDSV CMOV$2 BKVB,F.BKVBO CMOV$B BKEF,F.BKEF$ CMOV$W BKST,F.BKST$ CMOV$W BKDN,F.BKDN$ .ENDM FDBK$R~U .MACRO FDBSZ$ .IIF DF,S.FDB,.MEXIT .MCALL FDOFF$,DEF$L FDOFF$ DEF$NC DEF$L S.FDB .ENDM FDBSZ$BRU .MACRO FDOF$L .MCALL FDOFF$ FDOFF$ DEF$L .ENDM FDOF$LCU+ .MACRO NMBLK$ FNAME,FTYPE,VERS,DEVNAM,UNITD .MCALL RAD50$,CWORD$,00    & OlNBOFF$ NBOFF$ DEF$LL .IIF NDF,...PC1,...PC1=0$ ...PC3=...PC1 ...PC1=.K .=...PC1+N.FNAM RAD50$ ,S.FNAM/2 .=...PC1+N.FTYP RAD50$ ,S.FTYP/2 CWORD$ ,N.FVERK .IF NB,DEVNAM .=...PC1+N.DVNM .WORD "DEVNAM .ENDC CWORD$ ,N.UNITI .=...PC1+S.FNB$ ...PC1=...PC3 .ENDM NMBLK$SRU .MACRO NBOF$L .MCALL NBOFF$ NBOFF$ DEF$LD .ENDM NBOF$LEU .MACRO LDFDB$ FDB .IIF B,FDB,.MEXIT .NTYPE PAR$$$,FDB .IIF EQ,PAR$$$,.MEXIT MOV FDB,R0 .ENDM LDFDB$U .MACRO CMOV$W VAR,OFFSET. .IF IDN,<#0>,. CLR OFFSET(R0)A .MEXITM .ENDC .IIF NB,VAR, MOV VAR,OFFSET(R0) .ENDM CMOV$WVU .MACRO CMOV$B VAR,OFFSETM .IF IDN,<#0>,N CLRB OFFSET(R0) .MEXIT .ENDC! .IIF NB,VAR, MOVB VAR,OFFSET(R0)B .ENDM CMOV$BU .MACRO CMOV$2 VAR,OFFSETF .IIF B,VAR,.MEXIT MOV VAR,-(SP) MOV @(SP),OFFSET(R0)F ADD #2,(SP) MOV @(SP)+,OFFSET+2(R0) .ENDM CMOV$2RU .MACRO CBYTE$ VAR,OFFSET .IF NB,VAR ...PC2=.V .=...PC1+OFFSET .BYTE VAR .=...PC2R .ENDC .ENDM CBYTE$U .MACRO CWORD$ VAR,OFFSETN .IF NB,VAR ...PC2=. .=...PC1+OFFSET .WORD VAR .=...PC2< .ENDC .ENDM CWORD$T"U& .MACRO CSTRG$ VAR,OFFSET,MAXLG,FILL=0 .IF NB, .NCHR ...PC3, .IF GE MAXLG-...PC3F ...PC2=., .=...PC1+OFFSET .ASCII ^VAR^F .REPT MAXLG-...PC3 .BYTE FILLS .ENDR .=...PC2R .IFF .ERROR .ENDCB .ENDC .ENDM CSTRG$NZU .MACRO CGET$B OFFSET,VARV" .IIF NB MOVB OFFSET(R0),VAR .ENDMZU .MACRO CGET$W OFFSET,VARF! .IIF NB MOV OFFSET(R0),VARS .ENDMHU .MACRO FCSBT$ GLOBL .MCALL DEFIN$ ...GBL=0R" .IIF IDN,,,...GBL=1 DEFIN$ FD.FTN,1 DEFIN$ FD.CR,2 DEFIN$ FD.PRN,4 DEFIN$ FD.BLK,10 DEFIN$ FD.RWM,1 DEFIN$ FD.RAN,2 DEFIN$ FD.PLC,4 DEFIN$ FD.INS,10L DEFIN$ FD.REC,1 DEFIN$ FD.CCL,2 DEFIN$ FD.TTY,4 DEFIN$ FD.DIR,10C DEFIN$ FD.SDI,20 DEFIN$ FD.SQD,40B DEFIN$ FD.ISP,2000B DEFIN$ FD.OSP,4000) DEFIN$ FD.PSE,10000 DEFIN$ FD.COM,20000 DEFIN$ FD.F11,40000 DEFIN$ FD.MNT,100000, DEFIN$ NB.VER,1 DEFIN$ NB.TYP,2 DEFIN$ NB.NAM,4 DEFIN$ NB.SVR,10. DEFIN$ NB.STP,20G DEFIN$ NB.SNM,40L DEFIN$ NB.DIR,100 DEFIN$ NB.DEV,200 DEFIN$ NB.SD1,400 DEFIN$ NB.SD2,1000F DEFIN$ NB.ANS,2000  DEFIN$ NB.WCH,4000P DEFIN$ R.FIX,1I DEFIN$ R.VAR,2D DEFIN$ R.SEQ,3D DEFIN$ R.STM,4D DEFIN$ FA.RD,1D DEFIN$ FA.WRT,2 DEFIN$ FA.EXT,4 DEFIN$ FA.CRE,10N DEFIN$ FA.TMP,20F DEFIN$ FA.SHR,40D DEFIN$ FA.APD,100 DEFIN$ FA.NSP,100 DEFIN$ FO.RD,FA.RD0# DEFIN$ FO.WRT,FA.WRT!FA.EXT!FA.CREV# DEFIN$ FO.APD,FA.WRT!FA.EXT!FA.APDM DEFIN$ FO.MFY,FA.WRT DEFIN$ FO.UPD,FA.WRT!FA.EXT DEFIN$ FA.ENB,100000R DEFIN$ FA.SEQ,40000 DEFIN$ FA.WCK,20000 DEFIN$ FA.POS,10000 DEFIN$ FA.RWD,4000  DEFIN$ FA.EXL,4000P DEFIN$ FA.LKL,2000D DEFIN$ FA.EXC,2000N DEFIN$ FA.DLK,1000. DEFIN$ CH.AND,1 DEFIN$ FD.RAH,1 DEFIN$ FD.WBH,2 DEFIN$ FL.AEX,1;E DEFIN$ FF.RWD,1 DEFIN$ FF.POE,2 DEFIN$ FF.NV,3  DEFIN$ FF.SPC,4 DEFIN$ FF.CHR,5 DEFIN$ FF.RWF,6 DEFIN$ FT.ANI,1 DEFIN$ FT.BBF,2 DEFIN$ FT.MBF,4 .MACRO FCSBT$ ARG .ENDM FCSBT$Y .ENDM FCSBT$NfU .MACRO DEFIN$ SYM,VAL .IIF EQ,...GBL-1,.GLOBL SYM SYM=^O .ENDM DEFIN$AU .MACRO FDOFF$ OFFSET  .MCALL OFFSET,DEF$I,NBOFF$2 NBOFF$ OFFSET DEF$I 0 OFFSET F.RTYP,1 OFFSET F.RATT,1 OFFSET F.RSIZ,2 OFFSET F.HIBK,4 OFFSET F.EFBK,4 OFFSET F.FFBY,2 OFFSET S.FATT OFFSET F.RACC,1 OFFSET F.RCTL,1 OFFSET F.BKDS OFFSET F.URBD,4 OFFSET F.BKST OFFSET F.NRBD,2 OFFSET F.BKDN OFFSET ,2 OFFSET F.OVBS OFFSET F.NREC,2 OFFSET F.EOBB,2 OFFSET F.CNTG OFFSET F.RCNM,2 OFFSET F.STBK OFFSET ,2 OFFSET F.ALOC,2 OFFSET F.LUN,1M OFFSET F.FACC,1 OFFSET F.DSPT,2 OFFSET F.DFNB,2 OFFSET F.BKEF OFFSET F.EFN,1F OFFSET F.BKP1,1 OFFSET F.ERR,21 O00   DATADATADATADATAFFSET F.MBCT,1 OFFSET F.MBC1,1 OFFSET F.MBFG,1 OFFSET F.BGBC,1 OFFSET F.VBSZ,2 OFFSET F.BBFS,2 OFFSET F.BKVB OFFSET F.VBN,41 OFFSET F.BDB,2 OFFSET F.EXT4 OFFSET F.SPDV,2 OFFSET F.FLG2 OFFSET F.SPUN,1 OFFSET F.CHR,1E OFFSET F.ACTL,2 OFFSET F.SEQN,2 OFFSET F.FNB,S.FNBN! .IIF IDN,,,.MEXITK .IF IDN,,C* .GLOBL F.FNAM,F.FTYP,F.FVER,F.DVNM,F.UNIT .ENDC F.FNAM=N.FNAM+F.FNB F.FTYP=N.FTYP+F.FNB F.FVER=N.FVER+F.FNB F.DVNM=N.DVNM+F.FNB F.UNIT=N.UNIT+F.FNB OFFSET S.FDB1 DEF$I 0 OFFSET FX.LEN,2 OFFSET FX.DMX,1 OFFSET FX.DLN,1 OFFSET FX.DIR,2 .MACRO FDOFF$ ARG .ENDM FDOFF$ .ENDM FDOFF$EU .MACRO BDOFF$ OFFSET2 .MCALL OFFSET,DEF$I DEF$I 0 OFFSET ,4 OFFSET B.VBN,4E OFFSET B.BBFS,2 OFFSET B.NXBD,2 OFFSET ,1 OFFSET B.BFST,1 OFFSET ,2 OFFSET S.BFHD! .IIF IDN,,,.MEXITD .MACRO BDOFF$ ARG .ENDM BDOFF$F .ENDM BDOFF$.vU .MACRO NBOFF$ OFFSET= .MCALL OFFSET,DEF$I,DEF$L DEF$I 0 OFFSET S.FNAM OFFSET S.FTYP OFFSET S.FNTY OFFSET S.FNBW OFFSET S.ANM1 OFFSET S.ANM2 S.FNAM=6F S.FTYP=2N S.ANM1=12.. S.ANM2=5. S.FNTY=/2  OFFSET N.FID,2. OFFSET N.ANM1,4 OFFSET N.FNAM,S.FNAM OFFSET N.FTYP,S.FTYPE OFFSET N.FVER,2 OFFSET S.NFEN DEF$L S.NFEN  OFFSET N.STAT,2 OFFSET N.NEXT,2 OFFSET N.ANM2 OFFSET N.DID,6I OFFSET N.DVNM,2 OFFSET N.UNIT,2 OFFSET S.FNBF DEF$L S.FNB S.FNBW=S.FNB/2B! .IIF IDN,,,.MEXITD .MACRO NBOFF$ ARG .ENDM NBOFF$F .ENDM NBOFF$F2U .MACRO FSROF$ OFFSET1 .MCALL OFFSET,DEF$I,DEF$L DEF$I 0 OFFSET ,4 OFFSET A.BFSR,2 OFFSET A.EFSR,2 OFFSET A.OWUI,2 OFFSET A.FIPR,2 OFFSET A.DPB,24.. OFFSET A.IOST,4 OFFSET A.DFDR,26. OFFSET A.DFBC,2 OFFSET A.DFUI,2 OFFSET A.JUMP,4 OFFSET A.MODE,2 OFFSET A.EXDS,12. .IF DF L$$GCL OFFSET A.LGBK,50. S.LGBK=50.F OFFSET A.PRS,28.E S.PRS=28. .ENDC OFFSET S.FSR2 DEF$L S.FSR2, DEF$I 0 OFFSET A.OUBK,80. OFFSET A.LODV,6 OFFSET A.LODI,42. OFFSET A.LIDV,6 OFFSET A.LIDI,42. S.LDV=6 S.LDI=42. OFFSET A.LDVL,2 OFFSET A.LDVA,2 OFFSET A.LDIL,2 OFFSET A.LDIA,2 OFFSET S.FSR5 DEF$I 0 OFFSET ,16. OFFSET D.DFID,6 OFFSET D.DFDV,2 OFFSET D.DFUN,2! .IIF IDN,,,.MEXITF .MACRO FSROF$ ARG .ENDM FSROF$O .ENDM FSROF$.U .MACRO FDSOF$ OFFSET5 .MCALL OFFSET,DEF$I,DEF$L DEF$I 0 OFFSET N.DEVD,4 OFFSET N.DIRD,4 OFFSET N.FNMD,4 OFFSET S.FIDS .IF IDN,,6 DEF$L S.FIDSI .MEXITF .ENDC .MACRO FDSOF$ ARG .ENDM FDSOF$ .ENDM FDSOF$FrU .MACRO DEF$G VAR,SIZ. .MCALL DEF$L  .IIF NB,VAR,.GLOBL VAR DEF$L VAR,SIZ .ENDM DEF$GVU .MACRO DEF$N VAR,SIZF .MCALL DEF$L, DEF$L ,SIZE .ENDM DEF$NFU .MACRO DEF$I IVAL ...TPC=^O .ENDM DEF$IU .MACRO DEF$L SYM,SIZI .IF NB,SYMI SYM=^O<...TPC>D .ENDC .IF NB,SIZ ...TPC=^O<...TPC+SIZ> .ENDC .ENDM DEF$LU .MACRO RAD50$ STRING,MAXWRD ...PC2=.D .RAD50 /STRING/ .IF GT,<.-...PC2>-^O<2*MAXWRD>3 .ERROR ;STRING RAD50 - STRING TOO LONG, TRUNCATED  .=^O<...PC2+<2*MAXWRD>> .MEXIT .ENDC .REPT ^O/2>> .WORD 0 .ENDR .ENDM RAD50$FU .MACRO QIOSY$ $$$GBL,$$$MSG) .IIF IDN,<$$$GBL>,, .GLOBL QI.VERI .IF IDN,<$$$MSG>, $$$MAX=0I $$MSG=1 .IFF $$MSG=0 .ENDC .MCALL IOERR$ IOERR$ $$$GBL .MCALL DRERR$ DRERR$ $$$GBL .IF DIF,<$$$MSG>,R .MCALL FILIO$ FILIO$ $$$GBL .MCALL SPCIO$ SPCIO$ $$$GBL .MACRO QIOSY$ ARG,ARG1,ARG2 .ENDM QIOSY$0 .ENDC .ENDM QIOSY$N U .MACRO IOERR$ $$$GBL .MCALL .IOER.,DEFIN$W .IF IDN,<$$$GBL>,0 ...GBL=1. .IFFD ...GBL=0 .ENDC .IIF NDF,$$MSG,$$MSG=0, .IOER. IE.BAD,-01.$ .IOER. IE.IFC,-02.Q .IOER. IE.DNR,-03.M .IOER. IE.VER,-04.= .IOER. IE.ONP,-05. .IOER. IE.SPC,-06.C .IOER. IE.DNA,-07.$ .IOER. IE.DAA,-08.00    & Ol .IOER. IE.DUN,-09.D .IOER. IE.EOF,-10. .IOER. IE.EOV,-11.O .IOER. IE.WLK,-12.I .IOER. IE.DAO,-13.. .IOER. IE.SRE,-14., .IOER. IE.ABO,-15. .IOER. IE.PRI,-16.N .IOER. IE.RSU,-17.. .IOER. IE.OVR,-18. .IOER. IE.BYT,-19.W .IOER. IE.BLK,-20.D .IOER. IE.MOD,-21.. .IOER. IE.CON,-22.N .IOER. IE.BBE,-56.$ .IOER. IE.STK,-58.D .IOER. IE.FHE,-59.C .IOER. IE.EOT,-62.R .IOER. IE.OFL,-65.R .IOER. IE.BCC,-66.P+ .IOER. IE.NFW,-69. ;-+ .IOER. IE.DIS,-69. ;9 .IOER. IE.PNT,-71.01 .IOER. IE.NDR,-72. ;O) .IOER. IE.TMO,-95. ;O .IOER. IE.CNR,-96.O .IOER. IE.MII,-99.O .IOER. IE.SPI,-100. .IOER. IE.NOD,-23.O .IOER. IE.DFU,-24.O .IOER. IE.IFU,-25.O .IOER. IE.NSF,-26.O .IOER. IE.LCK,-27.O .IOER. IE.HFU,-28.O .IOER. IE.WAC,-29.O .IOER. IE.CKS,-30.O .IOER. IE.WAT,-31.O .IOER. IE.RER,-32.O .IOER. IE.WER,-33.O .IOER. IE.ALN,-34.h .IOER. IE.SNC,-35.. .IOER. IE.SQC,-36.a .IOER. IE.NLN,-37. .IOER. IE.CLO,-38. .IOER. IE.DUP,-57.< .IOER. IE.BVR,-63.l .IOER. IE.BHD,-64.O .IOER. IE.EXP,-75.q .IOER. IE.BTF,-76.R .IOER. IE.ALC,-84.I .IOER. IE.ULK,-85.I .IOER. IE.WCK,-86.D .IOER. IE.DSQ,-90.U .IOER. IE.NBF,-39.U .IOER. IE.RBG,-40.F .IOER. IE.NBK,-41.K .IOER. IE.ILL,-42.U .IOER. IE.BTP,-43.C .IOER. IE.RAC,-44.S .IOER. IE.RAT,-45.T .IOER. IE.RCN,-46.R .IOER. IE.2DV,-48.R .IOER. IE.FEX,-49.N .IOER. IE.BDR,-50.C .IOER. IE.RNM,-51.C .IOER. IE.BDI,-52.N .IOER. IE.FOP,-53.O .IOER. IE.BNM,-54.P .IOER. IE.BDV,-55.R .IOER. IE.NFI,-60.D .IOER. IE.ISQ,-61.P .IOER. IE.NNC,-77.F .IOER. IE.NNN,-68.C .IOER. IE.BLB,-70.K .IOER. IE.URJ,-73.K .IOER. IE.NRJ,-74.Q .IOER. IE.NDA,-78.F .IOER. IE.IQU,-91.G .IOER. IE.RES,-92.K .IOER. IE.TML,-93.L .IOER. IE.NNT,-94.P .IOER. IE.UKN,-97.C .IOER. IE.NLK,-79.T .IOER. IE.NST,-80.N .IOER. IE.FLN,-81.V .IOER. IE.IES,-82.X .IOER. IE.PES,-83.R .IOER. IE.ICE,-47.M .IOER. IE.ONL,-67.I .IOER. IE.SZE,-98.P .IOER. IE.NTR,-87.M .IOER. IE.REJ,-88.V .IOER. IE.FLG,-89.I DEFIN$ IS.PND,+00.Q DEFIN$ IS.SUC,+01.C DEFIN$ IS.RDD,+02.N DEFIN$ IS.TNC,+02.B DEFIN$ IS.CHW,+04.J DEFIN$ IS.BV,+05. DEFIN$ IS.DAO,+02.N DEFIN$ IS.CR,<15*400+1> DEFIN$ IS.ESC,<33*400+1> DEFIN$ IS.CC,<3*400+1>O DEFIN$ IS.ESQ,<233*400+1> DEFIN$ IS.PES,<200*400+1> DEFIN$ IS.EOT,<4*400+1> DEFIN$ IS.TAB,<11*400+1>O DEFIN$ IS.TMO,+2. DEFIN$ IS.OOB,+3. DEFIN$ IS.TMM,+4.' DEFIN$ IS.RVI,+2. ; DATA SUCC. XMITTED8' DEFIN$ IS.CNV,+3. ; DATA SUCC. XMITTED- DEFIN$ IS.XPT,+5. DEFIN$ SB.KIL,-1. DEFIN$ SB.ACK,-2. DEFIN$ SB.NAK,-3. DEFIN$ SB.ENQ,-4. DEFIN$ SB.BOF,-5. DEFIN$ SB.TMO,-6. DEFIN$ SB.DIS,-7. .IF EQ,$$MSG2 .MACRO IOERR$ A .ENDM IOERR$F .ENDC .ENDM IOERR$U .MACRO DRERR$ $$$GBL< .MCALL .QIOE.,DEFIN$P .IF IDN,<$$$GBL>,E ...GBL=1> .IFFN ...GBL=01 .ENDC .IIF NDF,$$MSG,$$MSG=0F3 .QIOE. IE.UPN,-01. ;. .QIOE. IE.INS,-02.8 .QIOE. IE.PTS,-03.; .QIOE. IE.UNS,-04. .QIOE. IE.ULN,-05.D .QIOE. IE.HWR,-06.F .QIOE. IE.ACT,-07.N .QIOE. IE.ITS,-08.  .QIOE. IE.FIX,-09.B .QIOE. IE.CKP,-10.T .QIOE. IE.TCH,-11.S .QIOE. IE.RBS,-15. .QIOE. IE.PRI,-16.N .QIOE. IE.RSU,-17.. .QIOE. IE.NSW,-18. .QIOE. IE.ILV,-19.R .QIOE. IE.ITN,-20.Q .QIOE. IE.LNF,-21.N .QIOE. IE.AST,-80.. .QIOE. IE.MAP,-81.. .QIOE. IE.IOP,-83.  .QIOE. IE.ALG,-84.. .QIOE. IE.WOV,-85.n .QIOE. IE.NVR,-86.o .QIOE. IE.NVW,-87.S .QIOE. IE.ITP,-88.S .QIOE. IE.IBS,-89.S .QIOE. IE.LNL,-90.N .QIOE. IE.IUI,-91.R .QIOE. IE.IDU,-92.T .QIOE. IE.ITI,-93.S .QIOE. IE.PNS,-94.X .QIOE. IE.IPR,-95.P .QIOE. IE.ILU,-96.H .QIOE. IE.IEF,-97.S .QIOE. IE.ADP,-98.I .QIOE. IE.SDP,-99.U DEFIN$ IS.CLR,0 DEFIN$ IS.SET,2 DEFIN$ IS.SPD,2 DEFIN$ IS.SUP,3 DEFIN$ IS.WAT,4 .IF EQ,$$MSGE .MACRO DRERR$ A .ENDM DRERR$ .ENDC .ENDM DRERR$.U .MACRO FILIO$ $$$GBL .MCALL .WORD.,DEF00   DATADATADATADATAIN$. .IF IDN,<$$$GBL>, ...GBL=1S .IFFE ...GBL=09 .ENDC .WORD. IQ.X,001,000 .WORD. IQ.Q,002,000 .WORD. IQ.S,004,000 .WORD. IQ.UMD,004,000 .WORD. IQ.LCK,200,000 .WORD. IO.KIL,012,000 .WORD. IO.RDN,022,000 .WORD. IO.UNL,042,000 .WORD. IO.LTK,050,000 .WORD. IO.RTK,060,000 .WORD. IO.SET,030,000 .WORD. IO.WLB,000,001 .WORD. IO.RLB,000,002 .WORD. IO.LOV,010,002 .WORD. IO.LDO,110,002 .WORD. IO.ATT,000,003 .WORD. IO.DET,000,004 .WORD. IO.FNA,000,011 .WORD. IO.RNA,000,013 .WORD. IO.ENA,000,014 .WORD. IO.CLN,000,007 .WORD. IO.ULK,000,012 .WORD. IO.ACR,000,015 .WORD. IO.ACW,000,016 .WORD. IO.ACE,000,017 .WORD. IO.DAC,000,020 .WORD. IO.RVB,000,021 .WORD. IO.WVB,000,022 .WORD. IO.EXT,000,023 .WORD. IO.CRE,000,024 .WORD. IO.DEL,000,025 .WORD. IO.RAT,000,026 .WORD. IO.WAT,000,027 .WORD. IO.APV,010,030 .WORD. IO.APC,000,030 .MACRO FILIO$ A .ENDM FILIO$ .ENDM FILIO$0LU .MACRO SPCIO$ $$$GBLO .MCALL .WORD.,DEFIN$O .IF IDN,<$$$GBL>,A ...GBL=1. .IFFO ...GBL=07 .ENDC .WORD. IO.WLV,100,001 .WORD. IO.WLS,010,001 .WORD. IO.WNS,020,001 .WORD. IO.WAL,010,001 .WORD. IO.WMS,020,001 .WORD. IO.CCO,040,001 .WORD. IO.WBT,100,001 .WORD. IO.WLT,010,001 .WORD. IO.WLC,020,001 .WORD. IO.WPB,040,001 .WORD. IO.WDD,140,001 .WORD. IO.RSN,140,002 .WORD. IO.RLV,100,002 .WORD. IO.RST,001,002 .WORD. IO.RAL,010,002 .WORD. IO.RNE,020,002 .WORD. IO.RNC,040,002 .WORD. IO.RTM,200,002 .WORD. IO.RDB,200,002 .WORD. IO.SCF,200,002 .WORD. IO.RHD,010,002 .WORD. IO.RNS,020,002 .WORD. IO.CRC,040,002 .WORD. IO.RPB,040,002 .WORD. IO.RDF,240,002 .WORD. IO.RLC,020,002 .WORD. IO.ATA,010,003 .WORD. IO.GTS,000,005 .WORD. IO.R1C,000,005 .WORD. IO.INL,000,005 .WORD. IO.TRM,010,005 .WORD. IO.RWD,000,005 .WORD. IO.SPB,020,005 .WORD. IO.RPL,020,005 .WORD. IO.SPF,040,005 .WORD. IO.STC,100,005 .WORD. IO.SMD,110,005 .WORD. IO.SEC,120,005 .WORD. IO.RWU,140,005 .WORD. IO.SMO,160,005 .WORD. IO.HNG,000,006 .WORD. IO.HLD,100,006 .WORD. IO.BRK,200,006 .WORD. IO.RBC,000,006 .WORD. IO.MOD,000,006 .WORD. IO.HDX,010,006 .WORD. IO.FDX,020,006 .WORD. IO.SYN,040,006 .WORD. IO.EOF,000,006 .WORD. IO.ERS,020,006 .WORD. IO.DSE,040,006 .WORD. IO.RTC,000,007 .WORD. IO.SAO,000,010 .WORD. IO.SSO,000,011 .WORD. IO.RPR,000,011 .WORD. IO.MSO,000,012 .WORD. IO.RTT,001,012 .WORD. IO.SLO,000,013 .WORD. IO.MLO,000,014 .WORD. IO.LED,000,024 .WORD. IO.SDO,000,025 .WORD. IO.SDI,000,026 .WORD. IO.SCS,000,026 .WORD. IO.REL,000,027 .WORD. IO.MCS,000,027 .WORD. IO.ADS,000,030 .WORD. IO.CCI,000,030 .WORD. IO.LOD,000,030 .WORD. IO.MDI,000,031 .WORD. IO.DCI,000,031 .WORD. IO.PAD,000,031 .WORD. HT.RPP,010,000 .WORD. IO.XMT,000,031 .WORD. IO.XNA,010,031 .WORD. IO.INI,000,031 .WORD. IO.HIS,000,032 .WORD. IO.RCI,000,032 .WORD. IO.RCV,000,032 .WORD. IO.CLK,000,032 .WORD. IO.CSR,000,032 .WORD. IO.MDO,000,033 .WORD. IO.CTI,000,033 .WORD. IO.CON,000,033 .WORD. IO.ORG,010,033 .WORD. IO.ANS,020,033 .WORD. IO.STA,000,033 .WORD. IO.DTI,000,034 .WORD. IO.DIS,000,034 .WORD. IO.MDA,000,034 .WORD. IO.DPT,010,034 .WORD. IO.RTI,000,035 .WORD. IO.CTL,000,035 .WORD. IO.STP,000,035 .WORD. IO.SWI,000,035 .WORD. IO.CNT,000,036 .WORD. IO.ITI,000,036 .WORD. IO.EIO,000,037 .WORD. IO.RSD,030,014 .WORD. IO.WSD,010,013 DEFIN$ SD.TXT,0 DEFIN$ SD.GDS,1 .WORD. SB.PRT,020,003 .WORD. SB.CLR,010,036 .WORD. SB.RDY,010,033 .WORD. SB.NRD,020,033 .WORD. IO.LBK,000,035 .WORD. SB.CBL,010,035 .WORD. SB.CLK,020,035 .WORD. IO.CPR,010,033 .WORD. IO.CAS,020,033 .WORD. IO.CRJ,040,033 .WORD. IO.CBO,110,033 .WORD. IO.CTR,210,033 .WORD. IO.GNI,010,035 .WORD. IO.GLI,020,035 .WORD. IO.GLC,030,035 .WORD. IO.GRI,040,035 .WORD. IO.GRC,050,035 .WORD. IO.GRN,060,035 .WORD. IO.CSM,070,035 .WORD. IO.CIN,100,035 .WORD. IO.SPW,110,035 .WORD. IO.CPW,120,035 .WORD. IO.NLB,130,035 .WORD. IO.DLB,140,035 .WORD. IO.CTY,000 '   & Ol00,007 .WORD. IO.DTY,000,015 .WORD. IO.LDI,000,016 .WORD. IO.UDI,010,023 .WORD. IO.LTI,000,017 .WORD. IO.UTI,020,023 .WORD. IO.LTY,000,020 .WORD. IO.UTY,030,023 .WORD. IO.LKE,000,024 .WORD. IO.UER,040,023 .WORD. IO.NLK,000,023 .WORD. IO.ONL,000,037 .WORD. IO.FLN,000,025 .WORD. IO.RAD,000,021 .WORD. IO.MAO,010,007 .WORD. IO.LEI,010,017 .WORD. IO.RDD,010,020 .WORD. IO.RMT,020,020 .WORD. IO.LSI,000,022 .WORD. IO.UEI,050,023 .WORD. IO.USI,060,023 .WORD. IO.CSI,000,026 .WORD. IO.DSI,000,027 .WORD. IO.RAM,000,032 .WORD. IO.RLK,000,013 .WORD. IO.EBT,000,011 .WORD. IO.ATX,000,001 .WORD. IO.ATF,000,002 .WORD. IO.CRX,000,031 .WORD. IO.DRX,000,032 .WORD. IO.RTF,000,033 .MACRO SPCIO$ A .ENDM SPCIO$ .ENDM SPCIO$0\U .MACRO UMDIO$ $$$GBLO .MCALL .WORD.,DEFIN$O .IF IDN <$$$GBL>,I...GBL=1 .IFF ...GBL=0 .ENDC .WORD. IQ.UMD,004,000 .WORD. IO.HMS,000,010 .WORD. IO.BLS,010,010 .WORD. IO.OFF,020,010 .WORD. IO.RDH,030,010 .WORD. IO.WDH,040,010 .WORD. IO.WCK,050,010 .WORD. IO.RNF,060,010 .WORD. IO.RNR,070,010 .WORD. IO.LPC,100,010 .WORD. IO.RTD,120,010 .WORD. IO.WTD,130,010 .WORD. IO.TDD,140,010 .WORD. IO.DGN,150,010 .WORD. IO.WPD,160,010 .WORD. IO.RPD,170,010 .WORD. IO.CER,200,010 .WORD. IO.CEW,210,010 .MACRO UMDIO$ A .ENDM .ENDM UMDIO$GU .MACRO .IOER. SYM,LO,MSGD DEFIN$ SYM,LO .IF GT,$$MSGS .MCALL .IOMG. .IOMG. SYM,LO, .ENDC .ENDM .IOER.OU .MACRO .QIOE. SYM,LO,MSG. DEFIN$ SYM,LO .IF GT,$$MSGO .MCALL .IOMG. .IOMG. SYM,,  .ENDC .ENDM .QIOE. U .MACRO .IOMG. SYM,LO,MSGD .WORD -^O .ENABL LC .ASCIZ ^MSG^. .DSABL LC .EVEN' .IIF LT,^O<$$$MAX+>,$$$MAX=-^O2 .ENDM .IOMG. VU .MACRO .WORD. SYM,LO,HI DEFIN$ SYM, .ENDM .WORD.IU .MACRO SNPDF$ GBL .IF IDN ,7 .GLOBL SB.CTL,SB.DEV,SB.UNT,SB.EFN,SB.ID,SB.LM1,SB.PMD1 .GLOBL SC.HDR,SC.LUN,SC.OVL,SC.STK,SC.WRD,SC.BYTO .ENDC$ SB.CTL = 0 SB.DEV = 2 SB.UNT = 4#SB.DSW = 5 ;DIRECTIVE STATUS WORD SB.EFN = 6SB.ID = ^O<10>ISB.LM1 = ^O<12>SB.PMD = ^O<32>. SC.HDR = 1 SC.LUN = 2 SC.OVL = 4SC.STK = ^O<10>TSC.WRD = ^O<20>$SC.BYT = ^O<40>. .MACRO SNPDF$ X .ENDM .ENDM SNPDF$WU: .MACRO SNPBK$ DEV,UNIT,CTL,EFN,ID,L1,H1,L2,H2,L3,H3,L4,H4 .IF DF ..SPBK .IIF NE <..SPBK-.>, .MEXITL .ENDC .MCALL SNPDF$ SNPDF$B..SPBK::.WORD CTL .ASCII /DEV/S .IF NE .-<..SPBK+SB.DEV+2>.% .ERROR ;INVALID DEVICE NAME ''DEV''2 .MEXIT= .ENDC: .BYTE UNIT,0 ;DEVICE UNIT NUMBER & DIRECTIVE STATUS WORD .WORD EFN ;EVENT FLAG NUMBER .WORD IDH .WORD L1,H1 .WORD L2,H2 .WORD L3,H3 .WORD L4,H4 .RAD50 /PMD.../ .ENDM SNPBK$AU< .MACRO SNAP$ CTL,EFN,ID,L1,H1,L2,H2,L3,H3,L4,H4,?LBL1,?LBL2* .MCALL SNPDF$,WTSE$S,SDAT$S,RQST$S,CLEF$S SNPDF$.% .IIF NB , MOV CTL,..SPBK+SB.CTLC% .IIF NB , MOV EFN,..SPBK+SB.EFN" .IIF NB , MOV ID,..SPBK+SB.IDC MOVB @#$DSW,..SPBK+SB.DSW ;MOVE REQUESTING TASK'S DSW TO SNAP BLOC...SNP = SB.LM1E! .IRP X, .IF NB E MOV X,..SPBK+...SNP .ENDC...SNP = ...SNP+2 .ENDM CLEF$S ..SPBK+SB.EFNO BCS LBL2. SDAT$S #..SPBK+SB.PMD,#..SPBK BCS LBL2 RQST$S #..SPBK+SB.PMD BCC LBL11 CMP #IE.ACT,@#$DSWB BEQ LBL1. SEC BR LBL2LBL1: WTSE$S ..SPBK+SB.EFNLBL2: .ENDM SNAP$U .MACRO ISTAT$ STTBL,KEYTBL,DEBUG .MCALL MTRAN$ .IF DF $RONLY .PSECT $STATE,D,ROV .IFFW .PSECT $STATE,D .ENDCSTTBL::K .IF DF $RONLY .PSECT $KTAB,D,RO .IFFR .PSECT $KTAB,DL .ENDCKEYTBL:: .IF DF $RONLY .PSECT $KSTR,D,RO .IFFS .PSECT $KSTR,D. .ENDC .IF IDN ,<$DEBUG>L .MACRO DBGTP$ .LIST .=. .NLISTL .ENDM .IFFS .MACRO DBGTP$ .ENDM .ENDC $$$KEY = -1 $$$FLG = -1 $EXIT = 0 $LAMDA = 300. $NUMBR = 302B $STRNG = 304A $BLANK = 306 $SUBXP = 310T $EOS = 312L $DNUMB = 314 $RA00 /  DATADATADATADATAD50 = 316 $ANY = 320 $ALPHA = 322. $DIGIT = 324S .PSECT. .ENDM ISTAT$U.MACRO STATE$ LABEL. .PSECT $STATE $$$FLG = $$$FLG!200 MTRAN$D .IF NB LABELCLABEL: .ENDC $$$FLG = -1 .PSECT .ENDM STATE$U(.MACRO TRAN$ TYPE,LABEL,ACTION,MASK,ADDR .PSECT $STATE MTRAN$. DBGTP$T .IF NB ACTION $$$FLG = $$$FLG!2 .MACRO $$$ACT .WORD ACTION .ENDM $$$ACT  .ENDC .IF NB MASK $$$FLG = $$$FLG!30U .IF B ADDR$" .ERROR "MASK ADDRESS NOT PRESENT" .ENDC .MACRO $$$BIT .WORD MASK,ADDR .ENDM $$$BIT .ENDC .IF NB LABEL $$$FLG = $$$FLG!4 $$$STA = LABEL. .ENDC .IRPC $$$$$X, .IF IDN <$$$$$X>,<">F .PSECT $KSTRE $$$TMP = .$ .ASCII TYPE<377> .PSECT $KTAB .WORD $$$TMP .MACRO $$$TYP .BYTE $$$KEY!200S .ENDM $$$TYP  $$$KEY = $$$KEY+1 .IF GT $$$KEY-63. .ERROR "TOO MANY KEYWORDS"R .ENDC .MEXITA .ENDC .IF IDN <$$$$$X>, $$$FLG = $$$FLG!1 .MACRO $$$EXT .WORD 0'TYPE. .ENDM $$$EXTR .MACRO $$$TYP .BYTE $SUBXPR .ENDM $$$TYPD .MEXITR .ENDC .MACRO $$$TYP .BYTE TYPEE .ENDM $$$TYP$ .MEXIT$ .ENDM .PSECT. .ENDM TRAN$$xU .MACRO MTRAN$" .PSECT $STATE .IF EQ $$$FLG+1 $$$FLG = 03 .MEXITS .ENDC $$$TYPD .BYTE $$$FLGR .IF NE $$$FLG&1 $$$EXTS .ENDC .IF NE $$$FLG&2 $$$ACT1 .ENDC .IF NE $$$FLG&10O $$$BITN .ENDC .IF NE $$$FLG&4 .WORD $$$STA. .IFF< .IF EQ $$$FLG&200 .ERROR "BAD DEFAULT TRANSITION" .ENDC .ENDC $$$FLG = 0. .ENDM MTRAN$U .MACRO TTSYM$ $$$GBL .MCALL DEFIN$ ...GBL=0Y .IF IDN,<$$$GBL>,. ...GBL=1N .ENDC DEFIN$ TC.WID,1. DEFIN$ TC.LPP,2.M DEFIN$ TC.RSP,3.C DEFIN$ TC.XSP,4.$ DEFIN$ TC.STB,5.3 DEFIN$ TC.ISL,6. DEFIN$ TC.RAT,7.$ DEFIN$ TC.TTP,8.G DEFIN$ TC.SCR,9.C DEFIN$ TC.SCP,10. DEFIN$ TC.HFL,11. DEFIN$ TC.VFL,12. DEFIN$ TC.NL ,13. DEFIN$ TC.SFF,14. DEFIN$ TC.HFF,15. DEFIN$ TC.LVF,16. DEFIN$ TC.HHT,17. DEFIN$ TC.NST,18. DEFIN$ TC.BSP,19. DEFIN$ TC.ACR,20. DEFIN$ TC.SMR,21. DEFIN$ TC.SMP,22. DEFIN$ TC.SMO,23. DEFIN$ TC.CCF,24. DEFIN$ TC.ALT,25. DEFIN$ TC.IMG,26. DEFIN$ TC.NKB,27. DEFIN$ TC.NPR,28. DEFIN$ TC.ESQ,29. DEFIN$ TC.LCP,30. DEFIN$ TC.PAR,31. DEFIN$ TC.EPA,32. DEFIN$ TC.DLU,33. DEFIN$ TC.BLK,34. DEFIN$ TC.FRM,35. DEFIN$ TC.HLD,36. DEFIN$ TC.TAP,37. DEFIN$ TC.CEQ,38. DEFIN$ TC.NEC,39. DEFIN$ TC.SLV,40. DEFIN$ TC.PRI,41. DEFIN$ TC.UC0,42. DEFIN$ TC.UC1,43. DEFIN$ TC.UC2,44. DEFIN$ TC.UC3,45. DEFIN$ TC.UC4,46. DEFIN$ TC.UC5,47. DEFIN$ TC.UC6,48. DEFIN$ TC.UC7,49. DEFIN$ TC.UC8,50. DEFIN$ TC.UC9,51. DEFIN$ TC.FDX,52. DEFIN$ TC.BIN,53. DEFIN$ TC.REM,54. DEFIN$ TC.8BC,55. DEFIN$ TC.P8B,56. DEFIN$ TC.TBF,57. DEFIN$ TC.CTS,58. DEFIN$ TC.ANS,59. DEFIN$ TC.CSQ,60. DEFIN$ TC.CTC,61. DEFIN$ TC.ASP,62. DEFIN$ TC.ABD,63. DEFIN$ TC.TBS,64. DEFIN$ TC.TBM,65. DEFIN$ TC.NBR,66. DEFIN$ TC.ACD,67. DEFIN$ TC.ARC,68. DEFIN$ TC.TRN,69. DEFIN$ TC.XMM,70. DEFIN$ TC.FSZ,71. DEFIN$ XT.DLM,72. DEFIN$ XT.DMD,73. DEFIN$ XT.DTT,74. DEFIN$ XT.DIT,75. DEFIN$ XT.MTP,76. DEFIN$ XT.SDE,77. DEFIN$ XT.TAK,78. DEFIN$ XT.GOV,79. DEFIN$ XT.TSP,80. DEFIN$ XT.TTO,81. DEFIN$ TC.ANI,82. DEFIN$ TC.AVO,83. DEFIN$ TC.DEC,84. DEFIN$ TC.EDT,85. DEFIN$ TC.RGS,86. DEFIN$ TC.INT,87. DEFIN$ TC.TLC,88. DEFIN$ TC.SFC,89. DEFIN$ TC.HSY,90. DEFIN$ XT.TIM,91. DEFIN$ XT.CPD,92. DEFIN$ XT.VER,93. DEFIN$ XT.REV,94. DEFIN$ XT.THS,95. DEFIN$ TC.OOB,96. DEFIN$ TC.ICS,97. DEFIN$ TC.SSC,98. DEFIN$ TC.TMM,99. DEFIN$ TC.TSY,100.  DEFIN$ TC.MHU,101.T DEFIN$ TC.PTH,102.S DEFIN$ TC.PPT,103.K DEFIN$ TC.MAX,104.7 DEFIN$ SE.ICN,1.8 DEFIN$ SE.FIX,2.8 DEFIN$ SE.BIN,3.8 DEFIN$ SE.VAL,4.8 DEFIN$ SE.TER,5.8 DEFIN$ SE.SPD,6.8 DEFIN$ SE.SPL,7.8 DEFIN$ SE.PAR,8.8 DEFIN$ SE.LPR,9.8 DEFIN$ SE.NSC,10. DEFIN$ SE.UPN,11. DEFIN$ SE.NIH,12. DEFIN$ SE.ATA,13. DEFIN$ SE.NAT,14. DEFIN$ SE.IAA,15. DEFIN$ SF.SSC, 2400!020 DEFIN$ SF.SMC, 240000 7   & Ol!040 DEFIN$ SF.RDF, 2400!060 DEFIN$ SF.STT, 2400!100 DEFIN$ SF.STS, 2400!120 DEFIN$ SF.GSC, 2400!140 DEFIN$ SF.GMC, 2400!160 DEFIN$ SF.GAC, 2400!200 DEFIN$ SF.SAC, 2400!220 DEFIN$ SF.DEF, 010D DEFIN$ S.0 ,1.D DEFIN$ S.50 ,2.D DEFIN$ S.75 ,3.D DEFIN$ S.100 ,4.D DEFIN$ S.110 ,5.D DEFIN$ S.134 ,6.D DEFIN$ S.150 ,7.D DEFIN$ S.200 ,8.D DEFIN$ S.300 ,9.D DEFIN$ S.600 ,10. DEFIN$ S.1200,11. DEFIN$ S.1800,12. DEFIN$ S.2000,13. DEFIN$ S.2400,14. DEFIN$ S.3600,15. DEFIN$ S.4800,16. DEFIN$ S.7200,17. DEFIN$ S.9600,18. DEFIN$ S.EXTA,19. DEFIN$ S.EXTB,20. DEFIN$ S.19.2,21. DEFIN$ S.38.4,22. DEFIN$ T.UNK0,0.0 DEFIN$ T.AS33,1.C DEFIN$ T.KS33,2.  DEFIN$ T.AS35,3.N DEFIN$ T.L30S,4.N DEFIN$ T.L30P,5.N DEFIN$ T.LA36,6.N DEFIN$ T.VT05,7.N DEFIN$ T.VT50,8.N DEFIN$ T.VT52,9.N DEFIN$ T.VT55,10. DEFIN$ T.VT61,11. DEFIN$ T.L180,12. DEFIN$ T.V100,13. DEFIN$ T.L120,14. DEFIN$ T.SCR0,15. DEFIN$ T.LA12,16. DEFIN$ T.L100,17. DEFIN$ T.LA34,18. DEFIN$ T.LA38,19. DEFIN$ T.V101,20. DEFIN$ T.V102,21. DEFIN$ T.V105,22. DEFIN$ T.V125,23. DEFIN$ T.V131,24. DEFIN$ T.V132,25. DEFIN$ T.LA50,26. DEFIN$ T.LQP1,27. DEFIN$ T.LQP2,28. DEFIN$ T.BMP1,29. DEFIN$ T.V2XX,30. DEFIN$ T.LN03,31. DEFIN$ T.DTC1,32. DEFIN$ T.L210,33. DEFIN$ T.LQP3,34. DEFIN$ T.USR0,128.  DEFIN$ T.USR1,T.USR0+11 DEFIN$ T.USR2,T.USR1+1 DEFIN$ T.USR3,T.USR2+1N DEFIN$ T.USR4,T.USR3+1C DEFIN$ XT.DIA,0 DEFIN$ XT.DTM,1 DEFIN$ XT.D20,2 DEFIN$ XT.OHS,3 DEFIN$ XT.VOI,0 DEFIN$ XT.SER,1 DEFIN$ XT.ENC,2 DEFIN$ XT.DTD,3 DEFIN$ XTM.NO,-12 DEFIN$ XTM.FS,0 DEFIN$ XTM.PS,1 DEFIN$ XTM.21,5 DEFIN$ XTM.M1,6 DEFIN$ XTM.M2,7 DEFIN$ XTM.US,10N DEFIN$ XTU.UI,0 DEFIN$ XTU.CD,2 DEFIN$ XTU.CL,4 DEFIN$ XTU.DR,6 DEFIN$ XTU.OF,8.. DEFIN$ XTU.ON,10. DEFIN$ XTU.RI,12. DEFIN$ XTU.TU,14. DEFIN$ XTU.TD,16. DEFIN$ XTC.DT,1 DEFIN$ XTC.EN,2 DEFIN$ XTC.SE,4 DEFIN$ XTC.VO,10N DEFIN$ F1.ACR,000001D DEFIN$ F1.BTW,000002 DEFIN$ F1.BUF,000004N DEFIN$ F1.UIA,000010S DEFIN$ F1.CCO,000020 DEFIN$ F1.ESQ,000040N DEFIN$ F1.HLD,000100T DEFIN$ F1.LWC,0002001 DEFIN$ F1.RNE,000400F DEFIN$ F1.RPR,001000T DEFIN$ F1.RST,0020001 DEFIN$ F1.RUB,004000D DEFIN$ F1.SYN,010000  DEFIN$ F1.TRW,020000R DEFIN$ F1.UTB,040000 DEFIN$ F1.VBF,100000F DEFIN$ F2.SCH,000001  DEFIN$ F2.GCH,000002. DEFIN$ F2.DCH,0000041 DEFIN$ F2.DKL,000010F DEFIN$ F2.ALT,000020T DEFIN$ F2.SFF,000040R DEFIN$ F2.CUP,000100W DEFIN$ F2.FDX,000200F DEFIN$ F2.EIO,000400A DEFIN$ F2.NCT,001000O DEFIN$ TF.RST,001 DEFIN$ TF.BIN,002 DEFIN$ TF.RAL,010 DEFIN$ TF.RNE,020 DEFIN$ TF.XOF,100 DEFIN$ TF.TMO,200 DEFIN$ TF.RCU,001 DEFIN$ TF.WAL,010 DEFIN$ TF.WMS,020 DEFIN$ TF.CCO,040 DEFIN$ TF.WBT,100 DEFIN$ TF.SYN,200 DEFIN$ TF.XCC,001 DEFIN$ TF.NOT,002 DEFIN$ TF.AST,010 DEFIN$ TF.ESQ,020 DEFIN$ TF.UCH,TF.NOT1 DEFIN$ TF.WLB,001 DEFIN$ TF.RLB,002 DEFIN$ TF.WIR,200 DEFIN$ TF.RTT,400 DEFIN$ TF.RLU,1000F DEFIN$ TF.RPR,2000D DEFIN$ TF.RPT,4000 DEFIN$ TF.RES,10000 DEFIN$ TF.RNF,20000 DEFIN$ TF.TNE,40000 DEFIN$ TF.RDI,100000N .MACRO TTSYM$ NULL  .ENDM .ENDM TTSYM$TU .MACRO FHDOF$ GLOBALL .MCALL FHDO1$ ...GBL=0D .IF B,GLOBAL0 FHDO1$ DEF$LT .IFFD .IF IDN,,F ...GBL=1D .ENDC FHDO1$ GLOBAL .ENDC .IF DIF,,D .MACRO FHDOF$ ARG1 .ENDM FHDOF$0 .ENDC .ENDM FHDOF$U .MACRO FHDO1$ OFFSETD .MCALL DEF$I,OFFSET,DEFIN$F DEF$I 0 OFFSET H.IDOF,1 OFFSET H.MPOF,1 OFFSET H.FNUM,2 OFFSET H.FSEQ,2 OFFSET H.FLEV,2 OFFSET H.FOWN OFFSET H.PROG,1 OFFSET H.PROJ,1 OFFSET H.FPRO,2 DEFIN$ FP.RDV,1 DEFIN$ FP.WRV,2 DEFIN$ FP.EXT,4 DEFIN$ FP.DEL,10F OFFSET H.FCHA OFFSET H.UCHA,1 DEFIN$ UC.CON,200 DEFIN$ UC.DLK,100 DEFIN$ UC.CNB,40L DEFIN$ UC.WCK,20D DEFIN$ UC.RCK,10D DEFIN$ UC.WBC,4 DEFIN$ UC.NIB,2 OFFSET H.SCHA,1 DEFIN$ SC.MDL,200 DEFIN$ SC.BAD,100 DEFIN$ SC.DIR,40  DEFIN$ SC.SPL00 ?  DATADATADATADATA,20F OFFSET H.UFAT,32. OFFSET S.HDHD DEF$I 0 OFFSET I.FNAM,6 OFFSET I.FTYP,2 OFFSET I.FVER,2 OFFSET I.RVNO,2 OFFSET I.RVDT,7 OFFSET I.RVTI,6 OFFSET I.CRDT,7 OFFSET I.CRTI,6 OFFSET I.EXDT,7 OFFSET ,1 OFFSET S.IDHD DEFIN$ I.DASZ,7 DEFIN$ I.TISZ,6 DEF$I 0 OFFSET M.ESQN,1 OFFSET M.ERVN,1 OFFSET M.EFNU,2 OFFSET M.EFSQ,2 OFFSET M.CTSZ,1 OFFSET M.LBSZ,1 OFFSET M.USE,1C OFFSET M.MAX,1. OFFSET M.RTRV OFFSET S.MPHD DEFIN$ H.CKSM,510.N .IF DIF,,L .MACRO FHDO1$ ARG13 .ENDM FHDO1$D .ENDC .ENDM FHDO1$.U .MACRO HMBOF$ GLOBAL2 .MCALL HMBO1$ ...GBL=0 .IF B,GLOBALE HMBO1$ DEF$LF .IFFR .IF IDN,,F ...GBL=17 .ENDC HMBO1$ GLOBAL .ENDC .IF DIF,,I .MACRO HMBOF$ ARG1E .ENDM HMBOF$F .ENDC .ENDM HMBOF$.U .MACRO HMBO1$ OFFSET1 .MCALL DEF$I,OFFSET,DEFIN$. DEF$I 0 OFFSET H.IBSZ,2 OFFSET H.IBLB,4 OFFSET H.FMAX,2 OFFSET H.SBCL,2 OFFSET H.DVTY,2 OFFSET H.VLEV,2 OFFSET H.VNAM,12. OFFSET ,4 OFFSET H.VOWN,2 OFFSET H.VPRO,2 OFFSET H.VCHA,2 DEFIN$ CH.SDI,400 OFFSET H.DFPR,2 OFFSET ,6 OFFSET H.WISZ,1 OFFSET H.FIEX,1 OFFSET H.LRUC,1 OFFSET H.REVD,7 OFFSET H.REVC,2 OFFSET ,2 OFFSET H.CHK1,2 OFFSET H.VDAT,14. OFFSET ,382.H OFFSET H.PKSR,4 OFFSET ,12. OFFSET H.INDN,12. OFFSET H.INDO,12. OFFSET H.INDF,12. OFFSET ,2 OFFSET H.CHK2,2 .IF DIF,, .MACRO HMBO1$ ARG1F .ENDM HMBO1$O .ENDC .ENDM HMBO1$ U .MACRO CSI$1 CSBLK,BUFF,LEN .GLOBL .CSI1F .MCALL CSI$,LDR0$ .IF NDF C.SIZEN CSI$I .ENDC LDR0$ CSBLK .IF NB  MOV BUFF,C.CMLD+2(R0) .ENDC .IF NB C MOV LEN,C.CMLD(R0) .ENDC JSR PC,.CSI1E .ENDMU .MACRO CSI$2 CSBLK,IO,SWTAB .GLOBL .CSI2K .MCALL CSI$,LDR0$ .IF NDF C.SIZE. CSI$E .ENDC LDR0$ CSBLK .IF NB  .IF IDN ,2 MOVB #CS.INP,(R0) .IFFN .IF IDN , MOVB #CS.OUT,(R0) .IFF.# .ERROR ;INCORRECT REQUEST TO .CSI2R .ENDC .ENDC .ENDC .IF NB . MOV SWTAB,C.SWAD(R0)N .ENDC JSR PC,.CSI2N .ENDMU# .MACRO CSI$4 CSBLK,IO,SWTAB,DSCBLKC .GLOBL .CSI4C .MCALL CSI$,LDR0$ .IF NDF C.SIZEP CSI$E .ENDC LDR0$ CSBLK .IF NB  .IF IDN ,. MOVB #CS.INP,(R0) .IFFL .IF IDN , MOVB #CS.OUT,(R0) .IFFK .ERROR  .ENDC .ENDC .ENDC .IF NB N MOV SWTAB,C.SWAD(R0)N .ENDC MOV R1,-(SP)C .IF NB  MOV DSCBLK,R1 .IFFQ CLR R1C .ENDC MOV R2,-(SP). MOV #.FSR5,R2 JSR PC,.CSI4T MOV (SP)+,R2 MOV (SP)+,R1, .ENDMVU, .MACRO CSI$SW SW,MK,MKW,CLR,NEGS,VALTAB,LNG .IF B,SWI .ERROR ;MISSING SWITCH NAME .IFFZ .EVEN .NCHR SIZ$$,SW$ .IF GT,SIZ$$-2I .IF B,LNG SIZ$$=2 .ENDC .ENDC CNT$$=0 .IRPC CHR$$$,SW CHR$$=''CHR$$$V CNT$$=CNT$$+1 .IF GE,>. .IF LE,>B CHR$$=CHR$$-^O40A .ENDC .ENDC .IF LE,CNT$$-SIZ$$N $$=0L .IF NB,LNGL .IF IDN,, .IF GT,CNT$$&1( .IF GE,CNT$$+1-SIZ$$J $$=^O200T .ENDC .IFF .IF LT,CNT$$-SIZ$$N $$=^O200 .ENDC .ENDC .IFFW .IF IDN,,T .IF EQ,CNT$$&1I .IF LT,CNT$$-SIZ$$I $$=^O200. .ENDC .ENDC .IFFZ- .ERROR ;ILLEGAL "LONG" OR "EXACT" SPECIFIER .ENDC .ENDC .ENDC .BYTE CHR$$!$$W .ENDC .ENDM .EVEN .ENDC .IF NB MK .WORD MK^ .IFF .WORD 0 .ENDC$$=0 .IF NB CLRR .IF IDN ,$$=1 .IFF$ .IF IDN , .IFFL .ERROR ;INVALID SET/CLEAR SPEC, .ENDC .ENDC .ENDC .WORD MKW+$$O$$=0 .IF NB NEGS .IF IDN ,$$=1 .IFF. .ERROR ;INVALID NEGATE SPEC .ENDC .ENDC .WORD VALTAB+$$ .ENDM4U .MACRO CSI$ND .WORD 0 .ENDM$U# .MACRO CSI$SV TYPE,ADDR,LEN,VALTAB. .IF NB VALTABVALTAB:$ .ENDC .IF NB TYPE .IF IDN ,K .BYTE 1 .IFFF .IF IDN , .BYTE 2 .IFFF .IF IDN , .BYTE 2 .IFF< .IF IDN ,  .BYTE 3 .IFFR .ERROR ;INVALID CONVERSION TYPE .ENDC .ENDC .ENDC .ENDC .IFFI .BYTE 1 .ENDC .IF NB LEN .BYTE LEN .IFFG .ERROR ;LENGTH MISSING .BYTE 0 .ENDC .IF NB ADDR .WORD ADDR. .IFFS .ERROR ;VALUE ADDRESS MISSING .WORD 0 .ENDC .ENDM|U .MACRO LDR0$ ARG .IIF B,ARG,.MEXIT .NTYPE PAR$$$,ARG .IIF EQ,PAR$$$,.MEXIT MOV ARG,R0. .ENDMU .MACRO CSI$ GBL .IF IDN ,E.GLOBL C.TYPR,C.STAT,C.CMLD,C.DEVD,C.DIRD,C.FILD,C.SWAD,C.MKW1,C.MKW2OL.GLOBL C.SIZE,C.DSDS,CS.INP,CS.OUT,C.IDVL,C.IDVA,C.IDIL,C.IDIA,C.ODVL,C.EXPS7.GLOBL CS.NMF,CS.DIF,CS.DVF,CS.WLD,CS.MOR,CS.EQU,CS.LOG  .ENDC C.TYPR =0 C.STAT =1F C.CMLD =2. C.DEVD =6C.DIRD =^O<12>C.FILD =^O<16>C.SWAD =^O<22>C.MKW1 =^O<24>C.MKW2 =^O<26>C.IDVL =^O<30>C.IDVA =^O<32>C.IDIL =^O<34>C.IDIA =^O<36>C.ODVL =^O<40>C.EXPS =^O<60>RC.SIZE =^O<54>C.DSDS =C.DEVD CS.INP =1G CS.OUT =2N CS.NMF =1$ CS.DIF =2C CS.DVF =4TCS.WLD =^O<10>CS.MOR =^O<20>CS.EQU =^O<40>CS.LOG =^O<100>, .MACRO CSI$ X .ENDM CSI$. .ENDM CSI$.LU@ .MACRO GCMLB$ MAXD,PRMPT,UBUF,LUN,PDL,SIZE=80.,?PDL1,?DFNB,?BUF1 .MCALL FDBDF$,FDAT$A,FDOP$A,NMBLK$,FDBF$A,CBYTE$. FDBDF$1 FDAT$A 2= .IF NB = FDOP$A LUN,,DFNB2 .IFFK FDOP$A 1,,DFNBL .ENDC FDBF$A ,,13% CBYTE$ ,F.RCTLD .MCALL GCMLD$ GCMLD$0 .BYTE 0 .IF LE " .BYTE GE.COM!GE.IND!GE.CLO!GE.SIZ .IFFS) .BYTE GE.COM!GE.IND!GE.CLO!GE.CON!GE.SIZR .ENDC .BLKW 4 .BYTE -1,MAXD .IF B .WORD PDL1. .IFFI .WORD PDL .ENDC .IF NB .WORD UBUF$ .IFFR .WORD BUF .ENDC$$$=.P .ASCII <15><12> .IF NB $ .ASCII /PRMPT>/ .IFFY .ASCII / >/ .ENDC.=$$$+6NDFNB: NMBLK$ CMI,CMD .WORD SIZEKG.LPDL=*<6+<5*2>> .IF B PDL1: .BLKB G.LPDL .ENDC .IF B CBUF: .BLKB SIZE+2. .ENDC .ENDM GCMLB$Z U .MACRO GCML$ NAME,ADPR,LNPR .MCALL GCMLD$,LDR0$ GCMLD$ DEF$LN LDR0$ NAMEN .IF NB  MOV LNPR,G.PSDS(R0) .IIF B , .ERROR& .IIF NB , MOV ADPR,G.PSDS+2(R0) .ENDC .IIF B , CLR G.PSDS(R0) .GLOBL .GCML1 JSR PC,.GCML1 .ENDM GCML$rU .MACRO RCML$ NAME .MCALL LDR0$$ LDR0$ NAMEM .GLOBL .GCML2 JSR PC,.GCML2 .ENDM RCML$pU .MACRO CCML$ BLK. .MCALL LDR0$. LDR0$ BLK .GLOBL .GCML3 JSR PC,.GCML3 .ENDM CCML$U .MACRO GCMLD$ GBL .IF NDF S.FDB .MCALL FDBSZ$ FDBSZ$E .ENDC .MCALL GCML$D GCML$D GBLM .MACRO GCMLD$ X .ENDM .ENDM GCMLD$RNU .MACRO GCML$D GBL .IF IDN ,7 .GLOBL G.ERR,G.MODE,G.PSDS,G.CMLD,G.RBUF,G.DPRM,G.SIZEM0 .GLOBL GE.COM,GE.IND,GE.CLO,GE.LC,GE.CON,GE.SIZ1 .GLOBL GE.IOR,GE.OPR,GE.BIF,GE.MDE,GE.EOF,GE.RBGG .ENDC G.ERR = S.FDBG.MODE = G.ERR+1G.PSDS = G.ERR+2G.CMLD = G.ERR+6G.RBUF = G.ERR+14. G.ISIZ = 16.G.DPRM = G.ERR+G.ISIZG.SIZE = G.DPRM+6+S.FNBL GE.COM = 1 GE.IND = 2 GE.CLO = 4 GE.LC = 10 GE.CON = 20C GE.SIZ = 40G GE.IOR = -1. GE.OPR = -2X GE.BIF = -3N GE.MDE = -4 GE.EOF = -10. GE.RBG = -40.G .MACRO GCML$D X .ENDM .ENDM GCML$D,U. .MACRO PRINT$ FDB,ERR,?LBL,A,B,C,D,E,F,?LBL2 .MCALL CALL,CLOSE$,LDR0$,GLUN$S% LDR0$ FDB ;LOAD FDB ADDRESS INTO R0. TST F.BDB(R0) BEQ LBL MOV R1,-(SP)E MOV R2,-(SP)G MOV R3,-(SP)=/ MOV SP,R1 ;SAVE POINTER TO END OF SEND BUFFERM/ SUB #<8.*2>,SP ;ALLOCATE A GET LUN INFO BUFFERM MOV SP,R2 MOVB F.LUN(R0),R3 GLUN$S R3,R2N% MOV G.LUCW(R2),R3 ;SAVE CHAR. WORD 1O MOV R0,R2 ;COPY FDB ADDRESS=4 ADD #F.FNB+N.DID+6,R2 ;POINT TO END OF DIRECTORY ID$ MOV -(R2),-(R1) ; PUSH DIRECTORY ID MOV -(R2),-(R1) ; MOV -(R2),-(R1) ;/ ADD #N.FID+6-N.DID,R2 ;POINT TO END OF FILE IDL MOV -(R2),-(R1) ;PUSH FILE ID MOV -(R2),-(R1) ; MOV -(R2),-(R1) ;' CLRB -(R1) ;CLEAR LUN INFO FLAGS BYTEM@ ADD #N.FVER+2-N.FID,R2 ;POINT TO END OF FILENAME, TYPE, VERSION* MOV -(R2),-(SP) ;PUSH FILE VERSION NUMBER MOV -(R2),-(SP) ;PUSH00 O  DATADATADATADATA FILE TYPE MOV -(R2),-(SP) ;PUSH FILENAMEW MOV -(R2),-(SP) ; MOV -(R2),-(SP) ;' MOV SP,R1 ;SET POINTER TO SEND BUFFERI CLOSE$ R0 ;CLOSE FILER BCS LBL2I: BIT #FD.REC!FD.OSP,R3 ;RECORD ORIENTED OR SPOOLED DEVICE? BNE LBL2 ;IF NE YESO MOV R0,R2 ;SAVE FDB ADDRESSR# MOV #^RPRT,R0 ;GET "PRT" IN RAD-50, CALL $DSPAT ;SEND DATA TO ...PRT OR PRT...$ MOV R0,F.ERR(R2) ;GET RETURN STATUS MOV R2,R0 ;RESTORE FDB ADDRESSLBL2: ROR R1 ;SAVE CARRY; ADD #<13.*2>,SP ;CLEAN STACK- ROL R1 ;RESTORE CARRYE MOV (SP)+,R3S MOV (SP)+,R2M MOV (SP)+,R1- .IF NB ERR- BCC LBL CALL ERR, .ENDCLBL: .ENDM PRINT$EU .MACRO COMDF$ DEF .NLIST# .IF IDN ,8.GLOBL B.OT,B.UN,B.RC,B.RN,B.RP,B.RU,B.NA,B.UA,B.MN,B.MX.GLOBL CT.IN,CT.CN,LB.N,LB.E.GLOBL NT.IN,NT.NS.GLOBL CR.UR,CR.NR,CR.MXD.GLOBL CR.N0,CR.N1,CR.N2,CR.N3,CR.N4,CR.N5,CR.N6,CR.N9,CR.N10,CR.N11.GLOBL CR.N7,CR.N8.GLOBL CR.DI,CR.DT,CR.DA".GLOBL IA.ISM,IA.ABO,IA.DIS,IA.NFW.GLOBL CN.IN,CN.OU,CN.UT,CN.NTB.GLOBL OB.TA,OB.FS,OB.SQ,OB.BO,OB.TC,OB.RD,OB.RA,OB.ND,OB.DD,OB.BM<.GLOBL OB.TH,OB.TB,OB.TI,OB.CR,OB.LP,OB.PR,OB.PP,OB.PL,OB.MT*.GLOBL OB.DT,OB.CS,OB.CP,OB.FH,OB.MH,OB.FL .ENDC B.OT = 0> B.UN = 1O B.RC = B.OT+2 B.RN = B.RC+2 B.RP = B.RN+4 B.RU = B.RP+4 B.NA = B.RU+4 B.UA = B.NA+2 B.MN = B.UA B.MX = B.MN+10O NT.IN = 101 NT.NS = 1 CR.UR = 2 CR.NR = 3 CR.MX = 6 CR.N0 = 0. CR.N1 = 1O CR.N2 = 2T CR.N3 = 3L CR.N4 = 4O CR.N5 = 5W CR.N6 = 6N CR.N7 = 7C CR.N8 = 8. CR.N9 = 11 CR.N10 = 12O CR.N11 = 13D CR.DI = 4 CR.DT = 5 CR.DA = 6 LB.N=0O LB.E=2R CT.IN = 0 CT.CN = 1 IA.ABO = -5 IA.DIS = -7 IA.NFW = 177673 IA.ISM = 1 CN.IN = 1 CN.OU = 2 CN.UT = 4 CN.NT = 10 OB.TA = 0 OB.FS = 1 OB.SQ = 2 OB.BO = 3 OB.TC = 4 OB.RD = 5 OB.RA = 6 OB.ND = 7 OB.DD = 10S OB.BM = 11= OB.TH = 203 OB.TB = 21 OB.TI = 22 OB.CR = 23 OB.LP = 24 OB.PR = 25 OB.PP = 26 OB.PL = 27 OB.MT = 30 OB.DT = 31 OB.CS = 32 OB.CP = 33 OB.FH = 34O OB.MH = 351 OB.FL = 364 .MACRO COMDF$ A .ENDM .LIST .ENDMXU .MACRO EGCMI$ .MACRO GCMLD$ GLOB .ASECT  .=0G.MODE: .BLKW 2C GE.COM = 1. GE.IND = 2T GE.CLO = 4= GE.LC = 10 GE.CON = 20 GE.XXX = 40 GE.MUL = 100. GE.LIB = 200= GE.MCR = 400 GE.IEF = 1000 GE.RWD = 2000 GE.FOP = 4000 GE.RPR = 10000 GE.SDE = 20000O GE.SER = 40000P GE.SLB = 100000 ; G2.XXX = 1G.IMPS: .BLKB 1G.OVBC: .BLKB 1.G.FILE: .BLKW 1=G.ERR: .BLKB 1 GE.IOR = -1 GE.OPR = -2 GE.BIF = -3 GE.MDE = -4 GE.CMD = -5 GE.VRS = -6 GE.EOF = -10. GE.RBG = -40.G.CDEP: .BLKB 1LG.FUNC: .BLKB 1 G.MAXD: .BLKB 1BG.TERM: .BLKB 1 G.TIOS: .BLKB 1G.TIOP: .BLKW 1.G.PRMP: .BLKW 2 G.CMLD: .BLKW 20G.FRAG: .BLKW 2G.BUFF: .BLKW 2GG.DFPR: .BLKB 6.G.CSIB: .BLKW 1WG.PPTR: .BLKW 1 G.SWIT: .BLKW 1 G.LBMN: .BLKB 6 G.FQFN: .BLKW 1 G.DDIR: .BLKW 2 G.ISIZ:  .ASECT1 .=0G.SUSR: .BLKW 1VG.SDID: .BLKW 5IG.SVER: .BLKW 1RG.STYP: .BLKW 1OG.SNAM: .BLKW 3 G.SFID: .BLKW 3G.SRAT: .BLKB 16.MG.SPOS: .BLKW 3 G.SBST: .BLKW 1.G.SRWP: .BLKW 3G.PLFS:B .PSECT. .MACRO GCMLD$ X .ENDM .ENDMN .MACRO ECMLB$ FILE,LUN=1,MAXD=3,PRMP=< >,BFAD,BFSZ=80.,PDL,SWIT,?GF,?GB,?GS# .MCALL GCMLD$,CWORD$,CBYTE$,CSTRG$B .MCALL CSI$SW,CSI$SV,CSI$ND .IIF NDF FCS$$ FCS$$=1K GCMLD$W ...PC1=. .BLKB G.ISIZ  CBYTE$ ,G.IMPSD, CWORD$ ,G.MODE CBYTE$ ,G.MAXDK CBYTE$ <15>,G.DFPRR CBYTE$ <12>,G.DFPR+1N CSTRG$ ,G.DFPR+2,3  CBYTE$ <-1>,G.CDEPM CBYTE$ ,G.TIOST CWORD$ <0>,G.TIOP CWORD$ <0>,G.FQFN CBYTE$ <0>,G.OVBC .IF B  ...TMP = <*G.PLFS>,...PDL: .BLKB ...TMP CWORD$ <...PDL+...TMP>,G.PPTR .IFF. .ENDC .IF B TGB: .BLKB BFSZ+2 CWORD$ ,G.BUFF+2 .IFFD CWORD$ ,G.BUFF+2W .ENDC CWORD$ ,G.BUFF+0Y .IF B I...SWI: GCMSW$ ...PC1,GS CWORD$ <...SWI>,G.SWIT .IFF  CWORD$ ,G.S00 W   & OlWIT  .ENDC .IF NB  CWORD$ ,G.FILEP .IFFD CWORD$ ,G.FILE> .IF DF FCS$$E* .MCALL FDBDF$,FDAT$A,FDOP$A,NMBLK$,FDBF$A GF: FDBDF$ FDAT$A 2  FDOP$A LUN,,...FNAD FDBF$A ,,1 % CBYTE$ ,F.RCTLP...FNA: NMBLK$ CMI,CMD .IFFR .IF DF RMS$$C .MCALL FAB$B,RAB$B,NAM$B GF: .WORD 1,...RAB .WORD 1,...FABD ...RAB: RAB$B> R$FAB ...FABN R$RAC RB$SEQS RAB$E ...FAB: FAB$BW F$DNA ...DNA+3S F$DNS 7 F$FNA ...FNA. F$FAC FB$GET. F$LCH LUN F$NAM ...NAM F$ORG FB$SEQN F$RAT 0 F$RFM FB$VARG FAB$E ...NAM: NAM$B N$ESS 34. NAM$E...DNA: .ASCII /SY:CMI.CMD/$...FNA: .ASCII /CMI/ .BLKB 29. .IFF$ .ERRORO .ENDC .ENDC .ENDC .ENDM6 .MACRO GCMLB$ MAXD=1,PRMP=< >,UBUF,LUN,PDL,SIZE=80. .MCALL ECMLB$$ ECMLB$ ,LUN,MAXD,PRMP,UBUF,SIZE,PDL .ENDM .MACRO GCMSW$ GCMB,?VAL .MCALL CSI$SW,CSI$SV,CSI$ND CSI$SW LB,GE.SLB,,SET,,VALR CSI$SW ER,GE.SER,,SET,NEG CSI$SW DE,GE.SDE,,CLEAR,NEG CSI$NDFVAL: CSI$SV ASCII,GCMB+G.LBMN,6. CSI$NDF .ENDM .MACRO GCML$ GCMB,PRAD,PRLN .MCALL GCMLD$,LDR0$ GCMLD$ DEF$LN LDR0$ GCMB  CLRB G.FUNC(R0) .IF NB  MOV PRLN,G.PRMP(R0) .IF B O .ERROR .IFF MOV PRAD,G.PRMP+2(R0) .ENDC .IFFR CLR G.PRMP(R0), .ENDC .GLOBL $GCMLC JSR PC,$GCMLL .ENDM .MACRO RCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$LC LDR0$ GCMBI MOVB #1,G.FUNC(R0)B .GLOBL $GCMLA JSR PC,$GCMLG .ENDM .MACRO CCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$LS LDR0$ GCMBG MOVB #2,G.FUNC(R0). .GLOBL $GCMLC JSR PC,$GCMLP .ENDM .MACRO MCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L. LDR0$ GCMBF MOVB #3,G.FUNC(R0), .GLOBL $GCMLF JSR PC,$GCMLR .ENDM .MACRO FCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L( LDR0$ GCMB MOVB #4,G.FUNC(R0)P .GLOBL $GCMLM JSR PC,$GCML  .ENDM .MACRO LCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L1 LDR0$ GCMB MOVB #5,G.FUNC(R0)P .GLOBL $GCMLM JSR PC,$GCML  .ENDM .MACRO ECML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L2 LDR0$ GCMB MOVB #6,G.FUNC(R0)P .GLOBL $GCMLM JSR PC,$GCML  .ENDM .MACRO DCML$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L3 LDR0$ GCMB MOVB #7,G.FUNC(R0)P .GLOBL $GCMLM JSR PC,$GCML  .ENDM .MACRO GCMM$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L4 LDR0$ GCMB MOV G.FILE(R0),R0 .GLOBL .MARKN JSR PC,.MARKL .ENDM .MACRO GCMP$ GCMB .MCALL GCMLD$,LDR0$ GCMLD$ DEF$L LDR0$ GCMBP MOV G.FILE(R0),R0 .GLOBL .POINT JSR PC,.POINT .ENDM, .MACRO CMSET$ GCMB,TSUB,TVFC,FQFN,TTMO,OVBC" .MCALL LDR0$,CMOV$B,CMOV$W,GCMLD$ GCMLD$ DEF$LP LDR0$ GCMBN CMOV$B TSUB,G.TIOSB CMOV$B TVFC,G.TIOP+1 CMOV$B TTMO,G.TIOP+0G CMOV$W FQFN,G.FQFN( CMOV$B OVBC,G.OVBC .ENDM+ .MACRO CMGET$ GCMB,TERM,FILE,FQFN,OVBC,ERRC" .MCALL LDR0$,CGET$B,CGET$W,GCMLD$ GCMLD$ DEF$LL LDR0$ GCMBL CGET$B G.TERM,TERMM CGET$W G.FILE,FILE  CGET$B G.ERR,ERR  CGET$W G.FQFN,FQFN  CGET$B G.OVBC,OVBC .ENDM .MACRO EGCMI$ .ENDM .ENDMVU .MACRO .PICOD NAME=PIC$IT .PSECT NAME RO,I,LCL,REL,CON0 .ENDMVU .MACRO .PCODE NAME=PUR$I .PSECT NAME RO,I,LCL,REL,CONV .ENDMVU .MACRO .IDATA NAME=IMP$DF .PSECT NAME RW,D,LCL,REL,CONN .ENDMVU .MACRO .PDATA NAME=PUR$DC .PSECT NAME RO,D,LCL,REL,CON .ENDMVU .MACRO .ODATA NAME=IMP$DO .PSECT NAME RW,D,LCL,REL,OVRR .ENDM0U< .MACRO HLPDF$ FILLUN,TILUN,EFN,NAME,FDBIN,DSP,MODULE,FDBOUT$HFDB:: .WORD FDBIN .IF NB FDBOUT .WORD FDBOUTS .IFFE .WORD 0 .ENDC$HLUN1 == FILLUN$HLUN2 == TILUN $HEFN == EFN$HDSP:: .WORD DSPR$HMOD:: .RAD50 /MODULE/$HNAME::.ASCII /NAME/R .EVEN .ENDM HLPDF$.`U! .MACRO OVAST$ SENSE,?LABL,?LABL2 MOV @#.NOVPT,-(SP)$ BEQ LABL  ADD #N.FAST,(SP) .IF IDN , BICB #^O200,@(SP)+M .IFF. .IF IDN , BISB #^O200,@(SP)+ .IFF.0 .ERROR ; PARAMETER MUST BE "ALLOW" OR "INHIBIT" .ENDC .ENDC BR LABL2ILABL:F INC (SP)+LABL2: .ENDM O00 _  DATADATADATADATAVAST$U .MACRO CSM$ SUPVR .IF IDN <(SP)+>, .WORD 007026R .IFF MOV SUPVR,-(SP) .WORD 007026: .ENDC .ENDM CSM$Nz U .MACRO FEADF$,L,B .MCALL DEFIN$ .IF NB L'BL ...GBL=1  .IFFP ...GBL=0B .ENDC DEFIN$ FE$EXT,1 DEFIN$ FE$MUP,2 DEFIN$ FE$EXV,3 DEFIN$ FE$DRV,4 DEFIN$ FE$PLA,5 DEFIN$ FE$CAL,6 DEFIN$ FE$PKT,7 DEFIN$ FE$EXP,8.O DEFIN$ FE$LSI,9.B DEFIN$ FE$OFF,10. DEFIN$ FE$FDT,11. DEFIN$ FE$X25,12. DEFIN$ FE$DYM,13. DEFIN$ FE$CEX,14. DEFIN$ FE$MXT,15. DEFIN$ FE$NLG,16. DEFIN$ FE$DAS,17. DEFIN$ FE$LIB,18. DEFIN$ FE$MP,19.) DEFIN$ FE$EVT,20. DEFIN$ FE$ACN,21. DEFIN$ FE$SDW,22. DEFIN$ FE$POL,23. DEFIN$ FE$WND,24. DEFIN$ FE$DPR,25. DEFIN$ FE$IRR,26. DEFIN$ FE$GGF,27. DEFIN$ FE$RAS,28. DEFIN$ FE$AHR,29. DEFIN$ FE$RBN,30. DEFIN$ FE$SWP,31. DEFIN$ FE$STP,32. DEFIN$ FE$CRA,33. DEFIN$ FE$XCR,34. DEFIN$ FE$EIS,35. DEFIN$ FE$STM,36. DEFIN$ FE$UDS,37. DEFIN$ FE$PRO,38. DEFIN$ FE$XHR,39. DEFIN$ FE$AST,40. DEFIN$ FE$11S,41. DEFIN$ FE$CLI,42. DEFIN$ FE$TCM,43. DEFIN$ FE$PMN,44. DEFIN$ FE$WAT,45. DEFIN$ FE$RLK,46. DEFIN$ FE$SHF,47. DEFIN$ FE$CXD,49. DEFIN$ FE$XT,50.N DEFIN$ FE$ERL,51. DEFIN$ FE$PTY,52. DEFIN$ FE$DVN,53. DEFIN$ FE$LCD,54. DEFIN$ FE$NIM,55. DEFIN$ FE$CHE,56. DEFIN$ FE$LOG,57. DEFIN$ FE$NAM,58. DEFIN$ FE$FMP,59. DEFIN$ FE$DCL,60. DEFIN$ FE$DDS,61. DEFIN$ FE$ACD,62. DEFIN$ FE$NCT,63. DEFIN$ FE$LSD,64. DEFIN$ FE$PC3,65. DEFIN$ HF$UBM,-1. DEFIN$ HF$EIS,-2. DEFIN$ HF$QB,-3.N DEFIN$ HF$DSP,-4. DEFIN$ HF$CIS,-8. DEFIN$ HF$FPP,-16.  DEFIN$ HF$NVR,-17.E DEFIN$ HF$INV,-18.S DEFIN$ HF$CLK,-19.D DEFIN$ HF$ITF,-20.0 DEFIN$ HF$PRO,-21.. DEFIN$ HF$BRG,-32. DEFIN$ T2$WFR,1 DEFIN$ T2$WFA,2 DEFIN$ T2$SPN,3 DEFIN$ T2$SPA,4 DEFIN$ T2$STP,5 DEFIN$ T2$STA,6 DEFIN$ T2$ABO,7 DEFIN$ T2$AFF,9.N DEFIN$ T2$SIO,10. DEFIN$ T2$SEF,12. DEFIN$ T2$REX,13. DEFIN$ T2$CHK,14. DEFIN$ T2$DST,15. DEFIN$ T2$AST,16. DEFIN$ T3$GFL,17. DEFIN$ T3$SWS,18. DEFIN$ T3$CMD,19. DEFIN$ T3$MPC,20. DEFIN$ T3$NET,21. DEFIN$ T3$ROV,22. DEFIN$ T3$CAL,23. DEFIN$ T3$NSD,24. DEFIN$ T3$RST,25. DEFIN$ T3$CLI,26. DEFIN$ T3$SLV,27. DEFIN$ T3$MCR,28. DEFIN$ T3$PRV,29. DEFIN$ T3$REM,30. DEFIN$ T3$PMD,31. DEFIN$ T3$ACP,32. DEFIN$ T4$SNC,33. DEFIN$ T4$DSP,34. DEFIN$ T4$PRV,35. DEFIN$ T4$PRO,36. DEFIN$ T4$LDD,37. DEFIN$ T4$MUT,38. DEFIN$ T4$CTC,39. DEFIN$ T4$FMP,40. .MACRO FEADF$ X,Y .ENDM FEADF$D .ENDM FEADF$.U .MACRO LNBDF$,L,B,SYSDEFF .SAVE .ASECTD LT.SYS='B'02 LT.GRP='B'13 LT.USR='B'2F LT.TSK='B'3. LT.SES='B'4N LT.INV='B'6N LT.APP='B'5 LS.TRM='B'1I LS.PRV='B'2 LB.LOC='B'1D LB.LOG='B'22 IN.TSK='B'13 IN.SES='B'20 IN.GRP='B'4. IN.SYS='B'10.=0.O$STAT:'L' .BLKW 1O$FLAG:'L' .BLKW 1O$NODS:'L' .BLKW 1O$NODA:'L' .BLKW 1O$DEVS:'L' .BLKW 1O$DEVA:'L' .BLKW 1O$DIRS:'L' .BLKW 1O$DIRA:'L' .BLKW 1O$NAMS:'L' .BLKW 1O$NAMA:'L' .BLKW 1O$TYPS:'L' .BLKW 1O$TYPA:'L' .BLKW 1O$VERS:'L' .BLKW 1O$VERA:'L' .BLKW 1O$TRLS:'L' .BLKW 1O$TRLA:'L' .BLKW 1O$ACCS:'L' .BLKW 1O$ACCA:'L' .BLKW 1O$LTYP:'L' .BLKB 1 .BLKB 1' O$PLEN='B'.' SU$SUC ='B'1ER$NOD ='B'175550BER$DEV ='B'177100'ER$DIR ='B'177060ER$FNM ='B'176420SER$TYP ='B'174540TER$VER ='B'174460GER$ESS ='B'176640SER$XTR ='B'174340AER$BEQ ='B'177510SER$TRN ='B'174550AER$FTB ='B'176364SFS$NOD ='B'400FS$DEV ='B'200FS$DIR ='B'100FS$QUO ='B'2000. FS$NAM ='B'4 FS$TYP ='B'2 FS$VER ='B'1FS$WCH ='B'4000.FS$WDI ='B'1000' FS$WNA ='B'40S FS$WTY ='B'20$ FS$WVE ='B'101FS$NDF ='B'10000 P.LNON ='B'0 P.LNAM ='B'1 P.LDEV ='B'2 P.LNOD ='B'3 .RESTORE' .MACRO LNBDF$ X,Y,Z .ENDM .ENDMU .MACRO BOM$C STS,FLG,CS,ERR .MCALL BOM$,DIR$B .IF NDF $$$GLB= .PSECT $DPB$.,D$$$=.6 .IFTF BOM$ STS,FLGA .IFTQ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM BOM$CU .MACRO BOM$S STS,FLG,ERRB .MCALL MOV$,DIR$,OFF$ MOV$ FLG4 MOV$ 00 g   & OlSTSB MOV (PC)+,-(SP) .BYTE 211.,3. DIR$ ,ERR .ENDM BOM$S U .MACRO BOM$ STS,FLG .MCALL OFF$ .IF NDF $$$GLB0 .BYTE 211.,3 .WORD STS .IF NB FLG3 .WORD FLG .IFFR .WORD 0 .ENDC .ENDC .IF NDF B.OMCD .NLISTA$$$OST=0 OFF$, OFF$ B.OMCD,2 OFF$ B.OMFL,2 .LIST .ENDC .ENDM BOM$DvU .MACRO BOMDF$ .NLIST. S.BUNK=-128. S.BFEI=0. S.BOVL=1.N S.BBIF=1. .LIST .ENDM BOMDF$ U .MACRO TFEA$ FEAT .MCALL OFF$,FEADF$V .IF NDF $$$GLB+ .BYTE 209.,2. .WORD FEAT  .ENDC .IF NDF F.TEAF OFF$ OFF$ F.TEAF,2 .IF DF $$$GLB FEADF$ ,<=> .IFFL FEADF$E .ENDC .ENDC .ENDM TFEA$U .MACRO TFEA$C FEAT,CS,ERR .MCALL TFEA$,DIR$ .IF NDF $$$GLBO .PSECT $DPB$$$$$=.M .IFTF TFEA$ FEAT .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMU .MACRO TFEA$S FEAT,ERR0 .MCALL MOV$,DIR$B MOV$ FEAT MOV (PC)+,-(SP) .BYTE 209.,2. DIR$ ,ERR .ENDMU .MACRO RRST$ WDB$ .MCALL OFF$ .IF NDF $$$GLBA .BYTE 213.,2F .WORD WDB .ENDC .IF NDF R.RSBA OFF$  OFF$ R.RSBA,2 .ENDC .ENDM RRST$U .MACRO RRST$C WDB,CS,ERR .MCALL RRST$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$$$$$=.$ .IFTF RRST$ WDB .IFT= .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RRST$C U .MACRO RRST$S WDB,ERR .MCALL DIR$,MOV$A MOV$ WDBC MOV (PC)+,-(SP) .BYTE 213.,2( DIR$ ,ERR .ENDM RRST$S@W .MACRO CALL ADR JSR PC,ADRT .ENDM CALLL<W .MACRO RETURN RTS PC. .ENDM RETURNC>W .MACRO CALLR ADRS JMP ADR .ENDM CALLRW .MACRO ABRT$C TSK,PSCT,ERR .MCALL ABRT$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$.,D$$$=. .IFTF ABRT$ TSK .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ABRT$CW .MACRO ABRT$S NADR,ERRC .MCALL RFA$,DIR$V RFA$ NADR MOV (PC)+,-(SP) .BYTE 83.,3 DIR$ ,ERR .ENDM ABRT$SW .MACRO ABRT$ TSKR .MCALL R50$,OFF$L .IF NDF $$$GLB .BYTE 83.,3 R50$ TSKP .ENDC .IF NDF A.BTTN .NLIST OFF$R OFF$ A.BTTN,4 .LIST .ENDC .ENDM ABRT$vW& .MACRO ACHN$ MOD,TBMSK,LUN,FSBUF,FSSZ .MCALL OFF$,LNMOD$. .IF NDF $$$GLB$ LNMOD$F .BYTE 207.,5 .BYTE 6 .BYTE MOD .BYTE LUN .BYTE TBMSK .WORD FSBUF .WORD FSSZ .ENDC .IF NDF A.LFUNR6 .IRP X,<,,,,> OFF$ X3 .ENDM .IRP X,<,> OFF$ XA .ENDM .ENDC .ENDM ACHN$W. .MACRO ACHN$C MOD,TBMSK,LUN,FSBUF,FSSZ,CS,ERR .MCALL ACHN$,DIR$ .IF NDF $$$GLBT .PSECT $DPB$.,D$$$=.N .IFTF ACHN$ MOD,TBMSK,LUN,FSBUF,FSSZ  .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ACHN$C$W+ .MACRO ACHN$S MOD,TBMSK,LUN,FSBUF,FSSZ,ERRN .MCALL DIR$,MOV$,MVB$,LNMOD$. LNMOD$ MOV$ FSSZ MOV$ FSBUFR MVB$ LUN,TBMSKU MVB$ #6,MOD MOV (PC)+,-(SP) .BYTE 207.,53 DIR$ ,ERR .ENDM ACHN$S2W# .MACRO ALTP$C TTASK,NPRIO,PSCT,ERR .MCALL ALTP$,DIR$ .IF NDF $$$GLBT .PSECT $DPB$.,D$$$=.R .IFTF ALTP$ TTASK,NPRIO .IFTL .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ALTP$CKW .MACRO ALTP$S NAME,PRI,ERR$ .MCALL MOV$,RFA$,DIR$ MOV$ PRI RFA$ NAME MOV (PC)+,-(SP) .BYTE 9.,4B DIR$ ,ERR .ENDM ALTP$SMW .MACRO ALTP$ NAME,PRI .MCALL R50$,OFF$U .IF NDF $$$GLB6 .BYTE 9.,4C R50$ NAME .WORD PRI .ENDC .IF NDF A.LTTN$ .NLIST OFF$ OFF$ A.LTTN,4 OFF$ A.LTPR,2 .LIST .ENDC .ENDM ALTP$W .MACRO ALUN$C LUN,DA,DU,CS,ERR .MCALL ALUN$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$.,D$$$=.C .IFTF ALUN$ LUN,DA,DU .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ALUN$CIW .MACRO ALUN$S LUN,DA,DU,ERR .MCALL MOV$,DIR$E MOV$ DU MOV$ DA MOV$ LUN MOV (PC)+,-(SP) .BYTE 7,4 DIR$ ,ERR .ENDM ALUN$SFRW .MACRO ALUN$ LUN,DA,DUP .MCALL OFF$ .IF NDF $$$GLB. .BYTE 7,4 .WORD LUN .IF B 00 o  DATADATADATADATA .WORD 0 .IFF .NCHR $$$T1,$$$$T2=. .ASCII /DA/ .=$$$T2+2L .ENDC .WORD DU. .ENDC .IF NDF A.LULUF .NLIST+ .IRP X,<,,,>D OFF$ XF .ENDM .LIST .ENDC .ENDM ALUN$W .MACRO ASTX$C PSCT,ERR  .MCALL ASTX$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$.,D$$$=.M .IFTF ASTX$ .IFTS .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ASTX$CW .MACRO ASTX$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 115.,1L DIR$F .IIF NB , JSR PC,ERR .ENDM ASTX$SAZW .MACRO ASTX$T .IF NDF $$$GLBO .BYTE 115.,1 .ENDC .ENDM ASTX$W .MACRO ATRG$ RDB, .MCALL OFF$ .IF NDF $$$GLB .BYTE 57.,2 .WORD RDB .ENDC .IF NDF A.TRBAA OFF$X OFF$ A.TRBA,2 .ENDC .ENDM ATRG$W .MACRO ATRG$C RDB,CS,ERRF .MCALL ATRG$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$.,D$$$=.A .IFTF ATRG$ RDB .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ATRG$C.W .MACRO ATRG$S RDB,ERR .MCALL DIR$,MOV$$ MOV$ RDB MOV (PC)+,-(SP) .BYTE 57.,2 DIR$ ,ERR .ENDM ATRG$SW0 .MACRO CINT$C VEC,BASE,ISR,DSI,PSW,AST,PSCT,ERR .MCALL CINT$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.N .IFTF CINT$ VEC,BASE,ISR,DSI,PSW,ASTC .IFTM .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM CINT$CW+ .MACRO CINT$S VEC,BASE,ISR,DSI,PSW,AST,ERR .MCALL RVP$,DIR$ RVP$ VEC,BASE,ISR,DSI,PSW,AST MOV (PC)+,-(SP) .BYTE 129.,7 DIR$ ,ERR .ENDM CINT$SRLW& .MACRO CINT$ VEC,BASE,ISR,DSI,PSW,AST .MCALL OFF$ .IF NDF $$$GLBM .BYTE 129.,7 .WORD VEC .WORD BASEC .WORD ISR .WORD DSI .WORD PSW .WORD AST .ENDC .IF NDF C.INVE OFF$  OFF$ C.INVE,2 OFF$ C.INBA,2 OFF$ C.INIS,2 OFF$ C.INDI,2 OFF$ C.INPS,2 OFF$ C.INAS,2 .ENDC .ENDM CINT$W .MACRO CLEF$C EFN,CS,ERR, .MCALL CLEF$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$.,D$$$=.I .IFTF CLEF$ EFN .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CLEF$CW .MACRO CLEF$S EFN,ERR .MCALL MOV$,DIR$$ MOV$ EFN$ MOV (PC)+,-(SP) .BYTE 31.,2 DIR$ ,ERR .ENDM CLEF$SRW .MACRO CLEF$ EFN .MCALL OFF$ .IF NDF $$$GLB .BYTE 31.,2 .WORD EFN .ENDC .IF NDF C.LEEFO .NLISTI OFF$F OFF$ C.LEEF,2 .LIST .ENDC .ENDM CLEF$2W, .MACRO CLON$ MOD,PRMLST,LNS,LNSSZ,ENS,ENSSZ .MCALL OFF$,LNMOD$R .IF NDF $$$GLBD LNMOD$ .BYTE 207.,7E .BYTE 11. .BYTE MOD $$$ARG = 0 .IRP SYM .BYTE SYM$$$ARG=$$$ARG+1A .ENDM .IIF LT 2-$$$ARG,.ERROR .IF GT 2-$$$ARG .REPT <2-$$$ARG>. .BYTE 0 .ENDR .ENDC .WORD LNS .WORD LNSSZ .WORD ENS .WORD ENSSZ .ENDC .IF NDF C.LFUN$A .IRP X,<,,,,,> OFF$ XO .ENDM* .IRP X,<,,> OFF$ X .ENDM .ENDC .ENDM CLON$W4 .MACRO CLON$C MOD,PRMLST,LNS,LNSSZ,ENS,ENSSZ,CS,ERR .MCALL CLON$,DIR$ .IF NDF $$$GLBA .PSECT $DPB$.,D$$$=.> .IFTF' CLON$ MOD,,LNS,LNSSZ,ENS,ENSSZ2 .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CLON$CEW1 .MACRO CLON$S MOD,PRMLST,LNS,LNSSZ,ENS,ENSSZ,ERRZ .MCALL DIR$,MOV$,MVB$,LNMOD$R LNMOD$L MOV$ ENSSZD MOV$ ENS, MOV$ LNSSZ, MOV$ LNS MVB$ PRMLST MVB$ #11.,MOD MOV (PC)+,-(SP) .BYTE 207.,7 DIR$ ,ERR .ENDM CLON$S.0W, .MACRO CLOG$ MOD,PRMLST,LNS,LNSSZ,ENS,ENSSZ .MCALL OFF$,LNMOD$. .IF NDF $$$GLB LNMOD$$ .BYTE 207.,7  .BYTE 0 .BYTE MOD $$$ARG = 0 .IRP SYM .BYTE SYM$$$ARG=$$$ARG+1  .ENDM .IIF LT 2-$$$ARG,.ERROR .IF GT 2-$$$ARG .REPT <2-$$$ARG>L .BYTE 0 .ENDR .ENDC .WORD LNS .WORD LNSSZ .WORD ENS .WORD ENSSZ .ENDC .IF NDF C.LFUN A .IRP X,<,,,,,>( OFF$ X) .ENDM* .IRP X,<,,> OFF$ X .ENDM .ENDC .ENDM CLOG$W4 .MACRO CLOG$C MOD,PRMLST,LNS,LNSSZ,ENS,ENSSZ,CS,ERR .MCALL CLOG00 w   & Ol$,DIR$ .IF NDF $$$GLBA .PSECT $DPB$.,D$$$=.> .IFTF' CLOG$ MOD,,LNS,LNSSZ,ENS,ENSSZ2 .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CLOG$CEW1 .MACRO CLOG$S MOD,PRMLST,LNS,LNSSZ,ENS,ENSSZ,ERRZ .MCALL DIR$,MOV$,MVB$,LNMOD$R LNMOD$L MOV$ ENSSZD MOV$ ENS, MOV$ LNSSZ, MOV$ LNS( MVB$ PRMLST MVB$ #0,MOD MOV (PC)+,-(SP) .BYTE 207.,7> DIR$ ,ERR .ENDM CLOG$SW .MACRO CMKT$C EFN,AST,PSCT,ERRP .MCALL CMKT$,DIR$ .IF NDF $$$GLBC .PSECT $DPB$.,D$$$=.$ .IFTF CMKT$ EFN,AST .IFT> .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM CMKT$C.W .MACRO CMKT$S EFN,AST,ERR .MCALL DIR$,RVP$ $$$T1=0 .IIF NB EFN $$$T1=1 .IIF NB AST $$$T1=1 .IF EQ $$$T1  MOV (PC)+,-(SP) .BYTE 27.,1 .IFF RVP$ EFN,ASTN MOV (PC)+,-(SP) .BYTE 27.,3 .ENDC DIR$ ,ERR .ENDM CMKT$S+>W .MACRO CMKT$ EFN,ASTM .MCALL OFF$ .IF NDF $$$GLBA $$$T1=0 .IIF NB EFN $$$T1=1 .IIF NB AST $$$T1=1 .IF EQ $$$T1. .BYTE 27.,1 .IFF$ .BYTE 27.,3 .WORD EFN .WORD AST .ENDC .ENDC .IF NDF C.MKEF .NLISTK OFF$ OFF$ C.MKEF,2 OFF$ C.MKAE,2 .LIST .ENDC .ENDM CMKT$W .MACRO CNCT$ TNAME,EFN,EAST,ESB .MCALL OFF$,R50$ .IF NDF $$$GLB .BYTE 143.,6. R50$ TNAMEF .WORD EFN .WORD EAST .WORD ESB .ENDC .IF NDF C.NCTNN6 .IRP X,<,,,,> OFF$ X$ .ENDM .ENDC .ENDM CNCT$W( .MACRO CNCT$C TNAME,EFN,EAST,ESB,CS,ERR .MCALL CNCT$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=.N .IFTF CNCT$ TNAME,EFN,EAST,ESBS .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CNCT$CW% .MACRO CNCT$S TNAME,EFN,EAST,ESB,ERRA .MCALL DIR$,MOV$,RFA$,MVB$. MOV$ ESBL MOV$ EAST MOV$ EFN0 RFA$ TNAMEO MOV (PC)+,-(SP) .BYTE 143.,6 DIR$ ,ERR .ENDM CNCT$S.W .MACRO CPCR$ NAME .MCALL R50$,OFF$F .IF NDF $$$GLBN .BYTE 205.,3$ R50$ NAME .ENDC .IF NDF C.PCNMA OFF$E OFF$ C.PCNM,2 .ENDC .ENDM CPCR$W .MACRO CPCR$C NAME,CS,ERR .MCALL CPCR$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.E .IFTF CPCR$ NAMEC .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CPCR$CRW .MACRO CPCR$S NAME,ERRL .MCALL DIR$,MOV$,RFA$ RFA$ NAME MOV (PC)+,-(SP) .BYTE 205.,3, DIR$ ,ERR .ENDM CPCR$S$W .MACRO CRAW$ WDBA .MCALL OFF$ .IF NDF $$$GLBF .BYTE 117.,2E .WORD WDB .ENDC .IF NDF C.RABAF OFF$A OFF$ C.RABA,2 .ENDC .ENDM CRAW$W .MACRO CRAW$C WDB,CS,ERRM .MCALL CRAW$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.D .IFTF CRAW$ WDB .IFTM .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CRAW$CNW .MACRO CRAW$S WDB,ERR .MCALL DIR$,MOV$L MOV$ WDB, MOV (PC)+,-(SP) .BYTE 117.,2) DIR$ ,ERR .ENDM CRAW$SRW .MACRO CRGF$C GROUP,CS,ERRW .MCALL CRGF$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.W .IFTF CRGF$ GROUP .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CRGF$CW .MACRO CRGF$S GROUP,ERR .MCALL MOV$,DIR$F MOV$ GROUP MOV (PC)+,-(SP) .BYTE 157.,2 DIR$ ,ERR .ENDM CRGF$S W .MACRO CRGF$ GROUP$ .MCALL OFF$ .IF NDF $$$GLBR .BYTE 157.,2. .WORD GROUP .ENDC .IF NDF C.RGRP+ .NLIST. OFF$7 OFF$ C.RGRP,2 .LIST .ENDC .ENDM CRGF$W .MACRO CRRG$ RDB. .MCALL OFF$ .IF NDF $$$GLBL .BYTE 55.,2 .WORD RDB .ENDC .IF NDF C.RRBA OFF$ OFF$ C.RRBA,2 .ENDC .ENDM CRRG$W .MACRO CRRG$C RDB,CS,ERRS .MCALL CRRG$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$.,D$$$=. .IFTF CRRG$ RDB .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CRRG$CUW .MACRO CRRG$S RDB,ERR .MCALL DIR$,MOV$O MOV$ RDB MOV (PC)+,-(SP) .BYTE 55.,2 DIR$ ,ERR .ENDM CRRG$SW! .MACRO CRVT$ IAST,OAST,AAST,MLEN .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 149.,5. .WORD IASTB .WORD OASTF .WORD AAST .WORD MLEN  .ENDC .IF NDF C00   DATADATADATADATA.RVIAC6 .IRP X,<,,,,> OFF$ X, .ENDM .ENDC .ENDM CRVT$W) .MACRO CRVT$C IAST,OAST,AAST,MLEN,CS,ERRD .MCALL CRVT$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.  .IFTF CRVT$ IAST,OAST,AAST,MLEN .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CRVT$CNW& .MACRO CRVT$S IAST,OAST,AAST,MLEN,ERR .MCALL DIR$,MOV$$ MOV$ MLEN MOV$ AAST MOV$ OAST MOV$ IAST MOV (PC)+,-(SP) .BYTE 149.,5O DIR$ ,ERR .ENDM CRVT$SCW .MACRO CSRQ$C TT,RT,CS,ERR, .MCALL CSRQ$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$.,D$$$=. .IFTF CSRQ$ TT,RT .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM CSRQ$CFW .MACRO CSRQ$S TN,RN,ERR .MCALL RFA$,DIR$S RFA$ TN MOV (PC)+,-(SP) .BYTE 25.,3 DIR$ ,ERR .ENDM CSRQ$SW .MACRO CSRQ$ TT,RTT .MCALL R50$,OFF$C .IF NDF $$$GLBM .BYTE 25.,3 R50$ TT .ENDC .IF NDF C.SRTNV .NLISTS OFF$Y OFF$ C.SRTN,4 OFF$ C.SRRN,4 .LIST .ENDC .ENDM CSRQ$W .MACRO DECL$C EFN,PSCT,ERR. .MCALL DECL$,DIR$ .IF NDF $$$GLB= .PSECT $DPB$.,D$$$=. .IFTF DECL$ EFN .IFT$ .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM DECL$CAtW .MACRO DECL$S EFN,ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 35.,1 DIR$ ,ERR .ENDM DECL$S\W .MACRO DECL$ EFN. .IF NDF $$$GLB .BYTE 35.,1 .ENDC .ENDM DECL$HW! .MACRO DLON$ MOD,TBNUM,LNS,LNSSZF .MCALL OFF$,LNMOD$R .IF NDF $$$GLBN LNMOD$M .BYTE 207.,5 .BYTE 12. .BYTE MOD .BYTE TBNUM .BYTE 0 .WORD LNS .WORD LNSSZ .ENDC .IF NDF D.LFUN=A .IRP X,<,,,,,>C OFF$ XD .ENDM .ENDC .ENDM DLON$W) .MACRO DLON$C MOD,TBNUM,LNS,LNSSZ,CS,ERR. .MCALL DLON$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.  .IFTF DLON$ MOD,TBNUM,LNS,LNSSZ .IFTC .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM DLON$C,W& .MACRO DLON$S MOD,TBNUM,LNS,LNSSZ,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$E LNMOD$Y MOV$ LNSSZE MOV$ LNSY MOV$ TBNUML MVB$ #12.,MOD MOV (PC)+,-(SP) .BYTE 207.,5 DIR$ ,ERR .ENDM DLON$SDFW! .MACRO DLOG$ MOD,TBNUM,LNS,LNSSZ. .MCALL OFF$,LNMOD$ .IF NDF $$$GLB. LNMOD$N .BYTE 207.,5S .BYTE 2 .BYTE MOD .BYTE TBNUM .BYTE 0 .WORD LNS .WORD LNSSZ .ENDC .IF NDF D.LFUNDA .IRP X,<,,,,,>M OFF$ X .ENDM .ENDC .ENDM DLOG$W) .MACRO DLOG$C MOD,TBNUM,LNS,LNSSZ,CS,ERRL .MCALL DLOG$,DIR$ .IF NDF $$$GLBV .PSECT $DPB$.,D$$$=. .IFTF DLOG$ MOD,TBNUM,LNS,LNSSZ .IFTR .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM DLOG$COW& .MACRO DLOG$S MOD,TBNUM,LNS,LNSSZ,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$Y LNMOD$Y MOV$ LNSSZE MOV$ LNSY MOV$ TBNUML MVB$ #2,MOD MOV (PC)+,-(SP) .BYTE 207.,5R DIR$ ,ERR .ENDM DLOG$S,W .MACRO DSAR$C PSCT,ERR .MCALL DSAR$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.C .IFTF DSAR$ .IFT, .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM DSAR$CDpW .MACRO DSAR$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 99.,1 DIR$ ,ERR .ENDM DSAR$SXW .MACRO DSAR$M .IF NDF $$$GLBZ .BYTE 99.,1 .ENDC .ENDM DSAR$W .MACRO DSCP$C PSCT,ERR  .MCALL DSCP$,DIR$ .IF NDF $$$GLB) .PSECT $DPB$.,D$$$=.E .IFTF DSCP$ .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM DSCP$C,pW .MACRO DSCP$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 95.,1 DIR$ ,ERR .ENDM DSCP$SXW .MACRO DSCP$ .IF NDF $$$GLBR .BYTE 95.,1 .ENDC .ENDM DSCP$W .MACRO DTRG$ RDB .MCALL OFF$ .IF NDF $$$GLBR .BYTE 59.,2 .WORD RDB .ENDC .IF NDF D.TRBAD OFF$ OFF$ D.TRBA,2 .ENDC .ENDM DTRG$W .MACRO DTRG$C RDB,CS,ERRS .MCALL DTRG$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.R .IFTF DTRG$ RDB .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC00    & Ol .ENDM DTRG$CLW .MACRO DTRG$S RDB,ERR .MCALL DIR$,MOV$C MOV$ RDB MOV (PC)+,-(SP) .BYTE 59.,2 DIR$ ,ERR .ENDM DTRG$SW .MACRO ELAW$ WDB .MCALL OFF$ .IF NDF $$$GLBF .BYTE 119.,2$ .WORD WDB .ENDC .IF NDF E.LABAC OFF$N OFF$ E.LABA,2 .ENDC .ENDM ELAW$W .MACRO ELAW$C WDB,CS,ERR  .MCALL ELAW$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$.,D$$$=.C .IFTF ELAW$ WDB .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ELAW$CNW .MACRO ELAW$S WDB,ERR .MCALL DIR$,MOV$ MOV$ WDB$ MOV (PC)+,-(SP) .BYTE 119.,2S DIR$ ,ERR .ENDM ELAW$SRW .MACRO ELGF$C GROUP,CS,ERRW .MCALL ELGF$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.W .IFTF ELGF$ GROUP .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ELGF$CW .MACRO ELGF$S GROUP,ERR .MCALL MOV$,DIR$F MOV$ GROUP MOV (PC)+,-(SP) .BYTE 159.,2 DIR$ ,ERR .ENDM ELGF$S W .MACRO ELGF$ GROUP$ .MCALL OFF$ .IF NDF $$$GLBL .BYTE 159.,2. .WORD GROUP .ENDC .IF NDF E.LGRP+ .NLIST. OFF$9 OFF$ E.LGRP,2 .LIST .ENDC .ENDM ELGF$W .MACRO ELVT$ UNUM .MCALL OFF$ .IF NDF $$$GLBL .BYTE 151.,2B .WORD UNUM .ENDC .IF NDF E.LVNMF OFF$S OFF$ E.LVNM,2 .ENDC .ENDM ELVT$W .MACRO ELVT$C UNUM,CS,ERR .MCALL ELVT$,DIR$ .IF NDF $$$GLBU .PSECT $DPB$.,D$$$=.Y .IFTF ELVT$ UNUMR .IFTM .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ELVT$C.W .MACRO ELVT$S UNUM,ERR. .MCALL DIR$,MOV$N MOV$ UNUM MOV (PC)+,-(SP) .BYTE 151.,2 DIR$ ,ERR .ENDM ELVT$S.W .MACRO EMST$ TNAME,STATUS .MCALL OFF$,R50$. .IF NDF $$$GLB. .BYTE 147.,4. R50$ TNAME. .WORD STATUSE .ENDC .IF NDF E.MSTNV OFF$. OFF$ E.MSTN,4 OFF$ E.MSST,2 .ENDC .ENDM EMST$W" .MACRO EMST$C TNAME,STATUS,CS,ERR .MCALL EMST$,DIR$ .IF NDF $$$GLBU .PSECT $DPB$.,D$$$=. .IFTF EMST$ TNAME,STATUSM .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EMST$CLW .MACRO EMST$S TNAME,STATUS,ERR1 .MCALL DIR$,MOV$,RFA$ MOV$ STATUS RFA$ TNAME MOV (PC)+,-(SP) .BYTE 147.,4C DIR$ ,ERR .ENDM EMST$S$W .MACRO ENAR$C PSCT,ERRS .MCALL ENAR$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.  .IFTF ENAR$ .IFTM .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ENAR$C,rW .MACRO ENAR$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 101.,1$ DIR$ ,ERR .ENDM ENAR$SSZW .MACRO ENAR$. .IF NDF $$$GLB .BYTE 101.,1. .ENDC .ENDM ENAR$W .MACRO ENCP$C PSCT,ERRT .MCALL ENCP$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=. .IFTF ENCP$ .IFT .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM ENCP$C$pW .MACRO ENCP$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 97.,1 DIR$ ,ERR .ENDM ENCP$SNXW .MACRO ENCP$A .IF NDF $$$GLB. .BYTE 97.,1 .ENDC .ENDM ENCP$W .MACRO EXIF$C EFN,CS,ERR .MCALL EXIF$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$.,D$$$=.N .IFTF EXIF$ EFN .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EXIF$C$W .MACRO EXIF$S EFN,ERR .MCALL MOV$,DIR$ MOV$ EFNS MOV (PC)+,-(SP) .BYTE 53.,2 DIR$ ,ERR .ENDM EXIF$SW .MACRO EXIF$ EFNI .MCALL OFF$ .IF NDF $$$GLB. .BYTE 53.,2 .WORD EFN .ENDC .IF NDF E.XFEF. .NLISTP OFF$F OFF$ E.XFEF,2 .LIST .ENDC .ENDM EXIF$W .MACRO EXIT$C PSCT,ERR, .MCALL EXIT$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$.,D$$$=.$ .IFTF EXIT$ .IFTN .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM EXIT$CEW .MACRO EXIT$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 51.,1 DIR$+ .IIF NB , CALL ERR .ENDM EXIT$SEXW .MACRO EXIT$  .IF NDF $$$GLBL .BYTE 51.,1 .ENDC .ENDM EXIT$W .MACRO EXST$C STS,CS,ERRL .MCALL EXST$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=. .IFTF EXST$ STS .IF00   DATADATADATADATATC .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EXST$C.W .MACRO EXST$S STS,ERR .MCALL MOV$,DIR$,OFF$ MOV$ STS MOV (PC)+,-(SP) .BYTE 29.,2 DIR$ ,ERR .NLISTT$$$OST=05 .IRP X,<,,,>I OFF$ X> .ENDM .LIST .ENDM EXST$SW .MACRO EXST$ STSF .MCALL OFF$ .IF NDF $$$GLB .BYTE 29.,2 .WORD STS .ENDC .IF NDF E.XSTSC .NLIST. OFF$X OFF$ E.XSTS,2$$$OST=05 .IRP X,<,,,> OFF$ XS .ENDM .LIST .ENDC .ENDM EXST$W .MACRO EXTK$C INC,CS,ERR .MCALL EXTK$,DIR$ .IF NDF $$$GLBM .PSECT $DPB$.,D$$$=.. .IFTF EXTK$ INC .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM EXTK$CEW .MACRO EXTK$S INC,ERR .MCALL MOV$,DIR$ CLR -(SP) MOV$ INC  MOV (PC)+,-(SP) .BYTE 89.,3 DIR$ ,ERR .ENDM EXTK$SSW .MACRO EXTK$ INC. .MCALL OFF$ .IF NDF $$$GLBT .BYTE 89.,3 .WORD INC .WORD 0 .ENDC .IF NDF E.XTINO .NLIST. OFF$. OFF$ E.XTIN,2 .LIST .ENDC .ENDM EXTK$W .MACRO FEAT$ FEAT .MCALL OFF$,FEADF$$ .IF NDF $$$GLBB .BYTE 177.,2. .WORD FEATI .ENDC .IF NDF F.EAF OFF$$ OFF$ F.EAF,2 .IF DF $$$GLB FEADF$ ,<=> .IFFA FEADF$S .ENDC .ENDC .ENDM FEAT$W .MACRO FEAT$C FEAT,CS,ERR .MCALL FEAT$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.  .IFTF FEAT$ FEATF .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMW .MACRO FEAT$S FEAT,ERRO .MCALL MOV$,DIR$2 MOV$ FEAT MOV (PC)+,-(SP) .BYTE 177.,2. DIR$ ,ERR .ENDMW+ .MACRO FSS$ FSBUF,FSSZ,PRSBLK,PRSSZ,RESERVO .MCALL OFF$ .IF NDF $$$GLBF .IIF NB RESERV, .ERROR .BYTE 207.,7 .BYTE 5 .BYTE 0 .WORD 0 .WORD FSBUF .WORD FSSZA .WORD PRSBLK .WORD PRSSZ .ENDC .IF NDF F.RSV1LA .IRP X,<,,,,,>F OFF$ XF .ENDM .IRP X,<,>N OFF$ XM .ENDM .ENDC .ENDM FSS$EW3 .MACRO FSS$C FSBUF,FSSZ,PRSBLK,PRSSZ,RESERV,CS,ERRE .MCALL FSS$,DIR$R .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.B .IFTF$ FSS$ FSBUF,FSSZ,PRSBLK,PRSSZ,RESERV .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM FSS$CW0 .MACRO FSS$S FSBUF,FSSZ,PRSBLK,PRSSZ,RESERV,ERR .IIF NB RESERV, .ERRORC .MCALL DIR$,MOV$,MVB$ MOV$ PRSSZ, MOV$ PRSBLK MOV$ FSSZ MOV$ FSBUFL MOV$ #0 MVB$ #5,. MOV (PC)+,-(SP) .BYTE 207.,7, DIR$ ,ERR .ENDM FSS$SW* .MACRO GCCI$ CBUF,CBFL,IBUF,IBFL,ADDR,NCP .MCALL OFF$ .IF NDF $$$GLB. .BYTE 127.,7. .BYTE NCP .BYTE 0 .WORD ADDRD .WORD CBUFF .WORD CBFLU .WORD IBUF, .WORD IBFL .ENDC .IF NDF G.CCNC A .IRP X,<,,,,,>U OFF$ XS .ENDM OFF$ G.CCIL,2$$$OST=0K .IRP X,<,,,,,> OFF$ XU .ENDM$$$OST=0@ .IRP X,<,,,,> OFF$ X .ENDM .IRP X,<,> OFF$ XN .ENDM .IF DF $$$GLB# .GLOBL GC.CND,GC.CST,GC.CEX,GC.CCSP .ENDC GC.CND=200 GC.CST=002 GC.CEX=001 GC.CCS=000 .ENDC .ENDM GCCI$W2 .MACRO GCCI$C CBUF,CBFL,IBUF,IBFL,ADDR,NCP,CS,ERR .MCALL GCCI$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.$ .IFTF# GCCI$ CBUF,CBFL,IBUF,IBFL,ADDR,NCPA .IFTC .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMW/ .MACRO GCCI$S CBUF,CBFL,IBUF,IBFL,ADDR,NCP,ERR> .MCALL MOV$,MVB$,DIR$ MOV$ IBFL MOV$ IBUF MOV$ CBFL MOV$ CBUF MOV$ ADDR MVB$ NCP,#0 MOV (PC)+,-(SP) .BYTE 127.,7. DIR$ ,ERR .ENDMW# .MACRO GCII$ BUF,BUFL,CLI,DEV,UNITG .MCALL OFF$,R50$ .IF NDF $$$GLBC .BYTE 173.,7. .WORD BUF .WORD BUFLC R50$ CLII$$$T2=.N .ASCII /DEV/S .=$$$T2+2D .BYTE UNIT,0F .ENDC .IF NDF G.CIBFB;AA .IRP X,<,,,,,> OFF$ X .ENDM$$$OST=0@ .IRP X,<,,,00    & Ol,> OFF$ X  .ENDM! .IRP X,<,>M OFF$ X0 .ENDM .ENDC .ENDM GCII$W+ .MACRO GCII$C BUF,BUFL,CLI,DEV,UNIT,CS,ERRU .MCALL GCII$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D .IFTF$$$=. GCII$ BUF,BUFL,CLI,DEV,UNIT .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMW( .MACRO GCII$S BUF,BUFL,CLI,DEV,UNIT,ERR .MCALL MOV$,MVB$,DIR$,RFA$V MVB$ UNIT,#0 MOV$ DEV RFA$ CLIO MOV$ BUFL MOV$ BUF4 MOV (PC)+,-(SP) .BYTE 173.,7. DIR$ ,ERR .ENDM GCII$SNFW! .MACRO GDIR$ MOD,ENS,ENSSZ,RSIZEN .MCALL OFF$,LNMOD$I .IF NDF $$$GLB LNMOD$R .BYTE 207.,6. .BYTE 4 .BYTE MOD .WORD 0 .WORD ENS .WORD ENSSZ .WORD RSIZE .ENDC .IF NDF G.DFUNGA .IRP X,<,,,,,>N OFF$ XM .ENDM .ENDC .ENDM GDIR$W) .MACRO GDIR$C MOD,ENS,ENSSZ,RSIZE,CS,ERR .MCALL GDIR$,DIR$ .IF NDF $$$GLBO .PSECT $DPB$.,D$$$=. .IFTF GDIR$ MOD,ENS,ENSSZ,RSIZE .IFTR .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GDIR$COW& .MACRO GDIR$S MOD,ENS,ENSSZ,RSIZE,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$Y LNMOD$Y MOV$ RSIZED MOV$ ENSSZS MOV$ ENSS MOV$ #0 MVB$ #4,MOD MOV (PC)+,-(SP) .BYTE 207.,6D DIR$ ,ERR .ENDM GDIR$S>W$ .MACRO GDVI$C LUN,BUFA,BUFL,CS,ERR .MCALL GDVI$,DIR$ .IF NDF $$$GLBD .PSECT $DPB$.,D$$$=.C .IFTF GDVI$ LUN,BUFA,BUFL .IFT$ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GDVI$CD6W .MACRO GDVI$S LUN,BUFA,BUFL,ERR .MCALL MOV$,DIR$,OFF$ MOV$ BUFL MOV$ BUFA MOV$ LUNM MOV (PC)+,-(SP) .BYTE 5,4 DIR$ ,ERR .IF NDF G.DVNAM .NLISTV$$$OST=0A .IRP X,<,,,,> OFF$ X7 .ENDM .LIST .ENDC .ENDM GDVI$SW .MACRO GDVI$ LUN,BUFA,BUFLR .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 5,4 .WORD LUN .WORD BUFAF .WORD BUFLN .ENDC .IF NDF G.DVLUC .NLISTR+ .IRP X,<,,,> OFF$ X. .ENDM .IF NDF G.DVNAL$$$OST=0B .IRP X,<,,,,> OFF$ XY .ENDM .ENDC .LIST .ENDC .ENDM GDVI$hW- .MACRO GIN$C SFCN,P1,P2,P3,P4,P5,P6,P7,P8,P9, .MCALL GIN$,DIR$,GFN$,OFF$M .IF NDF $$$GLB .PSECT $DPB$.,D$$$=. .IFTF GFN$ .NARG $$$NA $$$I=$$$NC .BYTE 169.,$$$N+1. .IRP $$$PRM, .IF EQ $$$I .MEXITF .IFFD $$$I=$$$I-1R .ENDC .WORD $$$PRM< .ENDR .IF NDF G.INSFO .NLIST.6 .IRP X,<,,,,> OFF$ X< .ENDR* .IRP X,<,,> OFF$ X .ENDR* .IRP X,<,,> OFF$ X  .ENDR .ENDC .IFTP .PSECT CS DIR$ #$$$ .ENDC .ENDM GIN$C<W- .MACRO GIN$S SFCN,P1,P2,P3,P4,P5,P6,P7,P8,P9A .MCALL MOV$,DIR$,OFF$,MVB$,GFN$ GFN$$ .NARG $$$N, $$$I=$$$N,$$$K=9.P. .IRP $$$PRM, .IF GT $$$I-$$$K$ MOV$ $$$PRM .ENDC $$$K=$$$K-1L .ENDR MOV (PC)+,-(SP) .BYTE 169.,$$$N+1 DIR$P .ENDM GIN$SW, .MACRO GIN$ SFCN,P1,P2,P3,P4,P5,P6,P7,P8,P9 .MCALL OFF$,GFN$< .IF NDF $$$GLB, GFN$P .NARG $$$N $$$I=$$$N .BYTE 169.,$$$N+1. .IRP $$$PRM, .IF EQ $$$I .MEXIT$ .IFFP $$$I=$$$I-1, .ENDC .WORD $$$PRMO .ENDR .ENDC .IF NDF G.INSF. .NLIST,6 .IRP X,<,,,,> OFF$ XS .ENDM* .IRP X,<,,> OFF$ X .ENDR* .IRP X,<,,> OFF$ XG .ENDR .ENDC .ENDM GIN$RW .MACRO GLUN$C LUN,BUFA,CS,ERR$ .MCALL GLUN$,DIR$ .IF NDF $$$GLBA .PSECT $DPB$.,D$$$=.Y .IFTF GLUN$ LUN,BUFAP .IFTN .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GLUN$C$W .MACRO GLUN$S LUN,BUFA,ERR .MCALL MOV$,DIR$,OFF$ MOV$ BUFA MOV$ LUNR MOV (PC)+,-(SP) .BYTE 5,3 DIR$ ,ERR .IF NDF G.LUNAS .NLIST$$$OST=06 .IRP X,<,,,> OFF$ XP .ENDM .LIST .ENDC .ENDM GLUN$S`W .MACRO GLUN$ LUN,BUFA .MCALL OFF$ .IF NDF $$$GLBC .BYTE 5,3 .WORD LUN .WORD BUFA$ .ENDC .IF NDF G.LULU .NLIST.+ .IRP X,<,,,>D OFF$ XE .ENDM .IF NDF G.LUNA$$$$OST=06 .IRP X,<,,,> OFF$ XM .ENDM .ENDC .LIST .ENDC .ENDM GLUN$W .MACRO GMCR$C CS,ERRS .MCALL GMCR$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$.,D$$$=., .IFTF GMCR$ .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GMCR$C.W .MACRO GMCR$$ .MCALL OFF$ .IF NDF $$$GLB .BYTE 127.,41.D .BLKW 40. .ENDC .IF NDF G.MCRBL .NLISTR OFF$G OFF$ G.MCRB,80. .LIST .ENDC .ENDM GMCR$W .MACRO GMCX$ WVEC .MCALL OFF$ .IF NDF $$$GLBB .BYTE 113.,2> .WORD WVEC. .ENDC .IF NDF G.MCVAN OFF$N OFF$ G.MCVA,2 .ENDC .ENDM GMCX$W .MACRO GMCX$C WVEC,CS,ERR .MCALL GMCX$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.  .IFTF GMCX$ WVEC. .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GMCX$CCW .MACRO GMCX$S WVEC,ERRD .MCALL DIR$,MOV$C MOV$ WVEC MOV (PC)+,-(SP) .BYTE 113.,2. DIR$ ,ERR .ENDM GMCX$S.W .MACRO GPRT$C PRT,BUF,CS,ERR .MCALL GPRT$,DIR$ .IF NDF $$$GLBE .PSECT $DPB$.,D$$$=.. .IFTF GPRT$ PRT,BUF .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GPRT$CW .MACRO GPRT$S PRT,BUF,ERR .MCALL MOV$,RFA$,DIR$,OFF$C MOV$ BUF RFA$ PRTF MOV (PC)+,-(SP) .BYTE 65.,4 DIR$ ,ERR .IF NDF G.PRPB .NLISTC$$$OST=0* .IRP X,<,,> OFF$ XM .ENDM .LIST .ENDC .ENDM GPRT$SYBW .MACRO GPRT$ PRT,BUF .MCALL OFF$,R50$A .IF NDF $$$GLBF .BYTE 65.,4 R50$ PRTI .WORD BUF .ENDC .IF NDF G.PRPND .NLIST OFF$ OFF$ G.PRPN,4 OFF$ G.PRBA,2 .IF NDF G.PRPBR$$$OST=0* .IRP X,<,,> OFF$ XB .ENDM .ENDC .LIST .ENDC .ENDM GPRT$HW .MACRO GREG$ RID,BUF6 .MCALL OFF$ .IF NDF $$$GLBP .BYTE 65.,4 .WORD 0,RID .WORD BUF .ENDC .IF NDF G.RGID> .NLISTM OFF$M OFF$ ,2 OFF$ G.RGID,2 OFF$ G.RGBA,2 .IF NDF G.RGRB $$$OST=0* .IRP X,<,,> OFF$ X. .ENDM .ENDC .LIST .ENDC .ENDM GREG$W .MACRO GREG$C RID,BUF,CS,ERR. .MCALL GREG$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=., .IFTF GREG$ RID,BUF .IFTM .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GREG$CW .MACRO GREG$S RID,BUF,ERR .MCALL MOV$,DIR$,OFF$ MOV$ BUFD MOV$ RIDO CLR -(SP) MOV (PC)+,-(SP) .BYTE 65.,4 DIR$ ,ERR .IF NDF G.RGRBD .NLIST $$$OST=0* .IRP X,<,,> OFF$ XR .ENDM .LIST .ENDC .ENDM GREG$SNW .MACRO GSSW$C PSCT,ERR .MCALL GSSW$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=.F .IFTF GSSW$ .IFTD .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM GSSW$CCrW .MACRO GSSW$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 125.,1F DIR$ ,ERR .ENDM GSSW$S$ZW .MACRO GSSW$S .IF NDF $$$GLBS .BYTE 125.,14 .ENDC .ENDM GSSW$W .MACRO GTIM$C BUFA,CS ERR .MCALL GTIM$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.. .IFTF GTIM$ BUFA .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GTIM$CFVW .MACRO GTIM$S BUFA,ERRF .MCALL MOV$,DIR$,OFF$ MOV$ BUFA MOV (PC)+,-(SP) .BYTE 61.,2 DIR$ ,ERR .IF NDF G.TIYRR .NLISTE$$$OST=05 .IRP X,<,,,>. OFF$ X$ .ENDM5 .IRP X,<,,,>1 OFF$ X. .ENDM .LIST .ENDC .ENDM GTIM$S.tW .MACRO GTIM$ BUFA .MCALL OFF$ .IF NDF $$$GLBC .BYTE 61.,2 .WORD BUFA .ENDC .IF NDF G.TIBAS .NLISTD OFF$$ OFF$ G.TIBA,2 .IF NDF G.TIYR$$$OST=05 .IRP X,<,,,>M OFF$ X .ENDM5 .IRP 00    & OlX,<,,,>. OFF$ X$ .ENDM .ENDC .LIST .ENDC .ENDM GTIM$W .MACRO GTSK$C BUFA,CS,ERR .MCALL GTSK$,DIR$ .IF NDF $$$GLBC .PSECT $DPB$.,D$$$=. .IFT GTSK$ BUFAM .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM GTSK$C$W .MACRO GTSK$S BUFA,ERRF .MCALL MOV$,DIR$,OFF$ MOV$ BUFA MOV (PC)+,-(SP) .BYTE 63.,2 DIR$ ,ERR .IF NDF G.TSTN  .NLISTR$$$OST=0@ .IRP X,<,,,,> OFF$ X, .ENDM@ .IRP X,<,,,,> OFF$ X .ENDM OFF$ G.TSVL,2 OFF$ G.TSTS,2 OFF$ G.TSSY,2 OFF$ G.TSDU,2$$$OST=05 .IRP X,<,,,>. OFF$ X  .ENDM .LIST .ENDC .ENDM GTSK$S$W .MACRO GTSK$ BUFA .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 63.,2 .WORD BUFAS .ENDC .IF NDF G.TSBAE .NLISTN OFF$T OFF$ G.TSBA,2 .IF NDF G.TSTN<$$$OST=0@ .IRP X,<,,,,> OFF$ X. .ENDM@ .IRP X,<,,,,> OFF$ XL .ENDM OFF$ G.TSVL,2 OFF$ G.TSTS,2 OFF$ G.TSSY,2 OFF$ G.TSDU,2$$$OST=05 .IRP X,<,,,>. OFF$ XN .ENDM .ENDC .LIST .ENDC .ENDM GTSK$^W .MACRO IHAR$C PSCT,ERR .MCALL DSAR$C DSAR$C PSCT,ERR .ENDM IHAR$CBTW .MACRO IHAR$S ERR .MCALL DSAR$S DSAR$S ERR. .ENDM IHAR$S4HW .MACRO IHAR$> .MCALL DSAR$O DSAR$ .ENDM IHAR$W .MACRO MAP$ WDB .MCALL OFF$ .IF NDF $$$GLBL .BYTE 121.,2 .WORD WDB .ENDC .IF NDF M.APBAY OFF$F OFF$ M.APBA,2 .ENDC .ENDM MAP$DW .MACRO MAP$C WDB,CS,ERR .MCALL MAP$,DIR$C .IF NDF $$$GLB .PSECT $DPB$.,D$$$=. .IFTF MAP$ WDBC .IFTR .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM MAP$CW .MACRO MAP$S WDB,ERR .MCALL DIR$,MOV$A MOV$ WDB. MOV (PC)+,-(SP) .BYTE 121.,2. DIR$ ,ERR .ENDM MAP$SW" .MACRO MRKT$C EF,TM,TU,AST,CS,ERR .MCALL MRKT$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$.,D$$$=.W .IFTF MRKT$ EF,TM,TU,AST .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM MRKT$CW .MACRO MRKT$S EF,TM,TU,AST,ERR. .MCALL RVP$,DIR$S RVP$ EF,TM,TU,AST MOV (PC)+,-(SP) .BYTE 23.,5 DIR$ ,ERR .ENDM MRKT$S.W .MACRO MRKT$ EFN,TM,TU,ASTA .MCALL OFF$ .IF NDF $$$GLBA .BYTE 23.,5 .WORD EFN .WORD TME .WORD TUD .WORD AST .ENDC .IF NDF M.KTEF .NLISTR6 .IRP X,<,,,,> OFF$ XL .ENDM .LIST .ENDC .ENDM MRKT$W .MACRO MSDS$ MASK .MCALL OFF$ .IF NDF $$$GLBM .BYTE 201.,2. .WORD MASK. .ENDC .IF NDF M.SDMA, .IRP X,<,>S OFF$ XF .ENDM .ENDC .ENDM MSDS$W .MACRO MSDS$C MASK,CS,ERR .MCALL MSDS$,DIR$ .IF NDF $$$GLB, .PSECT $DPBD$ D$$$=.N .IFTF MSDS$ MASK. .IFTO .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMW .MACRO MSDS$S MASK,ERR, .MCALL MOV$,DIR$G MOV$ MASK MOV (PC)+,-(SP) .BYTE 201.,2. DIR$ ,ERR .ENDMW .MACRO MVTS$ ACTION,ADDR,VAL. .MCALL OFF$ .IF NDF $$$GLB. .BYTE 203.,4. .WORD ACTIONN .WORD ADDRM .WORD VAL .ENDC .IF NDF M.VTAC 6 .IRP X,<,,,,> OFF$ XC .ENDM $$$=05 .IRP X,<,,,>$ OFF$ XF .ENDM5 .IRP X,<,,,>. OFF$ X .ENDM .ENDC .ENDM MVTS$W% .MACRO MVTS$C ACTION,ADDR,VAL,CS,ERR) .MCALL MVTS$,DIR$ .IF NDF $$$GLB .PSECT $DPBD$ D$$$=.  .IFTF MVTS$ ACTION,ADDR,VAL .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMW" .MACRO MVTS$S ACTION,ADDR,VAL,ERR .MCALL MOV$,DIR$, MOV$ VAL2 MOV$ ADDR MOV$ ACTION MOV (PC)+,-(SP) .BYTE 203.,4. DIR$ ,ERR .ENDMWV .MACRO PFCS$ MOD,TBMSK,LUN,PRBUF,PRSZ,RSBUF,RSSZ,RSLEN,00   DATADATADATADATAPRSBLK,PRSSZ,DFNBK,DFNSZ,RSMSK .MCALL OFF$,LNMOD$ .IF NDF $$$GLB LNMOD$ .BYTE 207.,13.C .BYTE 8.R .BYTE MOD .BYTE LUN .BYTE TBMSK .WORD PRBUF .WORD PRSZ$ .WORD RSBUF .WORD RSSZA .WORD RSLEN .WORD PRSBLKC .WORD PRSSZ .WORD DFNBK .WORD DFNSZ .WORD RSMSK .ENDC .IF NDF F.LMODR6 .IRP X,<,,,,> OFF$ XN .ENDM5 .IRP X,<,,,> OFF$ X .ENDM5 .IRP X,<,,,>P OFF$ XK .ENDM .IRP X,<,>N OFF$ X .ENDM .ENDC .ENDM PFCS$HW^ .MACRO PFCS$C MOD,TBMSK,LUN,PRBUF,PRSZ,RSBUF,RSSZ,RSLEN,PRSBLK,PRSSZ,DFNBK,DFNSZ,RSMSK,CS,ERR .MCALL PFCS$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=. .IFTFO PFCS$ MOD,TBMSK,LUN,PRBUF,PRSZ,RSBUF,RSSZ,RSLEN,PRSBLK,PRSSZ,DFNBK,DFNSZ,RSMSKL .IFTO .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM PFCS$CRW[ .MACRO PFCS$S MOD,TBMSK,LUN,PRBUF,PRSZ,RSBUF,RSSZ,RSLEN,PRSBLK,PRSSZ,DFNBK,DFNSZ,RSMSK,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$N LNMOD$ MOV$ RSMSKN MOV$ DFNSZC MOV$ DFNBK MOV$ PRSSZR MOV$ PRSBLK MOV$ RSLENF MOV$ RSSZ MOV$ RSBUFS MOV$ PRSZ MOV$ PRBUFS MVB$ LUN,TBMSK MVB$ #8.,MODF MOV (PC)+,-(SP) .BYTE 207.,13.= DIR$ ,ERR .ENDM PFCS$SKWU .MACRO PRMS$ MOD,TBMSK,LUN,PRBUF,PRSZ,RSBUF,RSSZ,RSLEN,PRSBLK,PRSSZ,DFBUF,DFSZ,RSMSKN .MCALL OFF$,LNMOD$ .IF NDF $$$GLB. LNMOD$S .BYTE 207.,13.P .BYTE 7 .BYTE MOD .BYTE LUN .BYTE TBMSK .WORD PRBUF .WORD PRSZ$ .WORD RSBUF .WORD RSSZ .WORD RSLEN .WORD PRSBLK .WORD PRSSZ .WORD DFBUF .WORD DFSZ .WORD RSMSK .ENDC .IF NDF R.LFUN6 .IRP X,<,,,,> OFF$ X( .ENDM5 .IRP X,<,,,> OFF$ X .ENDM5 .IRP X,<,,,>K OFF$ XB .ENDM .IRP X,<,>F OFF$ XL .ENDM .ENDC .ENDM PRMS$FW] .MACRO PRMS$C MOD,TBMSK,LUN,PRBUF,PRSZ,RSBUF,RSSZ,RSLEN,PRSBLK,PRSSZ,DFBUF,DFSZ,RSMSK,CS,ERRR .MCALL PRMS$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=. .IFTFN PRMS$ MOD,TBMSK,LUN,PRBUF,PRSZ,RSBUF,RSSZ,RSLEN,PRSBLK,PRSSZ,DFBUF,DFSZ,RSMSK .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM PRMS$C.~WZ .MACRO PRMS$S MOD,TBMSK,LUN,PRBUF,PRSZ,RSBUF,RSSZ,RSLEN,PRSBLK,PRSSZ,DFBUF,DFSZ,RSMSK,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$, LNMOD$F MOV$ RSMSK MOV$ DFSZ MOV$ DFBUF MOV$ PRSSZ MOV$ PRSBLK MOV$ RSLENN MOV$ RSSZ MOV$ RSBUFL MOV$ PRSZ MOV$ PRBUFZ MVB$ LUN,TBMSK. MVB$ #7,MOD MOV (PC)+,-(SP) .BYTE 207.,13.. DIR$ ,ERR .ENDM PRMS$SMW6 .MACRO QIO$C FNC,LUN,EFN,PRI,IOST,AST,PRMLST,PSCT,ERR .MCALL QDPB$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$.,D$$$=. .IFTF* QDPB$ 1,FNC,LUN,EFN,PRI,IOST,AST, .IFTS .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM QIO$CW1 .MACRO QIO$S FNC,LUN,EFN,PRI,IOST,AST,PRMLST,ERRU .MCALL QDPB$S/ QDPB$S 1,FNC,LUN,EFN,PRI,IOST,AST,,ERRS .ENDM QIO$SW, .MACRO QIO$ FNC,LUN,EFN,PRI,IOST,AST,PRMLST .MCALL QDPB$,* QDPB$ 1,FNC,LUN,EFN,PRI,IOST,AST, .ENDM QIO$RW7 .MACRO QIOW$C FNC,LUN,EFN,PRI,IOST,AST,PRMLST,PSCT,ERRN .MCALL QDPB$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.E .IFTF* QDPB$ 3,FNC,LUN,EFN,PRI,IOST,AST, .IFTE .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM QIOW$CIW2 .MACRO QIOW$S FNC,LUN,EFN,PRI,IOST,AST,PRMLST,ERR .MCALL QDPB$S/ QDPB$S 3,FNC,LUN,EFN,PRI,IOST,AST,,ERR .ENDM QIOW$S$W- .MACRO QIOW$ FNC,LUN,EFN,PRI,IOST,AST,PRMLSTN .MCALL QDPB$S* QDPB$ 3,FNC,LUN,EFN,PRI,IOST,AST, .ENDM QIOW$vW6 .MACRO QDPB$S DIC,FNC,LUN,EFN,PRI,IOST,AST,PRMLST,ERR .MCALL RVP$,MVB$,DIR$ .NLIST$$$ARG=0 .IRP X,$$$ARG=$$$ARG+1M .ENDM .LIST .IF GT 6-$$$ARG .REPT <6-$$$ARG>. CLR -(SP) .ENDR .ENDC .IIF NB , RVP$ PRMLST RVP$ IOST,AST MVB00    & Ol$ EFN, RVP$ FNC,LUNP MOV (PC)+,-(SP) .BYTE DIC,12. DIR$ ,ERR .ENDM QDPB$S"W1 .MACRO QDPB$ DIC,FNC,LUN,EFN,PRI,IOST,AST,PRMLSTC .MCALL OFF$ .IF NDF $$$GLBN .BYTE DIC,12. .WORD FNC .WORD LUN .BYTE EFN,0 .WORD IOSTB .WORD AST .NLISTI$$$ARG=0 .LIST .IRP X, .WORD X .NLIST$$$ARG=$$$ARG+1, .LIST .ENDM .IF GT 6-$$$ARG .REPT <6-$$$ARG>- .WORD 0 .ENDR .ENDC .ENDC .IF NDF Q.IOFNN .NLIST 6 .IRP X,<,,,,> OFF$ XU .ENDM( .IRP X,<,,> OFF$ XP .ENDM .LIST .ENDC .ENDM QDPB$W .MACRO RCST$ TNAME,BUFL .MCALL OFF$,R50$$ .IF NDF $$$GLB1 .BYTE 139.,4 R50$ TNAME. .WORD BUF .ENDC .IF NDF R.CSTN OFF$I OFF$ R.CSTN,4 OFF$ R.CSBF,2 .ENDC .ENDM RCST$W .MACRO RCST$C TNAME,BUF,CS,ERRA .MCALL RCST$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$.,D$$$=.N .IFTF RCST$ TNAME,BUF .IFTQ .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RCST$CUW .MACRO RCST$S TNAME,BUF,ERR .MCALL DIR$,MOV$,RFA$ MOV$ BUFC RFA$ TNAME$ MOV (PC)+,-(SP) .BYTE 139.,4 DIR$ ,ERR .ENDM RCST$S0W .MACRO RDAF$C BA,CS,ERR .MCALL RDAF$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$.,D$$$=.S .IFTF RDAF$ BA2 .IFTC .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RDAF$CAW .MACRO RDAF$S BA,ERRN .MCALL MOV$,DIR$  MOV$ BA MOV (PC)+,-(SP) .BYTE 39.,2 DIR$ ,ERR .ENDM RDAF$S W .MACRO RDAF$ BA .MCALL OFF$ .IF NDF $$$GLBT .BYTE 39.,2 .WORD BA$ .ENDC .IF NDF R.DABAR .NLIST$ OFF$( OFF$ R.DABA,2.E .LIST .ENDC .ENDM RDAF$W" .MACRO RDBBK$ SIZ,NAM,PAR,STS,PRO .MCALL RDBDF$,R50$F RDBDF$L .WORD 0 .WORD SIZ R50$ NAMF R50$ PARB .WORD STS .WORD PRO .ENDM RDBBK$"W .MACRO RDBDF$ GBL .MCALL .BLKW.,.BLK. .BLK. .BLKW. 1,R.GID,GBLV .BLKW. 1,R.GSIZ,GBL .BLKW. 2,R.GNAM,GBL .BLKW. 2,R.GPAR,GBL .BLKW. 1,R.GSTS,GBL .BLKW. 1,R.GPRO,GBL .BLKW. 0,R.GLGH,GBL .IF IDN ,1 .GLOBL RS.CRR,RS.UNM,RS.MDL,RS.NDL,RS.ATT,RS.NEXF# .GLOBL RS.DEL,RS.EXT,RS.WRT,RS.REDR .ENDCRS.CRR=^O<100000>ARS.UNM=^O<40000>RS.MDL=^O<200>RS.NDL=^O<100> RS.ATT=^O<40>. RS.NEX=^O<20>S RS.DEL=^O<10> RS.EXT=^O<4> RS.WRT=^O<2> RS.RED=^O<1> .MACRO RDBDF$ X .ENDM .ENDM RDBDF$$W .MACRO RDEF$C EFN,CS,ERR, .MCALL RDEF$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$.,D$$$=.  .IFTF RDEF$ EFN .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RDEF$CW .MACRO RDEF$S EFN,ERR .MCALL MOV$,DIR$S MOV$ EFNF MOV (PC)+,-(SP) .BYTE 37.,2 DIR$ ,ERR .ENDM RDEF$S0W .MACRO RDEF$ EFN0 .MCALL OFF$ .IF NDF $$$GLB0 .BYTE 37.,2 .WORD EFN .ENDC .IF NDF R.DEEFS .NLIST> OFF$D OFF$ R.DEEF,2.D .LIST .ENDC .ENDM RDEF$W .MACRO RDXF$C BA,CS,ERR .MCALL RDXF$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$.,D$$$=.= .IFTF RDXF$ BAE .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RDXF$C$W .MACRO RDXF$S BA,ERRE .MCALL MOV$,DIR$R CLR -(SP) MOV$ BA MOV (PC)+,-(SP) .BYTE 39.,3.E DIR$ ,ERR .ENDM RDXF$SW .MACRO RDXF$ BA .MCALL OFF$ .IF NDF $$$GLBE .BYTE 39.,3.E .WORD BA .WORD 0 .ENDC .IF NDF R.DABA .NLISTE OFF$ OFF$ R.DABA,2.. .LIST .ENDC .ENDM RDXF$W .MACRO RCVD$C TN,BA,CS,ERR. .MCALL RCVD$,DIR$ .IF NDF $$$GLB= .PSECT $DPB$.,D$$$=.. .IFTF RCVD$ TN,BA .IFTE .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RCVD$CRW .MACRO RCVD$S TN,BA,ERR .MCALL MOV$,DIR$, RFA$+ MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 75.,4 DIR$ ,ERR .ENDM RCVD$SDW .MACRO RCVD$ TN,BA .MCALL OFF$, R50$ .IF NDF $$$GLB .BYTE 75.,4 R50$ TN .WORD BA .ENDC .IF NDF R.VDTN .NLIST. .IRP X,<,,> OFF$ XR .ENDM .LIST .ENDC .ENDM RCVD$W .MACRO RCVX$C TN,BA,CS,ERR.00   DATADATADATADATA .MCALL RCVX$,DIR$ .IF NDF $$$GLBC .PSECT $DPB$.,D$$$=.N .IFTF RCVX$ TN,BA .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RCVX$C,W .MACRO RCVX$S TN,BA,ERR .MCALL MOV$,DIR$, RFA$R MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 77.,4 DIR$ ,ERR .ENDM RCVX$S.W .MACRO RCVX$ TN,BA .MCALL OFF$, R50$ .IF NDF $$$GLB .BYTE 77.,4 R50$ TN .WORD BAD .ENDC .IF NDF R.VXTN .NLIST. .IRP X,<,,> OFF$ XR .ENDM .LIST .ENDC .ENDM RCVX$W? .MACRO RLON$ MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMODS .MCALL OFF$,LNMOD$R .IF NDF $$$GLBR LNMOD$ .BYTE 207.,10.. .BYTE 14. .BYTE MOD .WORD TBMSK .WORD LNS .WORD LNSSZ .WORD ENS .WORD ENSSZ .WORD RSIZE .WORD RTBMODM .WORD STATUS .ENDC .IF NDF R.LFUN A .IRP X,<,,,,,>N OFF$ XB .ENDM@ .IRP X,<,,,,> OFF$ X .ENDM .ENDC .ENDM RLON$WG .MACRO RLON$C MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD,CS,ERR .MCALL RLON$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$.,D$$$=.0 .IFTF8 RLON$ MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RLON$C.@WD .MACRO RLON$S MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$. LNMOD$R MOV$ STATUS MOV$ RTBMOD MOV$ RSIZEL MOV$ ENSSZS MOV$ ENS MOV$ LNSSZ. MOV$ LNSM MVB$ TBMSK,#0 MVB$ #14.,MOD MOV (PC)+,-(SP) .BYTE 207.,10., DIR$ ,ERR .ENDM RLON$SRW? .MACRO RLOG$ MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMODM .MCALL OFF$,LNMOD$N .IF NDF $$$GLBZ LNMOD$ .BYTE 207.,10.S .BYTE 10. .BYTE MOD .WORD TBMSK .WORD LNS .WORD LNSSZ .WORD ENS .WORD ENSSZ .WORD RSIZE .WORD RTBMODT .WORD STATUSL .ENDC .IF NDF R.LFUNA .IRP X,<,,,,,>M OFF$ X .ENDM@ .IRP X,<,,,,> OFF$ X2 .ENDM .ENDC .ENDM RLOG$WG .MACRO RLOG$C MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD,CS,ERR .MCALL RLOG$,DIR$ .IF NDF $$$GLBZ .PSECT $DPB$.,D$$$=.0 .IFTF8 RLOG$ MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RLOG$C.@WD .MACRO RLOG$S MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$. LNMOD$R MOV$ STATUS MOV$ RTBMOD MOV$ RSIZEL MOV$ ENSSZS MOV$ ENS MOV$ LNSSZ. MOV$ LNSM MVB$ TBMSK,#0 MVB$ #10.,MOD MOV (PC)+,-(SP) .BYTE 207.,10., DIR$ ,ERR .ENDM RLOG$SRdW .MACRO RMAF$S ERR MOV (PC)+,-(SP) .BYTE 163.,1F DIR$ ,ERR .ENDM RMAF$S,WN .MACRO RPOI$ TNAME,PN,PR,UGC,UMC,PARENT,BUFADR,BUFLEN,SC,DNAM,UNIT,TASK,OCBAD .MCALL R50$,OFF$R .IF NDF $$$GLBK .BYTE 11.,16. R50$ TNAMES .BLKW 3 .BYTE UMC,UGC R50$ PARENT .WORD OCBAD .WORD BUFADRS .WORD BUFLEN .BYTE UNIT .BYTE SCS .IF NB DNAM$$$T2=.S .ASCII /DNAM/ .=$$$T2+2, .IFFB .WORD .ENDC R50$ TASK .ENDC .IF NDF R.POTK B .IRP X,<,,,,,> OFF$ X .ENDM@ .IRP X,<,,,,> OFF$ XN .ENDM OFF$ R.POTN,2 .IF DF $$$GLB .GLOBL RP.OEX,RP.OAL,RP.ONX .ENDC RP.OEX=200 RP.OAL=001 RP.ONX=002 .ENDC .ENDM RPOI$8WV .MACRO RPOI$C TNAME,PN,PR,UGC,UMC,PARENT,BUFADR,BUFLEN,SC,DNAM,UNIT,TASK,OCBAD,CS,ERR .MCALL RPOI$,DIR$ .IF NDF $$$GLB= .PSECT $DPB$.,D$$$=. .IFTFG RPOI$ TNAME,PN,PR,UGC,UMC,PARENT,BUFADR,BUFLEN,SC,DNAM,UNIT,TASK,OCBAD. .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RPOI$C<fWS .MACRO RPOI$S TNAME,PN,PR,UGC,UMC,PARENT,BUFADR,BUFLEN,SC,DNAM,UNIT,TASK,OCBAD,ERRB .MCALL MVB$,MOV$,RFA$,DIR$X RFA$ TASK MOV$ DNAM MVB$ UNIT,SCX MOV$ BUFLEN MOV$ BUFADR MOV$ OCBAD RFA$ PARENT MVB$ UMC,UGCR C00    & OlLR -(SP) CLR -(SP) CLR -(SP) RFA$ TNAMEC MOV (PC)+,-(SP) .BYTE 11.,16. DIR$ ,ERR .ENDM RPOI$SBW# .MACRO RQST$C TN,PN,PR,GC,P,CS,ERR, .MCALL RQST$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=.R .IFTF RQST$ TN,PN,PR,GC,P .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMW .MACRO RQST$S TN,PN,PR,GC,P,ERR .MCALL MVB$,RFA$,DIR$ MVB$ P,GC CLR -(SP) RFA$N RFA$ TN MOV (PC)+,-(SP) .BYTE 11.,7 DIR$ ,ERR .ENDM RQST$SA*W .MACRO RQST$ TN,PN,PR,GC,PC .MCALL R50$,OFF$M .IF NDF $$$GLBS .BYTE 11.,7 R50$ TN .WORD 0,0 .WORD 0 .BYTE P,GC .ENDC .IF NDF R.QSTNN .NLISTCA .IRP X,<,,,,,>= OFF$ XF .ENDM .LIST .ENDC .ENDM RQST$W .MACRO RREF$ WDB .MCALL OFF$ .IF NDF $$$GLBS .BYTE 81.,2 .WORD WDB .ENDC .IF NDF R.REBA, OFF$R OFF$ R.REBA,2 .ENDC .ENDM RREF$W .MACRO RREF$C WDB,CS,ERRA .MCALL RREF$,DIR$ .IF NDF $$$GLBP .PSECT $DPB$.,D$$$=.O .IFTF RREF$ WDB .IFTY .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RREF$CGW .MACRO RREF$S WDB,ERR .MCALL DIR$,MOV$< MOV$ WDBR MOV (PC)+,-(SP) .BYTE 81.,2 DIR$ ,ERR .ENDM RREF$SW .MACRO RSUM$C TN,CS,ERR .MCALL RSUM$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.. .IFTF RSUM$ TN. .IFTR .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RSUM$C$W .MACRO RSUM$S TN,ERR, .MCALL RFA$,DIR$, RFA$ TN MOV (PC)+,-(SP) .BYTE 47.,3 DIR$ ,ERR .ENDM RSUM$SW .MACRO RSUM$ TN .MCALL R50$,OFF$$ .IF NDF $$$GLB .BYTE 47.,3 R50$ TN .ENDC .IF NDF R.SUTNM .NLIST OFF$C OFF$ R.SUTN,4 .LIST .ENDC .ENDM RSUM$W/ .MACRO RUN$C TN,PN,PR,UG,UP,SM,SU,RM,RU,CS,ERR$ .MCALL RUN$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.. .IFTF RUN$ TN,PN,PR,UG,UP,SM,SU,RM,RU .IFTN .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM RUN$CW, .MACRO RUN$S TN,PN,PR,UG,UP,SM,SU,RM,RU,ERR .MCALL RVP$,MVB$,RFA$,DIR$ RVP$ SM,SU,RM,RU. MVB$ UP,UGN CLR -(SP) RFA$$ RFA$ TN MOV (PC)+,-(SP) .BYTE 17.,11. DIR$ ,ERR .ENDM RUN$SW& .MACRO RUN$ TN,PN,PR,GC,P,SM,SU,RM,RU .MCALL R50$,OFF$ .IF NDF $$$GLB  .BYTE 17.,11. R50$ TN .WORD 0,0 .WORD 0 .BYTE P,GCN .WORD SM .WORD SUB .WORD RM. .WORD RUR .ENDC .IF NDF R.UNTNR .NLISTFA .IRP X,<,,,,,> OFF$ XR .ENDM5 .IRP X,<,,,>D OFF$ XP .ENDM .LIST .ENDC .ENDM RUN$SW .MACRO SCAA$ AST) .MCALL OFF$ .IF NDF $$$GLB. .BYTE 173.,2. .WORD AST .ENDC .IF NDF S.CAAEC OFF$U OFF$ S.CAAE,2 .ENDC .ENDMW .MACRO SCAA$C AST,CS,ERRD .MCALL SCAA$,DIR$ .IF NDF $$$GLBS .PSECT $DPB$.,D$$$=.. .IFTF SCAA$ AST .IFTN .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SCAA$C4W .MACRO SCAA$S AST,ERR .MCALL MOV$,DIR$ MOV$ AST2 MOV (PC)+,-(SP) .BYTE 173.,2. DIR$ ,ERR .ENDM SCAA$STW .MACRO SCAL$S SRAD,CRAD .MCALL DIR$,MOV$. MOV$ CRAD MOV$ SRAD MOV (PC)+,-(SP) .BYTE 155.,3 DIR$ ,ERR .ENDM SCAL$SOW .MACRO SCLI$ CLI,DEV,UNIT .MCALL R50$,OFF$C .IF NDF $$$GLB .BYTE 173.,5.$$$T2=.N .ASCII /DEV/S .=$$$T2+2D .BYTE UNIT,0F R50$ CLIT .ENDC .IF NDF S.CIDVR+ .IRP X,<,,,> OFF$ X. .ENDM .ENDC .ENDM SCLI$W" .MACRO SCLI$C CLI,DEV,UNIT,CS,ERR .MCALL SCLI$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.S .IFTF SCLI$ CLI,DEV,UNIT. .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SCLI$CW .MACRO SCLI$S CLI,DEV,UNIT,ERRR .MCALL MOV$,RFA$,DIR$,MVB$ RFA$ CLI MVB$ UNIT,#0 MOV$ DEV3 MOV (PC)+,-(SP) .BYTE 173.,5. DIR$ ,ERR .ENDMW .MACRO SDAT$C TN,BA,EFN,CS,ERR, .MCALL SDAT$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=. .IFTF00   DATADATADATADATA SDAT$ TN,BA,EFN .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SDAT$C$W .MACRO SDAT$S TN,BA,EFN,ERR .MCALL MOV$,RFA$,DIR$ MOV$ EFN MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 71.,5 DIR$ ,ERR .ENDM SDAT$SCW .MACRO SDAT$ TN,BA,EFNI .MCALL R50$,OFF$ .IF NDF $$$GLB .BYTE 71.,5 R50$ TN .WORD BAE .WORD EFN .ENDC .IF NDF S.DATN .NLIST+ .IRP X,<,,,>T OFF$ X. .ENDM .LIST .ENDC .ENDM SDAT$&W .MACRO SDIR$ MOD,ENS,ENSSZS .MCALL OFF$,LNMOD$N .IF NDF $$$GLB$ LNMOD$ .BYTE 207.,5. .BYTE 3 .BYTE MOD .WORD 0 .WORD ENS .WORD ENSSZ .ENDC .IF NDF S.DFUNV6 .IRP X,<,,,,> OFF$ X .ENDM .ENDC .ENDM SDIR$W# .MACRO SDIR$C MOD,ENS,ENSSZ,CS,ERR .MCALL SDIR$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$.,D$$$=.L .IFTF SDIR$ MOD,ENS,ENSSZ .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SDIR$CNW .MACRO SDIR$S MOD,ENS,ENSSZ,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$F LNMOD$L MOV$ ENSSZ MOV$ ENS, MOV$ #0 MVB$ #3,MOD MOV (PC)+,-(SP) .BYTE 207.,5S DIR$ ,ERR .ENDM SDIR$SV4W$ .MACRO SDRC$ TNAME,BUF,EFN,EAST,ESB .MCALL OFF$,R50$ .IF NDF $$$GLBI .BYTE 141.,7 R50$ TNAME .WORD BUF .WORD EFN .WORD EAST .WORD ESB .ENDC .IF NDF S.DRTN A .IRP X,<,,,,,> OFF$ X$ .ENDM .ENDC .ENDM SDRC$W, .MACRO SDRC$C TNAME,BUF,EFN,EAST,ESB,CS,ERR .MCALL SDRC$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$.,D$$$=.0 .IFTF SDRC$ TNAME,BUF,EFN,EAST,ESBE .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SDRC$CAW) .MACRO SDRC$S TNAME,BUF,EFN,EAST,ESB,ERRF .MCALL DIR$,MOV$,RFA$,MVB$0 MOV$ ESB. MOV$ EAST MOV$ EFN. MOV$ BUF RFA$ TNAME. MOV (PC)+,-(SP) .BYTE 141.,7, DIR$ ,ERR .ENDM SDRC$SEW6 .MACRO SDRP$ TASK,BUFADR,BUFLEN,EFN,FLAG,PARENT,OCBAD .MCALL R50$,OFF$R .IF NDF $$$GLBF .BYTE 141.,9. R50$ TASK .WORD BUFADR. .BYTE EFN,FLAG. .IF NB BUFLEN .WORD BUFLEN .IFFT .WORD 13. .ENDC R50$ PARENT .WORD OCBAD .ENDC .IF NDF S.DRTKMA .IRP X,<,,,,,>R OFF$ XL .ENDM .IRP X,<,>  OFF$ XV .ENDM .IF DF $$$GLB .GLOBL SD.REX,SD.RAL,SD.RNX .ENDC SD.REX=200 SD.RAL=001 SD.RNX=002 .ENDC .ENDM SDRP$W> .MACRO SDRP$C TASK,BUFADR,BUFLEN,EFN,FLAG,PARENT,OCBAD,CS,ERR .MCALL SDRP$,DIR$ .IF NDF $$$GLBO .PSECT $DPB$.,D$$$=.A .IFTF/ SDRP$ TASK,BUFADR,BUFLEN,EFN,FLAG,PARENT,OCBAD. .IFTR .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SDRP$CW; .MACRO SDRP$S TASK,BUFADR,BUFLEN,EFN,FLAG,PARENT,OCBAD,ERR. .MCALL MVB$,MOV$,RFA$,DIR$D MOV$ OCBADF RFA$ PARENT MOV$ BUFLEN MVB$ EFN,FLAG MOV$ BUFADR RFA$ TASK MOV (PC)+,-(SP) .BYTE 141.,9. DIR$ ,ERR .ENDM SDRP$SW .MACRO SETF$C EFN,CS,ERR, .MCALL SETF$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$.,D$$$=.L .IFTF SETF$ EFN .IFTA .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SETF$C,W .MACRO SETF$S EFN,ERR .MCALL MOV$,DIR$R MOV$ EFN MOV (PC)+,-(SP) .BYTE 33.,2 DIR$ ,ERR .ENDM SETF$SNW .MACRO SETF$ EFND .MCALL OFF$ .IF NDF $$$GLBT .BYTE 33.,2 .WORD EFN .ENDC .IF NDF S.ETEF  .NLISTV OFF$- OFF$ S.ETEF,2 .LIST .ENDC .ENDM SETF$W .MACRO SFPA$C AST,CS,ERRR .MCALL SFPA$,DIR$ .IF NDF $$$GLBL .PSECT $DPB$.,D$$$=.= .IFTF SFPA$ AST .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SFPA$C$W .MACRO SFPA$S AST,ERR .MCALL MOV$,DIR$R MOV$ ASTF MOV (PC)+,-(SP) .BYTE 111.,22 DIR$ ,ERR .ENDM SFPA$SNW .MACRO SFPA$ ASTD .MCALL OFF$ .IF NDF $$$GLBT .BYTE 111.,2 .WORD AST .ENDC .IF NDF S.FPAE .NLIST OFF$ OFF$ S.FPAE,2 .LIST .ENDC .ENDM SFPA$<W .MACRO SMSG$ TGT,BUF,LEN,PRMLST00    & Ol .MCALL OFF$ .NLIST$ .IF NDF S.MTGTD OFF$3 .IRP X,<,,,>  OFF$ X .ENDM .IF DF $$$GLB .GLOBL SM.SER .ENDCSM.SER=1 .ENDC .IF NDF $$$GLBR$$$ARG=0 .IRP X,$$$ARG=$$$ARG+12 .ENDM .IF NB TGTS .IF IDN TGT SM.SER .IF LT,$$$ARG-4 $$$ARG=4L .ENDC .ENDC .ENDC .LIST .BYTE 171.,4+$$$ARG .BYTE TGT .BYTE 0 .WORD BUF .WORD LEN .IRP X,$$$ARG=$$$ARG-1M .WORD X .ENDM .REPT $$$ARG  .WORD .ENDR .ENDC .ENDMW( .MACRO SMSG$C TGT,BUF,LEN,PRMLST,CS,ERR .MCALL SMSG$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.  .IFTF SMSG$ TGT,BUF,LEN,R .IFTN .PSECT CS DIR$ #$$$,ERR .ENDC .ENDMW% .MACRO SMSG$S TGT,BUF,LEN,PRMLST,ERRT .MCALL MVB$,MOV$,RVP$,DIR$$$$$ARG=0$$$=0 .IRP X,$$$ARG=$$$ARG+1, .ENDM .IF NB TGT .IF IDN TGT #SM.SER .IF LT,$$$ARG-4 $$$=4-$$$ARG .REPT $$$ CLR -(SP) .ENDR .ENDC .ENDC .ENDC RVP$ PRMLST MOV$ LEN MOV$ BUF MVB$ TGTR MOV (PC)+,-(SP) .BYTE 171.,4+$$$ARG+$$$ DIR$ ,ERR .ENDM,W .MACRO SNXC$ DEVICE,UNITS .MCALL OFF$ .IF NDF $$$GLBF .BYTE 127.,3. .IF B DEVICE .WORD 0 .IFF $$$T2=. .ASCII /DEVICE/ .=$$$T2+2 .ENDC .BYTE UNITL .BYTE 0 .ENDC .IF NDF S.NXDV$ .IRP X,<,,> OFF$ X. .ENDM .ENDC .ENDM SNXC$W! .MACRO SNXC$C DEVICE,UNIT,CS,ERR$ .MCALL SNXC$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.V .IFTF SNXC$ DEVICE,UNIT .IFTV .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SNXC$CW .MACRO SNXC$S DEVICE,UNIT,ERR .MCALL DIR$,MOV$. MOV$ UNIT MOV$ DEVICE MOV (PC)+,-(SP) .BYTE 127.,3. DIR$ ,ERR .ENDM SNXC$SVW .MACRO SPEA$C AST,CS,ERRE .MCALL SPEA$,DIR$ .IF NDF $$$GLB, .PSECT $DPB$.,D$$$=. .IFTF SPEA$ AST .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SPEA$C,W .MACRO SPEA$S AST,ERR .MCALL MOV$,DIR$D MOV$ AST= MOV (PC)+,-(SP) .BYTE 165.,2. DIR$ ,ERR .ENDM SPEA$S$W .MACRO SPEA$ AST .MCALL OFF$ .IF NDF $$$GLB, .BYTE 165.,2L .WORD AST .ENDC .IF NDF S.PEAEE .NLISTC OFF$) OFF$ S.PEAE,2 .LIST .ENDC .ENDM SPEA$W .MACRO SPND$C PSCT,ERRE .MCALL SPND$,DIR$ .IF NDF $$$GLB, .PSECT $DPB$.,D$$$=. .IFTF SPND$ .IFT. .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM SPND$C$pW .MACRO SPND$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 45.,1 DIR$ ,ERR .ENDM SPND$SXW .MACRO SPND$ .IF NDF $$$GLBR .BYTE 45.,1 .ENDC .ENDM SPND$W .MACRO SPRA$C AST,CS,ERR .MCALL SPRA$,DIR$ .IF NDF $$$GLBO .PSECT $DPB$.,D$$$=.N .IFTF SPRA$ AST .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SPRA$C$W .MACRO SPRA$S AST,ERR .MCALL MOV$,DIR$ MOV$ ASTS MOV (PC)+,-(SP) .BYTE 109.,2 DIR$ ,ERR .ENDM SPRA$SW .MACRO SPRA$ AST$ .MCALL OFF$ .IF NDF $$$GLB1 .BYTE 109.,2. .WORD AST .ENDC .IF NDF S.PRAER .NLIST OFF$F OFF$ S.PRAE,2 .LIST .ENDC .ENDM SPRA$WF .MACRO SPWN$ TNAME,PN,PR,UGC,UMC,EFN,EAST,ESB,CMDLIN,CMDLEN,UNIT,DNAM .MCALL OFF$,R50$ .IF NDF $$$GLBT .IF B DNAMS .BYTE 11.,13. .IFF .BYTE 11.,14. .ENDC R50$ TNAME .BLKW 3 .BYTE UMC,UGC .WORD EFN .WORD EASTV .WORD ESB .WORD CMDLIN. .WORD CMDLEND .WORD UNITN .IF NB DNAM$$$T2=. .ASCII /DNAM/ .=$$$T2+2. .ENDC .ENDC .IF NDF S.PWTNYA .IRP X,<,,,,,> OFF$ XR .ENDM@ .IRP X,<,,,,> OFF$ X, .ENDM .IRP X,<> OFF$ XM .ENDR $$$OST=256.*8.F OFF$ SP.WX8 .ENDC .ENDM SPWN$$WN .MACRO SPWN$C TNAME,PN,PR,UGC,UMC,EFN,EAST,ESB,CMDLIN,CMDLEN,UNIT,DNAM,CS,ERR .MCALL SPWN$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=.N .IFTF; SPWN$ TNAME,,,UGC,UMC,EFN,EAST,ESB,CMDLIN,CMDLEN,UNIT,DNAM00   DATADATADATADATA .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SPWN$C>WK .MACRO SPWN$S TNAME,PN,PR,UGC,UMC,EFN,EAST,ESB,CMDLIN,CMDLEN,UNIT,DNAM,ERR> .MCALL DIR$,MOV$,MVB$,RFA$M .IF NB DNAM MOV$ DNAM .ENDC MOV$ UNIT MOV$ CMDLEN MOV$ CMDLIN MOV$ ESBN MOV$ EAST MOV$ EFN MVB$ UMC,UGCN CLR -(SP) CLR -(SP) CLR -(SP) RFA$ TNAME, MOV (PC)+,-(SP) .IF B DNAM, .BYTE 11.,13. .IFF .BYTE 11.,14. .ENDC DIR$ ,ERR .ENDM SPWN$SCW .MACRO SRDA$C AST,CS,ERR. .MCALL SRDA$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$.,D$$$=. .IFTF SRDA$ AST .IFTT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SRDA$CDW .MACRO SRDA$S AST,ERR .MCALL MOV$,DIR$N MOV$ AST MOV (PC)+,-(SP) .BYTE 107.,2M DIR$ ,ERR .ENDM SRDA$STW .MACRO SRDA$ ASTS .MCALL OFF$ .IF NDF $$$GLBA .BYTE 107.,2( .WORD AST .ENDC .IF NDF S.RDAE1 .NLIST OFF$E OFF$ S.RDAE,2 .LIST .ENDC .ENDM SRDA$W .MACRO SREA$C AST,CS,ERR .MCALL SREA$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=. .IFTF SREA$ AST .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SREA$CW .MACRO SREA$S AST,ERR .MCALL MOV$,DIR$ MOV$ AST MOV (PC)+,-(SP) .BYTE 167.,2 DIR$ ,ERR .ENDM SREA$SW .MACRO SREA$ AST .MCALL OFF$ .IF NDF $$$GLB .BYTE 167.,2 .WORD AST .ENDC .IF NDF S.REAE .NLIST OFF$ OFF$ S.REAE,2 .LIST .ENDC .ENDM SREA$W .MACRO SREF$ TASK,WDB,EFN .MCALL R50$,OFF$ .IF NDF $$$GLB .BYTE 69.,5 R50$ TASK .WORD EFN .WORD WDB .ENDC .IF NDF S.RETN$+ .IRP X,<,,,> OFF$ X  .ENDM .ENDC .ENDM SREF$W" .MACRO SREF$C TASK,WDB,EFN,CS,ERR .MCALL SREF$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=. .IFTF SREF$ TASK,WDB,EFN .IFTE .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SREF$CLW! .MACRO SREF$S TSKADR,WDB,EFN,ERRS .MCALL DIR$,MOV$,RFA$ MOV$ WDBF MOV$ EFNE RFA$ TSKADR MOV (PC)+,-(SP) .BYTE 69.,5 DIR$ ,ERR .ENDM SREF$SDW .MACRO SREX$C AST,BUF,CS,ERR  .MCALL SREX$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.C .IFTF SREX$ AST,BUF .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SREX$C,W .MACRO SREX$S AST,BUF,ERR .MCALL MOV$,DIR$T CLR -(SP) MOV$ AST. MOV (PC)+,-(SP) .BYTE 167.,3 DIR$ ,ERR .ENDM SREX$SW .MACRO SREX$ AST,BUF .MCALL OFF$ .IF NDF $$$GLBD .BYTE 167.,3 .WORD AST .WORD 0 .ENDC .IF NDF S.REAED .NLIST OFF$S OFF$ S.REAE,2 .LIST .ENDC .ENDM SREX$W .MACRO SRRA$ ASTN .MCALL OFF$ .IF NDF $$$GLB$ .BYTE 21.,2 .WORD AST .ENDC .IF NDF S.RRAED .NLISTE OFF$N OFF$ S.RRAE,2 .LIST .ENDC .ENDM SRRA$W .MACRO SRRA$C AST,CS,ERR- .MCALL SRRA$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=. .IFTF SRRA$ AST .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SRRA$CFW .MACRO SRRA$S AST,ERR .MCALL MOV$,DIR$N MOV$ AST MOV (PC)+,-(SP) .BYTE 21.,2 DIR$ ,ERR .ENDM SRRA$SEW .MACRO STAF$C AFF,CS,ERRC .MCALL STAF$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=.. .IFTF STAF$ AFF .IFTO .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STAF$CW .MACRO STAF$S AFF,ERR .MCALL DIR$,MOV$,AFF$ AFF$F MOV$ AFF. MOV (PC)+,-(SP) .BYTE 161.,2. DIR$ ,ERR .ENDM STAF$SSW .MACRO STAF$ AFF$ .MCALL AFF$,OFF$ .IF NDF $$$GBLA AFF$ .BYTE 161.,2. .WORD AFF .ENDC .IF NDF S.AFAFY .NLIST OFF$E OFF$ S.AFAF,2 .LIST .ENDC .ENDM STAF$W .MACRO STIM$C NBUF,OBUF,CS,ERR$ .MCALL STIM$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.S .IFTF STIM$ NBUF,OBUF .IFT. .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STIM$CEfW .MACRO STIM$S NBUF,OBUF,ERR .MCALL MOV$,DIR$,OFF$ MOV$ OBUF MOV$ NBUF MOV (PC)+,-(SP) .BYTE 61.,3 DIR$ ,ERR .IF NDF S.TIYRF .NL00    & OlIST$$$OST=05 .IRP X,<,,,>F OFF$ XA .ENDM5 .IRP X,<,,,>A OFF$ X .ENDM .LIST .ENDC .ENDM STIM$S,W .MACRO STIM$ NBUF,OBUF .MCALL OFF$ .IF NDF $$$GLBF .BYTE 61.,3 .WORD NBUF .WORD OBUFD .ENDC .IF NDF S.TIBAN .NLISTE OFF$ OFF$ S.TIBA,2 OFF$ S.TIBO,2 .IF NDF S.TIYR $$$OST=05 .IRP X,<,,,>6 OFF$ XR .ENDM5 .IRP X,<,,,>2 OFF$ X, .ENDM .ENDC .LIST .ENDC .ENDM STIM$W .MACRO STLO$ GRP,MSK, .MCALL OFF$ .IF NDF $$$GLB .BYTE 137.,3 .WORD GRP .WORD MSK .ENDC .IF NDF S.TLGRB OFF$ OFF$ S.TLGR,2 OFF$ S.TLMS,2 .ENDC .ENDM STLO$W .MACRO STLO$C GRP,MSK,CS,ERR. .MCALL STLO$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$.,D$$$=.  .IFTF STLO$ GRP,MSK .IFT, .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STLO$CMW .MACRO STLO$S GRP,MSK,ERR .MCALL DIR$,MOV$, MOV$ MSK. .IF NB GRP MOV #GRP,-(SP)I .IFF CLR -(SP) .ENDC MOV (PC)+,-(SP) .BYTE 137.,3. DIR$ ,ERR .ENDM STLO$S,W .MACRO STSE$ EFN. .MCALL OFF$ .IF NDF $$$GLB. .BYTE 135.,2. .WORD EFN .ENDC .IF NDF S.TSEF OFF$ OFF$ S.TSEF,2 .ENDC .ENDM STSE$W .MACRO STSE$C EFN,CS,ERRB .MCALL STSE$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.  .IFTF STSE$ EFN .IFTL .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STSE$CW .MACRO STSE$S EFN,ERR .MCALL DIR$,MOV$I MOV$ EFNC MOV (PC)+,-(SP) .BYTE 135.,2) DIR$ ,ERR .ENDM STSE$SRZW .MACRO STOP$ .IF NDF $$$GLBF .BYTE 131.,1$ .ENDC .ENDM STOP$W .MACRO STOP$C CS,ERRF .MCALL STOP$,DIR$ .IF NDF $$$GLBN .PSECT $DPB$.,D$$$=. .IFTF STOP$ .IFTC .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM STOP$CrW .MACRO STOP$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 131.,1N DIR$ ,ERR .ENDM STOP$SW .MACRO SVDB$C AD,LN,CS,ERRM .MCALL SVDB$,DIR$ .IF NDF $$$GLB. .PSECT $DPB$.,D$$$=. .IFTF SVDB$ AD,LN .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SVDB$C$W .MACRO SVDB$S AD,LN,ERR .MCALL MOV$,DIR$F MOV$ LN MOV$ AD MOV (PC)+,-(SP) .BYTE 103.,3. DIR$ ,ERR .ENDM SVDB$SW .MACRO SVDB$ A,L. .MCALL OFF$ .IF NDF $$$GLB .BYTE 103.,3  .WORD A .WORD L .ENDC .IF NDF S.VDTA. .NLIST, .IRP X,<,,> OFF$ X .ENDM .LIST .ENDC .ENDM SVDB$W .MACRO SVTK$C ADR,LEN,CS,ERR. .MCALL SVTK$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.$ .IFTF SVTK$ ADR,LEN .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SVTK$COW .MACRO SVTK$S ADR,LEN,ERR .MCALL MOV$,DIR$D MOV$ LEN. MOV$ ADR MOV (PC)+,-(SP) .BYTE 105.,3 DIR$ ,ERR .ENDM SVTK$SFW .MACRO SVTK$ TA,TLO .MCALL OFF$ .IF NDF $$$GLB .BYTE 105.,3 .WORD TA, .WORD TL2 .ENDC .IF NDF S.VTTAI .NLISTC .IRP X,<,,> OFF$ XV .ENDM .LIST .ENDC .ENDM SVTK$LW .MACRO SWST$ BASE,ADDR= .MCALL OFF$ .IF NDF $$$GLBF .BYTE 175.,3. .WORD BASER .WORD ADDRN .ENDC .IF NDF S.WBAS .IRP X,<,,> OFF$ X$ .ENDM $$$OST=2@ .IRP X,<,,,,> OFF$ X .ENDM OFF$ S.WSR5,2 .ENDC .ENDM SWST$W .MACRO SWST$C BASE,ADDR,CS,ERR .MCALL SWST$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=.T .IFTF SWST$ BASE,ADDR .IFTM .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM SWST$C.W .MACRO SWST$S BASE,ADDR,ERR .MCALL DIR$,MOV$, MOV$ ADDR MOV$ BASE MOV (PC)+,-(SP) .BYTE 175.,3. DIR$ ,ERR .ENDM SWST$SDW? .MACRO TLON$ MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMODR .MCALL OFF$,LNMOD$F .IF NDF $$$GLBF LNMOD$2 .BYTE 207.,10.S .BYTE 13. .BYTE MOD .00   DATADATADATADATAWORD TBMSK .WORD LNS .WORD LNSSZ .WORD ENS .WORD ENSSZ .WORD RSIZE .WORD RTBMODT .WORD STATUS$ .ENDC .IF NDF T.LFUNCA .IRP X,<,,,,,>A OFF$ XS .ENDM@ .IRP X,<,,,,> OFF$ XE .ENDM .ENDC .ENDM TLON$WG .MACRO TLON$C MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD,CS,ERR .MCALL TLON$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.0 .IFTF8 TLON$ MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM TLON$C.@WD .MACRO TLON$S MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$. LNMOD$R MOV$ STATUS MOV$ RTBMOD MOV$ RSIZEL MOV$ ENSSZS MOV$ ENS MOV$ LNSSZ. MOV$ LNSM MVB$ TBMSK,#0 MVB$ #13.,MOD MOV (PC)+,-(SP) .BYTE 207.,10., DIR$ ,ERR .ENDM TLON$SRW? .MACRO TLOG$ MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMODM .MCALL OFF$,LNMOD$N .IF NDF $$$GLBZ LNMOD$ .BYTE 207.,10.S .BYTE 9.$ .BYTE MOD .WORD TBMSK .WORD LNS .WORD LNSSZ .WORD ENS .WORD ENSSZ .WORD RSIZE .WORD RTBMODT .WORD STATUSL .ENDC .IF NDF T.LFUNA .IRP X,<,,,,,>M OFF$ X .ENDM@ .IRP X,<,,,,> OFF$ X2 .ENDM .ENDC .ENDM TLOG$WG .MACRO TLOG$C MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD,CS,ERR .MCALL TLOG$,DIR$ .IF NDF $$$GLBZ .PSECT $DPB$.,D$$$=.0 .IFTF8 TLOG$ MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM TLOG$C.@WD .MACRO TLOG$S MOD,TBMSK,STATUS,LNS,LNSSZ,ENS,ENSSZ,RSIZE,RTBMOD,ERR .MCALL DIR$,MOV$,MVB$,LNMOD$. LNMOD$R MOV$ STATUS MOV$ RTBMOD MOV$ RSIZEL MOV$ ENSSZS MOV$ ENS MOV$ LNSSZ. MOV$ LNSM MVB$ TBMSK,#0 MVB$ #9.,MODR MOV (PC)+,-(SP) .BYTE 207.,10., DIR$ ,ERR .ENDM TLOG$SRW .MACRO ULGF$C CS,ERR .MCALL ULGF$,DIR$ .IF NDF $$$GLBO .PSECT $DPB$.,D$,$$$=.S .IFTF ULGF$ .IFTD .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM ULGF$CMrW .MACRO ULGF$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 159.,1, DIR$ ,ERR .ENDM ULGF$SVZW .MACRO ULGF$T .IF NDF $$$GLBD .BYTE 159.,1 .ENDC .ENDM ULGF$W .MACRO UMAP$ WDBB .MCALL OFF$ .IF NDF $$$GLBC .BYTE 123.,2E .WORD WDB .ENDC .IF NDF U.MABAR OFF$ OFF$ U.MABA,2 .ENDC .ENDM UMAP$W .MACRO UMAP$C WDB,CS,ERRD .MCALL UMAP$,DIR$ .IF NDF $$$GLBF .PSECT $DPB$.,D$$$=.$ .IFTF UMAP$ WDB .IFTM .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM UMAP$C$W .MACRO UMAP$S WDB,ERR .MCALL DIR$,MOV$V MOV$ WDB MOV (PC)+,-(SP) .BYTE 123.,2$ DIR$ ,ERR .ENDM UMAP$SNW .MACRO USTP$ TNAMEA .MCALL OFF$,R50$C .IF NDF $$$GLBF .BYTE 133.,3E R50$ TNAMEO .ENDC .IF NDF U.STTNU OFF$ OFF$ U.STTN,2 .ENDC .ENDM USTP$W .MACRO USTP$C TNAME,CS,ERR, .MCALL USTP$,DIR$ .IF NDF $$$GLB$ .PSECT $DPB$.,D$$$=.$ .IFTF USTP$ TNAME .IFTF .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM USTP$C$W .MACRO USTP$S TNAME,ERR .MCALL DIR$,RFA$V RFA$ TNAME MOV (PC)+,-(SP) .BYTE 133.,3 DIR$ ,ERR .ENDM USTP$SW% .MACRO VRCD$C TN,BA,BL=13.,TI,CS,ERRC .MCALL VRCD$,DIR$ .IF NDF $$$GLBR .PSECT $DPB$.,D$$$=.N .IFTF VRCD$ TN,BA,BL,TI .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VRCD$CPW# .MACRO VRCD$S TN,BA,BL=#13.,TI,ERR .MCALL MOV$,DIR$, RFA$ MOV$ TI MOV$ BL MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 75.,6.U DIR$ ,ERR .ENDM VRCD$S."W .MACRO VRCD$ TN,BA,BL=13.,TI  .MCALL OFF$, R50$ .IF NDF $$$GLB, .BYTE 75.,6. R50$ TN .WORD BA .WORD BL .WORD TID .ENDC .IF NDF R.VDTNC .NLIST 6 .IRP X,<,,,,> OFF$ XV .ENDM .LIST00    & Ol .ENDC .ENDM VRCD$W% .MACRO VRCS$C TN,BA,BL=13.,TI,CS,ERR .MCALL VRCS$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=. .IFTF VRCS$ TN,BA,BL,TI .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VRCS$C.W# .MACRO VRCS$S TN,BA,BL=#13.,TI,ERR1 .MCALL MOV$,DIR$, RFA$$ MOV$ TI MOV$ BL MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 139.,6. DIR$ ,ERR .ENDM VRCS$SV"W .MACRO VRCS$ TN,BA,BL=13.,TIR .MCALL OFF$, R50$ .IF NDF $$$GLBM .BYTE 139.,6. R50$ TN .WORD BA .WORD BL .WORD TIS .ENDC .IF NDF R.VSTN .NLIST 6 .IRP X,<,,,,> OFF$ XV .ENDM .LIST .ENDC .ENDM VRCS$W% .MACRO VRCX$C TN,BA,BL=13.,TI,CS,ERR .MCALL VRCX$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=. .IFTF VRCX$ TN,BA,BL,TI .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VRCX$C.W# .MACRO VRCX$S TN,BA,BL=#13.,TI,ERR1 .MCALL MOV$,DIR$, RFA$$ MOV$ TI MOV$ BL MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 77.,6.O DIR$ ,ERR .ENDM VRCX$SV"W .MACRO VRCX$ TN,BA,BL=13.,TIR .MCALL OFF$, R50$ .IF NDF $$$GLBM .BYTE 77.,6.C R50$ TN .WORD BA .WORD BL .WORD TIX .ENDC .IF NDF R.VXTN .NLIST 6 .IRP X,<,,,,> OFF$ XV .ENDM .LIST .ENDC .ENDM VRCX$W. .MACRO VSDA$C TN,BA,BL=13.,EFN,SPRI,TI,CS,ERR .MCALL VSDA$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$.,D$$$=.I .IFTF VSDA$ TN,BA,BL,EFN,SPRI,TI( .IFTS .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VSDA$CW, .MACRO VSDA$S TN,BA,BL=#13.,EFN,SPRI,TI,ERR .MCALL MOV$,RFA$,DIR$ MOV$ TI MOV$ SPRI MOV$ BL MOV$ EFN MOV$ BA RFA$ TN MOV (PC)+,-(SP) .BYTE 71.,8.R DIR$ ,ERR .ENDM VSDA$S,xW& .MACRO VSDA$ TN,BA,BL=13.,EFN,SPRI,TI .MCALL R50$,OFF$ .IF NDF $$$GLBR .BYTE 71.,8.B R50$ TN .WORD BAE .WORD EFN .WORD BL .WORD SPRIL .WORD TI  .ENDC .IF NDF S.DABL .NLIST,+ .IRP X,<,,,>  OFF$ X .ENDM* .IRP X,<,,> OFF$ XA .ENDM .LIST .ENDC .ENDM VSDA$VW+ .MACRO VSRC$ TNAME,BUF,BUFLEN,EFN,EAST,ESBA .MCALL OFF$,R50$C .IF NDF $$$GLB7 .BYTE 141.,8. R50$ TNAMED .WORD BUF .WORD EFN .WORD BUFLENN .WORD EASTN .WORD ESB .ENDC .IF NDF V.SRTNFL .IRP X,<,,,,,,> OFF$ X. .ENDM .ENDC .ENDM VSRC$W3 .MACRO VSRC$C TNAME,BUF,BUFLEN,EFN,EAST,ESB,CS,ERR .MCALL VSRC$,DIR$ .IF NDF $$$GLB> .PSECT $DPB$.,D$$$=.. .IFTF$ VSRC$ TNAME,BUF,BUFLEN,EFN,EAST,ESB .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM VSRC$CLW0 .MACRO VSRC$S TNAME,BUF,BUFLEN,EFN,EAST,ESB,ERR .MCALL DIR$,MOV$,RFA$,MVB$E MOV$ ESBE MOV$ EAST MOV$ BUFLEN MOV$ EFNS MOV$ BUF RFA$ TNAME> MOV (PC)+,-(SP) .BYTE 141.,8. DIR$ ,ERR .ENDM VSRC$SFW* .MACRO WDBBK$ APR,SIZ,RID,OFF,LEN,STS,SRB .MCALL WDBDF$ WDBDF$F .BYTE 0,APR .WORD 0 .WORD SIZ .WORD RID .WORD OFF .WORD LEN .WORD STS .WORD SRB .ENDM WDBBK$F8W .MACRO WDBDF$ GBL .MCALL .BLKW.,.BLKB.,.BLK.M .BLK. .BLKB. 1,W.NID,GBL. .BLKB. 1,W.NAPR,GBL .BLKW. 1,W.NBAS,GBL .BLKW. 1,W.NSIZ,GBL .BLKW. 1,W.NRID,GBL .BLKW. 1,W.NOFF,GBL .BLKW. 1,W.NLEN,GBL .BLKW. 1,W.NSTS,GBL .BLKW. 1,W.NSRB,GBL .BLKW. 0,W.NLGH,GBL .IF IDN ,1 .GLOBL WS.CRW,WS.UNM,WS.ELW,WS.RRF,WS.64B,WS.SISS1 .GLOBL WS.MAP,WS.RCX,WS.DEL,WS.EXT,WS.WRT,WS.RED0* .GLOBL WS.BPS,WS.NBP,WS.UDS,WS.NAT,WS.RES .ENDCWS.CRW=^O<100000>BWS.UNM=^O<40000>WS.ELW=^O<20000>WS.RRF=^O<10000>WS.BPS=^O<4000>.WS.NBP=^O<4000>LWS.RES=^O<2000>IWS.NAT=^O<1000>,WS.64B=^O<400>WS.MAP=^O<200>WS.RCX=^O<100> WS.SIS=^O<40> WS.UDS=^O<20>. WS.DEL=^O<10>G WS.EXT=^O<4> WS.WRT=^O<2> WS.RED=^O<1>WS.EDS=WS.SIS!WS.UDS .MACRO WDBDF$ X .ENDM .ENDM WDBDF$$0W, .MACRO WIMP$C SFCN,P1,P00   DATADATADATADATA2,P3,P4,P5,P6,CS,ERR .MCALL DIR$,GFN$,OFF$ .IF NDF $$$GLBW .PSECT $DPB$.,D$$$=.. .IFTF GFN$A .NARG $$$NN $$$I=$$$N^ .BYTE 169.,$$$N+1% .IRP $$$PRM,0 .IF EQ $$$I .MEXIT .IFF^ $$$I=$$$I-1R .ENDC .WORD $$$PRM< .ENDR .IF NDF W.IMSFS .NLIST06 .IRP X,<,,,,> OFF$ XG .ENDR* .IRP X,<,,> OFF$ XU .ENDR OFF$ W.IP07,2 .ENDC .IFTB .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM WIMP$C3.W% .MACRO WIMP$S SFCN,P1,P2,P3,P4,P5,P6W .MCALL MOV$,DIR$,OFF$,MVB$,GFN$ GFN$A .NARG $$$NN $$$I=$$$N^$$$K=6.1% .IRP $$$PRM,, .IF GT $$$I-$$$K MOV$ $$$PRM .ENDC $$$K=$$$K-1R .ENDR MOV (PC)+,-(SP) .BYTE 169.,$$$N+1 DIR$. .ENDM WIMP$S,W$ .MACRO WIMP$ SFCN,P1,P2,P3,P4,P5,P6 .MCALL OFF$,GFN$< .IF NDF $$$GLB, GFN$P .NARG $$$N $$$I=$$$N .BYTE 169.,$$$N+1% .IRP $$$PRM, .IF EQ $$$I .MEXIT .IFF $$$I=$$$I-1A .ENDC .WORD $$$PRM3 .ENDR .ENDC .IF NDF W.INSF$ .NLIST$6 .IRP X,<,,,,> OFF$ X, .ENDM* .IRP X,<,,> OFF$ X .ENDR .ENDC .ENDM WIMP$W .MACRO WSIG$C PSCT,ERRM .MCALL WSIG$,DIR$ .IF NDF $$$GLBI .PSECT $DPB$.,D$$$=.6 .IFTF WSIG$ .IFT. .PSECT PSCT DIR$ #$$$,ERR .ENDC .ENDM WSIG$CYpW .MACRO WSIG$S ERR .MCALL DIR$ MOV (PC)+,-(SP) .BYTE 49.,1 DIR$ ,ERR .ENDM WSIG$S.XW .MACRO WSIG$F .IF NDF $$$GLBL .BYTE 49.,1 .ENDC .ENDM WSIG$W .MACRO WTLO$C SET,MASK,CS,ERR .MCALL WTLO$,DIR$ .IF NDF $$$GLB .PSECT $DPB$.,D$$$=. .IFTF WTLO$ SET, .IFTA .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM WTLO$C$zW .MACRO WTLO$S SET,MSK,ERR .MCALL MOV$,DIR$ $$$T1=1R .IF EQ SET-4N$$$T1=0M .IRP X, $$$T1=$$$T1+1A .ENDM .IF NE $$$T1-1I) .ERROR SET ;UNSUPPORTED EXECUTIVE OPTIONE .ENDC .ENDC .IF EQ $$$T1-1 MOV$ MSK .IF NE SETN MOV #SET,-(SP)E .IFF CLR -(SP) .ENDC MOV (PC)+,-(SP) .BYTE 43.,3 .ENDC DIR$ ,ERR .ENDM WTLO$SI.W .MACRO WTLO$ SET,MASK .IF NDF $$$GLBL$$$T1=1A .IF EQ SET-4.$$$T1=0 .IRP X, $$$T1=$$$T1+1W .ENDM .IF NE $$$T1-1) .ERROR SET ;UNSUPPORTED EXECUTIVE OPTIONR .ENDC .ENDC .IF EQ $$$T1-1T .BYTE 43.,3 .WORD SET .WORD MASK. .ENDC .ENDC .ENDM WTLO$W .MACRO WTSE$C EF,CS,ERR .MCALL WTSE$,DIR$ .IF NDF $$$GLB  .PSECT $DPB$.,D$$$=., .IFTF WTSE$ EFR .IFT .PSECT CS DIR$ #$$$,ERR .ENDC .ENDM WTSE$CRW .MACRO WTSE$S EF,ERR .MCALL MOV$,DIR$A MOV$ EF MOV (PC)+,-(SP) .BYTE 41.,2 DIR$ ,ERR .ENDM WTSE$SSW .MACRO WTSE$ EFN$ .MCALL OFF$ .IF NDF $$$GLBD .BYTE 41.,2 .WORD EFN .ENDC .IF NDF W.TSEFT .NLIST4 OFF$. OFF$ W.TSEF,2 .LIST .ENDC .ENDM WTSE$W .MACRO DIR$ ADR,ERR .IF NB C MOV ADR,-(SP) .ENDC EMT ^O<377> .IIF NB , .MCALL ERR$ .IIF NB , ERR$ ERR .ENDM DIR$$*W .MACRO ERR$ ERR .IF NB . .NLISTE .NTYPE $$$T1,ERR  .LIST .IIF EQ ^O<$$$T1-27>, BCC .+6 .IIF EQ ^O<$$$T1-37>, BCC .+6 .IF GE ^O<$$$T1-60> BCC .+6 .IFFE .IF NE ^O<$$$T1-27> .IIF NE ^O<$$$T1-37>, BCC .+4 .ENDC .ENDC CALL ERRF .ENDC .ENDM ERR$OW .MACRO MVB$ LOW,HIGHN .IF B .IF B . CLR -(SP) .IFF CLRB -(SP)C MOVB HIGH,1(SP) .ENDC .IFF< .IF B < CLR -(SP) MOVB LOW,(SP) .IFF  MOVB LOW,-(SP)D MOVB HIGH,1(SP) .ENDC .ENDC .ENDM MVB$NW .MACRO OFF$ SYMB,LEN. .IF B <'SYMB'LEN>$$$OST=2 .MEXIT. .ENDC .IF NB  .IF NDF $$$GLB$ SYMB=$$$OSTC .IFF. SYMB==$$$OST .ENDC .ENDC .IF NB -$$$OST = ^O<$$$OST+LEN>N .ENDC .ENDM OFF$CW .MACRO RFA$ ADR .IF NB H .NLISTF .NTYPE $$$T2,ADRI00  3  & Ol .LIST .IF LT $$$T2-6 MOV 2(ADR),-(SP)  MOV (ADR),-(SP) .IFF< MOV ADR,-(SP) MOV @(SP),-(SP) ADD #2,2(SP)F MOV @2(SP),2(SP)D .ENDC .IFFS CLR -(SP) CLR -(SP) .ENDC .ENDM RFA$W* .MACRO RVP$ P0,P1,P2,P3,P4,P5,P6,P7,P8,P9 .MCALL MOV$ .NLIST .NARG $$$ARGF .LIST .IIF GT $$$ARG-9., MOV$ $ .IIF GT $$$ARG-8., MOV$ L .IIF GT $$$ARG-7, MOV$  .IIF GT $$$ARG-6, MOV$  .IIF GT $$$ARG-5, MOV$  .IIF GT $$$ARG-4, MOV$  .IIF GT $$$ARG-3, MOV$  .IIF GT $$$ARG-2, MOV$  .IIF GT $$$ARG-1, MOV$  .IIF GT $$$ARG, MOV$ .ENDM RVP$(W .MACRO R50$ NAMEF .NLIST- .NCHR $$$T1,NAME. .LIST .IF EQ $$$T1 .WORD 0,0 .IFFR .IF GT $$$T1-63 $$$T4=.+47 .IFTF .RAD50 /NAME/ .IFT.=$$$T4$ .ENDC .IIF LT $$$T1-4, .WORD 0O .ENDC .ENDM R50$$W .MACRO MOV$ ARG .IF NB . .IF DIF ,<#0>  MOV ARG,-(SP) .MEXITM .ENDC .ENDC CLR -(SP) .ENDM MOV$.W .MACRO .BLKB. NUM,SYM,GBL .IF NB I .IF IDN ,SYM==$$$ .IFF,SYM=$$$> .ENDC .ENDC $$$=$$$+NUM .ENDM .BLKB.$W .MACRO .BLKW. NUM,SYM,GBL .IF NB  .IF IDN ,SYM==$$$ .IFFTSYM=$$$. .ENDC .ENDC$$$=$$$+<2*NUM>$ .ENDM .BLKW..8W .MACRO .BLK.$$$=0R .ENDM .BLK.tW .MACRO LNMOD$ LM.USR=128. LT.USR=2. SD.LOG=3. SD.BYE=4. GD.LOG=5. SD.TI=6. .ENDMW .MACRO AFF$CPA=1ACPB=2KCPC=4SCPD=10UBE=20UBF=40UBH=100<UBJ=200BUBK=400$UBL=1000UBM=2000UBN=4000 UBP=10000= UBR=20000. UBS=40000$ UBT=100000 .ENDM AFF$W .MACRO GFN$GI.GAS=0GI.UIC=1GI.DEF=2GI.FMK=3GI.QMC=4GI.UAB=5GI.DEV=6 GI.SPR=7.+ GI.REN=8.. GI.APR=9.. GI.TSK=10. GI.SPM=11. GI.CFG=12. GI.SSN=13. GI.ABO=14. GI.VEC=15. GI.MSD=16. GI.UPD=17. .ENDM LT.USR=2. SD.LOG=3. SD.BYE=4. GD.LOG=5. SD.TI=6. .ENDMW .MACRO :h@:Zh8<h .DATA FUNCM: .FCTR FUNC-*(PARSE,SET,SHOWR,SHOWD,START,STOP): .DATA PARSE: .FCTR '$LI'ACC/LB:PARSER:$TSRCH:$GTPAR-EXE .DATA ;L .DATA ; IF YOU ARE ADDING TRANSACTIONS IN A NEW MODULE TO BE DISPLAYED BYL .DATA ; THE "SHOW ACCOUNTING" MODULE SHROV, ADD THAT MODULE TO THE SHOWR:K .DATA ; LINE OF THIS FILE. THE "SHROV" MODULE MUST BE THE FIRST IN THISS< .DATA ; OVERLAY, SO ADD THE NEW MODULE ANYWHERE AFTER IT. .DATA ;A .DATA SET: .FCTR '$LI'ACC/LB:SETOV:$CRTRN:$WRTRN:$EXTRN:$CLTRNa@ .DATA SHOWR: .FCTR '$LI'ACC/LB:SHROV:$RPFDB:OPNFIL:DACTRN-EXE@ .DATA SHOWD: .FCTR '$LI'ACC/LB:SHDOV:$RPFDB:OPNFIL:DADTRN-EXEQ .DATA START: .FCTR '$LI'ACC/LB:STROV:$CLTRN:$CRTRN:$FDSCN:$RCOVR:$WRTRN:$EXTRN* .DATA STOP: .FCTR '$LI'ACC/LB:STPOV-EXE .DATA O].IFT $FCSTK .DATA ;******************* ALL OVERLAY CODE BELOW HERE IS FCS ******************SA.IFT $FCSTK .DATA FCSM: .FCTR FCS-FCSCM-*(CSI,OPENM,GPLEG,CLOSE). .IFT $FCSTK .DATA .NAME FCSCOM2.IFT $FCSTK .DATA FCSCM: .FCTR FCSCOM-F1-F2-F3-F4M.IFT $FCSTK .DATA F1: .FCTR LB:[1,1]SYSLIB/LB:FCSGBL:BKRG:COMMON:XQIOI:WAITI$P.IFT $FCSTK .DATA F2: .FCTR LB:[1,1]SYSLIB/LB:BDBREC:FINIT:RDWAIT:WTWAIT:CKALOC00iu ty  DATADATADATADATAW.IFT $FCSTK .DATA F3: .FCTR LB:[1,1]SYSLIB/LB:WATNOD:RWBLK:EOFCHK:WATSET:ANSPAD:RSTFDB <.IFT $FCSTK .DATA F4: .FCTR LB:[1,1]SYSLIB/LB:RETADR:CONTRL*.IFT $FCSTK .DATA CSI: .FCTR *(CSI1,CSI2), .DATA CSI1: .FCTR LB:[1,1]SYSLIB/LB:.CSI1, .DATA CSI2: .FCTR LB:[1,1]SYSLIB/LB:.CSI2.IFT $FCSTK .DATA .NAME OPENR.IFT $FCSTK .DATA OPENM: .FCTR OPEN-LB:[1,1]SYSLIB/LB:ASSLUN-*(OPENNA,OPENFI,RWF) .IFT $FCSTK .DATA .NAME OPNNAM .IFT $FCSTK .DATA .NAME OPNFIDY.IFT $FCSTK .DATA OPENNA: .FCTR OPNNAM-LB:[1,1]SYSLIB/LB:OPEN-OPNSUB-*(CREAT,DELET,PARS)T>.IFT $FCSTK .DATA OPNSUB: .FCTR LB:[1,1]SYSLIB/LB:DIRECT:MKDL8.IFT $FCSTK .DATA CREAT: .FCTR LB:[1,1]SYSLIB/LB:CREATE5.IFT $FCSTK .DATA DELET: .FCTR LB:[1,1]SYSLIB/LB:DELSR.IFT $FCSTK .DATA PARS: .FCTR LB:[1,1]SYSLIB/LB:PARSE-ASC-*(PARDIR,PARDEV,PARNAM)6.IFT $FCSTK .DATA ASC: .FCTR LB:[1,1]SYSLIB/LB:ASCR50D.IFT $FCSTK .DATA PARDIR: .FCTR LB:[1,1]SYSLIB/LB:PARSDI:PPNASC-DIR:.IFT $FCSTK .DATA DIR: .FCTR DIRF-LB:[1,1]SYSLIB/LB:PARDIU.IFT $FCSTK .DATA DIRF: .FCTR DIRFN-LB:[1,1]SYSLIB/LB:ASCPPN-LB:[1,1]SYSLIB/LB:DIFNDN8.IFT $FCSTK .DATA DIRFN: .FCTR LB:[1,1]SYSLIB/LB:DIRFND9.IFT $FCSTK .DATA PARDEV: .FCTR LB:[1,1]SYSLIB/LB:PARSDVA9.IFT $FCSTK .DATA PARNAM: .FCTR LB:[1,1]SYSLIB/LB:PARSFNR?.IFT $FCSTK .DATA OPENFI: .FCTR OPNFID-LB:[1,1]SYSLIB/LB:OPFIDT6.IFT $FCSTK .DATA RWF: .FCTR LB:[1,1]SYSLIB/LB:RWFSR2 .IFT $FCSTK .DATA .NAME GETPUT4.IFT $FCSTK .DATA GPLEG: .FCTR GETPUT-GPLEG1-GPLEG2F.IFT $FCSTK .DATA GPLEG1: .FCTR LB:[1,1]SYSLIB/LB:GET:PUT:MOVREC:PGCRJ.IFT $FCSTK .DATA GPLEG2: .FCTR LB:[1,1]SYSLIB/LB:POSREC:RDRN:POINT:POSIT7.IFT $FCSTK .DATA CLOSE: .FCTR LB:[1,1]SYSLIB/LB:CLOSER .DATA :U .DATA ;******************* SYSTEM STB AND OLB ************************************T& .DATA STB: .FCTR '$TK'RSX11M.STB/SS% .DATA EXE: .FCTR LB:[1,1]EXELIB/LBA .DATA B .DATA .END .CLOSET .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4PLEG2F.IFT $FCSTK .DATA GPLEG1: .FCTR LB:[1,1]SYSLI .ONERR ERXIT .ENABLE SUBSTITUTIONA .ENABLE GLOBAL  .SETF $UTYP1.;.; GENERATE ACDBLD.CMD.; .OPEN '$CL'ACDBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR ACD .DATA ; '$COM'Y .DATA ; USING SYSLIBm .DATA ; CREATED BY '$BLDID' .DATA ;* .DATA '$TK'ACD/PR/-IP/-FP,'$MP'ACD/-SP= .DATA '$LI'ACD/LB:ACD .DATA '$TK'RSX11M.STB/SSS .DATA / .DATA ASG=TI:1Y .DATA ASG=TI:3  .DATA PAR='$GEN'1 .DATA WNDWS=1 .DATA TASK=...ACD .DATA IDENT=1.00! .DATA / .DATA '$TK'MCSVT/-HD=( .DATA '$LI'ACD/LB:XLBASE:VTMNCI:VTMNC- .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LBC .DATA / .DATA PAR=GEN:120000:0B .DATA STACK=0 .DATA UNITS=0 .DATA GBLDEF=$ACDNM:24m .DATA IDENT=1.00B .DATA / .DATA '$TK'MCSVTW/-HD=C& .DATA '$LI'ACD/LB:XLBASE:VTMNCI:VTW- .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LB. .DATA / .DATA PAR=GEN:120000:0G .DATA STACK=0 .DATA UNITS=0 .DATA GBLDEF=$ACDNM:20. .DATA IDENT=1.001 .DATA / .DATA '$TK'MCSVTWG/-HD=& .DATA '$LI'ACD/LB:XLBASE:VTMNIG:VTW- .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LBB .DATA / .DATA PAR=GEN:120000:00 .DATA STACK=0 .DATA UNITS=0 .DATA GBLDEF=$ACDNM:22M .DATA IDENT=1.001 .DATA / .DATA '$TK'MCSVTWF/-HD=& .DATA '$LI'ACD/LB:XLBASE:VTMNIF:VTW- .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LBB .DATA / .DATA PAR=GEN:120000:00 .DATA STACK=0 .DATA UNITS=0 .DATA GBLDEF=$ACDNM:16M .DATA IDENT=1.001 .DATA //A .CLOSEA .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 411M.STB/SS,LB:[1,1]EXELIB/LBB .DATA / .DATA PAR=GEN:120000:00 .DATA STACK=0 .DATA UNITS=0 .DATA GBLDEF=$ACDNM:22M .DATA IDENT=1.001 .DATA / .DATA '$TK'MCSVTWF/-HD=& .DATA '$LI'ACD/LB:XLBASE:VTMNIF:VTW- .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LBB .DATA / .DATA PAR=GEN:120000:00 .DATA STACK=0 .DATA UNITS=0 .DATA GBLDEF=$ACDNM:16M .DATA IDENT=1.001 .DA00}   Ol.;.; J. M. KINNEAR 20-FEB-831.; JMK009 - ADD IDENT OPTION FOR UPDATE PROCEDURED.;.; D. R. DONCHIN 07-NOV-831.; DD178 - ADD DHU/DHV11 SUPPORT TO AUTOCONFIGUREE.; .ONERR ERXIT; .ENABLE SUBSTITUTIONI .ENABLE GLOBALA.;.; Generate ACFBLD.CMD.; .SETF $UTYP1A .OPEN '$CL'ACFBLD.CMD .DATA ;! .DATA ; TKB BUILD FILE FOR ACF' .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;; .DATA '$TK'ACF/-CP/MM/PR,'$MP'ACF/-SP='$LI'ACF/LB:ACFROT30 .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LB/SS .DATA /.; .DATA TASK=...ACF.; .DATA PAR='$GEN'; .DATA IDENT=2.01- .DATA //1 .CLOSEU .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4ONI .ENABLE GLOBALA.;.; Generate ACFBLD.CMD.; .SETF $UTYP1A .OPEN '$CL'ACFBLD.CMD .DATA ;! .DATA ; TKB BUILD FILE FOR ACF' .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;; .DATA '$TK'ACF/-CP/MM/PR,'$MP'ACF/-SP='$LI'ACF/LB:ACFROT30 .DATA '$TK'RSX11M.STB.;.; J. M. KINNEAR 20-FEB-831.; JMK010 - ADD IDENT OPTION FOR UPDATE PROCEDURE.;.; D. R. DONCHIN 07-NOV-831.; DD178 - ADD DHU/DHV11 SUPPORT TO AUTOCONFIGUREA.; .ONERR ERXITS .ENABLE SUBSTITUTIONM .ENABLE GLOBALR.;.; Generate ACOBLD.CMD.; .SETF $UTYP1G .OPEN '$CL'ACOBLD.CMD .DATA ;! .DATA ; TKB BUILD FILE FOR ACO  .DATA ; '$COM'B .DATA ; CREATED BY '$BLDID' .DATA ;7 .DATA '$TK'ACO/MM/CP/-FP,'$MP'ACO/-SP='$OD'ACOBLD/MPD.;& .DATA ASG=TI:2 ; ERROR MESSAGE LUN .DATA TASK=...ACO .DATA PAR='$GEN'P .DATA IDENT=2.01D.; .DATA / .CLOSE0.;.; Generate ACOBLD.ODL.; .OPEN '$CL'ACOBLD.ODL .DATA ;. .DATA ; TKB OVERLAY DESCRIPTOR FILE FOR ACO .DATA ; '$COM'G .DATA ; CREATED BY '$BLDID' .DATA ;) .DATA .ROOT ACOROT-*(OV1,OV2,OV3,OV4)A) .DATA ACOROT: .FCTR '$LI'ACF/LB:ACFOUTM0 .DATA OV1: .FCTR LB:[1,1]SYSLIB/LB:OPEN:CLOSE* .DATA OV2: .FCTR LB:[1,1]SYSLIB/LB:READ+ .DATA OV3: .FCTR LB:[1,1]SYSLIB/LB:PUTSQS< .DATA OV4: .FCTR '$LI'PIPUTL/LB:FCSERR:ERRPRT:GTKNM:GERRM .DATA .END .CLOSE/ .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4ATA ;. .DATA ; TKB OVERLAY DESCRIPTOR FILE FOR ACO .DATA ; '$COM'G .DATA ; CREATED BY '$BLDID' .DATA ;) .DATA .ROOT ACOROT-*(OV1,OV2,OV3,OV4)A) .DATA ACOROT: .FCTR '$LI'ACF/LB:ACFOUTM0 .DATA OV1: .FCTR LB:[1,1]SYSLIB/LB:OPEN:CLOSE* .DATA OV2: .FCTR LB:[1,1]SYSLIB/LB:READ+ .DATA OV3: .FCTR LB:[1,1]SYSLIB/LB:.;.; S. ADAMS 17-OCT-82.; SA413 - ELIMINATE LOCKLISTI.;.; J. GALLANT 25-MAR-83[1.; JG0047 - ADD IDENT SWITCH FOR UPDATE PROCEDURE..; .ONERR ERXITP .ENABLE SUBSTITUTION; .ENABLE GLOBAL  .SETT $UTYP1D.;.; GENERATE ACSBLD.CMD.; .OPEN '$CL'ACS'$TYP1'BLD.CMDR .DATA ; .DATA ; TKB .CMD FILE FOR ACS .DATA ; '$COM'.(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIBF .DATA ; CREATED BY '$BLDID' .DATA ;; .DATA '$TK'ACS'$TYP2'/PR/-FP'$MMSW','$MP'ACS'$TYP2'/-SP=; .DATA '$LI'MCR/LB:ACS.IFT $11M .DATA '$LI'MCR/LB+.IFT $11MPL .DATA '$LI'MCR/LB:GNBLK:GETNUMR .DATA '$TK'RSX11M.STB/SSP .DATA LB:[1,1]EXELIB/LB .DATA / .DATA STACK=32T .DATA UNITS=2 .DATA ASG=SY:1 .DATA ASG=TI:2T .DATA TASK=...ACS .DATA IDENT=3.00M .DATA PRI=70  .DATA PAR='$GEN'F.IFF $FCSTK .DATA '$LIBOP'$ .DATA / .CLOSEA .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4'ACS'$TYP2'/PR/ .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL.;.; Generate BADBLD.CMD.; A .SETF $UTYP1 .OPEN '$CL'BADBLD.CMD$ .DATA ; " .DATA ; TKB COMMAND FILE FOR BAD .DATA ; '$COM' .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID'C .DATA ; =.IFF $IAS .DATA '$TK'BAD/-SG/-FP/CP/PR:0'$MMSW','$MP'BAD/-SP=A7.IFT $IAS .DATA '$TK'BAD/-FP/CP/PR'$MUSW','$MP'BAD/-SP=o/ .DATA '$LI'BAD/LB:BADCRF:BADBLK:BADCHK:BADDATC- .DATA '$LI'BAD/LB:BADFIN:BADIO:BADLT:BADMSG'( .DATA '$LI'BAD/LB:BA00   DATADATADATADATADACT:BADGCL:BADMAN#.IFT $IAS .DATA LB:[1,1]EXEC.STB/SSB .DATA /G .DATA TASK=...BAD; .DATA IDENT=06.00  .DATA PAR='$GENB'$ .DATA PRI=100D.IFF $IAS .DATA STACK=64.IFT $IAS .DATA STACK=128D .DATA UNITS=4B .DATA ASG=TI:2 .DATA ASG=SY:3# .DATA ASG=TI:4 ;ERROR MESSAGE LUNG .DATA /0 .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4 '$LI'BAD/LB:BADCRF:BADBLK:BADCHK:BADDATC- .DATA '$LI'BAD/LB:BADFIN:BADIO:BADLT:BADMSG'( .DATA '$LI'BAD/LB:BA .ONERR ERXITD .ENABLE SUBSTITUTIONT .ENABLE GLOBAL: .SETF $UTYP1 .;.; MODIFICATIONS:I.;.; J. R. KAUFFMAN 4-OCT-82 T%.; JRK263 -- ADD DEVICE START MODULE.;.;.; Generate BOOBLD.CMD.; .OPEN '$CL'BOOBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR BOO .DATA ; '$COM'i .DATA ; CREATED BY '$BLDID' .DATA ;- .DATA '$TK'BOO/PR/-FP'$MMSW','$MP'BOO/-SP=  .DATA '$OD'BOOBLD/MPP .DATA TASK=...BOO .DATA STACK=48X .DATA UNITS=2 .DATA ASG=TI:1: .DATA ASG=SY:2I .DATA PAR='$GEN'T .DATA PRI=50E .DATA / .CLOSEP.;.; Generate BOOBLD.ODL.; .OPEN '$CL'BOOBLD.ODL .DATA ; .DATA ; TKB .ODL FILE FOR BOO .DATA ; '$COM'  .DATA ; CREATED BY '$BLDID' .DATA ; .IFT $11MPL .DATA .ROOT BOOROT:.IFT $11MPL .DATA BOOROT: .FCTR BOOMOD-SAVMOD-MCRMOD-EXEC?.IFT $11MPL .DATA BOOMOD: .FCTR '$LI'BOO/LB:BOOT:BOTPH2:BOODRV.-.IFT $11MPL .DATA SAVMOD: .FCTR SAVDRV-SCNDV.R.IFT $11MPL .DATA SAVDRV: .FCTR '$LI'SAV/LB:SAVDV1:SAVDK:SAVDP:SAVDL:SAVCM:SAVDV21.IFT $11MPL .DATA SCNDV: .FCTR '$LI'SAV/LB:SCNDVPL.IFT $11MPL .DATA MCRMOD: .FCTR '$LI'MCR/LB:FILBN:$FDUCB:GNBLK:GETNUM:COT2BC.IFT $11MPL .DATA EXEC: .FCTR '$TK'RSX11M.STB/SS-LB:[1,1]EXELIB/LB %.IFT $11M .DATA .ROOT BOOROT,SAVDRVA0.IFT $11M .DATA BOOROT: .FCTR BOOT-BOTPH2-EXTER-.IFT $11M .DATA BOOT: .FCTR '$LI'BOO/LB:BOOTO1.IFT $11M .DATA BOTPH2: .FCTR '$LI'BOO/LB:BOTPH21K.IFT $11M .DATA EXTER: .FCTR '$LI'MCR/LB-LB:[1,1]EXELIB/LB-'$TK'RSX11M.STB'.IFT $11M .DATA .NAME SAVNULW.IFT $11M .DATA SAVDRV: .FCTR SAVNUL-SAVDRT-(SAVDK,SAVDX,SAVDY,SAVDF,SAVDS,SAVDB,DRV1)O1.IFT $11M .DATA SAVDRT: .FCTR '$LI'SAV/LB:SAVDRTBF.IFT $11M .DATA DRV1: .FCTR SAVDP,SAVDT,SAVDM,SAVDL,SAVEM,SAVDU,SAVDR/.IFT $11M .DATA SAVDK: .FCTR '$LI'SAV/LB:SAVDK A.IFT $11M .DATA SAVDX: .FCTR '$LI'SAV/LB:SAVDX-LB:[1,1]EXELIB/LBR/.IFT $11M .DATA SAVDY: .FCTR '$LI'SAV/LB:SAVDYR/.IFT $11M .DATA SAVDF: .FCTR '$LI'SAV/LB:SAVDFT/.IFT $11M .DATA SAVDS: .FCTR '$LI'SAV/LB:SAVDS/.IFT $11M .DATA SAVDB: .FCTR '$LI'SAV/LB:SAVDBS/.IFT $11M .DATA SAVDP: .FCTR '$LI'SAV/LB:SAVDPD/.IFT $11M .DATA SAVDT: .FCTR '$LI'SAV/LB:SAVDTC/.IFT $11M .DATA SAVDM: .FCTR '$LI'SAV/LB:SAVDMC/.IFT $11M .DATA SAVDL: .FCTR '$LI'SAV/LB:SAVDLT/.IFT $11M .DATA SAVEM: .FCTR '$LI'SAV/LB:SAVEMT/.IFT $11M .DATA SAVDU: .FCTR '$LI'SAV/LB:SAVDU,/.IFT $11M .DATA SAVDR: .FCTR '$LI'SAV/LB:SAVDRS .DATA .END .CLOSEA .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4:SAVDS/.IFT $11M ..;.; CATHY Z 21-FEB-83.; CDZ029 - ADD TASK IDENTSA.;.;=.; JL155 - Change task name to 2-character name for Micro/RSXI#.; JWB049 - Add reference to $gtknm..;.;L.; Alex Conta 06/08/84 Delete the conditionalizing for Micro/RSX tasknames.;4.; Ritu Krishna 14-JAN-85 Update the Ident to 3.00.; .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL.; .; Generate CMPBLD.CMD.; ' .SETT $UTYP1 .OPEN '$CL'CMP'$TYP1'BLD.CMD .DATA ; " .DATA ; TKB COMMAND FILE FOR CMP .DATA ; '$COM''.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'E .IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID' .DATA ; Z.IFF $IAS .DATA '$TK'CMP'$TYP2'/-FP/CP'$MMSW','$MP'CMP'$TYP2'/-SP/MA='$OD'CMP'$TYP1'BLD/MP;.IFT $IAS .DATA '$TK'CMP/-FP/CP/MU,'$MP'CMP/-SP/CR='$LI'CMP55.IFT $IAS .DATA '$LI'CMPMAIN,CMPRTNS,CMPDATA,CMPSAVRGL.IFT $IAS .DATA /E .DATA TASK=...CMP; .DATA IDENT=03.00 .DATA PAR='$GENX'.IFF $FCSTK .DATA '$LIBOP' .DATA UNITS=5  .DATA ASG=TI:1:2 .DATA ; G.IFT $00 l  OlIAS .DATA ; THE TASK SHOULD BE EXTENDED TO INCREASE THE AMOUNT OF G.IFT $IAS .DATA ; SPACE AVAILABLE TO HOLD LINES AWAITING MATCHING. THEAD.IFT $IAS .DATA ; SAME EFFECT CAN BE ACHIEVED BY USING THE /INCREASE).IFT $IAS .DATA ; SWITCH AT INSTALL TIME.C.IFT $IAS .DATA EXTTSK=10000.IFT $11MPL .DATA EXTTSK=2048C .DATA GBLDEF=HT:11 .DATA GBLDEF=FF:14 .DATA /A .CLOSE.; D.; Generate CMPBLD.ODL.;'.IFF $IAS .OPEN '$CL'CMP'$TYP1'BLD.ODL .IFF $IAS .DATA ; T'.IFF $IAS .DATA ; TKB ODL FILE FOR CMP .IFF $IAS .DATA ; '$COM'E1.IFF $IAS .IFF $FCSTK .DATA ; LINKING TO '$RSLIB'C*.IFF $IAS .IFT $FCSTK .DATA ; USING SYSLIB&.IFF $IAS .DATA ; CREATED BY '$BLDID'.IFF $IAS .DATA ; GC.IFF $IAS .IFT $FCSTK .DATA .ROOT A-*(OV1,OV2,OV3,OV4,OV5,OV6),COT (.IFF $IAS .IFF $FCSTK .DATA .ROOT A-COTW.IFF $IAS .IFT $FCSTK .DATA A: .FCTR '$LI'CMP/LB:CMP:DATA-LB:[1,1]SYSLIB/LB:RQLCB-GTKNMr?.IFF $IAS .IFF $FCSTK .DATA A: .FCTR '$LI'CMP/LB:CMP:DATA-GTKNMFD.IFF $IAS .IFT $FCSTK .DATA OV1: .FCTR LB:[1,1]SYSLIB/LB:.CSI1:.CSI2>.IFF $IAS .IFT $FCSTK .DATA OV2: .FCTR LB:[1,1]SYSLIB/LB:PARSEJ.IFF $IAS .IFT $FCSTK .DATA OV3: .FCTR LB:[1,1]SYSLIB/LB:OPFNB-(OV3A,OV3B)F.IFF $IAS .IFT $FCSTK .DATA OV3A: .FCTR LB:[1,1]SYSLIB/LB:FINIT:ASSLUN@.IFF $IAS .IFT $FCSTK .DATA OV3B: .FCTR LB:[1,1]SYSLIB/LB:RDWAITD.IFF $IAS .IFT $FCSTK .DATA OV4: .FCTR LB:[1,1]SYSLIB/LB:GETSQ:PUTSQ>.IFF $IAS .IFT $FCSTK .DATA OV5: .FCTR LB:[1,1]SYSLIB/LB:EDTMGJ.IFF $IAS .IFT $FCSTK .DATA OV6: .FCTR LB:[1,1]SYSLIB/LB:CLOSE:$PRINT:EXST3.IFF $IAS .DATA GTKNM: .FCTR '$LI'PIPUTL/LB:GTKNM .IFF $IAS .DATA S$.IFF $IAS .IFF $FSLTK .DATA .NAME X5.IFF $IAS .IFF $FSLTK .DATA COT: .FCTR X-*(GCML,CMPX)I0.IFF $IAS .IFT $FSLTK .DATA COT: .FCTR GCML-CMPX4.IFF $IAS .DATA GCML: .FCTR LB:[1,1]SYSLIB/LB:.GCML9.IFF $IAS .DATA CMPX: .FCTR '$LI'CMP/LB:MAIN:RTNS:SAVREG .IFF $IAS .DATA S.IFF $IAS .DATA .END.IFF $IAS .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4CTR LB:[1,1]SYSLIB/LB:CLOSE:$PRINT:EXST3 .ONERR ERXITP .ENABLE SUBSTITUTIONF .ENABLE GLOBALL .SETF $UTYP1A.;.; GENERATE CONBLD.CMD.; .OPEN '$CL'CONBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR CON .DATA ; '$COM'D .DATA ; CREATED BY '$BLDID' .DATA ;% .DATA '$TK'CON/CP/MM,'$MP'CON/-SP=, .DATA '$OD'CONBLD/MPF .DATA ; .DATA IDENT=03.00 .DATA TASK=...CON .DATA UNITS=6 .DATA ASG=TI:1A .DATA ASG=TI:2) .DATA ASG=TI:3. .DATA ASG=TI:4/ .DATA ASG=LB:6  .DATA PAR='$GEN'L .DATA EXTTSK=3072 .DATA GBLDEF=T$KMAX:177700B .DATA GBLDEF=T$KINC:4000 .DATA GBLPAT=CONFIG:.EOLUN:6 .DATA GBLPAT=CONFIG:.EOEFN:40" .DATA ;GBLPAT=CONFIG:$ATTTI:207 .DATA / .CLOSE..;.; GENERATE CONBLD.ODL.; .OPEN '$CL'CONBLD.ODL .DATA ; .DATA ; TKB .ODL FILE FOR CON .DATA ; '$COM'A .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME CONFIG9 .DATA .ROOT CONFIG-ROOT-R1-R2-M1-C1-LIBR-SYSLIB-DEBUGGJ .DATA ROOT: .FCTR '$LI'OLR/LB:CNROT:CNMSG:EDTMG:CNIOR:CNIMP:CNIOB-ERMSGH .DATA R1: .FCTR '$LI'OLR/LB:CNINI:CNCMD:CNHIO:HRCIN:CNHRC:CNERR:CNDEBB .DATA R2: .FCTR '$LI'OLR/LB:CNLST:CNPRO:CNCOR:CNUTL:CNUT2:CNERMB .DATA C1: .FCTR '$LI'OLR/LB:CNPRS:CNCTB:CNCMR:CNATD:CNDIS-TPARS5 .DATA M1: .FCTR LB:[1,1]VMLIB/LB:INIDM:EXTSK-RQLCB;' .DATA RQLCB: .FCTR '$LI'TKB/LB:CORALA& .DATA LIBR: .FCTR LB:[1,1]EXELIB/LB( .DATA SYSLIB: .FCTR LB:[1,1]SYSLIB/LB' .DATA TPARS: .FCTR '$LI'OLR/LB:CNTPSE- .DATA DEBUG: .FCTR LB:[1,1]DEBUG/LB:DDTINLM. .DATA ;DEBUG: .FCTR LB:[1,1]DEBUG/LB:DDT/DA7 .DATA ERMSG: .FCTR '$LI'PIPUTL/LB:FCSERR:GERRM:GTKNMB .DATA .END .CLOSEL .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4S:CNCTB:CNCMR:CNATD:CNDIS-TPARS5 .DATA M1: .FCTR LB:[1,1]VMLIB/LB:INIDM:EXTSK-RQLCB;' .DATA RQLCB: .FCTR '$LI'TKB/LB:CORALA& .DATA LIBR: .FCTR LB:[1,1]EXELIB/LB( .DATA SYSLIB: .FCTR LB:[1,1]SYSLIB/LB' .DATA TPARS: .FCTR '$LI'OLR/LB:CNTPSE- .DATA DEBUG: .FCTR LB:[1,1]DEBUG/LB:DDTINLM. 00 e  DATADATADATADATA.;.; P.J. KOBAR 27-MAR-83A .; INCREMENT IDENT FOR V2.1/4.1.; .ONERR ERXIT' .ENABLE SUBSTITUTIOND .ENABLE GLOBALA.;.; Generate COTBLD.CMD.; .SETT $UTYP1  .OPEN '$CL'COT'$TYP1'BLD.CMD1 .DATA ;! .DATA ; TKB BUILD FILE FOR COT1 .DATA ; '$COM'.(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB' .DATA ; CREATED BY '$BLDID' .DATA ;V .DATA '$TK'COT'$TYP2'/-SE/PR/CP'$MMSW','$MP'COT'$TYP2'/-SP/MA='$OD'COT'$TYP1'BLD/MP .DATA STACK=128 .DATA ASG = CO0:3 .DATA TASK=COT... .DATA IDENT=2.0 .DATA PRI = 145 .DATA PAR='$GEN' .IFF $FCSTK .DATA '$LIBOP'B .DATA GBLPAT=FCSERR:.EREFN:11 .DATA GBLPAT=FCSERR:.ERLUN:5. .DATA ;GBLPAT=COTROT:.TMOUT:5= .DATA ; HALF-FILLED LOGFILE BUFFER WRITTEN AFTER 5 SECONDS .DATA / .CLOSE$.;.; Generate COTBLD.ODL.; .OPEN '$CL'COT'$TYP1'BLD.ODL' .DATA ; .DATA ; TKB ODL FILE FOR COT/(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB' .DATA ; '$COM'A .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .4 .DATA .ROOT '$LI'COT/LB:COT:COTDSP:COTERR-*OVERL+ .DATA OVERL: .FCTR (INI,OPN,CMD,WRT,ERR)AT.IFT $FCSTK .DATA INI: .FCTR '$LI'COT/LB:COTINI-EXEC-LB:[1,1]SYSLIB/LB:FINIT:RWFSR25.IFF $FCSTK .DATA INI: .FCTR '$LI'COT/LB:COTINI-EXEC Q.IFF $11MPL .IFT $FCSTK .DATA OPN: .FCTR '$LI'COT/LB:COTOPN-EXEC-*(FCSOPN,FCSPRS)'@.IFF $11MPL .IFF $FCSTK .DATA OPN: .FCTR '$LI'COT/LB:COTOPN-EXECU.IFT $11MPL .IFT $FCSTK .DATA OPN: .FCTR '$LI'COT/LB:COTOPN-HRC-EXEC-*(FCSOPN,FCSPRS) D.IFT $11MPL .IFF $FCSTK .DATA OPN: .FCTR '$LI'COT/LB:COTOPN-HRC-EXEC8.IFT $FCSTK .DATA FCSPRS: .FCTR LB:[1,1]SYSLIB/LB:PARSE8.IFT $FCSTK .DATA FCSOPN: .FCTR LB:[1,1]SYSLIB/LB:OPFNB+ .DATA CMD: .FCTR '$LI'COT/LB:COTCMD-EXEC 2 .DATA WRT: .FCTR '$LI'COT/LB:COTWRT:COTWAT-EXEC< .DATA ERR: .FCTR '$LI'PIPUTL/LB:FCSERR:ERRPRT:GTKNM:GERRM/.IFT $11MPL .DATA HRC: .FCTR '$LI'OLR/LB:HRCIN.9 .DATA EXEC: .FCTR '$TK'RSX11M.STB/SS-LB:[1,1]EXELIB/LB  .DATA .END .CLOSEP .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4OT/LB:COTOPN-HRC-EXEC8.IFT $FCSTK .DATA FCSPRS: .FCTR LB:[1,1]SYSLIB/LB:PARSE8.IFT $FCSTK .DATA FCSOPN: .FCTR LB:[1,1]SYSLIB/LB:OPFNB+ .DATA CMD: .FCTR '$LI'COT/LB:COTCMD-EXEC 2 .DATA WRT: .FCTR '$LI'COT/LB:COTWRT:COTWAT-EXEC< .DATA ERR: .FCTR '$LI'PIPUTL/LB:FCSERR:ERRPRT:GTKNM:GERRM/.IFT $11MPL .DATA HRC: .FCTR '$LI'OLR/LB:HRCIN.9 .DATA EXEC: .FCTR '$TK'RSX11M.STB/SS-LB:[1,1]EXELIB/LB  .DATA .END .CLOSEP .EXIT 1.;$.; Exit for error encountered by .ONERR ERXIT1 .ENABLE SUBSTITUTIONA .ENABLE GLOBAL. .SETT $UTYP1R.;.; Generate CRPBLD.CMD.; .OPEN '$CL'CRP'$TYP1'BLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR CRP .DATA ; '$COM'R(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIBR .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ;> .DATA '$TK'CRP'$TYP2'/PR/CP/-FP'$MMSW','$MP'CRP'$TYP2'/-SP= .DATA '$OD'CRP'$TYP1'BLD/MP .DATA TASK=CR0o .DATA IDENT=02.00 .DATA STACK=128 .DATA PAR='$GEN'I .DATA ASG=CO0:3 .DATA PRI=70B.IFF $FCSTK .DATA '$LIBOP' .DATA ;, .DATA ; Define default batch job options: .DATA ; .DATA ; 4 = Hold jobE" .DATA ; 10 = Spool logfile' .DATA ; 20 = Generate a logfile$' .DATA ; 200 = Job is restartableC .DATA ; .DATA GBLDEF=$BATDF:30A .DATA ;+ .DATA ; Define default print job optionsY .DATA ; .DATA ; 4 = Hold job ) .DATA ; 10 = Print job flag pages.3 .DATA ; 20 = Lower case printer is required0* .DATA ; 100 = Print file flag pages' .DATA ; 200 = Job is restartablea .DATA ; .DATA GBLDEF=$PRIDF:10. .DATA ;> .DATA ; Comment out the following if you include a password> .DATA ; encription routine (it should be the same module as> .DATA ; that which is used for HELLO). Include the name of( .DATA ; the module in segment CRPACC. .DATA ; .DATA GBLDEF=ENCRPT:0 .DATA ;= .DATA ; Define default job name as three RAD50 word00e _  Ol valuesrE .DATA ; (3 characters/word * 3 words = 9 characters for job name). .DATA ;+ .DATA GBLPAT=CRP:$DFJNM:35200:6274:12000. .DATA / .CLOSE.;.; Generate CRPBLD.ODL.; .OPEN '$CL'CRP'$TYP1'BLD.ODL .DATA ; .DATA ; TKB .ODL FILE FOR CRP .DATA ; '$COM'd(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIBA .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME CRPND.IFT $FCSTK .DATA .ROOT CRP-ROT-QSYM-*(PRS,PAS,ACC,IVL,OPJ,PT,CLJ)A.IFF $FCSTK .DATA .ROOT CRP-ROT-QSYM-*(PRS,PAS,ACC,IVL,OPJ,CLJ)sH.IFT $FCSTK .DATA ROT: .FCTR '$LI'CRP/LB:CRPROT:CRPFUN:CRPPRO:CRPERR-ARE.IFF $FCSTK .DATA ROT: .FCTR '$LI'CRP/LB:CRPROT:CRPFUN:CRPPRO:CRPERR'4.IFT $FCSTK .DATA AR: .FCTR LB:[1,1]SYSLIB/LB:ARITH' .DATA QSYM: .FCTR '$LI'QMG/LB:QMGSYMT& .DATA PRS: .FCTR '$LI'CRP/LB:CRPPRS& .DATA PAS: .FCTR '$LI'CRP/LB:CRPPASP.IFT $FCSTK .DATA ACC: .FCTR '$LI'CRP/LB:CRPACC-'$LI'MCR/LB:ACTFIL-XSYM-(OP,CL)H.IFF $FCSTK .DATA ACC: .FCTR '$LI'CRP/LB:CRPACC-'$LI'MCR/LB:ACTFIL-XSYM+ .DATA IVL: .FCTR '$LI'CRP/LB:CRPIVL-XSYMT2 .DATA OPJ: .FCTR '$LI'CRP/LB:CRPOPJ:CRPSND-XSYM2 .DATA CLJ: .FCTR '$LI'CRP/LB:CRPCLJ:CRPSND-XSYM8.IFT $FCSTK .DATA PT: .FCTR LB:[1,1]SYSLIB/LB:PUT:DLFNB3.IFT $FCSTK .DATA OP: .FCTR LB:[1,1]SYSLIB/LB:OPEN'4.IFT $FCSTK .DATA CL: .FCTR LB:[1,1]SYSLIB/LB:CLOSE' .DATA XSYM: .FCTR '$TK'RSX11M.STB/SS .DATA .END .CLOSET .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4 .FCTR '$LI'CRP/LB: .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL .SETF $UTYP1.;.; GENERATE DLDBLD.CMD.; .OPEN '$CL'DLDBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR DLD .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;& .DATA '$TK'DLD/-FP/MM,'$MP'DLD/-SP= .DATA LI:[12,24]DLD .DATA / .DATA ASG=TI:1 .DATA ASG=TI:3 .DATA WNDWS=1 .DATA TASK=...DLD .DATA PAR='$GEN' .DATA // .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4 .ENABLE SUBSTITUTION .ENABLE GLOBAL .SETF $UTYP1.;.; GENERATE DLDBLD.CMD.; .OPEN '$CL'DLDBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR DLD .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;& .DATA '$TK'DLD/-FP/MM,'$MP'DLD/-SP= .DATA LI:[12,24]DLD .DATA / .DATA ASG=TI:1 .DATA ASG=TI:3 .DATA WNDWS=1 .DATA TASK=...DLD .DATA PAR='$GEN' .DATA // .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.; .ONERR ERXITM .ENABLE SUBSTITUTIONR .ENABLE GLOBAL .;.; Generate DMOBLD.CMD.; .SETF $UTYP1 .OPEN '$CL'DMOBLD.CMD .DATA ;! .DATA ; TKB BUILD FILE FOR DMO- .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;B .DATA '$TK'DMO/-FP/PR/CP'$MMSW','$MP'DMO/-SP='$LI'FIL/LB:DISMNT3 .DATA '$LI'INI/LB:INIGCL,LB:[1,1]SYSLIB/LB:ARITH..IFT $11M .DATA '$LI'MCR/LB+.IFT $11MPL .DATA '$LI'MCR/LB:FMTDV:$FDUCB- .DATA LB:[1,1]EXELIB/LB,'$TK'RSX11M.STB/SST .DATA / .DATA PAR='$GEN'I .DATA IDENT=04.00 .DATA UNITS=3 .DATA ASG=TI:1n# .DATA ASG=TI:3 ; ERROR MESSAGES  .DATA STACK=32C .DATA PRI=160 .DATA TASK=...DMO .DATA GBLDEF=$CTPRT:0 .DATA ;. .DATA ; THE FOLLOWING DEFAULT BLOCK SIZE IS0 .DATA ; SET FOR MAGTAPE DEVICES UPON DISMOUNT+ .DATA ; IT IS DISTRIBUTED AS 1000 (512.)Y1 .DATA ; THE CORRESPONDING GBLDEF IN THE MTAACP$+ .DATA ; MUST ALSO BE ALTERED IF THIS IS.A .DATA ; .DATA GBLDEF=TPDFBS:1000 .DATA / .CLOSER .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4A ASG=TI:3 ; ERROR MESSAGES  .DATA STACK=32C .DATA PRI=160 .DATA TASK=...DMO .DATA GBLDEF=$CTPRT:0 .DATA ;. .DATA ; THE FOLLOWING DEFAULT BLOCK SIZE IS0 .DATA ; SET FOR MAGTAPE DEVICES UPON DISMOUNT+ .DATA ; IT IS DISTRIBUTED AS 1000 (512.)Y1 .DATA ; THE CORRESPONDING GBLDEF IN THE MTAACP$+ .DATA ; MUST ALSO BE ALTERED IF THIS IS.A .DATA ; .DATA GBLDEF=TPDFBS:1000 .DATA / 00)  DATADATADATADATA .ONERR ERXITA .ENABLE SUBSTITUTION' .ENABLE GLOBALI .SETT $UTYP1.;.; Created by:.;.; C. B. Petrovic 5-May-83.;.;.;L.; Alex Conta 06/08/84 Delete the conditionalizing for Micro/RSX tasknamesI.; Paul Weiss 06/05/85 Get a whole new ODL structure from the EDT peopleG.;6.; Generate EDTBLD.CMD, EDTRESBLD.CMD or EDTFSLBLD.CMD.; .OPEN '$CL'EDT'$TYP1'BLD.CMD .DATA ;$ .DATA ; File: EDT'$TYP1'BLD.CMD .DATA ; Created by '$BLDID'4 .DATA ; TASKBUILD COMMAND FILE FOR EDT'$TYP1'.TSK .DATA ; '$COM'O(.IFF $FCSTK .DATA ; Linking to '$RSLIB'!.IFT $FCSTK .DATA ; Using SYSLIBt .DATA ;B.IFT $11MPL .DATA '$TK'EDT'$TYP2'/-FP/MU/CP,'$MP'EDT'$TYP2'/-SP=?.IFT $11M .DATA '$TK'EDT'$TYP2'/-FP/CP/MM,'$MP'EDT'$TYP2'/-SP=  .DATA '$OD'EDT'$TYP1'BLD/MP .DATA TASK=...EDT .DATA IDENT=V03.17  .DATA ACTFIL=5;# .DATA ASG=SY0:1:2:3:4,TI:5,SY0:6  .DATA PRI=65A/.IFT $11MPL .IFT $FSLTK .DATA EXTSCT=HEAP:15500b/.IFT $11MPL .IFT $FCSTK .DATA EXTSCT=HEAP:15400 /.IFT $11MPL .IFT $FRLTK .DATA EXTSCT=HEAP:14000..IFT $11M .DATA EXTSCT=HEAP:0$#.IFT $11MPL .DATA GBLDEF=NWRKBK:7A!.IFT $11M .DATA GBLDEF=NWRKBK:2Y.IFF $FCSTK .DATA '$LIBOP'/ .DATA //1 .CLOSET.;6.; Generate EDTBLD.ODL, EDTRESBLD.ODL or EDTFSLBLD.ODL.; .OPEN '$CL'EDT'$TYP1'BLD.ODLT .DATA ;$ .DATA ; File: EDT'$TYP1'BLD.ODL .DATA ; Created by '$BLDID'? .DATA ; TASKBUILD OVERLAY DESCRIPTOR FILE FOR EDT'$TYP1'.TSK0 .DATA ; '$COM'T(.IFF $FCSTK .DATA ; Linking to '$RSLIB'!.IFT $FCSTK .DATA ; Using SYSLIB4 .DATA ; .DATA ; .DATA ;@.IFT $11MPL .IFT $FSLTK .DATA .ROOT OV-SYSM-XROOT-COT6MF,F12345F.IFT $11MPL .IFT $FCSTK .DATA .ROOT OV-SYSM-XROOT-ZROOT,F12345,COT6MR@.IFT $11MPL .IFT $FRLTK .DATA .ROOT OV-SYSM-HROOT-COT6ML,H123453.IFT $11M .DATA .ROOT OV-SYSM,COT24,COT135,COT6MDl .DATA SYSINI: .FCTR SYSINMA .DATA SYSIID: .FCTR SYSIDMA .DATA ;5 .DATA COT6MR: .FCTR MESAG-*!(MESTXR,FCSFIO,FCSOPN);7 .DATA COT6MF: .FCTR MESAG-MESTXR-FCSFIO-FCSOPN-ZROOT$; .DATA COT6RR: .FCTR MESAG-*!(RSTFIO-RSTCCL,MESTXR,ZROOT)A: .DATA COT6RD: .FCTR MESAG-*(RSTFIO-RSTCCL,MESTXD,ZROOT): .DATA COT6MD: .FCTR MESAG-*(FCSFIO,FCSOPN,MESTXD,ZROOT)4 .DATA COT6MU: .FCTR MESAG-*(FCSFIO,FCSOPN,MESTXD)4 .DATA COT6RU: .FCTR MESAG-*(RSTFIO-RSTCCL,MESTXD): .DATA COT6MO: .FCTR MESAG-*(FCSFIO,OPNCMD,MESTXD,ZROOT)1 .DATA COT6ML: .FCTR MESAG-FCSFIO-FCSOPN-MESTXD .DATA ;G .DATA OPNCMD: .FCTR FCSOPN-*(OPFNB-RWFSR2,PARSE-CLOSE-DELETE-PARSFN)SH .DATA OPNCMR: .FCTR FCSOPN-*!(OPFNB-RWFSR2,PARSE-CLOSE-DELETE-PARSFN)X .DATA MESTXD: .FCTR MESSAG-*(MESSA0,MESSA1,MESSA2,MESSA3,MESSA4,MESSA5,MESSA6,MESSA7)U .DATA MESTXR: .FCTR MESSAG-MESSA0-MESSA1-MESSA2-MESSA3-MESSA4-MESSA5-MESSA6-MESSA7N .DATA OV: .FCTR RES-BLISS .DATA .NAME EDTOVLW .DATA C12345: .FCTR EDTOVL-YROOT-*(COT1,COT2,COT3,COT8-COT7-COT4,COT5-SYSINI-SYSIID)C .DATA .NAME LPASCR@ .DATA COT24: .FCTR LPASCR-COT9B-COT9C-*(COT2,COT8-COT4,COT9A) .DATA .NAME LINCHAC .DATA COT135: .FCTR LINCHA-YROOT-*(COT1,COT3,COT5-SYSINI-SYSIID)PD .DATA COG135: .FCTR LINCHA-YROOT-*(COT1,COT3Z,COT5-SYSINI-SYSIID)F .DATA XROOT: .FCTR LC6-L7-LC7-LC1-CHMEIN-KEYFMT-CHMPRS-SYSIID-YROOT# .DATA YROOT: .FCTR CHMBEE-CHMMESS .DATA ZROOT: .FCTR UEXACA9 .DATA HROOT: .FCTR L7-LC1-LC3-LC5-LC6-LC7-HCOT7-HROOT1-> .DATA HROOT1: .FCTR SCRINM-KEYFMT-CHMPRS-SYSIID-YROOT-ZROOT .DATA .NAME FLAT .DATA .NAME LANDM .DATA F12345: .FCTR FLAT-*!(COT1FL,COT2,COT3FL,COT8-COT7-COT4,COT5-SYSINI)3V .DATA H12345: .FCTR FLAT-*!(LAND-*(HCOT1,COT2,HCOT5-SYSINI),COT3FH,COT8-COT9D-COT4) .DATA ; .DATA .NAME ROOT# .DATA QP: .FCTR STARTEDT-OVTRACEL= .DATA RES: .FCTR ROOT-STARTE-MAIN-EXEC-FILEIO-WORKIO-RES01BD .DATA RES01: .FCTR ARITH-BADKEY-CALLFI-CALLWI-CHMCHK-CHMCLR-RES02A .DATA RES02: .FCTR CHMMRK-CHMPRN-CHMSEL-DATA-EMOV-EXECNO-RES03TF .DATA RES03: .FCTR FCHAR-FCOLIN-FCRLF-FDEC-FPUT-FPUTCH-FPUTME-RES04I .DATA RES04: .FCTR FSTRIN-FTEXT-INPUT-LDIVIS-LFLNO-LXCOMN001  Ol-LXPRIN-RES05I; .DATA RES05: .FCTR MESS-NOOPEN-PAUDIT-FLITER-RQLCB-RES06SE .DATA RES06: .FCTR PRPARN-REAJOU-SCRCUR-SCRDEL-SCRELI-SCRFCU-RES07AE .DATA RES07: .FCTR SCRFND-SCRINS-SCRNDL-SCRNIN-SCRNOR-SCRREV-RES08-E .DATA RES08: .FCTR SCUPDM-SCUPDN-TIAUTO-TICLRA-TISAVE-UFBUFF-RES09C> .DATA RES09: .FCTR UGBUFF-USSTRI-USSUBS-WFAPPB-WFBOTT-RES10E .DATA RES10: .FCTR WFCMPL-WFDELB-WFDELL-WFGETB-WFINSL-WFIOGN-RES11PE .DATA RES11: .FCTR WFOPNB-WFRBUK-WFREAB-WFREAC-WFREAF-WFREAI-RES12-D .DATA RES12: .FCTR WFREPB-WFREPL-WFSPLB-WFTOP-WFWRIB-UCVTCA-RES131 .DATA RES13: .FCTR WFIOGW-WFIOPW-WFFINB-SCRCOMA .DATA ;? .DATA BLISS: .FCTR B16SAV-B16FTN-B16CH5-B16CH1-B16CH3-B16ABSC .DATA ; .DATA .NAME LMODE B .DATA COT1: .FCTR LMODE-LXCOM-RANRPO-RANNEX-LFCOUN-UFSTRI-COT1AM .DATA COT1A: .FCTR WFLOCL-*(LX1,LX2,LX3,LX4,LX5,LX6,LX7,LX8,LX9,LX10,LX11)0D .DATA HCOT1: .FCTR LMODE-LXCOM-RANRPO-RANNEX-LFCOUN-UFSTRI-HCOT1AN .DATA HCOT1A: .FCTR WFLOCL-*(HLX1-L6-L9-L11,L5-L13-LC4,L8-L12-LX11,L14-LC4)' .DATA LX1: .FCTR L1-L2-L3-L4-LC2-LC5A$ .DATA HLX1: .FCTR L1-L2-L3-L4-LC2 .DATA LX2: .FCTR L5-LC3 .DATA LX3: .FCTR L6-LC1-LC6 .DATA LX4: .FCTR L7 .DATA LX5: .FCTR L8-LC1 .DATA LX6: .FCTR L9-LC1 .DATA LX7: .FCTR L11-LC1-LC2P .DATA LX8: .FCTR L12-LC1 .DATA LX9: .FCTR L13-LC3-LC41( .DATA LX10: .FCTR L14-LC3-LC4-LC5-LC7 .DATA LX11: .FCTR L15-LC2 .DATA L1: .FCTR LCLEAR-WFCLEA .DATA L2: .FCTR LDEFK-LDEFM .DATA L3: .FCTR LDELET- .DATA L4: .FCTR MACCAL) .DATA L5: .FCTR LWRITE- .DATA L6: .FCTR LFILL-LNONCTC .DATA L7: .FCTR HLPLIN-HLPTOP .DATA L8: .FCTR LINCL .DATA L9: .FCTR LINSERA. .DATA L11: .FCTR LMOVE-WFCOPL-WFECOP-WFSCOP% .DATA L12: .FCTR LTYPE-LPRINT-LRESF .DATA L13: .FCTR LSET-SETCOMF .DATA L14: .FCTR LSHOW-KEYPAD9 .DATA L15: .FCTR LSUBS-LGETST-LSUB-LSUBSN-LPUTCH-LTADJ.( .DATA LC1: .FCTR WFENDI-WFSTRI-WFRESE .DATA LC2: .FCTR LQUERY .DATA LC3: .FCTR SCRWID .DATA LC4: .FCTR HLPSET! .DATA LC5: .FCTR DEFKEY-CLRKEY. .DATA LC6: .FCTR FILL .DATA LC7: .FCTR FINDKED .DATA COT1FL: .FCTR LMODE-LXCOM-RANRPO-RANNEX-LFCOUN-UFSTRI-COT1C> .DATA COT1C: .FCTR WFLOCL-L1-L2-L3-L4-L5-L6-L8-L9-L11-COT1D5 .DATA COT1D: .FCTR L12-L13-L14-L15-LC2-LC3-LC4-LC5 .DATA ; .DATA .NAME LPARSEK .DATA COT2: .FCTR LPARSE-PRPARC-PRMACC-PRPARD-PRGETT-PRAPPN-PRGETC-COT2AA1 .DATA COT2A: .FCTR PRNUMR-PRPUSH-PRSEMR-PRISTOF .DATA ; .DATA .NAME CMODEW4 .DATA COT3: .FCTR CMODE-COT3I-CC1-COT3B-CC2-COT3O5 .DATA COT3Z: .FCTR CMODE-COT3I-CC1-COT3B-CC2-COT3YF# .DATA COT3A: .FCTR CHMINI-SCRRESO> .DATA COT3B: .FCTR CHMIST-CHMICH-CHMSPL-CHMDCH-CHMSLI-COT3CL .DATA COT3C: .FCTR CHMDLI-CHMFST-CHMCMB-CHMONS-CHMREP-CHMSPO-WORDWR-COT3D7 .DATA COT3D: .FCTR CHMSCH-MCTOP-MCBOTT-CHMGDI-CHMGIN0 .DATA COT3O: .FCTR COT3F-*(COT3A,COT3G,COT3H)* .DATA COT3Y: .FCTR COT3F-*(COT3A,COT3X)T .DATA COT3F: .FCTR CHMGCO-CHMGQU-CHMGSU-SCRINI-CHMPAR-CHMKEY-CHMGBU-SCRWID-SCRREM@ .DATA HCOT3F: .FCTR CHMGCO-CHMGQU-CHMGSU-CHMPAR-CHMKEY-CHMGBU/ .DATA COT3G: .FCTR CHMEXC-*(COT3W-C5,C7-CC4)T> .DATA COT3H: .FCTR CHMEXV-C11-*(C12,C13,COT3V-C5,COT3U,C21)R .DATA COT3X: .FCTR CHMEXC-CHMEXV-C11-C5-*(COT3W,C7-CC4,C12,C13,COT3V,COT3U,C21), .DATA COT3W: .FCTR C1-C2-C3-CC3-C4-C6-C10! .DATA COT3V: .FCTR C14-C15-C16T% .DATA COT3U: .FCTR C17-C18-C19-C20 E .DATA COT3I: .FCTR CHMCHA-TITYPA-SCRINM-MCCHAN-MCLEFT-MCGETL-COT3JC@ .DATA HCOT3I: .FCTR CHMCHA-TITYPA-CHMEIN-MCLEFT-MCGETL-HCOT3J> .DATA COT3J: .FCTR TSTKEY-KEYCOM-KEYCHR-CHMEME-KEYPUT-COT3K@ .DATA HCOT3J: .FCTR TSTKEY-KEYCOM-KEYCHR-CHMEME-KEYPUT-HCOT3K> .DATA COT3K: .FCTR KEYIMM-SCRESC-CHMNEW-SCRNOS-CHMBEL-COT3L9 .DATA HCOT3K: .FCTR KEYIMM-CHMNEW-SCRNOS-CHMBEL-HCOT3L< .DATA COT3L: .FCTR TIDELE-MCRIGH-CHMBWR-MCUP-KEYTRN-COT3M> .DATA HCOT3L: .FCTR TIDELE-MCRIGH-CHMBWR-MCUP-KEYTRN-HCOT3M> .DATA COT3M: .FCTR TICHAR-TIECHO-TILINE-SCRREG-MCDOWN-COT3N8 .DATA HCOT3M: .FCTR TICHAR-TIECHO-TILINE-MCDOWN-COT3N .DATA COT3N: .FCT009  DATADATADATADATAR CHMENT .DATA C1: .FCTR CHMSUBM .DATA C2: .FCTR CHMPASH .DATA C3: .FCTR KEYDEFK .DATA C4: .FCTR CHMUND .DATA C5: .FCTR CHMITAM .DATA C6: .FCTR EXTENDL .DATA C7: .FCTR CHMHLPC .DATA C10: .FCTR CHMIND .DATA C11: .FCTR CHMSTX .DATA C12: .FCTR FILL! .DATA C13: .FCTR CHMFEN-FINDPA: .DATA C14: .FCTR CHMEND .DATA C15: .FCTR CHMTAD! .DATA C16: .FCTR CHMBSE-CHMSENS .DATA C17: .FCTR SCRMCO .DATA C18: .FCTR SCRNCO .DATA C19: .FCTR WFCLEA .DATA C20: .FCTR CHMCHG .DATA C21: .FCTR CHMIMO( .DATA CC1: .FCTR CHMEIN-KEYFMT-FINDKE/ .DATA CC2: .FCTR CHMPRS-WFENDI-WFRESE-WFSTRI:! .DATA CC3: .FCTR DEFKEY-CLRKEYE! .DATA CC4: .FCTR HLPLIN-HLPTOP@ .DATA COT3FL: .FCTR CMODE-COT3I-COT3A-COT3B-COT3F-COT3P-COT3Q6 .DATA COT3P: .FCTR CHMEXC-C1-C2-C3-C4-C6-C10-C7-CC3G .DATA COT3Q: .FCTR CHMEXV-C11-C13-C14-C15-C5-C16-C17-C18-C19-C20-C21HD .DATA COT3FH: .FCTR CMODE-HCOT3I-COT3A-COT3B-HCOT3F-HCOT3P-HCOT3Q3 .DATA HCOT3P: .FCTR CHMEXC-C1-C2-C3-C4-C6-C10-C7GH .DATA HCOT3Q: .FCTR CHMEXV-C11-C13-C14-C15-C5-C16-C17-C18-C19-C20-C21 .DATA ;7 .DATA COT4: .FCTR SCRZAP-SCRBLO-SCRCHK-SCRREL-SCRRLIE .DATA ;B .DATA COT5: .FCTR INIT-FINAL-MCRCMD-SAUDIT-B16STP-SCRWID-WFINIT< .DATA HCOT5: .FCTR INIT-FINAL-MCRCMD-SAUDIT-B16STP-WFINIT .DATA COT5A: .FCTR SYSIID .DATA ;D .DATA COT7: .FCTR MCCHAN-SCRESC-SCRINI-SCRREG-SCRWID-SCRREM-COT9D8 .DATA HCOT7: .FCTR MCCHAN-SCRESC-SCRINI-SCRREG-SCRREM' .DATA COT9D: .FCTR COT9A-COT9B-COT9C3 .DATA ; .DATA COT8: .FCTR SCRUPDM .DATA COT9A: .FCTR FIXNOT .DATA COT9B: .FCTR FIXNOM .DATA COT9C: .FCTR SCRMOV .DATA ;% .DATA ; Specify all of the modulesT .DATA ;. .DATA ARITH: .FCTR '$LI'EDTLIB.OLB/LB:ARITH0 .DATA BADKEY: .FCTR '$LI'EDTLIB.OLB/LB:BADKEY0 .DATA B16CH1: .FCTR '$LI'EDTLIB.OLB/LB:B16CH10 .DATA B16CH5: .FCTR '$LI'EDTLIB.OLB/LB:B16CH50 .DATA B16FTN: .FCTR '$LI'EDTLIB.OLB/LB:B16FTN0 .DATA B16SAV: .FCTR '$LI'EDTLIB.OLB/LB:B16SAV0 .DATA B16STP: .FCTR '$LI'EDTLIB.OLB/LB:B16STP0 .DATA CALLFI: .FCTR '$LI'EDTLIB.OLB/LB:CALLFI0 .DATA CALLWI: .FCTR '$LI'EDTLIB.OLB/LB:CALLWI0 .DATA CHMBEE: .FCTR '$LI'EDTLIB.OLB/LB:CHMBEE0 .DATA CHMBEL: .FCTR '$LI'EDTLIB.OLB/LB:CHMBEL0 .DATA CHMBSE: .FCTR '$LI'EDTLIB.OLB/LB:CHMBSE0 .DATA CHMBWR: .FCTR '$LI'EDTLIB.OLB/LB:CHMBWR0 .DATA CHMCHA: .FCTR '$LI'EDTLIB.OLB/LB:CHMCHA0 .DATA CHMCHG: .FCTR '$LI'EDTLIB.OLB/LB:CHMCHG0 .DATA CHMCHK: .FCTR '$LI'EDTLIB.OLB/LB:CHMCHK0 .DATA CHMCLR: .FCTR '$LI'EDTLIB.OLB/LB:CHMCLR0 .DATA CHMCMB: .FCTR '$LI'EDTLIB.OLB/LB:CHMCMB0 .DATA CHMDCH: .FCTR '$LI'EDTLIB.OLB/LB:CHMDCH0 .DATA CHMDLI: .FCTR '$LI'EDTLIB.OLB/LB:CHMDLI0 .DATA CHMEIN: .FCTR '$LI'EDTLIB.OLB/LB:CHMEIN0 .DATA CHMEME: .FCTR '$LI'EDTLIB.OLB/LB:CHMEME0 .DATA CHMEND: .FCTR '$LI'EDTLIB.OLB/LB:CHMEND0 .DATA CHMENT: .FCTR '$LI'EDTLIB.OLB/LB:CHMENT0 .DATA CHMEXC: .FCTR '$LI'EDTLIB.OLB/LB:CHMEXC0 .DATA CHMEXV: .FCTR '$LI'EDTLIB.OLB/LB:CHMEXV0 .DATA CHMFEN: .FCTR '$LI'EDTLIB.OLB/LB:CHMFEN0 .DATA CHMFST: .FCTR '$LI'EDTLIB.OLB/LB:CHMFST0 .DATA CHMGBU: .FCTR '$LI'EDTLIB.OLB/LB:CHMGBU0 .DATA CHMGCO: .FCTR '$LI'EDTLIB.OLB/LB:CHMGCO0 .DATA CHMGDI: .FCTR '$LI'EDTLIB.OLB/LB:CHMGDI0 .DATA CHMGIN: .FCTR '$LI'EDTLIB.OLB/LB:CHMGIN0 .DATA CHMGQU: .FCTR '$LI'EDTLIB.OLB/LB:CHMGQU0 .DATA CHMGSU: .FCTR '$LI'EDTLIB.OLB/LB:CHMGSU0 .DATA CHMHLP: .FCTR '$LI'EDTLIB.OLB/LB:CHMHLP0 .DATA CHMICH: .FCTR '$LI'EDTLIB.OLB/LB:CHMICH0 .DATA CHMIMO: .FCTR '$LI'EDTLIB.OLB/LB:CHMIMO0 .DATA CHMIND: .FCTR '$LI'EDTLIB.OLB/LB:CHMIND0 .DATA CHMINI: .FCTR '$LI'EDTLIB.OLB/LB:CHMINI0 .DATA CHMIST: .FCTR '$LI'EDTLIB.OLB/LB:CHMIST0 .DATA CHMITA: .FCTR '$LI'EDTLIB.OLB/LB:CHMITA0 .DATA CHMKEY: .FCTR '$LI'EDTLIB.OLB/LB:CHMKEY0 .DATA CHMMES: .FCTR '$LI'EDTLIB.OLB/LB:CHMMES0 .DATA CHMMRK: .FCTR '$LI'EDTLIB.OLB/LB:CHMMRK0 .DATA CHMNEW: .FCTR '$LI'EDTLIB.OLB/LB:CHMNEW0 .DATA CHMONS: .FCTR '$LI'EDTLIB.OLB/LB:CHMONS0 .DATA CHMPAR: .FCTR '$LI'EDTLIB.OLB/LB:CHMPAR0 .DATA CHMPA00A  OlS: .FCTR '$LI'EDTLIB.OLB/LB:CHMPAS0 .DATA CHMPRN: .FCTR '$LI'EDTLIB.OLB/LB:CHMPRN0 .DATA CHMPRS: .FCTR '$LI'EDTLIB.OLB/LB:CHMPRS0 .DATA CHMREP: .FCTR '$LI'EDTLIB.OLB/LB:CHMREP0 .DATA CHMSCH: .FCTR '$LI'EDTLIB.OLB/LB:CHMSCH0 .DATA CHMSEL: .FCTR '$LI'EDTLIB.OLB/LB:CHMSEL0 .DATA CHMSEN: .FCTR '$LI'EDTLIB.OLB/LB:CHMSEN0 .DATA CHMSLI: .FCTR '$LI'EDTLIB.OLB/LB:CHMSLI0 .DATA CHMSPL: .FCTR '$LI'EDTLIB.OLB/LB:CHMSPL0 .DATA CHMSPO: .FCTR '$LI'EDTLIB.OLB/LB:CHMSPO0 .DATA CHMSTX: .FCTR '$LI'EDTLIB.OLB/LB:CHMSTX0 .DATA CHMSUB: .FCTR '$LI'EDTLIB.OLB/LB:CHMSUB0 .DATA CHMTAD: .FCTR '$LI'EDTLIB.OLB/LB:CHMTAD0 .DATA CHMUND: .FCTR '$LI'EDTLIB.OLB/LB:CHMUND0 .DATA CLRKEY: .FCTR '$LI'EDTLIB.OLB/LB:CLRKEY, .DATA DATA: .FCTR '$LI'EDTLIB.OLB/LB:DATA0 .DATA DEFKEY: .FCTR '$LI'EDTLIB.OLB/LB:DEFKEY, .DATA EMOV: .FCTR '$LI'EDTLIB.OLB/LB:EMOV, .DATA EXEC: .FCTR '$LI'EDTLIB.OLB/LB:EXEC0 .DATA EXECNO: .FCTR '$LI'EDTLIB.OLB/LB:EXECNO0 .DATA EXTEND: .FCTR '$LI'EDTLIB.OLB/LB:EXTEND. .DATA FCHAR: .FCTR '$LI'EDTLIB.OLB/LB:FCHAR0 .DATA FCOLIN: .FCTR '$LI'EDTLIB.OLB/LB:FCOLIN. .DATA FCRLF: .FCTR '$LI'EDTLIB.OLB/LB:FCRLF, .DATA FDEC: .FCTR '$LI'EDTLIB.OLB/LB:FDEC0 .DATA FILEIO: .FCTR '$LI'EDTLIB.OLB/LB:FILEIO, .DATA FILL: .FCTR '$LI'EDTLIB.OLB/LB:FILL. .DATA FINAL: .FCTR '$LI'EDTLIB.OLB/LB:FINAL0 .DATA FINDPA: .FCTR '$LI'EDTLIB.OLB/LB:FINDPA0 .DATA FIXNOM: .FCTR '$LI'EDTLIB.OLB/LB:FIXNOM0 .DATA FIXNOT: .FCTR '$LI'EDTLIB.OLB/LB:FIXNOT0 .DATA FLITER: .FCTR '$LI'EDTLIB.OLB/LB:FLITER, .DATA FPUT: .FCTR '$LI'EDTLIB.OLB/LB:FPUT0 .DATA FPUTCH: .FCTR '$LI'EDTLIB.OLB/LB:FPUTCH0 .DATA FPUTME: .FCTR '$LI'EDTLIB.OLB/LB:FPUTME0 .DATA FSTRIN: .FCTR '$LI'EDTLIB.OLB/LB:FSTRIN. .DATA FTEXT: .FCTR '$LI'EDTLIB.OLB/LB:FTEXT0 .DATA HLPLIN: .FCTR '$LI'EDTLIB.OLB/LB:HLPLIN0 .DATA HLPSET: .FCTR '$LI'EDTLIB.OLB/LB:HLPSET0 .DATA HLPTOP: .FCTR '$LI'EDTLIB.OLB/LB:HLPTOP, .DATA INIT: .FCTR '$LI'EDTLIB.OLB/LB:INIT. .DATA INPUT: .FCTR '$LI'EDTLIB.OLB/LB:INPUT0 .DATA KEYCHR: .FCTR '$LI'EDTLIB.OLB/LB:KEYCHR0 .DATA KEYCOM: .FCTR '$LI'EDTLIB.OLB/LB:KEYCOM0 .DATA KEYDEF: .FCTR '$LI'EDTLIB.OLB/LB:KEYDEF0 .DATA KEYFMT: .FCTR '$LI'EDTLIB.OLB/LB:KEYFMT0 .DATA KEYIMM: .FCTR '$LI'EDTLIB.OLB/LB:KEYIMM0 .DATA KEYPAD: .FCTR '$LI'EDTLIB.OLB/LB:KEYPAD0 .DATA KEYPUT: .FCTR '$LI'EDTLIB.OLB/LB:KEYPUT0 .DATA KEYTRN: .FCTR '$LI'EDTLIB.OLB/LB:KEYTRN0 .DATA LCLEAR: .FCTR '$LI'EDTLIB.OLB/LB:LCLEAR. .DATA LDEFK: .FCTR '$LI'EDTLIB.OLB/LB:LDEFK. .DATA LDEFM: .FCTR '$LI'EDTLIB.OLB/LB:LDEFM0 .DATA LDELET: .FCTR '$LI'EDTLIB.OLB/LB:LDELET0 .DATA LDIVIS: .FCTR '$LI'EDTLIB.OLB/LB:LDIVIS0 .DATA LFCOUN: .FCTR '$LI'EDTLIB.OLB/LB:LFCOUN. .DATA LFILL: .FCTR '$LI'EDTLIB.OLB/LB:LFILL. .DATA LFLNO: .FCTR '$LI'EDTLIB.OLB/LB:LFLNO0 .DATA LGETST: .FCTR '$LI'EDTLIB.OLB/LB:LGETST. .DATA LINCL: .FCTR '$LI'EDTLIB.OLB/LB:LINCL0 .DATA LINSER: .FCTR '$LI'EDTLIB.OLB/LB:LINSER. .DATA LMOVE: .FCTR '$LI'EDTLIB.OLB/LB:LMOVE0 .DATA LNONCT: .FCTR '$LI'EDTLIB.OLB/LB:LNONCT0 .DATA LPRINT: .FCTR '$LI'EDTLIB.OLB/LB:LPRINT0 .DATA LPUTCH: .FCTR '$LI'EDTLIB.OLB/LB:LPUTCH0 .DATA LQUERY: .FCTR '$LI'EDTLIB.OLB/LB:LQUERY, .DATA LRES: .FCTR '$LI'EDTLIB.OLB/LB:LRES, .DATA LSET: .FCTR '$LI'EDTLIB.OLB/LB:LSET. .DATA LSHOW: .FCTR '$LI'EDTLIB.OLB/LB:LSHOW, .DATA LSUB: .FCTR '$LI'EDTLIB.OLB/LB:LSUB. .DATA LSUBS: .FCTR '$LI'EDTLIB.OLB/LB:LSUBS0 .DATA LSUBSN: .FCTR '$LI'EDTLIB.OLB/LB:LSUBSN. .DATA LTADJ: .FCTR '$LI'EDTLIB.OLB/LB:LTADJ. .DATA LTYPE: .FCTR '$LI'EDTLIB.OLB/LB:LTYPE0 .DATA LWRITE: .FCTR '$LI'EDTLIB.OLB/LB:LWRITE. .DATA LXCOM: .FCTR '$LI'EDTLIB.OLB/LB:LXCOM0 .DATA LXCOMN: .FCTR '$LI'EDTLIB.OLB/LB:LXCOMN0 .DATA LXPRIN: .FCTR '$LI'EDTLIB.OLB/LB:LXPRIN0 .DATA MACCAL: .FCTR '$LI'EDTLIB.OLB/LB:MACCAL, .DATA MAIN: .FCTR '$LI'EDTLIB.OLB/LB:MAIN0 .DATA MCBOTT: .FCTR '$LI'EDTLIB.OLB/LB:MCBOTT0 .DATA MCCHAN: .FCTR '$LI'EDTLIB.OLB/LB:MCCHAN0 .DATA MCDOWN: .FCTR '$LI'EDTLIB.OLB/LB:MCDOWN0 .DATA MCGETL: .FCTR '$LI'EDTLIB.O00I  DATADATADATADATALB/LB:MCGETL0 .DATA MCLEFT: .FCTR '$LI'EDTLIB.OLB/LB:MCLEFT0 .DATA MCRCMD: .FCTR '$LI'EDTLIB.OLB/LB:MCRCMD0 .DATA MCRIGH: .FCTR '$LI'EDTLIB.OLB/LB:MCRIGH. .DATA MCTOP: .FCTR '$LI'EDTLIB.OLB/LB:MCTOP, .DATA MCUP: .FCTR '$LI'EDTLIB.OLB/LB:MCUP. .DATA MESAG: .FCTR '$LI'EDTLIB.OLB/LB:MESAG, .DATA MESS: .FCTR '$LI'EDTLIB.OLB/LB:MESS0 .DATA MESSAG: .FCTR '$LI'EDTLIB.OLB/LB:MESSAG0 .DATA MESSA0: .FCTR '$LI'EDTLIB.OLB/LB:MESSA00 .DATA MESSA1: .FCTR '$LI'EDTLIB.OLB/LB:MESSA10 .DATA MESSA2: .FCTR '$LI'EDTLIB.OLB/LB:MESSA20 .DATA MESSA3: .FCTR '$LI'EDTLIB.OLB/LB:MESSA30 .DATA MESSA4: .FCTR '$LI'EDTLIB.OLB/LB:MESSA40 .DATA MESSA5: .FCTR '$LI'EDTLIB.OLB/LB:MESSA50 .DATA MESSA6: .FCTR '$LI'EDTLIB.OLB/LB:MESSA60 .DATA MESSA7: .FCTR '$LI'EDTLIB.OLB/LB:MESSA70 .DATA NOOPEN: .FCTR '$LI'EDTLIB.OLB/LB:NOOPEN0 .DATA PAUDIT: .FCTR '$LI'EDTLIB.OLB/LB:PAUDIT0 .DATA PRAPPN: .FCTR '$LI'EDTLIB.OLB/LB:PRAPPN0 .DATA PRGETC: .FCTR '$LI'EDTLIB.OLB/LB:PRGETC0 .DATA PRGETT: .FCTR '$LI'EDTLIB.OLB/LB:PRGETT0 .DATA PRISTO: .FCTR '$LI'EDTLIB.OLB/LB:PRISTO0 .DATA PRMACC: .FCTR '$LI'EDTLIB.OLB/LB:PRMACC0 .DATA PRNUMR: .FCTR '$LI'EDTLIB.OLB/LB:PRNUMR0 .DATA PRPARC: .FCTR '$LI'EDTLIB.OLB/LB:PRPARC0 .DATA PRPARD: .FCTR '$LI'EDTLIB.OLB/LB:PRPARD0 .DATA PRPARN: .FCTR '$LI'EDTLIB.OLB/LB:PRPARN0 .DATA PRPUSH: .FCTR '$LI'EDTLIB.OLB/LB:PRPUSH0 .DATA PRSEMR: .FCTR '$LI'EDTLIB.OLB/LB:PRSEMR0 .DATA RANNEX: .FCTR '$LI'EDTLIB.OLB/LB:RANNEX0 .DATA RANRPO: .FCTR '$LI'EDTLIB.OLB/LB:RANRPO0 .DATA REAJOU: .FCTR '$LI'EDTLIB.OLB/LB:REAJOU0 .DATA SAUDIT: .FCTR '$LI'EDTLIB.OLB/LB:SAUDIT0 .DATA SCRBLO: .FCTR '$LI'EDTLIB.OLB/LB:SCRBLO0 .DATA SCRCHK: .FCTR '$LI'EDTLIB.OLB/LB:SCRCHK0 .DATA SCRCOM: .FCTR '$LI'EDTLIB.OLB/LB:SCRCOM0 .DATA SCRCUR: .FCTR '$LI'EDTLIB.OLB/LB:SCRCUR0 .DATA SCRDEL: .FCTR '$LI'EDTLIB.OLB/LB:SCRDEL0 .DATA SCRELI: .FCTR '$LI'EDTLIB.OLB/LB:SCRELI0 .DATA SCRESC: .FCTR '$LI'EDTLIB.OLB/LB:SCRESC0 .DATA SCRFCU: .FCTR '$LI'EDTLIB.OLB/LB:SCRFCU0 .DATA SCRINI: .FCTR '$LI'EDTLIB.OLB/LB:SCRINI0 .DATA SCRINM: .FCTR '$LI'EDTLIB.OLB/LB:SCRINM0 .DATA SCRINS: .FCTR '$LI'EDTLIB.OLB/LB:SCRINS0 .DATA SCRMCO: .FCTR '$LI'EDTLIB.OLB/LB:SCRMCO0 .DATA SCRMOV: .FCTR '$LI'EDTLIB.OLB/LB:SCRMOV0 .DATA SCRNCO: .FCTR '$LI'EDTLIB.OLB/LB:SCRNCO0 .DATA SCRNDL: .FCTR '$LI'EDTLIB.OLB/LB:SCRNDL0 .DATA SCRNOR: .FCTR '$LI'EDTLIB.OLB/LB:SCRNOR0 .DATA SCRNOS: .FCTR '$LI'EDTLIB.OLB/LB:SCRNOS0 .DATA SCRREG: .FCTR '$LI'EDTLIB.OLB/LB:SCRREG0 .DATA SCRREL: .FCTR '$LI'EDTLIB.OLB/LB:SCRREL0 .DATA SCRREM: .FCTR '$LI'EDTLIB.OLB/LB:SCRREM0 .DATA SCRRES: .FCTR '$LI'EDTLIB.OLB/LB:SCRRES0 .DATA SCRREV: .FCTR '$LI'EDTLIB.OLB/LB:SCRREV0 .DATA SCRRLI: .FCTR '$LI'EDTLIB.OLB/LB:SCRRLI0 .DATA SCRSCR: .FCTR '$LI'EDTLIB.OLB/LB:SCRSCR0 .DATA SCRUPD: .FCTR '$LI'EDTLIB.OLB/LB:SCRUPD0 .DATA SCRWID: .FCTR '$LI'EDTLIB.OLB/LB:SCRWID0 .DATA SETCOM: .FCTR '$LI'EDTLIB.OLB/LB:SETCOM0 .DATA STARTE: .FCTR '$LI'EDTLIB.OLB/LB:STARTE0 .DATA TIAUTO: .FCTR '$LI'EDTLIB.OLB/LB:TIAUTO0 .DATA TICHAR: .FCTR '$LI'EDTLIB.OLB/LB:TICHAR0 .DATA TICLRA: .FCTR '$LI'EDTLIB.OLB/LB:TICLRA0 .DATA TIDELE: .FCTR '$LI'EDTLIB.OLB/LB:TIDELE0 .DATA TIECHO: .FCTR '$LI'EDTLIB.OLB/LB:TIECHO0 .DATA TILINE: .FCTR '$LI'EDTLIB.OLB/LB:TILINE0 .DATA TISAVE: .FCTR '$LI'EDTLIB.OLB/LB:TISAVE0 .DATA TITYPA: .FCTR '$LI'EDTLIB.OLB/LB:TITYPA0 .DATA UCVTCA: .FCTR '$LI'EDTLIB.OLB/LB:UCVTCA0 .DATA UEXACA: .FCTR '$LI'EDTLIB.OLB/LB:UEXACA0 .DATA UFBUFF: .FCTR '$LI'EDTLIB.OLB/LB:UFBUFF0 .DATA UFSTRI: .FCTR '$LI'EDTLIB.OLB/LB:UFSTRI0 .DATA UGBUFF: .FCTR '$LI'EDTLIB.OLB/LB:UGBUFF0 .DATA USSTRI: .FCTR '$LI'EDTLIB.OLB/LB:USSTRI0 .DATA USSUBS: .FCTR '$LI'EDTLIB.OLB/LB:USSUBS0 .DATA WFAPPB: .FCTR '$LI'EDTLIB.OLB/LB:WFAPPB0 .DATA WFBOTT: .FCTR '$LI'EDTLIB.OLB/LB:WFBOTT0 .DATA WFCLEA: .FCTR '$LI'EDTLIB.OLB/LB:WFCLEA0 .DATA WFCOPL: .FCTR '$LI'EDTLIB.OLB/LB:WFCOPL0 .DATA WFDELB: .FCTR '$LI'EDTLIB.OLB/LB:WFDELB0 .DATA WFDELL: .FCTR '$LI'EDTLIB.OLB/LB:WF00Qc  OlDELL0 .DATA WFECOP: .FCTR '$LI'EDTLIB.OLB/LB:WFECOP0 .DATA WFENDI: .FCTR '$LI'EDTLIB.OLB/LB:WFENDI0 .DATA WFFINB: .FCTR '$LI'EDTLIB.OLB/LB:WFFINB0 .DATA WFGETB: .FCTR '$LI'EDTLIB.OLB/LB:WFGETB0 .DATA WFINIT: .FCTR '$LI'EDTLIB.OLB/LB:WFINIT0 .DATA WFINSL: .FCTR '$LI'EDTLIB.OLB/LB:WFINSL0 .DATA WFIOGN: .FCTR '$LI'EDTLIB.OLB/LB:WFIOGN0 .DATA WFIOGW: .FCTR '$LI'EDTLIB.OLB/LB:WFIOGW0 .DATA WFIOPW: .FCTR '$LI'EDTLIB.OLB/LB:WFIOPW0 .DATA WFLOCL: .FCTR '$LI'EDTLIB.OLB/LB:WFLOCL0 .DATA WFOPNB: .FCTR '$LI'EDTLIB.OLB/LB:WFOPNB0 .DATA WFRBUK: .FCTR '$LI'EDTLIB.OLB/LB:WFRBUK0 .DATA WFREAB: .FCTR '$LI'EDTLIB.OLB/LB:WFREAB0 .DATA WFREAC: .FCTR '$LI'EDTLIB.OLB/LB:WFREAC0 .DATA WFREAF: .FCTR '$LI'EDTLIB.OLB/LB:WFREAF0 .DATA WFREAI: .FCTR '$LI'EDTLIB.OLB/LB:WFREAI0 .DATA WFREPB: .FCTR '$LI'EDTLIB.OLB/LB:WFREPB0 .DATA WFREPL: .FCTR '$LI'EDTLIB.OLB/LB:WFREPL0 .DATA WFRESE: .FCTR '$LI'EDTLIB.OLB/LB:WFRESE0 .DATA WFSCOP: .FCTR '$LI'EDTLIB.OLB/LB:WFSCOP0 .DATA WFSPLB: .FCTR '$LI'EDTLIB.OLB/LB:WFSPLB0 .DATA WFSTRI: .FCTR '$LI'EDTLIB.OLB/LB:WFSTRI. .DATA WFTOP: .FCTR '$LI'EDTLIB.OLB/LB:WFTOP0 .DATA WFWRIB: .FCTR '$LI'EDTLIB.OLB/LB:WFWRIB0 .DATA WORDWR: .FCTR '$LI'EDTLIB.OLB/LB:WORDWR0 .DATA WORKIO: .FCTR '$LI'EDTLIB.OLB/LB:WORKIO0 .DATA TSTKEY: .FCTR '$LI'EDTLIB.OLB/LB:TSTKEY0 .DATA FINDKE: .FCTR '$LI'EDTLIB.OLB/LB:FINDKE0 .DATA SCRFND: .FCTR '$LI'EDTLIB.OLB/LB:SCRFND0 .DATA SCRNIN: .FCTR '$LI'EDTLIB.OLB/LB:SCRNIN0 .DATA SCRZAP: .FCTR '$LI'EDTLIB.OLB/LB:SCRZAP. .DATA RQLCB: .FCTR '$LI'EDTLIB.OLB/LB:RQLCB0 .DATA SCUPDN: .FCTR '$LI'EDTLIB.OLB/LB:SCUPDN0 .DATA SCUPDM: .FCTR '$LI'EDTLIB.OLB/LB:SCUPDM0 .DATA B16CH3: .FCTR '$LI'EDTLIB.OLB/LB:B16CH30 .DATA B16ABS: .FCTR '$LI'EDTLIB.OLB/LB:B16ABS0 .DATA WFCMPL: .FCTR '$LI'EDTLIB.OLB/LB:WFCMPL? .DATA ; System-specific modules for RSX-11M and RSX-11M-PLUS0 .DATA SYSINM: .FCTR '$LI'EDTLIB.OLB/LB:RSXIOI .DATA SYSIDM: .FCTR RSXIIDL/ .DATA SYSM: .FCTR RSXSYS-RSXTIO-FCSIOD-MESS1L .DATA ;0 .DATA RSXSYS: .FCTR '$LI'EDTLIB.OLB/LB:RSXSYS0 .DATA RSXIID: .FCTR '$LI'EDTLIB.OLB/LB:RSXIID0 .DATA RSXTIO: .FCTR '$LI'EDTLIB.OLB/LB:RSXTIO0 .DATA FCSFIO: .FCTR '$LI'EDTLIB.OLB/LB:FCSFIO0 .DATA FCSIOD: .FCTR '$LI'EDTLIB.OLB/LB:FCSIOD0 .DATA FCSOPN: .FCTR '$LI'EDTLIB.OLB/LB:FCSOPN- .DATA OPFNB: .FCTR LB:[1,1]SYSLIB/LB:OPFNB1- .DATA PARSE: .FCTR LB:[1,1]SYSLIB/LB:PARSEL- .DATA CLOSE: .FCTR LB:[1,1]SYSLIB/LB:CLOSER/ .DATA DELETE: .FCTR LB:[1,1]SYSLIB/LB:DELETE-/ .DATA RWFSR2: .FCTR LB:[1,1]SYSLIB/LB:RWFSR2D/ .DATA PARSFN: .FCTR LB:[1,1]SYSLIB/LB:PARSFND. .DATA MESS1: .FCTR '$LI'EDTLIB.OLB/LB:MESS1- .DATA ; System-specific modules for RSTS/EL .DATA SYSINR: .FCTR RSTIOIA .DATA .NAME SYSIDR/ .DATA SYSR: .FCTR RSTIOD-RSTSYS-RSTTIO-MESS1L .DATA ;0 .DATA RSTCCL: .FCTR '$LI'EDTLIB.OLB/LB:RSTCCL0 .DATA RSTFIO: .FCTR '$LI'EDTLIB.OLB/LB:RSTFIO0 .DATA RSTIOD: .FCTR '$LI'EDTLIB.OLB/LB:RSTIOD0 .DATA RSTIOI: .FCTR '$LI'EDTLIB.OLB/LB:RSTIOI0 .DATA RSTSYS: .FCTR '$LI'EDTLIB.OLB/LB:RSTSYS0 .DATA RSTTIO: .FCTR '$LI'EDTLIB.OLB/LB:RSTTIO .DATA .END .CLOSEE .EXIT 1.ERXIT: .EXIT 4System-specific modules for RSTS/EL .DATA SYSINR: .FCTR RSTIOIA .DATA .NAME SYSIDR/ .DATA SYSR: .FCTR RSTIOD-RSTSYS-RSTTIO-MESS1L .DATA ;0 .DATA RSTCCL: .FCTR '$LI'EDTLIB.OLB/LB:RSTCCL0 .DATA RSTFIO: .FCTR '$LI'EDTLIB.OLB/LB:RSTFIO0 .DATA RSTIOD: .FCTR '$LI'EDTLIB.OLB/LB:RSTIOD0 .DATA RSTIOI: .FCTR '$LI'EDTLIB.OLB/LB:RSTIOI0 .;.; S. ADAMS 17-FEB-83'.; SA117 - ADD IDENT SWITCH FOR UPDATES;.;3.; JM004 01-JUN-83 CHANGE ASSIGNS FOR MICRO RSXB.; JM0030 06-APR-84 SUPPORT MU AS AN ERROR LOG DEVICE FOR MICROI.; THIS INCLUDES EXPANDING ERRORS.ACC TO 2 BLOCK FILE:.;L.; JM0032 17-OCT-84 MAKE ASG LUNS THE SAME FOR RSX-11M-PLUS AND MICRO/RSXK.; JM0033 17-OCT-84 UPDATE IDENT FOR RSX-11M-PLUS AND MICRO/RSX RELEASE .; .ONERR ERXIT: .ENABLE SUBSTITUTIONO .ENABLE GLOBAL .;.; Gen00dx DATADATADATADATAerate ERLBLD.CMD.; .SETF $UTYP17 .OPEN '$CL'ERLBLD.CMD .DATA ;$ .DATA ; TKB BUILD FILE FOR ERRLOG .DATA ; '$COM'J .DATA ; USING '$DFLIB'M .DATA ; CREATED BY '$BLDID' .DATA ;& .DATA ; BUILD ERL.TSK (ERRLOG TASK) .DATA ;4 .DATA '$TK'ERL/FU/PR/-FP/-IP'$MMSW','$MP'ERL/-SP= .DATA '$OD'ERLBLD/MPL .DATA ; .DATA TASK=ERRLOG .DATA IDENT=04.00  .DATA UIC=[1,6] .DATA UNITS=12 .DATA ASG=LB:1 .DATA ASG=TI:2 .DATA ASG=CO:3$ .DATA ASG=LB:10 ;ERRORS.LOG LUN$ .DATA ASG=LB:11 ;ERRORS.ACC LUN& .DATA ASG=SY:12 ;USER OUTPUT FILE .DATA ASG=TI:2. .DATA ASG=CO:3. .DATA STACK=64B .DATA PAR='$GENX' .DATA PRI=148 .DATA / .CLOSED.;.; Generate ERLBLD.ODL.; .OPEN '$CL'ERLBLD.ODL .DATA ; .DATA ; TKB ODL FILE FOR ERLR .DATA ; '$COM'; .DATA ; USING '$DFLIB'  .DATA ; CREATED BY '$BLDID' .DATA ;.;9.; This overlay structure is for when FCS is in the task.T.;< .DATA .ROOT ERLOG-LIB-COL-FCS,FCSOVR,LB:[1,1]'$DFLIB'/DL .DATA ;K .DATA ERLOG: .FCTR '$LI'ERL/LB:ERRLOG:ERRRSB:ERRRDT:ERRPRC:ERRUCB-MISC-STBA .DATA ;& .DATA STB: .FCTR '$TK'RSX11M.STB/SS .DATA ;; .DATA MISC: .FCTR LB:[1,1]SYSLIB/LB:CBTA:CDDMG:CATB:C5TA .DATA ;% .DATA LIB: .FCTR LB:[1,1]EXELIB/LB; .DATA ;/.IFF $11MPL .DATA COL: .FCTR '$LI'MCR/LB:COLOG'5.IFT $11MPL .DATA COL: .FCTR '$LI'MCR/LB:COLOG:TISET; .DATA ;& .DATA ; THIS IS THE COMMON FCS CODE .DATA ;= .DATA FCS: .FCTR FCSR1A-FCSR1B-FCSR1C-FCSR1D-FCSR1E-FCSR1F .DATA ;C .DATA FCSR1A: .FCTR LB:[1,1]'$DFLIB'/LB:XQIOU:XQIOI:WAITI:COMMONSJ .DATA FCSR1B: .FCTR LB:[1,1]'$DFLIB'/LB:PARSE:PARSDV:ANSPAD:BKRG:DIRECTL .DATA FCSR1C: .FCTR LB:[1,1]'$DFLIB'/LB:RETADR:RDWAIT:WTWAIT:BIGBUF:RWBLKF .DATA FCSR1D: .FCTR LB:[1,1]'$DFLIB'/LB:EOFCHK:WATNOD:WATSET:CKALOCD .DATA FCSR1E: .FCTR LB:[1,1]'$DFLIB'/LB:RSTFDB:DELETE:CLOSE:FINITK .DATA FCSR1F: .FCTR LB:[1,1]'$DFLIB'/LB:RWFSR2:EDTMG:ASCPPN::.CSI1:.CSI2AD .DATA FCSB2A: .FCTR LB:[1,1]'$DFLIB'/LB:GETSQ:PUTSQ:PNTMRK:EXTEND .DATA ; .DATA ; BUILD THE FCS CO-TREE .DATA ; .DATA .NAME FCSROT, .DATA FCSOVR: .FCTR FCSROT-*(FCSB1,FCSB2) .DATA ;! .DATA ; THIS IS THE "OPEN" LEG1 .DATA ;. .DATA FCSB1: .FCTR LB:[1,1]'$DFLIB'/LB:OPEN .DATA ;" .DATA ; THIS IS THE "OPFID" LEG .DATA ;/ .DATA FCSB2: .FCTR LB:[1,1]'$DFLIB'/LB:OPFID: .DATA ; .DATA .END .CLOSEC .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4CTR LB:[1,1]'$DFLIB'/LB:GETSQ:PUTSQ:PNTMRK:EXTEND .DATA ; .DATA ; BUILD THE FCS CO-TREE .DATA ; .DATA .NAME FCSROT, .DATA FCSOVR: .FCTR FCSROT-*(FCSB1,FCSB2) .DATA ;! .DATA ; THIS IS THE "OPEN" LEG1 .DATA ;. .DATA FCSB1: .FCTR LB:[1,1]'$DFLIB'/LB:OPEN .DATA ;" .DATA ; THIS IS THE "OPFID" LEG .DATA ;/ .DATA FCSB2: .FCTR LB:[1,1]'$DFLIB'/LB:OPFID: .DATA ; .DATA .END .CLOSEC .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .ONERR ERXITL .ENABLE SUBSTITUTION; .ENABLE GLOBAL..;).; PKW067 - ADD LOGICAL NAME ENTRY POINTS2.;$.; LBM001 - MERGE FCSFSL INTO FCSRES.;.; Generate FCSFS0BLD.CMDe.; .SETF $UTYP1 .OPEN '$CL'FCSFS0BLD.CMDB .DATA ;@ .DATA ; TKB BUILD FILE FOR FCSFSL - FCS SUPERVISOR MODE LIBRARY .DATA ; '$COM'A .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ; Create the STB. .DATA ;I .DATA '$TK'FCSFSL/PI/LI/EL/MM/-HD,'$MP'FCSFSLSTB/MA/-SH/-SP,'$TK'FCSFSL=' .DATA LB:[1,1]SYSLIB/DL .DATA ;B .DATA ; The completion routine MUST be first in the library image .DATA ;& .DATA LB:[1,1]SYSLIB/LB:FCSST1:FCSST2 .DATA ; .DATA / .DATA PAR=GEN:0:40000 .DATA CMPRT=$CMPCSe .DATA STACK=0 .DATA GBLINC=.FSRCA .DATA ; .DATA / .CLOSET .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4 .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ; Create the STB. .DATA ;I .DATA '$TK'FCSFSL/PI/LI/EL/MM/-HD,'$MP'FCSFSLSTB/MA/-SH/-SP,'$TK'FCSFSL=' .DATA LB:[1,1]SYSLIB/DL .DATA ;B .00j Ol I .ENABLE SUBSTITUTIONA .ENABLE GLOBALT .SETT $UTYP1S.; .; UPDATES TO RSX-11M-PLUS V2.2:.;3.; DPR002 - Change IDENT to M41.00 for Release V2.2A.; .; UPDATES TO RSX-11M-PLUS V3.0:.;<.; LMP025 - Add global def to use system default page length.;.;.; GENERATE FTBBLD.CMD.; .OPEN '$CL'FTB'$TYP1'BLD.CMDS .DATA ;4 .DATA ; TKB .CMD FILE FOR FTB (FAST TASK BUILDER) .DATA ; '$COM' .DATA ;!.IFT $FCSTK .DATA ; USING SYSLIB.(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB' .DATA ; CREATED BY '$BLDID' .DATA ;? .DATA '$TK'FTB'$TYP2'/-FP/-SG/CP'$MMSW','$MP'FTB'$TYP2'/-SP= .DATA '$OD'FTB'$TYP1'BLD/MP .DATA TASK=...FTB .DATA IDENT=07.00 .DATA STACK=128 .DATA UNITS=6 .DATA ASG=TI:1t .DATA ASG=TI:2g .DATA ASG=SY:3R .DATA ASG=SY:4 .DATA ASG=SY:5T%.IFF $MAP .DATA PAR=GEN:40000:120000B6.IFT $11M .IFT $MAP .IFF $FCSTK .DATA PAR=GEN:0:1400006.IFT $11M .IFT $MAP .IFT $FCSTK .DATA PAR=GEN:0:177700:.IFT $11MPL .IFF $FCSTK .IFF $FSLTK .DATA PAR=GEN:0:140000:.IFT $11MPL .IFT $FCSTK .IFF $FSLTK .DATA PAR=GEN:0:177700..IFT $11MPL .IFT $FSLTK .DATA PAR=GEN:0:177700 .DATA EXTSCT=$$LBR1:221108 .DATA GBLDEF=P$LNTH:74 ; SET NUMBER OF LINES PER PAGE.IFF $FCSTK .DATA '$LIBOP'. .DATA / .CLOSEA.;.; GENERATE FTBBLD.ODL.; .OPEN '$CL'FTB'$TYP1'BLD.ODLA .DATA ;4 .DATA ; TKB .ODL FILE FOR FTB (FAST TASK BUILDER) .DATA ; '$COM'T .DATA ;!.IFT $FCSTK .DATA ; USING SYSLIB7(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB' .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME FTBAC .DATA .ROOT FTB-ROOT1-ROOT2-*(LEFT-LEFT0,MIDDLE-MIDL,RIGHT-RGHT)A .DATA ;U.IFT $FCSTK .DATA ROOT1: .FCTR '$LI'FTB/LB:TASKB:ALBLK:ALELD:ERMSG:GTWRD:GTPPR-ARITHAO.IFF $FCSTK .DATA ROOT1: .FCTR '$LI'FTB/LB:TASKB:ALBLK:ALELD:ERMSG:GTWRD:GTPPR'7.IFT $FCSTK .DATA ARITH: .FCTR LB:[1,1]SYSLIB/LB:ARITHF .DATA ;: .DATA ROOT2: .FCTR '$LI'FTB/LB:IODAT:SRCINS:STINP:TABLS .DATA ; .DATA .NAME LEFTTJ .DATA LEFT0: .FCTR '$LI'FTB/LB:BLDSG:GTCML:INITL:P2OPT:SCAN:SCVTR-LEFT19 .DATA LEFT1: .FCTR '$LI'FTB/LB:P2POP:P2LBR:PRFND:RESLB- .DATA ; .DATA .NAME MIDDLE.& .DATA MIDL: .FCTR '$LI'FTB/LB:P3MDS .DATA ; .DATA .NAME RIGHT .DATA RGHT: .FCTR RGHT1-RGHT2K .DATA RGHT1: .FCTR '$LI'FTB/LB:ALALO:DKALO:DSALO:HEADR:MPOUT:P4MAL:P5ELMC? .DATA RGHT2: .FCTR '$LI'FTB/LB:P5EOS:P5IMG:P5MDS:SGALO:TPMEM. .DATA ; .DATA .ENDL .CLOSEINS:STINP:TABLS .DATA ; .DATA .NAME LEFTTJ .DATA LEFT0: .FCTR  .ONERR ERXIT* .ENABLE SUBSTITUTION* .ENABLE GLOBAL* .SETF $UTYP1 .;.; GENERATE FXRBLD.CMD.;.; MODIFIED FOR M-PLUS V2.1 BY:].;.; J. C. FRANZINI 18-FEB-83A.; JCF136 -- ADD TASK IDENT.; .OPEN '$CL'FXRBLD.CMD .DATA ;" .DATA ; TKB .CMD FILE FOR FIXER .DATA ; '$COM': .DATA ; CREATED BY '$BLDID' .DATA ;1 .DATA '$TK'FXR/-FP/-CP/-SE/MM/PR,'$MP'FXR/-SP=B .DATA '$LI'EUT/LB:FIXER .DATA LB:[1,1]EXELIB/LB/SSB .DATA '$TK'RSX11M.STB/SSA .DATA /" .DATA IDENT=02.00 ; TASK IDENT .DATA UNITS=1 .DATA WNDWS=1 .DATA PRI=100 .DATA TASK=FXR... .DATA PAR='$GEN'O .DATA / .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4'FXRBLD.CMD .DATA ;" .DATA ; TKB .CMD FILE FOR FIXER .DATA ; '$COM': .DATA ; CREATED BY '$BLDID' .DATA ;1 .DATA '$TK'FXR/-FP/-CP/-SE/MM/PR,'$MP'FXR/-SP=B .DATA '$LI'EUT/LB:FIXER .DATA LB:[1,1]EXELIB/LB/SSB .DATA '$TK'RSX11M.STB/SSA .DATA /"  .ONERR ERXIT. .ENABLE SUBSTITUTION$ .ENABLE GLOBAL .;.; Generate F11MSGBLD.CMD .;.;.; B.; J. MELVIN 07-OCT-84 6.; UPDATE IDENT FOR RSX-11M-PLUS V3.0 RELEASE (06.00).; .SETF $UTYP1  .OPEN '$CL'F11MSGBLD.CMD .DATA ;6 .DATA ; TKB BUILD FILE FOR FILES-11 MESSAGE PRINTER .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;8 .DATA '$TK'F11MSG/PR:0/CP'$MMSW'/-FP,'$MP'F11MSG/-SP= .DATA '$OD'F11MSGBLD.ODL/MP .DATA TASK=F11MSG .DATA UIC=[2,2] 00f DATADATADATADATA .DATA PRI=200 .DATA STACK=32B .DATA PAR='$GEN'E .DATA IDENT=14.00 .DATA / .DATA ;3 .DATA ; BUILD FILE FOR MESSAGE TASK SYMBOL TABLEF .DATA ;, .DATA ,'$MP'F11MSGSTB/-SP,'$TK'F11MSGSTB=, .DATA '$LI'F11MSG/LB:F11MDF:F11MG0:F11MG1 .DATA '$LI'F11MSG/LB:F11MG2 .DATA / .DATA STACK=0 .DATA / .CLOSEC.;.; Generate F11MSGBLD.ODL.; .OPEN '$CL'F11MSGBLD.ODLW .DATA ;1 .DATA ; TKB ODL FILE FOR FILES-11 MESSAGE TASKA .DATA ; '$COM'A .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ; .DATA .ROOT R-(M0,M1,M2). .DATA R: .FCTR '$LI'F11MSG/LB:F11MSG:F11MDF( .DATA M0: .FCTR '$LI'F11MSG/LB:F11MG0( .DATA M1: .FCTR '$LI'F11MSG/LB:F11MG1( .DATA M2: .FCTR '$LI'F11MSG/LB:F11MG2 .DATA .END .CLOSE' .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4;.; Generate F11MSGBLD.ODL.; .OPEN '$CL'F11MSGBLD.ODLW .DATA ;1 .DATA ; TKB ODL FILE FOR FILES-11 MESSAGE TASKA .DATA ; '$COM'A .DATA ; CRE .ONERR ERXITB .ENABLE SUBSTITUTIONL .ENABLE GLOBAL: .SETF $UTYP1..;.; GENERATE HRCBLD.CMD.; .OPEN '$CL'HRCBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR HRC .DATA ; '$COM'. .DATA ; CREATED BY '$BLDID' .DATA ;4 .DATA '$TK'HRC/-IP/PR/-FP/AL/-SE/MM,'$MP'HRC/-SP= .DATA '$OD'HRCBLD/MP1 .DATA ; .DATA IDENT=03.00 .DATA TASK=HRC...C .DATA STACK=1600 ; 1600. WORDS MUST ALLOW FOR .CFDAT AND .MAXSPo .DATA UNITS=8, .DATA ASG=CO0:2 ; LUN FOR ERROR MESSAGES .DATA PRI=140 .DATA PAR='$GEN' B .DATA GBLDEF=.SIZLU:1 ; UNIT NUMBER FOR DISK SIZING OPERATIONSA .DATA GBLDEF=.SIZEF:1 ; EVENT FLAG FOR DISK SIZING OPERATIONSHH .DATA GBLDEF=.CFDAT:2400 ; MAXIMUM SIZE OF TABLE REQUIRED FOR KRB/CTB7 .DATA ; AND UCB POINTERS. THE STACK MUST BE LARGE'7 .DATA ; ENOUGH FOR THIS PLUS .MAXSP PLUS THE TASKA .DATA ; HEADER SIZE.C .DATA GBLDEF=.MAXSP:400 ; 400=128. WORDS ESTIMATED MAXIMUM STACKS .DATA ; REQUIREMENTS. .DATA ; .DATA ; TEMP DEF1 .DATA ;8 .DATA GBLDEF=.TBASE:120000 ; DEFINE TASK BASE ADDRESS= .DATA GBLPAT=HRC:.HROPT:1 ; SET DEBUG BEHAVIOR OPTION MASKF; .DATA ;GBLPAT=HRC:.HRDEB:1 ; CAUSE HRC TO COME UP IN DDTI3 .DATA ;GBLPAT=HRC:.HRDEB:1 ; INVOKE DDT ON ENTRY .DATA ; .DATA / .CLOSE .;.; GENERATE HRCBLD.ODL.; .OPEN '$CL'HRCBLD.ODL .DATA ; .DATA ; TKB .ODL FILE FOR HRC .DATA ; '$COM'4 .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME HRCSA .DATA .ROOT HRC-HROOT-HRAP5-R1-R2-R3-R4-R5-R6-R9-DEBUG-GLBSYMT- .DATA HROOT: .FCTR '$LI'OLR/LB:HROOT:HRTRPA .DATA : .DATA ;F .DATA ; THIS FACTOR DESCRIBES MODULES WHICH MUST RESIDE IN THE APR5I .DATA ; OR 120000 TO 140000 ADDRESSING RANGE. THEY MANIPULATE APR6 FOR .DATA ; VARIOUS REASONS.L .DATA ;3 .DATA HRAP5: .FCTR '$LI'OLR/LB:HRUTA:HRUTB:HRBOX .DATA B .DATA R1: .FCTR '$LI'OLR/LB:HRIMP:HRERL:HRERR:HRUTL:HRVVV-SCNCT= .DATA R2: .FCTR '$LI'OLR/LB:HRCNF:HRCFA:HRCFB:HRCFC:HRBUFO* .DATA R3: .FCTR '$LI'OLR/LB:HRBUS:HRMEM6 .DATA R4: .FCTR '$LI'OLR/LB:HRONL:HRONU:HROFL:HROFU$ .DATA R5: .FCTR '$LI'OLR/LB:HREXI* .DATA R6: .FCTR '$LI'OLR/LB:HRSIZ-VECTR6 .DATA R9: .FCTR '$LI'OLR/LB:HRINI:HRATT:HRMFC:HRMSC' .DATA SCNCT: .FCTR '$LI'LOA/LB:SCNDVA( .DATA VECTR: .FCTR '$LI'SAV/LB:SAVVEC> .DATA GLBSYM: .FCTR LB:[1,1]EXELIB/LB/SS-'$TK'RSX11M.STB/SS- .DATA DEBUG: .FCTR LB:[1,1]DEBUG/LB:DDTINLU .DATA .END .CLOSE: .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4LR/LB:HRBUS:HRMEM6 .DATA R4: .FCTR '$LI'OLR/LB:HRONL:HRONU:HROFL:HROFU$ .DATA R5: .FCTR '$LI'OLR/LB:HREXI* .DATA R6: .FCTR '$LI'OLR/LB:HRSIZ-VECTR6 .DATA R9: .FCTR '$LI'OLR/LB:HRINI:HRATT:HRMFC:HRMSC' .DATA SCNCT: .FCTR '$LI'LOA/LB:SCNDVA( .DATA VECTR: .FCTR '$LI'SAV/LB:SAVVEC> .DATA GLBSYM: .FCTR LB:[1,1]EXELIB/LB/SS-'$TK'RSX11M.STB/SS- .DATA DEBUG: .FCTR LB:[1,1]DEBUG/LB:DDTINLU .DATA .END .CLOSE: .EXIT 1.;$.; Exit for error encountere00  Ol .ENABLE GLOBAL .ENABLE SUBSTITUTION .SETS $VARNT "FSL" .SETS $TYP1 "FSL" .CHAIN '$BL'ICPCOMBLD.BLDb6 .ENABLE GLOBAL .ENABLE SUBSTITUTION .SETS $VARNT "RES" .SETS $TYP1 "RES" .CHAIN '$BL'ICPCOMBLD.BLDb6 .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL.;.; Generate IOXBLD.CMD.; .SETT $UTYP1 .OPEN '$CL'IOX'$TYP1'BLD.CMD .DATA ;A" .DATA ; TKB COMMAND FILE FOR IOX .DATA ; '$COM''.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'P .IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID'T .DATA ; O .DATA '$TK'IOX'$TYP2''$MMSW'/CP/-FP,'$MP'IOX'$TYP2'/-SP='$OD'IOX'$TYP1'BLD/MP  .DATA STACK=96 .DATA ASG=TI:1:2:4:5:6,SY0:3 .DATA PRI=50 .DATA TASK=...IOXM .DATA IDENT=16.08  .DATA PAR='$GENB'L .DATA WNDWS=3 .IFF $FCSTK .DATA '$LIBOP' .DATA ;C= .DATA ; DEFINE THE STARTING APR NUMBER FOR THE DATA PATTERN = .DATA ; REGION. FOR FCSRES SYSTEMS, THE TOP APR IS 6. FOR$= .DATA ; ALL OTHER SYSTEMS, THE TOP APR IS 7. NOTE THAT THEY8 .DATA ; DEFINITION BELOW IS THE DESIRED APR NUMBER +1. .DATA ;Y".IFT $FCSTK .DATA GBLDEF=$MXAPR:10..IFF $FCSTK .IFT $FSLTK .DATA GBLDEF=$MXAPR:10-.IFF $FCSTK .IFF $FSLTK .DATA GBLDEF=$MXAPR:7D .DATA ; > .DATA ; NOW DEFINE THE MAXIMUM AMOUNT OF UNITS YOU WILL EVERA .DATA ; WANT TO TEST. THE MAXIMUM IS 250 AND THE DEFAULT IS 32.A .DATA ;  .DATA UNITS=32 .DATA ; A .DATA ; NOW DEFINE THE ACTUAL NUMBER OF PRE-CONFIGURED UNITS OFTA .DATA ; EACH DEVICE THAT ARE REQUIRED. ADDITIONAL UNITS MAY BE = .DATA ; CONFIGURED AT RUN TIME USING THE CONFIGURE COMMAND.T .DATA ; $ .DATA GBLDEF=NUMDB:1 ;RP04/05/06 .DATA GBLDEF=NUMDD:1 ;TU58 .DATA GBLDEF=NUMDF:1 ;RF11$ .DATA GBLDEF=NUMDK:1 ;RK05/RK05F! .DATA GBLDEF=NUMDL:1 ;RL01/02S! .DATA GBLDEF=NUMDM:1 ;RK06/07E' .DATA GBLDEF=NUMDP:1 ;RPR02/RP02/03 . .DATA GBLDEF=NUMDR:1 ;RM02/03/05/RM80/RP07! .DATA GBLDEF=NUMDS:1 ;RS03/04B! .DATA GBLDEF=NUMDT:1 ;DECTAPED .DATA GBLDEF=NUMDU:1 ;UDA50E .DATA GBLDEF=NUMDX:1 ;RX01! .DATA GBLDEF=NUMDY:1 ;RX02/04G .DATA GBLDEF=NUMEM:1 ;ML11 .DATA GBLDEF=NUMCT:1 ;TU60 .DATA GBLDEF=NUMMF:1 ;TU78- .DATA GBLDEF=NUMMM:1 ;TU16/TE16/TU45/TU77D .DATA GBLDEF=NUMMS:1 ;TS11( .DATA GBLDEF=NUMMT:1 ;TU10/TE10/TS03$ .DATA GBLDEF=NUMMU:1 ;MSCP TAPES% .DATA GBLDEF=NUMSY:1 ;SYSTEM DISKD# .DATA GBLDEF=NUMTT:1 ;TERMINALS/ .DATA ;T9 .DATA ; INHIBIT USE OF UNUSED FCS READ/WRITE LONG CODE.T .DATA ;T .DATA GBLDEF=..RWLG:0E .DATA ;B= .DATA ; THE DEFAULT TEMPORARY FILE STRUCTURED BLOCK SIZE IST: .DATA ; DEFINED HERE. THE NORMAL DEFAULT IS 500 DECIMAL .DATA ; (764 OCTAL); .DATA ;T .DATA GBLDEF=F11SIZ:7641 .DATA ;D= .DATA ; NOW WE WILL DEFINE THE DEFAULT 2-WORD PATTERN WHICH0? .DATA ; WILL BEUSED TO FILL THE WRITE BUFFER. THE VALUE MUSTN .DATA ; BE BETWEEN 0 AND 14.: .DATA ; THE VALUES CORRESPOND TO THE FOLLOWING PATTERNS: .DATA ; 0 -- RANDOM DATA .DATA ; 1 -- 000000,000000 .DATA ; 2 -- 177777,177777 .DATA ; 3 -- 125252,052525 .DATA ; 4 -- 165555,133333 .DATA ; 5 -- 163126,163126 .DATA ; 6 -- 055555,155555 .DATA ; 7 -- 022222,122222 .DATA ; 10 -- 111111,1111111 .DATA ; 11 -- 007417,007417  .DATA ; 12 -- 021042,02100 DATADATADATADATA0422 .DATA ; 13 -- 104210,104210  .DATA ; 14 -- 052652,052652U .DATA ;  .DATA GBLDEF=PATERN:0B .DATA ;D9 .DATA ; NOW WE WILL DEFINE THE DEFAULT RECORD COUNT FORE' .DATA ; TAPES AND THE VERIFY COMMAND. .DATA ;0 .DATA GBLDEF=RECORD:2000 .DATA ;B .DATA ; NOW DEFINE THE CHARACTERISTICS USED FOR MAGTAPE TESTING.@ .DATA ; THE DEFAULT FOR TU10 IS CORE DUMP MODE; FOR ALL OTHERS= .DATA ; IT IS 1600 BPI MODE. SEE THE I/O DRIVERS REFERENCE ? .DATA ; MANUAL FOR FURTHER INFORMATION CONCERNING THIS VALUE.0 .DATA ;  .DATA GBLDEF=MAGSTC:004004 .DATA ; . .DATA ; NOW DEFINE THE DEFAULT TEST RUNTIME. .DATA ;W .DATA GBLDEF=RUNTIM:5C .DATA ;OB .DATA ; NOW DEFINE THE DEFAULT INTERVAL BETWEEN SUMMARY REPORTS. .DATA ;: .DATA GBLDEF=SUMARY:1 .DATA ;E@ .DATA ; NOW DEFINE THE ERROR THRESHOLD. THIS IS THE NUMBER OF= .DATA ; ERRORS PERMITTED BETWEEN SUMMARY REPORTS BEFORE THE # .DATA ; UNIT WILL BE DE-SELECTED.E .DATA ;  .DATA GBLDEF=ERRMAX:12 .DATA ;N; .DATA ; NOW DEFINE THE INTERLEAVE FACTOR THAT IS USED FOR09 .DATA ; SEQUENTIAL NON-FILE STRUCTURED DISK OPERATIONS.T .DATA ;T .DATA GBLDEF=INTRLV:4I .DATA ;T8 .DATA ; NOW DEFINE THE DEFAULT NAME FOR THE EXERCISER.5 .DATA ; THIS NAME IS IN RAD50 AND IS USUALLY "IOX". .DATA ;  .DATA GBLDEF=IOXNAM:035260 .DATA ;T@ .DATA ; NOW DEFINE THE DEFAULT NON-FILE STRUCTURED BYTE COUNT.A .DATA ; THIS IS USED FOR ALL NON-FILE STRUCTURED DEVICES EXCEPT @ .DATA ; DECTAPE. THE USUAL VALUE IS 2 BLOCKS (2000(8) BYTES). .DATA ;A .DATA GBLDEF=BYTCNT:2000 .DATA ;NA .DATA ; NOW WE WILL DEFINE THE UNSOLICITED AST CHARACTER. THISD> .DATA ; IS THE CHARACTER WHICH WILL INTERRUPT THE EXERCISER > .DATA ; WHEN THE CONTROL_C FEATURE IS ENABLED. THE DEFAULT ! .DATA ; CHARACTER IS CONTROL_C.D .DATA ;3 .DATA GBLDEF=$CC:3 .DATA ;E8 .DATA ; NOW WE WILL DEFINE SOME DEFAULT YES/NO VALUES.> .DATA ; A VALUE OF "0" SIGNIFIES "NO"; A VALUE OF "1","YES". .DATA ;P3 .DATA GBLDEF=REPORT:1 ;REPORT ERRORS TO CONSOLED .DATA ;D0 .DATA GBLDEF=RANDOM:1 ;USE RANDOM DISK SEEKS .DATA ;I0 .DATA GBLDEF=CONTIN:0 ;DO NOT RUN CONTINUOUS .DATA ;A. .DATA GBLDEF=CTRLC:1 ;USE UNSOLICITED ASTS .DATA ;T' .DATA GBLDEF=COMPAR:1 ;COMPARE DATAA .DATA ;T. .DATA GBLDEF=RETRY:1 ;RETRY ALL OPERATIONS .DATA ;C* .DATA GBLDEF=WRTCHK:0 ;NO WRITE CHECKS .DATA ;L? .DATA GBLDEF=WAITF:1 ;"WAIT" INSTRUCTION IN BACKGROUND LOOPE .DATA ;S: .DATA GBLDEF=VOLCHK:1 ;FILE STRUCTURED VOLUME CHECKING .DATA ; 2 .DATA GBLDEF=PLAS:1 ;USE PLAS REGIONS FOR DATA .DATA ;D1 .DATA GBLDEF=LOOPBK:0 ;TERMINAL LOOPBACK MODEN .DATA ;T .DATA // .CLOSE.;.; Generate IOXBLD.ODL.; .OPEN '$CL'IOX'$TYP1'BLD.ODL .DATA ;  .DATA ; TKB ODL FILE FOR IOX .DATA ; '$COM''.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'B .IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID'F .DATA ; 7.IFT $FCSTK .DATA .ROOT R1,*R2,*R3,*R4,*R5,*R6,*R7,*R8DA.IFF $FCSTK .IFT $IAS .DATA .ROOT R1,*R2,*R3,*R4,*R5,*R6,*R7,*R8 5.IFF $FCSTK .IFF $IAS .DATA .ROOT R1,*R5,*R6,*R7,*R8 .DATA  .DATA .NAME ROOTI( .DATA R1: .FCTR ROOT-ROOT1-ROOT2-ROOT3J .DATA ROOT1: .FCTR '$LI'IOX/LB:IOXVER:IOXUDB:IOXDAT:IOXAST:IOXBCK:IOXCHKC .DATA ROOT2: .FCTR '$LI'IOX/LB:IOXDSP:IOXSUB:IOXQUE:IOXPRS:IOXRANCP.IFT $FCSTK .DATA ROOT3: .FCTR LB:[1,1]SYSLIB/LB:SAVR1:BIGBUF:XQIOI:WAITI:COMMONE.IFF $FCSTK .IFF $IAS .DATA ROOT3: .FCTR LB:[1,1]SYSLIB/LB:SAVR1:C5TARG.IFF $FCSTK .IFT $IAS .DATA ROOT3: .FCTR LB:[1,1]SYSLIB/LB:SAVR1:BIGBUF, .DATA .IFT $FCSTK .DATA .NAME FCS&.IFF $FCSTK .IFT $IAS .DATA .NAME FCS;.IFT $FCSTK .DATA R2: .FCTR FCS-*(CSI1,CSI2,RW,PRS,SEQ,CRE) =.IFF $FCSTK .IFT $IAS .DATA R2: .FCTR FCS-*(CSI1,CSI2,RW,CRE)C5.IFT $FCSTK .DATA CSI1: .FCTR LB:[1,1]SYSLIB/LB:.CSI1B?.IFF $FCSTK .IFT $IAS .DATA CSI1: .FCTR LB:[1,1]SYSLIB/LB:.CSI1S5.IFT $FCSTK .DATA CSI2: .FCTR LB:[1,1]SYSLIB/LB:.CSI2F?.IFF $FCSTK .IFT $IAS .DATA CSI2: .FCTR LB:[1,1]SYSLIB/LB:.CSI2TL.IFT $FCSTK .DATA RW00  Ol: .FCTR LB:[1,1]SYSLIB/LB:RDWRIT:READ:WRITE:POINT:PNTMRKP.IFF $FCSTK .IFT $IAS .DATA RW: .FCTR LB:[1,1]SYSLIB/LB:RDWRIT:READ:WRITE:PNTMRKJ.IFT $FCSTK .DATA PRS: .FCTR LB:[1,1]SYSLIB/LB:PARSE:ASCR50-DID-*(PR1,PR2)5.IFT $FCSTK .DATA PR1: .FCTR LB:[1,1]SYSLIB/LB:PARSFN1<.IFT $FCSTK .DATA PR2: .FCTR LB:[1,1]SYSLIB/LB:PARSDV:PARSDIV.IFT $FCSTK .DATA DID: .FCTR LB:[1,1]SYSLIB/LB:GETDID:GETDI:PARDID:DIDFND:PPNR50:PARDI>.IFT $FCSTK .DATA SEQ: .FCTR LB:[1,1]SYSLIB/LB:PGCS-*(GET,PUT)4.IFT $FCSTK .DATA GET: .FCTR LB:[1,1]SYSLIB/LB:GETSQ4.IFT $FCSTK .DATA PUT: .FCTR LB:[1,1]SYSLIB/LB:PUTSQL.IFT $FCSTK .DATA CRE: .FCTR LB:[1,1]SYSLIB/LB:CREATE:DEL:MRKDL:FINIT:RSTFDB>.IFF $FCSTK .IFT $IAS .DATA CRE: .FCTR LB:[1,1]SYSLIB/LB:MRKDL.IFT $FCSTK .DATA .IFT $FCSTK .DATA .NAME FCS1I/.IFT $FCSTK .DATA R3: .FCTR FCS1-*(OPN,OPF,CLS)D>.IFF $FCSTK .IFT $IAS .DATA R3: .FCTR LB:[1,1]SYSLIB/LB:TRNCLS3.IFT $FCSTK .DATA OPN: .FCTR LB:[1,1]SYSLIB/LB:OPENE4.IFT $FCSTK .DATA OPF: .FCTR LB:[1,1]SYSLIB/LB:OPFNB;.IFT $FCSTK .DATA CLS: .FCTR LB:[1,1]SYSLIB/LB:CLOSE:TRNCLS .IFT $FCSTK .DATA .IFF $FCSTK .IFT $IAS .DATA .IFT $FCSTK .DATA .NAME FCS2B:.IFT $FCSTK .DATA R4: .FCTR FCS2-FCSSUB-*(ARI,RDW,WTW,DIR)A.IFF $FCSTK .IFT $IAS .DATA R4: LB:[1,1]SYSLIB/LB:ARITH:CAT5:C5TA Q.IFT $FCSTK .DATA FCSSUB: .FCTR LB:[1,1]SYSLIB/LB:BKRG:BDBREC:EOFCHK:WATNOD:RWBLKI>.IFT $FCSTK .DATA ARI: .FCTR LB:[1,1]SYSLIB/LB:ARITH:CAT5:C5TAC.IFT $FCSTK .DATA RDW: .FCTR LB:[1,1]SYSLIB/LB:RDWAIT:WATSET:RETADRL5.IFT $FCSTK .DATA WTW: .FCTR LB:[1,1]SYSLIB/LB:WTWAIT:B.IFT $FCSTK .DATA DIR: .FCTR LB:[1,1]SYSLIB/LB:DIRECT:DIFND:DIRFND .DATA  .DATA .NAME SUBR.;.IFT $FCSTK .DATA R5: .FCTR SUBR-*(MSG,ALC,TPL,SIZ,CMD,MUL),E.IFF $FCSTK .IFT $IAS .DATA R5: .FCTR SUBR-*(MSG,ALC,TPL,SIZ,CMD,MUL)CA.IFF $FCSTK .IFF $IAS .DATA R5: .FCTR SUBR-*(MSG,ALC,TPL,SIZ,CMD):F.IFT $FCSTK .DATA MSG: .FCTR '$LI'IOX/LB:IOXMSG-LB:[1,1]SYSLIB/LB:CBTAP.IFF $FCSTK .IFT $IAS .DATA MSG: .FCTR '$LI'IOX/LB:IOXMSG-LB:[1,1]SYSLIB/LB:CBTA9.IFF $FCSTK .IFF $IAS .DATA MSG: .FCTR '$LI'IOX/LB:IOXMSGIZ.IFT $FCSTK .DATA ALC: .FCTR '$LI'IOX/LB:IOXALC:IOXLUN-LB:[1,1]SYSLIB/LB:RQLCB:ASSLUN:EXST^.IFF $FCSTK .IFT $IAS .DATA ALC: .FCTR '$LI'IOX/LB:IOXALC:IOXLUN-LB:[1,1]SYSLIB/LB:ASSLUN:EXST@.IFF $FCSTK .IFF $IAS .DATA ALC: .FCTR '$LI'IOX/LB:IOXALC:IOXLUN% .DATA TPL: .FCTR '$LI'IOX/LB:IOXTPLC% .DATA SIZ: .FCTR '$LI'IOX/LB:IOXSIZ'% .DATA CMD: .FCTR '$LI'IOX/LB:IOXCMDIH.IFT $FCSTK .DATA MUL: .FCTR LB:[1,1]SYSLIB/LB:CATB:.ODCVT:PPNASC:ASCPPN=.IFF $FCSTK .IFT $IAS .DATA MUL: .FCTR LB:[1,1]SYSLIB/LB:CATBI .DATA  .DATA .NAME SUBR1. .DATA R6: .FCTR SUBR1-*(BGN,STP,GNB,ATT,TIM)% .DATA BGN: .FCTR '$LI'IOX/LB:IOXBGNT% .DATA STP: .FCTR '$LI'IOX/LB:IOXSTPL% .DATA GNB: .FCTR '$LI'IOX/LB:IOXGNBT% .DATA ATT: .FCTR '$LI'IOX/LB:IOXATTBG.IFT $FCSTK .DATA TIM: .FCTR '$LI'IOX/LB:IOXTIM-LB:[1,1]SYSLIB/LB:EDDATRQ.IFF $FCSTK .IFT $IAS .DATA TIM: .FCTR '$LI'IOX/LB:IOXTIM-LB:[1,1]SYSLIB/LB:EDDAT:9.IFF $FCSTK .IFF $IAS .DATA TIM: .FCTR '$LI'IOX/LB:IOXTIMC .DATA  .DATA .NAME COMAND:! .DATA R7: .FCTR COMAND-*(P1,P2)D7 .DATA P1: .FCTR (INT,PRI,PAR,CON,EXE,SPI,HLP,ABO,DEN)T3 .DATA P2: .FCTR (PAT,SEL,DES,F11,MSC,LOG,GCL,BAD)T% .DATA INT: .FCTR '$LI'IOX/LB:IOXINTT% .DATA PAR: .FCTR '$LI'IOX/LB:IOXPART% .DATA PAT: .FCTR '$LI'IOX/LB:IOXPAT$% .DATA CON: .FCTR '$LI'IOX/LB:IOXCONI% .DATA EXE: .FCTR '$LI'IOX/LB:IOXEXE % .DATA ABO: .FCTR '$LI'IOX/LB:IOXABOI% .DATA DEN: .FCTR '$LI'IOX/LB:IOXDENC% .DATA SPI: .FCTR '$LI'IOX/LB:IOXSPY/% .DATA SEL: .FCTR '$LI'IOX/LB:IOXSELM% .DATA DES: .FCTR '$LI'IOX/LB:IOXDESD% .DATA F11: .FCTR '$LI'IOX/LB:IOXF11E% .DATA MSC: .FCTR '$LI'IOX/LB:IOXMSCP% .DATA LOG: .FCTR '$LI'IOX/LB:IOXLOGTM.IFT $FCSTK .DATA GCL: .FCTR '$LI'IOX/LB:IOXGCL-LB:[1,1]SYSLIB/LB:.GCML:XQIOUTW.IFF $FCSTK .IFT $IAS .DATA GCL: .FCTR '$LI'IOX/LB:IOXGCL-LB:[1,1]SYSLIB/LB:.GCML:XQIOUCQ.IFF $FCSTK .IFF $IAS .DATA GCL: .FCTR '$LI'IOX/LB:IOXGCL-LB:[1,1]SYSLIB/LB:.GCML'N.IFT $FCSTK .DATA BAD: .FCTR '$LI'IOX/LB:IOXBAD-LB:[1,1]SYSLIB/LB:DARITH:CDDMGX.IFF $FCSTK .IFT $00#6:wdDATADATADATADATAIAS .DATA BAD: .FCTR '$LI'IOX/LB:IOXBAD-LB:[1,1]SYSLIB/LB:DARITH:CDDMG9.IFF $FCSTK .IFF $IAS .DATA BAD: .FCTR '$LI'IOX/LB:IOXBADO% .DATA PRI: .FCTR '$LI'IOX/LB:IOXPRIT2 .DATA HLP: .FCTR '$LI'IOX/LB:IOXHLP-*(HLP1,HLP2)& .DATA HLP1: .FCTR '$LI'IOX/LB:IOXHL1& .DATA HLP2: .FCTR '$LI'IOX/LB:IOXHL2 .DATA  .DATA .NAME BUFFER$+ .DATA R8: .FCTR BUFFER-'$LI'IOX/LB:IOXEPTI .DATA .DATA .ENDG .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4IFF $FCSTK .IFT $ .ONERR ERXIT .ENABLE SUBSTITUTIONA .ENABLE GLOBAL6 .SETF $UTYP1/.;.; GENERATE LOABLD.CMD.;.; Modified by:l.;.; H. Huang 9-May-83".; HH172 -- Add Load EXP support.;.; P. K. M. Weiss 26-Oct-84F(.; PKW074 - Overlay FCS cause it growed.; - Remove 11M conditionals.; .OPEN '$CL'LOABLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR LOA .DATA ; '$COM'C .DATA ; USING SYSLIBL .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ; NOTE:: .DATA ; LDFIN MUST BE PLACED BETWEEN 120000 AND 140000: .DATA ; EXESB MUST BE PLACED BETWEEN 120000 AND 140000 .DATA ; .DATA ;1 .DATA '$TK'LOA/PR/-FP/-CP'$MMSW','$MP'LOA/-SP=  .DATA '$OD'LOABLD/MP .DATA TASK=...LOA .DATA IDENT= 5.14 .DATA STACK=64e .DATA UNITS=5 .DATA WNDWS=1 .DATA ASG=TI:1N .DATA ASG=SY:2  .DATA PAR='$GEN'T .DATA PRI=50L .DATA TSKV=$SVCTR:1 .DATA / .CLOSEL.;.; GENERATE LOABLD.ODL.; .OPEN '$CL'LOABLD.ODL .DATA ; .DATA ; TKB .ODL FILE FOR LOA .DATA ; '$COM' .DATA ; USING SYSLIB  .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .ROOT LOAROTC .DATA LOAROT: .FCTR LOAR1-LOAR2-EXTER-*(LOAO0,LOAO1,LOAO2,LOAO3) L .DATA LOAR1: .FCTR '$LI'LOA/LB:LDCTL:LDFIN:EXPSB:DFSYM:ERMSG:GTBYT:ICBDEF? .DATA LOAR2: .FCTR '$LI'LOA/LB:IODAT:LDBUF:LDUIC:SCNDV:SYMTBAI .DATA EXTER: .FCTR '$TK'RSX11M.STB-LB:[1,1]EXELIB/LB-'$LI'MCR/LB:LKLSTL' .DATA LOAO0: .FCTR '$LI'LOA/LB:LDEXP.? .DATA LOAO1: .FCTR '$LI'LOA/LB:LDDRV:LDLDB-LB:[1,1]EXELIB/LBA( .DATA LOAO2: .FCTR LDFIL-*(FCS1,FCS2)9 .DATA LDFIL: .FCTR '$LI'LOA/LB:LDFIL-LB:[1,1]EXELIB/LB 3 .DATA FCS1: .FCTR LB:[1,1]SYSLIB/LB:PARSE:DIRFNDR, .DATA FCS2: .FCTR LB:[1,1]SYSLIB/LB:OPFNB' .DATA LOAO3: .FCTR '$LI'OLR/LB:HRCIN: .DATA .END .CLOSEA .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4TR '$TK'RSX11M.STB-LB:[1,1]EXELIB/LB-'$LI'MCR/LB:LKLSTL' .DATA LOAO0: .FCTR '$LI'LOA/LB:LDEXP.? .DATA LOAO1: .FCTR '$LI'LOA/LB:LDDRV:LDLDB-LB .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL .SETF $UTYP1.; e.; GENERATE LPIBLD.CMD.;  .OPEN '$CL'LPIBLD.CMD .DATA ; 6 .DATA ; TKB .CMD FILE FOR KMC-11 LP MICROCODE LOADER .DATA ; '$COM' .DATA ; CREATED BY '$BLDID'T .DATA ; . .DATA '$TK'LPINIT/PR/-FP/CP,'$MP'LPINIT/-SP= .DATA '$LI'LPINITS, .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LB .DATA /L .DATA TASK=LPINIT  .DATA UNITS=3S .DATA ASG=LB:1,CO:2 .DATA // .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4ENABLE GLOBAL .SETF $UTYP1.; e.; GENERATE LPIBLD.CMD.;  .OPEN '$CL'LPIBLD.CMD .DATA ; 6 .DATA ; TKB .CMD FILE FOR KMC-11 LP MICROCODE LOADER .DATA ; '$COM' .DATA ; CREATED BY '$BLDID'T .DATA ; . .DATA '$TK'LPINIT/PR/-FP/CP,'$MP'LPINIT/-SP= .DATA '$LI'LPINITS, .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LB .DATA /L .DATA TASK=LPINIT  .DATA UNITS=3S .DATA ASG=LB:1,CO:2 .DATA // .CLOSE .EXIT 1.;$.; Exit for er .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL.;.; Generate MACBLD.CMD.; .SETT $UTYP1 .OPEN '$CL'MAC'$TYP1'BLD.CMD .DATA ;6 .DATA ; TKB BUILD FILE FOR THE HASH SYMBOL TABLE MAC .DATA ; '$COM''.IFF $FCSTK .DATA ; LINKING TO '$RSLIB' .IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID' .DATA ;A .DATA '$TK'MAC'$TYP2'/-FP/CP'$MMSW''$MUSW','$MP'MAC'$TYP2'/-SP= .DATA '$OD'MAC'$TYP1'BLD/MP .DATA ; .DATA ; OPTION INPUT .DATA ; .DATA UNITS=8 00we  Ol .DATA ;R- .DATA ; LUN 1 = STATIC (SEE BELOW) FOR GCMLL7 .DATA ; LUN 2 = STATIC (SEE BELOW) FOR ERROR MESSAGES ) .DATA ; LUN 3 = DYNAMIC FOR OBJECT FILE * .DATA ; LUN 4 = DYNAMIC FOR LISTING FILE( .DATA ; LUN 5 = DYNAMIC FOR INPUT FILE+ .DATA ; LUN 6 = DYNAMIC FOR MACRO LIBRARYN2 .DATA ; LUN 7 = DYNAMIC FOR CROSS REFERENCE FILE> .DATA ; LUN 8 = LUN W$KLUN = STATIC (SEE BELOW) FOR WORKFILE .DATA ;T .DATA ASG=TI:1:2,OV:8 .DATA TASK=...MAC .;.; IF NOT USING FCSFSL.;.IFF $FSLTK .DATA PAR='$GENB' .;.; IF USING FCSFSL.;.IFT $FSLTK .DATA PAR='$GEN'.IFT $FSLTK .DATA EXTTSK=4200S.;.IFF $FCSTK .DATA '$LIBOP' .DATA ;T .DATA ; SET STACK SIZE .DATA ; ? .DATA ; NOTE THAT STACK SIZE CONTROLS NESTED EXPRESSION DEPTH .DATA ;A .DATA STACK=192R .DATA ; > .DATA ; INHIBIT INCLUSION OF UNUSED FCS READ/WRITE LONG CODE .DATA ;S .DATA GBLDEF=..RWLG:0K .DATA ;TD .DATA ; SPECIFY GLOBAL DEFINITIONS FOR THE VIRTUAL MEMORY ROUTINES .DATA ;( .DATA GBLDEF=W$KLUN:10 ;WORK FILE LUN9 .DATA GBLDEF=N$MPAG:10 ;PAGE THRESHOLD FOR FAST SEARCHS@ .DATA GBLDEF=W$KEXT:24 ;WORK FILE EXTENSION (20. CONTIG BLKS) .DATA ; > .DATA ; SPECIFY GLOBAL DEFINITIONS TO CONTROL TASK EXPANSION0 .DATA ; (WORKS ONLY ON A MAPPED RSX-11 SYSTEM) .DATA ;>.IFT $MAPM .DATA GBLDEF=T$KINC:4100 ;TASK EXTENSION INCREMENT>.IFF $MAPM .DATA GBLDEF=T$KINC:4000 ;TASK EXTENSION INCREMENT9.IFT $MAPM .DATA GBLDEF=T$KMAX:177700 ;MAXIMUM TASK SIZEOH.IFF $MAPM .DATA GBLDEF=T$KMAX:0 ;MAXIMUM TASK SIZE (SUPPRESS EXTENDS) .DATA ;0M .DATA ; SPECIFY GLOBAL DEFINITIONS TO CONTROL INITIAL HASH TABLE ALLOCATIONI. .DATA ; FOR PERMANENT AND USER SYMBOL TABLES .DATA ;D= .DATA GBLDEF=N$PSPG:5 ;INITIAL NUMBER OF PERMANENT SYMBOLA+ .DATA ; ; TABLE PAGES. SET TO 4 IF NOM .DATA ; ; CIS SUPPORT.A8 .DATA GBLDEF=N$SYPG:30 ;INITIAL NUMBER OF USER SYMBOL) .DATA ; ; TABLE PAGES. DECREASE FORA$ .DATA ; ; SMALLER, SLOWER TASK. .DATA ;F* .DATA ; SPECIFY DEFAULT OUTPUT PAGE SIZE .DATA ;R$ .DATA ; GBLPAT=MACRO:LINPPG:OOOOOO .DATA ;L> .DATA ; WHERE "OOOOOO" REPRESENTS AN OCTAL NUMBER. NOTE THAT? .DATA ; MACRO ALWAYS USES THE FIRST THREE LINES AT THE TOP OFF: .DATA ; THE PAGE FOR TITLE, SUB-TITLE, AND A BLANK LINE. .DATA ;PI .DATA ; DEFAULT FROM ASSEMBLY IS 60. LINES (3 HEADER + 57 SOURCE LINES): .DATA ;L .DATA ;U/ .DATA ; SPECIFY DEFAULT LISTING OUTPUT FORMAT .DATA ;T$ .DATA ; GBLPAT=ASSEM:LCBITS:XXXXXX .DATA ;T6 .DATA ; WHERE THE FOLLOWING BIT SIGNIFICANCE APPLIES* .DATA ; (BIT ASSERTED IMPLIES ".NLIST"): .DATA ; BEX = 2 .DATA ; BIN = 4 .DATA ; CND = 10T .DATA ; COM = 20A .DATA ; LD = 40E .DATA ; LOC = 100 .DATA ; MC = 200 .DATA ; MD = 400 .DATA ; ME = 1000T .DATA ; MEB = 2000  .DATA ; SEQ = 4000N .DATA ; SRC = 10000 .DATA ; SYM = 20000 .DATA ; TOC = 40000 .DATA ; TTM = 100000T .DATA ; + .DATA ; THE DEFAULT FROM ASSEMBLY IS 3040X .DATA ;T" .DATA GBLPAT=ASSEM:LCBITS:103040 .DATA ;E- .DATA ; SPECIFY LISTING FILE EXTENSION SIZES .DATA ;T$ .DATA ; GBLPAT=MACIO:$LSEXT:OOOOOO .DATA ;=C .DATA ; WHERE "OOOOOO" REPRESENTS AN OCTAL NUMBER (NOTE: POSITIVE0E .DATA ; MEANS CONTIGUOUS EXTEND AND NEGATIVE MEANS NON-CONTIGUOUS). .DATA ;B= .DATA ; DEFAULT FROM ASSEMBLY IS 15. NON-CONTIGUOUS BLOCKS.T .DATA ;2 .DATA ;TA .DATA ; REMOVING THE SEMICOLON FROM IN FRONT OF THE NEXT GBLPATH9 .DATA ; ALLOWS ABS PSECT SIZES TO BE STORED IN THE GSD.T> .DATA ; THIS IS DONE BY THE RT-11 ASSEMBLER AND IS THEREFORE6 .DATA ; USEFUL WHEN ASSEMBLING "NATIVE" FOR RTEM-11. .DATA ; .DATA ;GBLPAT=MACIO:ABSSZ:240O .DATA ;T8 .DATA ; ADDING A SEMICOLON IN FRONT OF THE NEXT GBLPAT; .DATA ; CHANGES THE DEFAULT FOR THE LISTING FILE FROM /SP .DATA ; TO /-SP. .DATA ;  .DATA GBLPAT=MACIO:SPOPT:0 .DATA ;2 .DATA /T .CLOSE.;.; Generate MACBLD.ODL.; .OPEN '$CL'MAC'$TYP1'BLD.ODL .DATA ;S4 .DATA ; TKB ODL FILE FOR THE HASH SYMBOL00wmgt:wdDATADATADATADATA TABLE MAC .DATA ; '$COM''.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'T .IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID'D .DATA ;= .DATA .ROOT MROOT,COTREE .DATA  .DATA .NAME MACROA.IFT $FCSTK .DATA MROOT: .FCTR MACRO-R1-R2-R3-R4-V-S1-*(O1,O2,O3)T>.IFF $FCSTK .DATA MROOT: .FCTR MACRO-R1-R2-R3-R4-V-*(O1,O2,O3) .DATA A .DATA R1: .FCTR '$LI'MAC/LB:MACRO:MROOT:CODHD:ENDLN:EXPRS:GETLNL/ .DATA R2: .FCTR '$LI'MAC/LB:LSTNG:ROLHD:SYMBL2 .DATA R3: .FCTR '$LI'MAC/LB:READ:WRITE:CRFIO:PST< .DATA R4: .FCTR '$LI'MAC/LB:PROSW:PROCSI:SPACE:NDRCT:GMARG( .DATA V: .FCTR '$LI'MAC/LB:VMRES:EXTSKG.IFT $FCSTK .DATA S1: .FCTR LB:[1,1]SYSLIB/LB:SAVR1:.ODCVT:RQLCB:ASSLUN  .DATA *.IFT $FCSTK .DATA O1: .FCTR P1-P2-P3-F1-V3'.IFF $FCSTK .DATA O1: .FCTR P1-P2-P3-V3F .DATA  .DATA .NAME MACIO .DATA .PSECT ERRMG0,D,GBL@ .DATA P1: .FCTR MACIO-'$LI'MAC/LB:INFIL:INIFL:INOFL-CRF-ERRMG0 .DATA .PSECT CRFSEC,D,GBL, .DATA CRF: .FCTR '$LI'MAC/LB:CRFFIL-CRFSEC .DATA ) .DATA P2: .FCTR LB:[1,1]SYSLIB/LB:.GCML  .DATA ; .DATA P3: .FCTR '$LI'MAC/LB:SETDN:ENDPS:ISDMP:SETMX:R5UNPB .DATA 9.IFT $FCSTK .DATA F1: .FCTR LB:[1,1]SYSLIB/LB:.CSI1:.CSI2C .DATA # .DATA V3: .FCTR '$LI'MAC/LB:INIVM1 .DATA  .DATA  .DATA O2: .FCTR P4-P5-P6-P7  .DATA ? .DATA P4: .FCTR '$LI'MAC/LB:MACRS:MLIBS:SETDIR:MCALL:REPT-P4A2 .DATA P4A: .FCTR '$LI'MAC/LB:MACROC:MACROD:MPUSH .DATA / .DATA P5: .FCTR '$LI'MAC/LB:CNDTL:DATDR:MSCDRC .DATA  .DATA P6: .FCTR P61-P62 * .DATA P61: .FCTR '$LI'MAC/LB:STMNT:PROPC+ .DATA P62: .FCTR '$LI'MAC/LB:SETIMM:WORDBD .DATA  .DATA .PSECT EDTSEC,D,GBL .DATA .PSECT LCTSEC,D,GBL .DATA .PSECT LSBTST,I,GBLJ .DATA P7: .FCTR '$LI'MAC/LB:SETMX:ENBDS:SECTR:LISTC-EDTSEC-LCTSEC-LSBTST .DATA  .DATA  .DATA .PSECT PSTSEC,D,GBL+ .DATA O3: .FCTR '$LI'MAC/LB:HSHPST-PSTSEC .DATA  .DATA  .DATA .NAME FCS/.IFT $FCSTK .DATA COTREE: .FCTR FCS-*(F3,F4,F5)C,.IFF $FCSTK .DATA COTREE: .FCTR FCS-*(F3,F5) .DATA  .DATA F3: .FCTR R5-CL1 .DATA .NAME ASSEM .DATA .PSECT ERRMSG,D,GBLR .DATA R5: .FCTR ASSEM-'$LI'MAC/LB:ASSEM:INIDM:OPTERR-'$LI'PIPUTL/LB:GTKNM-ERRMSG9.IFT $FCSTK .DATA CL1: .FCTR LB:[1,1]SYSLIB/LB:CLOSE:C5TAC3.IFF $FCSTK .DATA CL1: .FCTR LB:[1,1]SYSLIB/LB:C5TAD .DATA B.IFT $FCSTK .DATA F4: .FCTR LB:[1,1]SYSLIB/LB:OPFNB-OP1-OP2-OP3-F24.IFT $FCSTK .DATA OP1: .FCTR LB:[1,1]SYSLIB/LB:FINITE.IFT $FCSTK .DATA OP2: .FCTR LB:[1,1]SYSLIB/LB:CREATE:DEL:MKDL:DIRECTR5.IFT $FCSTK .DATA OP3: .FCTR LB:[1,1]SYSLIB/LB:RDWAITC9.IFT $FCSTK .DATA F2: .FCTR LB:[1,1]SYSLIB/LB:PARSE:XQIOUD.IFT $FCSTK .DATA X.IFT $FCSTK .DATA F5: .FCTR LB:[1,1]SYSLIB/LB:GETSQ:PUTSQ:PNTMRK-RW1-GP1-GP2-P43-P63-P64'.IFF $FCSTK .DATA F5: .FCTR P43-P63-P64 9.IFT $FCSTK .DATA RW1: .FCTR LB:[1,1]SYSLIB/LB:READ:WRITEC5.IFT $FCSTK .DATA GP1: .FCTR LB:[1,1]SYSLIB/LB:RDWAIT-5.IFT $FCSTK .DATA GP2: .FCTR LB:[1,1]SYSLIB/LB:WTWAITT% .DATA P43: .FCTR '$LI'MAC/LB:SCNLIBS$ .DATA P63: .FCTR '$LI'MAC/LB:FLOAT% .DATA P64: .FCTR '$LI'MAC/LB:PACKED/ .DATA .DATA .ENDD .CLOSE .EXIT 1].;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4: .FCTR LB:[1,1]SYSLIB/LB:GETSQ:PUTSQ:PNTMRK-RW1-GP1-GP2-P43-P63-P64'.IFF $FCSTK .DATA F5: .FCTR P43-P63-P64 9.IFT $FCSTK .DATA RW1: .FCTR LB:[1,1]SYSLIB/LB:READ:WRITEC5.IFT $FCSTK .DATA GP1: .FCTR LB:[1,1]SYSLIB/LB:RDWAIT-5.IFT $FCSTK .DATA GP2: .FCTR LB:[1,1]SYSLIB/LB:WTWAITT% .DATA P43: .FCTR '$LI'MAC/LB:SCNLIBS$ .DATA P63: .FCTR '$LI'MAC/LB:FLOAT% .DATA P64: .FCTR '$LI'MAC/LB:PACKED/  .ONERR ERXITC .ENABLE SUBSTITUTIOND .ENABLE GLOBALD .SETF $UTYP1R.;.; Generate MCDBLD.CMD.;.; Modified for M-PLUS V2.1 by::.;.; J. M. Lawler.; J. Gallant.;.; Modified for M-PLUS V2.2 by:T.;!.; J. C. Franzini 11-Nov-83 06.00M$.; JCF147 -- build LDR and MCD /-XH.; .OPEN '$CL'MCDBLD.CMD .DATA ;. .DATA ; TKB .CMD FILE FOR MCD (MCR PRIMARY) .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;4 .DATA '$TK'MCD/PR/-FP/MM/CP/-SE/-XH,'$MP'MCD/-SP=00gurvx OlH .DATA '$LI'MCR/LB:MCROOT:MCRDIS:CRCMD:FIXOV:MAPLIM:MPSPB:ERROV:ERRMSGE .DATA '$LI'MCR/LB:PR1OV:ABOOV:GTTSK:KEYWD:EDCKP:$FDUCB:GNBLK:CHAINy< .DATA '$LI'MCR/LB:GTMNM,'$TK'RSX11M.STB,LB:[1,1]EXELIB/LB .DATA / .DATA UNITS=4 .DATA WNDWS=1 .DATA ASG=TI:11 .DATA STACK=64  .DATA TASK=MCR... .DATA IDENT=06.00 .DATA PRI=160 .DATA PAR=SYSPAR:0:0C .DATA / .CLOSE' .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4MM/CP/-SE/-XH,'$MP'MCD/-SP= .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL .SETF $UTYP1.; .; GENERATE MCLBLD.CMD.;  .OPEN '$CL'MCLBLD.CMD .DATA ; 6 .DATA ; TKB .CMD FILE FOR KMC-11 LP MICROCODE LOADER .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ; ( .DATA '$TK'MCL/PR/-FP/CP,'$MP'MCL/-SP= .DATA '$LI'MCL, .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LB .DATA / .DATA TASK=MCL... .DATA UNITS=3 .DATA ASG=LB:1,CO:2 .DATA // .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4UTION .ENABLE GLOBAL .SETF $UTYP1.; .; GENERATE MCLBLD.CMD.;  .OPEN '$CL'MCLBLD.CMD .DATA ; 6 .DATA ; TKB .CMD FILE FOR KMC-11 LP MICROCODE LOADER .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ; ( .DATA '$TK'MCL/PR/-FP/CP,'$MP'MCL/-SP= .DATA '$LI'MCL, .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LB .DATA / .DATA TASK=MCL... .DATA UNITS=3 .DATA ASG=LB:1,CO:2 .DATA // .CLOSE .EXIT 1.;$.; Exit for error encoun.;.; J. GALLANT 18-FEB-83S1.; JG0047 - ADD IDENT SWITCH FOR UPDATE PROCEDUREA.; .ONERR ERXIT' .ENABLE SUBSTITUTIONA .ENABLE GLOBAL= .SETF $UTYP1I.;.; GENERATE MCMBLD.CMD.; .OPEN '$CL'MCMBLD.CMD .DATA ;1 .DATA ; TKB .CMD FILE FOR MCM (MULTI-USER MCR) .DATA ; '$COM'T .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ; PRIMARY .DATA ;< .DATA '$TK'MCRMU/-SG/PR/AL/-SE/-FP'$MMSW','$MP'MCRMU/-SP= .DATA '$OD'MCMBLD/MPT .DATA UNITS=4 .DATA ASG=TI:11& .DATA ASG=TI:4 ; ERROR MESSAGE LUN .DATA STACK=64H .DATA TASK=MCR... .DATA IDENT=4.00' .DATA PRI=160 .DATA PAR='$SYPAR'O .DATA / .DATA ; .DATA ; SECONDARY .DATA ;5 .DATA '$TK'SYS/-SG/PR/-SE/-FP'$MMSW','$MP'SYS/-SP=  .DATA '$OD'SYSBLD/MPM .DATA UNITS=4 .DATA ASG=TI:1C .DATA ASG=CL:2 .DATA ASG=SY:3A& .DATA ASG=TI:4 ; ERROR MESSAGE LUN .DATA STACK=64F .DATA TASK=...MCR .DATA PRI=160 .DATA PAR=GEN:'$GPB':20000 .DATA / .CLOSEA.;.; GENERATE MCMBLD.ODL.; .OPEN '$CL'MCMBLD.ODL .DATA ;9 .DATA ; TKB .ODL FILE FOR MCM (MULTI-USER MCR PRIMARY)' .DATA ; '$COM'/ .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME MCROOT= .DATA .ROOT MCROOT-'$LI'MCR/LB:MCROOT-E-'$TK'RSX11M.STB-A  .DATA A: .FCTR (A1,A2,A3) .DATA .NAME MCROV/ .DATA A1: .FCTR MCROV-'$LI'MCR/LB:MCRDIS-M-EM .DATA .NAME ERROVA5 .DATA A2: .FCTR ERROV-'$LI'MCR/LB:ERROV:ERRMSG-M-EA .DATA .NAME PR1OV: .DATA A3: .FCTR PR1OV-'$LI'MCR/LB:PR1OV:ABOOV:FIXOV-M-E .DATA C# .DATA E: .FCTR LB:[1,1]EXELIB/LB. .DATA R .DATA M: .FCTR '$LI'MCR/LB .DATA ' .DATA .END .CLOSEB.;.; GENERATE SYSBLD.ODL.; .OPEN '$CL'SYSBLD.ODL .DATA ;; .DATA ; TKB .ODL FILE FOR SYS (MULTI-USER MCR SECONDARY)A .DATA ; '$COM'  .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME SYSROTL .DATA .ROOT SYSROT-'$LI'SYSROT-'$LI'MCR/LB:MCRDEF-E-'$TK'RSX11M.STB/SS-AF .DATA A: .FCTR (A1,A2,A3,A5,A6,A7,A8,A9,B1,B1A,B2,B3,B4,B5,B6,B9,C)% .DATA C: .FCTR (C1,C2,C4,C5,C6,C7)  .DATA .NAME SYSOV.. .DATA A1: .FCTR SYSOV-'$LI'MCR/LB:SYSOV-M-E .DATA .NAME ERROV.5 .DATA A2: .FCTR ERROV-'$LI'MCR/LB:ERROV:ERRMSG-M-EY .DATA .NAME ALLOV5 .DATA A3: .FCTR ALLOV-'$LI'MCR/LB:ALLOV:ALLSUB-M-EY .DATA .NAME ALTOV4 .DATA A5: .FCTR ALTOV-'$LI'MCR/LB:ALTOV:REDOV-M-E .DATA .NAME ASNOV . .DATA A6: .FCTR ASNOV-'$LI'MCR/LB:ASNOV-M-E .DATA .NAME RAPOV.4 .DATA A7: .FCTR RAPOV-'00}:wdDATADATADATADATA$LI'MCR/LB:RAPOV:REAOV-M-E .DATA .NAME ATLOVC. .DATA A8: .FCTR ATLOV-'$LI'MCR/LB:ATLOV-M-E .DATA .NAME TIMOVR. .DATA A9: .FCTR TIMOV-'$LI'MCR/LB:TIMOV-M-E .DATA .NAME DEVOVR. .DATA B1: .FCTR DEVOV-'$LI'MCR/LB:DEVOV-M-E .DATA .NAME DV2OVA/ .DATA B1A: .FCTR DV2OV-'$LI'MCR/LB:DV2OV-M-E. .DATA .NAME TASOV.. .DATA B2: .FCTR TASOV-'$LI'MCR/LB:TASOV-M-E .DATA .NAME RPSOV . .DATA B3: .FCTR RPSOV-'$LI'MCR/LB:RPSOV-M-E .DATA .NAME RUNOV.. .DATA B4: .FCTR RUNOV-'$LI'MCR/LB:RUNOV-M-E .DATA .NAME OPEOV 4 .DATA B5: .FCTR OPEOV-'$LI'MCR/LB:OPEOV:BRKOV-M-E3 .DATA B6: .FCTR D1-(D2,D3,D4,D5,D6,D7,D8,D9,D10)L .DATA .NAME CLQOV.. .DATA B9: .FCTR CLQOV-'$LI'MCR/LB:CLQOV-M-E .DATA .NAME SSMOV.. .DATA C1: .FCTR SSMOV-'$LI'MCR/LB:SSMOV-M-E .DATA .NAME FLAOV . .DATA C2: .FCTR FLAOV-'$LI'MCR/LB:FLAOV-M-E .DATA .NAME DEAOV . .DATA C4: .FCTR DEAOV-'$LI'MCR/LB:DEAOV-M-E .DATA .NAME PAROV . .DATA C5: .FCTR PAROV-'$LI'MCR/LB:PAROV-M-E .DATA .NAME LUNOV . .DATA C6: .FCTR LUNOV-'$LI'MCR/LB:LUNOV-M-E .DATA .NAME CLIOVM. .DATA C7: .FCTR CLIOV-'$LI'MCR/LB:CLIOV-M-E .DATA .NAME SRTOVM@ .DATA D1: .FCTR SRTOV-'$LI'MCR/LB:SRTOV:$FDUCB:GNBLK:GETNUM-E .DATA .NAME SPSOVA. .DATA D2: .FCTR SPSOV-'$LI'MCR/LB:SPSOV-M-E .DATA .NAME ST1OVA5 .DATA D3: .FCTR ST1OV-'$LI'MCR/LB:ST1OV:REQCOT-M-E  .DATA .NAME ST2OVC. .DATA D4: .FCTR ST2OV-'$LI'MCR/LB:ST2OV-M-E .DATA .NAME ST3OVC. .DATA D5: .FCTR ST3OV-'$LI'MCR/LB:ST3OV-M-E .DATA .NAME ST4OVC4 .DATA D6: .FCTR ST4OV-'$LI'MCR/LB:ST4OV:MDPOV-M-E .DATA .NAME SX1OVI4 .DATA D7: .FCTR SX1OV-'$LI'MCR/LB:SX1OV:STSUB-M-E .DATA .NAME SX2OVL4 .DATA D8: .FCTR SX2OV-'$LI'MCR/LB:SX2OV:STSUB-M-E .DATA .NAME SX3OVC4 .DATA D9: .FCTR SX3OV-'$LI'MCR/LB:SX3OV:STSUB-M-E .DATA .NAME SX4OV15 .DATA D10: .FCTR SX4OV-'$LI'MCR/LB:SX4OV:STSUB-M-EC .DATA D# .DATA E: .FCTR LB:[1,1]EXELIB/LB .DATA N .DATA M: .FCTR '$LI'MCR/LBS .DATA .END .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4 .DATA .NAME SX1OVI4 .DATA D7: .FCTR SX1OV-'$LI'MCR/LB:SX1OV:STSUB-M-E .DATA .NAME SX2OVL4 .DATA D8: .FCTR SX2OV-'$LI'MCR/LB:SX2OV:STSUB-M-E .DATA .NAME SX3OVC4 .DATA D9: .FCTR SX3OV-'$LI'MCR/LB:SX3OV:STSUB-M-E .DATA .NAME SX4OV15 .DATA D10: .FCTR SX4OV-'$LI'MCR/LB:SX4OV:STSUB-M-EC .DATA D# .DATA E: .FCTR LB:[1,1]EXELIB/LB .DATA N .DATA M: .FCTR '$LI'MCR/LBS .DA .ONERR ERXITT .ENABLE SUBSTITUTION. .ENABLE GLOBALB.;.; Generate MTABLD.CMD.;.;.; J. MELVIN 07-OCT-84;.; UPDATE IDENT FOR RSX-11M-PLUS V3.0 RELEASE MTAACP=15.00y.; MAG =03.00.; G. N. LARSEN 22-OCT-84S.; GL003 -- ADD EXEC VECTORINGE.;.; B. S. MCCARTHY 21-NOV-84D2.; BM293 -- ADD G. LARSEN'S ODL CORRECTIONS FOR.; EXECUTIVE VECTORING..; .SETF $UTYP1. .OPEN '$CL'MTABLD.CMD .DATA ; .DATA ;; .DATA ; TASK BUILD FOR ANSI MAGTAPE ACP OVERLAID VERSIONR .DATA ; '$COM'E .DATA ; CREATED BY '$BLDID' .DATA ;K .DATA '$TK'MTAACP'$MMSW'/AC/CP/-FP/PM,'$MP'MTAACP/-SP='$OD'MTABLD.ODL/MP1 .DATA TASK=MTAACP .DATA STACK=64  .DATA UIC=[2,2] .DATA PRI=200 .DATA UNITS=2 .DATA GBLDEF=SF.PRG:177777B!.IFT $MAP .DATA PAR=GEN:0:016000 '.IFF $MAP .DATA PAR=GEN:'$GPB'00:20700 .DATA IDENT=15.00 .DATA ;N .DATA ; THE FOLLOWING GBLDEFS MAY BE ALTERED TO CHANGE THE TIMING OF MTAACP .DATA ; REMINDER MESSAGES.O .DATA ;O .DATA ; FTIMOV CONTROLS THE AMOUNT OF TIME BEFORE THE FIRST REMINDER APPEARSTP .DATA ; STIMOV CONTROLS THE AMOUNT OF TIME BEFORE SUBSEQUENT REMINDERS APPEAR .DATA ;7 .DATA ; BOTH VALUES ARE NUMBER OF SECONDS IN *OCTAL*A .DATA ;8 .DATA ; DEFAULT: FTIMOV:454 (300 SECONDS) (5 MINUTES)2 .DATA ; STIMOV:264 (180 SECONDS) (3 MINUTES) .DATA ; .DATA GBLDEF=FTIMOV:454 .DATA GBLDEF=STIMOV:264 .DATA ;K .DATA ; REMOVE THE APPROPRIATE GBLDEF(S) IF YOU WISH TO ADD INSTA00vx OlLLATION .DATA ; TRANSLATION ROUTINESO .DATA ; .DATA GBLDEF=USER1:0  .DATA GBLDEF=USER2:0O .DATA GBLDEF=USER3:0T .DATA ;4 .DATA ; DISMOUNT RESETS MAGTAPE DEVICE BLOCK-SIZE5 .DATA ; TO THE VALUE OF TPDFBS. DEFAULT 1000=512.5 .DATA ; IF YOU CHANGE THIS, YOU SHOULD ALSO CHANGE)0 .DATA ; THE CORRESPONDING SYMBOL FOR DISMOUNT .DATA ; .DATA GBLDEF=TPDFBS:10004 .DATA /.;.; Generate fake MAGBLD.CMD..; .DATA ; .DATA ;3 .DATA ; TASK BUILD FOR ANSI MAGTAPE CONTROL TASKA .DATA ; '$COM'I .DATA ; CREATED BY '$BLDID' .DATA ;B .DATA '$TK'MAG'$MMSW'/PR/CP/-FP,'$MP'MAG/-SP='$OD'MAGBLD.ODL/MP .DATA TASK=...MAG .DATA PRI=50L .DATA IDENT=03.00.IFT $MAP .DATA PAR=GEN:0:0'.IFF $MAP .DATA PAR=GEN:'$GPB'00:40000I .DATA ; .DATA / .CLOSEA.;.; Generate MTABLD.ODL.; .OPEN '$CL'MTABLD.ODL .DATA ; .DATA ; TKB ODL FILE FOR MTAr(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB' .DATA ; '$COM'T .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ;' .DATA ; ODL FOR THE ANSI MAGTAPE ACP. .DATA ; .DATA A! .DATA .ROOT TREE1,TREE2,TREE3D( .DATA EXELIB: .FCTR LB:[1,1]EXELIB/LB- .DATA VECSTB: .FCTR LB:[3,54]RSXVEC.STB/SS. .DATA .NAME ANSIMT .DATA PQ .DATA TREE1: .FCTR ANSIMT-LB:[1,1]SYSLIB/LB:ARITH-CNTRL-SUBR-(PCTRL,OVL1,OVL2)B .DATA .NAME MESSGC .DATA L9 .DATA TREE2: .FCTR MESSG-*(MG1,MG2,MG3,MG4,MISC,MISC1) .DATA N .DATA .NAME SUPPRT .DATA T< .DATA TREE3: .FCTR SUPPRT-(WRLB,RDLB,DATES,LABEL,DC1,DC2) .DATA FE .DATA CNTRL: .FCTR '$LI'MTA/LB:MSCOM:MCTRL:MCSBR:MMSG:MRLEAS-CTRL1,; .DATA CTRL1: .FCTR '$LI'MTA/LB:MMVLR:MHDRBF:MLABDF-CTRL2A .DATA CTRL2: .FCTR VECSTB .DATA M .DATA SUBR: .FCTR '$LI'MTA/LB:MXIO:MCAT5:MALLOC:MEVSC:MDEF11-EXELIB-VECSTB/ .DATA T .DATA .NAME CROSSV .DATA A< .DATA PCTRL: .FCTR CROSSV-*'$LI'MTA/LB:MBLKP:MUNBLK-RD-WT .DATA , .DATA .NAME VFYRDN .DATA > .DATA RD: .FCTR VFYRD-'$LI'MTA/LB:MVFYRD-'$LI'MTA/LB:MPOSDT .DATA E .DATA .NAME VFYWT .DATA T0 .DATA WT: .FCTR VFYWT-'$LI'MTA/LB:MVFYWT-EXPD2 .DATA WT1: .FCTR VFYWT-'$LI'MTA/LB:MVFYWT-*EXPD' .DATA EXPD: .FCTR '$LI'MTA/LB:MEXPDT .DATA . .DATA .NAME APC: .DATA '6 .DATA OVL1: .FCTR APC-*'$LI'MTA/LB:MAPC-(USER,PRIV) .DATA  .DATA .NAME AUC .DATA = .DATA USER: .FCTR AUC-*'$LI'MTA/LB:MAUC-BLXIO-EXELIB-USER2 5 .DATA USER2: .FCTR *('$LI'MTA/LB:MPOSEN-POS,ENDLB)R .DATA Y .DATA .NAME APV- .DATA :. .DATA PRIV: .FCTR APV-*'$LI'MTA/LB:MAPV-MOU .DATA . .DATA .NAME DMOU .DATA M- .DATA DMOUN: .FCTR DMOU-*'$LI'MTA/LB:MDMOUL .DATA X .DATA .NAME MOUNTR .DATA B5 .DATA MOU: .FCTR MOUNT-*'$LI'MTA/LB:MMOUNT-(M1,M4) .DATA L .DATA .NAME MOINTL .DATA R; .DATA M1: .FCTR MOINT-*'$LI'MTA/LB:MMOINT-BLXIO-DMOUN-M3A .DATA R .DATA .NAME MOSAVB .DATA -3 .DATA M3: .FCTR MOSAV-*'$LI'MTA/LB:MMOVF0-EXELIBS .DATA  .DATA .NAME MODONE .DATA .4 .DATA M4: .FCTR MODONE-*'$LI'MTA/LB:MMOVF1-EXELIB .DATA . .DATA = .DATA OVL2: .FCTR BLXIO-(FIND,RATT,ACCES,CREA,CLOSE,RWVBN): .DATA . .DATA .NAME FNDNM .DATA .K .DATA FIND: .FCTR FNDNM-*'$LI'MTA/LB:MFNDNM-'$LI'MTA/LB:MFNDSR:MPOSUL-F1  .DATA F1: .FCTR Y-Z1. .DATA . .DATA .NAME RATTR$ .DATA M1 .DATA RATT: .FCTR RATTR-*'$LI'MTA/LB:MRATTR-R1O .DATA R1: .FCTR (POS,RATCM) .DATA * .DATA .NAME ACCESS .DATA A: .DATA ACCES: .FCTR ACCESS-*'$LI'MTA/LB:MACCES-EXELIB-A1 .DATA '5 .DATA A1: .FCTR '$LI'MTA/LB:MPOSDT-(POS-WCHK,RAT2)O .DATA B .DATA .NAME CREATE .DATA VI .DATA CREA: .FCTR CREATE-*'$LI'MTA/LB:MCRFIL-XXX-(*CRY-*(Z),WATT,END2)F) .DATA CRY: .FCTR Y-*'$LI'MTA/LB:MPOSUL: .DATA  .DATA CLOSE: .FCTR DEAC .DATA  .DATA .NAME DEACC .DATA @ .DATA DEAC: .FCTR DEACC-*'$LI'MTA/LB:MDEACC-Y-Z1-EXELIB-ENDLB .DATA C .DATA A .DATA A .DATA .NAME VBNIOA .DATA AK .DATA RWVBN: .FCT00s:wdDATADATADATADATAR VBNIO-*'$LI'MTA/LB:MRWVB:MEXTND-VECSTB-(ENDLB,TRANSL). .DATA T .DATA .NAME TRANSA .DATA A7 .DATA TRANSL: .FCTR TRANS-*'$LI'MTA/LB:MTRANS:MEBCDC. .DATA ;H .DATA ; ADDITIONAL INSTALLATION TRANSLATE ROUTINES MAY BE ADDED HERE.Q .DATA ; IF DESIRED, THEY MAY BE OVERLAID AGAINST THE EBCDIC TRANSLATION MODULEM .DATA ; .DATA  .DATA .NAME WATTRC .DATA L0 .DATA WATT: .FCTR WATTR-*'$LI'MTA/LB:MWATTR-X .DATA A .DATA 5 .DATA ENDLB: .FCTR *'$LI'MTA/LB:MEOFLB-(END1,WATT)'. .DATA END1: .FCTR *'$LI'MTA/LB:MEOFTP-RD-WT/ .DATA END2: .FCTR *'$LI'MTA/LB:MEOFTP-RD-WT1 .DATA S .DATA A$ .DATA Y: .FCTR '$LI'MTA/LB:MRWVOL .DATA A' .DATA Z: .FCTR '$LI'MTA/LB:MPOSEN-Z1U3 .DATA Z1: .FCTR '$LI'MTA/LB:MNXHDR:MRDHDR:MPVHDR .DATA L .DATA , .DATA POS: .FCTR *'$LI'MTA/LB:MPOSID-Y-Z1 .DATA  .DATA RATCM: .FCTR RAT1-RDL> .DATA RAT1: .FCTR *'$LI'MTA/LB:MRATCM-'$LI'MTA/LB:MBLDHD-X1, .DATA RAT2: .FCTR RAT1-'$LI'MTA/LB:MVFYRD .DATA D; .DATA WCHK: .FCTR *'$LI'MTA/LB:MLSTFL-'$LI'MTA/LB:MVFYRD. .DATA .( .DATA BLXIO: .FCTR '$LI'MTA/LB:MBLXIO .DATA A2 .DATA X: .FCTR '$LI'MTA/LB:MATCTL:MHEADB:MATACT .DATA X1: .FCTR X-Y& .DATA XXX: .FCTR '$LI'MTA/LB:MEOFLB .DATA M .DATA R .DATA .NAME MSGMT .DATA 0 .DATA MG1: .FCTR MSGMT-'$LI'MTA/LB:MMTMSG-MG0 .DATA A .DATA .NAME MSGMOL .DATA R0 .DATA MG2: .FCTR MSGMO-'$LI'MTA/LB:MMOMSG-MG0 .DATA A .DATA .NAME MSGEXM .DATA D0 .DATA MG3: .FCTR MSGEX-'$LI'MTA/LB:MEXMSG-MG0 .DATA T .DATA .NAME MSGTO. .DATA B0 .DATA MG4: .FCTR MSGTO-'$LI'MTA/LB:MTOMSG-MG0 .DATA .DATA :# .DATA MISC: .FCTR ODEC-(OD1,OD2)C .DATA .NAME ODEC, .DATA OD1: .FCTR LB:[1,1]SYSLIB/LB:.ODCVT+ .DATA OD2: .FCTR LB:[1,1]SYSLIB/LB:OD2CTA .DATA T& .DATA MG0: .FCTR '$TK'F11MSGSTB.STB .DATA .NAME UVLR .DATA A, .DATA MISC1: .FCTR UVLR-'$LI'MTA/LB:MUVLR .DATA  .DATA .NAME WRITEM .DATA 2 .DATA WRLB: .FCTR WRITE-*'$LI'MTA/LB:MWRLAB-BTA .DATA . .DATA .NAME READ .DATA A .DATA RDLB: .FCTR READ-*'$LI'MTA/LB:MRDLAB:MVRVOL:MEOVP:MRQNXTA .DATA A .DATA .NAME DATE .DATA 11 .DATA DATES: .FCTR DATE-*'$LI'MTA/LB:MDATE-BTAB .DATA B .DATA .NAME LABRV2 .DATA [/ .DATA LABEL: .FCTR LABRV-*'$LI'MTA/LB:MLABRVF .DATA 1 .DATA .DATA N% .DATA BTA: .FCTR '$LI'MTA/LB:MCBTAF .DATA L .DATA .NAME CD1. .DATA DC1: .FCTR CD1-*'$LI'MTA/LB:MAT64 .DATA .NAME CD20 .DATA DC2: .FCTR CD2-*'$LI'MTA/LB:M64TA:MDIVD .DATA L .DATA .END .CLOSEM.;.; Generate MAGBLD.ODL.; .OPEN '$CL'MAGBLD.ODL .DATA ; .DATA ; TKB ODL FILE FOR MAGI(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB' .DATA ; '$COM'A .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ;0 .DATA ; ODL FOR THE ANSI MAGTAPE CONTROL TASK .DATA ; .DATA .ROOT ROOT-PARSE-SET .DATA ;5 .DATA ROOT: .FCTR '$LI'MTA/LB:MAGROT:TPNUMB:TPARS2M .DATA ;( .DATA PARSE: .FCTR '$LI'MTA/LB:MAGPAR .DATA ;/ .DATA SET: .FCTR '$LI'MTA/LB:MAGSET-ELIB-STB .DATA ;& .DATA ELIB: .FCTR LB:[1,1]EXELIB/LB .DATA ;* .DATA STB: .FCTR LB:[3,54]RSXVEC.STB/SS .DATA ; .DATA .END .CLOSET .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4ATA ;0 .DATA ; ODL FOR THE ANSI MAGTAPE CONTROL TASK .DATA ; .DATA .ROOT ROOT-PARSE-SET .DATA ;5 .DATA ROOT: .FCTR '$LI'MTA/LB:MAGROT:TPNUMB:TPARS2M  .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL .SETF $UTYP1.; ].; GENERATE NCTCTLBLD.CMDT.;  .OPEN '$CL'NCTCTLBLD.CMD .DATA ; < .DATA ; TKB .CMD FILE FOR TERMINAL MANAGEMENT CONTROL TASK .DATA ; '$COM' .DATA ; CREATED BY '$BLDID'D .DATA ; . .DATA '$TK'NCTCTL/PR/-FP/CP,'$MP'NCTCTL/-SP= .DATA '$LI'NCTCTLD, .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LB .DATA /D .DATA TASK=NCT...D .DATA IDENT=103.00 .DATA UNITS=40 .DATA // .CLOSE .EXIT 1.;$.; E00sx Olxit for error encountered by IND.;.ERXIT: .EXIT 4BAL .SETF $UTYP1.; ].; GENERATE NCTCTLBLD.CMDT.;  .OPEN '$CL'NCTCTLBLD.CMD .DATA ; < .DATA ; TKB .CMD FILE FOR TERMINAL MANAGEMENT CONTROL TASK .DATA ; '$COM' .DATA ; CREATED BY '$BLDID'D .DATA ; . .DATA '$TK'NCTCTL/PR/-FP/CP,'$MP'NCTCTL/-SP= .DATA '$LI'NCTCTLD, .DATA '$TK'RSX11M.STB/SS,LB:[1,1]EXELIB/LB .DATA /D .DATA TASK=NCT...D .DATA IDENT=103.00 .DATA UNITS=40 .DATA // .CLOSE .EXIT 1.;$.; E .ONERR ERXIT: .ENABLE SUBSTITUTIONT .ENABLE GLOBALS .SETF $UTYP1T.;.; GENERATE PMTBLD.CMD.;.;.; Modified by.;.; J. M. Lawler 14-Feb-83F/.; JL151 -- Make /CP not /AL default on M-PLUSL.;.; H. Huang 21-Feb-83A.; HH168 -- Add IDENT optionI.; .OPEN '$CL'PMTBLD.CMD .DATA ;3 .DATA ; TKB .CMD FILE FOR POOL MONITOR TASK - PMT .DATA ; '$COM' .DATA ; CREATED BY '$BLDID'A .DATA ;T7.IFF $11MPL .DATA '$TK'PMT/PR:5/AL/-FP/MM,'$MP'PMT/-SP= 7.IFT $11MPL .DATA '$TK'PMT/PR:5/CP/-FP/MM,'$MP'PMT/-SP=B#.IFF $11MPL .DATA LB:RSX11M/LB:PMT$ .IFT $11MPL .DATA LB:EUT/LB:PMT .DATA '$TK'RSX11M.STB/SS .DATA LB:[1,1]EXELIB/LBF .DATA /  .DATA UNITS=5A .DATA TASK=PMT... .DATA STACK=10 .DATA PRI=1486 .DATA PAR=GEN:0:0I .DATA IDENT=2.00 .DATA ;; .DATA ; THE FOLLOWING PATCH CONTROLS WHAT INTERNAL ACTIONS : .DATA ; THE POOL MONITOR TASK MAY DIRECT THE EXECUTIVE TO> .DATA ; TAKE DURING PERIODS OF LOW POOL. THE POSSIBLE ACTIONS? .DATA ; ARE DEFINED IN PKTDF$ ([1,1]EXEMC.MLB) AS PF.XXX WHERE ? .DATA ; XXX DENOTES THE DIFFERENT POSSIBLE ACTIONS AS FOLLOWS:7 .DATA ; BIT PF.REQ - IF ONE, THEN NONPRIVILEGED TASKS - .DATA ; BELOW THE BASEMENT PRIORITY CAN BE. .DATA ; REQUESTED DURING TIMES OF LOW POOL,1 .DATA ; BUT WILL HAVE AN EFFECTIVE PRIORITY OFT2 .DATA ; ZERO. THUS, THE TASK WILL BE INELIGIBLE2 .DATA ; FOR MEMORY CONTENTION. THE TASKS NORMAL0 .DATA ; PRIORITY IS RESTORED WHEN A HIGH POOL0 .DATA ; STATE IS ACHIEVED. IF A NONPRIVILEGED. .DATA ; TASK BELOW THE BASEMENT PRIORITY IS1 .DATA ; ALREADY ACTIVE WHEN THE LOW POOL STATES2 .DATA ; BEGINS, IT WILL CONTINUE TO BE ELIGIBLE. .DATA ; FOR MEMORY CONTENTION AT ITS NORMAL .DATA ; PRIORITY.7 .DATA ; BIT PF.LOG - IF ONE, THEN NONPRIVILEGED USERSA) .DATA ; WILL NOT BE ALLOWED TO LOG ON.R5 .DATA ; BIT PF.INS - INS/RUN/REM FROM NONPRIVILEGEDM# .DATA ; TERMINALS IS SUPPRESSED.A .DATA ; R: .DATA ; THESE CONTROLS REMAIN IN EFFECT ONLY UNTIL A HIGH= .DATA ; POOL STATE IS ACHIEVED. THE DEFAULT SETTING FOR THISR .DATA ; WORD IS 340(8). .DATA ; .DATA GBLPAT=PMT:POLFL:340A .DATA ;= .DATA ; THE FOLLOWING PATCH CONTROLS THE INTERNAL ACTIONS OFN1 .DATA ; THE POOL MONITOR TASK ITSELF AS FOLLOWS:  .DATA ;6 .DATA ; BIT 100 IF ONE, THEN AUTOMATIC CHECKPOINTING- .DATA ; OF STOPPED CHECKPOINTABLE TASKS IS-/ .DATA ; ENABLED. THIS WILL OCCUR ON EITHER AI. .DATA ; PERIODIC BASIS OR ONLY WHEN POOL IS! .DATA ; LOW. SEE BIT 10 BELOW.I5 .DATA ; BIT 40 IF ONE, THEN PRIVILEGED TASKS WITH AS0 .DATA ; TI: EQUAL TO CO: WILL NOT BE ELIGIBLE2 .DATA ; FOR ABORTING DURING TIMES OF CRITICALLY .DATA ; LOW POOL.7 .DATA ; BIT 20 IF ONE, THEN LOW POOL WARNING MESSAGESO+ .DATA ; ARE SENT TO LOGGED ON TERMINALS.;5 .DATA ; BIT 10 IF ONE AND BIT 100 IS ONE, THEN PMTS;0 .DATA ; CHECKPOINTING EFFORTS WILL OCCUR ONLY0 .DATA ; WHEN POOL IS LOW. IF ZERO AND BIT 1002 .DATA ; IS ONE, THEN PMTS CHECKPOINTING EFFORTS* .DATA ; WILL OCCUR ON A PERIODIC BASIS. .DATA ;8 .DATA ; THE DEFAULT SETTING FOR THIS WORD IS 000170(8). .DATA ; .DATA GBLPAT=PMT:CNTRL:170  .DATA ;> .DATA ; PMT HAS THE ABILITY TO CHECKPOINT CERTAIN TASKS UNDER? .DATA ; CERTAIN CONDITIONS, AS INDICATED ABOVE. THE CHECKPOINTN> .DATA ; FACILITY OPERATES ON A CYCLICALLY ENABLED BASIS; THAT: .DATA ; IS, THERE IS A MINIMUM AMOUNT OF TIME BETWEEN THE> .DATA ; CHECKPOINTING OF TASKS REGARDLESS OF WHETHER PERIODIC> .DATA ; CHECKPOINTING IS ENABLED OR NOT. THE FOLLOWING PATCH; .DATA ; CONTR00:wdDATADATADATADATAOLS THE LENGTH OF THE CHECKPOINT ENABLE CYCLE > .DATA ; IN SECONDS. THE ABSOLUTE MINIMUM LENGTH OF THE CHECK-@ .DATA ; POINT CYCLE IS 20. SECONDS. THIS CYCLE WILL ONLY APPEARA .DATA ; TO WORK DURING A LOW POOL STATE. OTHERWISE, THE SMALLESTN@ .DATA ; CHECKPOINT ENABLE CYCLE IS 60. SECONDS, THE RECOMMENDED .DATA ; AND DEFAULT VALUE.U .DATA ; .DATA GBLPAT=PMT:CKPTIM:60C .DATA ; .DATA / .CLOSEE .EXIT 1.;$.; EXIT FOR ERROR ENCOUNTERED BY IND.;.ERXIT: .EXIT 4LLOWING PATCH; .DATA ; CONTR .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL .SETT $UTYP1.;.; Generate PRTBLD.CMD.; .OPEN '$CL'PRT'$TYP1'BLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR PRT .DATA ; '$COM'(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID' .DATA ;> .DATA '$TK'PRT'$TYP2'/-FP/CP/SL'$MMSW','$MP'PRT'$TYP2'/-SP= .DATA '$OD'PRT'$TYP1'BLD/MP .DATA TASK=PRT... .DATA STACK=64 .DATA UNITS=4 .DATA ASG=TI:2 .DATA ASG=LP:3 .DATA PAR='$PRPAR' .DATA PRI=70A .DATA UIC=[10,1].IFF $FCSTK .DATA '$LIBOP';".IFT $FCSTK .DATA GBLDEF=$CDDMG:0 .DATA ;A .DATA ; SPECIFY FLAG TO CONTROL THE PRINTING OF FILE FLAG PAGE.B .DATA ; THE VALUE IN $FLAG IS THE NUMBER OF FLAG PAGES TO PRINT .DATA ;? .DATA ; GBLPAT=PRT:$FLAG:1 TO ENABLE PRINTING OF 1 FLAG PAGEM> .DATA ; PRT:$FLAG:0 TO DISABLE PRINTING OF FLAG PAGE .DATA ;; .DATA ; DEFAULT FROM ASSEMBLY IS PRINTING OF 1 FLAG PAGE .DATA ; .DATA GBLPAT=PRT:$FLAG:1 .DATA ; .DATA ;: .DATA ; SPECIFY SPACING (IN DOUBLE LINES) IN FLAG PAGE.0 .DATA ; FLAG PAGE LENGTH = 34 + (6 * $LINSP). .DATA ;@ .DATA ; GBLPAT=FLGEN:$LINSP:3 TO MAKE FLAG PAGE 52 LINES LONG .DATA ;J .DATA ; DEFAULT FROM ASSEMBLY IS 4, MAKING THE FLAG PAGE 58 LINES LONG. .DATA ; .DATA GBLPAT=FLGEN:$LINSP:4 .DATA ; .DATA ;H .DATA ; SPECIFY WHETHER A TRAILING FORM FEED SHOULD BE OUTPUT OR NOT.J .DATA ; (A TRAILING FORM FEED IS USEFUL ON LV-11 ELECTROSTATIC PRINTERS2 .DATA ; TO AVOID A BLACK BAR ON THE LAST PAGE). .DATA ;C .DATA ; GBLPAT=PRT:$TFF:1 TO ENABLE OUTPUT OF TRAILING FORM FEED.D .DATA ; PRT:$TFF:0 TO DISABLE OUTPUT OF TRAILING FORM FEED .DATA ;@ .DATA ; DEFAULT FROM ASSEMBLY IS TRAILING FLAG PAGE DISABLED. .DATA ; .DATA GBLPAT=PRT:$TFF:0 .DATA ; .DATA ;G .DATA ; DEFINE DEFAULT MODULE TO DETERMINE WHETHER INPUT FILE SHOULDBI .DATA ; BE DELETED. IF USER-WRITTEN MODULE IS SUPPLIED, PRT WILL CALLRK .DATA ; IT WITH THE FILE FDB ADDRESS IN R0 (R0 MUST BE PRESERVED). USERAD .DATA ; SUPPLIED $DELCK MUST RETURN C-BIT SET TO DELETE THE FILE. .DATA ;G .DATA ; TO INCLUDE USER-SUPPLIED $DELCK, INSERT THE OBJECT MODULE INC .DATA ; PRT.OLB AND DELETE THE FOLLOWING GLOBAL DEFINITION LINE.. .DATA ; .DATA GBLDEF=$DELCK:0 .DATA ;I .DATA ; IN THE ABSENCE OF A USER-SUPPLIED $DELCK MODULE, THE FOLLOWINGS? .DATA ; GLOBAL PATCHES MAY BE USED TO CONTROL FILE DELETION:D .DATA ;8 .DATA ; GBLPAT=PRT:$DELET:1 TO ENABLE FILE DELETION9 .DATA ; PRT:$DELET:0 TO DISABLE FILE DELETIONE .DATA ;; .DATA ; DEFAULT FROM ASSEMBLY IS FILE DELETION ENABLED!!R .DATA ;I .DATA ; NOTE: WHEN FILE DELETION IS DISABLED, THE FOLLOWING FILES WILLW .DATA ; STILL BE DELETED: .DATA ; .DATA ; LP.LST;* .DATA ; LP.MAP;* .DATA ; *.DMP;*F .DATA ; *.PMD;*C .DATA ; .DATA GBLPAT=PRT:$DELET:0 .DATA / .CLOSEO.;.; Generate PRTBLD.ODL.; .OPEN '$CL'PRT'$TYP1'BLD.ODLT .DATA ; .DATA ; TKB .ODL FILE FOR PRT .DATA ; '$COM' (.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIBD .DATA ; CREATED BY '$BLDID' .DATA ;E.IFT $FCSTK .DATA .ROOT '$LI'PRT/LB:PRT:IOPRT-S1-*(FLG,OPN,GET,DEL)A?.IFF $FCSTK .DATA .ROOT '$LI'PRT/LB:PRT:IOPRT-*(FLG,GET,DEL) ; .DATA 3.IFT $FCSTK .DATA S1: .FCTR LB:[1,1]SYSLIB/LB:CBTA; .DATA G/ .DATA FLG: .FCTR '$LI'PRT/LB:FLPAG-(FL1,FL200yOl);% .DATA FL1: .FCTR '$LI'PRT/LB:FLGEN'R.IFT $FCSTK .DATA FL2: .FCTR '$LI'PRT/LB:PRTINI-LB:[1,1]SYSLIB/LB:EDTMG-(FLI,ERR);.IFF $FCSTK .DATA FL2: .FCTR '$LI'PRT/LB:PRTINI-(FLI,ERR) A% .DATA FLI: .FCTR '$LI'PRT/LB:FLINI % .DATA ERR: .FCTR '$LI'PRT/LB:ERPRTA .DATA IC.IFT $FCSTK .DATA OPN: .FCTR LB:[1,1]SYSLIB/LB:OPFID-(OP1,OP2,OP3)$;.IFT $FCSTK .DATA OP1: .FCTR LB:[1,1]SYSLIB/LB:FINIT:RQLCB 6.IFT $FCSTK .DATA OP2: .FCTR LB:[1,1]SYSLIB/LB:RDWAIT6.IFT $FCSTK .DATA OP3: .FCTR LB:[1,1]SYSLIB/LB:ASSLUN .DATA G.IFT $FCSTK .DATA GET: .FCTR LB:[1,1]SYSLIB/LB:GETSQ-'$LI'PRT/LB:TRAIL10.IFF $FCSTK .DATA GET: .FCTR '$LI'PRT/LB:TRAIL .DATA $>.IFT $FCSTK .DATA DEL: .FCTR '$LI'PRT/LB:PRTDN-'$LI'PRT/LB-S2<.IFF $FCSTK .DATA DEL: .FCTR '$LI'PRT/LB:PRTDN-'$LI'PRT/LB :.IFT $FCSTK .DATA S2: .FCTR LB:[1,1]SYSLIB/LB:DLFNB:CLOSE .DATA $ .DATA .END .CLOSE[ .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4DWAIT6.IFT $FCSTK .DATA OP3: .FCTR LB:[1,1]SYSLZ:dvw4εDo@aVN@\D@  D"0pvwh vwh  D"w *D !UqqC ӥ:  Ce   *o\\DtaVN|r:dw Dpiw@pvw@pw@o@aVN@  D"0<}sh p# h*s}h  D"@eB  8 $&w *   aVN&o0pvw6piwD&@=@ Cx0=h Cx  @=j &( eDs@  D"0yyXph &hByy y y((  BBFF y r:dw Dpiw@pvw@pw@o@aVN@  D"0<}sh p# h*s}h  D"@eB  8 $&w *   aVN&o0pvw6piwD&p &@s@@$9pw@@=@ Cx0,=h Cx eeȵe ~  DE  ȵ2e &e  %'@^e5 *@=Xp &`$9pwbs|5@558Beeȵee& q1B$8e q1 B  j &( eDs@  D"0yyph &hByy y y((  BBFF y z:dw D&p &@s@[;@piw@pvw@pw@o@aVN@  D"0}sh p# h*s}h  D"eB  8 $&w *<S1   K U U@  f&"  aVN&oR[;fpwxp &r|')'* *%0*ND   EU   ,sssJaVNbpvwhpiwnpwy z:dw :,d D  D"0aZh  D" =p!Օ^bK VN Ds@s@o@f@  D"0;VNhaVNh  D"w BC "& @SY*p0p210=E%0=w*e "fo6sffjs&| D CB.ER  Df@  D"0|iWhrwh`i h  D"46f %8 E D/D!D l0l8epl0pɥ .ɕ*w~frw4(Ds@r"&@q:@w@i@o@f@  D"0`h  D"w *8I *=)98 eB &&  U **o"w8ihq:|e *Nlv ΋*.2  & #!)&ePe && >2i^s(e >E p* wq:"r"&&fZ& lDq:@i@o@  D"0vch `rh  D"zw  )*  fU %  BA `6p 4p`4 %60 4o&i8q:Ze ӬDs@q:@i@f@  D"0cIqh  D"M=f& e %&&eH =&e0  U   E >  sXi8|>E=uf p  wq:6fZz Dq:@i@  D"0HeZhrShft:h   D"L   f >5>Eu    i:q:: & D  D"0h  00yOlD" z, ,De&@py@r@r@pJ,@o@mo@s2 @f@  D"0l}h   D"w ) 8C 8* ) *w*   ep &o pJ, rNfbpyre&|p  އ#= EW9ť^*0 ` Ca C  = L  0* = Eե^ A e@ ߇ = Ep2!t)8eE`l0  0 0/ &l0 `p l064p 4 p  ,Vs2  J *` C#   D @)  6?0D)&rBmoz,hy ,De&@r@pK,@o@mo@sk@s2 @f@  D"0d h  D"w ) 8C $* ) *w*  ep p   o pK, rNf^e&|#= EW9ť^*0 ` Ca C  = X  0* = Eե^ A e@ ߇ = Ep2!)8eE`l0 t 0 0/ &l0 `p l064p 4 p  8 V Bs2 x*`)w C#   D @)  6?0D)skr:mozE`W Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@Rf@@ft:@fy:@cIq@s}@  D"0Xhp!h  D"w  D 8#"#)%ĥ ĥ wn 0 o sfy:|*0 @Q$    0 40 60)) L \# U&* =w `p!22s}Jft: EW!p0p2 ׇ#( P) @#**fff  &*wj cIq:eZ`d?!peZt. nB58e$8w2A&e 4p8q  (#5=A#s6s>@)) *R*)@#0l C# 028 00ĥۇ rbblAĥĊ  000 0 @0 &*0 @ u # eB&B B *&,r,}JiVq:lrStmlExr"& eBe>  # #D #=0/H#@&0 id# = e0   0@e 6=#02/002# @#4q:|?@#040 6w/&!0/ l0/!/0/l0p!0 .=p0p2 fzE`PZ Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@baVN@f@@ft:@fy:@cIq@s}@  D"0t^Whh!h  D"w & w  D  8#"#)%ĥ ĥ oos fy:|w~ 0 *0 @Q$    0 40 60))  eB L \# U&* =Bs}NaVNfft:w `p!2 EW!p0p2 ׇ#( P) @#**fff   # #D #= rSmlEr"&$id0/H#@&0 # = e0   0@e 6=#02/002Pq:# @#?@#040 6w/&!0/ l0/!/0/l0p!0 .IFF $FSLTK .DATA PARSE1: .FCTR LB:[1,1]'$DFLIB'/LB:PARSDI-LIBE.IFF $FSLTK .DATA PARSE2: .FCTR LB:[1,1]'$DFLIB'/LB:PARSDV:PARSFN-LIB..IFF $FSLTK .DATA ;.IFF $FSLTK .DATA CSI1: .FCTR LB:[1,1]'$DFLIB'/LB:.CSI1-LIBS;.IFF $FSLTK .DATA CSI2: .FCTR LB:[1,1]'$DFLIB'/LB:.CSI2-LIB:.IFF $FSLTK .DATA ].IFF $FSLTK .DATA OPFNB: .FCTR LB:[1,1]'$DFLIB'/LB:OPFNB-*(ASSLUN,CREATE,DIRECT,RETADR,FINIT) :.IFF $FSLTK .DATA ASSLUN: .FCTR LB:[1,1]'$DFLIB'/LB:ASSLUN:.IFF $FSLTK .DATA CREATE: .FCTR LB:[1,1]'$DFLIB'/LB:CREATEC.IFF $FSLTK .DATA DIRECT: .FCTR LB:[1,1]'$DFLIB'/LB:DIRECT:DEL:MKDLS:.IFF $FSLTK .DATA RETADR: .FCTR LB:[1,1]'$DFLIB'/LB:RETADR8.IFF $FSLTK .DATA FINIT: .FCTR LB:[1,1]'$DFLIB'/LB:FINIT .DATA ;' .D00&):wdDATADATADATADATAATA ; Execution overlays .DATA ;FJ .DATA INPUT: .FCTR '$LI'RPT/LB:MEMORY:LIMITS:INTSTA-LIB-*(INPUT1,INPUT2): .DATA INPUT1: .FCTR '$LI'RPT/LB:PKTFUN:FILEIN:OPRSUB-LIBA .DATA INPUT2: .FCTR '$LI'RPT/LB:MODHAN:FILECO:INTEXT:INTPUT-LIB: .DATA O .DATA OUTPUT: .FCTR '$LI'RPT/LB:RADVAL:FILERE:PAGBRK:LOKFUN:FORMAT:INTWRI-LIBT .DATA O .DATA CODFUN: .FCTR '$LI'RPT/LB:CODFUN:TIMCNV:STRFUN:VALRAD:TIMFUN:ARITHE-LIBI .DATA , .DATA MESSAG: .FCTR FILERE-*(PDP11,DISPLA)3 .DATA FILERE: .FCTR '$LI'RPT/LB:FILERE:PAGBRK-LIBa7 .DATA PDP11: .FCTR '$LI'RPT/LB:PDP11-*(MSGRPT,MSGCOM)I( .DATA MSGRPT: .FCTR '$LI'RPT/LB:MSGRPT( .DATA MSGCOM: .FCTR '$LI'RPT/LB:MSGCOM( .DATA DISPLA: .FCTR '$LI'RPT/LB:DISPLA .DATA ;L .DATA ; DECSIG co-tree .DATA ;D .DATA .NAME DECSIG( .DATA DECLAR: .FCTR '$LI'RPT/LB:DECLAR, .DATA SIGNAL: .FCTR '$LI'RPT/LB:SIGNAL .DATA 5 .DATA LIB: .FCTR '$LI'NEISLB/LB-LB:[1,1]'$DFLIB'/LBT .DATA  .DATA .END .CLOSE .EXIT 1).;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4DP11: .FCTR '$LI'RPT/LB:PDP11-*(MSGRPT,MSGCOM)I( .DATA MSGRPT: .FCTR '$LI'RPT/LB:MSGRPT( .DATA MSGCOM: .FCTR '$LI'RPT/LB:MSGCOM( .DATA DISPLA: .FCTR '$LI'RPT/LB:DISPLA .DATA ;L .DATA ; DECSIG co-tree .DATA ;D .DATA .NAME DECSIG( .DATA DECLAR: .FCTR '$LI'RPT/LB:DECLAR, .DATA SIGNAL: .FCTR '$LI'RPT/LB:SIGNAL .DATA 5 .DATA LIB: .FCTR '$LI'NEISLB/LB-LB:[1,1]'$DFLIB'/LBT .DATA  .DATA .END .CLOSE .EXIT 1).;$.; Exit for error encounte .ONERR ERXIT  .ENABLE SUBSTITUTIONu .ENABLE GLOBALU .SETF $UTYP1  .IFNDF $POS .SETF $POSo.; a.; P. K. M. Weiss 6-Jun-83.;@.; PKW012 - Generate a separate version of SAV for installation.;.; P. K. M. Weiss 14-Jul-83:.;+.; PKW028 - Three memory resident overlays.;.; J. C. Franzini 14-Jun-84e.;6.; JCF167 -- Build SAVE for Micro installation system.;.; P. K. M. Weiss 3-Jul-84.;-.; PKW055 - Get rid of M/M-PLUS conditionals .;.; J. C. Franzini 13-Aug-84s.;=.; JCF170 -- Change conditionalization for Micro inst system.;.; GENERATE SAVBLD.CMD.;".IFF $MINST .OPEN '$CL'SAVBLD.CMD%.IFT $MINST .OPEN '$CL'SAVINSBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR SAV .DATA ; '$COM'4 .DATA ; CREATED BY '$BLDID' .DATA ;:.IFF $MINST .DATA '$TK'SAV/PR/CP/-FP'$MMSW','$MP'SAV/-SP=!.IFF $MINST .DATA '$OD'SAVBLD/MPl@.IFT $MINST .DATA '$TK'SAVINS/PR/CP/-FP'$MMSW','$MP'SAVINS/-SP=$.IFT $MINST .DATA '$OD'SAVINSBLD/MP .DATA TASK=...SAV .DATA UNITS=3, .DATA ASG=TI:1 ; USED FOR ERROR MESSAGES. .DATA ASG=LB:2 ; USED FOR SYSTEM IMAGE AND' .DATA ; TASK HEADER MANIPULATIONS ) .DATA ASG=LB:3 ; USED FOR LUN BINDING. .DATA ; AND DISK SIZING  .DATA PAR='$GEN'. .DATA IDENT=09.00 .DATA PRI=1006 .DATA GBLDEF=$EFN1:1 ; EVENT FLAG ON WHICH TO WAIT7 .DATA GBLDEF=.SIZEF:1 ; EVENT FLAG FOR HRSIZ TO USEA .DATA ; FOR DISK SIZING$1 .DATA GBLDEF=$LUN1:1 ; LUN FOR ERROR MESSAGESP3 .DATA GBLDEF=$LUN2:2 ; LUN FOR SYSTEM IMAGE ANDG' .DATA ; TASK HEADER MANIPULATIONSA/ .DATA GBLDEF=.SIZLU:3 ; LUN FOR LUN BINDING  .DATA ; AND DISK SIZING.IFT $POS .DATA ;H.IFT $POS .DATA ; THE FOLLOWING SYMBOLS ARE REFERENCED BUT SHOULD NEVER5.IFT $POS .DATA ; BE ACCESSED IN THE P/OS ENVIROMENTL.IFT $POS .DATA ; .IFT $POS .DATA GBLDEF=$CPNIT:0 .IFT $POS .DATA GBLDEF=$CSRTB:0 .IFT $POS .DATA GBLDEF=$PARTB:0 .IFT $POS .DATA GBLDEF=$CMDRV:0.IFT $POS .DATA GBLDEF=$UMR0:0..IFT $POS .DATA GBLDEF=$UMR1:0S .IFT $POS .DATA GBLDEF=CMDPKT:0.IFT $POS .DATA GBLDEF=DUCMD:0G .IFT $POS .DATA GBLDEF=DUREL0:0 .IFT $POS .DATA GBLDEF=DUREL1:0 .IFT $POS .DATA GBLDEF=DURING:0.IFT $POS .DATA GBLDEF=DURSP:0E .IFT $POS .DATA GBLDEF=RSPPKT:0 .DATA / .CLOSES.;).; Generate SAVBLD.ODL for M-PLUS or POS..;".IFF $MINST .OPEN '$CL'SAVBLD.ODL.IFF $MINST .DATA ;*.IFF $MINST .DATA ; TKB .ODL FILE FOR SAV.IFF $MINST .DATA ; '$COM'(.IFF $MINST .DATA ; CREATED BY '$BLDID'.IFF $MINS00.yOlT .DATA ;.IFF $MINST .DATA ;*.IFF $MINST .DATA ; This ODL file should:.IFF $MINST .DATA ;P.IFF $MINST .DATA ; o Insure that the modules SAVE and SAVVEC are in the rootH.IFF $MINST .DATA ; and have addresses in the range of 120000 to 137777.IFF $MINST .DATA ;T.IFF $MINST .DATA ; o Not give the module SAVSIZ virtual addresses between 120000.IFF $MINST .DATA ; and 140000S.IFF $MINST .DATA ;.IFF $MINST .DATA .ROOT SAVROT'1.IFF $MINST .DATA .PSECT DRVTAB,RW,D,GBL,REL,CONI^.IFF $MINST .DATA SAVROT: .FCTR '$LI'SAV/LB:SAVE:SAVVEC-MCRSUB-EXTERN-!(SAVRS1,SAVRS2,SAVRS3)N.IFF $MINST .IFF $POS .DATA EXTERN: .FCTR '$TK'RSX11M.STB/SS-LB:[1,1]EXELIB/LBL.IFF $MINST .IFT $POS .DATA EXTERN: .FCTR '$TK'RSX11M.STB/SS-[.LIB]EXELIB/LBA.IFF $MINST .IFF $POS .DATA MCRSUB: .FCTR LB:[1,1]SYSLIB/LB:ARITHh?.IFF $MINST .IFT $POS .DATA MCRSUB: .FCTR [.LIB]SYSLIB/LB:ARITHA.IFF $MINST .DATA ;3.IFF $MINST .DATA ; First memory resident overlay.IE.IFF $MINST .DATA ; This overaly contains stuff used in bringing theV5.IFF $MINST .DATA ; system up and in taking it down.S.IFF $MINST .DATA ;V.IFF $MINST .IFF $POS .DATA SAVRS1: .FCTR SAVCHK-SAVSAV-'$LI'MCR/LB:GNBLK:FMTDV-EXTERN_.IFF $MINST .IFT $POS .DATA SAVRS1: .FCTR SAVCHK-SAVSAV-[.OLDUTIL.OLB]MCR/LB:GNBLK:FMTDV-EXTERNS>.IFF $MINST .DATA SAVCHK: .FCTR '$LI'SAV/LB:SAVC1:SAVC2:SAVC3U.IFF $MINST .IFF $POS .DATA SAVSAV: .FCTR '$LI'SAV/LB:SAVFN:SAVSIZ:SAVSUB:HRSIZ:SCNDVmV.IFF $MINST .IFT $POS .DATA SAVSAV: .FCTR '$LI'SAV/LB:SAVFN:SAVSIZ:SAVSUB:SAVCNF:SCNDV.IFF $MINST .DATA ;4.IFF $MINST .DATA ; Second memory resident overlay.K.IFF $MINST .DATA ; This overlay contains modules that are device specificL7.IFF $MINST .DATA ; and are used only on the way down. .IFF $MINST .DATA ;[.IFF $MINST .DATA SAVRS2: .FCTR '$LI'SAV/LB:SAVST:SAVBOT:SAVVB1:SCNDV-SPCDRV-DRVTAB-EXTERNV[.IFF $MINST .IFF $POS .DATA SPCDRV: .FCTR '$LI'SAV/LB:SAVDV1:SAVDK:SAVDP:SAVDL:SAVCM:SAVDV2DO.IFF $MINST .IFT $POS .DATA SPCDRV: .FCTR '$LI'SAV/LB:SAVDV1:SAVDL:SAVXT:SAVDV2C.IFF $MINST .DATA ;3.IFF $MINST .DATA ; Third memory resident overlay. N.IFF $MINST .DATA ; This overaly contains the module SAVINS which is used forD.IFF $MINST .DATA ; both bringing the system up and taking it down..IFF $MINST .DATA ;:.IFF $MINST .DATA SAVRS3: .FCTR '$LI'SAV/LB:SAVINS-EXTERN.IFF $MINST .DATA ;.IFF $MINST .DATA .END.IFF $MINST .CLOSET.;9.; Generate SAVBLD.ODL for the Micro installation system.S.;%.IFT $MINST .OPEN '$CL'SAVINSBLD.ODL:.IFT $MINST .DATA ;-.IFT $MINST .DATA ; TKB .ODL FILE FOR SAVINS;.IFT $MINST .DATA ; '$COM'y(.IFT $MINST .DATA ; CREATED BY '$BLDID'.IFT $MINST .DATA ;K.IFT $MINST .DATA ; This ODL file is different from SAVBLD.ODL as follows:n.IFT $MINST .DATA ;E.IFT $MINST .DATA ; o It references library SAVINS instead of SAV.P.IFT $MINST .DATA ; SAVINS contains special versions of SAVE, SAVFN, and SAVINSK.IFT $MINST .DATA ; that were assembled for the Micro installation system.C.IFT $MINST .DATA ;H.IFT $MINST .DATA ; o SAVRS2 and SAVRS3 are swapped so that SAVRS2 is0.IFT $MINST .DATA ; the last segment in memory..IFT $MINST .DATA ;.IFT $MINST .DATA ;*.IFT $MINST .DATA ; This ODL file should:.IFT $MINST .DATA ;P.IFT $MINST .DATA ; o Insure that the modules SAVE and SAVVEC are in the rootH.IFT $MINST .DATA ; and have addresses in the range of 120000 to 137777.IFT $MINST .DATA ;T.IFT $MINST .DATA ; o Not give the module SAVSIZ virtual addresses between 120000.IFT $MINST .DATA ; and 140000A.IFT $MINST .DATA ;.IFT $MINST .DATA .ROOT SAVROT1.IFT $MINST .DATA .PSECT DRVTAB,RW,D,GBL,REL,CONIa.IFT $MINST .DATA SAVROT: .FCTR '$LI'SAVINS/LB:SAVE:SAVVEC-MCRSUB-EXTERN-!(SAVRS1,SAVRS3,SAVRS2).E.IFT $MINST .DATA EXTERN: .FCTR '$TK'RSX11M.STB/SS-LB:[1,1]EXELIB/LBC8.IFT $MINST .DATA MCRSUB: .FCTR LB:[1,1]SYSLIB/LB:ARITH.IFT $MINST .DATA ;3.IFT $MINST .DATA ; First memory resident overlay.;E.IFT $MINST .DATA ; This overaly contains stuff used in bringing the$5.IFT $MINST .DATA ; sys006o9k;dDATADATADATADATAtem up and in taking it down.$.IFT $MINST .DATA ;M.IFT $MINST .DATA SAVRS1: .FCTR SAVCHK-SAVSAV-'$LI'MCR/LB:GNBLK:FMTDV-EXTERNVA.IFT $MINST .DATA SAVCHK: .FCTR '$LI'SAVINS/LB:SAVC1:SAVC2:SAVC3,O.IFT $MINST .DATA SAVSAV: .FCTR '$LI'SAVINS/LB:SAVFN:SAVSIZ:SAVSUB:HRSIZ:SCNDV.IFT $MINST .DATA ;4.IFT $MINST .DATA ; Second memory resident overlay.K.IFT $MINST .DATA ; This overlay contains modules that are device specific;7.IFT $MINST .DATA ; and are used only on the way down.$.IFT $MINST .DATA ;^.IFT $MINST .DATA SAVRS2: .FCTR '$LI'SAVINS/LB:SAVST:SAVBOT:SAVVB1:SCNDV-SPCDRV-DRVTAB-EXTERNU.IFT $MINST .DATA SPCDRV: .FCTR '$LI'SAVINS/LB:SAVDV1:SAVDK:SAVDP:SAVDL:SAVCM:SAVDV2:.IFT $MINST .DATA ;3.IFT $MINST .DATA ; Third memory resident overlay.SN.IFT $MINST .DATA ; This overaly contains the module SAVINS which is used forD.IFT $MINST .DATA ; both bringing the system up and taking it down..IFT $MINST .DATA ;=.IFT $MINST .DATA SAVRS3: .FCTR '$LI'SAVINS/LB:SAVINS-EXTERNT.IFT $MINST .DATA ;.IFT $MINST .DATA .END.IFT $MINST .CLOSES .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4LI'SAVINS/LB:SAVDV1:SAVDK:SAVDP:SAVDL:SAVCM:SAVDV2:.IFT $MINST .DATA ;3.IFT $MINST .DATA ; Third memory resident overlay.SN.IFT $MINST .DATA ; This overaly contains the module SAVINS which is used forD.IFT $MINST .DATA ; both bringing the system up and taking it down..IFT $MINST .DATA ;=.IFT $MINST .DATA SAVRS3: .FCTR '$LI'SAVINS/LB:SAVINS-EXTERNT.IFT $MINS .ONERR ERXIT0 .ENABLE SUBSTITUTION= .ENABLE GLOBAL. .SETF $UTYP12.;.; GENERATE SECBLD.CMD.;.IFF $11MPL .GOTO END; .OPEN '$CL'SECBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR SEC .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;, .DATA '$TK'SEC/-HD,'$MP'SEC/-SP,'$TK'SEC= .DATA '$LI'EUT/LB:SEC .DATA '$TK'RSX11M.STB/SSS .DATA / .DATA STACK=0 .DATA PAR=GEN:140000:200001 .DATA / .CLOSE:.END: .EXIT 1 .;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4TITUTION= .ENABLE GLOBAL. .SETF $UTYP12.;.; GENERATE SECBLD.CMD.;.IFF $11MPL .GOTO END; .OPEN '$CL'SECBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR SEC .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;, .DATA '$TK'SEC/-HD,'$MP'SEC/-SP,'$TK'SEC= .DATA '$LI'EUT/LB:SEC .DATA '$TK'RSX11M.STB/SSS .DATA / .DATA STACK=0 .DATA PAR=GEN:140000:200001 .DATA / .CLOSE:.END: .EXIT 1 .;$.; Exit for error encoun .ONERR ERXIT. .ENABLE SUBSTITUTIONL .ENABLE GLOBAL0 .SETF $UTYP1..;.; GENERATE SHABLD.CMD.;.; MODIFIED FOR M-PLUS V2.1 BY: .;.; J. C. FRANZINI 18-FEB-83A.; JCF136 -- ADD TASK IDENT.;%.; MODIFIED FOR RSX-11M-PLUS V3.0 BY: .;.; J. W. BERZLE 02-NOV-84 .; UPDATE IDENT.; .OPEN '$CL'SHABLD.CMD .DATA ;* .DATA ; TKB .CMD FILE FOR SHA, SHC, SHE .DATA ; '$COM'' .DATA ; CREATED BY '$BLDID' .DATA ;0 .DATA '$TK'SHA/-FP/CP/-SE/PR/MM,'$MP'SHA/-SP= .DATA '$OD'SHABLD/MP" .DATA IDENT=04.00 ;M-PLUS V3.0 .DATA UNITS=6 .DATA ASG=TI:1N .DATA ASG=TI:2; .DATA PRI=65  .DATA PAR='$GEN' .DATA TASK=...SHA .DATA / .DATA ; .DATA ;, .DATA '$TK'SHC/-FP/CP/PR/MM,'$MP'SHC/-SP= .DATA '$OD'SHCBLD/MPV" .DATA IDENT=04.00 ;M-PLUS V3.0 .DATA UNITS=4 .DATA ASG=TI:1A .DATA ASG=TI:2R .DATA PRI=60  .DATA PAR='$GEN'. .DATA TASK=SHC... .DATA / .DATA ; .DATA ;9 .DATA '$TK'SHE/-FP/CP/-SE/PR/MM,'$MP'SHE/-SP,'$TK'SHE= 0 .DATA '$LI'SHA/LB:SHAERR:SHAFND:SHALBN:SHADAT .DATA '$LI'PIPUTL/LB. .DATA '$LI'MCR/LB:FMTDV .DATA LB:[1,1]SYSLIB/LB:ARITH .DATA LB:[1,1]EXELIB/LB .DATA '$TK'RSX11M.STB/SSA .DATA /" .DATA IDENT=04.00 ;M-PLUS V3.0 .DATA UNITS=4 .DATA ASG=TI:10 .DATA PRI=200 .DATA PAR='$GEN'A .DATA TASK=SHE... .DATA ;? .DATA ; A USER SUBROUTINE (WHICH IS CALLED FROM SHAERR AFTER.< .DATA ; AN ERROR MESSAGE IS PRINTED) CAN BE ADDED TO SHE.@ 00k>EOl .DATA ; ADD THE MODULE ABOVE AND REMOVE THE FOLLOWING GBLPAT. .DATA ;7 .DATA GBLDEF=$SHUSR:0 ; USER SUBROUTINE NOT PRESENT .DATA //1 .CLOSEA.;.; GENERATE SHABLD.ODL.; .OPEN '$CL'SHABLD.ODL .DATA ; .DATA ; TKB .ODL FILE FOR SHA .DATA ; '$COM'I .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME SHADOW= .DATA .ROOT SHADOW-ROOT-ERROR-*(COMND,PARSE,PROCS),FCSTREH .DATA E$ .DATA ROOT: .FCTR C1-C2-C3-EXESYM% .DATA C1: .FCTR '$LI'SHA/LB:SHAIMP : .DATA C2: .FCTR '$LI'SHA/LB:SHAONC:SHAIOR:SHAMSG:SHAUCB: .DATA C3: .FCTR '$LI'SHA/LB:SHAROT:SHACRS:SHAPRC-CMDUTL .DATA ;6 .DATA PARSE: .FCTR '$LI'SHA/LB:SHAPRS:SHACTB-PRSUTL/ .DATA PRSUTL: .FCTR LB:[1,1]SYSLIB/LB:.TPARS .DATA ;( .DATA COMND: .FCTR '$LI'SHA/LB:SHACMD. .DATA CMDUTL: .FCTR LB:[1,1]SYSLIB/LB:.GCML .DATA ; .DATA ;$ .DATA PROCS: .FCTR *(STA,STO,DIS)& .DATA ;PROCS: .FCTR STA-STO-CON-DIS .DATA .NAME START-, .DATA STA: .FCTR START-'$LI'SHA/LB:SHAINT .DATA .NAME STOP2 .DATA STO: .FCTR STOP-'$LI'SHA/LB:SHASTP:SHAABO .DATA .NAME DISPLY? .DATA DIS: .FCTR DISPLY-'$LI'SHA/LB:SHADIS-'$LI'MCR/LB:FMTDVA .DATA ;8 .DATA EXESYM: .FCTR '$TK'RSX11M.STB-LB:[1,1]EXELIB/LB< .DATA ERROR: .FCTR '$LI'PIPUTL/LB:FCSERR:GERRM:GTKNM-MISC2 .DATA MISC: .FCTR '$LI'OLR/LB:EDTMG:CNERR:CNMSG .DATA A .DATA ; .DATA ; FCS TREE, .DATA ; .DATA C .DATA .NAME FCSOVS7 .DATA FCSTRE: .FCTR FCSOV-*(CSI,PRS,OPF,GET,PUT,CLO)S1 .DATA CSI: .FCTR LB:[1,1]SYSLIB/LB:.CSI1:.CSI2F9 .DATA PRS: .FCTR LB:[1,1]SYSLIB/LB:PARSE:PPNASC:UDIREC9 .DATA OPF: .FCTR LB:[1,1]SYSLIB/LB:OPFNB-(OP1-OP3,OP2)M1 .DATA OP1: .FCTR LB:[1,1]SYSLIB/LB:FINIT:RQLCBM, .DATA OP2: .FCTR LB:[1,1]SYSLIB/LB:RDWAIT, .DATA OP3: .FCTR LB:[1,1]SYSLIB/LB:ASSLUN; .DATA GET: .FCTR LB:[1,1]SYSLIB/LB:GETSQ:XQIOU:CATB:CBTA.+ .DATA PUT: .FCTR LB:[1,1]SYSLIB/LB:PUTSQ.8 .DATA CLO: .FCTR LB:[1,1]SYSLIB/LB:CLOSE:PNTMRK:DLFNB .DATA .END .CLOSEO.;.; GENERATE SHCBLD.ODL.; .OPEN '$CL'SHCBLD.ODL .DATA ; .DATA ; TKB .ODL FILE FOR SHC .DATA ; '$COM'A .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME CATUPT; .DATA .ROOT CATUP-ROOT-(*UTIL,*BUFFER,*FCSOVR,*FCSPUT)]A .DATA ROOT: .FCTR '$LI'SHA/LB:SHAMSG:SHAUCB:SHAINI:SHASTA-CONT.< .DATA CONT: .FCTR '$LI'SHA/LB:SHACOP:SHADAT:SHATBL-EXESYM; .DATA EXESYM: .FCTR '$TK'RSX11M.STB/SS-LB:[1,1]EXELIB/LB  .DATA .NAME SHAUTLNB .DATA UTIL: .FCTR SHAUTL-'$LI'SHA/LB:SHACQR:SHAONC:SHAIOR-ERRORC .DATA ERROR: .FCTR '$LI'PIPUTL/LB:FCSERR:GERRM:GTKNM-EXESYM-MISCR2 .DATA MISC: .FCTR '$LI'OLR/LB:EDTMG:CNERR:CNMSG .DATA ;! .DATA .NAME $COPBF,GBL,NODSK.0 .DATA BUFFER: .FCTR $COPBF-'$LI'SHA/LB:SHABUF .DATA ;# .DATA ; FCS OVERLAY DESCRIPTION H .DATA ; .DATA .NAME FCSOVNH .DATA FCSOVR: .FCTR LB:[1,1]SYSLIB/LB:OPEN:RQLCB-*(FCSBA,FCSBB,FCSBC)C .DATA FCSBA: .FCTR LB:[1,1]SYSLIB/LB:OPFID:CREATE:DEL:FINIT:MKDLA> .DATA FCSBB: .FCTR LB:[1,1]SYSLIB/LB:PARSE-*(FCSBBA,FCSBBB)6 .DATA FCSBBA: .FCTR LB:[1,1]SYSLIB/LB:PARSDI:PARSDV/ .DATA FCSBBB: .FCTR LB:[1,1]SYSLIB/LB:PARSFNG- .DATA FCSBC: .FCTR LB:[1,1]SYSLIB/LB:CLOSEB2 .DATA FCSPUT: .FCTR LB:[1,1]SYSLIB/LB:PUT:PUTSQ .DATA .END .CLOSE. .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4ATA FCSOVR: .FCTR LB:[1,1]SYSLIB/LB:OPEN:RQLCB-*(FCSBA,FCSBB,FCSBC)C .DATA FCSBA: .FCTR LB:[1,1]SYSLIB/LB:OPFID:CREATE:DEL:FINIT:MKDLA> .DATA FCSBB: .FCTR LB:[1,1]SYSLIB/LB:PARSE-*(FC .ONERR ERXITL .ENABLE SUBSTITUTION: .ENABLE GLOBALI .SETF $UTYP1T.;.; GENERATE SHFBLD.CMD.;.;.; Modified by: .;.; J. M. Lawler 14-Feb-83 0.; JL151 -- Make default /CP not /AL for M-PLUS.;.; H. Huang 21-Feb-83T.; HH168 -- Add IDENT option$.; .OPEN '$CL'SHFBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR SHF .DATA ; '$COM'I .DATA ; CREATED BY '$BLDID' .DATA ;6.IFF $11MPL .DATA '$TK'SHF/PR/AL/-FP/MM,'$MP'SHF/-SP=6.IFT $11MPL .DATA '$TK'SHF/PR/CP/-F00FGJdDATADATADATADATAP/MM,'$MP'SHF/-SP=.IFT $11M .DATA '$LI'SHUFL $.IFT $11MPL .DATA '$LI'EUT/LB:SHUFL .DATA '$TK'RSX11M.STB/SS .DATA LB:[1,1]EXELIB/LB .DATA / .DATA WNDWS=2 .DATA UNITS=0 .DATA TASK=SHF... .DATA STACK=10n .DATA PRI=105 .DATA PAR='$SYPAR'o .DATA IDENT=6.00' .DATA / .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4$BLDID' .DATA ;6.IFF $11MPL .DATA '$TK'SHF/PR/AL/-FP/MM,'$MP'SHF/-SP=6.IFT $11MPL .DATA '$TK'SHF/PR/CP/-F8 00ĥۇAĥĊ  0Fb00 0 @0 &*0 @ u * eBe>  # # r,}.i:q:>r"&JilD #=0/H#@&0 # = e0   0@vq:e 6=#02/002# @#?@#040 6w/&!0/ lbfBd0/!/0/l0p!0 .=p0p2zF`W Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@RaVN@f@@ft:@fy:@cIq@  D"0^h'h  D"w  D 8#"#)%ĥ ĥ wt 0 o sfy:|*0 @Q$    0 40 60))eB L \# U&* =w `p!28aVNPft: EW!p0p2 ׇ#( P) @#**fff  &*w&cIq@eZfd?!veZtj. nB58e$8w2A&e 4p8q  (#5=As<sD#@)) *R*)@#0l C# 028 0 .ONERR ERXIT .ENABLE SUBSTITUTION .ENABLE GLOBAL.;.; GENERATE SLNBLD.CMD.; .SETT $UTYP1 .OPEN '$CL'SLN'$TYP1'BLD.CMD .DATA ;! .DATA ; TKB BUILD FILE FOR SLN .DATA ; '$COM'(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID' .DATA ;; .DATA '$TK'SLN'$TYP2'/-FP/CP'$MMSW','$MP'SLN'$TYP2'/-SP= .DATA '$OD'SLN'$TYP1'BLD/MP .DATA TASK=...SLP .DATA STACK=100 .DATA UNITS=6! .DATA ASG=TI:1,TI:2,SY:3:4:5:6  .DATA PAR='$GEN'B.IFF $FCSTK .DATA '$LIBOP'6 .DATA GBLDEF=A$UDEF:10 ;DEFAULT SIZE OF AUDIT TRAIL- .DATA GBLDEF=L$LGTH:130 ;DEFAULT LINE SIZE;) .DATA GBLDEF=P$GLGH:67 ;LINES PER PAGE .DATA ;" .DATA ; SLP ACTION CONTROL WORD .DATA ;H .DATA ; THE FOLLOWING WORD DETERMINES WHAT SLP WILL DO BY DEFAULT. ITI .DATA ; IS DETERMINED IN THE BUILD FILE VIA GBLDEF=D$FLTS:X WHERE X IS'8 .DATA ; THE DEFAULTS TO BE WRITTEN TO THE SWITCH WORD% .DATA ; SOME IMPORTANT VALUES ARE:: .DATA ;# .DATA ; X=000000 NORMAL BEHAVIORL= .DATA ; X=020000 DEVELOPMENT SLP - INFERS /SQ ON ALL FILESA .DATA ; X=100001 BASE-LEVEL SLP - INFERS /-AU,/NS ON ALL FILESL .DATA ;2 .DATA GBLDEF=D$FLTS:100001 ;DEFAULT SWITCH WORD .DATA ;1 .DATA EXTSCT=$$AUD0:20 ;MAX AUDIT TRAIL LENGTHA) .DATA EXTSCT=$$LNB0:204 ;MAX LINE SIZE .DATA / .CLOSE .;.; GENERATE SLNBLD.ODL.; .OPEN '$CL'SLN'$TYP1'BLD.ODLB .DATA ; .DATA ; TKB ODL FILE FOR SLN  .DATA ; '$COM'E(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIBE .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME SLP%.IFT $FCSTK .DATA .ROOT SLPTR,FCSTRL.IFF $FCSTK .DATA .ROOT SLPTRL2.IFT $FCSTK .DATA SLPTR: .FCTR SLP-R1-R2-*(O1,O2)/.IFF $FCSTK .DATA SLPTR: .FCTR SLP-R1-R2-O1-O2A= .DATA R1: .FCTR '$LI'SLP/LB:SLPR11:CMPRS:GETLN:GTSLP:IOSLP;> .DATA R2: .FCTR '$LI'SLP/LB:PUTLN:ERSLP:SLPSB:SLPCRC:SLPPRE .DATA ;* .DATA O1: .FCTR '$LI'SLP/LB:OPNFL:SCSLPG00NPOl.IFF $FCSTK .DATA O2: .FCTR '$LI'SLP/LB:POSIT-LB:[1,1]SYSLIB/LB:.TPARSUG.IFT $FCSTK .DATA O2: .FCTR '$LI'SLP/LB:POSIT-LB:[1,1]SYSLIB/LB:.TPARS .IFT $FCSTK .DATA ;.IFT $FCSTK .DATA ;.IFT $FCSTK .DATA .NAME FCST5.IFT $FCSTK .DATA FCSTR: .FCTR FCS-*(F1,F2,F3,F4,F5)4.IFT $FCSTK .DATA F1: .FCTR LB:[1,1]SYSLIB/LB:PARSE4.IFT $FCSTK .DATA F2: .FCTR LB:[1,1]SYSLIB/LB:OPFNB@.IFT $FCSTK .DATA F3: .FCTR LB:[1,1]SYSLIB/LB:.CSI1:.CSI2:OD2CT:.IFT $FCSTK .DATA F4: .FCTR LB:[1,1]SYSLIB/LB:GETSQ:PUTSQ@.IFT $FCSTK .DATA F5: .FCTR LB:[1,1]SYSLIB/LB:CLOSE:DSPAT:DLFNB.IFT $FCSTK .DATA ; .DATA .END .CLOSEP .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4IFT $FCSTK .DATA .NAME FCST5.IFT $FCSTK .DATA FCSTR: .FCTR FCS-*(F1,F2,F3,F4,F5)4.IFT $FCSTK .DATA F1: .FCTR LB:[1,1]SYSLIB/LB:PARSE4.IFT $FCSTK .DATA F2: .FCTR LB:[1,1]SYSLIB/LB:OPFNB@.IFT $FCSTK .DATA F3: .FCTR LB:[1,1]SYSLIB/LB:.CSI1:.CSI2:OD2CT:.IFT $FCSTK .DATA F4: .FCTR LB:[1,1]SYSLIB/LB:GETSQ:PUTSQ0ĥrhblۇAĥĊ  000 0 @0 &*0 @ u # eB&B B &2r,}Pi\q:rrSzmlE~r"&* eBe>  # #D #=0/H#@&id0 # = e0   0@e 6=#02/002# :q:@#?@#040 6w/&!0/ l0/!/0/l0p!0 .=p0p2&f\Z:dw =Ds.@D@o@  D"0pwh wh  D"w *  ע"wf)Ĕ%.&%;D  5)5@DD ͥ*Ce e%w UojD|\5@ 5U U*U  "5@\U@5 5LU*U  ʥ*%C!.D` *weC5U5  5 54s.t@e*=U Ee& REe  ӥ" wV ˥"   ˥" (Ք     Օ zafZ Db@e&@e&@c@r@i @c2 @w@aK@  D"0pZh   D"=D `p46 f 64/=  @) 0  8w 46 ,i $e&0wNchblc2 zaK$|8 e*w re&z\g4De&@py@r@r@w@w@pJ,@o@mo@i@aZ@r,}@*f@  D"0D}h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pJ,|2Υ   v Ε f e * *e*w@)mo>wTr,}rf *0,   )*)'   =  l 0lpy r2e&t   4/ e&=Ba@a e0b e aZdie@ ` Y= E8 el0  & 0 l0`p l064p 4 lep )wV%  ,  N w"  L B # wTr,}rf   )*)'   =  l 0l  re&paZt 0/ e&=Ba@a e0b ee@ ^Li W= E8 el0  & 0 l0`p l064p 4 ep )lwn%  ,  w>  LwB # f  &$aZ2aZ =00l&8el2 0 |*Js"& Ds@@  D"0Nr"&h  D"R82e& 0 0 0 80 B0 0 0 0)#0.s"ZtL (Dxk@q:@i@  D"00rkhwkh  D"4 U8UMw wi&q:2xkR$t_ Dw@aK@s2 @  D"0rh  D"&4&6= 64 wz%!64=5 2 6  l0 & Z46 s2 Fs2 `|64 :)0406 0 *0e6p 4 = aKPwJw Dw@f@  D"0BwL h  D"F B 00fep=& /e`pwwDfz4ΨDb@wt@rw@bG@wk@a[M@f@  D"0whwh  D" ..8em,0l0!D0e6p 4.) &f   bG`a[Mlwkprw|wt8|e) .  e6p 4 08*w,b6fRd DbG@w@aZ@  D"0Pwh  D"T)"(. = . B  E (.bGFaZJwj:dvw4εDs@s@o@aVN@\D@  D"0pvwh vwh  D"w *D YTfe<ӕ_ S :ӕ: & "& Ε4'o0s|sx| *'**UqqC ӥ:  Ce   *ssP\DhaVNz:dw D&p &@s@[;@piw@pvw@pw@o@aVN@  D"0}sh p# h*s}h  D"eB  8 $&w *<P1   H U U@  f&"  aVN&oR[;fpwxp &l|'&'* *%0*ND      ,sssJaVN\pvwbpiwhpwJ#L?WDp &@s@  D"00eh  D"4&ff  00^hdOl'p &"sj &( =Ds@  D"0yyph &hByy y y((  BBFF y b=>D&p &@s@@$9pw@@=@ Cx0,=h Cx eeȵe ~  DE  ȵ2e &e  %'@^e5 *@=Xp &`$9pwbs|5@558Beeȵee& q1B$8e q1 B  z\g4lD @e&@py@r@r@w@w@pJ,@o@mo@i@aZ@2r,}@f@  D"0@}h  D"w n832cd& & & B  2OΕ   N Υ$Ε  2o pJ,|2Υ   v Ε f e * e*w@) mo>wTr,}` pf *0,   ) )(   =  l 0l pyr0e&> t  4/ e&=Ba@a e0b e aZbie@ ` Y= E8 el0  & 0 l0`p l064p 4 elp )wV%  ,  N w"  J B # :aZHaZVr,}^wjr\ f  `* w)0406 l0 mo. 2fz\ghy4lD @e&@r@w@w@pK,@o@mo@i@sk@aZ@r,}@*f@  D"0$ h  D"w n832cd& & & B  2OΕ   N Υ$Ε  2o pK,|2Υ   v Ε f e * e*w@)0, mo>wTr,}` pf   ) )(   =  l 0l  re&& naZt 0/ e&=Ba@a e0b ee@ ^Ji W= E8 el0  & 0 l0`p l064p 4 ep )lwn%  ,  w>  JwB # f  &"aZ0aZ:r,}BwNskhmo .ONERR ERXITE .ENABLE SUBSTITUTIONA .ENABLE GLOBAL1 .SETT $UTYP1E.;.; GENERATE SYLBLD.CMD.; .OPEN '$CL'SYL'$TYP1'BLD.CMDB .DATA ; .DATA ; TKB .CMD FILE FOR SYL .DATA ; '$COM'B(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIB1 .DATA ; CREATED BY '$BLDID' .DATA ;> .DATA '$TK'SYL'$TYP2'/CP/PR/-FP/MM/-IP,'$MP'SYL'$TYP2'/-SP=( .DATA '$LI'ACC/LB:$ULUAB:SYSLOG:GBLDF .DATA '$LI'ACC/LB .DATA '$LI'MCR/LB:BLKSUB. .DATA '$TK'RSX11M.STB/SS .DATA / .DATA TASK=SYSLOG# .DATA IDENT=03.00 ; M-PLUS V3.0 .DATA PRI=130 .DATA PAR='$GEN'N .DATA UIC=[1,1] .DATA ASG=TI:1 .IFF $FCSTK .DATA '$LIBOP'L .DATA //' .CLOSEF .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4.DATA ; CREATED BY '$BLDID' .DATA ;> .DATA '$TK'SYL'$TYP2'/CP/PR/-FP/MM/-IP,'$MP'SYL'$TYP2'/-SP=( .DATA '$LI'ACC/LB:$ULUAB:SYSLOG:GBLDF .DATA '$LI'ACC/LB .DATA '$LI'MCR/LB:BLKSUB. .DATA '$TK'RS00fhjlDATADATADATADATA.;.; J. GALLANT 18-FEB-83T1.; JG0047 - ADD IDENT SWITCH FOR UPDATE PROCEDUREE.; .ONERR ERXITA .ENABLE SUBSTITUTIONA .ENABLE GLOBALL .SETF $UTYP1S.;.; GENERATE SYSBLD.CMD.;7.; NOTE: THIS .CMD FILE USES THE VERSION OF SYSBLD.ODL.!.; GENERATED BY MCMBLD.BLDC.; .OPEN '$CL'SYSBLD.CMD .DATA ;; .DATA ; TKB .CMD FILE FOR SYS (MULTI-USER MCR SECONDARY)O .DATA ; '$COM'A .DATA ; CREATED BY '$BLDID' .DATA ;5 .DATA '$TK'SYS/-SG/PR/-SE/-FP'$MMSW','$MP'SYS/-SP= .DATA '$OD'SYSBLD/MP .DATA UNITS=4 .DATA ASG=TI:1T .DATA ASG=CL:2  .DATA ASG=SY:3.& .DATA ASG=TI:4 ; ERROR MESSAGE LUN .DATA STACK=64 .DATA TASK=...MCR .DATA IDENT=3.00H .DATA PRI=160 .DATA PAR=GEN:'$GPB':20000 .DATA / .CLOSEL .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4R SYS (MULTI-USER MCR SECONDARY)O .DATA ; '$COM'A .DATA ; CREATED BY '$BLDID' .DATA ;5 .DATA '$TK'SYS/-SG/PR/-SE/-FP'$MMSW','$MP'SYS .ONERR ERXITt .ENABLE SUBSTITUTION  .ENABLE GLOBALe .SETF $UTYP1A.;.; GENERATE TDXBLD.CMD.;.; MODIFIED FOR M-PLUS V2.2 BY:G.;.; J. C. FRANZINI 31-JAN-843.; JCF152 -- FIX GIN DIRECTIVE FOR FLYING INDIRECTA.; BUILD TDX /PR:0E.; .OPEN '$CL'TDXBLD.CMD .DATA ; TKB .CMD FILE FOR TDX .DATA ; '$COM' .DATA ; CREATED BY '$BLDID' .DATA ;9.IFT $11M .DATA '$TK'TDX/PR'$MMSW','$MP'TDX/-SP='$LI'TDX-D.IFT $11MPL .DATA '$TK'TDX/PR:0'$MMSW','$MP'TDX/-SP='$LI'TDX/LB:TDX".IFT $11M .DATA LB:[1,1]EXELIB/LB#.IFT $11M .DATA '$TK'RSX11M.STB/SS .DATA / .DATA TASK=...CA. .DATA PRI=150 .DATA PAR='$GEN'.".IFT $11MPL .DATA GBLDEF=$ALOCB:0".IFT $11MPL .DATA GBLDEF=$TKTCB:0!.IFT $11MPL .DATA GBLDEF=U.UIC:0".IFT $11MPL .DATA GBLDEF=$FMASK:0".IFT $11MPL .DATA GBLDEF=$LBUIC:0!.IFT $11MPL .DATA GBLDEF=$QMCR:0$ .DATA / .CLOSET .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4 K'TDX/PR:0'$MMSW','$MP'TDX/-SP='@`* w)0406 l0  fZ  ΥD @f@  D"0ziWhrwh`i h  D"~46f %8 E D/D!D l0l8epl0pɥ.ɕ wx |fb& %D @q:@i@o@  D"0tch`rh  D"xw  )  fU %  BA `6p 4p`4 %60 4o $i6q:j &( eDs@  D"0yyph &hByy y y((  BBFF y b& %D @q:@i@o@  D"0tch`rh  D"xw  )  fU2,d D  D"0bK VN Ds@s@o@f@  D"0;VNhaVNh  D"w BC "& <SY*p0p21E%0*w*e "fo6sbffs"| D CB.E2  D  D"0rw4'Ds@r"&@q:@w@i@o@f@  D"0 `h  D"w *8I *=)98 eB &&  U **o"w8ihq:|e *Nlv ΋*.)  & #!)&ePe && 2i^s~q:p* wr"&fZ& gDq:@i@o@  D"06ch `rh  00ndOlD":w  )*  U o&i6q:Ze ӧDs@q:@i@f@  D"0vcIqh  D"z0f& e %&&eH U   Ef p  ws8i`q:xfZz Dq:@i@  D"06eZhrShft:h   D":    f u    i(q:: & D  D"0h  D" z, 'De&@py@r@r@pJ,@o@mo@f@  D"0}h  D"w ) 8C * ) *w*  ep p &o pJ, rNfbpyje&| C  =  0* = Eե^ A e@ v߇ Ep |p  , J *` |r:tC#   D mor,hy 'De&@r@pK,@o@mo@sk@f@  D"0 h  D"w ) 8C * ) *w* ep p   o pK, rNfZe&|C  =  0* = Eե^ A e@ ߇ Ep p  8 V *`)w rskxr6tC#   D mozE`W Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@Rf@@ft:@fy:@cIq@s}@  D"0Hhp!h  D"w  D 8#"#)%ĥ ĥ w  0 o sfy:|*0 @Q$    0 40 60))  :# 3&*w #( P) @#2s}Jft:XcIqreZ**fff  &*wL. P358e$8w22&e  d?!,eZPsnsvt%p8q #) *R*)@#0l C# 028 0&r|b0ĥۇAĥĊ  000 0 @0 &*0 @ u # eBFr,}dipq:l&B B * eBe>  # #D #&0  rSmlEr"&"id#   0@e 6@#040 6w!p2$q:NfzE`PZ Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@baVN@f@@ft:@fy:@cIq@s}@  D"0d^Whh!h  D"w & w  D  8#"#)%ĥ ĥ oos fy:|w 0 *0 @Q$    0 40 60))  eB  :# 3&*w #(Bs}NaVNfft:tcIq P) @#**fff  &*wL. P358e$8w2eZ8d?!HeZlst2&e %p8q #) *R*)@#0l C# 02sBr돀00vhjlDATADATADATADATA8 00ĥۇAĥĊ  000 0 @0 &*0 @ bbr,}lu # eB&B B * eBe>  # #D&iq:&rS.mlE2r"&>i #&0 #   0@e 6@#040 6w!p2@q:jfzF`8 Db@s@r"&@r@q:@i@o@r,}@aVN@f@@fy:@"  D"0h&h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60))eB &*   w6 . 2358e$8aVNxs8w22&e %p8q #) *R*)@#0l Cs"Nr돀t# 028 00ĥۇAĥĊ  000 0 @0 (bnr,}&*0 @ u * eBe>  # #D #iq: r"&,inl&0 #   0@e 6@#040 6w!p2.q:XfzF`W Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@RaVN@f@@ft:@fy:@cIq@  D"0Nh'h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60))eB  :# 3&*w #( P) @8aVNPft:^cIqxeZ#**fff  &*wL. P358e$8w22&e  "d?!2eZVsts|t%p8q #) *R*)@#0l C# 028,r돀 00ĥۇAĥĊ  000 0 @0 &*0 @ u # bLr,}jivq:leB&B B * eBe>  # #D #&rSmlEr"&(ij0 #   0@e 6@#040 6w!p2*q:TfZ:dw =Ds.@D@o@  D"0zpwh wh  D"w *  )Ĕ%.&%;D  5)5@DD ͥ*Ce a%wUX5@ o^D|5U U*U  5@XU@5 U*U  ʥ*%C!.D` *weC5U5  5 5@e s. t*jafZ De&@e&@r@c2 @w@aK@  D"0`pZh  D"d 6 p 4 0`p f 64 46 e*w & e&,w:c2 HaKNr\e&z\g4De&@py@r@r@w@w@pJ,@o@mo@r,}@f@  D"0}h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pJ,|2Υ   v Ε f e * *e*w mo>wTr,}rf~py*0,00~dOl L  )*)   l 0l  r,e&t   ee@ x0 j) E ep )w ,  N w  L B # f  `**r,}2w>rXmo2l*w)0406 l0 fz\ghy4De&@r@w@w@pK,@o@mo@sk@r,}@f@  D"0~ h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pK,|2Υ   v Ε f e * *e*w0, mo>wTr,}rf~r H  )*)   l 0l   e&t  ee@ t. f' E ep )w ,  w  LwB # f  `**w)0406 r,}w"skwTr,}` pf|py*0, L  ) )    l 0l  r*e&8 t   ee@ x0 j) E ep )w ,  N w  J B # f  `* w (r,}0wwTr,}` pf|rH  ) )    l 0l   e& t  ee@ t. f' E ep )w ,  w  JwB # f  `* w)0406 & r,}w sk:mo` dfll0 2  ΥD  D"0b& %D @q:@i@o@  D"04ch`rh  D"8w  )  U o $i4q:p )w ,  w  JwB # f  `* w)0406 & r,}w sk:mo` dfll0 2  ΥD  D"0b& :,d D  D"0aZh  D" =p!Օ^bK VN Ds@s@o@f@  D"0;VNhaVNh  D"w BC "& @SY*p0p210=E%0=w*e "fo6sffjs&| D CB.ER  Df@  D"0|iWhrwh`i h  D"46f %8 E D/D!D l0l8epl0pɥ .ɕ*w~frw4(Ds@r"&@q:@w@i@o@f@  D"0`h  D"w *8I *=)98 eB &&  U **o"w8ihq:|e *Nlv ΋*.2   .ONERR ERXIT .ENABLE SUBSTITUTIOND .ENABLE GLOBALI .SETF $UTYP14.;.; GENERATE TKNBLD.CMD.;.;.; MODIFIED FOR M-PLUS V2.2:.;.; J. J. MELVIN 14-AUG-844.; JJM001 -- UPDATE TASK IDENT AFTER ADDING SYMBOLS.; .OPEN '$CL'TKNBLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR TKN .DATA ; '$COM'G .DATA ; CREATED BY '$BLDID' .DATA ;>.IFF $11MPL .DATA '$TK'TKN/-FP/-SE/AL/PR'$MMSW','$MP'TKN/-SP=>.IFT $11MPL .DATA '$TK'TKN/-FP/-SE/CP/PR'$MMSW','$MP'TKN/-SP= .DATA '$LI'MCR/LB:TKTN$.IFT $11MPL .DATA '$LI'MCR/LB:TISET .DATA LB:[1,1]EXELIB/LB .DATA '$TK'RSX11M.STB .DATA /*.IFT $11M .DATA IDENT=05.00 ; TASK IDENT.IFT $11MPL .DATA IDENT=06.10 .DATA PRI=248 .DATA UNITS=1( .DATA ASG=TI:1 ; TERMINAL OUTPUT LUN .DATA STACK=25M .DATA PAR='$SYPAR'A .DATA TASK=TKTN .DATA / .CLOSE .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4IFT $11MPL .DATA '$TK'TKN/-FP/-SE/CP/PR'$MMSW','$MP'TKN/-SP= .DATA .ONERR ERXIT. .ENABLE SUBSTITUTION .ENABLE GLOBALV.;.; Generate UFDBLD.CMD.;.; .; Modified:.;5.; TD312 - Modifications to support named directories/.;.;L.; Alex Conta 06/08/84 Delete the conditionalizing for Micro/RSX tasknames.; .SETF $UTYP1 .OPEN '$CL'UFDBLD.CMD .DATA ;! .DATA ; TKB BUILD FILE FOR UFDC .DATA ; '$COM'H .DATA ; CREATED BY '$BLDID' .DATA ;0 .DATA '$TK'UFD/-FP/CP'$MMSW'/PR,'$MP'UFD/-SP=4 .DATA '$LI'FIL/LB:UFD:UFDPAR:UFDMSG00Ol:TPARS2:TPNUMB .DATA LB:[1,1]EXELIB/LB .DATA '$TK'RSX11M.STB/SS; .DATA / .DATA TASK=...UFD .DATA UIC=[1,1] .DATA IDENT=06.00 .DATA UNITS=3 .DATA ASG=TI:1; .DATA ASG=TI:28 .DATA ASG=TI:3t .DATA PRI=100 .DATA TSKV=$SSTVC:10  .DATA STACK=400 .DATA PAR='$GEN' .DATA / .CLOSET .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4 .DATA ;0 .DATA '$TK'UFD/-FP/CP'$MMSW'/PR,'$MP'UFD/-SP=4 .DATA '$LI'FIL/LB:UFD:UFDPAR:UFDMSG .ONERR ERXIT .ENABLE SUBSTITUTIONA .ENABLE GLOBAL.;.; Generate UMLBLD.CMD.; .SETF $UTYP1y .OPEN '$CL'UMLBLD.CMD .DATA ; < .DATA ; TKB COMMAND FILE FOR UML - DEUNA MICROCODE LOADER .DATA ; '$COM'A .DATA ; USING SYSLIB: .DATA ; CREATED BY '$BLDID' .DATA ; 3 .DATA '$TK'UML/-SE/-FP/PR:5'$MMSW','$MP'UML/-SP=T .DATA '$LI'UML/LB:UML .DATA '$TK'RSX11M.STB/SS. .DATA / .DATA TASK=UML... .DATA IDENT=01.00 .DATA ASG=TI:3. .DATA PAR='$GEN'  .DATA PRI=100 .DATA STACK=64O .DATA //E .CLOSE; .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4ATA ; < .DATA ; TKB COMMAND FILE FOR UML - DEUNA MICROCODE LOADER .DATA ; '$COM'A .DATA ; USING SYSLIB: .DATA ; CREATED BY '$BLDID' .DATA ; 3 .DATA '$TK'UML/-SE/-FP/PR:5'$MMSW','$MP'UML/-SP=T .DATA '$LI'UML/LB:UML .DATA '$TK'RSX11M.STB/SS. .DATA / .DATA TASK=UML... .DATA IDENT=01.00 .DATA ASG=TI:3. .DATA PAR='$G .ONERR ERXITE .ENABLE SUBSTITUTIONR .ENABLE GLOBAL* .SETT $UTYP1.;.; GENERATE UNLBLD.CMD.;.; Modified by: .;.; H. Huang 9-May-83!.; HH172 -- Add UNL EXP supportR.;.; J. W. Berzle 08-Jan-85T2.; JWB124 -- Create an .ODL file and overlay FCS .;.; C. B. Petrovic 16-Mar-85L4.; CBP162 -- Correct overlay structure for UNL when-.; built against either FCSRES or FCSFSL.B.; .OPEN '$CL'UNL'$TYP1'BLD.CMD .DATA ; .DATA ; TKB .CMD FILE FOR UNL .DATA ; '$COM'.(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID' .DATA ; .DATA ; NOTE:: .DATA ; EXPSB MUST BE PLACED BETWEEN 120000 AND 140000 .DATA ; .DATA ;C .DATA '$TK'UNL'$TYP2'/PR/-FP/-CP/-IP'$MMSW','$MP'UNL'$TYP2'/-SP=i .DATA '$OD'UNL'$TYP2'BLD/MP .DATA TASK=...UNL.IFF $FCSTK .DATA '$LIBOP'a .DATA IDENT= 5.0  .DATA STACK=64P .DATA UNITS=5 .DATA WNDWS=1 .DATA ASG=TI:1. .DATA PAR='$GEN'. .DATA PRI=50I .DATA / .CLOSEI.;.; GENERATE UNLBLD.ODL.; .OPEN '$CL'UNL'$TYP2'BLD.ODLE .DATA ;+ .DATA ; TKB .ODL FILE FOR UNL'$TYP2'.TSK; .DATA ; '$COM'C(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIB' .DATA ; CREATED BY '$BLDID' .DATA ; .IFF $FCSTK .DATA .ROOT UNLROT-.IFT $FCSTK .DATA .ROOT UNLROT-*(FCS1,FCS2)P6 .DATA UNLROT: .FCTR UNL1-UNL2-UNL3-EXE-CNVRT-RSX11ME .DATA UNL1: .FCTR LI:[1,24]LOA/LB:UNLCTL:EXPSB:UNLFIL:UNLEXP:DFSYM.* .DATA UNL2: .FCTR LI:[1,24]LOA/LB:SCNDVI .DATA UNL3: .FCTR LI:[1,24]LOA/LB:GTBYT:ERMSG:IODAT:LDUIC:SYMTB:ICBDEF.% .DATA EXE: .FCTR LB:[1,1]EXELIB/LB;;.IFF $FCSTK .DATA CNVRT: .FCTR LB:[1,1]SYSLIB/LB:CAT5:C5TA'K.IFT $FCSTK .DATA CNVRT: .FCTR LB:[1,1]SYSLIB/LB:CAT5:C5TA:EXST:CATB:CDDMGA- .DATA RSX11M: .FCTR TK:[1,54]RSX11M.STB/SST=.IFT $FCSTK .DATA FCS1: .FCTR LB:[1,1]SYSLIB/LB:PARSE:DIRFNDL6.IFT $FCSTK .DATA FCS2: .FCTR LB:[1,1]SYSLIB/LB:OPFNB .DATA .END .CLOSEF .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4CTR LI:[1,24]LOA/LB:GTBYT:ERMSG:IODAT:LDUIC:SYMTB:ICBDEF.% .DATA EXE: .FCTR LB:[1,1]EXELIB/LB;;.IFF $FCSTK .DATA CNVRT: .FCTR LB:[1,1]SYSLIB/LB:CAT5:C5TA'K.IFT $FCSTK .DATA CNVRT: .FCTR LB:[1,1]SYSLIB/LB:CAT5:C5TA:EXST:CATB:CDDMGA- .DATA RSX11M: .FCTR TK:[1,54]RSX11M.STB/SST=.IFT $FCSTK .DATA FCS1: .FCTR LB:[1,1]SYSLIB/LB:PARSE:DIRFNDL6.IFT $FCSTK .DATA FCS2: .FCTR LB:[1,1]SYSLIB/LB:OPFNB .DATA .END .CLOSEF .EXIT 1.;00DATADATADATADATA& #!)&ePe && >2i^s(e >E p* wq:"r"&&fZ& lDq:@i@o@  D"0vch `rh  D"zw  )*  fU %  BA `6p 4p`4 %60 4o&i8q:Ze ӬDs@q:@i@f@  D"0cIqh  D"M=f& e %&&eH =&e0  U   E >  sXi8|>E=uf p  wq:6fZz Dq:@i@  D"0HeZhrShft:h   D"L   f >5>Eu    i:q:: & D  D"0h  D" z, ,De&@py@r@r@pJ,@o@mo@s2 @f@  D"0l}h   D"w ) 8C 8* ) *w*   ep &o pJ, rNfbpyre&|p  އ#= EW9ť^*0 ` Ca C  = L  0* = Eե^ A e@ ߇ = Ep2!t)8eE`l0  0 0/ &l0 `p l064p 4 p  ,Vs2  J *` C#   D @)  6?0D)&rBmoz,hy ,De&@r@pK,@o@mo@sk@s2 @f@  D"0d h  D"w ) 8C $* ) *w*  ep p   o pK, rNf^e&|#= EW9ť^*0 ` Ca C  = X  0* = Eե^ A e@ ߇ = Ep2!)8eE`l0 t 0 0/ &l0 `p l064p 4 p  8 V Bs2 x*`)w C#   D @)  6?0D)skr:mozE`W Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@Rf@@ft:@fy:@cIq@s}@  D"0Xhp!h  D"w  D 8#"#)%ĥ ĥ wn 0 o sfy:|*0 @Q$    0 40 60)) L \# U&* =w `p!22s}Jft: EW!p0p2 ׇ#( P) @#**fff  &*wj cIq:eZ`d?!peZt. nB58e$8w2A&e 4p8q  (#5=A#s6s>@)) *R*)@#0l C# 028 00ĥۇ rbblAĥĊ  000 0 @0 &*0 @ u # eB&B B *&,r,}JiVq:lrStmlExr"& eBe>  # #D #=0/H#@&0 id# = e0 00Ol  0@e 6=#02/002# @#4q:|?@#040 6w/&!0/ l0/!/0/l0p!0 .=p0p2 fzE`PZ Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@baVN@f@@ft:@fy:@cIq@s}@  D"0t^Whh!h  D"w & w  D  8#"#)%ĥ ĥ oos fy:|w~ 0 *0 @Q$    0 40 60))  eB L \# U&* =Bs}NaVNfft:w `p!2 EW!p0p2 ׇ#( P) @#**fff   # #D #= rSmlEr"&$id0/H#@&0 # = e0   0@e 6=#02/002Pq:# @#?@#040 6w/&!0/ l0/!/0/l0p!0   # # r,}.i:q:>r"&JilD #=0/H#@&0 # = e0   0@vq:e 6=#02/002# @#?@#040 6w/&!0/ lbfBd0/!/0/l0p!0 .=p0p2zF`W Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@RaVN@f@@ft:@fy:@cIq@  D"0^h'h  D"w  D 8#"#)%ĥ ĥ wt 0 o sfy:|*0 @Q$    0 40 60))eB L \# U&* =w `p!28aVNPft: EW!p0p2 ׇ#( P) @#**fff  &*w&cIq@eZfd?!veZtj. nB58e$8w2A&e 4p8q  (#5=As<sD#@)) *R*)@#0l C# 028 000DATADATADATADATA0ĥrhblۇAĥĊ  000 0 @0 &*0 @ u # eB&B B &2r,}Pi\q:rrSzmlE~r"&* eBe>  # #D #=0/H#@&id0 # = e0   0@e 6=#02/002# :q:@#?@#040 6w/&!0/ l0/!/0/l0p!0 .=p0p2&f\Z:dw =Ds.@D@o@  D"0pwh wh  D"w *  ע"wf)Ĕ%.&%;D  5)5@DD ͥ*Ce e%w UojD|\5@ 5U U*U  "5@\U@5 5LU*U  ʥ*%C!.D` *weC5U5  5 54s.t@e*=U Ee& REe  ӥ" wV ˥"   ˥" (Ք     Օ zafZ Db@e&@e&@c@r@i @c2 @w@aK@  D"0pZh   D"=D `p46 f 64/=  @) 0  8w 46 ,i $e&0wNchblc2 zaK$|8 e*w re&z\g4De&@py@r@r@w@w@pJ,@o@mo@i@aZ@r,}@*f@  D"0D}h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pJ,|2Υ   v Ε f e * *e*w@)mo>wTr,}rf *0,   )*)'   =  l 0lpy r2e&t   4/ e&=Ba@a e0b e aZdie@ ` Y= E8 el0  & 0 l0`p l064p 4 lep )wV%  ,  N w"  L B # wTr,}rf   )*)'   =  l 0l  re&paZt 0/ e&=Ba@a e0b ee@ ^Li W= E8 el0  & 0 l0`p l064p 4 ep )lwn%  ,  w>  LwB # f  &$aZ2aZ =00l&8el2 0 |*Js"& Ds@@  D"0Nr"&h  D"R82e& 0 0 0 80 B0 0 0 0)#0.s"ZtL (Dxk@q:@i@  D"00rkhwkh  D"4 U8UMw wi&q:2xkR$t_ Dw@aK@s2 @  D"0rh  D"&4&6= 64 wz%!64=5 2 6  l0 & Z46 s2 Fs2 `|64 :)0406 0 *0e6p 4 = aKPwJw Dw@f@  D"0BwL h  D"F B 00fep=& /e`pwwDfz4ΨDb@wt@rw@bG@wk@a[M@f@  D"0whwh  D" ..8em,0l0!D0e6p 4.) &f   bG`a[Mlwkprw|wt8|e) .  e6p 4 08*w,b6fRd DbG@w@aZ@  D"0Pwh  D"T)"(. = . B  E (.bGFaZJwz\g.;.; CATHY Z 21-FEB-83.; CDZ029 - ADD TASK IDENTSC.; .ONERR ERXITB .ENABLE SUBSTITUTIONA .ENABLE GLOBAL .;.; GENERATE SLPBLD.CMD.; .SETT $UTYP1 .OPEN '$CL'SLQ'$TYP1'BLD.CMD; .DATA ;! .DATA ; TKB BUILD FILE FOR SLQX .DATA ; '$COM'F(.IFF $FCSTK .DATA ; LINKING TO '$RSLIB'!.IFT $FCSTK .DATA ; USING SYSLIB  .DATA ; CREATED BY '$BLDID' .DATA ;; .DATA '$TK'SLQ'$TYP2'/-FP/CP'$MMSW','$MP'SLQ'$TYP2'/-SP=B .DATA '$OD'SLQ'$TYP1'BLD/MP .DATA TASK=...SLP .DATA IDENT=12.00 .DATA STACK=100 .DATA UNITS=6! .DATA ASG=TI:1,TI:2,SY:3:4:5:6B .DATA PAR='$GEN'E.IFF $FCSTK .DATA '$LIBOP'B6 .DATA GBLDEF=A$UDEF:10 ;DEFAULT SIZE OF AUDIT TRAIL- .DATA GBLDEF=L$LGTH:130 ;DEFAULT LINE SIZEL) .DATA GBLDEF=P$GLGH:67 ;LINES PER PAGE; .DATA ;" .DATA ; SLP ACTION CONTROL WORD .DATA ;H .DATA ; THE FOLLOWING WORD DETERMINES WHAT SLP WILL DO BY DEFAULT. ITI .DATA ; IS DETERMINED IN THE BUILD FILE VIA GBLDEF=D$FLTS:X WHERE X IS=8 .DATA ; THE DEFAULTS TO BE WRITTEN TO THE SWITCH WORD% .DATA ; SOME IMPORTANT VALUES ARE:: .DATA ;# .DATA ; X=000000 NORMAL BEHAVIORL= .DATA ; X=020000 DEVELOPMENT SLP - INFERS /SQ ON ALL FILESA .DATA ; X=100001 BASE-LEVEL SLP - INFERS /-AU,/NS ON ALL FILESL .DATA ;1 .DATA GBLDEF=D$FLTS:20000 ;DEFAULT SWITCH WORDO .DATA ;1 .DATA EXTSCT=$$AUD0:20 ;MAX AUDIT TRAIL LENGTHA6 .DATA EXTSCT=$$LNB0:210 ;MAX LINE SIZE IS STILL 204 .DATA / .CLOSEL.;.; GENERATE SLPBLD.ODL.; .OPEN '$CL'SLQ'$TYP1'BLD.ODLO .DATA ; .DATA ; TKB ODL FILE FOR SLQA .DATA ; '$COM'A( .IFF $FCSTK .DATA ; LINKING TO '$RSLIB'! .IFT $FCSTK .DATA ; USING SYSLIB  .DATA ; CREATED BY '$BLDID' .DATA ; .DATA .NAME SLP% .IFT $FCSTK .DATA .ROOT SLPTR,FCSTR; .IFF $FCSTK .DATA .ROOT SLPTRE2 .IFT $FCSTK .DATA SLPTR: .FCTR SLP-R1-R2-*(O1,O2)/ .IFF $FCSTK .DATA SLPTR: .FCTR SLP-R1-R2-O1-O2$= .DATA R1: .FCTR '$LI'SLP/LB:SLPR11:CMPRS:GETLN:GTSLP:IOSLP;> .DATA R2: .FCTR '$LI'SL00DATADATADATADATAP/LB:PUTLN:ERSLP:SLPSB:SLPCRC:SLPPRE .DATA ;* .DATA O1: .FCTR '$LI'SLP/LB:OPNFL:SCSLP= .DATA O2: .FCTR '$LI'SLP/LB:POSIT-LB:[1,1]SYSLIB/LB:.TPARSK .IFT $FCSTK .DATA ; .IFT $FCSTK .DATA ; .IFT $FCSTK .DATA .NAME FCSA5 .IFT $FCSTK .DATA FCSTR: .FCTR FCS-*(F1,F2,F3,F4,F5).4 .IFT $FCSTK .DATA F1: .FCTR LB:[1,1]SYSLIB/LB:PARSE4 .IFT $FCSTK .DATA F2: .FCTR LB:[1,1]SYSLIB/LB:OPFNB@ .IFT $FCSTK .DATA F3: .FCTR LB:[1,1]SYSLIB/LB:.CSI1:.CSI2:OD2CT: .IFT $FCSTK .DATA F4: .FCTR LB:[1,1]SYSLIB/LB:GETSQ:PUTSQ@ .IFT $FCSTK .DATA F5: .FCTR LB:[1,1]SYSLIB/LB:CLOSE:DSPAT:DLFNB .IFT $FCSTK .DATA ; .DATA .END .CLOSEP .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4.IFT $FCSTK .DATA .NAME FCSA5 .IFT $FCSTK .DATA FCSTR: .FCTR FCS-*(F1,F2,F3,F4,F5).4 .IFT $FCSTK .DATA F1: .FCTR LB:[1,1]SYSLIB/LB:PARSE4 .IFT $FCSTK .DATA F2: .FCTR LB:[1,1]SYSLIB/LB:OPFNB@ .IFT $FCSTK .DATA F3: .FCTR LB:[1,1]SYSLIB/LB:.CSI1:.CSI2:OD2CT: .IFT $FCSTK .DATA F4: .FCTR LB:[1,1]SYSLIB/LB:G .ONERR ERXITB .ENABLE SUBSTITUTIONI .ENABLE GLOBALA .SETT $UTYP1A.;.; GENERATE UNLBLD.CMD.; .OPEN '$CL'UNL'$TYP1'BLD.CMDT .DATA ; .DATA ; TKB .CMD FILE FOR UNL .DATA ; '$COM'  .DATA ; USING SYSLIB .DATA ; CREATED BY '$BLDID' .DATA ;C .DATA '$TK'UNL'$TYP2'/PR/-FP/-CP/-IP'$MMSW','$MP'UNL'$TYP2'/-SP= ( .DATA '$LI'LOA/LB:UNLCTL:UNLFIL:DFSYM$.IFT $11MPL .DATA '$LI'LOA/LB:SCNDV9 .DATA '$LI'LOA/LB:GTBYT:ERMSG:IODAT:LDUIC:SYMTB:ICBDEF  .DATA LB:[1,1]EXELIB/LB .DATA LB:[1,1]SYSLIB/LB:CAT5I#.IFT $11M .DATA '$TK'RSX11M.STBA%.IFT $11MPL .DATA '$TK'RSX11M.STB/SSP .DATA / .DATA TASK=...UNL .DATA IDENT= 4.0. .DATA STACK=64  .DATA UNITS=2 .DATA ASG=TI:1S .DATA PAR='$GEN'T .DATA PRI=50 .DATA / .CLOSE' .EXIT 1.;$.; Exit for error encountered by IND.;.ERXIT: .EXIT 4UNLCTL:UNLFIL:DFSYM$.IFT $11MPL .DATA '$LI'LOA/LB:SCNDV9 .DATA '$LI'LOA/LB:GTBYT:ERMSG:IODAT:LDUIC:SYMTB:ICBDEF  .DATA LB:[1,14lD @e&@py@r@r@w@w@pJ,@o@mo@i@aZ@2r,}@f@  D"0@}h  D"w n832cd& & & B  2OΕ   N Υ$Ε  2o pJ,|2Υ   v Ε f e * e*w@) mo>wTr,}` pf *0,   ) )(   =  l 0l pyr0e&> t  4/ e&=Ba@a e0b e aZbie@ ` Y= E8 el0  & 0 l0`p l064p 4 elp )wV%  ,  N w"  J B # :aZHaZVr,}^wjr\ f  `* w)0406 l0 mo. 2fz\ghy4lD @e&@r@w@w@pK,@o@mo@i@sk@aZ@r,}@*f@  D"0$ h  D"w n832cd& & & B  2OΕ   N Υ$Ε  2o pK,|2Υ   v Ε f e * e*w@)0, mo>wTr,}` pf   ) )(   =  l 0l  re&& naZt 0/ e&=Ba@a e0b ee@ ^Ji W= E8 e00Ol;; RMS-11 Version 2.100; (RSX-11M/M-Plus, V2.1/4.1);;; BCKNON - RMSBCK Utility with overlayed local RMS support.;*LB:RMSBCK/CP,SY:RMSBCK/MA/-SP=SY:BCKNON/MP TASK=...BCKX/T;7; RMS-11 Backup utility task build command file (2.100);; Links to RMSRES;'LB:RMSBCK/CP,SY:RMSBCK/MA/-SP=BCKNRN/MP/ TASK=...BCKXLIBR=RMSRES:RO/A;7; RMS-11 Backup utility task build command file (2.100); $; Links to RMSRES in supervisor mode;a'LB:RMSBCK/CP,SY:RMSBCK/MA/-SP=BCKNSN/MP TASK=...BCKPRESSUP=LB:[3,54]RMSRES/SV:0P/Xl0  & 0 l0`p l064p 4 ep )lwn%  ,  w>  JwB # f  &"aZ0aZ:r,}BwNskhmo@`* w)0406 l0  fZ  ΥD @f@  D"0ziWhrwh`i h  D"~46f %8 E D/D!D ;; RMS-11 Version 2.000; (RSX-11M/M-Plus, V2.0/4.0);9; CNVNOO - RMSCNV Utility with overlayed local and remote; RMS support.;-SY:RMSCNV/CP/FU,SY:RMSCNV/MA/-SP=SY:CNVNOO/MPGBLPAT=CNVDEF:T$MODE:4 TASK=...CNV/ l0l8epl0pɥ.ɕ wx |fb& %D @q:@i@o@  D"0tch`rh  D"xw  )  fU %  BA `6p 4p`4 %60 4o $i6q:D @f@  D"0ziWhrwh`i h  D"~46f %8 E D/D!D :,d D  D"0aZh  D" =p!Օ^bK VN Ds@s@o@f@  D"0;VNhaVNh  D"w BC "& @SY*p0p210=E%0=w*e "fo6sffjs&| D CB.ER  Df@  D"0|iWhrwh`i h  D"46f %8 E D/D!D l0l8epl0pɥ .ɕ*w~fzw4*Dw@s@r"&@q:@w@i@o@f@  D"0X`h  D"w *8g#) *X -8  .NA *)98 eB &o(we >E p* wsPq:^r"&bfZ& jDq:@i@o@  D"0vch `rh  D"zw  )*  fU %  BA `6p 4p`4 %60 4o&i8q:Ze ӬDs@q:@i@f@  D"0cIqh  D"M=f& e %&&eH =&e0  U   E >  sXi8|>E=uf p  wq:6fZz Dq:@i@  D"0HeZhrShft:h   D"L   f >5>Eu    i:q:: & D  D"0h  D" z, ,De&@py@r@r@pJ,@o@mo@s2 @f@  D"0l}h   D"w ) 8C 8* ) *w*   ep &o pJ, rNfbpyre&|p  އ#= EW9ť^*0 ` Ca 006),C  = L  0* = Eե^ A e@ ߇ = Ep2!t)8eE`l0  0 0/ &l0 `p l064p 4 p  ,Vs2  J *` C#   D @)  6?0D)&rBmoz,hy ,De&@r@pK,@o@mo@sk@s2 @f@  D"0d h  D"w ) 8C $* ) *w*  ep p   o pK, rNf^e&|#= EW9ť^*0 ` Ca C  = X  0* = Eե^ A e@ ߇ = Ep2!)8eE`l0 t 0 0/ &l0 `p l064p 4 p  8 V Bs2 x*`)w C#   D @)  6?0D)skr:mozE`W Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@Rf@@ft:@fy:@cIq@s}@  D"0hp!h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60))  \# U&* =wH `p!22s}Jft: EW!p0p2 ׇ#( P) @#**fff  &*w cIq:eZ`d?!peZt. l58e$8wV 2k  ,EB0-%. #p.2e  s@snsz483  -  r38 (#5=A#@)) *R*)@#`r돀l0l C# 028 00ĥۇAĥĊ  000 :b0 @0 &*0 @ u # eB&B B * eBe>  ,r,}"i.q:DrSLmlEPr"&\id# #D #=0/H#@&0 # = e0   0@e 6=#02/002# @#?@#040 6w/ q:tfT\&!0/ l0/!/0/l0p!0 .=p0p2zE`PZ Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@baVN@f@@ft:@fy:@cIq@s}@  D"0^Whh!h  D"w & w  D  8#"#)%ĥ ĥ oos fy:|w 0 *0 @Q$    0 40 60))  eB  \# U&* =Bs}NaVNfft:wH `p!2 EW!p0p2 ׇ#( P) @#**fff /3`Ol;S.; File "RMSDES.ODL" created by "MAKRMSODL.CMD";T3; Options chosen for this overlay description file:r;o ; RMSRES F ; RMSSEQ F ; RSTSE F;E ; CREATE T ; EXTEND F ; ERASE F;r; SEQ T ; SEQCRE T ; SEQROP T ; SEQRED T ; SEQWRI T ; SEQUPD F ; SEQOPT T;c; REL T ; RELCRE T ; RELROP F ; RELRED F ; RELWRI F ; RELUPD F ; RELDEL F ; RELOPT F;o; IDX T ; IDXCRE T ; IDXROP T ; IDXRED T ; IDXWRI F ; IDXUPD F ; IDXDEL F ; IDXOPT F; ; BLOCK F ; MISC Ta;R;RMSROT: .FCTR LB:[1,1]RMSLIB/LB:RMSSYM:R0AUTO:R0IMPA-RMROOT0RMROOT: .FCTR RMSIOM-RMSCBL-RMSCOM-RMSEXE-RMSIX0BRMSIOM: .FCTR LB:[1,1]RMSLIB/LB:R0CACH:R0RLCH:R0MAPC:R0RWBF:R0UNLK;RMSCBL: .FCTR LB:[1,1]RMSLIB/LB:R0RTCB:R0ACBB:R0RTDB:R0MDATE-RMSCOM: .FCTR LB:[1,1]RMSLIB/LB:R0RMSE:R0IDPBBRMSEXE: .FCTR LB:[1,1]RMSLIB/LB:R0EXSY:R0RSES:R0WTBS:R0RMSA:R0IFLF .NAME RMS11$RMSALL: .FCTR RMS11-*(RMSFIL,RMSREC) .NAME RMSFABDRMSFIL: .FCTR RMSFAB-RMSFL3RMSFL: .FCTR LB:[1,1]RMSLIB/LB:R0CLCM-RMFILE-RMSFL0aGRMSFL0: .FCTR (RMSCR0,RMSOPN-RMSDPC-RMSCON,RMSFNM,RMSCLS-RMSDIS-RMSMIC)T;FBRMSOPN: .FCTR LB:[1,1]RMSLIB/LB:R0OPFL-RMSOP0-RMSEQO-RMRELO-RMIDXO4RMSDPC: .FCTR LB:[1,1]RMSLIB/LB:R0DPYC:R0CKSM-RMSFL14RMSFL1: .FCTR LB:[1,1]RMSLIB/LB:R0ALDB:R0ALBD:R0ALIOBRMSCON: .FCTR LB:[1,1]RMSLIB/LB:R0CCLN:R0ALBS-RMSCNS-RMRCNR-RMXCNXIRMSFNM: .FCTR LB:[1,1]RMSLIB/LB:R0PRFN:R0XPFN:R0MKWA:R0ASLN:R0INIT-RMSFL1-IRMSCLS: .FCTR LB:[1,1]RMSLIB/LB:R0CKSM-RMEXTD-RMR1RL-RMSEQC-RMRELC-RMIDXCL;RMSDIS: .FCTR LB:[1,1]RMSLIB/LB:R0CCLN-RMSDSS-RMRDSR-RMXDSX, .NAME RMSCREM9RMSCR0: .FCTR RMSCRE-RMCREA-RMCRIX-(RM0X11-RM0X21,RM0X31),BRMCREA: .FCTR LB:[1,1]RMSLIB/LB:R0CRXI:R0CRFL:R0MFNB:R0RD50-RMSCR2&RMFILE: .FCTR LB:[1,1]RMSLIB/LB:R0RXAC4RMSOP0: .FCTR LB:[1,1]RMSLIB/LB:R0RXDI:R0MFNB:R0RD504RMSCR2: .FCTR LB:[1,1]RMSLIB/LB:R0RXCR:R0RXMD:R0RXDI-RMSER1: .FCTR LB:[1,1]RMSLIB/LB:R0RXMD-RMSOP0R&RMEXTD: .FCTR LB:[1,1]RMSLIB/LB:R0EXTD-RMR1RL: .FCTR LB:[1,1]RMSLIB/LB:R1RLBK:R1NXBKL&RMR1WL: .FCTR LB:[1,1]RMSLIB/LB:R1WTLS .NAME RMDMIC:RMSMIC: .FCTR RMDMIC .NAME RMDCRSR-RM0X11: .FCTR LB:[1,1]RMSLIB/LB:R1CRFL:R1CRCKX&RMSEQO: .FCTR LB:[1,1]RMSLIB/LB:R1OPFL&RMSEQC: .FCTR LB:[1,1]RMSLIB/LB:R1CLOS&RMSCNS: .FCTR LB:[1,1]RMSLIB/LB:R1CONP-RMSDSS: .FCTR LB:[1,1]RMSLIB/LB:R1DISC-RMR1WLR .NAME RMDCRRMIRM0X21: .FCTR LB:[1,1]RMSLIB/LB:R2CRFL:R2CRCK:R2WPLG:R2BFMT:R0CKSM-RMSFL1M&RMRELO: .FCTR LB:[1,1]RMSLIB/LB:R2OPFL&RMRELC: .FCTR LB:[1,1]RMSLIB/LB:R2CLOS&RMRCNR: .FCTR LB:[1,1]RMSLIB/LB:R2CONP&RMRDSR: .FCTR LB:[1,1]RMSLIB/LB:R2DISC .NAME RMDCLS .NAME RMDCRX. .NAME RMDIDXM .NAME RMDOPN[ .NAME RMDCNX1 .NAME RMDDSXM .NAME RMDCXX[&RMCRIX: .FCTR LB:[1,1]RMSLIB/LB:R3CRFLRM0X31: .FCTR (RM0X32,RM0X33)F&RM0X32: .FCTR LB:[1,1]RMSLIB/LB:R3CRCK;RM0X33: .FCTR LB:[1,1]RMSLIB/LB:R3WPLG:R0CKSM:R0ALBD-RMEXTD -RMSIX0: .FCTR LB:[1,1]RMSLIB/LB:R0RLSB:R0GETBB&RMIDXC: .FCTR LB:[1,1]RMSLIB/LB:R3CLOS-RMIDXO: .FCTR LB:[1,1]RMSLIB/LB:R3OPFL:R3RPLGB&RMXCNX: .FCTR LB:[1,1]RMSLIB/LB:R3CONP&RMXDSX: .FCTR LB:[1,1]RMSLIB/LB:R3DISC .NAME RMSRABA9RMSREC: .FCTR RMSRAB-(RMSSQ0,RM0X26,RM0X36,RMSBLK,RMMISC) .NAME RMSSEQ)RMSSQ0: .FCTR RMSSEQ-RMR1RL-RMEXTD-RMSQOPT;RMSQOP: .FCTR LB:[1,1]RMSLIB/LB:R1WTLS:R1CKEF:R1DELE-RMSQORM#RMSQOR: .FCTR RMIN10-RMOU1P-RMOU1U3RMIN10: .FCTR LB:[1,1]RMSLIB/LB:R1GET:R1GSET:R1GBLDR:RMOU1P: .FCTR LB:[1,1]RMSLIB/LB:R1PUT:R1PSET:R1PUNR:R1PBLD .NAME RMDS1U,RMOU1U: .FCTR RMDS1U .NAME RMDDRL[RM0X26: .FCTR RMDDRL .NAME RMSIDX 0RM0X36: .FCTR RMSIDX-RMOU3C-RMOU3D-RMOU3E-RMIO31BRMOU3C: .FCTR LB:[1,1]RMSLIB/LB:R3FROO:R3GKEY:R3FPAT:R3MISC:R3WBKT;RMOU3D: .FCTR LB:[1,1]RMSLIB/LB:R3FRFA:R3FNDR:R3NBKT:R3KREFMBRMOU3E: .FCTR LB:[1,1]RMSLIB/LB:R3SDBK:R3SKRE:R0CMKY:R0CKSM:R0GPTR$RMIO31: .FCTR (RMIO3G,RMIO3U,RMIO3P):RMIO3G: .FCTR LB:[1,1]RMSLIB/LB:R3GET:R3FIND-RMIN3S-RMIN3KBRMIN3K: .FCTR LB:[1,1]RMSLIB/LB:R3GSET:R3GTRE:R3GRPT:R3FRRF:R3FRKE;RMIN3S: .FCTR LB:[1,1]RMSLIB/LB:R3FRSE:R3POSE:R3POSR:R3FRRV .NAME RMDX3UMRMIO3U: .FCTR RMDX3U .NAME RMDX3PMRMIO3P: .FCTR RMDX3P .NAME RMDBLKURMSBLK: .FCTR RMDBLKBRMMISC: .FCTR LB:[1,1]00|FvG{J}MRMSLIB/LB:R0FREE:R1TRUN:R0RWIN:R2CALC-RMWATRBRMWATR: .FCTR LB:[1,1]RMSLIB/LB:R0WATR:R0MAGT-RMR1WL-RMR1RL-RMEXTD;D; end of ODL file "RMSDES.ODL";O31: .FCTR (RMIO3G,RMIO3U,RMIO3P):RMIO3G: .FCTR LB:[1,1]RMSLIB/LB:R3GET:R3FIND-RMIN3S-RMIN3KBRMIN3K: .FCTR LB:[1,1]RMSLIB/LB:R3GSET:R3GTRE:R3GRPT:R3FRRF:R3FRKE;RMIN3S: .FCTR LB:[1,1]RMSLIB/LB:R3FRSE:R3POSE:R3POSR:R3FRRV .NAME RMDX3UMRMIO3U: .FCTR RMDX3U .NAME RMDX3PMRMIO3P: .FCTR RMDX3P .NAME RMDBLKURMSBLK: .FCTR RMDBLKBRMMISC: .FCTR LB:[1,1];S; RMSLBL.ODL - RMS-11 V2.0;IL; ODL to build 'C'/'D' segment satellite region RMSLBL for use with RMSRESAB;3 .NAME DUMMY .NAME RELALLB .NAME INDEX1: .ROOT DUMMY-*!(SEG3,SEG4);TF; The SEG3 library segment supports all Relative file operations, plusC; the $EXTEND function (included here so that it can share R2BFMT):a;s1SEG3: .FCTR RELALL-SG3-RELFIL-RELCD-RELREC-EXTENDT#SG3: .FCTR LB:[1,1]RMSLIB/LB:RMSEG3e4RELFIL: .FCTR LB:[1,1]RMSLIB/LB:R2CLOS:R2OPFL:R2WPLG,RELCD: .FCTR LB:[1,1]RMSLIB/LB:R2CONP:R2DISC;RELREC: .FCTR LB:[1,1]RMSLIB/LB:R2BFMT:R2EXTD:R2FIND-RELRC1g<RELRC1: .FCTR LB:[1,1]RMSLIB/LB:R2GSET:R2IOCK-RDEL-RGET-RPUD$RDEL: .FCTR LB:[1,1]RMSLIB/LB:R2DELE#RGET: .FCTR LB:[1,1]RMSLIB/LB:R2GETg1RPUD: .FCTR LB:[1,1]RMSLIB/LB:R2PSET:R2PUT:R2UPDA 6EXTEND: .FCTR LB:[1,1]RMSLIB/LB:R0EXT0-RMSROTAB.STB/SS;B;)I; The SEG4 library segment supports Indexed file $OPEN, $CLOSE, $CONNECT,1*; $DISCONNECT, $FIND, and $GET operations:;L#SEG4: .FCTR INDEX1-SG4-IOCCD-IDXGETC#SG4: .FCTR LB:[1,1]RMSLIB/LB:RMSEG4E:IOCCD: .FCTR LB:[1,1]RMSLIB/LB:R3OPFL:R3CLOS:R3CONP:R3DISC;IDXGET: .FCTR LB:[1,1]RMSLIB/LB:R3FIND:R3FRKE:R3FRRF-IDXGT1AIDXGT1: .FCTR LB:[1,1]RMSLIB/LB:R3FRSE:R3GET:R3GRPT:R3GSET-IDXGT2:DIDXGT2: .FCTR LB:[1,1]RMSLIB/LB:R3GTRE:R3POSE:R3POSR-RMSROTAB.STB/SS .END[;3; RMSLBM.ODL - RMS-11 V2.0;RM; ODL to build 'E'/'F' segments satellite region RMSLBM for use with RMSRESABL;L .NAME DUMMY .NAME INDEX2: .NAME INDEX3F .ROOT DUMMY-*!(SEG5,SEG6);.; >; The SEG5 library segment supports Indexed file $DELETE/$PUT/; $UPDATE operations:T;P2SEG5: .FCTR INDEX2-SG5-COMDPU-COMPU-IDEL-IPUT-IUPD#SG5: .FCTR LB:[1,1]RMSLIB/LB:RMSEG5S4COMDPU: .FCTR LB:[1,1]RMSLIB/LB:R3DLSI:R3RPLC:R3SKDLACOMPU: .FCTR LB:[1,1]RMSLIB/LB:R3BSRT:R3FPAT:R3ISID:R3ISDI-COMPU1M-COMPU1: .FCTR LB:[1,1]RMSLIB/LB:R3MKID:R3SSPLD+IDEL: .FCTR LB:[1,1]RMSLIB/LB:R3DELE:R3DSETR2IPUT: .FCTR LB:[1,1]RMSLIB/LB:R3PIXC:R3PUTL:R3PSET;IUPD: .FCTR LB:[1,1]RMSLIB/LB:R3UPDL:R3USET-RMSROTAB.STB/SS ; ; J; The SEG6 library segment supports data record insertion and index-updateJ; for Indexed $PUT/$UPDATE, plus the bucket allocation routine and indexed ; $CREATE:;R*SEG6: .FCTR INDEX3-SG6-ICRE-IUDR-UIDX-ALOC#SG6: .FCTR LB:[1,1]RMSLIB/LB:RMSEG61$ICRE: .FCTR LB:[1,1]RMSLIB/LB:R3WPLG?IUDR: .FCTR LB:[1,1]RMSLIB/LB:R3BRRV:R3BSPL:R3BSRT:R3IUDC-IUDR1F3IUDR1: .FCTR LB:[1,1]RMSLIB/LB:R3IUDI:R3IUDL:R3URRV[@UIDX: .FCTR LB:[1,1]RMSLIB/LB:R3IKEY:R3IKYI:R3KSPL:R3ROOT:R3UIDL4ALOC: .FCTR LB:[1,1]RMSLIB/LB:R3ALOL-RMSROTAB.STB/SS .ENDg;; RMS-11 Version 2.000; (RSX-11M/M-Plus, V2.0/4.0);F; RMSODL - Utilities common ODL providing overlayed local RMS support.;;+;; RMS11 ODL NAMING CONVENTIONS; ; ODL NAMES;; RMNXYZ.ODL WHERE:;!; N = TYPE OF OVERLAY ENVIRONMENT/; 0 -- NO RESIDENT LIBRARY OR RUN-TIME SYSTEM,; 1 -- RESIDENT LIBRARY OR RUN-TIME SYSTEM;; A = SYSTEM ENVIRONMENT ; 0 -- SYNCHRONOUS; 1 -- ASYNCHRONOUS;; B = FILE ORGANIZATION; 1 -- SEQUENTIAL; 2 -- RELATIVE; 00}N/3`Ol 3 -- INDEXED;r; C = OPERATION SUPPORTP; 0 -- FILE OPEN; 1 -- FILE CREATION; 2 -- INPUT ($GET,$FIND)o; 4 -- OUTPUT ($PUT).; 6 -- I/O ($GET,$FIND,$PUT,$UPDATE,$DELETE);E; ODL FILE CONVENTIONS;<; WHENEVER AN A, B, OR C DOES NOT APPLY, THEN AN "X" IS USED ; EXAMPLE:?; RM013X.ODL = SELECTS THE ASYNC ENVIRONMENT WITH INDEX SUPPORT3; BUT CONTAINS NO OPERATION SUPPORT ODL INFORMATION ; *; THE INTERNAL ODL FILES CONTAIN DIRECTORY; SPECIFICATIONS AS FOLLOWS:; [1,1] FOR RMSLIB.OLB;X8; ******************************************************/; THIS PROTOTYPE ODL IS TO BE USED IN THE .ROOT#; STATEMENT OF THE USER PROGRAM ODL(8; ******************************************************;;-;H7; NOTE: IF ALL RMS SYMBOLS ARE LOCALLY DEFINED THEN THE3; LB:[1,1]RMSLIB/LB:RMSSYM REFERENCE MAY BE DELETEDE; IN THE RMSXXX FACTOR BELOW;T6; CHANGE THE RMSXXX FACTOR NAME TO THE FACTOR NAMED IN5; YOUR TASK'S ODL .ROOT STATEMENT, AND REFERENCE THIS >; FILE BY THE NAME YOU GAVE IT BY @LB:[1,24]LB:FILENAME AT THE*; LEFT HAND MARGIN OF YOUR TASK'S ODL FILE;Y0; CHANGE THE RMXXXX TERM TO ONE OF THE FOLLOWING*; RM0X0X, RM0X3X, OR RMS11X AND DELETE ALL*; REQUIRED SEMICOLLONS (;) FROM THE FACTOR; STATEMENTS BELOW.R;SRMSROT: .FCTR RM0X3X;D; NO INDEX-IO REQUIRED;B0;RM0X0X: .FCTR RMSIO-RMSCBL-RMSCOM-RMSCM1-RMSEXC; ; INDEX-IO REQUIREDH;E6RM0X3X: .FCTR RMSIO-RMSCBL-RMSCOM-RMSCM1-RMSEXC-UTLIDX;'6; THE FOLLOWING IS TO BE USED IF LINKING TO A RESIDENT?; LIBRARY OR RUN-TIME SYSTEM (RSTS/E ) WHICH CONTAINS NECESSARYA; RMS11 ROOT CODE.7; NOTE: DELETE THE RMSIX0 TERM IF INDEX-IO NOT REQUIREDO;G;RMS11X: .FCTR RMSCM1-RMSIX0; 'UTLIDX: .FCTR LB:[1,24]RMSUTL/LB:IDXORGOARMSIO: .FCTR LB:[1,1]RMSLIB/LB:R0CACH:R0RLCH:R0MAPC:R0RWBF:R0UNLK ;RMSCBL: .FCTR LB:[1,1]RMSLIB/LB:R0RTCB:R0ACBB:R0RTDB:R0MDATR4RMSCOM: .FCTR LB:[1,1]RMSLIB/LB:R0RMSE:R0SAVR:R0IDPB.;RMSCM1: .FCTR LB:[1,1]RMSLIB/LB:R0AUTL:RMSSYM4RMSCM1: .FCTR LB:[1,1]RMSLIB/LB:R0AUTO:R0IMPA:RMSSYM;; SYNC SYSTEMS;MBRMSEXC: .FCTR LB:[1,1]RMSLIB/LB:R0EXSY:R0RSES:R0WTBS:R0RMSA:R0IFLF;E(; ASYNC SYSTEMS (RSX BASED SYSTEMS ONLY);I2; (V2.0: RMS utilities are no longer asynchronous)C;RMSEXC: .FCTR LB:[1,1]RMSLIB/LB:R0EXEC:R0RSET:R0WATB:R0RMSA:R0IFLFC;0A; THE FOLLOWING FACTOR IS ONLY NEEDED IF INDEX-IO IS REQUIRED ANDR*; IF LINKING WITH THE RESIDENT LIBRARY ...;L.;RMSIX0: .FCTR LB:[1,1]RMSLIB/LB:R0RLSB:R0GETB;+;I; RMS11 ODL NAMING CONVENTIONS;B ; ODL NAMESL;0; RMNXYZ.ODL WHERE:; !; N = TYPE OF OVERLAY ENVIRONMENT[/; 0 -- NO RESIDENT LIBRARY OR RUN-TIME SYSTEM,; 1 -- RESIDENT LIBRARY OR RUN-TIME SYSTEM;; A = SYSTEM ENVIRONMENT n; 0 -- SYNCHRONOUS; 1 -- ASYNCHRONOUS1;S; B = FILE ORGANIZATIONT; 1 -- SEQUENTIAL; 2 -- RELATIVET; 3 -- INDEXED;I; C = OPERATION SUPPORT; 0 -- FILE OPEN; 1 -- FILE CREATION; 2 -- INPUT ($GET,$FIND)S; 4 -- OUTPUT ($PUT).; 6 -- I/O ($GET,$FIND,$PUT,$UPDATE,$DELETE);E; ODL FILE CONVENTIONS;<; WHENEVER AN A, B, OR C DOES NOT APPLY, THEN AN "X" IS USED ; EXAMPLE:9; RM013X.ODL = SELECTS THE ASYNC ENVIR WITH INDEX SUPPORTT3; BUT CONTAINS NO OPERATION SUPPORT ODL INFORMATIONO;*; THE INTERNAL ODL FILES CONTAIN DIRECTORY; SPECIFICATIONS AS FOLLOWS:; [1,1] FOR RMSLIB.OLB;-8; ******************************************************4; THIS PROTOTYPE ODL IS TO BE USED AS AN INDEPENDENT*; OVERLAY OR CO-TREE IN A USER PROGRAM ODL8; ******************************************************;2; REMOVE ALL SEMICOLONS (;) THAT APPLY AND REPLACE&; ALL "XXXX" WITH DESIRED FACTOR NAMES;S;-;Y .NAME RMS11 .NAME RMSFAB .NAME RMSRABN .NAME RMSCREP .NAME RMSCD .NAME RMOPINH .NAME RMSSEQF .NAME RMSRELR .NAME R2GUPDF .NAME RMSIDXL .NAME RMSBMC .NAME RMSMIS .NAME RMDEXT* .NAME RMDRLB* .NAME RMDWTL*;*<; **********************************************************; (; RMSLE (FAB) FUNCTIONS - COMMON FACTORS;*RMSFIL: .FCTR RMSFAB-RMSFL3RMSFL: .FCTR LB:[1,1]RMSLIB/LB:R0C00}VG{J}MLCM-RMFILE-RMSFL0 BRMSFNM: .FCTR LB:[1,1]RMSLIB/LB:R0PRFN:R0XPFN:R0MKWA:R0ASLN-RMSFL14RMSDPC: .FCTR LB:[1,1]RMSLIB/LB:R0DPYC:R0CKSM-RMSFL14RMSFL1: .FCTR LB:[1,1]RMSLIB/LB:R0ALDB:R0ALBD:R0ALIO;RMSCLS: .FCTR LB:[1,1]RMSLIB/LB:R1CLOS:R2CLOS:R3CLOS-RMSCL0.4RMSCL0: .FCTR LB:[1,1]RMSLIB/LB:R0CKSM-RMEXTD-RMR1RL6RMSOPN: .FCTR (LB:[1,1]RMSLIB/LB:R0OPFL-RMSOP0,RM0XY0)4RMCRCK: .FCTR LB:[1,1]RMSLIB/LB:R1CRCK:R2CRCK:R3CRCK;RMCREA: .FCTR LB:[1,1]RMSLIB/LB:R0CRFL:R0MFNB:R0RD50-RMSCR2F4RMSCR0: .FCTR RMSCRE-LB:[1,1]RMSLIB/LB:R0CRXI-RMSCR1; <; **********************************************************;C; RSX SYSTEM DEPENDENT FACTORS;C&RMFILE: .FCTR LB:[1,1]RMSLIB/LB:R0RXAC4RMSOP0: .FCTR LB:[1,1]RMSLIB/LB:R0RXDI:R0MFNB:R0RD504RMSCR2: .FCTR LB:[1,1]RMSLIB/LB:R0RXCR:R0RXMD:R0RXDI-RMSER1: .FCTR LB:[1,1]RMSLIB/LB:R0RXMD-RMSOP0 ;:!; RSTS/E SYSTEM DEPENDENT FACTORS);M';RMFILE: .FCTR LB:[1,1]RMSLIB/LB:R0REOPC.;RMSOP0: .FCTR LB:[1,1]RMSLIB/LB:R0MFNB:R0RD50';RMSCR2: .FCTR LB:[1,1]RMSLIB/LB:R0RECRC;RMSER1: .FCTR RMSOP0C;-<; **********************************************************;*0; FACTORS TO BE USED IF NOT LINKING TO THE RMS11%; RESIDENT LIBRARY OR RUN-TIME SYSTEMM;0&RMEXTD: .FCTR LB:[1,1]RMSLIB/LB:R0EXTD-RMR1RL: .FCTR LB:[1,1]RMSLIB/LB:R1RLBK:R1NXBKR&RMR1WL: .FCTR LB:[1,1]RMSLIB/LB:R1WTLS;L,; FACTORS TO BE USED IF LINKING TO THE RMS11%; RESIDENT LIBRARY OR RUN-TIME SYSTEMR;I;RMEXTD: .FCTR RMDEXT.;RMR1RL: .FCTR RMDRLBR;RMR1WL: .FCTR RMDWTL.;R<; **********************************************************;*; TOP LEVEL OVERLAY STRUCTURE*;*,; CHANGE THE RMXXXX: FACTOR NAME TO THE NAME5; USED IN YOUR TASK'S ODL FILE AND REFERENCE THE NAMESB; YOU GIVE THIS FILE WITH A @LB:[1,24]LB:FILENAME AT THE LEFT HAND ; MARGIN IN YOUR TASK'S ODL FILE;L$RMSOVR: .FCTR RMS11-*(RMSFIL,RMSREC);A'; FILE (FAB) FUNCTION OVERLAY STRUCTURE;E9RMSFL0: .FCTR (RMSFNM,RMSDPC,RMSCLS,RMSOPN,RMSCR0,RMSMIC)X;F; IN THE ABOVE FACTOR IF AUXILIARY FILE FUNCTIONS ARE DESIRED THEN ADD9; THE RMSMIC FACTOR AFTER THE RMSCR0 IN THE OVERLAY LIST.V;A<; **********************************************************; RMSMIC: .FCTR (RMSERA,RMSEXT)D-RMSERA: .FCTR LB:[1,1]RMSLIB/LB:R0ERFL-RMSER1 BRMSEXT: .FCTR LB:[1,1]RMSLIB/LB:R0EXT0:R0CKSM:R2BFMT-RMEXTD-RMSFL1;I<; **********************************************************;N; RMS FILE OPEN FACTORS;?; SELECT THE DESIRED OPEN MODULES HERE RM0X10 RM0X20 AND RM0X30 ; AND DELETE ALL OTHERS.L;YBRM0XY0: .FCTR RMOPIN-LB:[1,1]RMSLIB/LB:R0CKSM-RM0X10-RM0X20-RM0X30&RM0X10: .FCTR LB:[1,1]RMSLIB/LB:R1OPFL&RM0X20: .FCTR LB:[1,1]RMSLIB/LB:R2OPFL-RM0X30: .FCTR LB:[1,1]RMSLIB/LB:R3OPFL:R3RPLGT;<; **********************************************************;[; RMS FILE CREATION FACTORS2;T;E9; DELETE THE CREATE MODULES WHICH ARE NOT TO BE SUPPORTED*4; ( IE R1CRFL R2CRFL AND R3CRFL FORM FACTOR RMSCR1 )C; NOTE: R1CRFL IS IN FACT FREE SINCE IT IS HIDDEN BEHIND THE OTHERS ;EB; IF ONLY SEQUENTIAL IS DESIRED THEN DELETE THE ,RMCRXX TERM BELOW;XKRMSCR1: .FCTR LB:[1,1]RMSLIB/LB:R1CRFL:R2CRFL:R3CRFL-(RMCRCK,RMCREA,RMCRXX),;M8; DELETE THE RM0X21 OR RM0X31 TERMS IN THE RMCRXX FACTOR; IF THAT TERM DOES NOT APPLY*;*RMCRXX: .FCTR (RM0X21,RM0X31)*;RM0X21: .FCTR LB:[1,1]RMSLIB/LB:R2WPLG:R2BFMT:R0CKSM-RMSFL1E;RM0X31: .FCTR LB:[1,1]RMSLIB/LB:R3WPLG:R0CKSM:R0ALBD-RMEXTDR;A<; **********************************************************;N.; RMS RECORD (RAB) OPERATIONS - COMMON FACTORS;EARMSCDX: .FCTR RMSCD-LB:[1,1]RMSLIB/LB:R1CONP:R2CONP:R3CONP-RMSCD0 ;RMSCD0: .FCTR LB:[1,1]RMSLIB/LB:R1DISC:R2DISC:R3DISC-RMSCD1MBRMSCD1: .FCTR LB:[1,1]RMSLIB/LB:R0CCLN:R0RSEI:R0ALBS-RMSFL1-RMSCD2"RMSCD2: .FCTR RMR1RL-RMR1WL-RMEXTD;M<; **********************************************************;P-; RMS RECORD (RAB) FUNCTION OVERLAY STRUCTURE];L+RMSREC: .FCTR RMSRAB-(RMSCDX,RMSBLK,RMSSQ0)*;*<; **********************************************************;O%; RMS RELATIVE FILE RECORD OPERATIONSE;M#;RM0X26: .FCTR RMSREL-RMIO2C-RMIO2A15;RMIO2C: .FC00}^e3`OlTR LB:[1,1]RMSLIB/LB:R2IOCK:R2CALC:R0CKSMB>;RMIO2A: .FCTR LB:[1,1]RMSLIB/LB:R2FIND:R2GSET-(RMIO2G,RMIO2P);;RMIO2G: .FCTR R2GUPD-LB:[1,1]RMSLIB/LB:R2GET-RMIO2U-RMIO2DR4;RMIO2P: .FCTR LB:[1,1]RMSLIB/LB:R2PUT:R2PSET-RMIO2H5;RMIO2H: .FCTR LB:[1,1]RMSLIB/LB:R2BFMT:R2EXTD-RMEXTD .;RMIO2U: .FCTR LB:[1,1]RMSLIB/LB:R2UPDA:R2PSET';RMIO2D: .FCTR LB:[1,1]RMSLIB/LB:R2DELE*;*<; **********************************************************; $; RMS INDEXED FILE RECORD OPERATIONS;S#;RM0X36: .FCTR RMSIDX-RMIO30-RMIO31:#;RMIO30: .FCTR RMOU3C-RMOU3D-RMOU3E%;RMIO31: .FCTR (RMIO3G,RMIO3P,RMIO3U):;;RMIO3G: .FCTR LB:[1,1]RMSLIB/LB:R3GET:R3FIND-RMIN3S-RMIN3KLC;RMIN3K: .FCTR LB:[1,1]RMSLIB/LB:R3GSET:R3GTRE:R3GRPT:R3FRRF:R3FRKE-<;RMIN3S: .FCTR LB:[1,1]RMSLIB/LB:R3FRSE:R3POSE:R3POSR:R3FRRV6;RMIO3P: .FCTR LB:[1,1]RMSLIB/LB:R3PUT:R3PSET-(RMOU3Q)3;RMOU3Q: .FCTR (RMOU33,RMOU34,RMOU35,RMOU36,RMOU3P)*E;RMIO3U: .FCTR LB:[1,1]RMSLIB/LB:R3UPDA:R3USET-(RMIO3D,RMOU34,RMIO3X)R%;RMIO3X: .FCTR (RMOU35,RMOU36,RMOU3P)SC;RMIO3D: .FCTR LB:[1,1]RMSLIB/LB:R3DELE:R3DSET:R3RPLC:R3SKDL-RMOU33C5;RMOU33: .FCTR LB:[1,1]RMSLIB/LB:R3PIXC:R3FRRV:R3DLSIIL;RMOU34: .FCTR LB:[1,1]RMSLIB/LB:R3IUDR-(RMOU3J-RMOU3F,RMOU3K,RMOU3G,RMOU3A)7;RMOU35: .FCTR LB:[1,1]RMSLIB/LB:R3ISID-(RMOU3A,RMOU3H)BE;RMOU36: .FCTR LB:[1,1]RMSLIB/LB:R3UIDX:R3IKEY-(RMOU3M,RMOU3O,RMOU3A)P5;RMOU3A: .FCTR LB:[1,1]RMSLIB/LB:R3ALOC:R3BFMT-RMEXTD3C;RMOU3C: .FCTR LB:[1,1]RMSLIB/LB:R3FROO:R3GKEY:R3FPAT:R3MISC:R3WBKTO<;RMOU3D: .FCTR LB:[1,1]RMSLIB/LB:R3FRFA:R3FNDR:R3NBKT:R3KREFC;RMOU3E: .FCTR LB:[1,1]RMSLIB/LB:R3SDBK:R3SKRE:R0CMKY:R0CKSM:R0GPTR:.;RMOU3F: .FCTR LB:[1,1]RMSLIB/LB:R3IUDI:R3BSRT.;RMOU3G: .FCTR LB:[1,1]RMSLIB/LB:R3BRRV:R3URRV5;RMOU3H: .FCTR LB:[1,1]RMSLIB/LB:R3ISDI:R3BSRT-RMOU3LS';RMOU3J: .FCTR LB:[1,1]RMSLIB/LB:R3IUDC.';RMOU3K: .FCTR LB:[1,1]RMSLIB/LB:R3BSPLU';RMOU3L: .FCTR LB:[1,1]RMSLIB/LB:R3SSPL1.;RMOU3M: .FCTR LB:[1,1]RMSLIB/LB:R3IKYI-RMOU3N';RMOU3N: .FCTR LB:[1,1]RMSLIB/LB:R3KSPL3';RMOU3O: .FCTR LB:[1,1]RMSLIB/LB:R3ROOTI.;RMOU3P: .FCTR LB:[1,1]RMSLIB/LB:R3MKID-RMOU3A;:<; **********************************************************;R; RMS BLOCK IO OPERATIONS ANDTG; MISC RMS11 RECORD OPERATION ($FREE,$FLUSH,$RELEASE,$REWIND,$TRUNCATE)R;I4RMSBLK: .FCTR RMSBMC-LB:[1,1]RMSLIB/LB:R0RWBI-RMMISC;/RMMISC: .FCTR RMSMIS-RMMIS0:4RMMIS0: .FCTR LB:[1,1]RMSLIB/LB:R0FREE:R1TRUN-RMMIS1;RMMIS1: .FCTR LB:[1,1]RMSLIB/LB:R0RWIN:R2CALC-RMWATR-RMMAGTR;RMWATR: .FCTR LB:[1,1]RMSLIB/LB:R0WATR-RMR1WL-RMR1RL-RMEXTD1&RMMAGT: .FCTR LB:[1,1]RMSLIB/LB:R0MAGT;R<; **********************************************************;*G; SEQUENTIAL RECORD OPERATIONS - NO RESIDENT LIBRARY ON RUN-TIME SYSTEMR;R(RMSSQ0:.FCTR RMSSEQ-RMR1RL-RMEXTD-RMSQOP;R=; SEQUENTIAL RECORD OPERATIONS EITHER CONCATENATED OR OVERLAYI/; THOSE DESIRED OR ANY COMBINATION OF THE ABOVET;B=RMSQOP: .FCTR LB:[1,1]RMSLIB/LB:R1WTLS:R1CKEF-(RMOU1P,RMIN10)L3RMIN10: .FCTR LB:[1,1]RMSLIB/LB:R1GET:R1GSET:R1GBLD[:RMOU1P: .FCTR LB:[1,1]RMSLIB/LB:R1PUT:R1PSET:R1PUNR:R1PBLD<;RMOU1U: .FCTR LB:[1,1]RMSLIB/LB:R1UPDA:R1UBLD:R1DELE:R1PSET;*:; NOTE: IF RMOU1U IS CONCATENATED WITH RMOU1P THEN REMOVE 2; ONE OF THE R1PSET MODULES FROM THE ABOVE FACTORS;C<; **********************************************************;SG; SEQUENTIAL RECORD OPERATIONS IF LINKING TO THE RMS11 RESIDENT LIBRARYH1; OR RUN-TIME SYSTEM (IE, UPDATE AND DELETE ONLY)S;C<;RMSSQ0: .FCTR RMSSEQ-LB:[1,1]RMSLIB/LB:R1UPDA:R1UBLD:R1DELE;T:R1GBLD[:RMOU1P: .FCTR LB:[1,1]RMSLIB/LB:R1PUT:R1PSET:R1PUNR:R1PBLD<;RMOU1U: .FCTR LB:[1,1]RMSLIB/LB;F,; ODL file for the new RMSRST utility (V2.1); RSX-11M/M-Plus;S .Root RMSROT-RST,*ERR,*RMSALL.RST: .Fctr ROOT-SYSSUP-DATA-*(OV1,OV2,OV3,OV4) ROOT: .Fctr RESCTL-RESSUB-DSPMEMGSYSSUP: .Fctr LB:[1,1]VMLIB/LB:INIDM:EXTSK-LB:[1,1]SYSLIB/LB:EDTMG-SYS1YDSYS1: .Fctr SY:[1,24]RMSUTL/LB:$CDTTA:$DIVQ:DIVD:$MULQ:$MONTB:MULUNSDATA: .Fctr RESDAT-RESRMS4OV1: .Fctr RESHLP*OV2: .Fctr RESGCM-LB:[1,1]RMSLIB/LB:R0GCML1OV3: .Fctr RESPAR-RESACT-LB:[1,1]SYSLIB/LB:.TPARStOV4: .Fctr RESMAI-*(OV4A,OV4B)OV00fjJ}M4A: .Fctr RESCHK:;OV4B: .Fctr RESCON-*(OV4B1,OV4B2,OV4B3,OV4B4,OV4B5,OV4B6)<OV4B: .Fctr RESCON-*(OV4B1,*(OV4B2-OV4B3-OV4B4-OV4B5-OV4B6))3;OV4B1: .Fctr RESATR-*(OV4B1A,OV4B1B,OV4B1C,OV4B1D)Y2OV4B1: .Fctr RESATR-*(OV4B1A-OV4B1B-OV4B1C-OV4B1D)OV4B1A: .Fctr RESHCKOV4B1B: .Fctr RESSELOV4B1C: .Fctr RESCVNOV4B1D: .Fctr RESHCROV4B2: .Fctr RESDTAROV4B3: .Fctr RESRWTSOV4B4: .Fctr RESRWVCOV4B5: .Fctr RESSPT0OV4B6: .Fctr RESCLNA(ERR: .Fctr RESERR-*(AV1,AV2,AV3,AV4,AV5)AV1: .Fctr RESUTEOAV2: .Fctr DSPRMEEAV3: .Fctr DSPRSXR$AV4: .Fctr SY:[1,24]RMSUTL/LB:R0RMFSAV5: .Fctr RESCDT ;N; Module definitions;4'DSPMEM: .Fctr SY:[1,24]RMSUTL/LB:DSPMEM4'DSPRME: .Fctr SY:[1,24]RMSUTL/LB:DSPRMER'DSPRSX: .Fctr SY:[1,24]RMSUTL/LB:DSPRSXB'RESACT: .Fctr SY:[1,24]RMSUTL/LB:RESACTV'RESATR: .Fctr SY:[1,24]RMSUTL/LB:RESATR'RESCDT: .Fctr SY:[1,24]RMSUTL/LB:RESCDTS'RESCHK: .Fctr SY:[1,24]RMSUTL/LB:RESCHKP'RESCLN: .Fctr SY:[1,24]RMSUTL/LB:RESCLNR'RESCON: .Fctr SY:[1,24]RMSUTL/LB:RESCONT'RESCRE: .Fctr SY:[1,24]RMSUTL/LB:RESCRER'RESCTL: .Fctr SY:[1,24]RMSUTL/LB:RESCTLV'RESCVN: .Fctr SY:[1,24]RMSUTL/LB:RESCVNo'RESDAT: .Fctr SY:[1,24]RMSUTL/LB:RESDATB'RESDTA: .Fctr SY:[1,24]RMSUTL/LB:RESDTAB'RESERR: .Fctr SY:[1,24]RMSUTL/LB:RESERRB'RESGCM: .Fctr SY:[1,24]RMSUTL/LB:RESGCMB'RESHCK: .Fctr SY:[1,24]RMSUTL/LB:RESHCKB'RESHCR: .Fctr SY:[1,24]RMSUTL/LB:RESHCRB'RESHLP: .Fctr SY:[1,24]RMSUTL/LB:RESHLPB'RESMAI: .Fctr SY:[1,24]RMSUTL/LB:RESMAIB'RESPAR: .Fctr SY:[1,24]RMSUTL/LB:RESPARB'RESPRE: .Fctr SY:[1,24]RMSUTL/LB:RESPREB'RESRMS: .Fctr SY:[1,24]RMSUTL/LB:RESRMSB'RESRWT: .Fctr SY:[1,24]RMSUTL/LB:RESRWTB'RESRWV: .Fctr SY:[1,24]RMSUTL/LB:RESRWVB'RESSEL: .Fctr SY:[1,24]RMSUTL/LB:RESSELB'RESSPT: .Fctr SY:[1,24]RMSUTL/LB:RESSPTB'RESSUB: .Fctr SY:[1,24]RMSUTL/LB:RESSUBB'RESUTE: .Fctr SY:[1,24]RMSUTL/LB:RESUTEB@LB:[1,1]RMS11X.ODL  .EndR;F,; ODL file for the new RMSRST utility (V2.1); RSX-11M/M-Plus;S .Root RMSROT-RST,*ERR,*RMSALL.RST: .Fctr ROOT-SYSSUP-DATA-*(OV1,OV2,OV3,OV4) ROOT: .Fctr RESCTL-RESSUB-DSPMEMGSYSSUP: .Fctr LB:[1,1]VMLIB/LB:INIDM:EXTSK-LB:[1,1]SYSLIB/LB:EDTMG-SYS1YDSYS1: .Fctr SY:[1,24]RMSUTL/LB:$CDTTA:$DIVQ:DIVD:$MULQ:$MONTB:MULUNSDATA: .Fctr RESDAT-RESRMS4OV1: .Fctr RESHLP*OV2: .Fctr RESGCM-LB:[1,1]RMSLIB/LB:R0GCML1OV3: .Fctr RESPAR-RESACT-LB:[1,1]SYSLIB/LB:.TPARStOV4: .Fctr RESMAI-*(OV4A,OV4B)OV4A: .Fctr RESCHK:;OV4B: .Fctr RESCON-*(OV4B1,OV4B2,OV4B3,OV4B4,OV4B5,OV4B6)<OV4B: .Fctr RESCON-*(OV4B1,*(OV4B2-OV4B3-OV4B4-OV4B5-OV4B6))3;OV4B1: .Fctr RESATR-*(OV4B1A,OV4B1B,OV4B1C,OV4B1D)Y2OV4B1: .Fctr RESATR-*(OV4B1A-OV4B1B-OV4B1C-OV4B1D)OV4B1A: .Fctr RESHCKOV4B1B: .Fctr RESSELOV4B1C: .Fctr RESCVNOV4B1D: .Fctr RESHCROV4B2: .Fctr RESDTAROV4B3: .Fctr RESRWTSOV4B4: .Fctr RESRWVCOV4B5: .Fctr RESSPT0OV4B6: .Fctr RESCLNA(ERR: .Fctr RESERR-*(AV1,AV2,AV3,AV4,AV5)AV1: .Fctr RESUTEOAV2: .Fctr DSPRMEEAV3: .Fctr DSPRSXR$AV4: .Fctr SY:[1,24]RMSUTL/LB:R0RMFSAV5: .Fctr RESCDT ;N; Module definitions;4'DSPMEM: .Fctr SY:[1,24]RMSUTL/LB:DSPMEM4'DSPRME: .Fctr SY:[1,24]RMSUTL/LB:DSPRMER'DSPRSX: .Fctr SY:[1,24]RMSUTL/LB:DSPRSXB'RESACT: .Fctr SY:[1,24]RMSUTL/LB:RESACTV'RESATR: .Fctr SY:[1,24]RMSUTL/LB:RESATR'RESCDT: .Fctr SY:[1,24]RMSUTL/LB:RESCDTS'RESCHK: .Fctr SY:[1,24]RMSUTL/LB:RESCHKP'RESCLN: .Fctr SY:[1,24]RMSUTL/LB:RESCLNR'RESCON: .Fctr SY:[1,24]RMSUTL/LB:RESCONT'RESCRE: .Fctr SY:[1,24]RMSUTL/LB:RESCRER'RESCTL: .Fctr SY:[1,24]RMSUTL/LB:RESCTLV'RESCVN: .Fctr SY:[1,24]RMSUTL/LB:RESCVNo'RESDAT: .Fctr SY:[1,24]RMSUTL/LB:RESDATB'RESDTA: .Fctr SY:[1,24]RMSUTL/LB:RESDTAB'RESERR: .Fctr SY:[1,24]RMSUTL/LB:RESERRB'RESGCM: .Fctr SY:[1,24]RMSUTL/LB:RESGCMB'RESHCK: .Fctr SY:[1,24]RMSUTL/LB:RESHCKB'RESHCR: .Fctr SY:[1,24]RMSUTL/LB:RESHCRB'RESHLP: .Fctr SY:[1,24]RMSUTL/LB:RESHLPB'RESMAI: .Fctr SY:[1,24]RMSUTL/LB:RESMAIB'RESPAR: .Fctr SY:[1,24]RMSUTL/LB:RESPARB'RESPRE: .Fctr SY00not`Ol:[1,24]RMSUTL/LB:RESPREB'RESRMS: .Fctr SY:[1,24]RMSUTL/LB:RESRMSB'RESRWT: .Fctr SY:[1,24]RMSUTL/LB:RESRWTB'RESRWV: .Fctr SY:[1,24]RMSUTL/LB:RESRWVB'RESSEL: .Fctr SY:[1,24]RMSUTL/LB:RESSELB'RESSPT: .Fctr SY:[1,24]RMSUTL/LB:RESSPTB'RESSUB: .Fctr SY:[1,24]RMSUTL/LB:RESSUBB'RESUTE: .Fctr SY:[1,24]RMSUTL/LB:RESUTEB@LB:[1,1]RMSRLX.ODL  .EndR;,,; ODL file for the new RMSRST utility (V2.1); RSX-11M/M-Plus;R .Root RMSROT-RST,*ERR.RST: .Fctr ROOT-SYSSUP-DATA-*(OV1,OV2,OV3,OV4) ROOT: .Fctr RESCTL-RESSUB-DSPMEMGSYSSUP: .Fctr LB:[1,1]VMLIB/LB:INIDM:EXTSK-LB:[1,1]SYSLIB/LB:EDTMG-SYS1[DSYS1: .Fctr SY:[1,24]RMSUTL/LB:$CDTTA:$DIVQ:DIVD:$MULQ:$MONTB:MULUNSDATA: .Fctr RESDAT-RESRMSROV1: .Fctr RESHLPE*OV2: .Fctr RESGCM-LB:[1,1]RMSLIB/LB:R0GCML1OV3: .Fctr RESPAR-RESACT-LB:[1,1]SYSLIB/LB:.TPARS OV4: .Fctr RESMAI-*(OV4A,OV4B)OV4A: .Fctr RESCHK:;OV4B: .Fctr RESCON-*(OV4B1,OV4B2,OV4B3,OV4B4,OV4B5,OV4B6)<OV4B: .Fctr RESCON-*(OV4B1,*(OV4B2-OV4B3-OV4B4-OV4B5-OV4B6))3;OV4B1: .Fctr RESATR-*(OV4B1A,OV4B1B,OV4B1C,OV4B1D)Y2OV4B1: .Fctr RESATR-*(OV4B1A-OV4B1B-OV4B1C-OV4B1D)OV4B1A: .Fctr RESHCKOV4B1B: .Fctr RESSELOV4B1C: .Fctr RESCVNOV4B1D: .Fctr RESHCROV4B2: .Fctr RESDTAROV4B3: .Fctr RESRWTSOV4B4: .Fctr RESRWVCOV4B5: .Fctr RESSPT0OV4B6: .Fctr RESCLNA(ERR: .Fctr RESERR-*(AV1,AV2,AV3,AV4,AV5)AV1: .Fctr RESUTEOAV2: .Fctr DSPRMEEAV3: .Fctr DSPRSXR$AV4: .Fctr SY:[1,24]RMSUTL/LB:R0RMFSAV5: .Fctr RESCDT ;N; Module definitions;4'DSPMEM: .Fctr SY:[1,24]RMSUTL/LB:DSPMEM4'DSPRME: .Fctr SY:[1,24]RMSUTL/LB:DSPRMER'DSPRSX: .Fctr SY:[1,24]RMSUTL/LB:DSPRSXB'RESACT: .Fctr SY:[1,24]RMSUTL/LB:RESACTV'RESATR: .Fctr SY:[1,24]RMSUTL/LB:RESATR'RESCDT: .Fctr SY:[1,24]RMSUTL/LB:RESCDTS'RESCHK: .Fctr SY:[1,24]RMSUTL/LB:RESCHKP'RESCLN: .Fctr SY:[1,24]RMSUTL/LB:RESCLNR'RESCON: .Fctr SY:[1,24]RMSUTL/LB:RESCONT'RESCRE: .Fctr SY:[1,24]RMSUTL/LB:RESCRER'RESCTL: .Fctr SY:[1,24]RMSUTL/LB:RESCTLV'RESCVN: .Fctr SY:[1,24]RMSUTL/LB:RESCVNo'RESDAT: .Fctr SY:[1,24]RMSUTL/LB:RESDATB'RESDTA: .Fctr SY:[1,24]RMSUTL/LB:RESDTAB'RESERR: .Fctr SY:[1,24]RMSUTL/LB:RESERRB'RESGCM: .Fctr SY:[1,24]RMSUTL/LB:RESGCMB'RESHCK: .Fctr SY:[1,24]RMSUTL/LB:RESHCKB'RESHCR: .Fctr SY:[1,24]RMSUTL/LB:RESHCRB'RESHLP: .Fctr SY:[1,24]RMSUTL/LB:RESHLPB'RESMAI: .Fctr SY:[1,24]RMSUTL/LB:RESMAIB'RESPAR: .Fctr SY:[1,24]RMSUTL/LB:RESPARB'RESPRE: .Fctr SY:[1,24]RMSUTL/LB:RESPREB'RESRMS: .Fctr SY:[1,24]RMSUTL/LB:RESRMSB'RESRWT: .Fctr SY:[1,24]RMSUTL/LB:RESRWTB'RESRWV: .Fctr SY:[1,24]RMSUTL/LB:RESRWVB'RESSEL: .Fctr SY:[1,24]RMSUTL/LB:RESSELB'RESSPT: .Fctr SY:[1,24]RMSUTL/LB:RESSPTB'RESSUB: .Fctr SY:[1,24]RMSUTL/LB:RESSUBB'RESUTE: .Fctr SY:[1,24]RMSUTL/LB:RESUTEB;RMSROT: .Fctr LB:[1,1]RMSLIB/LB:R0EXSY:R0IMPA:R0AUTS:RMSSYMt .End4<0U  #F t|; 1 1kKxx1#^n^z^^""^&^\K^K^W^W^Z^^<^n^K^1#<}&#&#E,zKaz8az8az:1:1:1:1SazSaz?T"0V?TVN0V?T\}?T?TB?TB?TB?TB?TV?TV?TV?TV?TV?T?T߭V?TV?TV?T-6?T#?T#?T#?T%?T%?T%?T %?T %?T %?T %?T8?T8?T?T.o 00vjJ}M?T/o ?T0o ?T1o ?T2?T3o ?T4o ?T5o ?T8?TV#?TW-6?TX%?TYV2?TZo ?T[o ?T]V2?T^V2?T`?T~8?T0?T0?T?To ?To ?To ?TV2?TV2?TV2?TV2?TZ?T1?T8?T?TӮZ?TخaXqVN0Vv1v o FwVN0VNy"#y*}az{W{{{{@ }1fo  o "0V:;VN0V11#888$CT8@D=Z D{s DHX Je  e8fWazsϑ`;BxrUFwU:d\,vaz6؁86܁868686P868,o ɪp:o ت# #۪+ܪ"%(%(*0/Xq0Ap%As%R#BaV2"&T`8|0XU}Z1Xq8} ̫d-6̫XqV 8Z8G &G q]@88j+K j`1*`azyaz,azo $ azU8r#+az+^,n,0VN`&0:dw%w0aZx0a1x0a8y0a-6yw y0aVz_Mo DJBFwU:d\۪+(BaV2"&T`q]@jj00~ot`OlUtJtD<&k@VN@t @ ~h t <&k   VN&&` `f fzzzSYU>zJ>D[X@)sE@)E@[8@x@@"@%Z@:;@)@)@kK@z{@@)Ty@'@)G@<&%t@)[M@۪+@a@&@[@)W@{@=@@=@@Bhp!@?T8H?T`H Jh,?TԀ -?T\}  ,, pp  =?TԀIllegal filename ?T\} ?TԀD\Df ȕ pf |{  ۪+@=$(*)Ty0)[M4<&%t6):a<)sE@kKB)sEF"H)EL:;N)GX&<  eB 99 R'%Z ) hp!&)W"[8&[8*[8.[4[X?TԀ Can't open transaction file ?T\}   ?TԀf  {@  ۪+xU>z(>D)@[X@)sE@)E@[8@x@@"@:;@)@)@%@zkK@{@@)G@%x@<&%t@)[M@h&@'@۪+@a@[@)W@%r!@@?TH* v(h?TԀ $?T\} P eCrrUp| )W[8[8 [8&[,[X0%r!% 2)8)[M<<&%t>)BaD)sEHkKJ)sEN"L 6)E:; )G'%x )h&?TԀ(Can't open transaction file (by ID) ?T\}   ?TԀbbf  {@  ۪+xU>zj>D?THx@@kKH{@@e;@۪+@@)8@@`;@ 2jh:;hah?TԀ ?T\}  @ && 8#-&& FFF )8)8)8&)8,)80)86?TԀ!Can't write transaction fileb ?T\} ?TԀ@@f    RB Ee`%  D~% b  %:00jJ}M{@  ۪+x<Tfe;l`;rx  U>z>D:2@@"@{@@sϑ@۪+@)8@)%@)@VN@@)%@R:@?TH ?TH ?TH ?TH 6h?TԀ z?T\}  eq q"9q,4&&&00& & & & & & & Ε Uv) 6)%:)%>)%B)8D)%H)8J)%P)%\dj"nVNr:~"t|)On<& ff& & & Ε ) *eq  D)%)%)%28>"BVNF:2R"psϑ?TԀCan't init new blocks ?T\} ?TԀf $ {@  ۪+?TԀ*Can't init new blocks. I/O error = %B ?T\} ?TԀf $ {@  ۪+?TԀ<+<Can't write attributes. I/O error = %B ?T\}< ?TԀ<f  & {@  ۪+sϑ?TԀccCan't write attributes2 ?T\}c ?TԀc&&f  {@  ۪+U>zD>D?TخH j@`@x@@۪+@{@@ 0Dh?TԀ ?T\}  "   ( jx`?TԀ!Can't close transaction file ?T\} ?TԀf   {  ۪+xU>z۪+>D[X@s@?T"@:2@@{H{@H@Q@?T@[@[Z@)W@z:@?TVN@{H{H[W@)Ps@[@[(}@?TH?TH?TH{WH `;h xh0Bsϑh۪+h #<}h?T\}?T\}h?T]}?TԀ  ,*DIAG* *WARN* *ERROR* *FATAL* ?T]} ?TԀ+Undefined message number %D. at PC %P ?T\} ?TԀ?TԀ'%'Directive error. $DSW=%P PC is ?T\}' ?TԀ'?TԀG;Gjust before %P FCS %3A error code = %B %Nfile: %2A%O: ?T\}W ?TԀW?TԀ}}[%3A,%3A]%X T ( (I/ODSW??? = --    DE-f2fEĥЕЕ Е Е ?d ^ P6?T]}$2@FN@QZh[(}r[(}v Е.Е %  `-h7be~ A 2& & &  &2& & & Ε ::8 F?T\}J?TN2^2h?T"l?TVNp:2|?T"^)Fe  f&&&&&..&&e&e~ s6[Z)W :[)W >[W)W B[W)W F[W)W J.N.R[X)W X[)W &^+( F)Ps)Ps+(B UXzy0aXDXD{s@uX@D@y@ew@uL@{@@# z@G g@T.@@D=Z@zѫDL@۪+@&G@U[}@|r@@ѫj@@J@{@Ny"@Ba@?TH?TH?THR?TH?TH?TH?T߭H?TH @̫Xqh?TԀ ?T\}.  C   ѫ  z_M  .  .@@dNNCrrHHѫSYSTEM TASKS llrCz.ѫw5w w w7 w w7|5e wr75 6uXT.$28uL@NG gZuXd hawVw XwTfff e D 00ot`Ol w\5$r B"&*:JHBaLDV\\uXnD{stzѫj~ r ( d> ( kwU@ %  5e PZ U[}y$>(U[}2y6ѫDL<FuXLuXP|r\۪+`dpuXzewz 7 7 E@ +)E@d .  ww e r ewѫjuX$۪+*2Ny">uXB# zN.R۪+VZD=Z`d&Ghl{@ ?TԀAccounting already active ?T\} ?TԀf  {  ۪+?TԀError spawning SYSLOG ?T\}   ?TԀ  f 0{@  ۪+{@ ?TԀ00SYSLOG not installed ?T\}**0 ?TԀ0  f w&{  ۪+?TԀE+EError bit set. Cleanup before restart.N ?T\},,E ?TԀE00f w&{  ۪+?TԀl&lSecondary pool allocation failure ?T\}l ?TԀl?TԀBad SYSLOG queueg ?T\} ?TԀ?TԀ"Accounting system not started ?T\}"" ?TԀ?TԀ!SYSLOG exit with status = %Dl ?T\}((  ?TԀU>@zj>@DX(@y@{@@kK@v @uX@;F4 @۪+@l.@U[}@uX@nH@z@ @f@@dW@{Ay@{Cy@@u@u@fDݩ[}L BT B^fv pU[}|۪+ e64 e`% Bd6ߵ4BR ;F4 ;F4 $;F4 :kKF;F4 L;F4 VZ;F4 ^`;F4 n;F4 |;F4  6 4 ` 56  w ߵb;F4 ݩ[} ;F4 &`*2uJpqNnHRnHXs(byj;F4 puXtD~xa~;F4 dߥ.W0 2P00jJ}MR  E@w&U  Pa# z$#{*i.a2a:uX>T.B;F4 F6sL;F4 P;F4 ^;F4 U0zr0D@@s@`;@p@{@@z}@C @۪+@}@̫d@Xq@z̫Xq@\f@*@{@u@Ny"H&HAs@?TH?TH?TH?TVH2 Rhh2ت# hd&hRy ?TԀ k?T\}d( )RRLB:[1,6]ACNTRN.SYS&wwwww,̫Xq ̫dXq}?TԀ"System command handling error ?T\}44 ?TԀf 5.{@  ۪+*C ?TԀ'Accounting not supported in system ?T\}88 ?TԀHf  @mȕ dpw5V{  ۪+s"As&d*2`;6z}:u>\f@?TԀAAPrivilege violation ?T\}66A ?TԀAf  {  ۪+?TԀUUAccounting not active ?T\}bbU  ?TԀUU~z:dw~DX?T"@uX@s<}@:d@R@> ACCOUNTINGP PNOZZZYES$z_M 5 E d  ' 4$"&q6RBdJ:d?TԀ!Illegal command or parameter ?T\}:: ?TԀf  {  ۪+?TԀ#Command or parameter ambiguousT ?T\}<< ?TԀf w&{  ۪+?TԀ<<Syntax error ?T\}>>< ?TԀ<f   {  ۪+?TԀIITerminal I/O error5 ?T\}@@I ?TԀIf  !{  ۪+?TԀ\(\Repeated or contradictory parameter ?T\}BB\ ?TԀ\f  "{  ۪+?TԀRequired parameter missing ?T\}DD ?TԀf  #{  ۪+?TԀValue out of range ?T\}FF ?TԀ#f  CRASH_REASON${  ۪+$$ EXTEND_SIZEFILE>> POOL_RESERVEPEP SCAN_RATESTATISTICS_SCANSYSTEM_STATISTICSTASKaBp>ѥ/@ >   E~U(,ɥ ѥ  ѥ:ZB p >$@(q.ت# 2&6&>L:dBshU<JuXnrq 5VUNE@wwpww5*U"t ɥ ɥ  707P@ ¥ Hت# `ت# x ت# *R.q<ت# Lت# Rت# Xت# lRpq~ت# E5\ U@5J5 U: w5.wU"@ ¥ ¥ ¥M¥SwWp<wt& ت# ت# ,ت# Rlѥ c@ n ~7 Hɥ/ ѥ  IB R Oѥ:< DBp> .@2q>ت# JuXLت# dlpqbɥ ѥ 25@U@ne5@5 5Uw5Ew5UHت#  uX$nFLت# TuX\uX`&GfuXnuXrG1Ewww DATATRIEVE 1 DTR INFORMATIONTRANSACTION_FILE: : ATTRIBUTE? OUTPUT FILE? ѥ X@ Uɥ/ ѥ  JB<  Bie 7ɥ: b7J7L7N7P 7RF@q.<6:qTRXت# hت# nت# tت# zت# D 7 &  ѥ  BH 07  ɥ wFw Vr7  5w <ت# ت# (HLVX\bT.h#js<}pݩ[}  w8 ?TV{ 4{ ۪+?TԀSYSLOG not active ?T\}ff ?TԀ8  w7 ɥ ѥ  @ɥ 7 4 ?TV{ ۪+ت# 4ت#  U>@zy0a>@DXuX@D~@9@@C @D=Z@e @۪+@f@*S@3@ѫj@z3x@@@2`m@a@DF@5@+K@a@}@{@i@@{Cy@HX@Z7M@?THHm@?TWH3?TV@@ b̫dh?TԀ J?T\}f ()7 w 5"uX?TԀAccounting did not crash ?T\}00 ?TԀ&&f  5&{  ۪+uX?TԀ5Accounting had a fatal error, must be cleaned up* ?T\}dd ?TԀ<j<f w, b5 fU@ 5 7 7 A 5 ~3{  ۪+,"uX04ѫj:uX>7MDHmH*SJC PHXTXѫj\D~`af+KtE A  5 E 5 A 5 6  E@aa aDF532`m$3x&2`m,+K058@9BHNe RiV\{Cyh}liT     7  ww@uXi?TV{ D=Z&۪+6f@HRvUtXZ,tXD?T"H"HFwVNHXqVNH?TVNHVNH U>@zN`&>@DXuX@x@%Z@'@%x@h&@۪+@"&@{@=@@=@' q@R@hp!@?THA?TH@ *h@/XqhP?TԀ ?T\} z_M)@2@2pp <' q%x  '%Z "&,=?TԀIllegal file name ?T\}~~ ?TԀl8lf  ȕ $# 4@{  ۪+@=&0hp!?TԀOpen error' ?T\} ?TԀhf  eBsssa(s s U5# <A{  ۪+x>uXBHPZuXdh& UXzx0aXDX?THN*@fuL@eq@eq@`@x@w@e{s@es@:@}@zc#@)p@"&@۪+@@/Xq@:"@}@XqVN@{@)'@@[(}@i8^@[@z)Ps@f@dW@D@$9!@)p@:_@ h:h6; h h:hB:h<vhZh }h|xxhhh:hHK`h?TԀ  ?T\} zz00jJ}M< K X   XZF        Z$$*v2    * v(||5HJBLBP^BTBV|\B<F<<:<8B><B<<< R||HB B&,B2B8|>BD<J<P<V<\Bb<h<n<t<~ B8(|<||<6B<<<4: B@B6(|RB| |&|,<2B8<><D<JL:V\bBhntz||<.<<<5HD<H<L<PBRB4N|| ||R| <<<<"H(<.<4<:B@BFHNR|\b|hnx|~| B|   'L@4x  B|B2 B|$6`flBr|x~B~BHH" B||B|<|<\BHH$*06BDJBPBV\BbBhBnBtBzBv B|B See Fz52zzbB| &B,4*:"&>)'F[N/XqTzXXqVNdDpztxzz)pT ' \ e  ыw <w*)p}$9!)Ps ?TԀI/O error ?T\} ?TԀ@@f    w B7     vhP CCaB  EfHN{  ۪+x`"&"`& >KP&C DDa e CCaД% ЕTCOДf   efDDa   e[(}R:h[(}r:_8 fAAaCE Cы%f% Pf|AAaS  |  @ePPL|h|p:"zP@~lffNaЕ[ ` Е, Е]  7 dCCa% B l$:z0& T 5fC4 (  ` Д x < w.[(}N"&RT)pX)p\}fr8Uzx0aDXD@?THO*@fuL@?T"@eq@eq@:2@`@x@s<}@w@ze{s@es@D@R@D@ʫy@}@c#@9@a}@z}@:t @)p@@"&@z۪+@@Q@9x@:@@/Xq@@ѫj@a@:@}@XqVN@:@?TVN@{@z<@Df@@[(}@i8^@)Ps@u@f@dW@$9!@_M@)p@:_@DQ@?TH&z?TH'ݩ[}@?T~H<@ zh@ $CTh 6܁h| 6؁h 6h 6h 6h 6Ph eh h bXqh h& h 8h hr P}Zh\K@?TԀ a?T\} XXnn@zZrN vH Tʚ;@B'd   ACCOUNd?TVNf?T"lTING DATA - 00-000-00 00:00:00CURRENT FILEUNKNOWN TRANSACTION TYPE: \KTotal System Statistics f f \KP} \K User - ( ( \KP} \K  Task - 00ot`Ol   \K P} \K((Accounting Startup   (  \K(P}   \K;;Invalid Logon ;  \K;P} \KIISystem Time Changeo I  \KIP} \K\\Device Allocation \  \K\P} \KnnDevice Deallocation n  \KnP} \KDevice Mounta     \KP}   \KDevice Dismount $$  \KP}$ $\KPrint Job ((  \KP}( (\K Login - ,,  \KP}$$, ,\KSystem Crash Record 002 2 \KP}&&0 0\KDevice Statistics 44^ ^ \KP}((4 4\K!Reset Transaction Parameterso 88  \KP}**8 8\K%Card Reader Spooling Transaction <<L L \KP},,< <\KAccounting Started ff(& & \K\K))Accounting Stopped pp& )& \K)\K<<Shutdown Code zz5 <  \K<\KJJTrans File ID J J  \KJ\KX XSeq Num L X \KX\K` `Device P ` \K`\Kg!gStatistical Scan Rate (sec.) ^ g \Kg\KFile Ext. Size T  \K\KTime Of Last Scan V& & \K\KScan Rate (sec) \  \K\KTotal CPU    \K\KZero CPU Intervals F  \K\KTotal Tasks    \K\KTotal Logons :   \K\KCurrent Users 8   \K\KCheckpoints >   \K\K SHF Runsc B  \K\KDirectives    \K\K QIOS   \K\KSession ID (( @  @ \K\K))TI: 22 ) \K)\K- -Account << - \K-\K55Logon UIC FF8 5  \K5\K??Logged on PP(& ? & \K?\KIILogged off ZZ<& I & \KI\KTTBilling Stopped dd& T& \KT\KddCPU nn d \Kd\KhhTasks Active xx6 h  \Kh\KuuTasks Run  u  \Ku\KDirectives    \K\K QIOs   \K\K Status 4 H \KH\KSession ID  @  @ \K\KTI:   \K\K Account   \K\KCurrent UIC @   \K\KProtection UIC B  \K\KTask Name 6   \K\KTask Initi00jJ}Mation Time (& & \K\KTask Completion Time & & \K\KCPU   \K\KCPU Timelimit   .   \K\KDirectivesn    \K\K QIOs   \K\KTask Priority ((5|  | \K\K,,Task Context Loadsi 22D , \K,\K??Task Checkpointsk <<H ? \K?\KPPDisk Overlays FFL P  \KP\K^^Exit Status PPP ^  \K^\KjjAbort Codei ZZR j  \Kj\KuuTask Status dd4 u \ \Ku\\K T.ST3 pp< h \Kh\KAccounting Started & & \K\KTI:   \K\K Time & & \K\K NameK r r \K\KUIC    \K\K Old Time & & \K\K New Time & & \K\KSession ID  @  @ \K\KTI:   \K\K Account   \K\K Time & & \K\K Device    \K\K Vol ID  r r \K\KOwner UIC $   \K\K ACP Name $$(  \K\KVol Prot Mask ..&   \K\K   Status 8`8"  'L@4x fQxYz'8 \K 4D8Df>0 , \K,\KFFSession ID LL @ F @ \KF\KQQTI: VV Q \KQ\KU UAccount `` U \KU\K]]Time of Job jj& ] & \K]\Ki iJob NameS tt i \Ki\KrrCards Readt ~~ r  \Kr\K}}Card Reader  }   &f< ge bZ5 CV \K}:t $,:24*>/XqDZHXqVNT9\"&``d:t jr:2|  ZZ /&  me  ы w 5 w@ ZZ)p)p }&$9!()Ps ?TԀI/O error ?T\}vv ?TԀz z f  5v  5f w B:77   v%7 f N<{  ۪+x"`."&2`8:>D \P} | + FCeJe ( ef    & K ݜ  P[(}V[(}d hKv:_r BBle eC  Е= CCaBwB eBle eC  Е= fC DDa Bln[(} e jeC N Е= CCaД% ЕTCOД f Е:Ble eC  Е= fDDaL:_j     2Ble eC v Е= C6[(}:_:":_,:6:_@:J<T2 AAa% % %AAE & %Е.e Bl .eC  Е= fZAAaS f .:_hZb Z   +wT & fBe eC Е= Е[fNa Е,` Z a}@Q +(T 2:_ Е] CweCa% B & T 5CB (efC 4 e  ˋДd[(}Z &7`%PC&5 %+  ':5F@,"&6BH+N)pR)pV}bt|~)p  ( e7wxCB >> 0Z=w,&fE&.@ACp *)p } 2H>PZZvpR  llC bA  e0> e  0 A@zBl &ХTХI mBХSХYХSnХT ХAХSХK Х=7 f wX wLj Y) *j%CO00jJ}M 5.B9xP9xXjf_Mljvѫj|9~4J CwdZ % .Z ݩ[}?TԀ  No accounting data present ?T\}JJ  ?TԀ xxf w&&{  ۪+?TԀ%%Device specification error ?T\}LL% ?TԀ%f  '{  ۪+?TԀ@%@Task not in memory or not active ?T\}@ ?TԀ@f wd rZw7 .'7 (   7TZ dO{  ۪+z}u ,8Z<@ݩ[}N RʫyXs<}darZvݩ[}l-&  Z5u u C0CC. C5 uz} u(R,ZUt0J"&t0D<&@XqVN@t @ ~"&h t <&"" XqVN&&` `f f<@ԀzzSYUtztDHg@gr@uX@nr@y@uL@ew@}@D~@-@ʫy@|p@zT.@z}@^@G g@@@ѫDL@C @f@eĊ@|r@|r@L:d@@ѫj@za@̫d@DF@J@i@{f@@@̫s@{Cy@x@7M@*}@H@shU<@Hm@ PUtRFwtDXFwVN@t @ rhFwh0Xh`  t "" FwVN$$` ``&`lp uLB0:[1,6]SYSSCAN.TMP;1l pu FwVN lp SYSSCAN.TMP;2rl pnUXzBaXDX?THI?THL?THJ?THK?T"@Fw@j@:2@`@x@@)@zsϑ@)Ty@}@$9~Z@۪+@0X@:s@?TVN@{@K@)Ps@' q@@$9!@)p@Rhp!@?T]H9?T^H:?TYH5{W@ NBahh?TԀ ?T\} ENTER: 6Vѫ""C,r,   qNBJ0XNFwR0XT)TyX' qZ)`)pdhp!j)Psl$9~Z?TԀon scan file open ?T\} ?TԀf f - X =B   ,($1    bI{  ۪+)p}$ &)p*BFwF}j nrjz)Ps|$9! ?TԀ$Copying scan file to trans file ?T\} ?TԀ f   $2J{  ۪+xFw`?TԀ22On scan file closeZ ?T\}2 ?TԀ2.>.f  r  BK{  ۪+ $j*K0K6)Ps8$9~Z?TԀEEOn scan file delete ?T\}E ?TԀEf ff   ?&L{  ۪+x?TԀYYEnter reason for the crash ?T\}ppY ?TԀYf  9{W  ۪+?TԀss (Maximum 60. characters) `& & & $& & Ε & & & & <,& & Ε > ?T"$?TVN(:2@,FL?T"P?TVNT:s?TԀTerminal I/O errors ?T\}rr ?TԀ`f  *   1  >:{  ۪+sϑ:>RVZj?TԀ#Cannot write crash transaction ?T\}hh ?TԀ@@f 5{  ۪+vU>zw0a>DX?TӮHU?THMuX@D@۪+@|r@00ot`Ol@@J@{@ݩ[}@ "}h?TԀ =?T\} vv2w5w  wr 7 $lhfb^`\B><~8z4"uX"&.2ݩ[}"x6v2trW,UwT UwJW, Uw 2W"Uff  e^bfvJ|D* \ t we t|r ?TԀ+Error bit set. Cleanup before restart. ?T\} ?TԀf  M{  ۪+?TԀ''Accounting not active ?T\}' ?TԀ'f U{  ۪+*U>j:d>D:2@(@:t @:s@:@Ap@$9!@ F:dh  P&&f r.tt Z  B  0 4:s .(2:t >:2\Ap`p(t:|  &% &)f@ɥ ɥ ȕ   ɥ!ɥ "ɥ ɥa$9!Rɥz P  6  ȕ   ,Е hU?:q?Dܪ"@ qh   /:,+- 7 ɥ/ f |wfe ^S   P   `E   ~  x`ܪ"(ܪ"Vܪ"6 Eew &ȋPw ".ܪ"Ut0z+t0DX@KH"6܁@6@6P@H""H>UFD @@.> \K>\KBBUFDS INCLUDED NN2B  \KB\KPPBLOCKS USED \\"P 6P \KP\K\\BLOCKS ALLOCATED ff&\6P \K\\KmmNUMBER OF FILES pp*m6P \Km\K}}NUMBER UFDS ~~.} 6 \K}\KEMPTY UFDS 0 6 \K\KNUMBER ERRORS  6܁ \KUVXz+VXD<&@<&Kq@p@:2@@گ@:p@}@'@SH<&9@|p@zz}@C @$9f@;P@?T@ X@X@}@,@T; z@*@=@@=@' q@t @z@$9!@8H<&D@hp!@# @Hz@$9~Z@@`@ r E,zKhyhffWhV,vhb*`hp y*}hb ?TySh8hZg|#,hy0 l+  $ h+( ?TyDAC VERSION M0001DAC -- + Zg|# +?TSY $$&&   bbt <&ttv vrr t8 89<&9<&Kq<&D ""7,,X DAC>00jJ}MX> >VV  VV+p pvz~vz~  LINVMNHENACNIDNTI0:SY0:[1,2][*,*]UNSDAC.HLP*.*;*%NDEVICE %2A%O:, DIRECTORY %VA CONTAINS %T. NNN&N.N,/%T. BLOCKS IN %T. FILES%NDEVICE %2A%O:, VOLUME LABEL = %12AUFD'S %VA CONTAIN %T./%T. BLOCKS IN %T. FILES IN %M. DIRECTORIESTHERE ARE %M. EMPTY DIRECTORIES%N*********************************************%2A%O:%VA%2A%O:%VA -- FID:%O:%O -- ERRORB$ STATUS = %D. v R&:2v,:p2R68022; ?TySYNTAX ERRORBAD SWITCHFAILED TO FIND UFD(S)READ ATTRIBUTES ERRORILLEGAL SWITCH COMBINATION*** FATAL! -- ACCOUNTING NOT AVAILABLEWARNING -- ACCOUNTING NOT ACTIVEERROR IN "FINDING" A FILEERROR IN "FINDING" A DIRECTORYILLEGAL SWITCH COMBINATION - DEFAULTING TO /NOLIST/ACNT*** FATAL! -- PRIVILEGED COMMANDVOLUME NOT MOUNTED*** FATAL! -- DIRECTIVE FAILUREILLEGAL OUTPUT SPECIFFICATIONFAILED TO OPEN OUTPUT FILEFAILED TO OPEN HELP FILEI/O ERROR b b گ ++~  u  $o . Hf C *ÝR 0Z XT&rfQ  G  ? | ?Ty ?Ty$ $?Ty.0 6?TyC>RH N?TyX V?Tyr\fb h?Tyn t?Tyrz 7  1 7+ &f( FXf w   | ?Ty ?Ty &?Ty .?Ty&4f: @?TyF H?TyXNfT Z?Tyw` f?Tylt  ff5    f5 b UX7 N~ ?Ty ?Tyff (?Ty.z}HXNfR*TC  Z^` bbf`lXpNXQ  (*  z 1 1 1 1 ȕ  bj ,( *" &*= > F ^f@= zb~'#  7   5NA5N w  Jw&thp!"*2 6 :@@=NNVN tv& z~' qP#  wv b , R &w5N5 N ww@ jhp!  v&} ,b06<}D$9!F, P R&\NdNwl   w55X UN UN eB 5X h &.X6N<DN L V \bfpX zH  EX e *  fw,>x   ,4 8: DLXX# ^$9ftx PPeZ Ҕ  *9 jwwwJ wR   \PP Z. X4$9~ZDJP TJ `T; zbR nl@l xw vlvl|w zlzew ~5N`$eBBehwj7l7n5Nzx vv|z"z(,~4N :NhTjZl`nfN\vh bvp 5N2Lhjv"x$z&|(~ v  h?T b v"}(N .2L8h>jDvJxPzV|L~*,ZP .l 4wmxw mvm|z~   Z ". &l*;P .246|p:x<@DvFJ|N00ot`OlHw mzmw m~ L M`%M ~   z z~$L*M:M>~DJl eB  e w4* Dew7Z5N3v~   "Hz,$9~Z :DDJ NZPTVZ\bN hvTE bvp vj bvp v  E  ?T b v} "v &j *.?T 2b 6v@} Dv H LP?TdJbvp 5NA0M"$&(*,.0 b v}N 0"M(.4:@FLRX^~FZP b PW]  0w b5Nvh bvp wb  F Z b 408<|pFNN Tv X \h`?T db hvr} zbl$"wwv 7L 7M7 LL&f^`` " v&L ,:M>FLLL X^Z^``dfjBv   w@ 2 h v    & *.?T2@ 62 Ut0z,t0DXKH"H""HF@FB>FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~FFF F FFFFFFFFFF F"F$F&F(F*F,F.F0F2F4F6F8F:FF@FB|FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~FFF F FFFFFFFFFF F"F$F&F(F*F,F.F0F2F4F6F8F:FF@FBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~FFF F FFFFFFFFFF F"F$F&F(F*F,F.F0F2F4F6F8F:FF@FBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~FFF F FFFFFFFFFF F"F$F&F(F*F,F.F0F2F4F6F8F:FF@FB6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~FFF F FFFFFFFFFF F"F$F&F(F*F,F.F0F2F4F6F8F:FF@FBtFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~FFF F FFFFFFFFFF F"F$F&F(F*00jJ}MF,F.F0F2F4F6F8F:FF@FBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~FFF F FFFFFFFFFF F"F$F&F(F*F,F.F0F2F4F6F8F:FF@FFFFFFFFF&FFF F FFFFvnvn,,   **  &  z_M ?TԀ!No startup transaction found ?T\}NN ?TԀ  6  wHr\  weiVѫDL6 {je&({@ *۪+26B\Fݩ[}PTX^(lz&&&&  w " &   & U  X )%)%)8)8 *04髲8z}uHbxuX 57 5@E@ 5E 5 E    Ew  RuX&uX0uX8uXDuXLuXRVj\x`dѫDLnuXr̫d$-t`U uX?TԀExiting due to error ?T\}XX ?TԀf E wUe & sU@eB-{@  ۪+uXD`;"uX&HduXh$ & s5   杭6 w e  p& }*uXRXj8v5ee? ERw 2 uX(,ew?TԀ292Bad transaction length.%N block(s) of secondary pool ?T\}PP2 ?TԀ2f  ){  ۪+?TԀff may be lost  ?TԀs&sTransaction not in secondary pool ?T\}ZZs ?TԀsf  7 7 D wC@ 7  %    ݿ%8.{@  ۪+ѫDL$D({f4<ݩ[}&\  w j?TԀ&UAB listhead not zero on shutdown ?T\}RR ?TԀ||f  ^  *{  ۪+?TԀTransactions follow SAB ?T\}TT ?TԀf  H +{  ۪+?TԀ Exiting ?T\}\\ ?TԀf     ww @w >V62H &" < 6 wfR/{W  ۪+FwK)Ps$9~Z(r,K2)Ps4$9~Zrxj$-  :82 w>e w.-e r Z\X:D:82$(4jFL)[MXdhݩ[}>>:84 U[}"i8^ &i8^ (i8^ ,i8^ 0w 4w 6w :w :E V p sc# c#  c# c# f |"Fw&)Bx*.'0)4hp! ?TԀOn scan file open ?T\} ?TԀnf T<V rw@r  @4  rF{  ۪+< y$(0ݩ[}:<)pB)pF}L)pP@d)ph}?TԀOn scan file PUT$ ?T\}ll ?TԀvHvf      P7{  ۪+x"r&K,)Ps.$9~Z:Fw>rBձW?TԀ"Error during scan file rename ?T\}jj ?TԀVf      -$00t`Ol~6{  ۪+xj"x*4Bl.Hi8^ Li8^ Ni8^ Ri8^ " Ezw w  w w c# c# c# c# .( 6 wHe f j(`a ?TԀOn scan file close ?T\} ?TԀP P f  &H{  ۪+x?TԀ,,On scan file delete ?T\}, ?TԀ,d d f wG{  ۪+x" Ezw w  w w c# c# c# c# .( 6 wHe f j(`a ?TԀOn scan file close ?T\} ?TԀP P f  &H{  ۪<0U!&@@@9PWXXX= UtztDs@<&Kq@p@e@`@wx@GP}@D@}@:^@$9Cf@<&%t@z<&9@;F4 @9x@ձ@u@}@| |PBB: <&%tHH VVeXXWWl ' q Z97u;, 4( @DwxJN444 }BB VE%TT p0 b 00jJ}M  Z7 7 |1 """?TV,\f DL?S `""?T z  (h  ` k  % 4#  ?7 ` ̫e 0# ""?T *""?T4 >""?T B$9CfDs L""?TP4T' qZhp! b""?T?p|:4e6 ^ `whwvWtw |EH\ hFm4e6 >ձ`;T; z $""?T< F""?TEP Z""?Tj|ձ 47 v*  h'  X  3 A P 0w (НП  U ,`;T; z ""?T*.:^:DZ;F4 2  V4 && Ε wnw lkR7     * ""?T ""?TV4`0""?T% D""?TN X""?Taf t""?TJ* wBP   7 & ""?TP$.D INSTALL  ̫e >   >  REMOVE  ̫e  z>: z > : LINK  ̫e  >\  > \ UNLINK  ̫e $>nȁȁ4 $ > nh 6  ASSIGN  ̫e ((0V0 V""AS   " "̫e 66::% %NUMBER   % %̫e :*:6T..ȁ1 6 T  . (n ,,TO , ,̫e ``::p": : p ppҥ D~ x0  Zȕf   & SY 7 7  6 ""?T*= 2""?T@uD= n""?T~GP}: w -TT `7 w|7   2 ""?T (""?TPJV^}f9xh   7 W w \C& & & f&  N e ""?T 8""?TF&N x T  . tы& & &  f&& & & Ε  ""?T ""?TtB:2UXz= XDaK@g'@W@g'y By F;F3 H xQL R fep_BA@e @pU| K `;F4 >??A`A'A^A~A*C,E`E'E^E"I`I'I^I"N~O`O'O^O~O/U`U'U^Y"a`a'a^a~a*c,e`e'e^e"i`i'i^>ti"n~o`o'o^o~o/u`u'u^y"1412/u/UAEOEaeoe(U:DaKH v`hih )1)f&  e0e0f0, ʋ   0` U~ xjpp`1 & evj  6<Hvpp ‡ +!# " '5/~) <-34 >(: ^*01 ,A@BECDFGJIKLNMOP QSRTVUWYXZ[_ ?a`becdfgjiklnmop qsrtvuwyxz{9 U:XDKH WhXh  ¥[9ʋ! ʋ0έ;  ʋέ%  2|0 |\{[}]~@ߧ%%~A%N%O%a%n%o%u"U"a"A"o"O"ssSOSosOso++#aa@AA@(([))]//\(-{)-}/^|!!c/C/c|C|L-l-L=l=Y-y-Y=y=xoXOxOXocoCOcOCoa_A_<<0^+-2^3^P!p!.^1^o_O_>>??A`A'A^A~A*C,E`ȀtE'E^E"I`I'I^I"N~O`O'O^O~O/U`U'U^Y"a`a'a^a~a*c,e`e'e^e"i`i'i^i"n~o`o'o^o~o/u`u'u^y"1412/u/UAEOEaeoeU:XDKH (WhXh  ¥[Cʋ   1 ! ʋ0έA  F|  ʋέ+0 {@}\#[]|^~磰^"%%~A%N%O%a%n%o%^^^^ ^u"U"a"A"o"O"ssSOSosOso++#aa@AA@(([))]//\(-{)-}/^|!!c/C/c|C|L-l-L=l=Y-y-Y=y=xoXOxOXocoCOcOCoa_A_<<0^+-2^3^P!p!.^1^ot_O_>>??A`A'A^A~A*C,E`E'E^E"I`I'I^I"N~O`O'O^O~O/U`U'U^Y"a`a'a^a~a*c,e`e'e^e"i`i'i^i"<n~o`o'o^o~o/u`u'u^y"1412/u/UAEOEaeoe ʋ0έA  F|  ʋέ+0 {@}\#[]|^~磰^"%%~A%N%O%a%n%o%^^^^ ^u"U"a"A"o"O"ssSO8[q? aV )@@00jJ}MwzwVm   $(,0 $4wN  5E5 ettCtt@@f f &f &ff fC~w  ~@NAJBEFRAMRPAYAMNUJLUJGUAPESTCOVONCEDm<<f&f&6 ff I % % % %   Bef !!!`  u 5 %  Ce |  ` %%# #$)fC  Ae@ Ct% . fU U U M U B eU M eU U M  D0% %D0% a aeJ%N*  PS(5 FwaAjENe w ^ u aD:TE{V{.{^{` P 4 P  &1u(A  ) .D̥  h5uu <#A0< 5 E &# *A( w D j!55 8 8"4 p  0 4 5   N" ; B  ,B D!5 4e ! D5e`w eE< .f .2  , ,p l J a b!&f wbKB`C E e\@` eQ@`2L $ )     > ̋ eR@`eleXBb& " w@ e" ``Je $   e@`eleBb& ef.@W,Tw.B & NSRf J e @  2Հ$ ʕT2 w.AB & NS& N D` 4Հ̕$ \̕ T4 w .@` @E ,Tɕ w.A1@ & N 2 T1 w)v& 0 cfp    e$  wB E ] D! 1 0 0&   1  0 5 L& LAa  51 e!    51 0 0e \ <a  |6  spppp0)p1(e   K / 5 L T B L * a  !  5NUpN>!     $ 0 eB E`1e f Ie$W@ W1 @1t  e$W @0 `W"w)v e"fe4 `e `K  2  0 5 L   wn  6-    L-w  .>   5N5OUNT  5 N5OU N> ! 5!N5OU0N$ " A ̵W ̵ W ̵  @N   Lew.AB T@` ȕȕ ȕ $ w)v0 0 5 L5 N5 5  0 4Na:Nae a> ` 7@E (   & &  @E ,  &    tmE& \e w,0 5 L5 N  5CeLe\ 6`5v q  e` @`el N CeL5& <    p&    & + @E ,e `E e @`eNl N & % f w | We a> Z0  H =e  @` WtmN&E& e &     L0  @E ,@E 00t`Ol0$ e wpf 0 0 LDa 5 N5 5 4Ca`em  t`&E& e       u   h0 0 em   J ef ` Wt`N&E& e *  V1 10  .       E 55 0,   $ @E < E  %wn)@ W"vl cm̒ %W"lv mc̒  W"l0W"pl)W"Dv ma 1 W" Dv ma 1 %wB r&     =`-   d/@ ! L @ L  @ @2   @ L fA-q&@ e  @6 @ w.5 L5 Nef0   C LW W   W  W W W   W  >%w .eAAC!!2Rr22 `` e ! ! H H !!!!!> 2  $        ! "3    .    1 0  (   2\ ((  ) 8  v4()      * .3256 5      EA) (0X(`^'1PH ?1[ $?1@ 0@` $ ` B 0  $0 Dz $2     (z*$P|        &   `@ ` B   & A @    wwwwwww w wP ww,w`w>@ BB %  JLf  B @ Հ @0 1  0 w@ f < B @ Հ @0 1  f@ @f 1  wl @ eT`el6 6 6 Uv @ e `el -w-  6 6 ̵96   a Pe6 Naa a e !-tm&E& e f $%    `e etce5 wew l t B tm&E& He N C    m   m6 / mtm&E& t Ѐm   ee Հ m e-> :   @mCm B !  mm  ~  C B`m  ewt @ a ` afNla F   a 6  B t v  W e  a newC00jJ}Me" t 'e``&  e` @tmfE& e t @  wL@    ɵ   w( f&c& &a ~@`": @`"" C`D$ @ @`"6x$ $ @`:  @`:@` @ >m(6  m666ma me  @`  ȋ @`"96B  ` `>  `"  UB @`"  ` B   66  E(>& &&(ewJC6o N`N` )m # m6a ~e m a ^  >e w؁ ɕ [@ N`e x ,N` ^ ]  ew:   tEm 5ENUme ! f & 6 fE@E U5@5 a ewfB en@`e lf     % f5 La  "a "6  6 a |a l @6av e a 2efA 2   fAa ae a T e6v aa  ea rewABa 6a : @6           &        U v6 6    W      vvW    ve W   ve& a  a  5 a  a a 5a a a ve5v e  a L5=6  @ Bt @ eR`6R W a aa a na ea  KefA N  a xNeae a  66aa  ea eff@ @)@m&fe  N %w @  W-  fL w6 6 aa P@+ '@"6  a C) a   6v)6a vva 4 2@@m       aa jewBAe4C`em&6-$-  em e f E-N f - 4 tme` e`3  e%w @ ɵ C`v6'D`N`ɵ Ӄo  Cm l6ɵ lv6 @ a& a& N t' e(ebe"e e e eHa& a& N a ew & 6    r@ rd   Wt@ r Wpd@ r    tWt Wpd@Wp @` me0H %w4f@@^&_  Baʕ W 36e Bm W ?  v` E  B`": W ~v6a W sB`:3 6@`TB` e6 6    mW XW UW:HW"Fm6 -:!6 am6-E U@ @`-Y3 6V-"6 mm e 8mJ  am B҂-%m Bae -wW    ":E U@  eWtEErPew˦)@7C5 LR@ 00t`Ol E  C6 ` 5 L L -*(D@ E6   L 5 L x L %   $wwt w^w w ww>wwtwZ5’6t @ vtB@A  6t@@P5 wfBe6    J  @LE  `  e`Etm e`Je`r % f@ I,f 1  @`  A1 Հ @0 @0 w&6 6 @6 &` e@`elf& & & &`E5  6e e@`e<lv6eE! 66! 66   v- 6 w(5  6 6  ;  6   fla(aa &""a .@,*,,e,e w@ 5=t"a@` ҁ-&E& e ~E&E& e U&  EU&  %\ ,tc&E& r6 t*a@`E& F6"]"eE EU E   ̵EU6  & V %UE    a6 e etm6 e 5  w5  -Le&w u >  `5 @t> 6 m @tm&fE"m Et&E e !cȋ e   oet6 /a mm  Q < 20- v`@a> v  v`@a> J  b`      C`m > ew& @ `> `> 6``@b  ` a`a e6 6t  D A   Db>    Db6   Db>    Db6  5 EUE - ew A  o6e I @ a @ o " ! `6a e ma  me w@ A@&? < 9e N`tEa   (L tEB`mCmʜ D @&eWtEaH>   w >  e@  a,  C` e eb & ea6  m]   e eb  f xe @6      e w @&*>  t@`&E& e 2 66ee 66 E66P t>P %f   f  Ee wf@mBm W    Dee@mCm D  e e &  TLef   f  REe fA  wAC 6 6  e`ebmE5 L       q& %  - 1    v e vE a & e  q L5 L5LEvUa W-LW-L ef@6 veL a >,xa @E  Aa af a \ a ea >,[@E &Aa af a  a 0ea >,"afeN a  a eew$@ a @   `ɋ  ea de wC &65 W-  pL w66E- 66- 600&*J}M6 @@6  a   afe&a <a 5 (aB" a 8 v@@l6Aa@a-  gL 65 Nv5 @b   a ua ew@ ɵ  Bov6ɵ `5v5plv65  5v6 @ aa& N z3 eeb e(eeRe"ep ebe*eaa& N a Xe*5 N`v6 Cbv6   a ewf & 6   Bm0  e76% -`60   t Wt@` @`  Wpd p ` `L%w @:CD E!!  W-  P!!  >! !   ' $D@ E  W-& X H #  & B 2  w@tE5    ALW  uNh uLx @h5  uL )LAaW"g@E h@E 8@t @ e@`55  @NE  huN =LAa@E  u u uH   @  P ` p @E e`5up`P@0 p`P@0 p`XP@0 p`P@0 p`P@0 p`P@0 p`P@0 0(XddPh@@@( xX @HdL  $,4<ĊVb  000 0 @0 &*0 @ u # eB&B B * eB, r,}>iJq:`rShmlElr"&xide>  # #D #=0/H#@&0 # = e0   0@e 6=#02/002# @#?@#(q:p\040 6w/&!0/ l0/!/0/l0p!0 .=p0p2fzF`8 Db@s@r"&@r@q:@i@o@r,}@aVN@f@@fy:@"  D"0h&h  D"w  D 8#"#)%ĥ ĥ w  0 o sfy:|*0 @Q$    0 40 60))eB &*   w . l58e$8aVNxs8wV 2k  ,EB0-%. #p.2e  483  -$sRs^t  r38 (#5=A#@)) *R*)@#0l C# 02Dr돀8 00ĥۇAĥĊ  000 0 @0 &*0 @bdr,}l u * eBe>  # #D #=0iq:r"&"i/H#@&0 # = e0   0@e 6=#02/002Nq:d# @#?@#040 6w/&!0/ l0/!/0/l0p!0 :f.=p0p2zF`W Db@mlE@eZ@s@r"&@r@00.t`Olq:@i@o@d?!@rS@r,}@RaVN@f@@ft:@fy:@cIq@  D"0h'h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60))eB  \# U&* =wH `p!28aVNPft: EW!p0p2 ׇ#( P) @#**fff  &*w&cIq@eZfd?!veZt. l58e$8wV 2k  ,EB0-%. #p.2e sFsts 483  -  r38 (#5=A#@)) *R*)fr돀l@#0l C# 028 00ĥۇAĥĊ  000@b 0 @0 &*0 @ u # eB&B B * eBe> , r,}(i4q:JrSRmlEVr"&bid # #D #=0/H#@&0 # = e0   0@e 6=#02/002# @#?@#040 6wq:zfZ\/&!0/ l0/!/0/l0p!0 .=p0p2Z:dw =Ds.@D@o@  D"0pwh wh  D"w *  ע"wf)Ĕ%.&%;D  5)5@DD ͥ*Ce e%w UojD|\5@ 5U U*U  "5@\U@5 5LU*U  ʥ*%C!.D` *weC5U5  5 54s.t@e*=U Ee& REe  ӥ" wV ˥"   ˥" (Ք     Օ zafZ Db@e&@e&@c@r@i @c2 @w@aK@  D"0pZh   D"=D `p46 f 64/=  @) 0  8w 46 ,i $e&0wNchblc2 zaK$|8 e*w re&z\g4De&@py@r@r@w@w@pJ,@o@mo@i@aZ@r,}@*f@  D"0D}h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pJ,|2Υ   v Ε f e * *e*w@)mo>wTr,}rf *0,   )*)'   =  l 0lpy r2e&t   4/ e&=Ba@a e0b e aZdie@ ` Y= E8 el0  & 0 l0`p l064p 4 lep )wV%  ,  N w"  L B # wTr,}rf   )*)'   =  l 0l  re&paZt 0/ e&=Ba@a e0b ee@ ^Li W= E8 el0  & 0 l0`p l064p 4 ep )lwn%  ,  w>  LwB # f  &$aZ2aZwL BrwFf:\q D  D"0r,}h  D"> =00l&8el2 0 |*Js"& Ds@@  D"0^r"&h  D"b8 -2e  0 0 0 80 B0 0 0 0)#0.s*ZtL *Dxk@q:@i@  D"0Frkhwkh  D"J U8UM%..w wiwTr00> Ct`Ol,}` pf *0,   ) )(   =  l 0l pyr0e&> t  4/ e&=Ba@a e0b e aZbie@ ` Y= E8 el0  & 0 l0`p l064p 4 elp )wV%  ,  N w"  J B # :aZHaZVr,}^wjr\ f  `* w)0406 l0 mo. 2fz\ghy4lD @e&@r@w@w@pK,@o@mo@i@sk@aZ@r,}@*f@  D"0$ h  D"w n832cd& & & B  2OΕ   N Υ$Ε  2o pK,|2Υ   v Ε f e * e*w@)0, mo>wTr,}` pf   ) )(   =  l 0l  re&& naZt 0/ e&=Ba@a e0b ee@ ^Ji W= E8 el0  & 0 l0`p l064p 4 ep )lwn%  ,  w>  JwB # f  &"aZ0aZ:r,}BwNskhmo@`* w)0406 l0  fZ  ΥD @f@  D"0ziWhrwh`i h  D"~46f %8 E D/D!D l0l8epl0pɥ.ɕ wx |fb& %D @q:@i@o@  D"0tch`rh  D"xw  )  fU %  BA `6p 4p`4 %60 4o $i6q:D @f@  D"0ziWhrwh`i h  D"~46f %8UBYҕEҕ %V  w &;F4 (w.;F4 6˪sp;F4 t;F4 t6  5  %w,VT- J-  w& -& hت4M9 ;F4 $;F4 *ew.;F4 2;F4 8nH@˪sFJD8T˪sZcL f6st˪sz˪s&f5 @ E%wf T7  R&$ ʥ ʥ  ʕ e2w@;F4 D;F4 lT w7q!C C s , eD8(;F4 ,;F4 :;F4 B;F4 F;F4 &w pH 7_w pwH0CH ;F4 ;F4 ;F4 ,;F4 2;F4 :;F4 B;F4 R;F4 V;F4 ^;F4 r;F4 v|dwέ L&B 6  zT;F4  ;F4 ;F4 &;F3 *;F4 4;F3 6;F4 :;F3 N;F4 b;F4 f;F4 p;F4 t;F3 4W ,XzYqw,XDf@@D@#w@ϫf@D@uX@M@e@zT@T@f@zʫ,@DS@y@z}@e^@ @d @D~@y@`q@L @,.@(@‹@:^@z(@z}@G g@;F3 @Z@#{@F@;F4 @TT@lh.@@Cj@@,@ay@z9x@8@@nH@r@3@zd@00 F*J}M*}@ |@DUq@{ne@@ѫj@#{ f@D f@zv?T@#{~@#@f@i@@˪s@eM@D|Z@Df@>M@lf@Dr@w@s@z=&@Ms@qZ@l@ @q~Z@L@GR@@,@ @Ny@Ky@@w@r@zl@ge^@DQ@y@@ ayh8+h4qhfhcL h,ʫyh*She h hzShhd9!Nh.sh =sh +3h8 8sh 6sh ;sh Gh ʫTh|}hNGh Gh }hzrR~hʫL h}h}#h6ɪ+ghh0h~Dyhh h̫dh}h ʫfhhdhbzwhpOqh Shh Kqh,ȫ6hiyhiyhȫ6hnȫ6h ȫ6h ȫ6hN hR~hȫ6h,RKhȫ6h ̫+gh:dh 먗hJ :dh hr h ȫ6h  E   w f&E  5 5 @+   551q5Jz} y#{#{~#{ f"‹>DfF`q`DhD fp |rd |@eEEU  &w&fw 1q 1* 7N ߥ _B_ ZD #wwyNy  L  3 8;F4 D;F4 d;F3 j;F3 @<50 50 IB:Jb B*p2*p*7 w@ p:;F3 D>;F4 BD~\z}bMslrr@wt? < 24e  &&D  & fE5 P@ W  A 56 @w<ʫ,@,L=&X3 hGR~w558<68 &    ( w C L,f  L D%2 ,,2rB‹^,.b:^l1  @U @ Ae  1 @ ef  N5& ^@eL0 `q0ayPq~ZXN\y \ ",    ,3, %%| J;F4 T;F4 $*,;F4 2;F4 8TT<;F4 B;F4 LFz˪sdB* 2**w&   eE ? Wte9Ee0 E8e0e06v %"D~M0ix9x~MswBw 5 wP P Pee   $e HEHEPPPB PP$ HEP =‹;F4 ;F4 R#\  bDUqDQD zlf\ PP50 0 PP  $  $ $ $HPP%  p1  0#|/#$d5 #HFh;F4 t|z$`&f@7 es"K,  8EDE4s-$K-&L1 xp4D|ZD ;F3 ;F3 :;F3 BKyL{neR;F3 Tf&@eeB 1e2,@$Q$ w 7 ,w @,X‹\;F4 `;F4 n;F4 t;F4 x‹|r -"A@, w De 1 9@B1BB9,.1,.,%t@( FF$;F3 .;F3 F;F3 |;F4 L1% D, ,    @  Rw?fe@A (FRe^eMhelF@,?1 &fC 11()&ET T  f& fN  fA *e^<(DfHfJfTf~lDB Jrr1  N&w@ wU7  &Hw q  X& $0NDeHz}LyRz}b‹   4  5   &@  2 w  D v?T,eFlh.Jev‹<N55 58  @e  ACm A& EC B00 NCt`OlB ll 4 yyBzTU&DEA jD!E 5 5 eD_ Bw55U1 2*(0(6#>;F4 BD;F4 LuX\;F4 4 H1&@ &B 55@5@5 5 UB7  p &"V8^z} 5w e  @ e @ >U5  E f& "p & ,zds&zT,qZ:zT>qZPDS, 155&f@ e E @1@w@B  f %@B Blf Nm%*zT 0t5<956B5/5 )5%5@w 0& e 5,,34yByJϫfV;F4 b;F4 n;F4 $    5U [5@WC#U  7  U5 : Dw E Pz}Z8r‹ @`e E! C5 @5EU w  hׇ4 t 3C&:^>M,e@DH8TZ    EU@5CU5 5 e@_ >E5' #f88:DSBuXH;F4 LN;F4 VuXf;F4 luX &DJ 5 , ,&#J   e 5E N H J  6J JsZqZ`q~Znyy vyy |N C3Zp&55N5J*C 5E&  S 7 I/ &&  &G g #.DUqNlh.R:^dZ RR R (  5U   R2& t && N& ( \  B,VT7 & tnH|  pD7 5 A pDw&-@,VTA@N 7ߥ `L LL f"(2;F4 6;F4 :>;F4 H;F4 PG gVbnHjz}v;F4 2f75 6 5&6]8OU-J&f ;67T B %8 Cjѫj;F4 ( 2uXFZL;F3 Z*}f;F3 ! ~0 8!6fVR ___ _  7-U ( 4N C5&2;F4 8G gXy`;F3 h;F4 |Dft  B&50e5IB<  e Q<  ɕe 55#l,Drvge^ f xf  B&W tXzwtXD̫@ʫ׃@ʫ@S:@تVN@KZ@̫@-@@@^@Hg@ϫf@zw@&@uX@2@T@1y@n`@O`K@xd@6@AP@Dw@dw@dH@@z7@t'@J@r@6Ԁ@'@{8@@ &@=@R*}@̫@ƫ@ {@ʫ,@zުV}@OK@m@h@#@=@T@e@ƫ@e@Jz@D@zT@3{@JÅ@zxZ@zT@A@T@+{8|@7R;@S@y@@ī=@rr@x@@@ī @zHCT@ODL@%@ew@̫@dFT@,K@u~@+{p@Cr @C @r|@ު%@5{r@uL@zd,@JL@ݪK@+{P}@){@@D~@(@D@ת3@F~@-@2@ʫy@e@zd@*}@2{^@\q@@@ y@(@Ӫ@dr!@@E[(@Ӫ@JG@dCy@}@zdHE@DL@@kBM@=T@H\}@P\@dL @먃2@)X@KQ@D@H@S@|p@zG g@dy@e@9L@@6@3{@1CT@T.@5s@e @ke@UT@3{(@:^@ze @z}@5s@dy@@@@W^@O N@‹@@@(@e@v:@ȫT@z@o@Ed@S@00 VYJ}M@ѫW@;F3 @먓@J@""@JYT@F@Tz}@Z@J4@zJ:d@ʫI@JVT@Fs@J\T@@@@N~@ѫW@@7&@TT@t^@eKy@zeT@@lh.@ѫDL@먺3@;F5 @d4F@@JbT@er @;F4 @eZ@M@;F. @C @z3R@7f@r@@̫pE@̫r!@=@Dz@kZ@l.@68@xd@4@yf@,@z4:@r@ir@̫3R@.s@ȩs@6s@O_@r!m@ɫq@+3@%{Q@f@4@*}@z@ѫ@; @Jt @8s@S@rp @; @,{2@d@J @LT@G@J@{8@zG@}@eĊ@M:@bT@{@d @|r@|r@@Je@; @}@dė@̫@z2{@q@F~@ʫL @F@d^@mr@PT`@0{G@df@h:@:D@CxQ@; @}#@z*}@@|@dp@D@dq@L@Ek@C@ʫt @&@=K@D8@@r#@z{ne@8r@RX^@{xe@۪@V}@̫2@{je@f@v@@@Wq@s@L:d@z @y@ѫj@;h@@۪@۪@Dy@ۉ@Ⰰ@ @1@a@̫@ @z5 @ʫf@5w@sE4 @ @ @;@H @DF@}@@ɪn@̫d@/ @. @z4 @Oq@Em@~@q'M@D:@Dm@;d@$u~@ @;<0U 3@#@=L$ $ $ $t! $! $( $^K $L $VN $Q $`e $y $Z $ $ rZ r t v xk x xS xx yk y yx  G G  }`e  U!@Z?!@z@!@@@C@/Ip&@*;@6F4 @$Q@6F. @y@@3I@W@ y(F @@ NNP P) szLB:   ,&:br :24,68 BOO -- Syntax error BOO -- File not found BOO -- Invalid load device BOO -- File not contiguous BOO -- DPB error B00^Ct`OljOO -- Label block read error BOO -- Not a system image BOO -- No transfer address BOO -- Device not mounted BOO -- Privileged command BOO -- Device not in system BOO -- Device offline BOO -- Processor A is online f0 6$fXjz}nurfvzb5     wwwwwww w ww@\%DZ%DW> \f "^K8^$(d$^Kj$^KpvXT %DB%DR%EMRHt e w7\7^wMM @ w(wn@ 0 L$W*!.W:$@$VNHHgNLTRHCTVH j(vz~Z6%DY5 577^7"www wmw wwj$ $, 2X4$<@+{pB$F$^KL$^KRlr$^Kv$^K|$(w5@ww e vw %0  @e~eMe7 |< <n$L $ѫBx $Q$$L*$L8$(>$(D$J$P$h$lLp t qv(z$|bRĝ%DKu5}]|7 57 l7 v%DU |$Ww&*+{p0$Z4$Z8GQG# :3I@$ZD/Ip&HEqJ$ZN$QXrZ$`e p w`w 7` `w w`w 7`@B~5Lpߕ (  %DU|$Z 0u0uXuXuZ>! Z?!$Z>!(Z?!,Z?!04K8rZB$HpLfNfRCZ(^&b Xz<    _5_D B~unOH$^K;F. 6F. $$^K*$Q.6F4 46F8*;:C @sE4 FsEP$t!$`e V$`e^$!$`e bhntJhV :@Ћ @w7 w. hV:"(>D#""HyU D  > 5  5@ $ `e~ 5  ĝ1͵ PA @5 LLUF% A ``` ` e0 (;F4 \;F4 t~ ĝ(͵% A @% A ``` ` <e׭aЋНWA HEU@7=7]5  7P7P6   vu n5 fԆl ҁ B@5 > <0V  ^" ^" $^L^"L$E8O^?ҫ[*[|tl% 1%^<h%4%$1%:&K:($P)M8)G:)M8)(d7)f7)z8):)!8V)W9)xZ:^)5)W9:)xZ9)@`6)z9)'6X): )`r7)r8B)xs7~)H9)q6,)` 6)'9x)p6)45)7ZE,kKE,KE,8O&E,hyAhzJhyJhz^p !p^)^p#2p$"\p(q8OKq[xr{^ry6rةrtG&Tt'<t'tp &0tpq&tz&tx't 'tp 'tt$tp %jtP2&t@`%>tz%tp %tz%yz dy} &^* F*^Ux*Hj*$G*KQ^ZT^W[^U`^Yc^\98R90MS9MS9@`S:HRLN\@ PApQA`'P|CYO0DpQD8^RF PLF KH`OHqQVHrQHrR&J0 O&KP8DhtmzD`80xˁ\bHn[DzCX x B zB%u&r%)nX9Lx<8ar@FD`}G8\GSqGY~J||rL8Da[^^bzcc806eKexnCeE>f8O]i8iiGw~$iLy}$nx FnzFFsldt8h]vdvxڪ8Odhڪ[CPڪK\ڪs\ڪzCxUCx cXHctc/c8O]Nx8] %o(p!|*/BA}s}OBxSOz^$O{^jO{^O{^O|_6O+|_zOS|_O{|_O|_FR/aRBaRabU}TV[c}9/8Bs*k/)/8a)]K~S~FWZt6x 0xx--.8.Fx... `[a0 }lj0}oX+~wFytA_K_s``Vç```";`fc`ȫ̫p, >̫`n̫q$̫zD̫DypBzc`s )/&Kx<&/h?8ObY`;[j@\x .IF GT,$X$..-6" .ERROR ;P1 IS MORE THAN 6 CHAR. .MEXIT .ENDC .PSECT $ENTY1,D,GBL $X$..=. .RAD50 /P1/ .IIF EQ,.-$X$..-2,.WORD 0 .WORD SY.ADR .WORD P1 .IF NB P2 .PSECT P2 .IFF DPSECT .ENDC .ENDC .ENDM $ENTRY2V  .MACRO $TSTPT P1,P2,P3,P4,?P5 .IF GT,R$$TST .NCHR $X$..,. .IF GT,$X$..-6S" .ERROR ;P1 IS MORE THAN 6 CHAR. .MEXITM .ENDC .IF IDN,, BIT #TP.ENB,P1+42 BEQ P5 MOV @#P1+6,-(SP)F JSR PC,@(SP)+ P5: .IFF1 INC P1+6 .ENDC .PSECT $TSPT1,D,GBL $X$..=.P1:: .RAD50 /P1/ .IIF EQ,.-$X$..-2,.WORD 0 .IF IDN,, .WORD SY.ADR$ .IIF B,P3,.WORD $TST$$D .IIF NB,P3,.WORD P3 .IFF. .WORD SY.VAL .WORD 0 .ENDC .IF NB P4 .PSECT P4 .IFF DPSECT .ENDC .ENDC .ENDM $TSTPTPV  .MACRO $STGDPLY STGDESC .IF NB,O( .IIF DIF ,, MOV STGDESC,R2 .ENDC JSR PC,$DSTGP .ENDM $STGDPLYPV  .MACRO $GETSTG STGDESC, .IF NB,1( .IIF DIF ,, MOV STGDESC,R2 .ENDC JSR PC,$GTSTG .ENDM $GETSTGV .MACRO STRU$B NAME .IF DF R$$TST$ .IF GT R$$TST-1 .NCHR $X$..,NAMEP .IF GT $X$..-6.3 .ERROR ;***** NAME IS MORE THAN 6-CHARACTERS *****C .MEXITF .ENDC .PSECT $STRU3,D,GBL.IIF EQ R$$TST-2, .LIST ...CSG=.A .ASCII ?%N?<^O73>? 'NAME'? .PSECT $STRU1,D,GBL $X$..=. .RAD50 /NAME/ .IIF EQ .-$X$..-2, .WORD 0 .WORD SY.ADR .WORD ...CSG.IIF EQ R$$TST-2, .NLIST .PSECT, .ENDC .ENDC .ENDM STRU$BV .MACRO STRU$EJ .IF DF R$$TST..IF GT R$$TST-1 .PSECT $STRU3,D,GBL.IIF EQ R$$TST-2, .LIST$ .BYTE 0.IIF EQ R$$TST-2, .NLIST .PSECTG .ENDC .ENDC .ENDM STRU$EV .MACRO00viJ}M $EMSTG STRING .IF DF R$$TST..IF NB L.IF GT R$$TST-12 .PSECT $STRU3,D,GBL .IIF EQ,R$$TST-2,.LISTA .ASCII ?%N?<^O73>?'STRING'? .IIF EQ,R$$TST-2,.NLIST .PSECT$ .ENDC .ENDC .ENDC .ENDM $EMSTGV .MACRO RMS$L SYM,SIZE,STRING .MCALL $EMSTG .IF NB SYM SYM=<...TPC> .ENDC .IF NB I ...TPC=<...TPC+SIZE>$ .ENDC.IIF B , .MEXITF$EMSTG S .ENDM RMS$LV .MACRO RMS$G SYM,SIZE,STRING .MCALL RMS$L.IIF NB SYM, .GLOBL SYMORMS$L SYM,,S .ENDM RMS$GTRV .MACRO DFIN$G SYM,VALD .GLOBL SYMQ SYM=L .ENDM DFIN$GDV .MACRO DFIN$L SYM,VALN SYM=C .ENDM DFIN$LdV .MACRO DEF$SZ SYM,SIZE,STRINGC".IIF NB SIZE, ...TPC=<...TPC+SIZE> .ENDM DEF$SZ V ..MACRO $STRIP FIELD,P0,P1,P2,P3,P4,P5,P6,P7,P8.IRP NN,\...ARGT.IIF IDN P0 , .MEXIT.IIF B P0, .MEXIT$'FIELD''NN'=^D'P0...SIZ=...SIZ+$'FIELD''NN...ARG=...ARG+1F$$STRIP FIELD,P1,P2,P3,P4,P5,P6,P7,P8...ARG=0.ENDMD .ENDM $STRIPHV .MACRO $SEQCK TAB1,TAB2,TYPE,BB.IF NDF ...SEQ...SEQ=1...TBL=0...RAB=0...FAB=0...XAB=0...NAM=0...LCB=0 ...POOL=0...ARG=0...SIZ=0...RMS=0.ENDCS...ERR=0 .IF NB ..IF GT <...TBL>>3 .ERROR ;***** MORE THAN ONE TABLE BEING INIT *****, ...ERR=1, .MEXITP .ENDC.ENDC..IIF B , .MEXITE.IF EQ ...'TAB2B* .ERROR ;***** MISSING TAB2'$B MACRO ***** ...ERR=1' .MEXITA .ENDC.IIF B , .MEXIT.IF NE <$COD-'TYPE>.5 .ERROR ;***** XAB$B SPECIFIED CONFLICTING TYPE *****$ ...ERR=1T .MEXITB .ENDC .ENDM $SEQCKV &.MACRO $UFLD$ FIELD,TAB1,TAB2,NAME,ARG.MCALL $SEQCK,..EMIT$SEQCK TAB1,TAB2,NAMER.IIF EQ ...ERR-1, .MEXIT.IIF B , .MEXIT..EMIT <$'FIELD'=^D> .ENDM $UFLD$V .MACRO FIELD$ NAME,LENGTHN .MCALL ..EMITF...PC1=. .=...TAB+O$'NAME..IF EQ LENGTH-1*..EMIT <.BYTE $'NAME>C .ENDC.IF EQ LENGTH-2E..EMIT <.WORD $'NAME>T .ENDC.=...PC1 .ENDM FIELD$V .MACRO $CHKMV SRC,FIELD,PTR,TYPE.MCALL $'FIELD'$,..EMITI.NTYPE ...TYP,PTRS..TMP0=...TYP&^O070 .IF NE ..TMP0 3 .ERROR ;***** TABLE-POINTER MUST BE REGISTER *****K .MEXIT2 .ENDC..TMP0=...TYP&^O07.IF GT ..TMP0-5>5 .ERROR ;***** TABLE-POINTER MUST BE R0-R5 ONLY ***** .MEXIT .ENDC.NTYPE ...TYP,SRCT...ERR=1 $'FIELD'$..IF EQ ...ERR-1+) .ERROR ;***** INVALID NAME - FIELD *****' .MEXIT..ENDCI.IF EQ ...TYP-^O27 .IF IDN . .IF GT ...LEN-2 .IF DIF <#0>< .ERROR ;***** FIELD TOO LONG FOR IMMEDIATE MODE ***** .MEXITT .ENDC .ENDC .ENDC .IF IDN *6 .ERROR ;***** IMMEDIATE MODE INVALID FOR SOURCE ***** .MEXITM .ENDC .ENDC...TMP=...TYP&^O70 .IF EQ ...TMPB ...TMP=...TYP&^O07- .IF EQ ...TMP-7& .ERROR ;***** CANNOT DESTROY PC ***** .MEXITI .ENDC .ENDC.IF EQ ...LEN-1 ...XXX=0 .IIF IDN , ...XXX=1 .IIF IDN , ...XXX=1 .IF IDN . ...TMP=...TYP&^O70. .IF EQ ...TMP .IF IDN ,3 .IIF EQ ...XXX, ..EMIT E, .IIF EQ ...XXX-1, ..EMIT  ..EMIT ,SRC> .IFFM ..EMIT R3 .IIF EQ ...XXX, ..EMIT 0, .IIF EQ ...XXX-1, ..EMIT  .ENDC .IFFR3 .IIF EQ ...XXX, ..EMIT , .IIF EQ ...XXX-1, ..EMIT  .ENDC .MEXITX .ENDC .IF IDN  .IF IDN <#0>0 .IIF EQ ...XXX, ..EMIT ) .IIF EQ ...XXX-1, ..EMIT  .IFF4 .IIF EQ ...XXX, ..EMIT - .IIF EQ ...XXX-1, ..EMIT F .ENDCI .MEXITC .ENDC .ENDC.IF EQ ...LEN-2 7 .IIF IDN , ..EMIT ' .IF IDN . .IF IDN <#0> ..EMIT C .IFF# ..EMIT R .ENDCC .ENDC .MEXITC .ENDC.IF IDN <#0>.IF IDN ..EMIT00~Ct`Ol '1.IIF GE ...LEN-4, ..EMIT P1.IIF GE ...LEN-6, ..EMIT O4.IIF GE ...LEN-^O10, ..EMIT 7.IIF GE ...LEN-^O12, ..EMIT .7.IIF GE ...LEN-^O14, ..EMIT )7.IIF GE ...LEN-^O16, ..EMIT M7.IIF GE ...LEN-^O20, ..EMIT F.MEXIT.ENDC.ENDCC...TMP=...TYP&^O70 .IF EQ ...TMP  .IF GT ...LEN-12.6 .ERROR ;***** FIELD SIZE TOO LONG FOR REGISTERS ***** .MEXITM .ENDC ...TMP=...TYP&^O07 .IF GT ...TMP-..TMP0T ...TMP=<^O6-...TMP>*2 .IF LT ...TMP-...LEN,1 .ERROR ;***** FIELD TOO LONG FOR SRC -> R5 *****1 .MEXIT  .ENDC .IFFE ...TMP=<..TMP0-...TMP>*2N .IF LT 2+...TMP-...LEN$4 .ERROR ;***** FIELD TOO LONG FOR SRC -> PTR-1 ***** .MEXITD .ENDC .ENDC.IF IDN ..EMIT 8.IIF GE ...LEN-4, ..EMIT 8.IIF GE ...LEN-6, ..EMIT ;.IIF GE ...LEN-^O10, ..EMIT .>.IIF GE ...LEN-^O12, ..EMIT >.IIF GE ...LEN-^O14, ..EMIT >.IIF GE ...LEN-^O16, ..EMIT >.IIF GE ...LEN-^O20, ..EMIT .IFF!..EMIT <8.IIF GE ...LEN-4, ..EMIT 8.IIF GE ...LEN-6, ..EMIT ;.IIF GE ...LEN-^O10, ..EMIT E>.IIF GE ...LEN-^O12, ..EMIT >.IIF GE ...LEN-^O14, ..EMIT >.IIF GE ...LEN-^O16, ..EMIT >.IIF GE ...LEN-^O20, ..EMIT .IFTF^.MEXIT.ENDCP.ENDCC...ATO=0...TMP=...TYP&^O70.IIF EQ ...TMP-^O20, ...ATO=1N.IIF EQ ...TMP-^O40, ...ATO=1L.IF EQ ...ATO-1G.IF IDN !..EMIT F5.IIF GE ...LEN-4, ..EMIT E5.IIF GE ...LEN-6, ..EMIT '8.IIF GE ...LEN-^O10, ..EMIT ;.IIF GE ...LEN-^O12, ..EMIT O;.IIF GE ...LEN-^O14, ..EMIT 6;.IIF GE ...LEN-^O16, ..EMIT ;.IIF GE ...LEN-^O20, ..EMIT ..IFF!..EMIT I5.IIF GE ...LEN-4, ..EMIT I5.IIF GE ...LEN-6, ..EMIT I8.IIF GE ...LEN-^O10, ..EMIT ;.IIF GE ...LEN-^O12, ..EMIT ;.IIF GE ...LEN-^O14, ..EMIT ;.IIF GE ...LEN-^O16, ..EMIT ;.IIF GE ...LEN-^O20, ..EMIT .IFTF^.MEXIT.ENDCV.ENDC$.IF EQ ...TMP-^O60.IF IDN !..EMIT L9.IIF GE ...LEN-4, ..EMIT 68.IIF GE ...LEN-6, ..EMIT ;.IIF GE ...LEN-^O10, ..EMIT .B.IIF GE ...LEN-^O12, ..EMIT B.IIF GE ...LEN-^O14, ..EMIT A.IIF GE ...LEN-^O16, ..EMIT 1A.IIF GE ...LEN-^O20, ..EMIT -.IFF!..EMIT F8.IIF GE ...LEN-4, ..EMIT 8.IIF GE ...LEN-6, ..EMIT ;.IIF GE ...LEN-^O10, ..EMIT IA.IIF GE ...LEN-^O12, ..EMIT LA.IIF GE ...LEN-^O14, ..EMIT LA.IIF GE ...LEN-^O16, ..EMIT DA.IIF GE ...LEN-^O20, ..EMIT D.IFTF).MEXIT.ENDCI.ENDCM9.ERROR ;***** SRC =INVALID/UNSUPPORTED ADDRESS MODE *****O .ENDM $CHKMVV .M00iJ}MACRO $WRDS TAB,FIELD,X.MCALL $SEQCK,$$LNUM$SEQCK TAB,TAB.IIF EQ ...ERR-1, .MEXIT$$LNUM FIELD,X .ENDM $WRDSIV  .MACRO $$LNUM FIELD,WORD+ .MCALL ..EMIT) $$$B1=0 $$$B2=0 $$$B3=0 $$$B4=0 .IRPC D,WORDF .IIF IDN <.>, .MEXITL $$$B1=$$$B1*10.+D'. $$$C=$$$B1/256. $$$B1=$$$B1&^O377 $$$B2=$$$B2*10.+$$$C  $$$C=$$$B2/256. $$$B2=$$$B2&^O377 $$$B3=$$$B3*10.+$$$CI $$$C=$$$B3/256. $$$B3=$$$B3&^O377 $$$B4=$$$B4*10.+$$$C  $$$C=$$$B4/256. $$$B4=$$$B4&^O377 .ENDM $$$H=$$$B4*256.+$$$B3 $$$L=$$$B2*256.+$$$B1..EMIT <$'FIELD'0=$$$L>1..EMIT <$'FIELD'1=$$$H> .ENDM $$LNUMV #.MACRO $CALL$ PROC,TAB,ERR,SUC,tab2I .MCALL ..EMIT$ .GLOBL PROC...NUM=0.IIF NB , ...NUM=...NUM+1.IIF NB , ...NUM=...NUM+1.IIF NB , ...NUM=...NUM+1.iif nb , ...num=...num+1 .IF NE ...NUM5 ...NUM=0$ .IF B - .ERROR ;***** MISSING TABLE PARAMETER *****$ .MEXIT .iff4 ..EMIT $ .if nb $ ...num = 3N ..emit  .if nb $ ..emit  .iffT ..emit  .endc .if nb M ..emit  .iffM .if nb  ..emit T .iff ..emit . .endc1 .endc .iff .IF NB i ...NUM=...NUM+1. ..EMIT  .ENDC .IF B  .IF NB  ...NUM=...NUM+1 ..EMIT M .ENDC- .IFF  ...NUM=...NUM+1. ..EMIT  .ENDC .endc  ..EMIT  ...NUM=...NUM+1 ..EMIT  ..EMIT  .ENDC.ENDC<..EMIT M.IIF EQ ...NUM, .MEXIT..EMIT ..EMIT @ .ENDM $CALL$LV .MACRO RABDF$ P1.MCALL RABOF$,..EMIT RABOF$ RMS$L..TAB1=. .EVEN..TAB2=..IF NE ..TAB2-..TAB1- .ERROR ;***** RAB MUST BE WORD ALIGNED *****E ...ERR=11 .MEXIT .ENDC...TAB=...RBLN=0".IIF B , ..EMIT <.BLKB RB$BLN>#.IIF NB , ..EMIT <.BLKB RB$BLL><.IIF NB , ..RBLN=1 .ENDM RABDF$V .MACRO RAB$BT DEF< .MCALL DEF DEF RB$BID,1 DEF RB$SEQ,0M DEF RB$KEY,1M DEF RB$RFA,2# DEF RB$EOF,1M DEF RB$MAS,25 DEF RB$WAT,4 DEF RB$RLK,RB$WAT DEF RB$HSH,<^O10> DEF RB$LOA,<^O20> DEF RB$ULK,<^O40> DEF RB$LOK,RB$ULK DEF RB$LOC,<^O100>B DEF RB$ASY,<^O200>* DEF RB$RAH,<^O400> DEF RB$WBH,<^O1000> DEF RB$KGE,<^O2000>L DEF RB$KGT,<^O4000>  DEF RB$FDL,<^O10000>I DEF RB$UIF,<^O20000>E DEF RB$RCN,<^O40000> DEF RB$NKC,1B DEF RB$NK3,2L DEF RB$ORG,4B DEF RB$BK1,<^O10> DEF RB$BK3,<^O20> DEF RB$NW1,<^O40> DEF RB$X1A,<^O100>O DEF RB$X2A,<^O200>.MACRO RAB$BT DEF .ENDM RAB$BT .ENDM RAB$BTV .MACRO RAB$B P12.MCALL $SEQCK,RABDF$,RAB$BTD6.MCALL R$RAC,R$ROP,R$UBF,R$USZ,R$RBF,R$RSZ,R$KBF,R$KSZ<.MCALL R$KRF,R$BKT,R$RHB,R$FAB,R$MBF,R$MBC,RAB$E,R$CTX,R$LSN RAB$BT DFIN$LK$SEQCK RAB,,,BBF.IIF EQ ...ERR-1, .MEXIT .IF NB 1.IF DIF ^.IF DIF 5.ERROR ;***** BAD PARAMETER SPELLING (SYN/ASYN) *****R.MEXIT.ENDCKRABDF$.IFF RABDF$ BB2.ENDCF.IFFRABDF$.ENDCR.IIF EQ ...ERR-1, .MEXIT...TBL=1...RAB=1$RAC=0$ROP=0$UBF=0$USZ=0$RBF=0$RSZ=0$KBF=0$KSZ=0$KRF=0$BKT0=0L$BKT1=0A$RHB=0$FAB=0$MBF=0$MBC=0$LSN=0$DUP=0$STS=0$STV=0$ISI=0$RFA=0$CTX=0 $BID=RB$BIDR .ENDM RAB$BBbV .MACRO R$RAC VALUE .MCALL $UFLD$F$UFLD$ RAC,RAB,RAB,,< .ENDM R$RAC fV .MACRO R$ROP OPTIONS .MCALL $UFLD$A$UFLD$ ROP,RAB,RAB,,R .ENDM R$ROPDbV .MACRO R$UBF LABEL .MCALL $UFLD$E$UFLD$ UBF,RAB,RAB,,cGd .SETN EXTK EXTK+(DALTBL*12.) ! Add space for direct access label tbloeHf .SETN EXTK EXTK+((MXEXQT+1)*4) ! Add space for XQT exit sta00lr֞؞tus blocksgGh .SETN EXTK EXTK+((MXSUBR+1)*10) ! Add space for GOSUB nesting framesiGj .SETN EXTK EXTK+((MXMAXD+1)*60) ! Add space for nested command filesikIl .SETN EXTK EXTK+((MXSTRG+2)+(2*(MXSTRG+4))+(MXSTRG+0)) ! Add space forr#m.; ! ...scratch bufs(n.o .SETN EXTK EXTK+EXTBUF ! Add space for FMSpDq .SETN EXTK EXTK+((3*6)+MXSTRG) ! Add space for other startup reqsrDs .SETN EXTK (EXTK+77)&177700 ! Round up to 32. word block boundaryt(u .SETN EXTK EXTK/2 ! Convert to wordsvw.; Compute number of LUNs.xy .SETN LUNCTR 6.+DATFILaz{.; Create ICMBLD.CMD.(| } .OPEN '$CL'ICM'$TYP1'BLD.CMD ~ .DATA ;i6 .DATA ; TKB .CMD file for ICP variant "ICM'$TYP1'" .DATA ; '$COM').IFF $FCSTK .DATA ; linking to '$RSLIB'4 .DATA ; created by '$BLDID' at '' '- .ERROR ;EXPRESSIONS NOT EQUAL .ENDM ;d; CALL SUBROUTINE7;  .MACRO CALL SUBR ARGo .IF IDN <$INTSV>, JSR R5,$INTSV .WORD ^C&PR7 .IFF  .IF IDN <$SAVNR>, JSR R5,$SAVNR .IFFr .IF IDN <$SWSTK>, EMT 376 .WORD ARG .IFFr JSR PC,SUBR .ENDC .ENDC .ENDC .ENDM;.!; CALL AND RETURN FROM SUBROUTINEt;e .MACRO CALLR SUBR JMP SUBRC .ENDM;; CRASH SYSTEM;F .MACRO CRASHL IOT .ENDM; ; SUPERVISOR MODE SUPPORT MACROS;- .MACRO MFPD$ XE .IF DF S$$LIB!U$$DASM MFPD X .IFFS MFPI X7 .ENDC .ENDM .MACRO MTPD$ XF .IF DF S$$LIB!U$$DASJ MTPD XT .IFFO MTPI X> .ENDC .ENDM;N*; DIRECTIVE REGISTER SAVE AND SET PRIORITY;I .MACRO DIRSV$ JSR R5,$DIRSV .ENDM;r; SET DIRECTIVE STATUS;N .MACRO DRSTS VALUE TRAP VALUER .ENDM;B;; INTERRUPT SAVE GENERATION MACRO FOR ERROR LOGGING DEVICES;R ) .MACRO INTSE$ DEV,PRI,NCTRLR,PSWSV,UCBSV $'DEV'INT::V .IF NDF LD$'DEV JSR R5,$INTSE .WORD ^C&PR7 .ENDC GTUCB$ UCBSV,NCTRLR,DEV+ MOV U.SCB(R5),R4 ;;;GET OWNERS SCB ADDRESSF3 BIC #S2.ACT,S.ST2(R4) ;;;INDICATE I/O IS FINISHED) MOV S.KRB(R4),R4 ;;;RETRIEVE KRB ADDRESSS/ MOVB K.CON(R4),R4 ;;;RETRIEVE CONTROLLER INDEXR .ENDM .;9; INTERRUPT SAVE GENERATION FOR NON-ERROR LOGGING DEVICEST; ) .MACRO INTSV$ DEV,PRI,NCTRLR,PSWSV,UCBSVT .IF NDF LD$'DEV JSR R5,$INTSV .WORD ^C&PR7 .ENDC GTUCB$ UCBSV,NCTRLR,DEV .ENDM;5; GENERATE CODE TO LOAD UCB ADDRESS INTO R5 -- CALLED.0; ONLY BY INTSE$, INTSV$, AND TTSET$ (IN TTDRV).;G .MACRO GTUCB$ UCBSV,NCTRLR,DEVT .IF NB D .IF GT NCTRLR-1 MOV UCBSV(R4),R5) .IFFR MOV UCBSV,R5R .ENDC .IFFO .IF DF LD$'DEVE3 MOV 'DEV'CTB,R5 ;;;GET ADDRESS OF KRB TABLE IN CTBA# ADD R4,R5 ;;;ADD CONTROLLER INDEXE) MOV (R5),R5 ;;;GET KRB ADDRESS FROM CTB, .IFFC1 MOV $'DEV'CTB(R4),R5 ;;;GET KRB ADDRESS FROM CTBR .ENDC0 MOV K.OWN(R5),R5 ;;;RETRIEVE OWNERS UCB ADDRESS .ENDC .ENDM L  ;R5; GET I/O PACKET MACRO -- AUTOMATE UNIT DETERMINATIONT;$ N( .MACRO GTPKT$ DEV,NCTRLR,ADDR,UCBSV,SUC CALL $GTPKT .IF B F BCC 65535$ RETURNV65535$: .IFF BCS ADDRR .ENDC .IF B  $$$=0 .IIF IDN , $$$=1 .IIF IDN , $$$=1 .IIF IDN , $$$=1 .IIF IDN , $$$=1 .IIF IDN , $$$=1 .IIF IDN , $$$=1 .IIF IDN , $$$=1 .IIF IDN ,