(George Source)
22FL #SKI 22^= ( 23DW 23YG [ MACS MISW COMM SECTION 24D6 24XQ 25CB [ 25X2 [CONTENTS LIST:- 26BL [ 26W= [ ATTONL CONC 27*W [ AUTMOP IPB 27TG [ BBREAKIN 28*6 [ BRKINOFF 28SQ [ BROKIN 29#B [ CCBRKIN [R.WEYAND 29S2 [ CCILL IPB [R.WEYAND 2=?L [ CHAINACT [M WILSON & D PLATTEN 2=R= [ CHANG 2?=W [ CHANGALL 2?QG [ CHANGMOD IPB 2#=6 [ CHANGVD IPB [R.WEYAND 2#PQ [ CHKBREAK 2*9B [ CIBRKIN [SETIB3 IF B.I EFFECTED OK.P.WARNER 2*P2 [ CIOUT [P.WARNER 2B8L [ CLEARPASS IPB 2BN= [ CLEARVDU IPB 2C7W [ COMREADY [ COMMAND ISSUER READY MACRO 2CMG [ CONCISBY 2D76 [ CONSWIDTH SPC 2DLQ [ CRUNCHTIME [%A = TIME (IN SECS) AFTER WHICH 2F6B [ CTRINTLN IPB [BERYL SMITH 2FL2 [ FASTCONC CONC 2G5L [ FCONDCBE CONC [D. WEBSTER 2GK= [ FINDOC SPC 2H4W [ FINDOLP1 SPC 2HJG [ FINDOLPA SPC 2J46 [ FMOPACT [C.E.WILKINSON 2JHQ [ FMOPG [C.E.WILKINSON 2K3B [ FMOPG [LEN WAGSTAFF 2KH2 [ INCHECK OLPMACROS 2L2L [ INMOP OLPMACROS 2LG= [ INOPTIME IPB 2L^W [ IPBANON IPB 2MFG [ IPBATTACH CONC 2M^6 [ IPBBSW CONC [JAN SLOGROVE 2NDQ [ IPBCLATTACH CONC 2NYB [ IPBCONREQ CONC 2PD2 [ IPBCOUNT IPB 2PXL [ IPBDETACH CONC 2QC= [ IPBERRLOG IPB 2QWW [ IPBINLOAD CONC 2RBG [ IPBINOPID IPB [JAN SLOGROVE 2RW6 [ IPBNOPCK IPB [JAN SLOGROVE 2S*Q [ IPBNULL CONC 2STB [ IPBOUT IPB 2T*2 [ IPBOUTLOAD CONC 2TSL [ LISTDC2 IPB [JAN SLOGROVE 2W#= [ MEEPLP [R.WEYAND 2WRW [ MOPCLOSE 2X?G [ MOPOUT 2XR6 [ MOPSTATE [JAN SLOGROVE 2Y=Q [ MOPWAIT [M. WILSON 2YQB [ MOPWIDTH 2^=2 [ NOFLASH IPB 2^PL [ NPUOUTLP IPB [BERYL SMITH 329= [ NPUSIZE IPB 32NW [ OUTMOP OLPMACROS 338G [ IPBBSW [JAN SLOGROVE 33N6 [ PROPAGANDA IPB 347Q [ PUTPERENT SPC 34MB [ READY [C.E.WILKINSON 3572 [ RELPERENT SPC 35LL [ REOPEN IPB [R.WEYAND 366= [ RESTART SPC [C.E.WILKINSON :PERFORMS RESTARTS ON SLOW PERIPH 36KW [ RETAINAH CONC 375G [ S1901RJE IPB [R.WEYAND 37K6 [ SDADDWAIT IPB 384Q [ SMOPWAIT 38JB [ SNUIB [SWITCH THE MOP NO-USER-INPUT BIT. 3942 [ SUPNLIN 39HL [ SUPNLOUT 3=3= [ SYSCOMTE 3=GW [ TESTOUT 3?2G [ TERMIOFF IPB 3?G6 [ TRANSERR 3?^Q [ VDUCODE IPB [R.WEYAND 3#FB [ WHICHMOP IPB 3#^2 [ WRPVDUS JIB 3*DL [ ZERRORX 3*Y= [ ZERRORY 3BCW [ 3BXG [END OF LIST. 3CC6 [ 3CWQ 3DBB ) 3DW2 [??? BBREAKIN SECT COMM FGN 40 DOC 3F*L #SKI 3FT= ( 3G#W 3GSG ) 3H#6 #MAC BBREAKIN 3HRQ LDCT 0 #100 [SET BREAK-IN BIT 3J?B ANDX 0 GWAIT(%A) 3JR2 BNZ 0 %B [BRANCH IF BROKEN-IN ON 3K=L #NOR 3KQ= [??? BRKINOFF SECT COMM FGN 40 DOC 3L9W #SKI 3LPG ( 3M96 3MNQ ) 3N8B #MAC BRKINOFF 3NN2 LDX 2 FX2 3P7L LDX 0 JOBEVENTS(2) 3PM= BZE 0 MBRK 3Q6W LDCT 0 #300 3QLG ERX 0 BITS22LS 3R66 ANDX 0 JOBEVENTS(2) 3RKQ BNZ 0 %A 3S5B FJOCA 2,FX2 3SK2 LDCT 0 #100 3T4L ERS 0 JMISC(2) 3TJ= LDX 2 FX2 3W3W STOZ JOBEVENTS(2) 3WHG BROKIN 3X36 MBRK 3XGQ #NOR 3Y2B [??? BROKIN SECT COMM FGN 40 DOC 3YG2 #SKI 3Y^L ( 3^F= 3^YW ) 42DG #MAC BROKIN 42Y6 LDX 2 FX2 43CQ LDCH 0 JSOURCE1(2) 43XB SBN 0 10 44C2 BZE 0 MUX 44WL BCT 0 MNUXMX 45B= MUX MOPWAIT 45TW MNUXMX 46*G LDX 2 ACTRING(2) 46T6 LDX 1 FX1 47#Q SBN 2 ACTRING 47SB MBROKIN1 48#2 LDX 2 BPTR(2) 48RL BXE 2 FX2,MBROKIN4 49?= LDX 0 ATYPE(2) 49QW #SKI IPB 4==G BXE 0 MBROKADCB(1),MBROKIN2 4=Q6 BXE 0 MBROKALCB(1),MBROKIN3 4?9Q BXU 0 MBROKCILCB(1),MBROKIN1 4?PB LDX 0 MBROKCIMSK(1) 4#92 ANDS 0 CIREADY(2) 4#NL BRN MBROKIN4 4*8= MBROKCILCB 4*MW #HAL AMXOR+CILCB,0 4B7G MBROKCIMSK #76777777 4BM6 MBROKALCB 4C6Q #HAL AMXOR+ALCB,0 4CLB MBROKALMSK 4D62 #67773777 4DKL MBROKADCB 4F5= #HAL AMXOR+ADCB,0 4FJW MBROKADMSK #56377777 4G4G MBROKIN2 4GJ6 LDX 0 MBROKADMSK(1) 4H3Q ANDS 0 IWAIT(2) 4HHB BRN MBROKIN4 4J32 MBROKIN3 4JGL LDX 0 MBROKALMSK(1) 4K2= ANDS 0 GWAIT(2) 4KFW MBROKIN4 4K^G LDX 2 FX2 4LF6 #NOR 4LYQ [??? CCBRKIN SECT COMM FGN 40 DOC 4MDB #SKI 4MY2 ( 4NCL ) 4NX= #MAC CCBRKIN [R.WEYAND 4PBW [THIS MACRO MARKS A CC MOP ACTIVITY AS BEING BROKEN IN ON BY GEORGE 4PWG [%A=ADDRESS OF A MODIFIER WHEREIN IS THE ADDRESS OF THE CPAT TO BE 4QB6 [BROKEN IN ON 4QTQ HUNT2 %A,AMXOR,ADCB 4R*B LDCT 0 #10 [SET G3 BI BIT 4RT2 ORS 0 IWAIT(%A) 4S#L #NOR 4SS= [??? CHAINACT SECT COMM FGN 40 DOC 4T?W #SKI 4TRG ( 4W?6 4WQQ ) 4X=B #MAC CHAINACT [M WILSON & D PLATTEN 4XQ2 SMO FX2 4Y9L LDX 0 BPTR 4YP= CHAIN %A,0 4^8W #NOR 4^NG [??? CHANG SECT COMM FGN 40 DOC 5286 #SKI 52MQ ( 537B 53M2 ) 546L #MAC CHANG 54L= DOWN CHANG,1 555W #NOR 55KG [??? CHANGALL SECT COMM FGN 1 DOC 5656 #UNS ENHOPER 56JQ ( 574B #MAC CHANGALL 57J2 [ 583L [ CONVERT INPUT FROM OPER TO GRAPHIC 58H= [ 592W DOWN CHANG,3 59GG #NOR 5=26 ) 5=FQ [??? CHKBREAK SECT COMM FGN 40 DOC 5=^B #SKI 5?F2 ( 5?YL 5#D= ) 5#XW #MAC CHKBREAK 5*CG LDCT 0 #440 5*X6 ANDX 0 JOBEVENTS(%A) 5BBQ BNZ 0 %B 5BWB #NOR 5CB2 [??? CIBRKIN SECT COMM FGN 40 DOC 5CTL #SKI 5D*= ( 5DSW ) 5F#G #MAC CIBRKIN [SETIB3 IF B.I EFFECTED OK.P.WARNER 5FS6 HUNT2OPT %A,AMXOR,CILCB 5G?Q BNG %A MCIBRKIN 5GRB LDCT 0 8 5H?2 ORS 0 CIREADY(%A) 5HQL MCIBRKIN 5J== #NOR 5JPW [??? CIOUT SECT COMM FGN 40 DOC 5K9G #SKI 5KP6 ( 5L8Q 5LNB ) 5M82 #MAC CIOUT [P.WARNER 5MML #STR %A,0 5N7= LDX 0 %A [NO OF CHARS 5NLW #STR %A 5P6G #SKI 5PL6 NGN 0 1 5Q5Q SMO FX2 5QKB STO 0 ACOMMUNE7 5R52 DOWN CIOUT,1 5RJL #NOR 5S4= [??? COMREADY SECT COMM FGN 40 DOC 5SHW #SKI 5T3G ( 5TH6 [ 5W2Q 5WGB ) 5X22 #MAC COMREADY [ COMMAND ISSUER READY MACRO 5XFL MHUNTW 1,AMXOR,CILCB 5X^= BNG 1 M10 [ JUMP IF NO CILCB 5YDW LDCT 0 #40 5YYG ORS 0 CIREADY(1) [ SET BIT IN CILCB 5^D6 BRN MACI [MISS TRUEDORM & FREEBUFF 5^XQ M10 READY %A,COMR 62CB #NOR 62X2 [??? CONCISBY SECT COMM FGN 40 DOC 63BL #SKI 63W= ( 64*W 64TG ) 65*6 #MAC CONCISBY 65SQ SMO IPBRING(%A) 66#B LDX 0 ICA-IPBRING 66S2 BNG 0 %B 67?L #NOR 67R= [??? CRUNCHTI SECT COMM FGN 40 DOC 68=W #SKI 68QG ( 69=6 69PQ [ 6=9B [ RESTORE TIME MACRO TO CHANGE MOP TRANSFER CRUNCH TIME 6=P2 [ 6?8L ) 6?N= #MAC CRUNCHTIME [%A = TIME (IN SECS) AFTER WHICH 6#7W #STR %A,0 6#MG ( 6*76 #MEN MOPSTART [UNTERMINATED MPXR AND UPXR TRANSFERS 6*LQ #TRA K50MOPSTART [ARE CRUNCHED WITH A MODE 4 6B6B 60000/K9*%A 6BL2 #END 6C5L #MEN MOPPM 6CK= #TRA K50MOPPM 6D4W 60000/K9*%A 6DJG #END 6F46 ) 6FHQ #STR %B,0 6G3B ( 6GH2 #MEN MOPPM 6H2L #TRA K51MOPPM 6HG= 60000/K9*%B 6H^W #END 6JFG ) 6J^6 #NOR 6KDQ [??? FMOPACT SECT COMM FGN 40 DOC 6KYB #SKI 6LD2 ( 6LXL 6MC= ) 6MWW #MAC FMOPACT [C.E.WILKINSON 6NBG LDX 0 %B 6NW6 #STR %C 6P*Q LDX %A IPBADDR 6PTB #STR %C 6Q*2 #SKI 6QSL LDX %A ADMULTACT 6R#= BZE %A MFMOPACT1A 6RRW MFMOPACT1 6S?G BXE 0 CPPTR(%A),MFMOPACT2 6SR6 #STR %C 6T=Q LDX %A IPBL(%A) 6TQB #STR %C 6W=2 #SKI 6WPL LDX %A ADMP(%A) 6X9= BNZ %A MFMOPACT1 6XNW MFMOPACT1A 6Y8G NGN %A 4095 6YN6 MFMOPACT2 6^7Q #NOR 6^MB [??? FMOPG SECT COMM FGN 40 DOC 7272 #SKI 72LL ( 736= 73KW ) 745G 74K6 #SKI JSKI04<1$1 [PRE-COMMAND ISSUER 754Q ( 75JB #MAC FMOPG [C.E.WILKINSON 7642 #STR IPB,%C 76HL ( 773= LDX %A ADMULTACT 77GW BZE %A MFMOPG1A 782G MFMOPG1 78G6 LGEOG CPPTR(%A),0 78^Q BXE 0 %B,MFMOPG3 79FB LDX %A ADMP(%A) 79^2 BNZ %A MFMOPG1 7=DL MFMOPG1A 7=Y= ) 7?CW #STR %C,IPB 7?XG #SKI 7#C6 ( 7#WQ LDX %A IPBADDR 7*BB BZE %A MFMOPG2A 7*W2 MFMOPG2 7B*L LGEOG CPPTR(%A),0 7BT= BXE 0 %B,MFMOPG3 7C#W LDX %A IPBL(%A) 7CSG BNZ %A MFMOPG2 7D#6 MFMOPG2A 7DRQ ) 7F?B NGN %A 4095 7FR2 MFMOPG3 7G=L #NOR 7GQ= ) 7H9W 7HPG #SKI JSKI04 [COMMAND ISSUER 7J96 ( 7JNQ #MAC FMOPG [LEN WAGSTAFF 7K8B [ FINDS AMOP ACTIVITY. 7KN2 #STR %C,IPB 7L7L #SKI 7LM= ( 7M6W LDX %A IPBADDR [SEARCHES IPB CHAIN 7MLG BZE %A MFMOPG2A 7N66 MFMOPG2 7NKQ LDX 0 CPPTR(%A) [J.IF LOOKKING AT CI 7P5B BNG 0 MFMOPG2B [ACTIVITY 7PK2 LGEOG CPPTR(%A),0 7Q4L MFMOPG2B 7QJ= BXE 0 %B,MFMOPG3 7R3W LDX %A IPBL(%A) 7RHG BNZ %A MFMOPG2 7S36 MFMOPG2A 7SGQ ) 7T2B #STR IPB,%C 7TG2 ( 7T^L LDX %A ADMULTACT [CHAR.BUF. CASE 7WF= BZE %A MFMOPG1A 7WYW MFMOPG1 7XDG LGEOG CPPTR(%A),0 7XY6 BXE 0 %B,MFMOPG3 7YCQ LDX %A ADMP(%A) 7YXB BNZ %A MFMOPG1 7^C2 MFMOPG1A 7^WL ) 82B= NGN %A 4095 82TW MFMOPG3 83*G #NOR 83T6 ) 84#Q [??? MEEPLP SECT COMM FGN 59 DOC 84SB #SKI 85#2 ( 85RL [ 86?= [ RESTORE TIME MACRO TO DEFINE THE MEEP LP 86QW [ 87=G ) 87Q6 #MAC MEEPLP [R.WEYAND 889Q #MEN SETUPA 88PB #TRA K30SETUPA 8992 SBN 0 %A [%A = THE GEOGRAPHIC NO. OF THE MEEP 89NL [LP 8=8= #END 8=MW #NOR 8?7G [??? MOPCLOSE SECT COMM FGN 40 DOC 8?M6 #SKI 8#6Q ( 8#LB 8*62 ) 8*KL #MAC MOPCLOSE 8B5= SMO FX2 8BJW LDX 1 ACTRING 8C4G LDX 2 FX1 8CJ6 SBN 1 ACTRING 8D3Q MRET LDX 1 BPTR(1) 8DHB LDX 0 ATYPE(1) 8F32 BXE 0 MLCB(2),MLCB1 8FGL BXE 0 MDCB(2),MDCB1 8G2= BXU 1 FX2,MRET 8GFW LDX 1 FX1 8G^G LDX 2 FX2 8HF6 BRN MNCB 8HYQ MLCB 8JDB #HAL AMXOR+ALCB,0 8JY2 MDCB 8KCL #HAL AMXOR+ADCB,0 8KX= MLCB1 LDX 2 FX2 8LBW LDCH 0 JSOURCE1(2) 8LWG SBN 0 7 8MB6 BZE 0 MDCB1 8MTQ MOPWAIT 8N*B MHUNTW 1,AMXOR,ALCB 8NT2 MDCB1 LDX 2 A1+BPTR(1) 8P#L BZE 2 MDCB2 8PS= STOZ BPTR(2) 8Q?W STOZ A1+BPTR(1) 8QRG MDCB2 FREECORE 1 8R?6 MNCB 8RQQ #NOR 8S=B [??? MOPOUT SECT COMM FGN 40 DOC 8SQ2 #SKI 8T9L ( 8TP= 8W8W ) 8WNG #MAC MOPOUT 8X86 #STR %A,0 8XMQ LDX 0 %A [NO. OF CHS. 8Y7B #STR %A 8YM2 #SKI 8^6L NGN 0 1 8^L= LDX 2 FX2 925W STO 0 ACOMMUNE7(2) 92KG #UNS ECS 9356 TRUEDORM 93JQ #STR %B 944B #SKI 94J2 ( 953L LDCH 0 JSOURCE1(2) 95H= SBN 0 #30 962W BNZ 0 MMOPOUT1 96GG DOWN IPBMOP,1 9726 BRN MMOPOUT2 97FQ MMOPOUT1 97^B SBN 0 #44 98F2 BNZ 0 MMOPOUT3 98YL DOWN CIOUT,1 99D= BRN MMOPOUT2 99XW MMOPOUT3 9=CG ADN 0 #62 9=X6 BZE 0 MMOPOUT4 [J IF UX 9?BQ BCT 0 MMOPOUT2 [J IF NOT MX 9?WB MMOPOUT4 9#B2 ) 9#TL DOWN MOPOUT,1 9**= MMOPOUT2 9*SW #NOR 9B#G [??? MOPSTATE SECT COMM FGN 40 DOC 9BS6 [ 9C?Q [ 9CRB [ MACRO TO FIND THE STATE OF A REMOTE UNIT 9D?2 [ IE WHETHER IT IS MOPPED ON OR OFF OR WHETHER IT IS BEING 9DQL [ MOPPED ON OR OFF 9F== [ 9FPW [ 9G9G #MAC MOPSTATE 9GP6 JALLOC %A,MMOPSTATE1 [J. IF ALLOCATED TO AN ACTIVITY 9H8Q BRN MMOPSTATE2 9HNB MMOPSTATE1 9J82 JONL %A,MMOPSTATE14 [J. ONLINE TO OBJECT PROG. 9JML LDX 1 %A 9K7= #STR %C 9KLW ( 9L6G [ 9LL6 [ IPB 9M5Q [ 9MKB LAMOP 1,2 9N52 LDCT %B #030 9NJL ANDX %B IPBSW(2) [MASK IPB SWITCH WORD 9P4= BNZ %B MMOPSTATE4 [J. IF EITHER BIT SET 9PHW HUNT2J 1,AMXOR,ADEVS,2,MMOPSTATE3 [J IF ADEVS MISSING 9Q3G STOZ %B 9QH6 BRN MMOPSTATE8 [%B = ZERO MOPPED ON 9R2Q MMOPSTATE3 9RGB LDX %B GSIGN [%B = NEG MOPPED OFF 9S22 BRN MMOPSTATE8 9SFL MMOPSTATE4 9S^= SLC %B 6 9TDW BRN MMOPSTATE8 [%B = 1,2, OR 3 9TYG ) 9WD6 #STR %C 9WXQ #SKI 9XCB ( 9XX2 [ 9YBL [ CHARACTER BUFFERING 9YW= [ 9^*W LAMOP 1,2 [FIND AMOP 9^TG HUNT2J 1,AMXOR,ALINES,2,MMOPSTATE13 [J IF ALINES MISSING MOP OFF =2*6 LDX 0 ALOGLEN(1) =2SQ SBN 0 4 =3#B BZE 0 MMOPSTATE10 [J UNIPLEXOR =3S2 ADN 1 4 [STEP FIRST ENTRY IN ALINES =4?L MMOPSTATE10 =4R= LDX 2 FX2 =5=W STOZ %B [%B = ZERO MOPPED ON =5QG LDCT 0 #140 =6=6 ANDS 0 A1+FOURTHWD(1) [MASK FOURTHWD B2 AND B3 =6PQ SLL 0 2 =79B BPZ 0 MMOPSTATE11 [J MOPPED ON OR BEING MOPPED ON =7P2 LDN %B 2 [%B =2 BEING MOPPED OFF =88L MMOPSTATE11 =8N= SLL 0 1 =97W BZE 0 MMOPSTATE8 [J. IF B3 NOT SET =9MG ADN %B 1 [%B = 1 BEING MOPPED ON ==76 [%B = 3 BEING MOPPED ON & OFF ==LQ BRN MMOPSTATE8 =?6B MMOPSTATE13 =?L2 LDX %B GSIGN =#5L BRN MMOPSTATE8 [%B = NEG MOPPED OFF =#K= ) =*4W MMOPSTATE2 =*JG LDN %B 5 =B46 BRN MMOPSTATE8 =BHQ MMOPSTATE14 =C3B LDN %B 4 [UNIT ONLINED =CH2 MMOPSTATE8 =D2L #STR %D =DG= #SKI =D^W ( =FFG LDX 2 FX2 =F^6 ) =GDQ LDX 1 FX1 =GYB #NOR =HD2 [??? MOPWAIT SECT COMM FGN 40 DOC =HXL #SKI =JC= ( =JWW =KBG ) =KW6 #MAC MOPWAIT [M. WILSON =L*Q DOWN MULTIPLX,3 =LTB #STR %B =M*2 ( =MSL LDCH 0 JSOURCE1(2) =N#= SBN 0 7 =NRW BZE 0 %B [J IF INOPERABLE =P?G ) =PR6 #STR 1,%A =Q=Q SMOPWAIT =QQB #NOR =R=2 [??? MOPWIDTH SECT COMM FGN 40 DOC =RPL #SKI =S9= ( =SNW =T8G [ =TN6 [ RESTORE TIME MACRO TO PRESET MOP TELETYPE WIDTH. =W7Q [ =WMB ) =X72 #MAC MOPWIDTH =XLL #DEF 19?+9=1? =Y6= #LIS %C+0 =YKW #DEF 19?+0=33? =^5G #SKI %A =^K6 ( ?24Q #SKI 19?+0]-33?<1$1 ?2JB ( ?342 #STR %B,CHAR ?3HL #SKI ?43= ( ?4GW RESET CMOPWIDTH,%A>40 ?52G #SKI %A>511$511 ?5G6 RESET CMOPWIDTH,511 ?5^Q #MEN SCAN ?6FB #TRA K31SCAN ?6^2 +CMOPWIDTH ?7DL #FID 0 5 6 ?7Y= #END ?8CW ) ?8XG #STR %B,MESS ?9C6 #SKI ?9WQ ( ?=BB RESET IMOPWIDTH,%A>40 ?=W2 #SKI %A>511$511 ??*L RESET IMOPWIDTH,511 ??T= #MEN IPBSCANB ?##W #TRA K31IPBSCANB ?#SG +IMOPWIDTH ?*#6 #FID 0 5 6 ?*RQ #END ?B?B #MEN IPBSCAN ?BR2 #TRA K31IPBSCAN ?C=L +IMOPWIDTH ?CQ= #FID 0 5 6 ?D9W #END ?DPG ) ?F96 ) ?FNQ ) ?G8B #LIS 19?+9] ?GN2 #NOR ?H7L [??? READY SECT COMM FGN 40 DOC ?HM= #SKI ?J6W ( ?JLG ?K66 ) ?KKQ #MAC READY [C.E.WILKINSON ?L5B #STR COMR,%B [INCLUDE UNLESS INSIDE COMREADY MACRO ?LK2 ( ?M4L MHUNTW 1,AMXOR,CILCB ?MJ= BPZ 1 MACI [J IF ANTICIPATED CI ?N3W ) ?NHG #UNS FREEBUFF ?P36 FREEBUFF [ FREES FURBS AND FUWBS TO CURRENT ACTIVITY ?PGQ #UNS ECS ?Q2B TRUEDORM ?QG2 MACI ?Q^L MONOUT ATIME ?RF= BREADYON %A [J. IF INOPERABLE OR BROKEN IN ON. ?RYW #NOR ?SDG [??? SMOPWAIT SECT COMM FGN 40 DOC ?SY6 #SKI ?TCQ ( ?TXB ?WC2 ) ?WWL #MAC SMOPWAIT ?XB= BRN MZ2 ?XTW MZ1 LDCT 0 #400 ?Y*G ORS 0 GWAIT(1) [SET 'CPA' SLEEPING MARKER ?YT6 COOR1 [WAIT TO BE WOKEN UP ?^#Q MZ2 MHUNTW 1,AMXOR,ALCB [[FIND THE LINE CONTROL BLOCK. ?^SB LDX 0 GLASTM(1) #2#2 BNZ 0 MZ1 [BRANCH IF BUFFER NOT VET FREE #2RL LDX 1 FX1 [RESET X1 #3?= #NOR #3QW [??? SNUIB SECT COMM FGN 40 DOC #4=G #SKI #4Q6 ( #59Q #5PB ) #692 #MAC SNUIB [SWITCH THE MOP NO-USER-INPUT BIT. #6NL LDN 0 1 #78= LDX 2 FX2 #7MW ANDX 0 CONTEXT(2) #87G BNZ 0 MSNUIBEND [J. UNLESS NO-USER CONTEXT. #8M6 LDCH 0 JSOURCE1(2) [GET TYPE. #96Q ANDN 0 #70 #9LB BZE 0 MSNUIBEND [J. IF <8 : TYPE 7 = INOPERABLE LINE #=62 ANDN 0 #60 #=KL BNZ 0 MSNUIBXMX [J. IF >16 : TYPES 10 & 11 = PLEXORS. #?5= MHUNTW 1,AMXOR,ALCB #?JW LDCT 0 #20 [SWITCH THE BIT. ##4G ERS 0 GWAIT(1) ##J6 BRN MSNUIBEND #*3Q MSNUIBXMX #*HB ANDN 0 #40 #B32 BNZ 0 MSNUIBEND [J. IF >32 : MUST BE TYPE 74 - CI. #BGL MHUNTW 1,AMXOR,ADCB [OTHERWISE TYPE 24 - IPB. #C2= LDCT 0 #20 [SWITCH THE BIT. #CFW ERS 0 IWAIT(1) #C^G MSNUIBEND #DF6 LDX 1 FX1 #DYQ #NOR #FDB [??? SUPNLIN SECT COMM FGN 40 DOC #FY2 #SKI #GCL ( #GX= #HBW ) #HWG #MAC SUPNLIN #JB6 SMO FX2 #JTQ LDX 2 ACTRING #K*B LDX 1 FX1 #KT2 SBN 2 ACTRING #L#L MRET LDX 2 BPTR(2) #LS= BXE 2 FX2,MZUZ #M?W LDX 0 ATYPE(2) #MRG BXE 0 MLCB(1),MLCB1 #N?6 BXU 0 MDCB(1),MRET #NQQ LDX 0 MSPINBIT(1) #P=B ORS 0 IWAIT(2) #PQ2 BRN MDCB1 #Q9L MLCB #QP= #HAL AMXOR+ALCB,0 #R8W MDCB #RNG #HAL AMXOR+ADCB,0 #S86 MSPINBIT #00040000 #SMQ MLCB1 LDX 0 MSPINBIT(1) #T7B ORS 0 GWAIT(2) #TM2 MDCB1 LDX 2 FX2 #W6L MZUZ #WL= #NOR #X5W [??? SUPNLOUT SECT COMM FGN 40 DOC #XKG #SKI #Y56 ( #YJQ #^4B ) #^J2 #MAC SUPNLOUT *23L LDX 2 FX2 *2H= LDX 1 FX1 *32W LDX 0 AMXMSK(2) *3GG ANDN 0 #12 *426 BZE 0 MZUZ *4FQ LDX 2 ACTRING(2) *4^B SBN 2 ACTRING *5F2 MRET LDX 2 BPTR(2) *5YL BXE 2 FX2,MZUZ *6D= LDX 0 ATYPE(2) *6XW BXE 0 MLCB(1),MLCB1 *7CG BXU 0 MDCB(1),MRET *7X6 LDX 0 MSPOUTBIT(1) *8BQ ORS 0 IWAIT(2) *8WB BRN MDCB1 *9B2 MLCB *9TL #HAL AMXOR+ALCB,0 *=*= MDCB *=SW #HAL AMXOR+ADCB,0 *?#G MSPOUTBIT #00020000 *?S6 MLCB1 LDX 0 MSPOUTBIT(1) *#?Q ORS 0 GWAIT(2) *#RB MDCB1 LDX 2 FX2 **?2 MZUZ **QL #NOR *B== [??? SYSCOMTE SECT COMM FGN 44 DOC *BPW #UNS ATELE *C9G ( *CP6 #SKI *D8Q ( *DNB [ *F82 [ TO CHECK CURRENT COMMAND ISSUUED AT CP LEVEL ZERO... *FML [ AND THAT THERE IS AN ADATA-COMMAND BLOCK AFTER CURRENT ACTIVITY *G7= [ *GLW [ *H6G ) *HL6 #MAC SYSCOMTEST *J5Q SMO FX2 *JKB LDX 0 CPLEV *K52 BNZ 0 MSYSNOT [J IF NOT CP LEV ZERO *KJL HUNTW %A,ADATA,COMPASS *L4= BPZ %A MSYSYES [J IF THERES A DATA BLOCK *LHW MSYSNOT [ELSE SEND ERROR MESSAGE *M3G COMERR JNOTALCM *MH6 MSYSYES *N2Q #NOR *NGB ) *P22 [??? TESTOUT SECT COMM FGN 40 DOC *PFL #SKI *P^= ( *QDW *QYG ) *RD6 #MAC TESTOUT [D.PLATTEN *RXQ LDCH 0 JSOURCE1(3) *SCB SBN 0 10 *SX2 BZE 0 MPX [J IF UPX *TBL SBN 0 1 *TW= BZE 0 MPX [OR MPX *W*W SBN 0 13 *WTG BZE 0 MIPB *X*6 SBN 0 36 *XSQ BNZ 0 MFIN [J IF NOT CI CHANNEL *Y#B CALL 2 MCOM [FIND LINECONTROL BLOCK *YS2 #HAL AMXOR+CILCB,0 *^?L LDCT 0 4 [SET INTERLOCK BIT 4 TO SHOW CPA THAT *^R= ORS 0 CIREADY(1) [ABANDONMENT STARTED B2=W BRN MFIN B2QG MIPB CALL 2 MCOM B3=6 #HAL AMXOR+ADCB,0 B3PQ LDX 0 IWAIT(1) B49B LDXC 2 ICURSOR(1) B4P2 #UNS JSKI37 B58L ( B5N= BCC MNVD B67W LDN 2 #1000 B6MG ANDX 2 ICONTU(1) B776 BZE 2 MWAK B7LQ ERS 2 ICONTU(1) B86B ORN 0 #200 B8L2 STO 0 IWAIT(1) B95L FON CONTVDUWT B9K= BRN MFIN1 B=4W MNVD B=JG ) B?46 #SKI JSKI37<1$1 B?HQ BCS MWAK [VDU MOP CPAT:SET TESTOUT MARKER & B#3B [WAKE IF NECESSARY B#H2 LDCT 2 #40 B*2L ANDX 2 0 B*G= BZE 2 MFIN B*^W ERX 0 2 BBFG MWAK BB^6 ORN 0 #200 BCDQ STO 0 IWAIT(1) BCYB MFIN LDX 1 FX1 BDD2 LDX 2 FX2 BDXL BRN MFIN1 BFC= [ BFWW [ THIS SUBROUTINE FINDS LCB'S ACCORDING TO CONTENTS OF LINK+1 BGBG MCOM LDX 1 3 [CPA ADDRESS BGW6 MCOM2 LDX 1 FPTR(1) BH*Q LDX 0 ATYPE(1) BHTB TXU 0 0(2) BJ*2 BCC MCOM1 BJSL TXL 0 CACT BK#= BCS MCOM2 [J. IF END OF THIS ACTIVITY BKRW BRN MFIN BL?G MCOM1 EXIT 2 1 BLR6 MPX CALL 2 MCOM [FIND MOP LINE CONTROL BLOCK BM=Q #HAL AMXOR+ALCB,0 BMQB LDX 0 GWAIT(1) BN=2 LDCT 2 #40 [GET TIMED OUT BIT BNPL ANDX 2 0 BP9= BZE 2 MFIN [J. IF NOT TIMED OUT BPNW ORN 0 1 [SET BREAK IN BIT FOR READY MACRO BQ8G ERX 0 2 [UNSET TIMED OUT AND BQN6 STO 0 GWAIT(1) [ASLEEP BITS FOR MISW. BR7Q BRN MFIN BRMB MFIN1 BS72 #NOR BSLL [??? TRANSERR SECT COMM FGN 40 DOC BT6= #SKI BTKW ( BW5G BWK6 [ BX4Q [ RESTORE TIME MACRO TO ALTER MOP TRANSMISSION ERROR MESSGE BXJB [ BY42 ) BYHL #MAC TRANSERR B^3= #SKI %A["IF NUMBER IS 0,THE OLD MESSAGE WILL NOT BE CHANGED" B^GW ( C22G #MEN PROFLAG C2G6 #TRA K50PROFLAG C2^Q #SKI %A<37-37 C3FB %A,%AH%B C3^2 #SKI %A>36-36 C4DL 36,36H%B C4Y= #END C5CW #MEN MULTIPLX C5XG #TRA K60MULTIPLX C6C6 #SKI %A<37-37 C6WQ %A,%AH%B C7BB #SKI %A>36-36 C7W2 36,36H%B C8*L #END C8T= #UNS JSKI36 C9#W ( C9SG #MEN IPBMOPB C=#6 #TRA K50IPBMOPB C=RQ ) C??B #UNS JSKI36<1$1 C?R2 ( C#=L #MEN IPBMOP C#Q= #TRA K50IPBMOP C*9W ) C*PG #SKI %A<37-37 CB96 %A,%AH%B CBNQ #SKI %A>36-36 CC8B 36,36H%B CCN2 #END CD7L ) CDM= #NOR CF6W [??? ZERRORX SECT COMM FGN 40 DOC CFLG #SKI CG66 ( CGKQ CH5B CHK2 ) CJ4L #MAC ZERRORX CJJ= #STR %B CK3W CALL %B MZERR%B CKHG #STR %B CL36 #SKI CLGQ CALL 1 MZERR CM2B +%A CMG2 #STR %B CM^L ( CNF= #OPT MZERR%B=0? CNYW #SKI 0?-MZERR%B CPDG #SKI CPY6 COMERRX 0(%B) CQCQ ) CQXB #NOR CRC2 [??? ZERRORY SECT COMM FGN 40 DOC CRWL #SKI CSB= ( CSTW CT*G ) CTT6 #MAC ZERRORY CW#Q #OPT MZERR=0? CWSB #SKI 0?-MZERR CX#2 #SKI CXRL COMERRX 0(1) CY?= #NOR CYQW [??? CIPRIV SECT COMM FGN 41 DOC C^=G #MAC CIPRIV C^Q6 #MEN ONLINEC D29Q #TRA CIPRIVA D2PB 8H%A D392 #TRA CIPRIVB D3NL NULL D48= #END D4MW #NOR ^^^^ ...713715770100