{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACS MISW)}}
====== MACS MISW ======
(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