IMD 1.16: 1/09/2008 12:45:30 84-93460-02 g200 f46002 os4 system generation disk    @0|)wwЀЀtQql)  " }gA `_8M@IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 MF282081611405800820816114058 820816114058 ?F46002 VOLOS4 SYSTEM GENERATION DISKETTE 84-93460-02 G200   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 r 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. * THIS INCLUDES THE CARRIAGE-CONTROL * CHARACTER. SLM 18FEB81. * * REV F000 - ADDED DEFAULT LOAD ADDRESS. *  CWK 22/SEP/81. * *************************************************************** TITL ... BUFFER POOL & FREEPOOL DEFINITION SYSTEM NAM UAT:OS NAM UATP: NAM PRI:MAX NAM  FPOOL:,FPSIZE: 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 LIK E 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 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 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 0 RES JCLMAX:*4,0 * RESERVE FOVicEdDanoP8){ @ƤI@0@¡Ǥ ǣ)@IЀЀ؀QA1*@ ΍╢@+kUŒk5mEEEBE5E3--E2E1P820816114058820816114058820816114058 / MCSGEN.JCL --- ASSEMBLE MCSCONFIG (93716-70-F100) / GENS A SYSTEM USING THE 2/4 SCOUT MULTI-CHANNEL 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 / / IF SYSTEM JMC:FUN MC:WRT MC:RD O0SEGMENTBLANK IOS: o KMC:DTABLMC:ETABLMC:DCR KMC:ECR MC:REDY MC:IO2 KMC:IO1 MCFBW: MCFBR: KI:STAT I:ECTT MC:OPCL KMC:VCNT MC:SIV I:TRTB KI:TRLL I:EMEM I:RET KI:FINI I:STUP im MACRO (F200) @im*** MCS.LIB - REV F100 m ***g EDAF ŠB ΦQ  ÀDD DIBJEK CF㞋ttTRtttt DOFB6AρE@6A rP + 1QCܗ 0y eBD+ KFQFQFM APB ЄP GG]O cD FF6EEKt tt t  xxMvAuF @0 CXJQB1h 6ǀy C DD P +KFQFBJ Gy ÂGGM PACIB @61T@ KSNJĂ ܄6ÀMbf  tttt  DIJJCIIItg IPREDBA? ׀DDNF 5  EKBJF QP  #F A6 M_SM A6K_%'-  iPDJ IQDF6AKFt tt t ttttt QnSi MedfAdAK_% +'PQL K  IDDQ II7 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 ƀ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 (F400) @igQ Q # tJF:GBS O0SEGMENTBLANK SFM: o KF:GSEC F:IRBF F:RDS im MACRO (F400) @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 (F400) @igQ QQgQ Qg Q ߘ Q+ K1FǏÍNjx # ttttttttJF:IRBD F:RDW F:RBD O0SEGME NTBLANK SFM: o KF:IRBF F:WRS im MACRO (F400) @igQ QQgQ Qg PQ6PP# ttJF:DBF O0SEGMENTBLANK SFM: o KF:IRBD F:AQB B:HEAD KF:RLST F:GLST im MACRO (F400) @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 (F400) @ig# ttg z*1]*BO NQ6J,! A Q+]^ QNOBA! # ttg Gx Q|{(( Ā /6 -6C @Q# g)g )FP'FQDBL EDB G E LQDBL EPFFIćĈăąЄ# g# g# ttttttJR:BFLN B:HEDS B:HEAD JBUF:CT BUF:S2 BUF:S1 O0SEGMENTBLANK TABLE: o KBUF:N NBUF:: BUF: im MACRO (F400) @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 (F400) @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 (F400) @im*** IOS.LIB - REV F200 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;Zttttt tt @Р1MIA BC # ABx# gg !+@ D   # # U=+vUvg  BCF09FXB +  N1C 6C6F09C +g HF@6E)o# g # g BKQ\6ƀF I DL 1 N6H 1 N Bȉ@AH# g MCMC+CM # # gC+C # ttt t tg /ph@phC+Cn?ph@kph# ttg C6# 6B # # g 섁@ +j @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 (F400) @ifxgg  _H ܕ܄+Ϟ j@F@ `+11Xdtdtttdtdig>i1igg@dgp.i1g A s⑂@ @AF ## # tdddJI:ERS3 I:ERS2 I:ERS1 JI:ERTB O0SEGMENTBLANK TABLE: o im MACRO (F400) @iggggJI:DOER I:DOSV I:ABRT O0SEGMENTBLANK IOS: o im MACRO (F400) @iggg# JI:OVL O0SEGMENTBLANK IOS:   o sKI:IO im MACRO (F400) @ig p`pA bDBOϠ 1E OS  p# G AEA @BF EG HK 1E TRIP EA O sO G@ iNJKFC@ @BF]GG@oFS#ab?O0SEGMENTBLANK IOS: o im MACRO (F400) @iJI:LOAD O0SEGMENTBLANK IOS: o KI:LDEXITI:LDINITI:LDMAINim MACRO (F400) @ig [IFF# tttJI:LD410SO0SEGMENTBLANK IOS: o KI:LDEXITI:LDINITI:LDMAINim MACRO (F400) @ig EJ C  C  C  C K EEEEtt HI [EE6€ CE/E6J C ېE E6C]C EE6C‰ĀKĀLā LFŽĀɀ 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 (F400) @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 (F400) @igktTV00Ptt<tttJD:TK00 O0SEGMENTBLANK IOS: OTABLE: o KTYTOF: TYEOL: TY00BF: KTYELI: C:TY0 NTY: im MACRO (F400) @igktTK00Htt<_tttJD:TY00 O0SEGMENTBLANK IOS: OTABLE: o KTYTOF: TYEOL: TY00BF: KTYELI: C:TY0 NTY: im MACRO (F400) @igktTY00Htt<_tttJD:TP00 O0SEGMENTBLANK IOS: OTABLE: o KTYEOL: TY00BF: C:TY0 NTY: im MACRO (F400) @igktTP00P t<ttJD:TR00 O0SEGMENTBLANK IOS: OTABLE: o KTY00BF: C:TY0 NTY: im MACRO (F400) @igktTR00P  <_tJC:TY0 O0SEGMENTBLANK IOS: OTABLE: o KI:EOB TY:FUN TY:WRT KTY:RD NTY: CIB: im MACRO (F400) @igklltttt?tJTY00BF: O0SEGMENTBLANK IOS:  OTABLE: o im MACRO (F400) @igJTYELI: TYTOF: TYEOL: O0SEGMENTBLANK IOS: o   im MACRO (F400) @ig g g JD:LP00 O0SEGMENTBLANK IOS: OTABLE: o %KC:LP0 ND:LP0 im MACRO (F400) @igktLP00 Q9!2#   JC:LP0 O0SEGMENTBLANK IOS: OTABLE: o KI:EOB LP:FUN LP:WRT ND:LP0 CIB: im MACRO (F400) @igkllttt?tJLPPUF: LPTOF: O0SEGMENTBLANK IOS: o im MACRO (F400) @igg JLPEOL: O0SEGMENTBLANK IOS: o im MACRO (F400) @ig JDPEOL: O0SEGMENTBLANK IOS: o im MACRO (F400) @ig JD:CR00 O0SEGMENTBLANK IOS: OTABLE: o gKCR:TAB C:CR0 NCR: im MACRO (F400) @igktCR00PtPJC:CR0 O0SEGMENTBLANK IOS:  OTABLE: o KI:EOB CR:WRT CR:FUN KCR:RD NCR: CIB: im MACRO (F400) @igklltttt?tJD:PP00 O0SEGMENTBLANK IOS: OTABLE: o  KC:PP0 NPP: im MACRO (F400) @igktPP00  JC:PP0 O0SEGMENTBLANK IOS: OTABLE: o KI:EOB PP:FUN PP:WRT NPP: CIB:  im MACRO (F400) @igkllttt?tJD:PR00 O0SEGMENTBLANK IOS: OTABLE: o KC:PR0 NPR: im MACRO (F400) @igktPR00  _JC:PR0 O0SEGMENTBLANK IOS: OTABLE: o KI:EOB I:OPEN PR:RD NPR: CIB: im MACRO (F400) @igklltttt?tJD:DF03 O0SEGMENTBLANK IOS: OTABLE: o (KC:DF0 NZ:DF03 DF: im MACRO (F400) @igktlDF03AA M  MJD:DF02 O0SEGMENTBLANK IOS: OTABLE: o (KC:DF0 NZ:DF02 DF: im MACRO (F400) @igktlDF02AA M  MJD:DF01 O0SEGMENTBLANK IOS: OTABLE: o (KC:DF0 NZ:DF01 DF: im MACRO (F400) @igktlDF01AA M  MJD:DF00 O0SEGMENTBLANK IOS: OTABLE: o (KC:DF0 NZ:DF00 DF: im MACRO (F400) @igktlDF00AA M  MJC:DF0 O0SEGMENTBLANK  IOS: OTABLE: o )KI:EOB DF:FUN DF:WRT KDF:RD NDF: CIB: im MACRO (F400) @igklltttt?t  fdJD:DM03 O0SEGMENTBLANK IOS: OTABLE: o (KC:DM0 NZ:DM03 DM: im MACRO (F400) @igktlDM03AA   &JD:DM02 O0SEGMENTBLANK IOS: OTABLE: o (KC:DM0 NZ:DM02 DM: im MACRO (F400) @igktlDM02AA   &JD:DM01 O0SEGMENTBLANK IOS: OTABLE: o (KC:DM0 NZ:DM01 DM: im MACRO (F400) @igktlDM01AA    OJD:DM00 O0SEGMENTBLANK IOS: OTABLE: o (KC:DM0 NZ:DM00 DM: im MACRO (F400) @igktlDM00AA    OJC:DM0 O0SEGMENTBLANK IOS: OTABLE: o )KI:EOB DK:FUN DK:WRT KDK:RD NDM: CIB: im MACRO (F400) @igklvttt?tdJD:DH00 O0SEGMENTBLANK IOS: OTABLE: o (KC:DH0 NZ:DH00 DH: im MACRO (F400) @igktlDH00AA  7  &7 @LJD:DH01 O0SEGMENTBLANK IOS: OTABLE: o (KC:DH0 NZ:DH01 DH: im MACRO (F400) @igktlDH01AA  7  &7 @LJD:DH02 O0SEGMENTBLANK IOS: OTABLE: o (KC:DH0 NZ:DH02 DH: im MACRO (F400) @igktlDH02AA  7  &7 @LJD:DH03 O0SEGMENTBLANK IOS: OTABLE: o (KC:DH0 NZ:DH03 DH: im MACRO (F400) @igktlDH03AA  7  &7 @LJC:DH0 O0SEGMENTBLANK IOS:  OTABLE: o )KI:EOB DK:FUN DK:WRT KDK:RD NDH: CIB: im MACRO (F400) @igklvttt?tdJC:HEAD O0SEGMENTBLANK IOS: OTABLE: o NCIB: im MACRO (F400) @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 (F400) @iggg EDπF ĠB΋QG F ʀDt TRt DDI3BJEK CFyDOFB 6E@6ArP + 1 QCܗ 0y  xBD+KFQF QFWBwP B ЄP怑GG[柊tt ttttt t t O [DFF 6E  EKdddcbB awF@0 CXJQB 1h6ǀy C D D P+KFQFB JGy ÂGG -pPAC ttt  Ϟw@KQB@6 1U@ KCNJĂ ܄6À  @KQNDI@lJ FJCIIBΜQ :ʘNyJQKQĀJ/6-tttt tttLPtgg  IPRED)D DNF  EKB F @Q6@ JPF 6 M_CK_ %'3 oPDJ  IQDF6AKF QCK _%+'PQ͟t tt2w L K IDGDQ h IIADDI IFXJQCcKF6 +DJ B%QC*˞aa ' QQ ICB1 F DPQ_QAFNDztE 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' IICđB @1B  P;XJQ p# c p+p(/*tttqt tttttVpggg BJFF $ #  ʠK_ D II  ӠB1P1wD+KB  I螮 ҠB K D IIF   FBDQKNy @HID@DÀDrI 1oD+KGeCI I  ^ B BܗI ICF   ŠB- @KQB@6TLP ttt Bp  MBV ;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 (F400) @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 7݀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 (F400) @ig EDрF PDIB NCDIEKמ؞ٞ DIDBJ1B 6GBK' B /6yF  ̠BǀII  F ^D DBP KDB ā BKB6À  }J/6wurt tt tt t t"tt ttttg cg @ SjB TtJI:TRLT O0SEGMENTBLANK IOS: o 3im MACRO (F400) @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 (F400) @ig FNDN.8 *E %E'JQ  DOPE JB6AÁE N@6Ar@N@6AEOJO  + - 1 0t ttt t  FQŀQF ƠBB@`` U`@D K^# K DX#  FQcQFBܗ [# @`` T`@D K> # FQlQFB OCNF# JB# PI # dt @O DE Kg# ODEKa# FN P LDOE LOKDJNF LzOLDELN 6@F@6A  KJ 鞔瞍OLVtt t tOt @6BB L LLL 7L 3 Lɞ/L> L I 7 \\\\ LL- EOON@OL 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 (F400) @ig CBJg FXJQCB J鄘ęAٞО @B@6EC  BܐӈDI @o6@ 6@6DAJ DC?6T@_ 6RN @ w@BC ?6CBJ,BJtwu{.twuttg mFXM MBfe ㄕCXJQH݄B WĘVęSJI@B рF @60ǠC  D@6:@6[99 B/64A&-$ B /6@##ߠBCH F E@6@6R@6@ 6M CZ@b#7+?K[g ÀF   EDB# DA # p܀# BWX GC/C CC C Aq@BĚC# st ttt tt BWXCGJđ J@6@6@/6CN # ܑ # ĕ #  @KQN74@ 6C$x p܀ p܀# C BJ?@/6# @O6<EK # t t t t D DI# C #  B zBA CBJ IB Bt7p:.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 (F400) @igg EDCBٟDA ՟͠BK *1B ˟ˠB C DJ BG!KĩF N9XKQA  CC BC KC  IĀ J .a'C I C  CB Q̪ĩRICđtttt ttt  ̪ĩRDICđ   C C @AC ֔GBCC Hĕɞ t$tt  @6^vCBD CDN EBEK IDJ CI  @Eޟ' @*1J @*1y @ *1Br @*13@68 C @*1/:B @*1[g /Cĕ+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:PL GIV Y:SETIV KY:XAIO Y:XBIO Y:DOIO KY:XLAT im MACRO (F400) @ig MCF 4Lltt ȠMzEDI ED RC P  AJ66 C EF6Q M+B QF  C+B6tt t t t tt tttt ES j  VRC䓠SKFD ^IFSI]V I P RC QL !JJMJ 6F6A@4:ttt B6B# Cݐ 6# IB I  RC  BT# 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 (F400) @ig   DIC A JR@6MF6K@60@ t SIF0XNA ąNiXL WQE@ąC1Þ{@t S AS@F@X0Q 60܀ID@RĂ6   K6FVA TKD^ݞ@6N LT6LNXWQTI 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 (F400) @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 (F400) @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 O0SEG MENTBLANK 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 ?66/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 (F 100) 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 O0SEGMENTBLANK 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 (F200) @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 F100 m ***JR:PATCH O0SEGMENTBLANK RTX: o im MACRO (F200) @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 "cI aM  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  I6]KR:WAIT R:ITIC I:IO KR:CINT E:HIGH E:LOW KE:MONE R:IDOR R:BGIN NR:SL R:TDBL im MACRO (F330) @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 (F330) @ifgg# ABORT? OC/ 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 T O 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 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII  IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII! IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII" IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII# IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIe820816114058820816114058820830155255e&L820816114058820816114058820907185616$ e 820816114058820816114058820816114058e820816114058820816114058820816114058820816114058820816114058820816114058e Z8209071649490082090716495125820907185643e 8105201406305081052014063900820816163203e8208301541525082083015415400820907185655 e% 8209071638317582090716383600820907185650d e8110280820550081102808205925820830154711 ev8111111347300082080611252825820816163225 ea8208271558062582082715583825820830154523d e 8208170944402582081709444200820817095120ea8110280815382581102808154250820830154559e08204020948315082040209483675820907185700& ex8208170935097582081709351175820830155232eO8208301542572582083015425900820907185704e8208231100527582082311005925820830154623e8208301548262582083015483275820830155049er8110211559295081102115593400820830154652etH8110211556027581102115560750820830154537e' 98110281716127581102817161725820830155138( ) ?. MCSCONFIG ASMBOOT3 BINMCSGEN JCL MCS LIB OS4SGENLNK JCL OS4SYS LIB OS4AUX LIB SCTCONFIG ASMOS4GENLINK JCLMCSGENLINK JCLOS4CONFIG ASMMCSGENFLINKJCLOS4GENFLINKJCLOS4SGENFLNKJCLOS4SGEN JCLOS4GEN JCLMCSDIBCIB MAC/ 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 Q@/@  6=". 1@ ` i Iyyy x R G , ; + - * / X _1]\IW`  RRR -@A@KJ@ JH +O -M * / X?  `YҾ B ` R-҆, , +&  N  I +KL v `p `rPA QXYKLSDC Z A 9 0 n C F =  t ,Ɲ ,ƙ ˽•䆒ޏJQ ` Tѝ Žp@ ʽт T0 B۝ľ@L@|LO LmLo׾  `LpJ RbC ߞݞ [ }  ޟ} @ƹw r·Q†BL Lreޣޤsg3  P@™b@ `@  ` @P `l ނ} .ry  qvt y j 6 fdv  s`z fZYy a[ľ⟄ Cӝ  IOH0zr(E `  <;C TK@ԝĽ M Ӄ/ԝ  6I6;6D6 666""d  "96=96"q  "I6=I6" qp 0||  y0 `{ 6}  `  L o , ,Ūߦ `Aņ V IP΃͆˃ QJ @  } }IPNÂA KK ՂF  IƱ ²  ¨N ‚çަ|  } KzW  # hƿcQH UbQÎaA¶snQBz x } @ydK @_Fs?  V;8HgKeI 3Q IIZ@ZI A= ; 7 6 31w  BK . IJQs  %ӂ" ԟxJR:ECB1 O0SEGMENTBLANK RTX: OTABLE: o 1KUAT:S NR:MBXL R:SL R:TDBL NR:ECBL im MACRO (F100) iigkn0tllliJF:XSTF F:RSTU O0SEGMENTBLANK F:LIBR o  KF:XINT im MACRO (F100) ig C @A @c # gtJR:TSIZE R:TMPL O0SEGMENTBLANK RTX: o KR:EX R:RFB im MACRO (F100) ig C @@BDA BJE C  ~ 65,@WO^E F m @@! :"C C\B@ p ą!c # BDNAG V#GV BU$GB GxUGGyG GGzNyC BC %DBKE@&@DDD  # # C. 6AyC # C. 6Nq+.y@'CC# g ÀA# OoJR:END R:HALT R:BGINI JR:BGIN2 R:PRID R:BGIN O0SEGMENTBLANK RTX: OTABLE: o + KR:GPR R:GVST R:GIVMX KR:ODOR R:IACB R:GETM KR:DISP R:SACT R:GVSH KR:TSIZE R:TMPL R:GTS im MACRO (F100) ig @ A# @HBD `pCDEF! I JAFGHDIH 6 @QDCE GEI A‰ `@# tt F # BJJ B ` E ``b`# D# g r`@@ABCDEF` &g `JHIFˤHG ^FDZ HFFEFĎEJ # tttttt  GDFwDHI`(j򀁄I JKLG@ @HA BF@`CED@  H6RC @I܆ /#@# ``@ # CČ @䀞ldttt g3 y!I; @"H DDBI#CCHÀE IH`(B` I1G@ I @H hB`(̠1J @ H @ `sttig  ~ޭig @6NN @ SA# tJR:TSIZE R:TMPL O0SEGMENTBLANK DUMMY: o KR:HALT im MACRO (F100) igg# tJR:HLF CLK50: O0SEGMENTBLANK RTX: o im MACRO (F100) ifgfgJR:STOD O0SEGMENTBLANK RTX: o KR:RIWAL im MACRO (F100) ig pO10 # J1 R:GTOD O0SEGMENTBLANK RTX: o KR:RIWAL im MACRO (F100) ig p?10 # JR:AWAL O0SEGMENTBLANK RTX: o KR:RIWAL R:WALEX R:WALP KR:GTS im MACRO (F100) ig /p(p(` F/ph@ ph@ABDCttNtJR:IWAL O0SEGMENTBLANK RTX: o %KR:RIWAL R:WALEX R:WALP KR:GTS im MACRO (F100) ig /p(p(` F/ph@ ph@AB0 1GăttNtJR:WALEX R:WALP O0SEGMENTBLANK RTX: o 1KR:ISIG R:IWAI RDC:S4 KR:WLAC R:DCHK R:GVSH KR:SPRI R:GPR im MACRO (F100) ig ` /ph@ph ),ƞ,@,i `g ?ph@kph`?p(+p(# ttttttttJR:CWAL O0SEGMENTBLANK RTX: o ;KR:RIWAL R:ISIG R:IWAI KRDC:S4 R:WLAC R:GPR KR:SPRI R:DCHK R:GVST im MACRO (F100) ig p # /p(p(`  /ph@phj), ` @@h@ih ?ph@kph`?p(+p(# ttttttttJR:WLAC R:RIWAL O0SEGMENTBLANK RTX: OTABLE: o _#KR:WCP  R:RTXEX R:GVST KR:IWAI R:ISIG R:ITIC KR:WLKS im MACRO (F100) ig Ⓜ@ @A BCDEF 䃧# tdddi@dgk.i 01AsA ?10,qgI,B0& C1&D `@ /ph@ph?ph@kphq`H @@h@`@@q`H@@ \ttttt]tJTTLF4: LR:WCP O0SEGMENTBLANK RTX: o KR:HLF im MACRO (F100) ightJR:WCP  O0SEGMENTBLANK RTX: o KR:HLF im MACRO (F100) igtJR:HLF O0SEGMENTBLANK RTX: o im MACRO (F100) ifgJR:SATD O0SEGMENTBLANK RTX: o xim MACRO (F100) ig iSC* bĀ+u* M] # Sm v jsCk JS검@mkb `@nbG*`@ G*g' ā ]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