IMD 1.16: 30/08/2008 23:51:47 f24001 rev b050 84-94240-01 cartos synch comm handler 5-jan-84    @0{)vvЀЀsQpk)p " }fA __M@IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIICARTOSMB084010608311650840106094334 840106094334>F24001 VOLCARTOS SYNCHRONOUS COMMUNICATIONS HANDLER (B050)   IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII_M@qGyy GGG`HX@ b G`^Y e GQ @@p@987 85P@ G:پN 8)0. * C'xC# b# }B+> @0DAJL w+™ЀЀΖQA1"   i  ž} š} @EEFF)DEۄF8 џ} ԟ} ̟} * `jUBBI,v BI, # @ G7H@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:: SYSG @ @G6BDāCGDĀ# BC @E OBJSY:SHARESYNC:EDBSY:CQSDBJSY:BG:POSY:BG:PRO0SEGMENTBLANK DMA: OTABLE: o @KCT:USAGEB:LINEC MSY:IPOSTSY:IPRE NQDB: SMD: SDB: NMDB: R:TDBL im MACRO (F510) @i@igSYlllll  ($H'aaaaaaaaaaaaaaaagcR1 jknm opusPR vkzy {puPOgPRqgPOqk gk mSYNC HANDLER (B050)AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJSY:IPRE O0SEGMENTBLANK CODE:ROMOCODE:RAMDATA:RAMDATA:ROMOGLOBVEC:oKSY:FLNK B:MOVE B:CRSEM KSY:CQSDBPUT:CREQB:BGIN KSY:BG:POSY:FCIB PUT:DREQKB:GETDMASY:CECBCB:SIG KB:DSQ SY:DILNKSY:RTST KB:QGET B:ABUFW B:MAPIN K SY:SHAREim MACRO (F510) @iiig BCڂkj) ą؂ل)D kjIʠCBC ĖG kjD  DIĂD DIĆD CEDāDkjD  DIĎI¤DkjCDkCdjCDkCdjCDkCdjdttt tt DQIw kuj @ QMCDkjIIDk ejIICDkCd  jƠD DŽI@ kPjIIC kCdj ICDkCdjCDkCd jHIIDk/jD9t  מ] Ҟ РbvT C # BC I B BIđĠB̠C ֯ήQĠB@ BkCd j@ BkCd jCC B’ď@ BkCdjCL'C xB X@ A5 7 T0B MC ֿĖCk jBH kj# B C QHH« kj CQ׀ ĀC CkjHHIBk j FCkjt tt t  DHI@Bkrj#  BC HHH kej kCd  jDa QHI¶BkS jBCKĜD B EDĊ ICBkCd  j# BC QI“ k /jE @HJ‡ Bk @ j# ŎHHJBk  jBDŽJ@ kj HIJ+ KHkj FHIK@BkjB  ICBĕB BėB IBDEI@Ikj# t tt BCHǀBkujàB QH kljCDB IJK kCd  jBBII kQj CDIE FEK D @ EKEFus IIBk4j BQH k&jD @HI½Bkj ICBkCd  j٠BQH¨ kj D @HIBk j# HHI”Bk j ICBkCd j @t CBkCdjCBkCd j X@ A   2 0 c h   # BCDBZD[ \ kCd  jBBQ۠DĠB< ďCVDCVDā CVDBQžߞGOs CVDC VDCVBW @ XDĆVXDVXD ĈVXDVXDĊW XDDQSB W[ D\] ^[ kCd  jBBQ΀DZ[ \ kCd  jBBHZ k j# BCDBZD[ \ kCd  jBBQDDB· ďȠB̈QnVCWD X @DXWĄDXW DXWĆDXWD XVĒDIB[D Vt \]I^[ kCd  jBBHZ kdj#  BC@kjCCKQ BDĤCD CDįCDCDĀCBkCd jB̀CkCd  jCIGkj# t tt BCDBZD[ \ kCd  jBBQDDB ďCVDCVDā CVDBDZ[ \ kCd  jB# BC IĔ CB BIĖBDBĘ BCkj# t BkjӀCBBI ėB # BCGG @ GCāGEGDăGF GIąGGkj # BCDGVC` BeDf g k!Cd  jߠBBQHe k!j Dtttt 5BHe k!sj qʠBHe k!gj eBdDeVfIgd k!Cd  jߠBBQHe k!Jj H`Vk!j ߄_Heœ Bk!:j 8CaDC aDāCaDDQBat `ăDa`D a`ąDa`Da` ĖDa__a @ bDabDćabD abDĉ`bD_ bDċab`ab `Ąab`ab`Ć `_ĒBDef g k!Cd  jߠBBQHe k!j _# tidd\dddDdddd_ddddiiJSY:DILNKSY:RTST SY:IPOSTO0SEGMENTBLANK CODE:ROMOCODE:RAMDATA:RAMDATA:ROMOGLOBVEC:oKB:RETDMAB:RBUF B:QACK KB:DSQ B:DSSEM B:WAIT KSY:DCST GET:DREQim MACRO (F510) @iiig B Ė Bkj C D ECkjD EB kjDJ  kjDB kj DJ kj E@DkCdj E@DkCd jҞDĠEāE  EIċDĠE֚ā EDX@ A \ h n@tt DJ kj DXN9@ A . # 3   BA kjBVUQMB kjBkjB;:Q# g BC ďDGBDĎB BkjBkj# tttttg BC DC DIĉ D DIĊB # BC IĐCDBBYĉ C BkjBQB BH k'j# tidiiJSY:DCST SY:FCIB SY:FLNK JSY:CECBCO0SEGMENTBLANK CODE:ROMOCODE:RAMDATA:RAMDATA:ROMOGLOBVEC:op KCIB:HEADS:GBY im MACRO (F510) @iiig BC @DDJQŀB‚ݞD# g BC @D EIFG FEkjHFBk j HBIG FFGQDF i QBDDD EIDQ@D# g BCBDC CV# g B YCD C @hB# ttdi iipJG:1 B:LINEC O0SEGMENTBLANK SYNC: o KB:RECVC B:XMITC B:DEVCC KCND:EVNTCHK:WAITMODE:SETKREQ:EXU CHK:QUE TMR:ENDUKTMR:BGNUTERM:ACTRELS:LCBKRELS:EPTALOC:EPTRET:REQQKRET:REQ PUT:REQ GET:REQ KRLS:EVNTRWAIT NR:TDBL im MACRO (F510) @ig  FF #  k 0LCgLC~ @ ABICEFGH  # @NȪ ĨK ħ Go @31R  @J U@   p܀# @ # D L @`K̞L `+ ܀D ٠E@Ĝ # @`KL `+# I# C @  I@ 1 N 6 p9 p܆c #  #zM8?Iels tttt DC؄C# D@ t# D@ t# D@ t # D# D `+#  y D@Y @6X LJQL@6N)XLL  `+I#  D@# D@#  D@# tt t @̄C̄CD 4# @ ̈́CCD 1 D `+IcD K# CC 6AIC܄C6=6 CCրD  #  1ML L Ƚ#  2# # #  # # #  # # @ @@+ I + @  # C݄CCC6CCD # tttt  ʠ 1|A @ ĉmA1G Av@+BzD  ÀER@ʀD   E ÀGAY@ 5@ A@} t 9t tt`ttt JG:2 CND:EVNTCHK:WAITJMODE:SETREQ:EXU CHK:QUE O0SEGMENTBLANK SYNC: o !KB:PROTO RELS:LCBALOC:LCBKRET:REQ DEL:REQ PRO:EVNTim MACRO (F510) @ig 1k@  @6@6@6@O6G X Q@XQVXQš@ XQ–č@ t p܀# I# I# t ` @tg C @@6AN)XLLL   p܆c # g C @ X?QI  @̪S @ ܫN)XLLXL L@L L L JQ 6 / p܆c # I  I II păc # t 1J 1C{z# g C @ H j1PIf 1L@ p HI I păc # p܆c # g C @@6@6@N!G ֗!֔֒@č@ 6@6N!؍X8Q p܆c # ttg C @@ `+'1a@ pĄH ,I,I,I+1 pL @`K_I^ p؃Q@` KUIT pIĄc # JG:3 B:DEVCC O0SEGMENTBLANK SYNC: o KRWAIT RSIG TERM:OPRKABRT:RCVSTRT:OPRSTRT:XMTKSTRT:RCVTERM:TMRCNCL:TMRKSTRT:TMRINIT:TMRRELS:EPTKALOC:EPTINI:EVNTNR:TDBL im MACRO (F510) @ig k0k DCg DC  FHK` P@q~ RL@# @N G@ 6A\@6ĠXQlO  E@<-` @Ӡ@ /6NIΠNEE  EgLžm p܀@# @ 1R1POMKL NLNkG@ C -FNLӀI ѐFC\6GNˠL oKK p܀N# tttt t @6Y N sF NڀI֐FF\6CNg L`o ٞ p܀I ĄGNVN # \H @IO6AIC ܀K\־ NiGK\@66@ / 6݄K@ /6R1KK 6̀A # A@K@6B B@/6NK1KK 6ǀC # C@D p܀#  ?`ttt @1IOEI H E@C  JJ  NJ@C N LtNJ EE  E^ p܀ GIH# K 6ɠ@/6D,+ K 6ɠ@/6D,+ # t ttt 1GL 1àL N@ I  I@LI F K@6Ni@KNKK NKXQ_K@6ŀE E @K E@ O@ <-` @L 'EKKN" u I@Là zN L@ I@ t t t t V ttJG:D TERM:OPRTERM:XMTJTERM:RCVABRT:RCVSTRT:OPRJSTRT:XMTSTRT:RCVO0SEGMENTBLANK SYNC: o KCNCL:TMRSTRT:TMRim MACRO (F510) @igg /+)@ &}/ .  )Iā@ <- @ @6@ċ,# g /+ @ &}//  +%&}/ % Iă @ <- @@6@ ċ,# g ?C C @6D@ċ# g 6̄y b,# g 6@ @/ &}//  Ī @ K)&}/# I# g 6I# g ŀ턋# ttJG:4 B:RECVC O0SEGMENTBLANK SYNC: o pKRWAIT RSIG TERM:ACTKWAIT:FLGB:RECVD RELS:EPTKALOC:EPTPRO:EVNTRLS:EVNTKINI:EVNTNR:TDBL im MACRO (F510) @ig k 0$ RCg RC D@DC6ĠB CǠB# @ C ABD1sA @ t ` A I@A Ҁ D6K1I AE AoAkBBDA z@ A I@ ttttt ttttJG:5 B:RECVD O0SEGMENTBLANK SYNC: o KRWAIT RSIG TERM:RCVKABRT:RCVSTRT:RCVTERM:TMRKCNCL:TMRSTRT:TMRINIT:TMRKRELS:EPTALOC:EPTGET:REQ KPUT:REQ PRO:EVNTSND:EVNTKRLS:EVNTDIS:EVNTGEN:EVNTNR:TDBL im MACRO (F510) @ig k0 RDg RD D6OB1R ʀ CȀDDB# B | # EFC+C܅E# tt t C6/ ń+ C+CD6Q@ 6[܄DCB ĕGF ݞFLD݄DC@ Ą @ IBI C@6@Ą C  @ C p܀ D6݄DFA# Eă +H QJ @) C@ 6 IE1FDKJ JK@ G# t tt t8t @@BEI IĄ# C K@ EI@SBBIQȐC +C܅# ą֞@Ă YE Ĉ#  qNyGEqNyG# t   CED̈́D@ ` @/6WD6P ɠC6ʀàED D@ݠBd@QĀD DXQX@_6L)@/6G)@?6D ) @o6A) ƠC6 <># @ o EC؂֮QJ؂ Ny؂L ؂L]E@6@6 임@O6@IKRE p܀# # t;ttt* @ 1IB ۤFB1 @נAˠ@ġAπD 6FBȞwǞE D6K@6@6ˠ@6ǀD DE@ā@BAd ECD6 CD DC CADF  B@ @A t tt tttt ?tJG:6 B:XMITC O0SEGMENTBLANK SYNC: o aKRWAIT  TERM:ACTWAIT:FLGKB:XMITD RELS:EPTALOC:EPTKPRO:EVNTINI:EVNTRLS:EVNTNR:TDBL im MACRO (F510) @ig k 0 TCg TC @ ABCD1yA @ t ` A I@A րD6O1M C DD AAg@ BBDAz@  A @I ttttttttJG:8 B:XMITD O0SEGMENTBLANK SYNC: o KRWAIT RSIG TERM:XMTKSTRT:XMTRELS:EPTALOC:EPTKPUT:REQ PRO:EVNTRLS:EVNTNR:TDBL im MACRO (F510) @ig k0k TDg TD E GH1äIJ IJE@N K 6Ā6A@\F` @ /6DBw@@?6à@܏ @@# D@D  C CA# E  JĈC+ @QĠC# tttttt @ 1ĠAB @ AnBD6᠃1_   դECQCD AE6ɀD6C Q*BYBAU@ BBA: tttJG:9  B:PROTO O0SEGMENTBLANK SYNC: o KRWAIT STRT:RSPCHK:TERMKSET:CURSSET:REQSABRT:ALLKREQ:XMITREQ:RECVXMIT:RELKRECV:RELREL:XMITREL:RECVKPRO:RPRTPRC:WRITXMIT:CPLKPROC:RFEGEN:XMITTERM:TMRKCNCL:TMRSTRT:TMRINIT:TMRKRELS:EPTALOC:EPTRLS:EVNTNR:TDBL im MACRO (F510) @ig k!@1 PHg PH D@AI@C 1DXQADXQADX QEÄF GHBIJ KLNOPQMRSTUV WXYZ[\]^# 1b BDH@EB1U] D H@EB1G^B A p܀# ]1AB# @tttt E6ĀD6؀FE@6 ̄FTT @G6eHH E@R # E6e[Z 1RP)Z@ [\ @ZQY# Ā# # 6A GF@R ( #  F6AFG6FF6C HHE6ĀD6# t _ttttt I@  BǠ1# t  #&) # E|EǀE6ĀD 6# ElE# #  # Hl6H# Hm 6AH# 6# 3# 0# (-# tttt t ՞ ӀD6B sB 1AAAǠBC Þ ]1EC ^1EC  E AFo6KE ȠBɀE) B LI^1B]1B A B  Ht tt tt t tttt@tJG:A GEN:XMITO0SEGMENTBLANK SYNC: o tKSTRT:RSPSET:CURSCHK:TERMKWRT:ACK SND:EVNTGEN:EVNTim MACRO (F510) @ig `( H%'@( h܄# # C  @I p%C @'DD% ' pKqc #  C @ A pą IĆE   F@DLF섁L Մc # C @ AˀE  J`pC6ą A@ą`pDc # C @ AE J`pD B@6RLFXNą FX1@Ną  B`pDDK)BEc # t  66PRD@6܄ PS@ Aπ6Aq @ @A܈66 FF# F̈́F# t(t F6@66G@6B r# @6xH@6C@6E @6F[QH@6jIPKX QF@6PH@6C@6 E@6E[QH@6Q@6C H@HE@6D@Lą@ Ć# F66h I E @`KP E@6J 1`@6JXG J`@`yFF# #  F@o6@mFX?NY rF? @ AY HKfg # @6@}F/# EI  CIC6F QS # KMGG# ttt E)EF@6K@6C@ 6FG܄G IE)  GnYE@G@ ‘ GGGi ICG G # O/o! Ho6U6WIQXJQBI  IMJXQKC@6I ܄H HIIH̄H݀E  # E6ˀH6FF 6EC@6K# H6[1v 6dLXNLC  NN PLCNP KLCƀ[\ZH @H[\C a E # HŀF66 p܀# /?N`tjg E@o6@6^AIZF G66LʀE6ŀF 6DjhE b# xRJG:B PROC:RFEO0SEGMENTBLANK SYNC: o KRSIG FRC:CURSSET:CURSKCHK:MODEEND:POLLEND:FINLKRECV:RELRST:RECVRET:REQ KRESC:ALLRESC:ONEPROC:ACKKPUT:REQ ACPT:SEQACPT:SELim MACRO (F510) @ig E@6ENIKXNKX PKCAH# N E 6CJXJX MJEC FIH# @ @JM#  EXL`_`FF 6ÀGG# C @I CCd@6ŀC\ *RDQDV7SϠ1M JXĆC  p c # t t t  C @@ @@(  N  6C+MQRG QGd__HX LHL L c # C @A QàQK p F  Ic # Fo6DlGF# t t t EN)XWQ@D@QG@ 6G@GNA@@6G@6V@ GG֖GI6@A@ EGE IG# IB# ot C @@6 `8  .' p N 6C1 XLL BH I+LCL L LL/LςLOLoJ I =Ic # 0t E  '# 6G@ 6턁@ְGDŀG~ G6ȀD/66ÀGnG#  G6T6U6Հ6ҀGE  6@o6@E # C# # ott C @@6 `8  .' p N 6C XLL BE  ΞLcLLWCQ΀G ĄG*FFGGc # g 6 6B 6B @6B. L@ A +A1A @@ 6΀ @6EFF# F݄F# tCvt tttJG:E STRT:RSPFRC:CURSJSET:CURSSET:REQSCHK:MODEJPRO:RPRTXMIT:RELRECV:RELJCHK:TERMREQ:XMITREQ:RECVJRST:XMITRST:RECVREL:XMITJREL:RECVEND:FINLEND:POLLJRESC:ALLRESC:ONEPRC:WRITJXMIT:CPLACPT:SEQACPT:SELJPROC:ACKWRT:ACK PUT:RORDJABRT:ALLO0SEGMENTBLANK SYNC: o +KRSIG CNCL:TMRSTRT:TMRKRET:REQQRET:REQ PUT:REQ KGET:REQ INI:EVNTim MACRO (F510) @igg `+ `+ `+ `+A+# g C @C @ȄC @C A p # `pBX @BC G@1CEDD@1B@ CŅDEkp``# g ą@ @ @L I LLU1A#  # UVpLI2# ttg C @ TY1NKCI YZL`pCEp RK CE@K R SKC E@K SNKCD@KNKXKc # g C @J@ @ @I7 QJWH `+ I,HHJQAQ QHWQDQJXC c  # pQ X1B WH@H @ p܆c # g C @JԀ@ @ @IJQ JHH p܆c # g A+ ] 6VLK LX@RnNLX@LRC IeIbI_# tt=g Y1LKɀYZ[@[\K RS# g KN7KNY3[Z\ YZjg F@6@FGGF RK Aa]1DFF# g E6OGG SKAN]1DFF# g E6K6EA@# g E6Ko6EA@# t`tg  GGFFH6 H J QMW1TWX A܅+E66/@j# g  FFH6|H K LNO PRSYKIYZ [1D[ HĀ[\[1J 6EO O1# :ttg  EۀEEAĄ  @ĄE6@ĄE A@# g  EʀEEA@# g @QE@I6I~OL CtA+t Iąֻ ĂN)XJRI`@6MO ĆKXOIĀ\1BR[ [\E6D@66B Bo61>A #  B Ă# ?@`tt8tg  BԀE) EXJQ Fo6C# # # # g C @EE6D@6ɀ^ G6DYU[CQc # g C @EE6D@6CBc # sg E1NGA@,# g E@X)@  JQ# G6jF6gJQɀD6 E6à^1AŀGG# G D@6|XQAlG TD 6ȀE6>^1B# g EX8@ # L(# E@E;gEX@ # g E֛@E ' +gF6DF]# t?tJG:C RWAIT RSIG JTERM:ACTWAIT:FLGGET:DREQJPUT:CREQPUT:DREQRET:REQQJRET:REQ FND:REQ DEL:REQ JPUT:REQ GET:REQ RELS:LCBJALOC:LCBRELS:EPTALOC:EPTJDIS:EVNTRLS:EVNTPRO:EVNTJINI:EVNTSND:EVNTGEN:EVNTJVAL:LCB VAL:EPT O0SEGMENTBLANK SYNC: o KB:LINEC NSDB: im MACRO (F500) @igk g 1ImqG j@ # `i# g 1IlqG`*@  # `i # g1Q*ge1feĂ QC Ha H#  ?f1„eg# # D`@ @qă# @# 7 OqD@ `# }gC @@C`pDc # gC @@\c # g C @@51E@ `pDEPc # g C @@)1E@(`pEDc # g C @@K1C `pE.c # gC @@(c # g C @31S@ ᄂ @ @mm`pDc # g C @@ʀq`pEm@ @S@  @5c # g C @3 1TI㥹Ć ćĈĉĊ@llĀ( Ă`pDc # g C @@q`pEl@ IĐ 5c # g  C @` O@1E @A`pBc # g  C @`I@qC@c # c # g  C @`@Ő@ȄAIЀ ĀQAc # g  C @`p*1E@ @1 B)Dc # g  NQGQA܄ 1EB1A# ?}g C @`pD1JDDA`pCE`sc # g C @`pBƠDŠwFc # g C @@c # g C @ Zc # g C @ Zc # g C @` @I@qB@1AUc # g C @`O@1D@A`pBc # g C @`  @ @I@@`qB@ć1C `pD@6E@|Ċ t/c # JG:F CT:BEGINCT:PRIORJCT:TAIL CT:HEAD CT:USAGEO0SEGMENTBLANK TABLE: OSYNC: o ^KRWAIT RSIG PUT:DREQNR:TDBL SDB: im MACRO (F510) @igggg~ig k   k CTgCT~ ߵ$ q[B BFEDE` @@ @G`IAB -瓞 ddttdtJG:H TMR:ENDUTMR:BGNUJTERM:TMRCNCL:TMRSTRT:TMRJINIT:TMRO0SEGMENTBLANK SYNC: o KDEL:REQ FND:REQ CT:BEGINKCT:USAGECT:PRIORCT:TAIL KCT:HEAD im MACRO (F510) @igg C @3`pD1IąIĀāĂĄIĆc # g C @ƒ €=   ` p 1ĉR͠1 pĂIĀ B@AĂ@ p Ā@(ā@(C( p Ă `c # c # tttg C @ `w p IЁP ā Q‡b @ `c #  QBYu pSsrPQo. , ( dgC @5c # g C @ `6ߔ t `c # gC @ c # tttO0SEGMENTBLANK oim MACRO (F370) @JB:DSENV O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:SUENV O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:REENV O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:LDENV O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig oCDEFG oC # JB:GERI O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:CRSMR O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:MAPIN O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:UNMAP O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:CRTASKO0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig   # JB:DSTASKO0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig   # JB:BGIN O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig oCDEFG oC # JB:END O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig JB:GPRI O0SEGMENTBL ANK B:XXXXXXo im MACRO (F370) @ig  # JB:SPRI O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:PAUS O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:CRMBX O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:DSMBX O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:SEND O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig B @ # JB:RECV O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig B @ā # JB:SENDR O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig B @ # JB:RECVR O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig B @ā # JB:SSSIG O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig Z # JB:SSWAITO0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig Z # JB:SIG O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:WAIT O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:WAITR O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:CRSEM O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:DSSEM O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:CRQ O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:DSQ O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:QPUT O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:QPUTR O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:QGET O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig  # JB:QGETR O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig   # JB:QACK O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig # # JB:ITIC O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig $ # JB:MTIC O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig %# JB:CTIC O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig &# JB:AWAL O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig ' # JB:IWAL O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig ( # JB:CWAL O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig )# JB:GTOD O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig *ā # JB:STOD O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig + # JB:CDOW O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig C,C # JB:CTODA O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig B @- # JB:CATOD O0SEGMENTBLANK B:XXXXXXo  im   MACRO (F370) @ig B @.ā # JB:GSTOD O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig /ā # JB:SSTOD O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig 0 # JB:GELT O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig 1ā # JB:GEXT O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig 2ā # JB:CFREQ O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig C # JB:RBUF O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig 5 # JB:ABUF O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig C3C@(Ā # JB:ABUFW O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig CBC@(Ā # JB:PBUF O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig C4C@(Ā # JB:LOAD O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig 8 # JB:OVL O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig @I:I@# JB:IO O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig 6 # JB:IOR O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig 7 # JB:DEVUP O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig ;# JB:DEVDN O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig <# JB:UEX O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig @># JB:PUNT O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig@# JB:REX O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig?# JB:WEX O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @igA# JB:UID O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig Eā # JB:SUID O0SEGMENTBLANK B:XXXXXXo  im MACRO (F370) @ig B @Zā # JB:GLA O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig !# JB:SLA O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig "# JB:ISM O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig D # JB:GFN O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig =# JB:UMOVE O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig F# JB:MOVE O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig Z# JB:FECBS O0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig @ZD # JB:THREADO0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig @Z  # JB:UNTHRDO0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @ig Z# JB:READMZO0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @igZ# JB:GETDMAO0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @igDZ EĀ# JB:RETDMAO0SEGMENTBLANK B:XXXXXXo im MACRO (F370) @igZ #   JS:PBY S:GBY O0SEGMENTBLANK SYSTEM: o im MACRO (F002) ig @@``%'`@# g @@D@h%'`@# IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII SAMPLE PROGRAM JCL - 84-94240-71 (B050) AS UF SD/CARTOS/SYNC/ MACRO SAMPLE(L=) LINK SAMPLE.BIN=SAMPLE.OBJ(AB=40,EX=TEST:EDB)+ SD/LBR/SYMPLE.LBR  O ?  DI ,PDTDTw JTEST:EDBO0SEGMENTBLANK TASK o KSYMPLE NQDB: SMD: SDB: NMDB: R:TDBL im MACRO (F510) @i@)d )_'D'  '&D&&t&zi LINK0 LINK1  SY00SY01g"lllll2y"'+1(6Z9ssssssssssssssssB ZO ? yk}|~ DI k,PDTDTk  '” ‘  z aKQL `+L Ą܄6MąHRM H @K6HS 0 K6G1 BED  1K6 PK6 RH pK61I EuF5 1 x @LM H@AD DEFIJN `+$  G# B )31;C) 315 O)31,C) 3 1&B`#   @FО1 tBED K 1 # H C G#  @@žĄ@ q@C  CC7 # 7 # AXKA  C CNyAXQA  @ CXQAC  mEL#  D@A## F 1DQD @|F #  An iteration count (;n) may follow a,b,c and d. Ca,b,c - Copy contents of locations a-b to c onwards Da,b[,ex] - Dump locations a-b with execution address :80 [or ex] Fa,b,c - Fill locations a-b with value c G[g[n]] - Display G0 to GZ, [ or Gg only [ or set Gg to n ]] I[S]a - Inspect [Symbolically] location SAMPLE PROGRAM JCL - 84-94240-71 (B050) AS UF SD/SYNC/ MACRO SAMPLE(L=) LINK SAMPLE.BIN=SAMPLE.OBJ(AB=40,EX=TEST:EDB)+ SD/LBR/SYMPLE.LBR  x [or Symbolic] page from [or in Vicinity of] a LOAD or V - LOAD or Verify previously dumped program - NOT Cartos N and P - Break at Next location or Previous one R[r[n]] - Display User context, [ or Rr only [ or set Rr to n ]] S[S]a,b,c[,R] - Search for c in locations a-b, [ with References to c ] [ with Symbolic display ] Y - Display SYMPLE memory limits Za,b,c,d - List chain from a, b words per entry, using c as link- word offset, d words output per line ĿĞIƻ } ? I˰ H{ 1ZǧQ*i昞Q$lasDD@I ;RjHކ ,mO k y7 UƗq ǿÏ@gË1Ŧz+)ǂ #N /N %vu ~{zl b  '  ~j ~6܆ʿt G6ˎl. OežI ,(ٿ߂AQAƳ Gd؃ІVLKޥޟ GޝH?Tyޖo GE7rވކsO] z@wi St Y VqB@u Xr 0hi  , gI x ºǽǻƶ ,dA `DM@ q @ @KqK/@H,@K@+ƃF MRAI@AMM)R2ޅ{ ~ $xɂv 2"p2kbhz򾩂c1i2A_ƟI ,QHƚ , RI -HԢ3ʿ҃H@IQĈA˾8Z ,9ğy1I1z½Fz &u$epuƠ@ Fb@⑾ޏy@|@QE %`w y  g  ~` <WQ k 'o ʿ˞{ž%pudead^T\zZZAW@AN @ ǂ@@QþH`@àQA]GWyߚZ䃌.xk@@`bj o ^ x  ɿư° ,QIƬ­ ,ƪ¨ ,Qdƣœ@Aƞɂޒޖ Jgމo g } P B P Bpo~z B ق P jmT ~  b p kT6%{ =vwHjTyH|HwffdI#`C 1N&#ȂV#U RPUOaKY GGCX7{0|3{T  , I|}Iƕ 1Aw + -rr @Aj1{Ixz P R G $ '@JSM JMM `N1^]_d\ZZΞ˃SNq@rȞþ @DCE=??I %C @'BUt@ʩqpAPXSQLYKDC Z A 9 0u@po j    Q b !O}gyusH .M&{xf3AK1a1K .ѾBITY1)̞̿e . IJ @ ! * ; &;%#aH` < s5¿*xCkvu *z{`@y ' ] k` ~ mZ T <  6@ f{`@{xyæQArrNRkiBr?Jr?C ,=\Iiu   b 'ǃA@̃A@w†t`@bh.cz % *s`@N`@I+htL @DC` ?Q A֐Q ?x k^ ! x *  '` Bp  ^ ^  ^ ^ ^ ^ ^ @6 *Q@6 >I@6D@6B@6 (A@6 K=@6 X9@6 Y5 )3?  :II 0"II q . D%'uI q , L@?6C ? R A@6 O ?@/6MSSOVCY??éNXC w@y@> =:89z - s =x   S(9 i㄀A߃e k.wu uxxkn@A` BkkQA1i}VI       ymM.8܀P@KDևBOA@̃=6@6R6@o6@?@6@6C 6@Ƿ/.@6@6 t 6@ y6@@̢1A@o6@_6@O6@6@6 S_@@o6@?H ^ wu@6‹@@6‹@@6rk @@6I@6D6@^\c 6@y@6@@6Br)@.@K 6+F. 6@"c }CzDx z B|3  @uu kpqpy| p{ "Ɣp(%'N+p( z a „₟l,,×LT% b  P|   ~ Hxz  I| H Hz r|lw i2gAonSks  0y 4@1I{ y :{yk wpP@)p p:CDfABa_r@XCZ Q^ C    .@G@?_cjnqz  ):QA(Ã7 q y@6YH@QJs@qn ?H@QB hg >bbH@QJZ@XU H@QB PO (J@6HHF X Y )@|@l;rƨ@5¢L -.@|, ('% K X Y\@| ʐ@\@Lj  Y @ rҿ0ξĿɿž ,.ý L @<Ƿ A OO@ @,ǫ @NqB)5 }|.ͿH@Q1H@Q1w ¿ Aw X  3  w -xuFĞZl Simk Wh ?H@QB߾ J_߻ V *Sy@PROsr/H =|Il@H@Q@? : 7 324@zJ/vuC '&po ; q r Y  yyxv pAmljit^ Z A xPp\  . : QA߃ ÂڿٞҞ ܾH -Tɞz P_և֟փ ɞ_ ` ( W žiöF{¤@wut7@K|x çLP uwU)FLSPTW q k Zj L ~)%'+ts C <ƎQAŒ%C @'އp{y挢y%'t pn p IjQKƑƗéLPLBLBLTp UC~z LO~z `CI~ ˆ%C @' Apd~ µQ` O v ؿsI ,p@ 9 IeeIDIVpu  p@ILmREV:00v  yo$y D ǿt P T Bnjgg P F M Z W]ZoF pjW TV@P LO@C ~ }@Ai C I O P`]6[BkhfBRO6ўsBS6lFÂ;ne ~ Ɗ抟z ⇢ƒz*@@UC.9 d8Nam>@  @ n k LIP HIP  IP PIP % > U3# JkB AC B c A a 8  L@ .% E "e  Ntf L, 6 6 'N *k mm d  d d  d  N     )' *tG %g '>Ea'k d  d N   8  8  k PIP LIP  IP HIP !M.M M II(  )()()%ED%N()*( a  >@ N V\\N\6\6\k d d@ d d@NN  @  @aa)>@>Bkk*t%*k\NT\%1T\E0nS\5LnS& L&\)P&M'8,&MT&=T&}5&mHVN&Nc&1c&c&T&F&;F&]@ %HbbL.E0& L& LN d d|mF3ECE5E3--E3E1R  TITL DEVICE CONTROL TABLE OFFSET DEFINITIONS - 84-94240-67 (B050) * ******************************************************************** * * Device Control Table * DCT * * +----------+ * 0 | DCT:CIB | Address of Controller Information Block * +----------+ * 1 | DCT:RRC | Receive operation retry count * +----------+ * 2 | DCT:RCB | Receive request control block address * +----------+ * 3 | DCT:TRC | Transmit operation retry count * +----------+ * 4 | DCT:TCB | Transmit request control block adress * +----------+ * 5 | DCT:CRC | Control Operation retry count *  +----------+ * 6 | DCT:SIC | Status interrupt count * +----------+ * 7 | DCT:ACT | Device control active flag * +----------+ * 8 | DCT:WRC | Waiting for reset completion flag * +----------+ * 9 | DCT:RDR | Request device reset flag * +----------+ * 10 | DCT:INT | Timeout interval count for reset * +----------+ * 11 | DCT:DCF | Device condition flags * +----------+ * 12 | DCT:EPT | Event processor table address * +----------+ * 13 | DCT:IDT | Idle line disconnect timeout interval * +----------+ * 14 | DCT:WDT | Watchdog timer control blcok address *  +----------+ * 15 | DCT:SCS | Synchronous controller selection word * +----------+ * 16 | DCT:TRM | Termination table address * +----------+ * 17 | | * +----------+ *  18 | DCT:REG | Register data for initialize (2 words) * +----------+ * 19 | | *  +----------+ * 20 | DCT:RCS | Receive completion status * +----------+ * 21 | DCT:RBC |  Receive byte count * +----------+ * 22 | DCT:RCI | Receive completion interrupt location * +----------+ * 23 | | * +----------+ * 24 | DCT:TCS | Transmit completion status *  +----------+ * 25 | DCT:TBC | Transmit byte count * +----------+ * 26 | DCT:TCI | Transmit completion interrupt location * +----------+ * 27 | | * +----------+ *   28 | DCT:CCS | General status * +----------+ * 29 | | * +----------+ * 30 | DCT:SCI | Status completion interrupt location * +----------+ * 31 | | * +----------+ * 32 | DCT:TSCS | Synchronous controller selection word * +----------+ * 33 | DCT:THBA | Header buffer addres * +----------+ * 34 | DCT:THBC | Header byte count * +----------+ *  35 | DCT:BBA | Body buffer address * +----------+ * 36 | DCT:BBC | Body byte count *  +----------+ * 37 | DCT:TFRM | Header frame for transmit * +----------+ * 38 | | *  +----------+ * 39 | | * +----------+ * 40 | | * +----------+ * 41 | DC:RSCS | Synchronous controller selection word * +----------+ * 42 | DC:RHBA | Header buffer address for receive * +----------+ * 43 | DC:RHBC | Header byte count for receive *  +----------+ * 44 | DC:RBBA | Body buffer address for receive * +----------+ * 45 | DC:RBBC | Body byte count for receive * +----------+ * 46 | DC:RFRM | Header frame for receive (4 words) * +----------+ * 47 | | * +----------+ * 48 | | * +----------+ * 49 | | * +----------+ * * DCT OFFSET EQUATES * DC:CIB EQU 0 CONTROLLER INFORMATION BLOCK ADDRESS DC:RRC EQU 1 RECEIVE OPERATION RETRY COUNT DC:RCB EQU 2 RECEIVE REQUEST CONTROL BLOCK ADDRESS DC:TRC EQU 3 TRANSMIT OPERATION RETRY COUNT DC:TCB EQU 4 TRANSMIT REQUEST CONTROL BLOCK ADDRESS DC:CRC EQU 5 CONTROL OPERATION RETRY COUNT DC:SIC EQU 6 STATUS INTERRUPT COUNT DC:ACT EQU 7 DEVICE CONTROL ACTIVE FLAG DC:WRC EQU 8 WAITING FOR RESET COMPLETION FLAG DC:RDR EQU 9 REQUEST DEVICE RESET FLAG DC:INT EQU 10 TIMEOUT INTERVAL COUNT FOR RESET DC:DCF EQU 11 DEVICE CONDITION FLAGS DC:EPT EQU 12 EVENT PROCESSOR TABLE ADDRESS DC:IDT EQU 13 IDLE LINE DISCONNECT TIMEOUT INTERVAL DC:WDT EQU 14 WATCHDOG TIMER CONTROL BLOCK ADDRESS DC:SCS EQU 15 SYNCHRONOUS CONTROLLER SELECTION WORD DC:TRM EQU 16 TERMINATION TABLE ADDRESS DC:REG EQU 18 REGISTER DATA FOR INITIALIZE DC:RCS EQU 20 RECEIVE COMPLETION STATUS DC:RBC EQU 21 RECEIVE BYTE COUNT DC:RCI EQU 22 RECEIVE COMPLETION INTERRUPT LOCATION DC:TCS EQU 24 TRANSMIT COMPLETION STATUS DC:TBC EQU 25 TRANSMIT BYTE COUNT DC:TCI EQU 26 TRANSMIT COMPLETION INTERRUPT LOCATION DC:CCS EQU 28 GENERAL STATUS DC:SCI EQU 30 STATUS COMPLETION INTERRUPT LOCATION DC:TSCS EQU 32 SYNCHRONOUS CONTROLLER SELECTION WORD DC:THBA EQU 33 HEADER BUFFER ADDRESS DC:THBC EQU 34 HEADER BYTE COUNT DC:TBBA EQU 35 BODY BUFFER ADDRESS DC:TBBC EQU 36 BODY BYTE COUNT DC:TFRM EQU 37 HEADER FRAME FOR TRANSMIT DC:RSCS EQU 41 SYNCHRONOUS CONTROLLER SELECTION WORD DC:RHBA EQU 42 HEADER BUFFER ADDRESS DC:RHBC EQU 43 HEADER BYTE COUNT DC:RBBA EQU 44 BODY BUFFER ADDRESS DC:RBBC EQU 45 BODY BYTE COUNT DC:RFRM EQU 46 HEADER FRAME FOR RECEIVE * DCT:SIZ EQU 50 SIZE OF DCT TABLE * * SYNCHRONOUS CONTROLLER SELECT (DC:RSCS, DC:TSCS) * SCS:CH N EQU 7 CHANNEL A/B SELECTION FLAG SCS:NMA EQU 6 DO NOT SCAN FOR ADDRESS MATCH FLAG SCS:NRTS EQU 5  DO NOT LEAVE RTS HIGH FLAG SCS:NDTR EQU 4 DO NOT TURN ON DTR FLAG SCS:DIS EQU 3 DISABLE STATUS INTERRUPTS FLAG * BITS 1-0 SCS:OPRB EQU 0 STARTING BIT FOR CONTROLLER OPERATION CODE SCS:OPRM EQU :3 MASK FOR CONTROLLER OPERATION CODE * * DEVICE CONDITION FLAGS (DC:DCF) * DCF:OPR EQU 15 LINE OPERATIONAL FLAG DCF:WTA EQU 14 WATCHDOG TIMER ACTIVE FLAG DCF:NOP EQU 13 NOP RESPONSE PENDING FLAG DCF:RAR EQU 12 RECEIVE ABORT REQUESTED FLAG DCF:ROR EQU 11 RECEIVE OPERATION REQUESTED FLAG DCF:TOR EQU 10 TRANSMIT OPERATION REQUESTED FLAG DCF:RVR EQU 9 RECEIVE OPERATION VERIFICATION REQUIRED FLAG DCF:TVR EQU 8 TRANSMIT OPERATION VERIFICATION REQUIRED FLAG DCF:RIP EQU 7 RECEIVE OPERATION IN PROGRESS FLAG DCF:TIP EQU 6 TRANSMIT OPERATION IN PROGRESS FLAG * * DEVICE STATUS FLAGS (DC:DSF) * DSF:CPL EQU 15 OPERATION COMPLETE FLAG DSF:RIP EQU 14 RECEIVE COMMAND IN PROGRESS FLAG DSF:TIP EQU 13 TRANSMIT COMMAND IN PROGRESS FLAG DSF:TST EQU 12 TEST MODE SIGNAL STATE DSF:CTS EQU 11 CLEAR TO SEND SIGNAL STATE DSF:DCD EQU 10 DATA CARRIER DETECT SIGNAL STATE DSF:RI EQU 9 RING INDICATOR SIGNAL STATE DSF:DSR EQU 8 DATA SET READY SIGNAL STATE DSF:CRC EQU 7 RECEIVE CRC ERROR FLAG DSF:ROV EQU 6 RECEIVE OVERRUN ERROR FLAG DSF:ABO EQU 5 RECEIVE ABORT ERROR FLAG DSF:TUN EQU 4 TRANSMIT UNDERRUN ERROR FLAG DSF:DMA EQU 3 DMA ERROR FLAG DSF:INT EQU 2 INTERFACE ERROR FLAG DSF:XXX EQU 1 RESERVED FOR FUTURE USAGE DSF:RDP EQU 0 RECEIVE DATA PRESENT FLAG * * DCT:SY MACRO * * This macro generates a Device Control Table * for a synchronous Communications Handler * * Calling sequence: DCT:SY P1,P2,P3,P4 * where: * * (1) IDLE DISCONNECT TIMEOUT * (2) ADDRESS OF ICB RECEIVE * (3) ADDRESS OF ICB TRANSMIT * (4) ADDRESS OF ICB CONTROL * DCT:SY MACRO CHECKP: #(?),4,4 WORD 0 DC:CIB WORD 0 DC:RRC WORD 0 DC:RCB  WORD 0 DC:TRC WORD 0 DC:TCB WORD 0 DC:CRC WORD 0 DC:SIC WORD 0 DC:ACT WORD 0 DC:WRC WORD 0 DC:RDR WORD 0 DC:INT WORD 0 DC:DCF WORD 0 DC:EPT WORD #(1) DC:IDT WORD 0 DC:WDT WORD 0 DC:SCS WORD 0 DC:TRM WORD 0 WORD 0 DC:REG WORD 0 WORD 0 DC:RCS WORD 0 DC:RBC SCNTX #(2)+ICB:S DC:RCI WORD 0 DC:TCS WORD 0 DC:TBC SCNTX #(3)+ICB:S DC:TCI WORD 0 DC:CCS WORD 0 SCNTX #(4)+ICB:S DC:SCI WORD 0 DC:TSCS WORD 0 DC:THBA WORD 0 DC:THBC WORD 0 DC:TBBA WORD 0 DC:TBBC WORD 0 DC:TFRM WORD 0 WORD 0 WORD 0 WORD 0 DC:RSCS WORD 0 DC:RHBA WORD 0 DC:RHBC WORD 0 DC:RBBA WORD 0 DC:RBBC WORD 0 DC:RFRM WORD 0 WORD 0 WORD 0 ENDM sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII  TITL SYNC COMM I/O PROCESSOR BLOCK - SY:IPB.MAC - 84-94240-60 (B050) ******************************************************************** * * * Synchronous Communications  * * I/O Processor Block * * Extension  * * * *  * * +----------+ * * 0 | IPB:FLG1 | Flag word * * +----------+ * *  1 | IPB:CQH | Completion Queue Head Pointer * * +----------+ * * 2 | IPB:CQT | Completion Queue Tail Pointer * * +----------+  * * 3 | IPB:CQS | Completion Queue Semaphore ID * * +----------+  * * 4 | IPB:CIB | Controller Information Block addr * * +----------+  * * 5 | IPB:DCT | Device Control Table address * * +----------+ * * 6 | IPB:GCNT | Global connect count * *  +----------+ * * 7 | IPB:ICBR | Receive ICB address * *  +----------+ * * 8 | IPB:ICBT | Transmit ICB address  * * +----------+ * * 9 | IPB:ICBC | Control/status ICB address * * +----------+ * * 10 | IPB:IQID | Input Queue Identifer * * +----------+ * * * IPB:FLG1 - Flag word 1, defined as follows: * * Bit 15 (IPBN:PRE) - Pre-Processor Interface Activity mounted * Bit 14 (IPBN:PST) - Post-Processor Interface Activity mounted * * IPB:CQH - Completion Queue Head Pointer. This word contains * the address of the head of the list of Buffer Information * Blocks (BIBs) or Control Request Blocks (CRBs) which the * Handler has completed processing. If used with the * standard interface, the post-Processor Task will remove * these requests from the queue. * * IPB:CQT - Completion Queue Tail Pointer. This word contains * the address of the tail of the list of Buffer information * Blocks (BIBs) or Control Request Blocks (CRBs) which the * Handler has completed processing. * * IPB:CQS - Completion Queue Semaphore. This word contains the * ID of the semaphore to be signaled when a BIB or CRB is * added to the completion queue and the queue is empty. This * semaphore will not be signaled if the queue already has * a request waiting for completion processing. If the * standard interface is being used, the  Post-Processor * will be the Activity waiting on the semaphore. * * IPB:CIB - Controller Information Block address.  This word * is not loaded at sysgen time but is determined by the * Handler interface at execution time. * * IPB:DCT - Device Control Table address. This word is loaded * at sysgen time. * * IPB:GCNT - Global connect count. This word contains the * total connect count of all protocol links on any given * communications line. * * IPB:ICBR - Recieve Interrupt Control Block address. This * word contains the address of the ICB for the receive interrupt * of the synchronous controller. * * IPB:ICBT - Transmit Interrupt Control Block address. This * word contains the address of the ICB for the transmit interrupt * of the synchronous controller. * * IPB:ICBC- Control/Status Interrupt Control Block address. This * word contains the address of the ICB for the control/status * interrupt of the synchronous controller. * * IPB:IQID - The Queue id of the Queue created at intitial mount * time. This Queue must be destroyed at final dismount. * ************************************************************************* * * * DEFINE THE EQUATES FOR THE I/O PROCESSOR BLOCK TABLE * * IPB:FLG1 EQU IPB:SIZB+0 SYNC COMM FLAG WORD IPB:CQH EQU IPB:SIZB+1 COMPLETION QUEUE HEAD POINTER IPB:CQT EQU IPB:SIZB+2 COMPLETION QUEUE TAIL POINTER IPB:CQS EQU IPB:SIZB+3 COMPLETION QUEUE SEMAPHORE ID IPB:CIB EQU IPB:SIZB+4 CONTROLLER INFORMATION BLOCK IPB:DCT EQU IPB:SIZB+5 DEVICE CONTROL TABLE ADDRESS IPB:GCNT EQU IPB:SIZB+6 GLOBAL CONNECT COUNT IPB:ICBR EQU IPB:SIZB+7 READ INTERRUPT CONTROL BLOCK IPB:ICBT EQU IPB:SIZB+8 WRITE INTERRUPT CONTROL BLOCK IPB:ICBC EQU IPB:SIZB+9 CONTROL INTERRUPT CONTROL BLOCK IPB:IQID EQU IPB:SIZB+10 INPUT QUEUE IDENTIFIER * * THIS IS THE FIRST PARAMETER OF THE STANDARD IPB MACRO (IPB:) * AND MUST REFLECT THE TOTAL SIZE OF THE IPB INCLUDING THE * SYNC IPB EXTENSION * IPB:SYEX EQU 11 SIZE OF THE COMMON IPB + THE SYNC IPB EXTENSION * * FLAG WORD EQUATES (IPB:FLG) * IPBN:PRE EQU 15 PRE-PROCESSOR MOUNTED IPBN:PST EQU 14 POST-PROCESSOR MOUNTED * * FLAG WORD MASKS (IPB:FLG) * IPBF:PRE EQU 1%IPBN:PRE PRE-PROCESSOR MOUNTED IPBF:PST EQU 1%IPBN:PST POST-PROCESSOR MOUNTED * * *IPB:SY MACRO * * Synchronous communications I/O Processor Block * * Calling Sequence: IPB:SY P1,P2,P3,P4 * where: * * (1) ADDRESS OF DEVICE CONTROL TABLE * (2) ADDRESS OF READ INTERRUPT CONTROL BLOCK * (3) ADDRESS OF WRITE INTERRUPT CONTROL BLOCK * (4) ADDRESS OF CONTROL/STATUS INTERRUPT CONTROL BLOCK * * * There are no defaults for these parameters! * IPB:SY MACRO CHECKP: #(?),4,4 IPB:FLG1 WORD: 0 SYNC FLAG WORD IPB:CQH WORD: 0 COMPLETION QUEUE HEAD POINTER IPB:CQT WORD: 0 COMPLETION QUEUE TAIL POINTER IPB:CQS WORD: 0 COMPLETION QUEUE SEMAPHORE ID IPB:CIB WORD: 0 PROTOCOL INFORMATION BLOCK IPB:DCT WORD: #(1) ADDRESS OF DEVICE CONTROL TABLE IPB:ICBR WORD: #(2) READ INTERRUPT CONTROL BLOCK IPB:ICBT WORD: #(3) WRITE INTERRUPT CONTROL BLOCK IPB:ICBC WORD: #(4) CONTROL INTERRUPT CONTROL BLOCK TEND: ENDM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  TITL SYNC COMM INTERRUPT CONTROL BLOCK - SY:ICB.MAC - 84-94240-61 (B000) ***************************************************************** * * Synchronous Communications Interrupt * Control Block extension * * +----------+ * 0 | ICB:DCT | Device Control Table address * +----------+ * * ICB:DCT - Device Control Table address. This word must be * loaded at sysgen time. * ****************************************************************** * * ICB:DCT EQU ICB:SIZB+0 ADDRESS OF DCT * * THIS IS THE FIRST PARAMETER OF THE STANDARD ICB MACRO (ICB:) * AND MUST REFLECT THE TOTAL SIZE OF THE ICB INCLUDING THE * SYNC ICB EXTENSION * ICB:SYEX EQU ICB:SIZB+1 SIZE OF ICB + SYNC ICB EXTENSION * * ICB:SY MACRO * * Builds the Interrupt Control Blocks for the * Synchronous Communications Handler * * Calling sequence: IPB:SY P1 * where: * * (1) ADDRESS OF DEVICE CONTROL TABLE * * This macro has no default parameters! * ICB:SY MACRO CHECKP: #(?),1,1 ICB:DCT WORD: #(1) DCT ADDRESS TEND: ENDM ***IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII TITL SYNCHRONOUS TABLE MACROS - SY:TABLES.MAC - 84-94240-62 (B050) * * SY:TABLES.MAC 84-94240-62 (B050) * * MACROS AND EQUATES FOR SYNCHRONOUS COMM HANDLER TABLE * GENERATION. * * THIS DEFINITION FILE IS USED WITH SY:TABLES.ASM * * THE FOLLOWING MACROS ARE DEFINED IN THIS MODULE: * * IDLETO - Sets idle disconnect timeout value * * Calling sequence: IDLETO * *  n - specifies the disconnect interval in one-twentieth-of-a * second units. This parameter is used for switched lines * to indicate the amount of time a line is idle (no line * activity) bvefore it is disconnected. The interval can * range from 0 (no idle disconnect) to 1200 units (60 seconds). * * CMNT - Prints a comment in the listing * * Calling Sequence: CMNT p1,p2,p3,p4,p5,p6,p7,p8,p9 * where p1-p9 are comment lines * * SYNC - Builds 1 IPB, 3 ICBs and 1 DCT * * Calling sequence: SYNC ,, * where: * * channel - Channel number on Synchronous Communications * Controller (0 or 1) * pun - physical unit name. Two letters followed by *  two numbers. * cont - Synchronous Communications controller number. * (0-n). **************************************************************** * IDLETO XMACRO TO SET #(1) ENDM * * MACRO TO GENERATE COMMENTS * CMNT XMACRO SPACE 1 ****** #(1) #(2) #(3) #(4) #(5) #(6) #(7) #(8) #(9) SPACE 1 ENDM * * MACRO TO BUILD TABLES FOR A SYNCRONOUS COMMUNICATIONS HANDLER * THIS MACRO BUILDS AN IPB, 3 ICBS, AND 1 DCT * SYNC XMACRO CMNT channel=#1,pun='##2',cont=#3,IPB=P:SYD#3#1 CMNT readicb=C:SYC#3#1R,writeicb=C:SYC#3#1T CMNT controlicb=C:SYC#3#1C OLDOPS OPTIONS +0 CL SET CLASS:SY P:SYC#3#1 IPB: IPB:SYEX,IP B:LDHM,CL,'##(2)',SY:EID,'PR',0,0,Y:SYPRE,0,1 IPB:SY D:SYC#3#1,C:SYC#3#1R,C:SYC#3#1T,C:SYC#3#1C C:SYC#(3)#(1)R ICB: ICB:SYEX,0  ICB:SY D:SYC#(3)#(1) C:SYC#(3)#(1)T ICB: ICB:SYEX,0 ICB:SY D:SYC#(3)#(1) C:SYC#(3)#(1)C ICB: ICB:SYEX,SY:EOBC ICB:SY D:SYC#(3)#(1) D:SYC#(3)#(1) DCT:SY TO,C:SYC#(3)#(1)R,C:SYC#(3)#(1)T,C:SYC#(3)#(1)C OPTIONS OLDOPS ENDM eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII SYNCGEN.JCL - 84-94240-70 (B050) AS UF UD/SYNC/ AS X1 SD/MAC/ AS X2 UD/SYNC/ ASSEMBLE SYNCHRONOUS CONFIGURATION FILE MACRO SYNC:CONFIG(L=) LINK CONFIGURATION FILE AND SYNC LIBRARIES TOGETHER DO NOT ALTER THE ORDER OF THE LINK FILES DELETE SY:B050.MAP CREATE SY:B050.MAP AS LO=SY:B050.MAP LINK SY:B050.BIN=X2/SYNCA.LBR(AB=0000)+ SYNC:CONFIG.OBJ(UL)+ X2/SYNCB.LBR  TITL SYNCHRONOUS HANDLER TABLES - SY:TABLES - 84-94240-20 (B050) * * SY:TABLES.ASM - 84-94240-20 * * SYNC TABLES * * * This file contains the macro calls which build the system * tables for the Synchronous Communications Handler. * The macro calls not used for a particular configuration * are removed by making them a comment line. As part of the * system generation process, this file should be modified * to reflect the Sync Communications Handler configuration * * The following macros are invoked from this module: * * SYNC - Defines a SYNChronous device and builds all required tables. * It should be noted that all parameters for the SYNC macro * must be identical to the corresponding parameters for * the CIB and PLB macros found in SYNC:CONFIG.ASM in the * Synchronous Environment. * * Calling seqence: SYNC  P1,P2,P3 * where: * * (1) Synchronous Controller channel number (0 or 1) * (2) physical unit name--The physical * unit names are encoded with a type number * and a channel number. This allows a * device's physical connection to the machine * to be identified by the PUN. If desired, * the PUNs can be changed to any 2 letters * followed by 2 numbers. * (3) controller number (0-n) * * IDLETO - Sets the Idle Disconnect Timeout value * * Calling sequence: IDLETO P1 *  where: * * (1) specifies the disconect interval in one-twentieth- * of-a-second units. This parameter is used for * switched lines to indicate the amount of time * a line is idle (no line activity) before it is * disconnected. The interval can range from 0 * (no idle disconnect) to 1200 units (60 seconds). * Default is zero. * * For each channel of a Synchronous Communication s Controller, * there is one I/O Processor Block (IPB), three Interrupt * Control Blocks (ICBs) and one Device Control Table (DCT). * IPBs and ICBs are standard CARTOS system tables, whereas * the DCT is a table defined in the system especially for * the Synchronous Handler. All of these tables follow the * standard CARTOS naming conventions. * * The IPB and DCT names are of the form: * * P:SYtcn or D:SYtcn * * t = controller type (C for Computer Automation) * c = controller number (All Sync Controllers * must have a unique number, 0-n) * n = channel number (0 or 1) * * The ICB names are of the form: * * C:SYtcnR (receive interrupt) * C:SYtcnT (transmit interrupt) * C:SYtcnC (control/status interrupt) * * t, c, and n are the same as the corresponding * IPB and DCT for the device. * ************************************************** * * * DEFINITION FILES * *INCLUDE SD/MAC/CKW.MAC *INCLUDE SD/MAC/SSB.MAC *INCLUDE SD/MAC/IPB.MAC *INCLUDE SD/MAC/ICB.MAC *INCLUDE SD/MAC/SYSCOMMON.MAC *INCLUDE SD/MAC/USERCOMMON.MAC *INCLUDE SD/MAC/IOPRIO.MAC *INCLUDE SD/MAC/X:COMMON.MAC *INCLUDE SD/MAC/SY:IPB.MAC *INCLUDE SD/MAC/SY:ICB.MAC *INCLUDE SD/MAC/DCT.MAC *INCLUDE SD/MAC/SY:TABLES.MAC * OLDOPS OPTIONS +4 INCLUDE SD/MAC/CKW.MAC INCLUDE SD/MAC/SSB.MAC INCLUDE SD/MAC/IPB.MAC INCLUDE SD/MAC/ICB.MAC INCLUDE SD/MAC/SYSCOMMON.MAC INCLUDE SD/MAC/USERCOMMON.MAC INCLUDE SD/MAC/IOPRIO.MAC INCLUDE SD/MAC/X:COMMON.MAC INCLUDE SD/MAC/SY:IPB.MAC INCLUDE SD/MAC/SY:ICB.MAC INCLUDE SD/MAC/DCT.MAC INCLUDE SD/MAC/SY:TABLES.MAC OPTIONS OLDOPS SAVE END * EXTR SY:EOBC * DMA: REL SHARABLE DMA: ALL SYSTEM TABLES MUST BE IN DMA: REL * * SET IDLE DISCONNECT TIMEOUT VALUE * IDLETO 0 * * SYNCRONOUS DEVICES * SYNC 0,SY00,0 SYNC 1,SY01,0 END IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII TITL SYNC CONFIG - SYNC:CONFIG - 84-94240-21 (B050) ************************************************** * * SYNC:CONFIG - SYNCHRONOUS COMMUNICATIONS CONFIGURATION FILE * * * This file contains macro calls which build the tables * for the Synchronous Communications Handler Tasks. * Macro calls not used for a particular configuration are * removed by making them a comment line. As part of the * system generation process, this file should be modified * to reflect any changes to the Synchronous communications * Handler options or hardware. Note that certain parameters for * the CIB and PLB macros must correspond to the parameters in the * IPB macro found in SY:TABLES.ASM. * * The following macros are invoked from this module: * NOTE--Each of the following macros has optional parameters. * This means that the parameters may be entered in any order * or omitted. * * CIB:SY - Defines a Controller Information Block per physical * line of a synchronous controller. * *  Calling sequence: CIB:SY P1,P2,P3,P4,P5,P6 * * (1) Device address of sync controller * (2) Name of Physical Line - The physical * unit names are encoded with a type number *   and a channel number. This allows a device's physical * connection to the machine to be identified by the PUN. * This parameter should match the physical * unit name found in the I/O Processor Block (IPB) * in SY:TABLES.ASM. * (3) Channel number on sync controller (0 or 1) * (4) Controller number (0-n) * (5) Bit rate of the line in 100 BIT/SECOND units * (6) Name of the CIB for the paired Controller channel * * Seven Optional Parameters: * * INT - specifies that the user program is to *  access the Handler by the internal interface * rather than the standard interface. The *  default is the standard interface. * SL or DL - specifies a switched or a dedicated line. *  Select one. Default is DL. * AA or MA - specifies automatic or manual answering. * Select one.  Default is MA. * PP or MP - specifies a point-to-point or a multipoint * line. Select one. Default is PP. * TA or TS - specifies a two-way alternate or a two-way * simultaneous operation. Select one. Default is TS. * BP=nnnn - specifies the base priority level assigned * to the Handler activities on this communications * line. The hexadecimal level can range from :7108 * (the priority of the interface routines) to :7FFF. * The default value is 7A00. * ML=nnn - specifies the maximum number of active * protocol links that may user this communications * line, and is used by the Handler to allocate * internal control blocks. The range is 1 to 253 * with default of 1. * * * PIB:SY - defines a Protocol Information Block for any group * of protocol options * * Calling sequence: