IMD 1.16: 1/09/2008 12:37:51 84-93460-02 g330 f46002 os4 system generation disk 7-mar-84    @0|)wwЀЀtQql)  " }gA `_8M@IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 MF282081611405800840504082438 840504082438 >F46002 VOLOS4 SYTEM GENERATION DISKETTE 84-93460-02 G330   IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII_8M@iGyy GGG`HZ@ b G`^Y e IQ BBp@;:9 :7P@ G:پN 8!0. * C'xC# b# }B @0DAJL w+™ЀЀΖQA1"   i ž} š} @EEFF)DEۄF8 џ} ԟ} ̟} * `jUBBI,v BI, # @ G9H@pܾrCHC C GTq` Lg"gEXC P+s=胾P+c fQN p $Rxnj  ޔniZ ތ⊞ } }HGž Ÿ@ALS)"$ C k20j.h( +$`%ꂜ\1 !M' y %'+os慾)sY ed|{ @8 o O m J K i gN )V% t%sLn`"E F. F„ D>) =`;nrgy w"G,{Kq1 A&}E*`(t@% ;c  765y342(.OS:: SYS"iwvc Bc A@6<# Ic B# gIjHc rUMMY im MACRO (F510) @igJR:AFB O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:RFB O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:DUMMY O0SEGMENTBLANK DUMMY: o KR:DOOREXim MACRO (F510) @igtJR:HIGH O0SEGMENTBLANK R:HIGH o im MACRO (F510) @igJE:INIT O0SEGMENTBLANK oKE:MONE F:CONN R:SATD KI:IO R:BGIN E:CIFP KPCI:INITI:ERTD E:MON KE:UATP E:SF LOAD:B KR:LOW E:HIGH E:LOW im MACRO (F510) @ig ⷀ@u  `0_  pP㬠!@@B K+k@+kU:S:E :U:cʃ:h m*** OS4AUX.LIB - REV G3m30 ***t t t tt tt ttt OC M1OS4 (G330) tA INITIAL:: JCL\CICI0JPCISEMA4CONSINT:PROCINT:JPCI:TDB LPCI:INITO0SEGMENTBLANK TABLE: OOS4: o >]KR:WAIT R:ITIC I:IO KR:CINT E:HIGH E:LOW KE:MONE R:IDOR R:BGIN NR:SL R:TDBL im MACRO (F510) @igkdii fgh:#  ABORT? OC OC OC+-AT<:kg>:ig::d:d#:d. y X x B   ! q>B|{ñ C F E: d6:d< hCEC @ Û㕣f&!1ç1>/Njc ;dd-ttttJCONSINT:PCI:INITO0SEGMENTBLANK OS4: o im MACRO (F510) @ifgg# @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ CIAC: CIBP: LSLFP:E CIFP:E O0SEGMENTBLANK OS4: o KI:IO F:SLU im MACRO (F510) @ig 1 æ := :/ph@ph ?ph@kphF:E ª # @SAyVCIt SL DC5GEN.JCL --- ASSEMBLE DC5CONFIG (93461-7E G300) ALL SOURCE FILES ASSUMED TO BE ON UF CREATES OBJECT ON UF CREATES LISTING ON LO MACRO DC5CONFIG(D=SF.GEN+SF.IOS+SF.IOSD,L=,PA=57) LINK SYSTEM? PAUSE DO DC5GENLINK  " UAT:EE 'SI',D:MC00 STANDARD INPUT UAT:EE 'LO',D:TV00 LISTING OUTPUT UAT:EE 'SF',D:DF00 SCIM VSLOShhhh h@JCIBUF: CIAC: CIBP: O0SEGMENTBLANK OS4: o im MACRO (F510) @igggJE:UF E:SF O0SEGMENTBLANK OS4: o KUF:E SF:E im MACRO (F510) @iggttJUF:E SF:E O0SEGMENTBLANK OS4: o KR:EX F:SLU im MACRO (F510) @igg Ǡ1DSB# :"SFUFtJE:SLU O0SEGMENTBLANK OS4: o KF:SLU im MACRO (F510) @igtJE:MON O0SEGMENTBLANK  OS4: o KR:END im MACRO (F510) @ig:JFM:SVC O0SEGMENTBLANK oKR:SATD R:GATD F:DMNT KF:MONT F:CONN F:DELE KF:CREA im MACRO (F510) @gJF:CREA O0SEGMENTBLANK SFM: o pKR:GATD F:RTFN F:EXITS KF:INITS F:CKMT F:MOUNT KF:DFNO F:BAX F:INFO KF:RDW F:SVU F:GBS KR:GVSH F:GTAU F:CFEN KF:GTFN F:GFCB F:RDIB KF:GDIB F:INB F:ADE KF:SND im MACRO (F510) @ig ϤA  FDZ YBZ  Z B ą   Y H H H @  DggZAZg Zuttt ttttttt tt tttt ttt ttJF:DELE O0SEGMENTBLANK SFM: o KF:EXITS F:INITS F:DUAT KF:MOUNT F:DFNO F:RTAU KF:INFO F:BAX F:AULS KF:SFAU F:CRAU F:RBF KF:RDW F:GFCBOVicEdDanoP8){ @ƤI@0@¡Ǥ ǣ)@IЀЀ؀QA1*@ ΍╢@+kUŒk5mEEEBE5E3--E2E1P820816114058820816114058820816114058  TITL OS4CONFIG - SYSTEF CONFIGURATION (93461-10-F100) *************************************************************** * *  R E V I S I O N H I S T O R Y * * REV E600 - ADDED CIB:DF AS PER CHANGES REQUIRED BY NEW * IOSDIBCIB, IOSD.MAC, AND INCLUSION OF SCOUT * FLOPPY HANDLER. MJD 16DEC80. * * REV E700 - THIS SYSTEM IS NOW SET FOR 81 COLUMNS. * THIS INCLUDES THE CARRIAGE-CONTROL * CHARACTER. SLM 18FEB81. * * REV F000 - SET UP NAM FOR DEFAULT LOAD ADDRESS * (LOAD:B) SD 1/MAY/81 * * REV F100 - SET UP EMP: AND EMPSIZE: PARAMETERS FOR * SYSTEM EMP SPACE. * CWK 06/AUG/82. * *************************************************************** TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP:  NAM PRI:MAX NAM FPOOL:,FPSIZE: NAM EMP:,EMPSIZE: NAM JCL:E NAM  LOAD:B LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * * LOAD R:EMLTR REQUIRED FOR ANY EMULATOR USAGE * LOAD EM:410X MAKES A 410 LOOK LIKE A 430 * LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * * GENERATE BUFFER POOL *  BUF:R 3 * * DEFAULT LOAD ADDRESS LOAD:B EQU :200 * * DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS *  TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIZE * * DEFINE EMP SIZE * EMPSIZE: EQU 0 TITL ... DIBS & CIBS GENERATION * TVDIBCIB TV00,:F,4,:1C0  DIB:ST TV00 * DIB:ST PP00 * DIB:ST PR00 * DIB:ST CR00 DIB:DF DF00 DIB:DF DF01 CIB:DF DF00,:11 DIB:LP LP00,110,42,LF: * DIB:LP LP00,81,39,LF:,,CIB: * CIB:LP LP00,:F,7,:1C0 * * DIB:DM DM00,10 * DIB:DM DM01,10 * DIB:DM DM02,5 * DIB:DM DM03,5 * CIB:DM  DM00,:14 * * DIB:DH DH00,40 * DIB:DH DH01,80 * DIB:DH DH02,150 * DIB:DH DH03,300 DIB:DK DM00,QWIN,40 40MB QUANTUM 8" WINCHESTER CIB:DM DM00,:15 * * DIB:DK DH00,5WIN,8,:140,2,:0101,:8300 26MB RODINE DIB:DK DH00,5WIN,4,:131,1,:0101,:0000 10MB SEGATE DIB:DK DH01,5WIN,4,:131,1,:0101,:0000 10MB SEGATE CIB:DH DH00,:14 * DIB:MT MT00 * CIB:MT :F2,:C8 DIB:STR ST00,90 CIB:STR :FC,:F0 TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0  USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0 " UAT:EE 'X4',0 " UAT:EE 'SI',D:CR00 STANDARD INPUT UAT:EE 'LO',D:TV00 LISTING OUTPUT UAT:EE 'SF',D:DF00 SYSTEM FILE   UAT:EE 'UF',D:DF00 USER FILE UAT:EE 'OC',D:TV00 OPERATOR CONSOLE UAT:EE 'CI',D:TV00 COMMAND INPUT UAT:EE 'SL',D:TV00 SYSTEM LOG UAT:EE 'SO',D:TV00 STANDARD OUTPUT UAT:EE 'SA',D:TV00 STANDARD ALTERNATE UAT:EE 'LD',0 LOAD PROGRAM UAT:EE 'OV',0 LOAD OVERLAY UAT:EE 'XX',D:DH00 SCRATCH FILE UAT:EE 'PO',D:LP00 PRINT OUTPUT UAT:EE 'Z1',0 SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZE:,0 * * RESERVE EMP SPACE * EMP: RES EMPSIZE:,0 END F IM AفKy  D MA ˠCFK  ICDEK MAC C F:RDIB KF:GDIB R:GVSH F:RTFN KF:GBS F:CFEN F:FOP KF:SND F:SVU im MACRO (F510) @ig ѤA  ʄZH ĞƞΞ ЀWX AZ  TZ T U VETi`Z Ӏ`Z͠AZ QZgZAsttt tttttt t tttt ttt ttttttJF:CFNO F:CONN O0SEGMENTBLANK SFM: o _KF:EXITS F:INITS F:CKMT KF:MOUNT F:DFNO F:S/ OS4SGENLNK.JCL --- LINK OS4 SCOUT SYSTEM (93461-7A-F100) ALL OBJECT FILES ASSUMED TO BE ON UF  ALL LIBRARY FILES ASSUMED TO BE ON SF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SCT / /JOB / /ASSIGN X4=LO /ASSIGN LO=OS4SGEN.MAP / /LINK OS4SGEN=SF.OS4SYS+SCTCONFIG+SF.OS4AUX / /ASSIGN LO=X4 / /PAUSE / //COPY OS::.SCT=SF.BOOT3.BIN+OS4SGEN.BIN JE:GFN O0SEGMENTBLANK OS4: o KGFN:E im MACRO (F510) @igtJGFN:E O0SEGMENTBLANK OS4: o KF:CONN E:UF ISM:E KC:HEAD F:SLU im MACRO (F510) @i I1ECNBCO# g $'/p(p(` D/ph @ph)@BCOD6D Z `+ʀP COB BT€RQ EV AQ mWG C W90.r@ VBCOOVttt 00ߞހP D  /NBy M  `+f ,NQ (Vy ) 5` @P  `+ON sVWNy%ZrY['O CP  /NM D%Y' B4BC] Ҁ O? ?ph@kphD?p( +p(# r pN N igIRN 1N1  # tJE:ISM O0SEGMENTBLANK OS4: o KISM:E im MACRO (F510) @igtJISM:E O0SEGMENTBLANK OS4: o hKCIBP: SBP: ICH:A  im MACRO (F510) @ig /p(p(` BDCEA ׂI `+C Uф@z 0 :D A FE [ _ E  :E ED DAQ\DQZBN!BB  @BCN1@CA,D,E, @k%'jACN€M DB BEB CA?p(+p(# t ttJE:ICH O0SEGMENTBLANK OS4: o KICH:E im MACRO (F510) @igtJICH:A  ICH:E O0SEGMENTBLANK OS4: o ?KCIBUF: CIAC: SBP: im MACRO (F510) @ig/p(p(` g /p(p( MNQ@ ϪSW /p(p(Nq%  ' z ` ?p(+p(M? p(+p(# '?p(+p(L 0ntttJSBP: O0SEGMENTBLANK OS4: o KCIBP: im MACRO (F510) @ig MN1EMM M1ÉB I@@Mǁ# tJE:RCI O0SEGMENTBLANK OS4: o KRCI:E im MACRO (F510) @igtJRCI:E LCIBUF:  CIAC: CIBP: LSLFP:E CIFP:E O0SEGMENTBLANK OS4: o KI:IO F:SLU im MACRO (F510) @ig 1 æ := :/ph@ph ?ph@kphF:E ª # @SAyVCIt SLCIM VSLOShhhh h@JCIBUF: CIAC: CIBP: O0SEGMENTBLANK OS4: o im MACRO (F510) @igggJE:UF E:SF O0SEGMENTBLANK OS4: o KUF:E SF:E im MACRO (F510) @iggttJUF:E SF:E O0SEGMENTBLANK OS4: o KR:EX F:SLU im MACRO (F510) @igg Ǡ1DSB# :"SFUFtJE:SLU O0SEGMENTBLANK OS4: o KF:SLU im MACRO (F510) @igtJE:MON O0SEGMENTBLANK  OS4: o KR:END im MACRO (F510) @ig:JFM:SVC O0SEGMENTBLANK oKR:SATD R:GATD F:DMNT KF:MONT F:CONN F:DELE KF:CREA im MACRO (F510) @gJF:CREA O0SEGMENTBLANK SFM: o pKR:GATD F:RTFN F:EXITS KF:INITS F:CKMT F:MOUNT KF:DFNO F:BAX F:INFO KF:RDW F:SVU F:GBS KR:GVSH F:GTAU F:CFEN KF:GTFN F:GFCB F:RDIB KF:GDIB F:INB F:ADE KF:SND im MACRO (F510) @ig ϤA  FDZ YBZ  Z B ą   Y H H H @  DggZAZg Zuttt ttttttt tt tttt ttt ttJF:DELE O0SEGMENTBLANK SFM: o KF:EXITS F:INITS F:DUAT KF:MOUNT F:DFNO F:RTAU KF:INFO F:BAX F:AULS KF:SFAU F:CRAU F:RBF KF:RDW F:GFCB F:RDIB KF:GDIB R:GVSH F:RTFN KF:GBS F:CFEN F:FOP KF:SND F:SVU im MACRO (F510) @ig ѤA  ʄZH ĞƞΞ ЀWX AZ  TZ T U VETi`Z Ӏ`Z͠AZ QZgZAsttt tttttt t tttt ttt ttttttJF:CFNO F:CONN O0SEGMENTBLANK SFM: o _KF:EXITS F:INITS F:CKMT KF:MOUNT F:DFNO F:SLUS KF:GLUS F:RDIB F:GDIB KF:SFC F:RLU R:GVSH KF:SND F:SVU F:GFCB MFM:SFM im MACRO (F510) @ig ͠Y ABS A  ZZߠYۀAB ā A@Ѐ ĀBĉZ Ċ¨ć§ā@ gi ZAZwg ABZZCANtttt ttttt tt t uttt JF:DUAT FLIST F:DMOUNTJF:MOUNT F:DMNT F:MONT O0SEGMENTBLANK SFM: o 0KI:IO F:EXITS F:INITS KF:CKMT B:HEAD F:BAX KF:INFO F:GLST F:RLST KF:SVU F:SLUS F:GLUS KF:RDIB F:GDIB F:RLU1 KF:AULS F:GBS F:RBF KI:TCU im MACRO (F510) @ifggg *B1:A  QB1NBɀ 6[ 1 gttt tttt sqowlg ! _ "* H1K QJGBĀZ B B C @C @ pā_B __ __6  1  B* pE/ p p_/p p @*31*_1A&# /p p@pKp@gtg *B1RBJQD C ggt t t t t tg N OQJ?QC @ QB[TP G ` QRS GGG _\ ºG!ac B BR IG*S F@ B, @ GBĝBR  IG SB # tttttt{tJF:CKMT O0SEGMENTBLANK SFM: o  im MACRO (F510) @ig Y 1C# MTJF:EXITS F:INITS O0SEGMENTBLANK SFM: o im MACRO (F510) @ig C @C @C @C @C @`p FYcgB/p $p# JF:SVU F:SND F:SFC JF:RLU1 F:RLU F:GNE  JF:GFCB F:FOP F:DFNO JF:ADE O0SEGMENTBLANK SFM: o KF:GDIB F:RDIB F:ADEX KF:INB F:SLU R:GVSH KR:BFLN R:ISIG R:IWAI KF:BAX F:RDW F:GBF KF:RBF F:GBS F:CRAU KF:AULS F:SFAU F:GCB im MACRO (F510) @ig  I[QbGWX Z/p(p(Y @IC @C U?p(+p( # URV_ S  R_ 3C# tttt t t tttt tgYIA@AĊ# g PB1LZĀ6P1PA# gƒċ# tg IGVWXWBG!  R]^TVC SS UR` `1 ^SB `G G! RBR$# # tt Ξgg Q;/ph@ph@(РP +?ph@kph P+ P6oP   @ 瞛Pvu  Ā  ΦQ/ph@ph  ?ph@kph ?ph@kph # ?ph@kphvtttZPMTtg ZB+E(z(# g ^][` WXS SEI@ Z # Y\΀[ PW XG[ # I\ a`\+U*ZZ# ttt lt t g YB1Jy YQ^ \YQg!WXW XJS+XW7y B N OMƠQ ?K # }{y Bv N O7ӠQM I+9\Y\+\JR9P(P# JFM:SFM O0SEGMENTBLANK SFM: o KR:GATD F:BLOCK F:MOUNT KF:ERQ F:CEO3 F:CEOF KR:IWAI R:GVSH I:ECTT KF:WXFR F:WTWP F:UWFP KF:UPWP F:TRUN F:SFD KF:SFAU F:RXFR F:SCR KF:RMOV F:RLWP F:SLUS KF:RDIB F:INFO F:GTWP KF:GTFP F:LEGR F:GLUS KF:GDIB F:GCB F:RDW KF:RBW F:RBF F:GBS KF:GBF F:FCHK F:FAUS KF:EXTD F:EOFR F:DBF KF:DALC F:CRAU F:CPAU KF:CFEN F:CEOB F:BAX KF:AULS F:ADEX im MACRO (F510) @im*** SFM.LIB - REV G310 m *** g \F6\AB [ IZF cL\FXN9C  AIn////////// B [GZI # t"t$t A6AkDYLWXFXC  ///////eet WXADA ASO`N CZNZYN NYCYTڀ`LSt+tt(t#t tt tt XWFA  Z [NWOX I  ^G [NWOX WXQAPGAt%t A6QSÂYK> A>YQFXQfxtt aWX&A%EA [ SÂlYHAg YDfc#LWXā 5 A6ADYF  ////////222}}/ 1/ WXAPQB WXGA; A6XSÀYR SDAYA \Awt tDt(t#t.t)t-t!t t tt tGG n„WNXOAhPQf BbWX``G^AY \;[A6`SÀY RZRAHPPYAaA WFXFAAA@P> jttt &&WXY )C+ NOAWXA GA;SD ABf×E J EI\YSYZ Zt tt tt tG v2WXPQY )nB BWXB \B[rZE J EI\YSONeLDZttt(t#t `E`5 A6ALWXj F מ D SAGV WE [NO WXP [ I1/ WXWXLāt ҠA+! DSAG V NCWXM [ IA+WXN FрOF [WX EA;WXA Ă/ ttt(tt.Dt)LNO[5 FFA A6AAA` AA׀F̄F @BK@" @+ `  @6F@F@`` /AB`@ CV UF̈́F` ʀ6 AAA  A@(@( À# ‘D }ttt&t*t t,ttt't ޭqqA6B6D 6BπF ĠA A Z_Aפ`AS RF̄FN6@BK@" H @(_GBCA _@``EF D`@ 1`G CABŀ À@@`@!C `A F@F@ā ܉ ZL  Z__ttttt5JF:WXFR F:WTWP F:WMOV JF:UWRQ F:UWFP F:UPWP JF:TRUN F:SFD F:SCR JF:RXFR F:RMOV F:RLWP JF:RAMV F:LEGR F:GTWP JF:GTFP F:FCHK F:FAUS JF:EXTD F:ERQ F:EOFR JF:DALC F:CPAU F:CEO3 JF:CEOF F:CEOB F:BLOCK JF:BLNK F:ADEX O0SEGMENTBLANK SFM: o KI:DOIO R:IWAI R:ISIG KF:SFAU F:RTFN F:RTAU KF:RBW F:INB F:INFO KF:GTFN F:GTAU F:RDIB KF:GDIB F:RBF F:GBS KF:RDW F:CRAU F:CFEN KF:BAX F:AULS im MACRO (F510) @ig A_AVBVtttt  BV TBV UA__dc +*OW+NR TTOxCR_f UЀVŞH_BWt t t ;˄`_21s `A`'&  f_`_ A[   +@(R+@(@# QF*UR+UV ATVU #  )/ph@ph?ph@kphrt ttt g \Y/p(p(E%G @  }*19 ' ?p(+p(Y# g YDLPWX T]VB G S^YSBYDEQ` LPLπIY@SB I NZZI QE# g5SN# gPQg W XʸNO F # [|g TV]R]TSUR^S # ttirg Yx^A]AZ ؠQÈJ^* +DYY^yEDD Y]AZNW OXQEDZ င\\1g*\ "E8Y @Y]RVU  ǀWNXObttt tt |DZZIon DـDed ZπDZ%@AІ̆VUV # tttg NO@AGVA PÀYCY# g2V# g AVUT# g MB TUA/ąV # ttgA1 # gL# gANO# g  WPXQY)=EYPY # g NYR€YNN# g A+# tg  qSÒZNZ# g _@APOQ`H%} 'F +`HPu `@_P# g ZB+F C8# g AEYF@Y# g AWXĂ/ # g NVWXW# gYNY# gA+# tg YS@@YCYZBZ @GVWX@ Y# g Q# C @g Q# C A @\"\S@"VS O 6ĈEN 6ОEN 6Q `*%VB`H`H5Q `*%VBt`H`H5Q `%VA`HA`HA'kK* Q`V`H 6*%`H`H '. 5D@5c # JF:SFAU F:RTFN F:RTAU JF:SLUS F:RDIB F:INFO JF:INB F:GTFN F:GTAU JF:GLUS F:GDIB F:GCB JF:CRAU F:CFEN F:BAX JF:AULS F:AGTW O0SEGMENTBLANK SFM: o FKR:GTS F:RDW F:GBS KF:RBF R:ISIG R:IWAI KR:BFLN im MACRO (F510) @ig S SRKRPQWSРB GVNOPSǀS P S # }ttg RBG NOS GS G !GVNO# }gS. Q# g  @/ph@ph5 7 G ϠBG! SR/646_R QS_ R S?; W?ph@kphR猆+J zR(?ph@kph  GG! RSAJS̀R R 7# ?ph@kph# g  BG! ]^ # g I C U# g B+# g !+# g B SZR RS SB 9P FQƀVVUJ 1 NĀ9   `NW E 6i V  sĀS SB VNO  S[  E 1 NĀ # *|%AttJF:GBF O0SEGMENTBLANK SFM: o KF:GSEC im MACRO (F510) @igQ Q # tJF:GBS O0SEGMENTBLANK SFM: o KF:GSEC F:IRBF F:RDS im MACRO (F510) @ig BQKQ# PP{tttJF:IRBF F:RBW F:RBF O0SEGMENTBLANK SFM: o /KR:IACB BUF:S1  R:ISIG KBUF:S2 BUF:CT B:HEAD KF:RLST F:GLST im MACRO (F510) @igQ QQgQ Qg Q  ߘ Q+ K/1FǎÌNJw # ttttttttJF:IRBD F:RDW F:RBD O0SEGMENTBLANK SFM: o KF:IRBF F:WRS im MACRO (F510) @igQ QQgQ Qg PQ6PP# ttJF:DBF O0SEGMENTBLANK SFM: o KF:IRBD F:AQB B:HEAD KF:RLST F:GLST im MACRO (F510) @ig +1NA6Q Qp # tttttJF:GSEC F:AQB F:CBA JF:WRS F:RDS F:RLST JF:GLST O0SEGMENTBLANK SFM: o KB:HEDS BUF:CT BUF:S2 KBUF:S1 B:HEAD R:IWAI KR:ISIG I:DOIO im MACRO (F510) @ig# ttg z*1]*BO NQ6J,! A Q+^^ QNOBA! # ttg G{ Q|{(( Ā ? A  /6-6 C @Q# g)g )FP'FQDBL EDB G E LQDBL EPFFIćĈăąЄ# gz# g# ttttttJR:BFLN B:HEDS B:HEAD JBUF:CT BUF:S2 BUF:S1 O0SEGMENTBLANK TABLE: o KBUF:N NBUF:: BUF: im MACRO (F510) @iggggtglglJUAT:S O0SEGMENTBLANK TABLE: o KD:DH00 D:DM01 D:DF01 KI:IO D:TY00 D:TR00 KD:TP00 D:TK00 D:PR00 KD:PP00 D:LP00 D:DM00 KD:DF00 D:CR00 im MACRO (F510) @ig CRt LPt PPt PRtTKtTPtTRtTYtF0t F1tD0t D1tH0tJF:SLU I:SLU I:RET JI:STUR I:STU0 I:POWR JI:NEOB I:FINI I:WAIT JI:STUP I:DOIO I:IO O0SEGMENTBLANK IOS: o ,KI:ERS1 I:ERTB I:DOER KI:DOSV I:ABRT I:ECTT KR:SACT R:SPRI R:ISIG KR:GPR R:IWAI C:HEAD KI:WDT im MACRO (F510) @im*** IOS.LIB - REV F310 m ***g  C @C @C @C @C @C @ `p҄GI@DEF LA1MH F@6EQM@IG k F@6IM IāM/p $p# J ho6Mekk@6M_@6;Ztttt ttt @Р1MIA BC # ABx# gg !+@ D   # # U=+vUvg  BCF09FXB +  N1C 6C8F09C +g HF@6E,o# g # g BKQ\6ƀF I DL 1 N6H 1 N Bȉ@AH# g MCMC+CM # # gC+C # tt tt tg /ph@phC+Cq?ph@kph# ttg C6# 6B # # g 섁@ +k @1# t JI:INIT I:WDAC I:KWDT JI:LWDT R:RTCI I:DOGY JI:WDT O0SEGMENTBLANK IOS: OTABLE: o K+KR:WCP R:ITIC R:ISIG KR:IWAI C:HEAD I:POWR im MACRO (F510) @ifxgg  _H ܕ܄+Ϟ j@F@ `+11Xdtdtttdtdig>i1igg@dgp.i1g A s⑂@ @AF ## # tdddJI:ERS3 I:ERS2 I:ERS1 JI:ERTB O0SEGMENTBLANK TABLE: o im MACRO (F510) @iggggJI:DOER I:DOSV I:ABR  T O0SEGMENTBLANK IOS: o im MACRO (F510) @iggg# JI:OVL O0SEGMENTBLANK IOS: o sKI:IO im MACRO (F510) @ig p`pA bDBOϠ 1E OS  p# G AEA @BF EG HK 1E TRIP EA O sO G@ iNJK˜FC@ @BF]GG@oFS#ab?O0SEGMENTBLANK IOS: o im MACRO (F510) @iJI:LOAD O0SEGMENTBLANK IOS: o KI:LDEXITI:LDINITI:LDMAINim MACRO (F510) @ig [IFF# tttJI:LD410SO0SEGMENTBLANK IOS: o KI:LDEXITI:LDINITI:LDMAINim MACRO (F510) @ig EJ C  C  C  C K EEEEtt HI [EE6€C E/E6J C ېEE 6C]CE E6C‰ĀKĀLāO FŽĀɀK ĀLāMĂFF_#  HIF3 6E EE A6@B  FD6A+&DHƒI# lWt @_)E/E6  KLM# J C C # |JI:LDEXITI:LDINITI:LDMAINO0SEGMENTBLANK IOS: o (KI:IO im MACRO (F510) @ig ]p pSRXN ` P 0Q Q Y Z О E@ @ E 1Q]‚p#  @M SA G[C  tq [LL@fLOLoLmMNMIG qXQ3ĤX;\ @`XS%'`@\'X# h A@ QA[1DHV ]' F[1DHV)NGQB IT#HL[1۠Y1Y@" Y&ZA& Z[1DHVIGa@ Zs1@N Y@& VV<V9V6[1CHV1I2 1G@CZQCY QG C pÀYZA@@ eZ1B@Z`GG }YY&Z@# g p``p^] )5]@AB_g ][Y@QADQZQBY@ ĈE6Bg^ p# ZJD:TV00 O0SEGMENTBLANK IOS: OTABLE: o KTYTOF: TYEOL: TY00BF: KTYELI: C:TY0 NTY: im MACRO (F510) @igktTV00Ptt<tttJD:TK00 O0SEGMENTBLANK IOS: OTABLE: o KTYTOF: TYEOL: TY00BF: KTYELI: C:TY0 NTY: im MACRO (F510) @igktTK00Htt<_tttJD:TY00 O0SEGMENTBLANK IOS: OTABLE: o KTYTOF: TYEOL: TY00BF: KTYELI: C:TY0 NTY: im MACRO (F510) @igktTY00Htt<_tttJD:TP00 O0SEGMENTBLANK IOS: OTABLE: o KTYEOL: TY00BF: C:TY0 NTY: im MACRO (F510) @igktTP00P t<ttJD:TR00 O0SEGMENTBLANK IOS: OTABLE: o KTY00BF: C:TY0 NTY:  im MACRO (F510) @igktTR00P  <_tJC:TY0 O0SEGMENTBLANK IOS: OTABLE: o KI:EOB TY:FUN TY:WRT KTY:RD NTY: CIB: im MACRO (F510) @igklltttt?tJTY00BF: O0SEGMENTBLANK IOS: OT  ABLE: o im MACRO (F510) @igJTYELI: TYTOF: TYEOL: O0SEGMENTBLANK IOS: o im MACRO (F510) @ig g g JD:LP00 O0SEGMENTBLANK IOS: OTABLE: o %KC:LP0  ND:LP0 im MACRO (F510) @igktLP00 Q9!2#   JC:LP0 O0SEGMENTBLANK IOS: OTABLE: o KI:EOB LP:FUN LP:WRT ND:LP0 CIB: im MACRO (F510) @igkllttt?tJLPPUF: LPTOF: O0SEGMENTBLANK IOS: o im MACRO (F510) @igg JLPEOL: O0SEGMENTBLANK IOS:  o im MACRO (F510) @ig JDPEOL: O0SEGMENTBLANK IOS: o im MACRO (F510) @ig JD:CR00 O0SEGMENTBLANK IOS: OTABLE: o gKCR:TAB C:CR0 NCR: im MACRO (F510) @igktCR00PtPJC:CR0 O0SEGMENTBLANK IOS: OTABLE: o KI:EOB CR:WRT CR:FUN KCR:RD NCR: CIB: im MACRO (F510) @igklltttt?tJD:PP00 O0SEGMENTBLANK IOS: OTABLE: o  KC:PP0 NPP: im MACRO (F510) @igktPP00  JC:PP0 O0SEGMENTBLANK IOS: OTABLE: o KI:EOB PP:FUN PP:WRT NPP: CIB: im MACRO (F510) @igkllttt?tJD:PR00 O0SEGMENTBLANK IOS: OTABLE: o KC:PR0 NPR: im MACRO (F510) @igktPR00  _JC:PR0 O0SEGMENTBLANK IOS: OTABLE: o KI:EOB  I:OPEN PR:RD NPR: CIB: im MACRO (F510) @igklltttt?tJD:DF03 O0SEGMENTBLANK IOS: OTABLE: o (KC:DF0 NZ:DF03 DF: im MACRO (F510) @igktlDF03AA M  MJD:DF02 O0SEGMENTBLANK IOS: OTABLE: o (KC:DF0 NZ:DF02 DF: im MACRO (F510) @igktlDF02AA M  MJD:DF01 O0SEGMENTBLANK IOS: OTABLE: o (KC:DF0 NZ:DF01 DF: im MACRO (F510) @igktlDF01AA M  MJD:DF00 O0SEGMENTBLANK IOS: OTABLE: o (KC:DF0 NZ:DF00 DF: im MACRO (F510) @igktlDF00AA M  MJC:DF0 O0SEGMENTBLANK IOS:  OTABLE: o )KI:EOB DF:FUN DF:WRT KDF:RD NDF: CIB: im MACRO (F510) @igkllt  ttt?tfdJD:DM03 O0SEGMENTBLANK IOS: OTABLE: o (KC:DM0 NZ:DM03 DM: im MACRO (F510) @igktlDM03AA   &JD:DM02 O0SEGMENTBLANK IOS: OTABLE: o (KC:DM0 NZ:DM02 DM: im MACRO (F510) @igktlDM02AA   &JD:DM01 O0SEGMENTBLANK IOS: OTABLE: o (KC:DM0 NZ:DM01 DM: im MACRO (F510) @igktlDM01AA    OJD:DM00 O0SEGMENTBLANK IOS: OTABLE: o (KC:DM0 NZ:DM00 DM: im MACRO (F510) @igktlDM00AA    OJC:DM0 O0SEGMENTBLANK IOS: OTABLE: o )KI:EOB DK:FUN DK:WRT KDK:RD NDM: CIB: im MACRO (F510) @igklvttt?tdJD:DH00 O0SEGMENTBLANK IOS: OTABLE: o *KC:DH0 NZ:DH00 DH: im MACRO (F510) @igktlDH008AA  8z9`pJD:DH01 O0SEGMENTBLANK IOS: OTABLE: o (KC:DH0 NZ:DH01 DH: im MACRO (F510) @igktlDH01AA  7  &7 @LJD:DH02 O0SEGMENTBLANK IOS: OTABLE: o (KC:DH0 NZ:DH02 DH: im MACRO (F510) @igktlDH02AA  7  &7 @LJD:DH03 O0SEGMENTBLANK IOS: OTABLE: o (KC:DH0 NZ:DH03 DH: im MACRO (F510) @igktlDH03AA  7  &7 @LJC:DH0 O0SEGMENTBLANK IOS: OTABLE: o )KI:EOB DK:FUN DK:WRT KDK:RD NDH: CIB: im MACRO (F510) @igklvttt?tdJC:HEAD O0SEGMENTBLANK IOS: OTABLE: o NCIB: im MACRO (F510) @iglJPP:FUN LP:FUN TY:FUN JPP:WRT LP:WRT TY:WRT JPR:RD TY:RD O0SEGMENTBLANK IOS: o KI:QWAIT I:OPCL I:VCNT KI:SIV FBW: FBR: KI:STAT I:ECTT I:RST KI:SDIO I:TRTB I:TRLL KI:RET I:EMEM I:FINI KI:NEOB I:WAIT I:DIO KI:STUP im MACRO (F510) @iggg EDπF ĠB΋QG F ʀDt TRt DׄDI3BJEK CFyDOFB 6E@6ArP + 1 QCܗ 0y  xBD+KFQF  QFWBwP B ЄP怑GG[柊t t ttt tttt O [DFF 6EEKhhhgfB ewF@0 CXJQB 1h6ǀy C D D P+KFQFB JGy ÂGG 1pPAC ttt  Ӟw@KQB@6 1U@ KCNJĂ ܄6À  @KQNDI@lJ FJCIIBΠQ :ʜNyJQKQĀJ/6 C6(tttt tttLPtgg IPRED)D DNF  EKB F @Q6@ JPF 6 M_CK_ %'3 oPDJ  IQDF6AKF QCK _%+'PQ͟t tt7| L K IDGDQ h IIADDI IFXJQCcKF6 +DJ B%QC*˞aa ' QQ ICB1 F DPQ_QAFNDtJ EKM B%'Q_ J  K@* H% '@(KK+I_K#BK` M@#QbAIIDMN F6 FKK _IQҠMK 1yAʠMK1yv  DBKFFM ` K@P QQҞ Q MJM`UEK>Q h KMeII ΀_E6 q.y' IICB @1B  P;XJQ p# c p+p(v/*tt ttttttt[uggg BJFF $ #  ʠK` D II  ӠB1P1wD+KB  I瞮 ҠB K D IIF   FBDQKNy @HID@D€DrI 1oD+KGeCI I^ B BܗI ICF   ŠB- @KQB@6T tLPtt Bt  MBZ ;KI  D I KI D I tTYTKPPTPJFBW: FBR: O0SEGMENTBLANK IOS: o  KI:SIV I:SDIO I:ECTT KI:RET I:STAT I:VCNT KI:RST I:NEOB I:STUP KI:FINI I:WAIT I:DIO im MACRO (F510) @ig DIBK̈́JSC DIFF I EDמҞОсKy  D5 ͠C FK ICD EKnC CFF DBK CILUCC IDGKC Ǟ{xtt t tttttt؞g DIBK̈́JFGF c0 DCIĐ IK  ֠CKD@yNq āKJpGFCDEK @CC:`DI7 9݀FF DCB K Ā$#I" I G}!!wDI @lJ_6D/6Bht tt )KF@6+%'6*  6|EK+D@*l# JCR:WRT CR:FUN CR:RD O0SEGMENTBLANK IOS: o KI:VCNT I:OPCL I:ECTT KI:EMEM I:RET I:NEOB KI:RST I:TRLT I:STAT KI:TRLL  I:WAIT I:STUP KI:FINI I:DIO im MACRO (F510) @ig EDрF PDIB NCDIEKמ؞ٞ DIDBJ1B 6GBK' B /6yF  ̠BǀII  F ^D DBP KDB ā BKB6À  }J/6wurtt t tt t t"tt ttttg c  g @ SlB TtJI:TRLT O0SEGMENTBLANK IOS: o 3im MACRO (F510) @ig C )@aE+ 6֤ N 6LN 6  # F D# F J `+ K D`y # N I# PARITY (Y/N) ? ttLtttJAC:FIO O0SEGMENTBLANK IOS: o ^KI:TRTB I:VCNT AC:RSB KAC:SNDCKAC:SNDSQAC:SNDQ KAC:RDCK AC:T6AX AC:SNDFNKAC:OPNCKAC:STUP AC:MEMTSim MACRO (F510) @ig FNDN.8 *E %E'JQ  DOPE JB6AÁE N@6Ar@N@6AEOJO  + - 1 0tt t t t FQŀQFƠB B@`` U`@D Kb#  K D\# FQ cQFBܗ[# @``  T`@D KB# FQ lQFBOCNF # JB# PI # dt @O DE Kg# ODEKa# FN P LDOE LOKDJNF LzOLDELN 6@F@6A  KJ 鞔瞍OLVt t ttOt @6BB L LLL 7L 3 Lɞ/L> L I 7 \\\\ OL- EOONCOL LP E%'LOOI PE%r+' # # /*`AOL`# tttJMT:FUN MT:POS MT:WRT JMT:RD O0SEGMENTBLANK IOS: o KI:RATE I:SRTC I:VCNT KI:ECTT I:EMEM I:RST KI:DIO I:RET I:FINI KI:NEOB I:WAIT I:RPF KI:STUP im MACRO (F510) @ig CBJg FXJQCB J䄘ęAО @B@6EC  BܐψDI @o6@ 6@6DAJ DC?6T@_ 6RN @ w@BC ?6CBJ,BJtwuwu{t.ttg nFXM MBhg ℕCXJQH܄B YĘXęZJI@B рF @60ƠC  D@6:@6[AA B/6<A&4$ B /6@%%ߠBCH F E@6@6R@6@ 6M CZ@b7+?#K[g F   EDB# DA #  p܀# BWX GC/C CC C Aq@BĚC# t sttt tt BWXCGJ đJ@6@6@/6CN #  ܑ# ĕ  # @KQN74 @6C$x p܀ p܀#  CBJ?@/6# @O6B#  C̀J@ KQ]  @6IܚrC A p܀ p܀# CBJt0t`.JDP:FUN DP:WRT DP:RD O0SEGMENTBLANK IOS: o *KI:SRTC I:DEOF I:USEC KI:HARD I:RATE I:DCAL KI:ECTT I:OPEN I:EMEM KI:RST I:RET I:FINI KI:NEOB I:WAIT I:RPF KI:SIV I:STUP im MACRO (F510) @igg EDCB؟DA ԟӠBK *1B ˟ˠB C DJ BG!KĩF N9XKQA  CC BC KC  IĀ J .a'C I C  CB Q̪ĩRICđttt ttt t ̪ĩRDICđ   C C @AC ֒GBCC Hĕɞ t$tt  @6^vCBDCD N EBEK IDJC I  @Eޟ- @* 1J @*1y @*1 Br @*13@68C  @*1/:B @*1[g 1Cĕ-C C  BC  C C  C  C CBC  CH @JQ# tt )tttt t  C# A# KEK# B G # JBP:FUN O0SEGMENTBLANK IOS: o KR:GPR R:ISIG R:SPRI KR:IWAI I:RET I:RPF KI:WAIT I:NEOB I:ECTT KI:EMEM Y:PLGIV Y:SETIV KY:XAIO Y:XBIO Y:DOIO KY:XLAT im MACRO (F510) @ig MCF 4Lltt ȠM{EDI ED RC P  AJ66 C EF6Q M+B QF  C+B6ttt t t t ttttt  ES k VRC 䓠SKFD_I FSI]V IQ R C QM !KKMJ6F 6A@4Bttt B6B# Cݐ 6# IB I  RC  BX# JA# JBP:EOB O0SEGMENTBLANK IOS: o KR:RE12 Y:XBIO I:EMEM KI:EOB Y:DMRE Y:PLGIV KY:SETIV Y:XLAT Y:DOIO im MACRO (F510) @ig   DIC A JR@6MF6K@60@ t SIF0XNA ąNiXL WQE@ąC1Þ{@t S AS@F@X0Q 60܀ID@RĂ6   K6FVA TKD^ݞ@6N L֞T6LNXWQTI 6 TKDF  IKFBP]BZ 36+. @" *k%6H D@h@h5D@h@h 5'jBJ'jBFttttttt% VS VVS:<JY:PLGIV Y:SETIV Y:XAIO JY:XBIO Y:DMRE Y:XLAT JY:DOIO O0SEGMENTBLANK IOS:  o KI:EMEM im MACRO (F510) @ig FD9 QD ΔFB#  KDCA# BD@AJN1 XC  FN)XB HC FX0QAI݀KDF F@9 8@K @6 T # @@C @X G # DA@?C XG!# ?  tgC# gNXC # lmnopuyz{g CC C  # gCyg CN Ā# Eg C@B@A N ā# JSNITZ I:QWAIT I:OPCL JI:OPEN I:VCNT I:ECTT JI:COMP I:EOB I:EMEM JI:RPF I:SIV I:SDIO JI:DIO I:TRTB I:TRLL JI:RST I:STAT O0SEGMENTBLANK IOS: OTABLE: o  KR:WAIT R:IWAL I:RET KR:RE12 R:SSIG NR:SL im MACRO (F510) @igB@SA# g  F@6 @`E%  } *19'`@F@6 A # Eg g  JCOC H # g  C  kF0 A@ ĀeDK@A A@ āF6܂# g C݄g # g C B@%.y$# gCC # g  "&$@&@## # gܗ+g A !@ )A G֏@'G# gC# g jtttg BF ?@@ā6F @ā6C # g:d:d# ikg>O0SEGMENTBLANK oim MACRO (F100) JEM:430 O0SEGMENTBLANK EMLTR: o KEM:MULF EM:CSKF EM:SUBF KEM:DIVF EM:ADDF EM:FLOATKEM:FIX EM:DMSE EM:IMSE KEM:JSTE EM:JMPE EM:CSKE KEM:XORE EM:ORE EM:ANDE KEM:EXCHEEM:SUBE EM:ADDE KEM:STR EM:LDR im MACRO (F100) igJEM:410 O0SEGMENTBLANK EMLTR: o KEM:MULF EM:CSKF EM:SUBF KEM:DIVF EM:ADDF EM:FLOATKEM:FIX EM:DMSE EM:IMSE KEM:JSTE EM:JMPE EM:CSKE KEM:XORE EM:ORE EM:ANDE KEM:EXCHEEM:SUBE EM:ADDE KEM:STR EM:LDR EM:SDRA KEM:RDRO EM:RDR EM:SDRO KEM:SDR EM:RDLO EM:RDL KEM:SDLO EM:SDL EM:RR KEM:SR EM:SL EM:JSKE KEM:STR2 EM:LDR2 EM:DIV KEM:CEA EM:CSM EM:SUBC im MACRO (F100) ifgJEM:410X O0SEGMENTBLANK EMLTR: o KEM:SDRA EM:RDRO EM:RDR KEM:SDRO EM:SDR EM:RDLO KEM:RDL EM:SDLO EM:SDL KEM:RR EM:SR EM:SL KEM:JSKE EM:STR2 EM:LDR2 KEM:DIV EM:CEA EM:CSM KEM:SUBC im MACRO (F100) igJEM:430X O0SEGMENTBLANK  EMLTR: o KEM:DMSE EM:IMSE EM:JSTE KEM:JMPE EM:CSKE EM:XORE KEM:ORE EM:ANDE EM:EXCHEKEM:SUBE EM:ADDE EM:STR KEM:LDR im MACRO (F100) igJEM:FLPT O0SEGMENTBLANK EMLTR: o KEM:MULF EM:CSKF EM:SUBF KEM:DIVF EM:ADDF EM:FLOATKEM:FIX im MACRO (F100) igJEM:COPYEO0SEGMENTBLANK EMLTR: o KEM:STR2 EM:LDR2 EM:STR KEM:LDR im MACRO (F100) igJEM:DADD EM:ADDF O0SEGMENTBLANK EMLTR: o :KEM:SL02 EM:UPCKFEM:COMPLKEM:XFP EM:FP im MACRO (F100) ig# g BCDB1ABC D !E-E*GC V B B# BB # !EEECD# * N 5# ttttJEM:SUBF O0SEGMENTBLANK EMLTR: o KEM:ADDF im MACRO (F100) ig# tJEM:MULF EM:DMUL O0SEGMENTBLANK EMLTR: o 4KEM:SL07 EM:SL01 EM:UPCKFKEM:XFP EM:FP im MACRO (F100) ig DBBCDEE EE# g G N GH GDN G GGG CD# ttttJEM:DIVF O0SEGMENTBLANK EMLTR: o ;KEM:OVFL0EM:SR01 EM:SL06 KEM:SL07 EM:COMPLEM:UPCKFKEM:XFP EM:DMUL EM:FP im MACRO (F100) ig DBBQ# C DE+E+*# CG  CCDQÀCD# G G # GHIGNH# ttttttttJEM:CSKF O0SEGMENTBLANK EMLTR: o KEM:UPCKFEM:DADD im MACRO (F100) ig C @QBBRRc # ttJEM:FIX O0SEGMENTBLANK EMLTR: o JKEM:FF EM:COMPLEM:UPCKFKEM:SR01 EM:SL01 im MACRO (F100) ig ÄB%*h-B1A NONBB# # +2* +1m# *2Q+*1 d# B1ANO 1Q#  NOM M# M M # NOM M# ttttJEM:FLOATO0SEGMENTBLANK EMLTR: o KEM:FF EM:DNORMEM:COMPLim MACRO (F100) ig B 1A)BNO# ttJEM:DIV O0SEGMENTBLANK EMLTR: o KEM:COMPLEM:W3 EM:R3 KEM:MREF im MACRO (F100) ig M0BBBBGC BGB1D+1A@AB0M# tttJEM:SUBC O0SEGMENTBLANK EMLTR: o KEM:W1 EM:R1 EM:MREF im MACRO (F100) ig M0@IG0M# ttJEM:JSKE O0SEGMENTBLANK EMLTR: o  KEM:MREF im MACRO (F100) ig QPONMLKk p`c # JEM:CEA O0SEGMENTBLANK EMLTR: o KEM:W2 EM:MREF im MACRO (F100) ig # tJEM:CSM O0SEGMENTBLANK EMLTR: o  KEM:R2 EM:MREF im MACRO (F100) igF# RR# tJEM:LDR2 O0SEGMENTBLANK EMLTR: o KEM:W2 EM:MREF im MACRO (F100) igN# tJEM:STR2 O0SEGMENTBLANK EMLTR: o KEM:R2 EM:MREF im MACRO (F100) igN# tJEM:LDR O0SEGMENTBLANK EMLTR: o KEM:W2 EM:MREF im MACRO (F100) ig# tJEM:STR O0SEGMENTBLANK EMLTR: o KEM:R2 EM:MREF im MACRO (F100) ig# tJEM:ADDE O0SEGMENTBLANK EMLTR: o  KEM:W2 EM:R2 EM:MREF im MACRO (F100) igM00M# ttJEM:SUBE O0SEGMENTBLANK EMLTR: o  KEM:W2 EM:R2 EM:MREF im MACRO (F100) igM00M# ttJEM:EXCHEO0SEGMENTBLANK EMLTR: o KEM:W2 EM:R2 EM:MREF im MACRO (F100) ig# ttJEM:JMPE O0SEGMENTBLANK EMLTR: o KEM:MREF im MACRO (F100) igR# JEM:JSTE O0SEGMENTBLANK EMLTR: o KEM:MREF im MACRO (F100) igR+R# JEM:IMSE O0SEGMENTBLANK EMLTR: o KEM:MREF im MACRO (F100) igM0܀R0M# JEM:DMSE O0SEGMENTBLANK EMLTR: o  KEM:MREF im MACRO (F100) ig M0 HJR0M# JEM:ANDE O0SEGMENTBLANK EMLTR: o KEM:W1 EM:R1 EM:MREF im MACRO (F100) ig# ttJEM:ORE O0SEGMENTBLANK EMLTR: o KEM:W1 EM:R1 EM:MREF im MACRO (F100) ig# ttJEM:XORE O0SEGMENTBLANK EMLTR: o KEM:W1 EM:R1 EM:MREF im MACRO (F100) ig# ttJEM:CSKE O0SEGMENTBLANK EMLTR: o  KEM:R1 EM:MREF im MACRO (F100) igK# RR# tJEM:SL O0SEGMENTBLANK EMLTR: o KEM:W2 EM:R2 im MACRO (F100) ig.2# # ttJEM:SR O0SEGMENTBLANK EMLTR: o KEM:W2 EM:R2 im MACRO (F100) ig.2#   # ttJEM:RR O0SEGMENTBLANK EMLTR: o  KEM:W2 EM:R2 im MACRO (F100) ig .2I@*# I@#C # ttJEM:SDL O0SEGMENTBLANK EMLTR: o KEM:W3 EM:R3 EM:SL01 KEM:SHIFTim MACRO (F100) ig5# tttJEM:SDLO O0SEGMENTBLANK EMLTR: o KEM:SDL EM:SHIFTim MACRO (F100) igM00M# tJEM:RDL O0SEGMENTBLANK EMLTR: o  KEM:W3 EM:R3 EM:SHIFTim MACRO (F100) igN6@ 5# ttJEM:RDLO O0SEGMENTBLANK EMLTR: o  KEM:W3 EM:R3 EM:SHIFTim MACRO (F100) ig M0N50M# ttJEM:SDR O0SEGMENTBLANK EMLTR: o KEM:W3 EM:R3 EM:SR01 KEM:SHIFTim MACRO (F100) ig5# tttJEM:SDRO O0SEGMENTBLANK EMLTR: o KEM:SDR EM:SHIFTim MACRO (F100) igM00M# tJEM:RDR O0SEGMENTBLANK EMLTR: o  KEM:W3 EM:R3 EM:SHIFTim MACRO (F100) ig N 65# ttJEM:RDRO O0SEGMENTBLANK EMLTR: o  KEM:W3 EM:R3 EM:SHIFTim MACRO (F100) ig M0 N 50M# ttJEM:SDRA O0SEGMENTBLANK EMLTR: o  KEM:W3 EM:R3 EM:SHIFTim MACRO (F100) ig M0 N 50M# ttJEM:FP O0SEGMENTBLANK EMLTR: o KEM:ILTRPEM:CEA0 EM:CSKF KEM:DIVF EM:MULF EM:SUBF KEM:ADDF EM:LOADFR:EMLTR im MACRO (F100) ig NO@ RA9@ A8*2+# ttttttttJEM:FF O0SEGMENTBLANK EMLTR: o  KR:EMLTR EM:FLOATEM:FIX im MACRO (F100) ig@RNOA8# ttJEM:MREF O0SEGMENTBLANK EMLTR: o 4KEM:CSKE EM:XORE EM:ORE KEM:ANDE EM:DMSE EM:IMSE KEM:JSTE EM:JMPE EM:EXCHEKEM:SUBE EM:ADDE EM:STR2 KEM:LDR2 EM:STR EM:LDR KEM:CSM EM:CEA EM:JSKE KEM:SUBC EM:DIV EM:CEA0 KR:EMLTR im MACRO (F100) ig @RA9@*A # tttttt t tt t t t%*A tttt A6AA6AtttttJEM:SHIFTO0SEGMENTBLANK EMLTR: o )KR:EMLTR EM:RR EM:SR KEM:SL EM:SDRA EM:RDRO KEM:RDR EM:SDRO EM:SDR KEM:RDLO EM:RDL EM:SDLO KEM:SDL EM:ILTRPim MACRO (F100) ig @RA8.A6A   t t t t t t t t ttttt  t tttJR:EMLTR LR:EMUL O0SEGMENTBLANK EMLTR: o -KEM:ILTRPEM:SHIFTEM:MREF KEM:FF EM:FP NDLIST im MACRO (F100) igh C @C @`pä@Ak p`c # k tktk\tktk ~1A vm*** EMLTR.LIB - REV F00m0 ***tJEM:SR09 EM:SR02 EM:SR01 JEM:SL06 EM:SL07 EM:SL05 JEM:SL02 EM:SL01 O0SEGMENTBLANK EMLTR: o im MACRO (F100) iggggg# ggg# N#  N # JEM:COMPLO0SEGMENTBLANK EMLTR: o  im MACRO (F100) ig @IGVA # JEM:UPCKFO0SEGMENTBLANK EMLTR: o  im MACRO (F100) ig 1Q# .i|# JEM:LOADFO0SEGMENTBLANK EMLTR: o KEM:UPCKFim MACRO (F100) ig CDE6A)BCDE# tJEM:CEA0 O0SEGMENTBLANK EMLTR: o im MACRO (F100) ig ?6 6/66 # R B# Q B# P B# JEM:OVFL0EM:XFP O0SEGMENTBLANK EMLTR: o &KEM:DNORMim MACRO (F100) ig CDEM M# CDE*g MMRA R# BNO# tJEM:DNORMO0SEGMENTBLANK EMLTR: o #KEM:SR09 EM:SL01 im MACRO (F100) ig QGV+ + *2F+3.a" p܀ p܀#  I# *6# ttJEM:W3 EM:W2 EM:W1 O0SEGMENTBLANK EMLTR: o im MACRO (F100) igA֒g AN2XC N# P# O# Q# gN@p# @JEM:R3 EM:R2 EM:R1 O0SEGMENTBLANK EMLTR: o im MACRO (F100) igA֒g AN2XC N# P# O# Q# gr@N# @JEM:ILTRPO0SEGMENTBLANK EMLTR: o KR:TRAPX im MACRO (F100) igAIk p`tJEM:FP O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:FF O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:MREF O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SHIFTO0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:ADDF O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SUBF O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:MULF O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:DIVF O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:CSKF O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:FIX O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:FLOATO0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:DIV O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SUBC O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:JSKE O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:CEA O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:CSM O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:LDR  O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:STR O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:LDR2 O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:STR2 O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:ADDE O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SUBE O0SEGMENTBLANK  DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:EXCHEO0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:JMPE O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:JSTE O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:IMSE O0S EGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:DMSE O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:ANDE O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:ORE O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:XORE O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:CSKE O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SL O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SR O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:RR O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SDL O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SDLO O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:RDL O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:RDLO O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SDR O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SDRO O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:RDR O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:RDRO O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJEM:SDRA O0SEGMENTBLANK DUMMY: o KEM:ILTRPim MACRO (F100) igtJR:UITH R:JSKE R:MPM2 JR:MPM1 R:BTC1 R:WLKS JR:CNTK R:CDRG R:SNSW JR:SREG R:PFK R:PFLG JR:CNSM R:FAT1 R:FATL JRTX: O0SEGMENTBLANK RTX: o KR:PATCH R:WAIT R:SIG KR:END R:BGIN R:PWRF KR:IDOR R:CNSL R:LSTK KR:KSTK R:AETH R:USTH  KR:CNTH R:EMUL R:DBUG KR:STRT R:SETH R:UMTH KR:WLAC R:TICI R:TKAC NR:ECBL im MACRO (F510) @i l tl9C @_9 C @? P Px!@p@g C @ *P z ał S 9*qtt tg>g >gt>g g g ggggg{gc tg~g  getJt ttttt 5|t tt im*** RTX.LIB - REV F210 m ***JR:PATCH O0SEGMENTBLANK  RTX: o im MACRO (F510) @igJMDBUG4 LDEBUG4 O0SEGMENTBLANK DEBUG: o MG:Z G:Y G:X MG:W G:V G:U MG:T G:S G:R MG:Q G:P G:O MG:N G:M G:L MG:K G:J G:I MG:H G:G G:F MG:E G:D G:C MG:B G:A G:9 MG:8 G:7 G:6 MG:5  G:4 G:3 MG:2 G:1 G:0 im MACRO (F100) ihg  ~˞u1 3bf'rm l9mxY    v8Z[ܡ#  A `Q˾ ( :ӂG - :ӂ" )   m*** DEBUGM.OBJ - REV E8m00 ***  pP0 @0B բ` h  }c? ¢‚ pP0/o  X)C $ `)C ")P C ")C " `m M D B U G 4 E 8 0 0 ӟe  }u#u"u!u uuuuuuuuuuuuuuuuuuu u u u u uuuuuuuuu  ӂzӾ P AC Q@ X= Y:ԽѾ K3 L0 S- D* C'ԟK =ӟ{  } ӟ|"  *ٽ҆ Y Q G ҽ؆ R  ƜƘ™LBLCLFLL LSLJLILGLRȝ ǞF 9} Ğ|QEr , , `熂՟ _ٞ\  b} ` J B YK QJfߞւ  cޡ @ޟޝ `@E ;߽RA@EN@Aޏǎ  Qފ ,^:F & o*| x ` D `枞oY* Qd Ѐ_Ѐ āZ@AĄ܃T B ` ǁ D瞄*L_U3 ` Ģ1*/) 'r "Bƽу۽ֽ Cā / X Ń ѽ۞i ] с߆@ڃ۽ցBǢ ,ž[ + - * X /KJƎߞ^ [{ xނZ  ,ş|˽с߆ ۽ޅ{ўu , Žֆx@FC pq LL (w{u c |JQB_yľ߾ˆr pp| IƎQ ,Ž Ƈ ,ƂpIư k , ,Htr  Hm -ņց -ņ߆;:\\ÂF -1tт-ڃ+Ԟx  ’@"Fz@ Ό  F  l #߆.bƝ ޙޖJQ!’ ފދJQĽ %ӂԞu  U  B * ӂGo h fe "cIaM  K Y&V&RR `QKL$kK N =ӂD D GӂA   :Ӟ  ӟL ӟ{ y 9u    : ӂw @0ƵQ¾ ˢ̂C C 96C C  " z a ࢜0  `a  ´C /6 C C 6 C C 6C h  Q¾{”C "C  C I6 , ƽƇ ,Ƃp Iưk , ,Ht r Hm -Ɔ ׁ -Ɔ('\\ ÂF -t҂ ՞x ’@"Fz@  Ό F ƍ l #.b ƝޙޖJQ!’ ފދJQŽ % ՞u U  B * ԂGo  h fe "cI aM K Y&V& RR `QKL$kK N =ԂDD GԂA   : Ԟ ԟL ԟ{  y9u     :Ԃw @0Ƶ Q¾ˢ̂C C 96 C C " z a ࢜0  `a ´C /6 C C  6 C C 6C  h Q¾{” C "C C I6D ÎA6TO6T6T  Gj F I Dҽhg Ԟx  @9@@? R6A W ߍ?ÌˌJR>JKSB|ҝ  ={ ӆv trLDLELILRLW Ɩd ,ka  ņy xÆw pQAlýkL= \L>L:|öbL<L=L ^]\Q  HǞ wq qno = < > :ba  ~ y C 1 =Ԃ C 2 =Ԃ C 3 = M =ԃTܽҞH& ƽ׆ =FFEFCCE =:7& 5-Ɠ,& Ɠ$Q߇ƽ? lJDBG4:CNTDBG4:LP DEBUG4 O0SEGMENTBLANK DEBUG: o MG:Z G:Y G:X MG:W G:V G:U MG:T G:S G:R MG:Q G:P G:O MG:N G:M  G:L MG:K G:J G:I MG:H G:G G:F MG:E G:D G:C MG:B G:A G:9 MG:8 G:7 G:6 MG:5 G:4 G:3 MG:2 G:1 G:0 im MACRO (F100) ig  ~֞8O] &Ea3x _|l* | } ~gҡ# A ` Q T ( :ӂ< - :ӂ" )  m*** DEBUGS.OBJ - REV E8m00 ***  pP0 @0B  ` h  } c= ¢‚ pP0/o  X)C $ `)C ")P C ")C " `m D E B U G 4 E 8 0 0 ӟe  }u#u"u!u uuuuuuuuuuuuuuuuuuu u u u u uuuuuuuuu  ӂzӾ P AC Q@ X= Y:ԽѾ K3 L0 S- D* C'ԟK =ӟ{  } ӟ| @)C " )PC ")C " `r"  *ٽ҆ Y Q  A Gҽ؆ R  Ƥ D V W ƚ›LBLCLFLLLS LJLILGLRLZߝ Ǟ< !} {҆u łt P L łj T P BŁ P ӂY T H TŅ Ğ| QEF , , ` ՟ _ٞ0 6} ` J B YK QJ f䞁ւ cޡ @ ޟޝ `@E ; RA@EN@Aޏǎ Qފ ,^:F & o*| x ` D `랞oY* Qd Ѐ_Ѐ āZ@AĄ܃T B ` ǁ D임*L_U3 ` Ģ1*/) 'r "Bƽу۽ֽ C凑ā / X Ń ѽ۞i Ğ] с䆫@ڃ۽ցBǢ ,ž[ + - * X /KJƎ^ [{ xނZ  ,ş| ֽL  P ޽с ۽۽޺{  ўq kɆȂ Gާ}ަyޠ }y E ~  .  E ~  .ޣ ރfN  ,Žֆs@FC  kqLL (w{u  ^|JQBZy L S TўNM   Isľˆ_]] | IƎ> ,ŽƇ , ƂpIưk , ,Htr H m -ņց - ('\\ÂF - tтڃԞx ’ @"Fz@ Ό F ō l# .bƝޙޖJ Q!’ފދ JQĽ %ӂԞu  U B * ӂGo h f e "cIaM K Y &V&RR `QK L$kK N =ӂDD G ӂA   :Ӟ ӟL  ӟ{ y9 u    :ӂw  @0ƵQ¾ˢ̂ C C 96C C " z a ࢜0 `a ´C  /6 C C 6 C  C 6C h  Q¾{”C "C C  I6A A@ ` ` 1$V.btttigggJR:ABUF O0SEGMENTBLANK RTX: o KR:DISP R:GETM R:SACT im MACRO (F510) @ig # !IA)CLtttJR:RBUF O0SEGMENTBLANK RTX: o  KR:DISP R:GIVM R:SACT im MACRO (F510) @ig# !ItttJR:SACT R:RE12 R:NTQENTJR:EVCK R:IDLEX R:DAQX JR:DA R:IACB R:DISP O0SEGMENTBLANK RTX: o fKR:KSTK R:DSPRDYim MACRO (F510) @ig g!CDCg!CBgp c # g /#qP@#I""B1F@ y@(@mg /P P!U%'yg# ttg 9 ܆@g ?p(Āp(`@qEB `@ Op(+p( @`@qDB{y`H@ĀOp(+p( # JMTZ:DISPLR:DSPRDYO0SEGMENTBLANK RTX: o KR:NTQENTR:EVCK R:IDLEX im MACRO (F510) @igh /"qO!Co#QʀFA/p c # tttJR:DSPRDYO0SEGMENTBLANK RTX: o KR:NTQENTR:EVCK R:IDLEX im MACRO (F510) @ig /"qI!C?#Qp c # tttJR:KSTK R:LSTK O0SEGMENTBLANK TABLE: o @im MACRO (F510) @ig@gJR:INI1 R:PWRF R:STRT O0SEGMENTBLANK RTX: o QKR:RTXEX I:INIT R:SREG KR:SNSW R:CDRG R:PFK KR:PFLG R:DISP R:NOPF KR:UINI R:LSTK R:KSTK im MACRO (F510) @ig @0 PßQA@pg AA o0_t t tttttttt ttg vA rphjBCDpE F0Ame dP@ [@ !䃞W JR:FPMAX R:FPCNT R:GVST JR:GVSH R:GTS O0SEGMENTBLANK RTX: OTABLE: o 0im MACRO (F510) @ig O%1K%&ߥ/ # g ܋ /&&1„% # g ܋ ?%%& # ddiggi0JR:RFB R:AFB O0SEGMENTBLANK RTX: o  KR:GTS R:GVST im MACRO (F510) @igA)`pE # g|ttJR:PAUS O0SEGMENTBLANK RTX: o KR:DISP R:SACT R:PRID im MACRO (F510) @ig@ A#  # )"` 1I{@#Ā#tttJR:TRAPX R:USTREXR:SETH JR:UMTH R:USTH R:CNTH JR:AETH O0SEGMENTBLANK RTX: o UKR:FATL im MACRO (F510) @igC @IgC @IgC @IgC @Ig I`pFg !`@qC p@1 ptg  !1Eā䃀*! oqC@1gIfJR:SYSX R:TABL R:XPTE JR:RTXEX R:DOOREXR:STR0EXO0SEGMENTBLANK RTX: OTABLE: o (KR:HALT R:FATL im MACRO (F510) @igI g I H!ID H@Iqtigg /}g ?|g ?|di ?!1qB@1I ndtii(JREINI: LR:RINT O0SEGMENTBLANK RTX: o QKR:CNTK R:DECB R:NECB KR:SECB R:CNSM R:TICP KR:KTIC R:LTIC R:TKAC im MACRO (F510) @ifgh "!+,-#⿂ @ @A BCDEF  䃤.qEA@ 6y# FNf1I@  @ vg1E z Ih1Dă{ # tttttttttJR:DECB R:NECB R:SECB O0SEGMENTBLANK RTX: o  im MACRO (F510) @ig3qA # g i# g# JR:DCHK O0SEGMENTBLANK RTX: o im MACRO (F510) @ig JO@ 1LJIq# # JR:NOPF O0SEGMENTBLANK RTX: OTABLE: o ZKR:FATL R:EMPI R:HIGH KR:INIT R:INI1 R:BGINI KR:RINT R:RIWAL R:SSIG KR:WLKS im MACRO (F510) @ii d idiig ȇȃȇȂwÂvàJ* +$ DB$ @ @Ģ$@ĪHI f )% JS `k z &‹DI ttddtttttt ttJR:RINT O0SEGMENTBLANK DUMMY: o im MACRO (F510) @ig # JR:UINI O0SEGMENTBLANK DUMMY: o im MACRO (F510) @ig # JI:INIT O0SEGMENTBLANK DUMMY: o im MACRO (F510) @ig # JR:EMUL O0SEGMENTBLANK DUMMY: o KR:TRAPX im MACRO (F510) @igItJR:EX R:DBUG R:ODOR JR:IDOR O0SEGMENTBLANK RTX: o <KDEBUG4 R:USTREXR:DOOREXKR:SERL R:SERB im MACRO (F510) @ig C @ð+`pF @6 @6@6R 6D 6ƨE6 !F66 DXʎ`@@g gAc # gtttttJR:SERB R:SERL O0SEGMENTBLANK RTX: o %KI:OVL R:EX R:RFB KR:AFB I:LD410SI:LOAD KF:DMNT R:SATD R:GATD KF:CFNO F:MONT F:CONN KF:DELE F:CREA R:CWAL KR:MTIC R:CTIC R:IWAL KR:AWAL R:GTOD R:STOD KR:RBUF R:ABUF R:PAUS  KR:ITIC R:RECV R:SEND KR:CINT I:IO R:GPRI KR:SPRI R:END R:BGIN KR:WAIT R:SIG R:STR0EXim MACRO (F510) @igt#t"t!t ttttttttttttttttttt t t t t tttttttttg$O0SEGMENTBLANK oim MACRO (F510) @JDEBUG4 O0SEGMENTBLANK DUMMY: o KR:FAT1 im MACRO (F510) @igtJR:SPRI O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:GPRI O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJI:IO O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:CINT O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:SEND O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:RECV O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:ITIC O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:PAUS O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:ABUF O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:RBUF O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:STOD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:GTOD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:AWAL O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:IWAL O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:CTIC O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:MTIC O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:CWAL O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJF:CREA O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJF:DELE O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJF:CONN O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJF:MONT O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJF:CFNO O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:GATD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJR:SATD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJF:DMNT O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJI:LOAD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJI:OVL O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F510) @igJI:LD410SO0SEGMENTBLANK DUMMY: o KR:DJBUFSEM:EBASEM:E ZBSEM:E JE:HIGHS E:HIGHO E:HIGHL JE:SYSFLGE:ERRTABE:BUFSEMJE:BASEM E:ZBSEM E:CIBHD JE:LL2 E:LL1 E:EXEC JE:SLFP E:CIFP E:PRINT JE:SLU E:RCI E:GFN JE:ICH E:ISM E:MSG JE:IJCL E:JCL E:UF JE:SF E:UATP E :UAT JE:LOW E:HIGH E:ERR JE:LDR E:LOAD E:MONE JE:MON O0SEGMENTBLANK TABLE: o  KLOAD:B EXEC:E PRINT:E KERRTAB:ESLFP:E CIFP:E KF:SLU RCI:E GFN:E KICH:E ISM:E MSG:E KIJCL:E JCL:E UF:E KSF:E UATP: UAT:OS KLDR:E LOAD:E MONE:E KMON:E FM:SVC NR:SL CIB: im MACRO (F330) @ig$g#g"g!g ggtgtgtgggt gggggggggtgtgtLDg LDg Z1g lg dg dgd gtggggttttttt t t t ttttikg>i:ikg>i:ikg>i:m*** OS4SYS.LIB - REV F2m00 ***JOS4ERLC:OS4ERCD:EXEC:E JIJCL:E LOAD:E MONE:E JMON:E O0SEGMENTBLANK OS4TABL:o JKF:CONN I:IO E:HIGHS KE:HIGHO E:HIGHL JCL:E KF:SLU  SF:E E:MSG KE:LDR E:LL2 E:LL1 KE:LOW E:HIGH E:EXEC KE:ERR im MACRO (F330) @igEXEC:: SYSggLD1gƞg þmM)Ţf E) ]]⺤B1C: :t  ̃ !_ pC PE` C    p0! pCPEsttttt t t t !;-ttLDg bIqC C @U il ffeKB́ QȃYAـ ԄQ`( QBNKCBǞ B!=? pC ùC @KP@E O QF@ +z CIg ƀv:#  [Gtt t tOC  EXEC:: NOT FOUND  B AD TYPE CODE PROGRAM T OO LARGE LOAD ERROR  NO EXECUTION ADDRESS  UAT WIPED OUT SYSTEM  EXCEPTION XXXX OCCURRE D AT LOCATION XXXX%I @2NK0M9K+U'# JMSG:E O0SEGMENTBLANK OS4: o =KE:SLU I:IO im MACRO (F330) @ig /p(p(C @`p D+E` B@ C @/ph@ph ?ph@kphE@ /p p?p(+p(# OCtSLJPRINT:E O0SEGMENTBLANK OS4: o 0KR:SIG R:BGIN F:CONN KR:WAIT PRI:SMA4PRNTDB: KNO:ABORTim MACRO (F330) @ig:t @`` D@1HNF LODL)OB`H:*) # `@:t(xt tOVSTJLDR:E O0SEGMENTBLANK OS4: o 4KI:LOAD E:HIGHL E:HIGH im MACRO (F330) @ig @pJp@`H@Bƒ C ADEFGH F HAEG@h @ 6@6@6@6I pB# ttJPRINT: O0SEGMENTBLANK OS4: o KR:END R:SIG I:IO KF:CFNO E:UATP PRI:SMA4im MACRO (F330) @iZPPOBgƻ: C @@ B+{āc  0 0$::   :: w 1:  1: Z:t:ZPtZPJNO:ABORTERRTAB:EI:IOER O0SEGMENTBLANK OS4: OTABLE: o ]KI:IO R:ISIG R:IWAI KI:ERS3 I:ERS2 I:ERTB im MACRO (F330) @ig ׀!ӄҢҢ̀ @QD@QBkz A@ N JÀA+kUǺ :d:d:d  y X R C x r ck 4  >tt  ttthdddddigOCOCOC CRX> = ihg ABCD EFG(H6IBJKKUL]MdNlOvPQRSTUVWXYZ NOT READY WRITE PRO TECT TIME OUT POWER FAIL  VOLUME NOT ON U NIT  VOLUME NOT FOUND   LOGICAL UNIT NOT R ELEASED  BAD CHECK SUM  UNASSIGNED DEVICE L OGICAL UNIT NOT IN UAT END OF MEDIA  HARDWAR E ERROR  ILLEGAL OPERA TION NON-EXISTANT MEMO RY ADDR  ADDR IN SYSTE M MEMORY DIRECTORY FUL L  DISK NOT LABELED  FILE ADDR OV ILLEGAL AU  AU NOT FOUND  W RITE DIRECT EOF  FILE  NOT EXTENDABLE ILLEGAL FILE ADDR ALLOCATION  TABLE ERROR  SYSTEM US AGE ONLY BAD FCB CHAIN FILE OPEN FILE NOT  OPEN ILLEGAL FILE POIN TER  UNIT NOT GIVEN  UNASSIGNED FCB  BUFFE R HAS WRITE PENDING D ISK FULL RTX ERROR UNDEFINED ERRORJI:ABRT  I:DOSV I:DOER O0SEGMENTBLANK OS4: o 8KI:ECTT E:MONE I:ERS3 KI:ERS2 I:ERS1 R:ISIG KR:IWAI I:ERTB im MACRO (F330) @ig GG GBp aFbDcE /ph@ph?ph@kph# gFaDbEc# g# ttttttttJR:XDOR O0SEGMENTBLANK OS4: o CKI:ABRT I:ERTB I:ERS3 KI:ERS2 I:ERS1  R:ISIG KR:IWAI im MACRO (F330) @ig /ph@ph/ph@ph ?ph@kph?ph@kph Ģ/ph@ ph`pHK Q KRQH ?ph@kph`pC# tttttttJE:RTXEX E:USTEX E:ST0EX JE:DOREX E:STKSV E:STKTP JE:MEMTP E:USRTP E:CNMTP JE:AERTP E:UINTP O0SEGMENTBLANK OS4: o 3KR:XDOR E:MONE OS4ERLC:KOS4ERCD:im MACRO (F330) @igg Ÿǟg žǜgœǙgšǖg˜Ǔg–ǐg”Ǎ p+gLJgc # gttttJTDB ECB R:INIT O0SEGMENTBLANK OS4TABL:OTABLE: o HKRTX: E:RTXEX E:USTEX KE:ST0EX E:DOREX E:STKSV KE:STKTP E:MEMTP E:USRTP KE:CNMTP E:AERTP E:UINTP KUAT:OS E:INIT FPSIZE: KEMPSIZE:EMP: FPOOL: NR:MBXL R:SL R:ECBL NR:TDBL im MACRO (F330) @iig ttii gkdt iigkn0t lllttii't ii(tii)t ii*tii+t ii,tii-tii/tii0tii1tii2tiJI:ERTD O0SEGMENTBLANK OS4TABL:OTABLE: o H KI:IOER NR:TDBL im MACRO (F330) @iigkdHtiHJPRI:SMA4PRNTDB: O0SEGMENTBLANK OS4TABL:OTABLE: o HKPRINT: PRI:MAX NR:SL R:TDBL im MACRO (F330) @iigkdHtiHi ktgt>! IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII TITL DC5CONFIG - SYSTEM CONFIGURATION (93461-2D G300) * * NOTE: SEE COMMENT UNDER 'REV F200'. * *************************************************************** * * R E V I S I O N H I S T O R Y * * REV E600 - ADDED CIB:DF AS PER CHANGES REQUIRED BY NEW * IOSDIBCIB, IOSD.MAC, AND INCLUSION OF SCOUT * FLOPPY HANDLER. MJD 16DEC80. * * REV E700 - THIS SYSTEM IS NOW SET FOR 81 COLUMNS. * THIS INCLUDES THE CARRIAGE-CONTROL *  CHARACTER. SLM 18FEB81. * * REV F000 - SET UP NAM FOR DEFAULT LOAD ADDRESS * (LOAD:B) SD 1/MAY/81 * *  REV F100 - SET UP EMP: AND EMPSIZE: PARAMETERS FOR * SYSTEM EMP SPACE. * CWK 06/AUG/82. * *  REV G300 - THIS IS THE CONFIG FILE FOR THE DATACASE/5. * IT WAS PREPARED WITH THE G300 RELEASE OF OS4. *  IF YOU ARE GOING TO BE USING JUST THE PERIPHERAL- * CHASSIS, YOU CAN USE THIS AS A GUIDE TO ALTER * OS4CONFIG.ASM IN ORDER TO GEN IN A 5-1/4" * WINCHESTER AND/OR STREAMER TAPE. JUST INSERT THE *  APPROPRIATE DIB:DK & CIB:DK CALLS (FOR THE WINCHESTER) * AND DIB:STR & CIB:STR CALLS (FOR THE STREAMER) FROM * HERE INTO OS4CONFIG.ASM. * *************************************************************** TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP: NAM PRI:MAX NAM FPOOL:,FPSIZE: NAM EMP:,EMPSIZE: NAM JCL:E NAM LOAD:B LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * LOAD R:EMLTR REQUIRED FOR ANY EMULATOR USAGE *  LOAD EM:410X MAKES A 410 LOOK LIKE A 430 * LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * * GENERATE BUFFER POOL * BUF:R 3 * * DEFAULT LOAD ADDRESS LOAD:B EQU :200 * * DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS * TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIZE * * DEFINE EMP SIZE * EMPSIZE: EQU 0 TITL ... DIBS & CIBS GENERATION TVDIBCIB TV00,:F,4,:1C0,EIO USE WITH THE EIO BOARD. * TVDIBCIB TV00,:F,4,:C0,DIO USE WITH THE DIO BOARD. * DIB:DFQ DF00 DIB:DFQ DF01 CIB:DFQ DF00,:11 * DIB:LP LP00,81,39,LF:,,CIB: USE WITH THE EIO BOARD. CIB:LP LP00,:F,7,:1C0 " * DIB:LP LP00,110,42,LF: USE WITH THE DIO BOARD. * DIB:DK DH00,5WIN,4,:131,1,:0101,0 10MB SEG" ATE * DIB:DK DH00,5WIN,4,:131,1,:0101,0 10MB CMI 5412 * DIB:DK DH00,5WIN,8,:140,2,:0101,:8300 26MB RODINE * DIB:DK DH00,5WIN,6,:27F,4,:0101,0 40MB CMI 6640 * DIB:DK DH00,5WIN,7,:285,4,:0201,0 46MB ATASI 3046 * DIB:DK DH00,5WIN,6,:33D,4,:0101,0 52MB MICROPOLIS 1304 * DIB:DK DH00,5WIN,7,:396,4,:0101,0  65MB MAXTOR * DIB:DK DH00,5WIN,15,:396,8,:0101,0 140MB MAXTOR CIB:DH DH00,:14 DIB:STR ST00,30 * DIB:STR ST00,90 CIB:STR :FC,:F0 TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0 USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0 "  UAT:EE 'X4',0 " UAT:EE 'SI',D:CR00 STANDARD INPUT UAT:EE 'LO',D:TV00 LISTING OUTPUT  UAT:EE 'SF',D:DF00 SYSTEM FILE UAT:EE 'UF',D:DF00 USER FILE UAT:EE 'OC',D:TV00 OPERATOR CONSOLE  UAT:EE 'CI',D:TV00 COMMAND INPUT UAT:EE 'SL',D:TV00 SYSTEM LOG UAT:EE 'SO',D:TV00 STANDARD OUTPUT UAT:EE 'SA',D:TV00 STANDARD ALTERNATE UAT:EE 'LD',0 LOAD PROGRAM UAT:EE 'OV',0 LOAD OVERLAY UAT:EE 'XX',D:DF01 SCRATCH FILE UAT:EE 'PO',D:LP00 PRINT OUTPUT UAT:EE 'Z1',0  SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ  END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZE:,0 * * RESERVE EMP SPACE * EMP: RES EMPSIZE:,0  END IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII DC5GENLINK.JCL --- LINK OS4 SYSTEM FOR Datacase/5 (93461-7F G300) ALL OBJECT FILES ASSUMED TO BE ON UF  ALL LIBRARY FILES ASSUMED TO BE ON SF CREATES BINARY ON UF CREATES MAP ON UF JOB ASSIGN X4=LO ASSIGN LO=DC5GEN.MAP LINK DC5GEN=SF/OS4SYS(PA=57*109)+DC5CONFIG+SF/OS4AUX ASSIGN LO=X4  CREATE NEW DC5::.SYS? PAUSE //COPY DC5::.SYS=SF/BOOT3.BIN+DC5GEN.BIN RENAME DC5::.SYS TO OS::.SYS? PAUSE //RENAME DC5::.SYS TO OS::.SYS IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII# IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII?e820816114058820816114058840504082601e&L820816114058820816114058840306110834$ e 820816114058820816114058820816114058e820816114058820816114058820816114058820816114058820816114058820816114058e Z8209071649490082090716495125820907185643e 8105201406305081052014063900820816163203e8208301541525082083015415400820907185655 e% 8209071638317582090716383600820907185650d e8110280820550081102808205925820830154711 e831211104414831211104420831211104442 eh840504082259840501063912840504082420 e 8208170944402582081709444200820817095120ea8110280815382581102808154250820830154559e08204020948315082040209483675820907185700& e d831211104838831211104843831211104904eO8208301542572582083015425900820907185704e8208231100527582082311005925820830154623e8208301548262582083015483275820830155049er8110211559295081102115593400820830154652etH8110211556027581102115560750820830154537e' 98110281716127581102817161725820830155138e840113130946840113130947840113130957e9  8401201623565084012016240675840120162406e7"840113204432840113204501840113210753e 840113104119840113104122840113104134eN840113104145840113104146840113104156eU840113104211840113104212840113104224( e  840113130900840113130903840120162405) p?. MCSCONFIG ASMBOOT3 BINMCSGEN JCL MCS LIB OS4SGENLNK JCL OS4SYS LIB OS4AUX LIB SCTCONFIG ASMOS4GENLINK JCLMCSGENLINK JCLOS4CONFIG ASMMCSGENFLINKJCLOS4GENFLINKJCLOS4SGENFLNKJCLOS4SGEN JCLOS4GEN JCLMCSDIBCIB MACDC5CONFIG BAKDC5GEN JCLDC5CONFIG ASMDC5GENLINK JCLMCS5GEN JCLMCS5GENLINKJCL/ MCSGEN.JCL - ASSEMBLE MCSCONFIG (MCS & 8 INCH FLOPPY) (93723-70-F100) / GENS A SYS. USING THE SCOUT MULTI-CHANNEL SERIAL BOARD / ALL SOURCE FILES ASSUMED TO BE ON UF / CREATES OBJECT ON UF  CREATES LISTING ON LO / PAUSES TO REQUEST NEW SYSTEM LINK / /MACRO MCSCONFIG(D=SF.GEN+SF.IOS+SF.IOSD+SF.MCSDIBCIB,L=) / / LINK NEW SYSTEM? IF SYSTEM IS ON FLOPPIES - / TYPE X, THEN DO MCSGENFLINK.JCL / / *  IF SYSTEM IS NOT ON FLOPPIES - / TYPE C AND CONTINUE / / NO LINK - /  TYPE X /PAUSE / /DO MCSGENLINK ES ASSUMED TO BE ON UF / CREATES OBJECT ON UF  CREATES LISTING ON LO / PAUSES TO REQUEST NEW SYSTEM LINK / /MACRO MCSCONFIG(D=SF.GEN+SF.IOS+SF.IOSD+SF.MCSDIBCIB,L=) / / LINK NEW SYSTEM? IF SYSTEM IS ON FLOPPIES - / TYPE X, THEN DO MCSGENFLINK.JCL / / / MCSGENLINK.JCL - LINK MCS (& 8 INCH FLOPPY) SYSTEM (93723-71-F100) / GENS SYS.USING SCOUT MULTI-CHANNEL SERIAL BOARD / ALL OBJECT FILES ASSUMED TO BE ON UF / ALL LIBRARY FILES ASSUMED TO BE ON SF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW MC::.SYS / /JOB / /ASSIGN X4=LO /ASSIGN LO=MCSGEN.MAP / /LINK MCSGEN=SF.OS4SYS+MCSCONFIG+SF.OS4AUX+SF.MCS / /ASSIGN LO=X4 / /PAUSE / //COPY MC::.SYS=SF.BOOT3.BIN+MCSGEN.BIN YSTEM (93723-71-F100) / GENS SYS.USING SCOUT MULTI-CHANNEL SERIAL BOARD / ALL OBJECT FILES ASSUMED TO BE ON UF / ALL LIBRARY FILES ASSUMED TO BE ON SF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW MC::.SYS / /JOB / /ASSIGN X4=LO /ASSIGN LO=MCSGEN.MAP / /LINK MCSGEN=SF.OS4SYS+MCSCONFIG+SF.OS4AUX+SF.MCS / /ASSIGN LO=X4 / // MCSGENFLINK.JCL --- LINK OS4 SYS. ON 8 INCH FLOPPIES (93723-72-F200) GENS SYS.USING SCOUT MULTI-CHANNEL SERIAL BOARD / ALL OBJECT & LIBRARY FILES ASSUMED TO BE ON UF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW MC::.SYS / /JOB / /DISMOUNT SF / /  INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / /LINK MCSGEN=OS4SYS+MCSCONFIG+OS4AUX+MCS /DISMOUNT SF / / RE-INSERT SYSTEM FLOPPY INTO SF UNIT /  AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / / CREATE A NEW OS::.SYS? /PAUSE --- AND TYPE 'C', 'X' OTHERWISE. //COPY SF.MC::.SYS=BOOT3.BIN+MCSGEN.BIN A NEW MC::.SYS / /JOB / /DISMOUNT SF / /  INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CO/ MCSGEN.JCL - ASSEMBLE MCSCONFIG (MCS & 8 INCH FLOPPY) (93723-70-F100) / GENS A SYS. USING THE SCOUT MULTI-CHANNEL SERIAL BOARD / ALL SOURCE FILES ASSUMED TO BE ON UF / CREATES OBJECT ON UF  CREATES LISTING ON LO / PAUSES TO REQUEST NEW SYSTEM LINK / /MACRO MCSCONFIG(D=SF.GEN+SF.IOS+SF.IOSD+MCSDIBCIB,L=) / / LINK NEW SYSTEM? IF SYSTEM IS ON FLOPPIES - / TYPE X, THEN DO MCSGENFLINK.JCL / /  IF SYSTEM IS NOT ON FLOPPIES - / TYPE C AND CONTINUE / / NO LINK - /  TYPE X /PAUSE / /DO MCSGENLINK FILES ASSUMED TO BE ON UF / CREATES OBJECT ON UF +  CREATES LISTING ON LO / PAUSES TO REQUEST NEW SYSTEM LINK / /MACRO MCSCONFIG(D=SF.GEN+SF.IOS+SF.IOSD+MCSDIBCIB,L=) / / LINK NEW SYSTEM? IF SYSTEM IS ON FLOPPIES - / TYPE X, THEN DO MCSGENFLINK.JCL / / / MCSGENFLINK.JCL --- LINK OS4 SYS. ON 8 INCH FLOPPIES (93723-72-F200) GENS SYS.USING SCOUT MULTI-CHANNEL SERIAL BOARD / ALL OBJECT & LIBRARY FILES ASSUMED TO BE ON UF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW MC::.SYS / /JOB / /DISMOUNT SF / /  INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / /LINK MCSGEN=OS4SYS+MCSCONFIG+OS4AUX+MCS /DISMOUNT SF / / RE-INSERT SYSTEM FLOPPY INTO SF UNIT /  AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / / CREATE A NEW MC::.SYS? /PAUSE --- AND TYPE 'C', 'X' OTHERWISE. //COPY MC::.SYS=BOOT3.BIN+MCSGEN.BIN ATE A NEW MC::.SYS / /JOB / /DISMOUNT SF / /  INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CO TITL SCOUT MULTI-CHANNEL SERIAL I/O MACROS (93723-60-F100) TITL SCOUT MCS DIB ****************************************************************************** * * REVISION HISTORY * * REV F100 - START OF HISTORY * ****************************************************************************** DIB:MCTV MACRO TV001 *** CRT DIB MACRO *** DIB:MCTY MACENT TY002  *** TELETYPE PRINTER *** DIB:MCTK MACENT TK003 *** TELETYPE KEYBOARD *** DIB:MCTR MACENT TR004 *** TELETYPE READER *** DIB:MCTP MACENT TP005 *** TELETYPE PUNCH *** DIB:MCLP MACENT LP006 *** LINE PRINTER ***  LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM DEV: SET '##(0,1,2)' TYPE:#(1,3,4) SYMVAL #(0,5,5) GET TYPE OF DEVICE CH:#(1,3,4) SYMVAL #(1,4,4)+4 FLG: BIT:SET DIF:NT,DIF:FC SPB:  SET 0 DI:SPB - TIMER SHIFT PER BYTE WBT: SET -1 DSW1: BIT:SET FA:,UF:,CD: DSW2: BIT:SET FA:,UF:,WP: DSW4: BIT:SET WF:,TF:,SC:,OP:,CL:,WC: CPL: SET 80 BMI: SET :0006 BMO: SET :0023 EDT:  SET :08 EOL: SET 1 TOF: SET 1 ELI: SET 1 PU: SET 1 BOF: SET 0 BOTTOM OF FORMS LPP: SET 0 LINES PER PAGE MASK: SET :3800 STATUS ERROR MASK IFF DEV:--'LP' FLG:  BIT:SET DIF:FC SPB: SET -3 TIMER SHIFT PER BYTE IFT #(9,?) SPB: SET #(9)  ENDC WBT: SET 4*8 TIMER BASE TIME DSW1: SET 0 READ DSW2: BIT:SET FA:,UF: WRITE FUNCTIONS DSW4: BIT:SET OP:,CL:,WF:,SC:,TF: LINE PRINTER FUNCTIONS CPL: SET 80 IFT #(6,?) CPL:  SET #(6) ENDC BOF: SET 3 BOTTOM OF FORMS COUNT LPP: SET 57 LINES PER PAGE  IFT #(7,?) LPP: SET #(7) ENDC BMI: SET 0 CONTROL WORD FOR INPUT BMO: SET ,  :0023 CONTROL WORD FOR OUTPUT ENDC IFT DEV:--'LP' IFT DEV:--'TV' CPL: SET  72 EDT: SET '_' IFF DEV:--'TP' FLG: SET 0 WBT: SET 10*8 BMI: SET 0 DSW1: SET 0 DSW2: BIT:SET FA:,UF:,FB: PAPER TAPE PUNCH DSW4: BIT:SET WF:,PL:,OP:,CL: CPL: SET :7FFF TOF:  SET 0 EDT: SET 0 ELI: SET 0 ENDC IFF DEV:--'TR' FLG: SET 0 WBT: SET 10*8 DSW1: BIT:SET FA:,UF:,FB:,CD: PAPER TAPE READER DSW2: BIT:SET WP: DSW4: BIT:SET OP:,CL:,WC: CPL: SET :7FFF EOL: SET 0 TOF: SET 0 ELI: SET 0 BMI: SET :0026 BMO: SET  0 EDT: SET '_' PU: SET 0 ENDC ENDC ENDC WDLEN: SYMVAL #(3)  WORD LENGTH GIVEN ? IFT WDLEN:=0 WDLEN2: SET 3%2 DEFAULT IS 8 BITS IFF DEV:--'TV' WDLEN2: SET 2%2 ENDC ENDC IFT WDLEN:<>0 SKIP ALL IF ALREADY DEFAULTED IFT WDLEN:=5 WDLEN2: SET 0 AS DEFINED IN HARWARE SPEC. ENDC IFT WDLEN:=6 WDLEN2: SET 1%2  " " " ENDC IFT WDLEN:=7 WDLEN2: SET 2%2 " " "  ENDC IFT WDLEN:=8 WDLEN2: SET 3%2 " " " ENDC IFT WDLEN:<5 WDLEN2: SET 0 DEFAULT TO FIVE NOTE W,'INVALID CHAR.LENGTH,DEFAULTS TO 5' ENDC IFT WDLEN:>8 WDLEN2: SET 3%2 DEFAULTS TO EIGHT NOTE W,'INVALID CHAR.LENGTH,DEFAULTS TO 8' ENDC  ENDC STPBIT1: SET '##(4,1,2)' STOP BIT GIVEN ? 1.5 MAYBE ? STPBIT2: SET '##(4,2,3)' " " " " " PRTYBI:: SET '##(5)' EVEN OR ODD PARITY ? IF ANY. IFT STPBIT1:=0 NULL PARAMETER ? STPBIT: SET  2%6 1 STOP BITS DEFAULT ENDC IFT STPBIT1:<>0 SOME PARAMETER GIVEN (1.5 ?) IFT STPBIT1:='1.' IFT STPBIT2:='.5' IF 1.5 THEN VALUE IS 1 STPBIT: SET 1%6 ENDC ENDC IFF STPBIT2:='.5' NOT 1.5 ? STPBIT1: SET #(4) NOT IN ASCII IFT STPBIT1:=1 1? STPBIT: SET 2%6 VALUE IS 2 ENDC IFT STPBIT1:=2 2? STPBIT: SET 3%6 VALUE 3 ENDC IFT STPBIT1:>2 >2? NOTE E,'INVALID STOP BITS PARAMETER' ENDC ENDC ENDC IFT PRTYBI::=0 IF PARITY IS DEFAULTED.. PRTYBIT: SET 0 IFT WDLEN:=0 IF WORD LENGTH IS ALSO DEFAULTED IFF DEV:--'TV' AND DEVICE IS 'TV' PRTYBIT: SET 3%4 DEFAULT TO 'EVEN' PARITY FOR 'TV' MASK: SET :3000 DISREGARD PARITY ERROR IN THIS CASE ENDC ENDC ENDC IFT PRTYBI::='E' PRTYBIT: SET 3%4 'E' MEANS ENABLE PARITY (EVEN) ENDC IFT PRTYBI::='O' 'O' MEANS ENABLE PARITY (ODD) PRTYBIT: SET 1%4 ENDC * NAM D:#(1) D:#(1) CHAN D:#(1,1,3) DI:PE- R WORD FLG: DI:FLG - FLAG WORD WORD C:#(1) DI:CIB - CIB ADDRESS WORD 0  DI:FCB - FCB ADDRESS IFT #(2,?) IS THERE A DEVICE NAME ? BYTE '##(2)' DI:NAME - DEVICE NAME 4 ASCII CHAR.S ENDC IFF #(2,?) IS IT NULL? BYTE '##(0,1,4)' DI:NAM - DEVICE NAME 4 ASCII CHAR.S ENDC RES 2,0 WORD SPB: DI:SPB - TIMER SHIFT PER BYTE WORD WBT: DI:WBT - TIMER BASE TIME WORD DSW1: DI:DSW(1) READ WORD DSW2: DI:DSW(2) WRITE WORD 0 DI:DSW(3) POSITION WORD DSW4: DI:DSW(4) FUNCTION RES 2,0  WORD CPL: DI:CPL - CHAR.S PER LINE BYTE BOF:,LPP: DI:LPP - BOTTOM OF FORMS CNT/LINES PER PAGE WORD BMI: DI:BMI - BRANCH/MODE (INPUT) WORD BMO: DI:BMO - BRANCH/MODE (OUTPUT)  IFT DEV:--'LP' IFT EOL:<>0 EXTR TYEOL: WORD TYEOL: DI:EOL - POINTER TO END OF SEQUENCE ENDC IFT EOL:=0 WORD 0 ENDC IFT TOF:<>0 EXTR TYTOF:  WORD TYTOF: ENDC IFT TOF:=0 WORD 0 ENDC WORD MASK: DI:ERM - ERROR MASK FOR STATUS WORD 0 DI:LC - LINE COUNTER WORD EDT: DI:EDT - EDIT CHARACTER IFT ELI:<>0 EXTR TYELI: WORD TYELI: ENDC IFT ELI:=0 WORD 0 ENDC WORD #(1)BF: DI:BUF - POINTER TO 2 WORD INTERNAL BUFFER IFT PU:<>0 WORD TYEOL: DI:EOL - POINTER TO END OF LINE SEQUENCE ENDC IFT PU:=0 WORD 0 DI:EOL - NULL POINTER TO EOL SEQ. ENDC ENDC IFF DEV:--'LP' IFT #(8,?) NEED LINE FEED?  EXTR DPEOL: YES, STORE POINTER WORD DPEOL: AUTOMATIC LINE FEED ENDC IFF #(8,?) EXTR LPEOL: WORD LPEOL: NO AUTOMATIC LINE FEED ENDC EXTR LPTOF:,LPPUF: WORD LPTOF: TOP OF FORM SEQUENCE WORD :3800 DI:ERM - ERROR MASK FOR STATUS  WORD -LPP: DI:LC - LINE COUNTER WORD 0 DI:EDT - EDIT CHARACTER WORD 0  DI:ELI - ADDR.OF EOL SEQ. ON INPUT WORD #(1)BF: DI:BUF - POINTER TO 2 WORD INTERNAL BUFFER WORD LPPUF: DI:PU - POINTER TO POWER UP SEQUENCE ENDC IFT TYPE:#(1,3,4)<=3 AUTOECHO? WORD  CH:#(1,3,4)%12++9 DI:CTRL - AUTOECHO IN BOARD ENDC IFT TYPE:#(1,3,4)>=4 NO AUTOECHO ?  WORD 0 ENDC WORD STPBIT:++PRTYBIT:++WDLEN2:++:2 DI:MODE - MODE CONTROL WORD TYPE:#(1,3,4) DI:TYPE - DEVICE TYPE OPT: SYMVAL OPT:MC#(1,3,4) IFT OPT:=0 WORD 0 ENDC IFT OPT:<>0 WORD OPT:MC#(1,3,4) ENDC WORD 0 DI:UTBL - USER'S SPECIAL CHAR.TABLE . POINTER #(1)BF: RES 2,0 TWO WORD INTERNAL BUFFER ORG O: ENDM TITL TITL OPTIONAL SPECIAL CHARACTER TABLE GENARATING MACRO SPACE 1 * THIS MACRO WILL ALLOW THE USER TO GENERATE A SPECIAL CHARATER * TABLE OF 256 CHARATERS. THERE ARE 3 WAYS TO USE THIS MACRO: * * 1) OPT:MC MCXX,PAR,PAR,PAR,...,ETC. (UP TO 12 PARAMETERS) * WHERE XX=DIB IDENTIFICATION * PAR=HEX.VALUE OF THE CHARACTER * * 2) OPT:MC *MCXX,PAR,PAR,...,ETC. (UP TO 12 PARAMETERS) * WHERE * INDICATES A CONTINUATION OF THE TABLE * IDENTIFIED BY THE DIB XX * * 3) OPT:MC * (NO PARAMETERS AT ALL) TO INDICATE THE END OF THE TABLE * THIS FORM OF THE MACRO MUST FOLLOW THE LAST MACRO * USING THE * FOR ALL DIB TABLES. * * TO SUMMARIZE: * THE OPT:MC MACRO WITH PARAMETERS (MAX.12) AND NO * * MUST ALWAYS BE USED TO BEGIN A SPECIAL CHARACTER TABLE FOR ANY DIB * IF MORE THAN 12 CHARACTERS ARE TO BE REQUIRED THEN THE SAME MACRO * WITH AN * IN THE IDENTIFYING PARAMETER MUST BE USED. AS MANY AS * NEEDED OF THESE MACRO MAY BE USED, WITH THE ONLY CONDITION THAT * FOLLOWING THE LAST CONTINUATION MACRO AN ENDING MACRO WITH NO * * OR PARAMETERS AT ALL BE USED. * * THE REASONING BEHIND TAKING THIS APPROACH IS THE MANNER IN WHICH * THE TABLE IS BUILT AND THE NEED TO RESTORE AT THE END OF THE * TABLE, THE LOCATION COUNTER OF THE BLANK SEGMENT. * * EACH TABLE WILL CONTAIN THE TOTAL NUMBER OF CHARACTERS FOR THAT * TABLE IN THE FIRST WORD OF THE TABLE * * IN ORDER TO ACCOMPLISH THIS RESULT CERTAIN CHECKS WERE INCLUDED * IN THE MACRO WHICH ITS RESULT WILL VARY FROM THE 1ST AND 2ND PASS * OF THE MACRO ASSEMBLER. THE MAIN CODE TO BE CONCERNED IS THAT WHICH * TAKES CARE OF ADDING THE TOTAL COUNT OF CHARACTERS EACH TIME THE * MACRO USING THE * IN THE 1ST IDENTIFYING PARAMETER IS FOUND. TITL TITL SPACE 2 OPT:MC MACRO CNT: SET #(?)  IFT CNT:=0 ORG O: ENDC IFT CNT:<>0 CNT: SET #(?)-1 IFF #(1,'*') LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM TRICK: SYMVAL M:#(1,3,4)  IFT TRICK:=0 M:#(1,3,4) SET 0 ENDC OPT:MC#(1,3,4) WORD M:#(1,3,4)+CNT: ENDC IFT #(1,'*') M:#(1,4,5) SET M:#(1,4,5)+CNT: ENDC CNT: SET $+CNT: ENDC OPT:GEN MACENT IFT $:F ADDR2: SET :F0&ADDR: LETS ASSUME THERE MIGHT SOMETHING IFT ADDR:<>ADDR2: IN LOWER NIBBLE NOTE E,'INVALID DEVICE ADDRESS' ENDC  ENDC IFT ADDR:=0 ADDR: SET MCSDA: DEFAULT DEVICE ADDRESS ENDC CHAN: SYMVAL #(1,4,4)  RETRIEVE CHANNEL NO. IFT CHAN:>=4 NOTE W,'CHAN.NO.MUST BE 0-3' ENDC WORD CHAN:%1+ADDR: CI:DA - DEVICE ADDRESS + CHANNEL NO. VECT: SYMVAL #(3) GET INTERRUPT ADDR. VALUE IFT VECT:=0 VECT: SET MCSIV: DEFAULT INTERRUPT VECTOR ADDRESS ENDC IFT VECT:>:1FFF MUST BE BELOW 8K OF MEMORY NOTE E,'INTERRUPT VECTOR ADDRESS IS TOO LARGE' ENDC WORD VECT: CI:IV  - INTERRUPT VECTOR WORD 0 CI:UNI - RESERVED WORD MC:RD CI:RD - ENTRY POINT TO READ WORD MC:WRT CI:WRT - ENTRY POINT TO WRITE WORD 0 CI:POS - ENTRY POINT TO POSITION WORD MC:FUN CI:FUN - ENTRY POINT TO FUNCTION JST R:SA12 DISABLE EOB INTERRUPTS  SIN 4 COPY =:20,X DISABLE I/O FUNCTION JMP !LOW  DO REST OF EOB WORD 0 CI:T1 - TEMP CELL WORD 0 CI:T2 - TEMP CELL  WORD 0 CI:APR - PRIORITY OF ACTIVITY WORD 0 CI:TIB - TIB ADDWORDS WORD 1 CI:USM - CONTROLLER USAGE SEMAPHORE WORD 0 CI:TIM - TIMER WORD 0  CI:CSM - COMPLETION SEMAPHORE WORD 0 CI:CFL - COMPLETION FLAG !LOW EXTR I:EOB WORD  CHAN:%1++ADDR:++:2209 OUT INSTRUCTION (X-REG) COPY =$-CI:EOB2-1,X CIB ADDRESS JMP *$+1 WORD I:EOB ORG O: ENDM END WORD 0 CI:TIB - TIB ADDWORDS WORD  DC5GENLINK.JCL --- LINK OS4 SYSTEM FOR Datacase/5 (93461-7F G300) ALL OBJECT FILES ASSUMED TO BE ON UF  ALL LIBRARY FILES ASSUMED TO BE ON SF CREATES BINARY ON UF CREATES MAP ON UF JOB ASSIGN X4=LO ASSIGN LO=DC5GEN.MAP LINK DC5GEN=SF/OS4SYS(PA=57*109)+DC5CONFIG+SF/OS4AUX ASSIGN LO=X4  CREATE NEW DC5::.SYS? PAUSE //COPY DC5::.SYS=SF/BOOT3.BIN+DC5GEN.BIN RENAME DC5::.SYS TO OS::.SYS? PAUSE //DEL OS::.S0 YS //RENAME DC5::.SYS TO OS::.SYS  REV F100 - SET UP EMP: AND EMPSIZE: PARAMETERS FOR * SYSTEM EMP SPACE. * CWK 06/AUG/82. * *  REV F200 - THIS IS THE CONFIG FILE FOR THE DATACASE/5. * IT WAS PREPARED WITH THE G300 RELEASE OF OS4. *  IF YOU ARE GOING TO BE USING JUST THE PERIPHERAL- * CHASSIS, YOU CAN USE THIS AS A GUIDE TO ALTER * TITL DC5CONFIG - SYSTEM CONFIGURATION (93461-2D G300) * * NOTE: SEE COMMENT UNDER 'REV G300'. * *************************************************************** * * R E V I S I O N H I S T O R Y * * REV E600 - ADDED CIB:DF AS PER CHANGES REQUIRED BY NEW * IOSDIBCIB, IOSD.MAC, AND INCLUSION OF SCOUT * FLOPPY HANDLER. MJD 16DEC80. * * REV E700 - THIS SYSTEM IS NOW SET FOR 81 COLUMNS. * THIS INCLUDES THE CARRIAGE-CONTROL *  CHARACTER. SLM 18FEB81. * * REV F000 - SET UP NAM FOR DEFAULT LOAD ADDRESS * (LOAD:B) SD 1/MAY/81 * *  REV F100 - SET UP EMP: AND EMPSIZE: PARAMETERS FOR * SYSTEM EMP SPACE. * CWK 06/AUG/82. * *  REV G300 - THIS IS THE CONFIG FILE FOR THE DATACASE/5. * IT WAS PREPARED WITH THE G300 RELEASE OF OS4. *  IF YOU ARE GOING TO BE USING JUST THE PERIPHERAL- * CHASSIS, YOU CAN USE THIS AS A GUIDE TO ALTER * OS4CONFIG.ASM IN ORDER TO GEN IN A 5-1/4" * WINCHESTER AND/OR STREAMER TAPE. JUST INSERT THE *  APPROPRIATE DIB:DK & CIB:DK CALLS (FOR THE WINCHESTER) * AND DIB:STR & CIB:STR CALLS (FOR THE STREAMER) FROM * HERE INTO OS4CONFIG.ASM. * *************************************************************** TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP: NAM PRI:MAX NAM FPOOL:,FPSIZE: NAM EMP:,EMPSIZE: NAM JCL:E NAM LOAD:B LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * LOAD R:EMLTR REQUIRED FOR ANY EMULATOR USAGE *  LOAD EM:410X MAKES A 410 LOOK LIKE A 430 * LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * * GENERATE BUFFER POOL * BUF:R 3 * * DEFAULT LOAD ADDRESS LOAD:B EQU :200 * * DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS * TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIZE * * DEFINE EMP SIZE * EMPSIZE: EQU 0 TITL ... DIBS & CIBS GENERATION TVDIBCIB TV00,:F,4,:1C0,EIO USE WITH THE EIO BOARD. * TVDIBCIB TV00,:F,4,:C0,DIO USE WITH THE DIO BOARD. * DIB:DFQ DF00 DIB:DFQ DF01 C1 IB:DFQ DF00,:11 * DIB:LP LP00,81,39,LF:,,CIB: USE WITH THE EIO BOARD. CIB:LP LP00,:F,7,:1C0 " * DIB:LP LP00,110,42,LF: USE WITH THE DIO BOARD. * DIB:DK DH00,5WIN,4,:131,1,:0101,0 10MB SEGATE * DIB:DK DH00,5WIN,4,:131,1,:0101,0 10MB CMI 5412 * DIB:DK DH00,5WIN,8,:140,2,:0101,:8300 26MB RODINE * DIB:DK DH00,5WIN,6,:27F,4,:0101,0 40MB CMI 6640 * DIB:DK DH00,5WIN,7,:285,4,:0201,0 46MB ATASI 3046 * DIB:DK DH00,5WIN,6,:33D,4,:0101,0 52MB MICROPOLIS 1304 * DIB:DK DH00,5WIN,7,:396,4,:0101,0  65MB MAXTOR * DIB:DK DH00,5WIN,15,:396,8,:0101,0 140MB MAXTOR CIB:DH DH00,:14 DIB:STR ST00,30 * DIB:STR ST00,90 CIB:STR :FC,:F0 TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0 USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0 "  UAT:EE 'X4',0 " UAT:EE 'SI',D:TV00 STANDARD INPUT UAT:EE 'LO',D:TV00 LISTING OUTPUT  UAT:EE 'SF',D:DF00 SYSTEM FILE UAT:EE 'UF',D:DF00 USER FILE UAT:EE 'OC',D:TV00 OPERATOR CONSOLE  UAT:EE 'CI',D:TV00 COMMAND INPUT UAT:EE 'SL',D:TV00 SYSTEM LOG UAT:EE 'SO',D:TV00 STANDARD OUTPUT UAT:EE 'SA',D:TV00 STANDARD ALTERNATE UAT:EE 'LD',0 LOAD PROGRAM UAT:EE 'OV',0 LOAD OVERLAY UAT:EE 'XX',D:DF00 SCRATCH FILE UAT:EE 'PO',D:LP00 PRINT OUTPUT UAT:EE 'Z1',0  SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ  END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZE:,0 * * RESERVE EMP SPACE * EMP: RES EMPSIZE:,0  END DIB:STR ST00,90 CIB:STR :FC,:F0 TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0 USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0 "  UAT:EE 'X4',0 " UAT:EE 'SI',D:TV00 STANDARD INPUT UAT:EE 'LO',D:TV00 LISTING OUTPUT  UAT:EE 'SF',D:DF00 SYSTEM FILE UAT:EE 'UF',D:DF00 USER FILE UAT:EE 'OC',D:TV00 OPERATOR CONSOLE :.SYS TO OS::.SYS --B@At@`+ @Ui `h?ph@ kphD`?p(+p(# ttg9).ttg )+/` 1T-DŽ/F uutfA@@_ `i//-43)./\tigg@d_gp.iJRDC:S4 R:MTIC R:CTIC O0SEGMENTBLANK RTX: OTABLE: o QKR:ISIG R:IWAI R:TKAC KR:GPR R:SPRI R:DCHK K2 R:GVST R:XPTE R:ITIC im MACRO (F100) ig p # /p(p(`  /ph@phj)+ ` @@h@ih ?ph@kph`?p(+p(# tttdttttigi;g /ph@phD?ph@kphA p # ttJR:SWAI R:IWAI R:WAIT JR:SSIG R:ISIG R:SIG O0SEGMENTBLANK RTX: o NKR:DA R:IACB R:SACT im MACRO (F100) igg# ttg oSJRCQM܀  Ā #Ā# # # gge## '_g )iHOr@bRCj( ""@`'`@(qMqK  `#Ā# jr) # tJR:SPRI R:GPR R:GPRI O0SEGMENTBLANK RTX: o KR:DISP R:SACT R:PRID im MACRO (F100) ig p# g!# g@ A#  # !"Ă##tttJR:CNSL R:CINT O0SEGMENTBLANK RTX: o *KR:CNSM R:CNTK R:RE12 KR:RTXEX R:SSIG R:IWAI KR:ITIC im MACRO (F100) ig A# A# I? FE # tgG?tttttttJR:IRCV R:RECV R:ISND JR:SEND O0SEGMENTBLANK RTX: o }KR:IWAI R:ISIG im MACRO (F100) ig ` 1@ ` A# `pCD# g Op(䂄Āp(` + E/p pOphA@kph DE `+?p(+p(# yjttg ` 1@ ` A# `pCD # g /p(p(` +dӠDE ?phA@ph `+XOphA @kph ?p(+p(# @``  @1GAx`@# !# JR:MPBLKSR:MPMAX R:MPCNT JR:EMPI R:GIVMX R:GIVM JR:GETM O0SEGMENTBLANK RTX: OTABLE: o ~KR:BGIN2 R:MPM2 R:MPM1 im MACRO (F100) ig Q[J@VQF !   + # 1)# Fj ߎ @ā@"KЀĀ ]dddg IF H  @# # g F  Ď # g 窧1I iQB `  1S㜣# N K  qLBɃE CA A@ 1&V0dtttigggJR:ABUF O0SEGMENTBLANK RTX: o KR:DISP R:GETM R:SACT im MACRO (F100) ig # !IA)CLtttJR:RBUF O0SEGMENTBLANK  RTX: o  KR:DISP R:GIVM R:SACT im MACRO (F100) ig# !ItttJR:SACT R:RE12 R:NTQENTJR:EVCK R:IDLEX R:DAQX JR:DA R:IACB R:DISP O0SEGMENTBLANK RTX: o fKR:KSTK R:DSPRDYim MACRO (F100) ig g!CDCg!CBgp c # g /#qP@#I""B1F@ y@(@mg /P P!U%'yg# ttg 9 ܆@g ?p(Āp(`@qEB `@ Op(+p( @`@qDB{y`H@ĀOp(+p( # JMTZ:DISPLR:DSPRDYO0SEGMENTBLANK RTX: o KR:NTQENTR:EVCK R:IDLEX im MACRO (F100) igh /"qO!Co#QʀFA/p c # tttJR:DSPRDYO0SEGMENTBLANK RTX: o KR:NTQENTR:EVCK R:IDLEX im MACRO (F100) ig /"qI!C?#Qp c # tttJR:KSTK R:LSTK O0SEGMENTBLANK TABLE: o @im MACRO (F100) ig@gJR:INI1 R:PWRF R:STRT O0SEGMENTBLANK RTX: o QKR:RTXEX I:INIT R:SREG KR:SNSW R:CDRG R:PFK KR:PFLG R:DISP R:NOPF KR:UINI R:LSTK R:KSTK im MACRO (F100) i3 g @0 PÞQA@pg AA o0_t tttttt tttt tg uA qphjBCDpE F0AgcbP@ [@ !䃞V JR:FPMAX R:FPCNT R:GVST JR:GVSH R:GTS O0SEGMENTBLANK RTX: OTABLE: o 0im MACRO (F100) ig O%1K%&ߥ/ # g ܋ /&&1„% # g ܋ ?%%& # ddiggi0JR:RFB R:AFB O0SEGMENTBLANK RTX: o  KR:GTS R:GVST im MACRO (F100) igA)`pE # g|ttJR:PAUS O0SEGMENTBLANK  RTX: o KR:DISP R:SACT R:PRID im MACRO (F100) ig@ A#  # )"` 1I{@#Ā#tttJR:TRAPX R:USTREXR:SETH JR:UMTH R:USTH R:CNTH JR:AETH O0SEGMENTBLANK RTX: o UKR:FATL im MACRO (F100) igC @IgC @IgC @IgC @Ig I`pFg !`@qC p@1 ptg  !1Eā䃀*! oqC@1gIfJR:SYSX  R:TABL R:XPTE JR:RTXEX R:DOOREXR:STR0EXO0SEGMENTBLANK RTX: OTABLE: o (KR:HALT R:FATL im MACRO (F100) igI g I H!ID H@Iqtigg /}g ?|g ?|di ?!1qB@1I ndtii(JREINI: LR:RINT O0SEGMENTBLANK RTX: o QKR:CNTK R:DECB R:NECB KR:SECB R:CNSM R:TICP KR:KTIC R:LTIC R:TKAC im MACRO (F100) ifgh "!+,-#⿂ @ @A BCDEF  䃤.qEA@ 6y# FNf1I@  @ vg1E z Ih1Dă{ # tttttttttJR:DECB R:NECB R:SECB O0SEGMENTBLANK RTX: o  im MACRO (F100) ig3qA # g i# g# JR:DCHK O0SEGMENTBLANK RTX: o im MACRO (F100) ig JO@ 1LJIq# # JR:NOPF O0SEGMENTBLANK RTX: OTABLE: o ZKR:FATL R:EMPI R:HIGH KR:INIT R:INI1 R:BGINI KR:RINT R:RIWAL R:SSIG KR:WLKS im MACRO (F100) ii d idiig ȃȇȃȇȂwÂvàJ* +$ DB$ @ @Ģ$@ĪHI f )% JS `k z &‹DI ttddtttttt ttJR:RINT O0SEGMENTBLANK DUMMY: o im MACRO (F100) ig # JR:UINI O0SEGMENTBLANK DUMMY: o im MACRO (F100) ig # JI:INIT O0SEGMENTBLANK DUMMY: o im MACRO (F100) ig # JR:EMUL O0SEGMENTBLANK DUMMY: o KR:TRAPX im MACRO (F100) igItJR:EX R:DBUG R:ODOR JR:IDOR O0SEGMENTBLANK RTX: o <KDEBUG4 R:USTREXR:DOOREXKR:SERL R:SERB im MACRO (F100) ig C @ð+`pF @6 @6@6R 6D 6ƨE6 !F66 DXʎ`@@g gAc # gtttttJR:SERB R:SERL O0SEGMENTBLANK RTX: o %KI:OVL R:EX R:RFB KR:AFB I:LD410SI:LOAD KF:DM4 NT R:SATD R:GATD KF:CFNO F:MONT F:CONN KF:DELE F:CREA R:CWAL KR:MTIC R:CTIC R:IWAL KR:AWAL R:GTOD R:STOD KR:RBUF R:ABUF R:PAUS KR:ITIC R:RECV R:SEND KR:CINT I:IO R:GPRI KR:SPRI R:END R:BGIN KR:WAIT R:SIG R:STR0EXim MACRO (F100) igt#t"t!t ttttttttttttttttttt t t t t tttttttttg$O0SEGMENTBLANK  oim MACRO (F100) JDEBUG4 O0SEGMENTBLANK DUMMY: o KR:FAT1 im MACRO (F100) igtJR:SPRI O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:GPRI O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJI:IO O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:CINT O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:SEND O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:RECV O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:ITIC O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:PAUS O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:ABUF O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:RBUF O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:STOD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:GTOD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:AWAL O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:IWAL O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:CTIC O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:MTIC O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:CWAL O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJF:CREA O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJF:DELE O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJF:CONN O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJF:MONT O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJF:CFNO O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:GATD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:SATD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJF:DMNT O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJI:LOAD O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJI:OVL O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJI:LD410SO0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:AFB O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) ig5 JR:RFB O0SEGMENTBLANK DUMMY: o KR:DUMMY im MACRO (F100) igJR:DUMMY O0SEGMENTBLANK DUMMY: o KR:STR0EXim MACRO (F100) igtJR:HIGH O0SEGMENTBLANK R:HIGH o im MACRO (F100) igJE:INIT O0SEGMENTBLANK oKE:MONE F:CONN R:SATD KI:IO R:BGIN E:CIFP KPCI:INITI:ERTD E:MON KE:UATP E:SF LOAD:B KR:LOW E:HIGH E:LOW im MACRO (F200) @ig ⴀ@u  `0_  pP㩠!@@BK @+kU:P:B: R:`ʃ:e m*** OS4AUX.LIB - REV F1m00 ***t t t tt tt ttt OC J1OS4 (G100) tA INITIAL:: JCLYCICI0JPCISEMA4CONSINT:PROCINT:JPCI:TDB LPCI:INITO0SEGMENTBLANK TABLE: OOS4: o >]KR:WAIT R:ITIC I:IO KR:CINT E:HIGH E:LOW KE:MONE R:IDOR R:BGIN NR:SL R:TDBL im MACRO (F200) @igkdii fgh:#  ABORT? OCOC OC+-AT<:kg>:ig:χ:d:d#:d. y X x B   ! q>B|{ñ C F E: d6:d< hCEC @ Û㕣f&!1ç1>/Njc ;dd-ttttJCONSINT:PCI:INITO0SEGMENTBLANK OS4: o im MACRO (F200) @ifgg# ABORT? OCOC OC+-AT<:kg>:ig:χ:d TITL SCTCONFIG - SCOUT SYSTEM CONFIGURATION (93461-1F-F000) TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP: NAM PRI:MAX NAM FPOOL:,FPSIZE: NAM JCL:E,LOAD:B LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * LOAD R:EMLTR REQUIRED FOR ANY EMULATOR USAGE * LOAD EM:410X MAKES A 410 LOOK LIKE A 430 LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 * LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * * GENERATE BUFFER POOL * BUF:R 3 * * DEFAULT LOAD ADDRESS LOAD:B EQU :200 * * DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS * TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIZE TITL ... DIBS & CIBS GENERATION DIB:ST TV00 TVDIBCIB TV01,3 DIB:ST PR00 DIB:ST PP00 DIB:DS DF00 DIB:DS DF01 CIB:DS DF00 DIB:LP LP00,81,39,LF: INCLUDES CARRIAGE-CONTROL CHARACTER TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0 USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0  " UAT:EE 'X4',0 " UAT:EE 'SI',D:TV00 STANDARD INPUT UAT:EE 'LO',D:TV00 LISTING OUTPUT UAT:EE 'SF',D:DF00 SYSTE6 M FILE UAT:EE 'UF',D:DF01 USER FILE UAT:EE 'OC',D:TV00 OPERATOR CONSOLE UAT:EE 'CI',D:TV00 COMMAND INPUT UAT:EE 'SL',D:TV00 SYSTEM LOG UAT:EE 'SO',D:TV00 STANDARD OUTPUT UAT:EE 'SA',D:TV00 STANDARD ALTERNATE UAT:EE 'LD',0 LOAD PROGRAM UAT:EE 'OV',0 LOAD OVERLAY UAT:EE 'XX',D:DF01 SCRATCH FILE UAT:EE 'PO',D:LP00 PRINT OUTPUT UAT:EE 'Z1',0 SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZE:,0 END XX',D:DF01 SCRATCH FILE UAT:EE 'PO',D:LP00 PRINT OUTPUT UAT:EE 'Z1',0 SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE/ OS4GENLINK.JCL --- LINK OS4 SYSTEM (93460-71-F100) / ALL OBJECT FILES ASSUMED TO BE ON UF  ALL LIBRARY FILES ASSUMED TO BE ON SF / CREATES BINARY ON UF CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SYS / /JOB / /ASSIGN X4=LO /ASSIGN LO=OS4GEN.MAP / /LINK OS4GEN=SF.OS4SYS+OS4CONFIG+SF.OS4AUX / /ASSIGN LO=X4 / /PAUSE / //COPY OS::.SYS=SF.BOOT3.BIN+OS4GEN.BIN 058/ MCSGENLINK.JCL --- LINK MCS SYSTEM (93716-71-F100) / GENS SYSTEM USING 2/4 SCOUT MULTI-CHANNEL BOARD /  ALL OBJECT FILES ASSUMED TO BE ON UF / ALL LIBRARY FILES ASSUMED TO BE ON SF /  CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW MC::.SYS / /JOB / /ASSIGN X4=LO /ASSIGN LO=MCSGEN.MAP / /LINK MCSGEN=SF.OS4SYS+MCSCONFIG+SF.OS4AUX+SF.MCS / /ASSIGN LO=X4 / /PAUSE / //COPY MC::.SYS=SF.BOOT3.BIN+MCSGEN.BIN YSTEM (93716-71-F100) / GENS SYSTEM USING 2/4 SCOUT MULTI-CHANNEL BOARD /  ALL OBJECT FILES ASSUMED TO BE ON UF / ALL LIBRARY FILES ASSUMED TO BE ON SF /  CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW MC::.SYS / /JOB / /ASSIGN X4=LO /ASSIGN LO=MCSGEN.MAP / /LINK MCSGEN=SF.OS4SYS+MCSCONFIG+SF.OS4AUX+SF.MCS / /ASSIGN LO=X4 / /PAUSE / //COPY M TITL OS4CONFIG - SYSTEM CONFIGURATION (93461-10-F000) *************************************************************** * *  R E V I S I O N H I S T O R Y * * REV E600 - ADDED CIB:DF AS PER CHANGES REQUIRED BY NEW * IOSDIBCIB, IOSD.MAC, AND INCLUSION OF SCOUT * FLOPPY HANDLER. MJD 16DEC80. * * REV E700 - THIS SYSTEM IS NOW SET FOR 81 COLUMNS. * THIS INCLUDES THE CARRIAGE-CONTROL * CHARACTER. SLM 18FEB81. * * REV F000 - SET UP NAM FOR DEFAULT LOAD ADDRESS * (LOAD:B) SD 1/MAY/81 * *************************************************************** TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP: 7  NAM PRI:MAX NAM FPOOL:,FPSIZE: NAM JCL:E NAM LOAD:B LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * * LOAD R:EMLTR REQUIRED FOR ANY EMULATOR USAGE * LOAD  EM:410X MAKES A 410 LOOK LIKE A 430 * LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 * LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * * GENERATE BUFFER POOL * BUF:R 3 * * DEFAULT LOAD ADDRESS LOAD:B EQU :200 * * DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS * TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIZE TITL ... DIBS & CIBS GENERATION DIB:ST TV00 DIB:ST PP00 DIB:ST PR00 DIB:ST CR00 DIB:DF DF00  DIB:DF DF01 CIB:DF DF00,:11 DIB:LP LP00,81,39,LF: DIB:DM DM00,10 DIB:DM DM01,10  DIB:DM DM02,5 DIB:DM DM03,5 CIB:DM DM00,:14 DIB:DH DH00,40 DIB:DH DH01,80  DIB:DH DH02,150 DIB:DH DH03,300 CIB:DH DH00,:15 TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0 USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0 " UAT:EE 'X4',0 " UAT:EE 'SI',D:CR00 STANDARD INPUT UAT:EE 'LO',D:LP00 LISTING OUTPUT UAT:EE 'SF',D:DF00 SYSTEM FILE UAT:EE 'UF',D:DF01 USER FILE UAT:EE 'OC',D:TV00 OPERATOR CONSOLE UAT:EE 'CI',D:TV00 COMMAND INPUT UAT:EE 'SL',D:TV00 SYSTEM LOG UAT:EE 'SO',D:TV00 STANDARD OUTPUT UAT:EE 'SA',D:TV00 STANDARD ALTERNATE UAT:EE 'LD',0 LOAD PROGRAM  UAT:EE 'OV',0 LOAD OVERLAY UAT:EE 'XX',D:DF01 SCRATCH FILE UAT:EE 'PO',D:LP00 PRINT OUTPUT  UAT:EE 'Z1',0 SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT  UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0  RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZE:,0 END " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT  UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0  RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 08 / MCSGENFLINK.JCL --- LINK OS4 SYSTEM ON FLOPPIES (93716-72-F100) GENS SYSTEM USING 2/4 SCOUT MULTI-CHANNEL BOARD / ALL OBJECT & LIBRARY FILES ASSUMED TO BE ON UF / CREATES BINARY ON UF /  CREATES MAP ON UF / PAUSES TO CREATE A NEW MC::.SYS / /JOB / /DISMOUNT SF / /  INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / /LINK MCSGEN=OS4SYS+MCSCONFIG+OS4AUX+MCS /DISMOUNT SF / / RE-INSERT SYSTEM FLOPPY INTO SF UNIT /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / / CREATE A NEW OS::.SYS? /PAUSE --- AND TYPE 'C', 'X' OTHERWISE. //COPY SF.MC::.SYS=BOOT3.BIN+MCSGEN.BIN UF /  CREATES MAP ON UF / PAUSES TO CREATE A NEW MC::.SYS / /JOB / /DISMOUNT SF / /  INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / /LINK MCSGEN=OS4SYS+MCSCONFI/ OS4GENFLINK.JCL --- LINK OS4 SYSTEM ON FLOPPIES (93461-71-F100) / ALL OBJECT & LIBRARY FILES ASSUMED TO BE ON UF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SYS / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / /LINK OS4GEN=OS4SYS+OS4CONFIG+OS4AUX /DISMOUNT SF / / RE-INSERT SYSTEM FLOPPY INTO SF UNIT /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / / CREATE A NEW OS::.SYS? /PAUSE --- AND TYPE 'C', 'X' OTHERWISE. //COPY SF.OS::.SYS=BOOT3.BIN+OS4GEN.BIN ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SYS / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / /LINK OS4GEN=OS4SYS+OS4CONFIG+OS4AUX /DISMOUNT SF / / RE-INSERT SYSTEM FLOPPY INTO SF U/ OS4SGENFLNK.JCL --- LINK OS4 SCOUT SYS ON FLOPPIES (93461-79-F100) / ALL OBJECT & LIBRARY FILES ASSUMED TO BE ON UF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SCT / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF /LINK OS4SGEN=OS4SYS+SCTCONFIG+OS4AUX /DISMOUNT SF / / RE-INSERT SYSTEM FLOPPY INTO SF UNIT /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / / CREATE A NEW OS::.SCT? /PAUSE --- TYPE 'C' IF YES, 'X' OTHERWISE. //COPY OS::.SCT=BOOT3.BIN+OS4SGEN.BIN ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SCT / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF /LINK OS4SGEN=OS4SYS+SCTCONFIG+OS4AUX /DISMOUNT SF / / RE-INSERT SYSTEM FLOPPY INTO S/ OS4SGEN.JCL --- ASSEMBLE SCTCONFIG (93461-77-F000) / ALL SOURCE FILES ASSUMED TO BE ON UF / CREATES OBJECT ON UF / CREATES LISTING ON LO / PAUSES TO REQUEST NEW SYSTEM LINK / / GENERATING 9 A SCOUT BASED SYSTEM? IF NO, TYPE X / IF YES, TYPE C /PAUSE / /MACRO SCTCONFIG(D=SF.GEN+SF.IOS+SF.IOSD,L=) / / LINK NEW SYSTEM? IF SYSTEM IS ON FLOPPIES - / TYPE X, THEN DO OS4SGENFLNK.JCL / /  IF SYSTEM IS NOT ON FLOPPIES - / TYPE C AND CONTINUE / / NO LINK - / TYPE X /PAUSE / /DO OS4SGENLNK LO / PAUSES TO REQUEST NEW SYSTEM LINK / / GENERATING A SCOUT BASED SYSTEM? IF NO, TYPE X / IF YES, TYPE C /PAUSE / /MACRO SCTCONFIG(D=SF.GEN+SF.IOS+SF.IOSD,L=) / / LINK NEW SYSTEM? IF SYSTEM IS ON FLOPPIES - / TYPE X, THEN DO OS4SGENFLNK.JCL / / / OS4GEN.JCL --- ASSEMBLE OS4CONFIG (93461-70-F000) / ALL SOURCE FILES ASSUMED TO BE ON UF / CREATES OBJECT ON UF CREATES LISTING ON LO / PAUSES TO REQUEST NEW SYSTEM LINK / /MACRO OS4CONFIG(D=SF.GEN+SF.IOS+SF.IOSD,L=) / / LINK NEW SYSTEM? IF SYSTEM IS ON FLOPPIES - / TYPE X, THEN DO OS4GENFLINK.JCL / / IF SYSTEM IS NOT ON FLOPPIES - / TYPE C AND CONTINUE / /  NO LINK - / TYPE X /PAUSE / /DO OS4GENLINK LL SOURCE FILES ASSUMED TO BE ON UF / CREATES OBJECT ON UF CREATES LISTING ON LO / PAUSES TO REQUEST NEW SYSTEM LINK / /MACRO OS4CONFIG(D=SF.GEN+SF.IOS+SF.IOSD,L=) / / LINK NEW SYSTEM? IF SYSTEM IS ON FLOPPIES - / TYPE X, THEN DO OS4GENFLINK.JCL / / IF SYSTEM IS NOT ON FLOPPIES - / TYPE C AND CONTINUE / / JBUFSEM:EBASEM:E ZBSEM:E JE:HIGHS E:HIGHO E:HIGHL JE:SYSFLGE:ERRTABE:BUFSEMJE:BASEM E:ZBSEM E:CIBHD JE:LL2 E:LL1 E:EXEC JE:SLFP E:CIFP E:PRINT JE:SLU E:RCI E:GFN JE:ICH E:ISM E:MSG JE:IJCL E:JCL E:UF JE:SF E:UATP E:UAT JE:LOW E:HIGH E:ERR JE:LDR E:LOAD E:MONE JE:MON O0SEGMENTBLANK TABLE: o  KLOAD:B EXEC:E PRINT:E KERRTAB:ESLFP:E CIFP:E KF:SLU RCI:E GFN:E KICH:E ISM:E MSG:E KIJCL:E JCL:E UF:E KSF:E UATP: UAT:OS KLDR:E LOAD:E MONE:E KMON:E FM:SVC NR:SL CIB: im MACRO (F330) @ig$g#g"g!g ggtgtgtgggt gggggggggtgtgtLDg LDg Z1g lg dg dgd gtggggttttttt t t t ttttikg>i:ikg>i:ikg>i:m*** OS4SYS.LIB - REV F2m00 ***JOS4ERLC:OS4ERCD:EXEC:E JIJCL:E LOAD:E MONE:E JMON:E O0SEGMENTBLANK OS4TABL:o JKF:CONN I:IO E:HIGHS KE:HIGHO E:HIGHL JCL:E KF:SLU  SF:E E:MSG KE:LDR E:LL2 E:LL1 KE:LOW E:HIGH E:EXEC KE:ERR im MACRO (F330) @igEXEC:: SYSggLD1gƞg þmM)Ţf E) ]]⺤B1C: :t  ̃ !_ pC PE` C    p0! pCPEsttttt t t t !;-ttLD: g bIqC C @U il ffeKB́ QȃYAـ ԄQ`( QBNKCBǞ B!=? pC ùC @KP@E O QF@ +z CIg ƀv:#  [Gtt t tOC  EXEC:: NOT FOUND  B AD TYPE CODE PROGRAM T OO LARGE LOAD ERROR  NO EXECUTION ADDRESS  UAT WIPED OUT SYSTEM  EXCEPTION XXXX OCCURRE D AT LOCATION XXXX%I @2NK0M9K+U'# JMSG:E O0SEGMENTBLANK OS4: o =KE:SLU I:IO im MACRO (F330) @ig /p(p(C @`p D+E` B@ C @/ph@ph ?ph@kphE@ /p p?p(+p(# OCtSLJPRINT:E O0SEGMENTBLANK OS4: o 0KR:SIG R:BGIN F:CONN KR:WAIT PRI:SMA4PRNTDB: KNO:ABORTim MACRO (F330) @ig:t @`` D@1HNF LODL)OB`H:*) # `@:t(xt tOVSTJLDR:E O0SEGMENTBLANK OS4: o 4KI:LOAD E:HIGHL E:HIGH im MACRO (F330) @ig @pJp@`H@Bƒ C ADEFGH F HAEG@h @ 6@6@6@6I pB# ttJPRINT: O0SEGMENTBLANK OS4: o KR:END R:SIG I:IO KF:CFNO E:UATP PRI:SMA4im MACRO (F330) @iZPPOBgƻ: C @@ B+{āc  0 0$::   :: w 1:  1: Z:t:ZPtZPJNO:ABORTERRTAB:EI:IOER O0SEGMENTBLANK OS4: OTABLE: o ]KI:IO R:ISIG R:IWAI KI:ERS3 I:ERS2 I:ERTB im MACRO (F330) @ig ׀!ӄҢҢ̀ @QD@QBkz A@ N JÀA+kUǺ :d:d:d  y X R C x r ck 4  >ttttthdddddigOCOCOC CRX> = ihg ABCD EFG(H6IBJKKUL]MdNlOvPQRSTUVWXYZ NOT READY WRITE PRO TECT TIME OUT POWER FAIL  VOLUME NOT ON U NIT  VOLUME NOT FOUND   LOGICAL UNIT NOT R ELEASED  BAD CHECK SUM  UNASSIGNED DEVICE L OGICAL UNIT NOT IN UAT END OF MEDIA  HARDWAR E ERROR  ILLEGAL OPERA TION NON-EXISTANT MEMO RY ADDR  ADDR IN SYSTE M MEMORY DIRECTORY FUL L  DISK NOT LABELED  FILE ADDR OV ILLEGAL AU  AU NOT FOUND  W RITE DIRECT EOF  FILE  NOT EXTENDABLE ILLEGAL FILE ADDR ALLOCATION  TABLE ERROR  SYSTEM US AGE ONLY BAD FCB CHAIN FILE OPEN FILE NOT  OPEN ILLEGAL FILE POIN TER  UNIT NOT GIVEN  UNASSIGNED FCB  BUFFE R HAS WRITE PENDING D ISK FULL RTX ERROR UNDEFINED ERRORJI:ABRT ;  I:DOSV I:DOER O0SEGMENTBLANK OS4: o 8KI:ECTT E:MONE I:ERS3 KI:ERS2 I:ERS1 R:ISIG KR:IWAI I:ERTB im MACRO (F330) @ig GG GBp aFbDcE /ph@ph?ph@kph# gFaDbEc# g# ttttttttJR:XDOR O0SEGMENTBLANK OS4: o CKI:ABRT I:ERTB I:ERS3 KI:ERS2 I:ERS1  R:ISIG KR:IWAI im MACRO (F330) @ig /ph@ph/ph@ph ?ph@kph?ph@kph Ģ/ph@ ph`pHK Q KRQH ?ph@kph`pC# tttttttJE:RTXEX E:USTEX E:ST0EX JE:DOREX E:STKSV E:STKTP JE:MEMTP E:USRTP E:CNMTP JE:AERTP E:UINTP O0SEGMENTBLANK OS4: o 3KR:XDOR E:MONE OS4ERLC:KOS4ERCD:im MACRO (F330) @igg Ÿǟg žǜgœǙgšǖg˜Ǔg–ǐg”Ǎ p+gLJgc # gttttJTDB ECB R:INIT O0SEGMENTBLANK OS4TABL:OTABLE: o HKRTX: E:RTXEX E:USTEX KE:ST0EX E:DOREX E:STKSV KE:STKTP E:MEMTP E:USRTP KE:CNMTP E:AERTP E:UINTP KUAT:OS E:INIT FPSIZE: KEMPSIZE:EMP: FPOOL: NR:MBXL R:SL R:ECBL NR:TDBL im MACRO (F330) @iig ttii gkdt iigkn0t lllttii't ii(tii)t ii*tii+t ii,tii-tii/tii0tii1tii2tiJI:ERTD O0SEGMENTBLANK OS4TABL:OTABLE: o H KI:IOER NR:TDBL im MACRO (F330) @iigkdHtiHJPRI:SMA4PRNTDB: O0SEGMENTBLANK OS4TABL:OTABLE: o HKPRINT: PRI:MAX NR:SL R:TDBL im MACRO (F330) @iigkdHtiHi ktgt>)t ii*tii+t ii,tii-tii/tii0tii1tii2tiJI:ERTD O0SEGMENTBLANK OS4TABL:OTABLE: o H KI:IOER NR:TDBL im MACRO (F330) @iigkdHtiHJPR TITL OS4CONFIG - SYSTEM CONFIGURATION (93461-10-F100) *************************************************************** * *  R E V I S I O N H I S T O R Y * * REV E600 - ADDED CIB:DF AS PER CHANGES REQUIRED BY NEW * IOSDIBCIB, IOSD.MAC, AND INCLUSION OF SCOUT * FLOPPY HANDLER. MJD 16DEC80. * * REV E700 - THIS SYSTEM IS NOW SET FOR 81 COLUMNS. * THIS INCLUDES THE CARRIAGE-CONTROL * CHARACTER. SLM 18FEB81. * * REV F000 - SET UP NAM FOR DEFAULT LOAD ADDRESS * (LOAD:B) SD 1/MAY/81 * * REV F100 - SET UP EMP: AND EMPSIZE: PARAMETERS FOR * SYSTEM EMP SPACE. * CWK 06/AUG/82. * *************************************************************** TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP:  NAM PRI:MAX NAM FPOOL:,FPSIZE: NAM EMP:,EMPSIZE: NAM JCL:E NAM <  LOAD:B LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * * LOAD R:EMLTR REQUIRED FOR ANY EMULATOR USAGE * LOAD EM:410X MAKES A 410 LOOK LIKE A 430 * LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 * LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * * GENERATE BUFFER POOL *  BUF:R 3 * * DEFAULT LOAD ADDRESS LOAD:B EQU :200 * * DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS *  TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIZE * * DEFINE EMP SIZE * EMPSIZE: EQU 0 TITL ... DIBS & CIBS GENERATION DIB:ST TV00 DIB:ST PP00 DIB:ST PR00 DIB:ST CR00 DIB:DF DF00 DIB:DF DF01 CIB:DF DF00,:11  DIB:LP LP00,81,39,LF: DIB:DM DM00,10 DIB:DM DM01,10 DIB:DM DM02,5 DIB:DM DM03,5 CIB:DM DM00,:14 DIB:DH DH00,40 DIB:DH DH01,80 DIB:DH DH02,150 DIB:DH DH03,300 CIB:DH DH00,:15 TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE  UAT:EE 'X1',0 USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0 " UAT:EE 'X4',0  " UAT:EE 'SI',D:CR00 STANDARD INPUT UAT:EE 'LO',D:LP00 LISTING OUTPUT UAT:EE 'SF',D:DF00 SYSTEM FILE UAT:EE 'UF',D:DF01 USER FILE UAT:EE 'OC',D:TV00 OPERATOR CONSOLE UAT:EE 'CI',D:TV00 COMMAND INPUT UAT:EE 'SL',D:TV00 SYSTEM LOG UAT:EE 'SO',D:TV00 STANDARD OUTPUT UAT:EE 'SA',D:TV00 STANDARD ALTERNATE UAT:EE 'LD',0 LOAD PROGRAM UAT:EE 'OV',0 LOAD OVERLAY  UAT:EE 'XX',D:DF01 SCRATCH FILE UAT:EE 'PO',D:LP00 PRINT OUTPUT UAT:EE 'Z1',0 SYSTEM SCRATCH  UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * *  PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZE:,0 * * RESERVE EMP SPACE * EMP: RES EMPSIZE:,0 END 0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * *  TITL SCTCONFIG - SCOUT SYSTEM CONFIGURATION (93461-1F-F100) TITL ... BUFFER POOL & FREEPOOL DEFINITION ***************************************************************************** * * R E V I S I O N H I S T O R Y * * REV F100 - AD= DED EMP: AND EMPSIZE: PARAMETERS FOR * SYSTEM EMP SPACE. * CWK 06/AUG/82. * ***************************************************************************** SYSTEM NAM UAT:OS NAM UATP: NAM PRI:MAX NAM FPOOL:,FPSIZE: NAM EMP:,EMPSIZE: NAM JCL:E,LOAD:B LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * LOAD  R:EMLTR REQUIRED FOR ANY EMULATOR USAGE * LOAD EM:410X MAKES A 410 LOOK LIKE A 430 LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 * LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * *  GENERATE BUFFER POOL * BUF:R 3 * * DEFAULT LOAD ADDRESS LOAD:B EQU :200 * * DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS * TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIZE * * DEFINE EMP SIZE * EMPSIZE: EQU 0 TITL ... DIBS & CIBS GENERATION DIB:ST TV00 TVDIBCIB TV01,3 DIB:ST PR00 DIB:ST PP00 DIB:DS DF00 DIB:DS DF01 CIB:DS DF00 DIB:LP LP00,81,39,LF: INCLUDES CARRIAGE-CONTROL CHARACTER TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0 USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0 " UAT:EE 'X4',0 " UAT:EE 'SI',D:TV00 STANDARD INPUT UAT:EE 'LO',D:TV00 LISTING OUTPUT UAT:EE 'SF',D:DF00 SYSTEM FILE UAT:EE 'UF',D:DF01 USER FILE UAT:EE 'OC',D:TV00 OPERATOR CONSOLE UAT:EE 'CI',D:TV00 COMMAND INPUT UAT:EE 'SL',D:TV00 SYSTEM LOG UAT:EE 'SO',D:TV00 STANDARD OUTPUT UAT:EE 'SA',D:TV00 STANDARD ALTERNATE  UAT:EE 'LD',0 LOAD PROGRAM UAT:EE 'OV',0 LOAD OVERLAY UAT:EE 'XX',D:DF01 SCRATCH FILE UAT:EE 'PO',D:LP00 PRINT OUTPUT UAT:EE 'Z1',0 SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZE:,0 * * RESERVE EMP SPACE * EMP: RES EMPSIZE:,0 END OUTPUT UAT:EE 'Z1',0 SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TAB TITL MCSCONFIG - SYSTEM CONFIGURATION (93716-24-F100) * * THIS IS THE CONFIG FILE USED TO GEN A SYSTEM USING THE 2/4 SCOUT * MULTI-CHANNEL BOARD. * *************************************************************** * * R E V I S I O N H I S T O R Y * * REV E600 - ADDED CIB:DF AS PER CHANGES REQUIRED BY NEW * IOSDIBCIB, IOSD.MAC, AND INCLUSION OF SCOUT * FLOPPY HANDLER. MJD 16DEC80. * * REV E700 - THIS SYSTEM IS NOW SET FOR 81 COLUMNS. * THI> S INCLUDES THE CARRIAGE-CONTROL * CHARACTER. SLM 18FEB81. * * REV F000 - ADDED DEFAULT LOAD ADDRESS. *  CWK 22/SEP/81. * * REV F100 - ADDED EMP: AND EMPSIZE: PARAMETERS FOR * SYSTEM EMP SPACE. * CWK 06/AUG/82. * *************************************************************** TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP: NAM PRI:MAX  NAM FPOOL:,FPSIZE: NAM EMP:,EMPSIZE: NAM LOAD:B NAM JCL:E LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * LOAD R:EMLTR REQUIRED FOR ANY EMULATOR USAGE * LOAD  EM:410X MAKES A 410 LOOK LIKE A 430 LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 * LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * * GENERATE BUFFER POOL * BUF:R 3 * DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS * TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFAULT LOAD ADDRESS * LOAD:B EQU :200 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIZE * * DEFINE EMP SIZE * EMPSIZE: EQU 0 TITL ... DIBS & CIBS GENERATION DIB:ST TV00 DIB:MCTV MC00,TV01 DIB:MCLP MC01,,,,,100,46,LF: DIB:MCLP MC02,LP02,,,,81,46,,5 DIB:MCTV MC03,TV03 CIB:MC MC00 CIB:MC MC01 CIB:MC MC02 CIB:MC MC03 DIB:DS DF00 DIB:DS DF01 CIB:DS DF00 TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0 USER SCRATCH  UAT:EE 'X2',0 " UAT:EE 'X3',0 " UAT:EE 'X4',0 " UAT:EE 'SI',D:MC00 STANDARD INPUT UAT:EE 'LO',D:TV00 LISTING OUTPUT UAT:EE 'SF',D:DF00 SYSTEM FILE UAT:EE 'UF',D:DF00 USER FILE UAT:EE 'OC',D:MC00 OPERATOR CONSOLE UAT:EE 'CI',D:MC00 COMMAND INPUT UAT:EE 'SL',D:MC00 SYSTEM LOG UAT:EE 'SO',D:MC00 STANDARD OUTPUT UAT:EE 'SA',D:MC00 STANDARD ALTERNATE UAT:EE 'LD',0 LOAD PROGRAM UAT:EE 'OV',0 LOAD OVERLAY UAT:EE 'XX',D:DF00 SCRATCH FILE  UAT:EE 'PO',0 PRINT OUTPUT UAT:EE 'Z1',0 SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 "  UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL  SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZ? E:,0 * * RESERVE EMP SPACE * EMP: RES EMPSIZE:,0 END 0 " UAT:EE 'Z6',0 "  UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL / MCSGENLINK.JCL --- LINK MCS SYSTEM (93716-71-F100) / GENS SYSTEM USING 2/4 SCOUT MULTI-CHANNEL BOARD /  ALL OBJECT FILES ASSUMED TO BE ON UF / ALL LIBRARY FILES ASSUMED TO BE ON SF /  CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SCT / /JOB / /ASSIGN X4=LO /ASSIGN LO=MCSGEN.MAP / /LINK MCSGEN=SF.OS4SYS+MCSCONFIG+SF.OS4AUX+SF.MCS / /ASSIGN LO=X4 / /PAUSE / //COPY OS::.SCT=SF.BOOT3.BIN+MCSGEN.BIN YSTEM (93716-71-F100) / GENS SYSTEM USING 2/4 SCOUT MULTI-CHANNEL BOARD /  ALL OBJECT FILES ASSUMED TO BE ON UF / ALL LIBRARY FILES ASSUMED TO BE ON SF /  CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SCT / /JOB / /ASSIGN X4=LO /ASSIGN LO=MCSGEN.MAP / /LINK MCSGEN=SF.OS4SYS+MCSCONFIG+SF.OS4AUX+SF.MCS / /ASSIGN LO=X4 / /PAUSE / //COPY O/ OS4GENFLINK.JCL --- LINK OS4 SYSTEM ON FLOPPIES (93461-71-F200) / ALL OBJECT & LIBRARY FILES ASSUMED TO BE ON UF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SYS / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / /LINK OS4GEN=OS4SYS+OS4CONFIG+OS4AUX /DISMOUNT SF / /  RE-INSERT SYSTEM FLOPPY INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / / CREATE A NEW OS::.SYS? /PAUSE --- AND TYPE 'C', 'X' OTHERWISE. //COPY SF.OS::.SYS=BOOT3.BIN+OS4GEN.BIN EATE A NEW OS::.SYS / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / /LINK OS4GEN=OS4SYS+OS4CONFIG+OS4AUX /DISMOUNT SF / / / OS4SGENFLNK.JCL --- LINK OS4 SCOUT SYS ON FLOPPIES (93461-79-F200) / ALL OBJECT & LIBRARY FILES ASSUMED TO BE ON UF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SCT / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF /LINK OS4SGEN=OS4SYS+SCTCONFIG+OS4AUX /DISMOUNT SF / /  RE-INSERT SYSTEM FLOPPY INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / / CREATE A NEW OS::.SCT? /PAUSE --- TYPE 'C' IF YES, 'X' OTHERWISE. //COPY OS::.SCT=BOOT3.BIN+OS4SGEN.BIN REATE A NEW OS::.SCT / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF /LINK OS4SGEN=OS4SYS+SCTCONFIG+OS4AUX /DISMOUNT SF / / @ / MCSGENFLINK.JCL --- LINK OS4 SYSTEM ON FLOPPIES (93716-72-F200) GENS SYSTEM USING 2/4 SCOUT MULTI-CHANNEL BOARD / ALL OBJECT & LIBRARY FILES ASSUMED TO BE ON UF / CREATES BINARY ON UF /  CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SCT / /JOB / /DISMOUNT SF / /  INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / /LINK MCSGEN=OS4SYS+MCSCONFIG+OS4AUX+MCS /DISMOUNT SF / / RE-INSERT SYSTEM FLOPPY INTO SF UNIT /  AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / / CREATE A NEW OS::.SCT? /PAUSE --- AND TYPE 'C', 'X' OTHERWISE. //COPY SF.OS::.SCT=BOOT3.BIN+MCSGEN.BIN A NEW OS::.SCT / /JOB / /DISMOUNT SF / /  INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE TITL MCSCONFIG - SYSTEM CONFIGURATION (8 INCH FLOPPY) (93723-24-F100) * * THIS IS THE CONFIG FILE USED TO GEN A SYSTEM USING THE * SCOUT MULTI-CHANNEL SERIAL BOARD AND 8 INCH FLOPPIES TO AUTOLOAD OS4. * *************************************************************** * * R E V I S I O N H I S T O R Y * * REV E600 - ADDED CIB:DF AS PER CHANGES REQUIRED BY NEW *  IOSDIBCIB, IOSD.MAC, AND INCLUSION OF SCOUT * FLOPPY HANDLER. MJD 16DEC80. * * REV E700 - THIS SYSTEM IS NOW SET FOR 81 COLUMNS. * THIS INCLUDES THE CARRIAGE-CONTROL * CHARACTER. SLM 18FEB81. * * REV F000 - ADDED DEFAULT LOAD ADDRESS. * CWK 22/SEP/81. * * REV F100 - ADDED DIB'S & CIB'S FOR 5 1/4 INCH FLOPPIES. * MODIFIED LOGICAL ASSIGNMENTS FOR:'LO','UF','XX'. * DELETED D:TV00 DIB & MODIFIED LP DIB. * BC 1/APR/82 * * - ADDED EMP: AND EMPSIZE: PARAMETERS FOR * SYSTEM EMP SPACE. * CWK 27/AUG/82 * *************************************************************** TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP: NAM PRI:MAX NAM FPOOL:,FPSIZE: NAM EMP:,EMPSIZE: NAM LOAD:B  NAM JCL:E LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * LOAD R:EMLTR REQUIRED FOR ANY EMULATOR USAGE * LOAD EM:410X MAKES A 410 LOOK LIKE A 430 LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 * LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * * GENERATE BUFFER POOL * BUF:R 3 * DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS * TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFAULT LOAD ADDRESS * LOAD:B EQU :200 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIA ZE * * DEFINE EMP SIZE * EMPSIZE: EQU 0 TITL ... DIBS & CIBS GENERATION DIB:MCTV MC00,TV00 DIB:MCLP MC01,LP00,,,,81,60,LF:,5 DIB:MCTV MC02,TV01 DIB:MCTV MC03,TV02 CIB:MC MC00 CIB:MC MC01 CIB:MC MC02 CIB:MC MC03 DIB:DS DF00 DIB:DS DF01 OPT:DS MINI,UNI DIB:DS DF02,512D,77*2,4 DIB:DS DF03,512D,77*2,4 CIB:DS DF00 TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0 USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0 " UAT:EE 'X4',0 " UAT:EE 'SI',D:MC00 STANDARD INPUT  UAT:EE 'LO',D:MC01 LISTING OUTPUT UAT:EE 'SF',D:DF00 SYSTEM FILE UAT:EE 'UF',D:DF01 USER FILE  UAT:EE 'OC',D:MC00 OPERATOR CONSOLE UAT:EE 'CI',D:MC00 COMMAND INPUT UAT:EE 'SL',D:MC00 SYSTEM LOG UAT:EE 'SO',D:MC00 STANDARD OUTPUT UAT:EE 'SA',D:MC00 STANDARD ALTERNATE UAT:EE 'LD',0  LOAD PROGRAM UAT:EE 'OV',0 LOAD OVERLAY UAT:EE 'XX',D:DF01 SCRATCH FILE UAT:EE 'PO',0  PRINT OUTPUT UAT:EE 'Z1',0 SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0  " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0  PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZE:,0 * * RESERVE EMP SPACE * EMP: RES EMPSIZE:,0 END 0 " UAT:EE 'Z6',0 " UAT:EE 'ZP',0  PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU 5 JCLST: WORD JCLMA/ OS4SGENFLNK.JCL --- LINK OS4 SCOUT SYS ON FLOPPIES (93461-79-F200) / ALL OBJECT & LIBRARY FILES ASSUMED TO BE ON UF / CREATES BINARY ON UF / CREATES MAP ON UF / PAUSES TO CREATE A NEW OS::.SCT / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF /LINK OS4SGEN=OS4SYS+SCTCONFIG+OS4AUX /DISMOUNT SF / /  RE-INSERT SYSTEM FLOPPY INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF / / CREATE A NEW OS::.SCT? /PAUSE --- TYPE 'C' IF YES, 'X' OTHERWISE. //COPY SF.OS::.SCT=BOOT3.BIN+OS4SGEN.BIN TE A NEW OS::.SCT / /JOB / /DISMOUNT SF / / INSERT LINKER FLOPPY (84-93460-04) INTO SF UNIT / AND RE-ASSIGN LOGICAL UNITS /PAUSE --- THEN TYPE 'C' TO CONTINUE /MOUNT SF /LINK OS4SGEN=OS4SYS+SCTCONFIG+OS4AUX /DISMOUNT SF / / B  TITL MCSCONFIG - SYSTEM CONFIGURATION (8 INCH FLOPPY) (93723-24-F100) * * THIS IS THE CONFIG FILE USED TO GEN A SYSTEM USING THE * SCOUT MULTI-CHANNEL SERIAL BOARD AND 8 INCH FLOPPIES TO AUTOLOAD OS4. * *************************************************************** * * R E V I S I O N H I S T O R Y * * REV E600 - ADDED CIB:DF AS PER CHANGES REQUIRED BY NEW *  IOSDIBCIB, IOSD.MAC, AND INCLUSION OF SCOUT * FLOPPY HANDLER. MJD 16DEC80. * * REV E700 - THIS SYSTEM IS NOW SET FOR 81 COLUMNS. * THIS INCLUDES THE CARRIAGE-CONTROL * CHARACTER. SLM 18FEB81. * * REV F000 - ADDED DEFAULT LOAD ADDRESS. * CWK 22/SEP/81. * * REV F100 - ADDED DIB'S & CIB'S FOR 5 1/4 INCH FLOPPIES. * MODIFIED LOGICAL ASSIGNMENTS FOR:'LO','UF','XX'. * DELETED D:TV00 DIB & MODIFIED LP DIB. * BC 1/APR/82 * * - ADDED EMP: AND EMPSIZE: PARAMETERS FOR * SYSTEM EMP SPACE. * CWK 27/AUG/82 * * - ADDED THE SCOUT WINCHESTER DISK. * CWK 07/SEP/82 * *************************************************************** TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP: NAM PRI:MAX NAM FPOOL:,FPSIZE: NAM EMP:,EMPSIZE: NAM LOAD:B NAM JCL:E LOAD CONSINT:,I:OVL * * EMULATOR LOAD DIRECTIVES * LOAD R:EMLTR REQUIRED FOR ANY EMULATOR USAGE *  LOAD EM:410X MAKES A 410 LOOK LIKE A 430 LOAD EM:410 MAKES A 410 LOOK LIKE AN OPTIONED 490 * LOAD EM:430X MAKES A 430 LOOK LIKE A 490 * LOAD EM:430 MAKES A 430 LOOK LIKE AN OPTIONED 490 * LOAD EM:FLPT ADDS FLOATING POINT INSTRUCTIONS ONLY * * GENERATE BUFFER POOL * BUF:R 3 *  DEFINE MAXIMUM NUMBER OF /PRINT COMMANDS * TO BE QUEUED UP WITHOUT WAITING * PRI:MAX EQU 4 * * DEFAULT LOAD ADDRESS * LOAD:B EQU :200 * * DEFINE FREEPOOL SIZE * OS4 RECOMMENDED SIZE = 20 BLOCKS * MULTED RECOMMENDED SIZE = 60 BLOCKS * BLOCKS EQU 20 FPSIZE: EQU PRI:MAX*2+BLOCKS*12 FREEPOOL SIZE * * DEFINE EMP SIZE * EMPSIZE: EQU 0 TITL ... DIBS & CIBS GENERATION DIB:MCTV MC00,TV00 DIB:MCLP MC01,LP00,,,,81,60,LF:,5 DIB:MCTV MC02,TV01 DIB:MCTV MC03,TV02 CIB:MC MC00 CIB:MC MC01 CIB:MC  MC02 CIB:MC MC03 DIB:DS DF00 DIB:DS DF01 OPT:DS MINI,UNI DIB:DS DF02,512D,77*2,4 DIB:DS DF03,512D,77*2,4 CIB:DS DF00 DIB:DK DH00,SWI CIB:DK DH00,SWI TITL ... UNIT ASSIGNMENT TABLE UAT:AA UAT:OS UNIT ASSIGNMENT TABLE UAT:EE 'X1',0 USER SCRATCH UAT:EE 'X2',0 " UAT:EE 'X3',0 " UAT:EE 'X4',0 " UAT:EE 'SI',D:MC00 STANDARD INPUT UAT:EE 'LO',D:MC01 LISTING OUTPUT UAT:EE 'SF',D:DF00 SYSTEM FILE UAT:EE C  'UF',D:DF01 USER FILE UAT:EE 'OC',D:MC00 OPERATOR CONSOLE UAT:EE 'CI',D:MC00 COMMAND INPUT UAT:EE 'SL',D:MC00 SYSTEM LOG UAT:EE 'SO',D:MC00 STANDARD OUTPUT UAT:EE 'SA',D:MC00 STANDARD ALTERNATE UAT:EE 'LD',0 LOAD PROGRAM UAT:EE 'OV',0 LOAD OVERLAY UAT:EE 'XX',D:DF01 SCRATCH FILE UAT:EE 'PO',0 PRINT OUTPUT UAT:EE 'Z1',0 SYSTEM SCRATCH UAT:EE 'Z2',0 " UAT:EE 'Z3',0 " UAT:EE 'Z4',0 " UAT:EE 'Z5',0 " UAT:EE 'Z6',0  " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: REL SHARABLE TABLE: UATP: RES 4,0 RES UAT:NV*2,0 " * * * JCL STACK SPACE * JCLMAX: EQU  5 JCLST: WORD JCLMAX: JCL:E WORD 0 RES JCLMAX:*4,0 * RESERVE FREEPOOL SPACE * FPOOL: RES FPSIZE:,0 * * RESERVE EMP SPACE * EMP: RES EMPSIZE:,0 END 0 " UAT:EE 'Z6',0  " UAT:EE 'ZP',0 PRINT INPUT UAT:ZZ END OF UAT * * PERMANENT UAT * TABLE: JMC:FUN MC:WRT MC:RD O0SEGMENTBLANK IOS: o KMC:DTABLMC:ETABLMC:DCR KMC:ECR MC:REDY MC:IO2 KMC:IO1 MC:IOERRMCFBW: KMCFBR: I:STAT I:ECTT KMC:OPCL MC:VCNT MC:SIV KI:TRTB I:TRLL I:EMEM KI:RET I:FINI I:STUP im MACRO (F400) @im*** MCS.LIB - REV F200 m ***g EDAF ŠB ΦQ  ÀDD DIBJEK CF㞋ttTRtttt DOFB6AρE@6A rP + 1QCܗ 0y eBD+ KFQFQFM APB ЄP GG]O cD FF6EEKttt t  xxMvAuF @0 CXJQB1h 6ǀy C DD P +KFQFBJ Gy ÂGGM PACIB @61T@ KSNJĂ ܄6ÀMbf  tttt  DIJJCIIHttg IPRED@A= ׀DDNF 3  EKBJF QP  !F A6 M_SM A4K_%'-  iPDJ IQDF6AKFttt t ttt tt QnSi MedfAdAK_% +'PQL K  IDDQ II9 A4M102A m0ADDIIFXJQJ K QAKF 6+DJ B%QC*˞ aa' QQ ICB 1€F DPQ_QAFNDttt" EKM B%'Q_ J  K@* H% '@(KK+I_K#BK` M@#QgAIIDMN F6 FKK_IQAžHU F46002 VOLOS4 SYTEM GENERATION DISKETTE 84-93460-02 G330