TDd$r]  %+PRO178 Tool Kit disk 2 mmmmmmm m m "e!7F ***THIS VOLUME DOES NOT CONTAIN A HARDWARE BOOTABLE SYSTEM *** ߋtv "*2:Bt:#z xQz kzNNz*O:zt:#zt:#z kz U%.U U` .U7 Lf.Ft\.<0+ ^mV"w %. . Z& 0, 8 e   -- ---S ee@ 7w   4 - - |-t-et nE . kz 26JUN87093740n:qPROTK4Zb26JUN87093740)PROTK4 [128,128] DECFILE11A m(U. NNz 26JUN870937400Y= I . *O:z 26JUN870937403hlM . t:#z 26JUN87093740-ge.'OSz26JUN8709374726JUN870937464"  I . xQz 26JUN87093740 12| :e .&rkQ"S26JUN8709380406MAR871452245S; \a. L '3^26JUN8709390606MAR87145207e.'OPz26JUN8709395426JUN87093952PFi .&skQx26JUN8709383026JUN87081823 ca.  &3^26JUN8709391506MAR87145208 a. D\ 'rxrl^26JUN8709383906MAR87145234a. '3'^26JUN8709392406MAR87145209,a.  &t^^26JUN8709384806MAR87145213+1e .p&'kQ"S26JUN8709393306MAR87145159H 5a. h &3 ^26JUN8709385706MAR87145205  7e .00&6&W_26JUN8709394506MAR87145153/ >  e .yz&t:z26JUN8709400830SEP85131559xQ mJH     mJH  % mJH{ot:#z xQz kzNNz*O:zOSzOPzh     ,~9O;k:O;j;Oj>W cW^f:WcW$8We[vd[yeX[Kd[vd2[yd`sdgf:Owgf=Oz:hPzF:h0z>hxAhyJhx@Jhxp  p^(p"p$!0p'q8OKq[wTr{^ry0rةfrtG%t&t&tp %tpq%tz%"tx'.t &htp &t$ltp $tP2&@t@`$tz%\tp $4tz$yz (y} ^* E*^Tb*GZ*$F *JQ^YrT^Vv[^T`^Xc^Z98Qx90MRm]9MR9@`Rp:HQLMF@ OApPA`'OfCYNDpPpD8^QF O6F JtH`NHqP@HrPHrQJ0 NKPڪ[BX45.<0T LV ڪzBxUBx b.Hatbp/b8O\$8[%n(p!{x*/AA}s|OBxROz]O{]@O{]O{]O|^ O+|^POS|^O{|^O|^R/`XRB`Ra`U}~V[b}9^.*8Aqk.)/28`~)\fK}2S|WZ~ 60x 0Bx8Ohzh/tA,B,,-8,x-  ^" ^" $L^rL$NE8OV^>ҫ[[:s,% 0%^;r%3%$1%9&K($J)M7)G9)M7)(d6)f6()z7)9)!7`)W9)xZ9h)4)W8D)xZ8)@`5)z8)'5b)9*)`r6)r7L)xs6)H8 )q56)` 5)'8)p5)44)6dE,kK&E,KE,8O^E,zKk` py-J-8-x--R-_[` |j}n*+~uwtA^`K^s^_,ç_p__;_<c_ȫz̫p, ̫`m̫q̫zC̫Cyozb6sq  ).K6<.?8OaY`;~`[i\xO' .IIF DIF , MOV STGDESC,R2. .ENDC JSR PC,$DSTGP .ENDM $STGDPLYPT .MACRO $GETSTG STGDESC, .IF NB,1' .IIF DIF , MOV STGDESC,R2L .ENDC JSR PC,$GTSTG .ENDM $GETSTGT.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$YPE *****O ...ERR=11 .MEXITE .ENDC .ENDM $SEQCKT&.MACRO $UFLD$ FIELD,TAB1,TAB2,NAME,ARG.MCALL $SEQCK,..EMIT$SEQCK TAB1,TAB2,NAME..IIF EQ ...ERR-1 .MEXIT.IIF B .MEXIT<..EMIT <$'FIELD'=^D>R .ENDM $UFLD$T.MACRO FIELD$ NAME,LENGTH. .MCALL ..EMITI...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$T .MACRO $CHKMV SRC,FIELD,PTR,$$TST-2 .LIST ...CSG=.. .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 .NLISTS .PSECTN .ENDC .ENDC .ENDM STRU$BT .MACRO STRU$E .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. .PSECT. .ENDC .ENDC .ENDM STRU$ET.MACRO $EMSTG STRING .IF DF R$$TSTC.IF NB D.IF GT R$$TST--1T .PSECT $STRU3,D,GBL .IIF EQ,R$$TST-2,.LIST' .ASCII ?%N?<^O73>?'STRING'? .IIF EQ,R$$TST-2,.NLIST .PSECT. .ENDC .ENDC .ENDC .ENDM $EMSTGT.MACRO RMS$L SYM,SIZE,STRING .MCALL $EMSTGC .IF NB SYMSYM=^O<...TPC> .ENDC .IF NB SIZE ...TPC=^O<...TPC+SIZE>$ .ENDC.IIF B .MEXIT$EMSTG I .ENDM RMS$LT.MACRO RMS$G SYM,SIZE,STRING .MCALL RMS$L.IIF NB SYM .GLOBL SYMRMS$L SYM,SIZE,R .ENDM RMS$GBTT.MACRO;rT.MACRO ..EMIT VAL .IIF DF LST$$ .LIST MEB VAL .IIF DF LST$$ .NLIST MEB.ENDM^T .MACRO $ENTRY P1,P2 .LISTP1:: .NLIST .IF GT,R$$TST .NCHR $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 $ENTRY2T .MACRO $TSTPT P1,P2,P3,P4, DFIN$G SYM,VALR .GLOBL SYMI SYM=^O, .ENDM DFIN$GFT.MACRO DFIN$L SYM,VAL, SYM=^OC .ENDM DFIN$LfT.MACRO DEF$SZ SYM,SIZE,STRINGC#.IIF NB SIZE ...TPC=^O<...TPC+SIZE>T .ENDM DEF$SZ T..MACRO $STRIP FIELD,P0,P1,P2,P3,P4,P5,P6,P7,P8.IRP NN,\...ARGT.IIF IDN P0 .MEXITG.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.ENDMM .ENDM $STRIPFT /?P5 .IF GT,R$$TST .NCHR $X$.., .IF GT,$X$..-6I" .ERROR ;P1 IS MORE THAN 6 CHAR. .MEXITE .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 $TSTP .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>E3 .ERROR ;***** MORE THAN ONE TABLE BEING INIT *****L ...ERR=1P .MEXIT6 .ENDC.ENDC,.IIF B .MEXIT.IF EQ ...'TAB2I* .ERROR ;***** MISSING TAB2'$B MACRO ***** ...ERR=1L .MEXIT. .ENDC.IIF B .MEXIT,.IF NE <$COD-'TYPE>5 .ERROR ;***** XAB$B SPECIFIED CONFLICTING T  R')> .IFF3 .IIF EQ ...XXX ..EMIT M, .IIF EQ ...XXX-1 ..EMIT  .ENDCD .MEXIT  .ENDC .ENDC.IF EQ ...LEN-2T6 .IIF IDN ..EMIT  .IF IDN . .IF IDN <#0> ..EMIT T .IFF# ..EMIT R .ENDC .ENDC .MEXIT .ENDC.IF IDN <#0>.IF IDN ..EMIT R0.IIF GE ...LEN-4 ..EMIT 0.IIF G.IIF GE ...LEN-12 ..EMIT 6.IIF GE ...LEN-14 ..EMIT 6.IIF GE ...LEN-16 ..EMIT 6.IIF GE ...LEN-20 ..EMIT .IFF!..EMIT 4.IIF GE ...LEN-4 ..EMIT 4.IIF GE ...LEN-6 ..EMIT 5.IIF GE ...LEN-10 ..EMIT M6.IIF GE ...LEN-12 ..EMIT 6.IIF GE ...LEN-14 ..EMIT <E ...LEN-6 ..EMIT 1.IIF GE ...LEN-10 ..EMIT 2.IIF GE ...LEN-12 ..EMIT 2.IIF GE ...LEN-14 ..EMIT 2.IIF GE ...LEN-16 ..EMIT 2.IIF GE ...LEN-20 ..EMIT .MEXIT.ENDCT.ENDCR...TMP=...TYP&^O70 .IF EQ ...TMPN .IF GT ...LEN-12.6 .ERROR ;***** FIELD SIZE TOO LONG FOR REGISTERS ***** .MEXITP .ENDC ...TMP=...TYP&^O07I .IF GT ...TMP-..TMP0' ...TMP=BMOV SRC,12+O$'FIELD'('PTR')>6.IIF GE ...LEN-16 ..EMIT 6.IIF GE ...LEN-20 ..EMIT .IFTF'.MEXIT.ENDCR.ENDCF.IF EQ ...TMP-^O60.IF IDN !..EMIT $8.IIF GE ...LEN-4 ..EMIT 7.IIF GE ...LEN-6 ..EMIT '8.IIF GE ...LEN-10 ..EMIT ;.IIF GE ...LEN-12 ..EMIT >;.IIF GE ...LEN-14 ..EMIT 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 T*<^O6-...TMP>*2 .IF LT ...TMP-...LENT1 .ERROR ;***** FIELD TOO LONG FOR SRC -> R5 *****R .MEXITF .ENDC .IFF. ...TMP=<..TMP0-...TMP>*2' .IF LT 2+...TMP-...LENM4 .ERROR ;***** FIELD TOO LONG FOR SRC -> PTR-1 ***** .MEXITO .ENDC .ENDC.IF IDN ..EMIT 7.IIF GE ...LEN-4 ..EMIT N7.IIF GE ...LEN-6 ..EMIT F8.IIF GE ...LEN-10 ..EMIT 9.IIF GE ...LEN-12 ..EMIT *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=1F .IF IDN . ...TMP=...TYP&^O70. .IF EQ ...TMP .IF IDN ,2 .IIF EQ-+O$'FIELD'('PTR'),SRC'+4>.9.IIF GE ...LEN-14 ..EMIT *9.IIF GE ...LEN-16 ..EMIT 9.IIF GE ...LEN-20 ..EMIT .IFF!..EMIT N7.IIF GE ...LEN-4 ..EMIT 7.IIF GE ...LEN-6 ..EMIT 8.IIF GE ...LEN-10 ..EMIT 9.IIF GE ...LEN-12 ..EMIT I9.IIF GE ...LEN-14 ..EMIT + .IIF EQ ...XXX-1 ..EMIT N ..EMIT  .IFFD ..EMIT O2 .IIF EQ ...XXX ..EMIT + .IIF EQ ...XXX-1 ..EMIT - .ENDC .IFFP2 .IIF EQ ...XXX ..EMIT + .IIF EQ ...XXX-1 ..EMIT  .ENDC .MEXIT< .ENDC .IF IDN L .IF IDN <#0>/ .IIF EQ ...XXX ..EMIT ( .IIF EQ ...XXX-1 ..EMIT I9.IIF GE ...LEN-16 ..EMIT I9.IIF GE ...LEN-20 ..EMIT I.IFTF..MEXIT.ENDC<.ENDCO...ATO=0...TMP=...TYP&^O70.IIF EQ ...TMP-^O20 ...ATO=1.IIF EQ ...TMP-^O40 ...ATO=1.IF EQ ...ATO-1$.IF IDN !..EMIT +4.IIF GE ...LEN-4 ..EMIT 4.IIF GE ...LEN-6 ..EMIT 5.IIF GE ...LEN-10 ..EMIT <6 I \$$C=$$$B1/256. $$$B1=$$$B1&377 $$$B2=$$$B2*10.+$$$C2 $$$C=$$$B2/256. $$$B2=$$$B2&377 $$$B3=$$$B3*10.+$$$C $$$C=$$$B3/256. $$$B3=$$$B3&377 $$$B4=$$$B4*10.+$$$CE $$$C=$$$B4/256. $$$B4=$$$B4&377 .ENDM $$$H=$$$B4*256.+$$$B3 $$$L=$$$B2*256.+$$$B1..EMIT <$'FIELD'0=$$$L>E..EMIT <$'FIELD'1=$$$H>M .ENDM $$LNUM T#.MACRO $CALL$ PROC,TAB,ERR,SUC,tab2M .MCALL ..EMIT$ .GLOBL PROC...NUM=0.IIF NB ...NUM=...NUM+1..IIF NB ...NUM=...NUM+1$.IIF NB $BT 6.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$L,$SEQCK RAB,,,BB$.IIF EQ ...ERR-1 .MEXIT2 .IF NB .IF DIF R.IF DIF 5.ERROR ;***** BAD PARAMETER SPELLING (SYN/ASYN) *****R.MEXIT.ENDCRRABDF$.IFF RABDF$ BB.ENDC$.IFFRABDF$.ENDC0.IIF EQ ...ERR-1 .MEXITR...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 ...NUM=...NUM+1.iif nb ...num=...num+1 .IF NE ...NUM= ...NUM=0 .IF B - .ERROR ;***** MISSING TABLE PARAMETER *****$ .MEXIT .iff$ ..EMIT $ .if nb $ ...num = 3. ..emit  .if nb . ..emit  .iffM ..emit  .endc .if nb  ..emit  .iff .if nb  ..emit  .iff ..emit . .endc+ .endc .iff $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$BBbT.MACRO R$RAC VALUE .MCALL $UFLD$F$UFLD$ RAC,RAB,RAB,,< .ENDM R$RAC fT.MACRO R$ROP OPTIONS .MCALL $UFLD$A$UFLD$ ROP,RAB,RAB,,R .ENDM R$ROPDbT.MACRO R$UBF LABEL .MCALL $UFLD$E$UFLD$ UBF,RAB,RAB,,