{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACS SPC)}}
====== MACS SPC ======
(George Source)
22FL #SKI
22^= (
23DW [ MACS SPC COMM SECTION
23YG [ MACROS IN MACS SPC WERE ORIGINALLY IN MACROS PERI AND MACS MISW
24D6 )
24XQ [??? ALLTIME SECT COMM FGN 14 DOC
25CB #SKI
25X2 (
26BL #
26W= # PARAMETERS CENTRAL AND REMOTE (IN EITHER ORDER)
27*W # TO FOLLOWING MACRO WILL PREVENT SUPPRESSION OF TIME
27TG # MESSAGES AT THE APPROPRIATE OPERATOR'S CONSOLE
28*6 #
28SQ )
29#B #MAC ALLTIME
29S2 #STR %B
2=?L ALLTIME %B
2=R= #STR CENTRAL,%A
2?=W #SKI
2?QG (
2#=6 #MEN CONSOLE
2#PQ #TRA K8CONSOLE
2*9B NULL
2*P2 #END
2B8L )
2BN= #STR REMOTE,%A
2C7W #SKI
2CMG (
2D76 #MEN CONSROOT
2DLQ #TRA K8CONSROOT
2F6B NULL
2FL2 #TRA K9CONSROOT
2G5L NULL
2GK= #END
2H4W )
2HJG #NOR
2J46 [??? BUTTON SECT COMM FGN 14 DOC
2JHQ #SKI
2K3B (
2KH2 #
2L2L # BUTTON
2LG= #
2L^W # GET DEVICE LIST POINTER FOR 1ST PERIPHERAL ENGAGED OF SPECIFIED
2MFG # TYPE
2M^6 #
2NDQ )
2NYB #MAC BUTTON
2PD2 #STR %B,0
2PXL LDX 0 %B
2QC= SMO FX2
2QWW STO 0 ACOMMUNE9
2RBG DOWN EMSENG,3
2RW6 LDX %A ACOMMUNE9(2)
2S*Q #NOR
2STB [??? CHECKATT SECT COMM FGN 14 DOC
2T*2 #SKI
2TSL (
2W#= #
2WRW # COMPARE PROPERTIES ATTRIBUTED WITH THOSE REQUESTED
2X?G #
2XR6 )
2Y=Q #MAC CHECKATT
2YQB DOWN GETFREE,5
2^=2 NULL
2^PL NULL
329= #NOR
32NW [??? CHECKFLA SECT COMM FGN 14 DOC
338G #SKI
33N6 (
347Q #
34MB # JUMP TO %B IF DEVICE IS NOT A FLAGWAVER
3572 #
35LL )
366= #MAC CHECKFLAG
36KW MODD LDX 0 JK52F,%A,CPPTR(2)
375G SLL 0 2
37K6 BPZ 0 %B
384Q #NOR
38JB [??? CHECKXF SECT COMM FGN 14 DOC
3942 #SKI
39HL (
3=3= #
3=GW # JUMP TO %B IF DEVICE IS NOT A FLAGWAVER OR AN EXOTIC
3?2G #
3?G6 )
3?^Q #MAC CHECKXF
3#FB MODD LDX 0 JK52F,%A,CPPTR(2)
3#^2 SLC 0 3
3*DL ANDN 0 3
3*Y= BZE 0 %B
3BCW #NOR
3BXG [??? CHECKXOT SECT COMM FGN 14 DOC
3CC6 #SKI
3CWQ (
3DBB #
3DW2 # JUMP TO %B IF DEVICE IS NOT AN EXOTIC
3F*L #
3FT= )
3G#W #MAC CHECKXOT
3GSG MODD LDX 0 JK52F,%A,CPPTR(2)
3H#6 SLL 0 1
3HRQ BPZ 0 %B
3J?B #NOR
3JR2 [??? CONIN SECT COMM FGN 14 DOC
3K=L #SKI
3KQ= (
3L9W #
3LPG # EARLY MORNING START CONSOLE MACROS
3M96 #
3MNQ # CONIN
3N8B #
3NN2 # INPUT A MESSAGE FROM THE OPERATOR'S CONSOLE AND ACKNOWLEDGE
3P7L #
3PM= )
3Q6W #MAC CONIN
3QLG #STR %A
3R66 LDX 0 %A
3RKQ #STR %A
3S5B #SKI
3SK2 LDN 0 0
3T4L SMO FX2
3TJ= STO 0 ACOMMUNE9
3W3W DOWN EMSENG,2
3WHG #STR %A
3X36 (
3XGQ LDX 0 ACOMMUNE9(2)
3Y2B BNZ 0 %A
3YG2 )
3Y^L #NOR
3^F= [??? CONSOUT SECT COMM FGN 14 DOC
3^YW #SKI
42DG (
42Y6 #
43CQ # TO OUTPUT A MESSAGE TO THE OPERATOR'S CONSOLE
43XB #
44C2 )
44WL #MAC CONSOUT
45B= #STR %A,
45TW #SKI
46*G (
46T6 HUNT 1,CONBUFF,
47#Q CONSOUT 1
47SB )
48#2 #STR %A,
48RL (
49?= CHAIN %A,BCONSOUT+1
49QW FON #50
4==G )
4=Q6 #NOR
4?9Q [??? CONSTIME SECT COMM FGN 14 DOC
4?PB #SKI
4#92 (
4#NL #
4*8= # TO CONTROL THE CHAINING OF TIME MESSAGE OUTPUT
4*MW #
4B7G )
4BM6 #MAC CONSTIME
4C6Q DOWN CONSOLE,2
4CLB #NOR
4D62 [??? CONSWIDTH SECT COMM FGN55 DOC
4DKL #SKI
4F5= (
4FJW [RESTORE TIME MACRO,SPECIFIES
4G4G [MAX NO OF CHARS ON PRINT LINE
4GJ6 [OF OPERATORS CONSOLE
4H3Q )
4HHB #MAC CONSWIDTH [%A= MAX LINE LENGTH (CH).DEFAULT= 72
4J32 #MEND CONSOLE
4JGL #TRA K50CONSOLE
4K2= +%A>40<511
4KFW #END
4K^G #UNSET JWSNARROW
4LF6 (
4LYQ #SKI +%A<70$70
4MDB WSNARROW OPERATOR
4MY2 )
4NCL #UNSET JWLNARROW
4NX= (
4PBW #SKI +%A<70$70
4PWG WLNARROW OPERATOR
4QB6 )
4QTQ #NOR
4R*B [??? DCA SECT COMM FGN 14 DOC
4RT2 #SKI
4S#L (
4SS= #
4T?W # ACCESS DEVICE CONTROL AREA
4TRG #
4W?6 )
4WQQ #MAC DCA
4X=B MODD %B %C I%D,%A,CPPTR(2)
4XQ2 #NOR
4Y9L [??? DECANTCT SECT COMM FGN 14 DOC
4YP= #SKI
4^8W (
4^NG #
5286 # DECANT DEVICE TRANSFERS COUNTS
52MQ #
537B )
53M2 #MAC DECANTCT
546L #STR %C,GEORGE
54L= #SKI
555W MODD SBS %B JK52H,%A,CPPTR(2)
55KG #STR %C,OBJECT
5656 #SKI
56JQ MODD SBS %B JK52I,%A,CPPTR(2)
574B #STR %C,REPEAT
57J2 #SKI
583L MODD SBS %B JK52J,%A,CPPTR(2)
58H= #STR %C,FAIL
592W #SKI
59GG MODD SBS %B JK52K,%A,CPPTR(2)
5=26 #NOR
5=FQ [??? DEMMESS SECT COMM FGN 14 DOC
5=^B #
5?F2 # DEMMESS
5?YL #
5#D= # OUTPUT ON THE CONSOLE A MESSAGE WHICH DEMANDS A REPLY
5#XW #
5*CG #MAC DEMMESS
5*X6 MONOUT %A
5BBQ CONIN
5BWB #NOR
5CB2 [??? DEMMEX SECT COMM FGN 14 DOC
5CTL #
5D*= # DEMMEX
5DSW #
5F#G #MAC DEMMEX
5FS6 MONOUTX %A
5G?Q CONIN
5GRB #NOR
5H?2 [??? DLCA SECT COMM FGN 14 DOC
5HQL #SKI
5J== (
5JPW #
5K9G )
5KP6 #MAC DLCA [C.E.WILKINSON : OPERATES ON LCA
5L8Q %B %C IL%D+JLCA(%A)
5LNB #NOR
5M82 [??? DSCA SECT COMM FGN 14 DOC
5MML #SKI
5N7= (
5NLW #
5P6G # ACCESS SPOUT CONTROL AREA
5PL6 #
5Q5Q )
5QKB #MAC DSCA
5R52 MODD %B %C IS%D,%A,CPPTR(2)
5RJL #NOR
5S4= [??? DX SECT COMM FGN 14 DOC
5SHW #SKI
5T3G (
5TH6 #
5W2Q # DX FOR EXOFILES
5WGB #
5X22 )
5XFL #MAC DX
5X^= #MEN PERTYPNO
5YDW #TRA K80PERTYPNO+3
5YYG 4H**DX
5^D6 #END
5^XQ #MEN RELPER
62CB #TRA ADX
62X2 LDCT 4 #007
63BL #END
63W= #NOR
64*W [??? ENGMESS SECT COMM FGN 14 DOC
64TG #
65*6 # ENGMESS
65SQ #
66#B # OUTPUT ON THE OPS CONSOLE A MESSAGE REQUIRING A REPLY OR A
66S2 # PERIPHERAL ENGAGEMENT
67?L #
67R= #MAC ENGMESS
68=W LDN 0 63
68QG BUTTON 0,0
69=6 MONOUT %A
69PQ MENGMESS2
6=9B %D
6=P2 #UNS ENHOPER
6?8L ON IGNORENGAGE
6?N= BUTTON %B,%C
6#7W BPZ %B MENGMESS1
6#MG LDN 0 63
6*76 BUTTON %B,0
6*LQ BNG %B MENGMESS2
6B6B CONIN MENGMESS2
6BL2 NGN %B 4095
6C5L MENGMESS1
6CK= #UNS ENHOPER
6D4W OFF IGNORENGAGE
6DJG #NOR
6F46 [??? ENGMEX SECT COMM FGN 14 DOC
6FHQ #
6G3B # ENGMEX
6GH2 #
6H2L #MAC ENGMEX
6HG= LDN 0 63
6H^W BUTTON 0,0
6JFG MONOUTX %A
6J^6 MENGMEX2
6KDQ %D
6KYB #UNS ENHOPER
6LD2 ON IGNORENGAGE
6LXL BUTTON %B,%C
6MC= BPZ %B MENGMEX1
6MWW LDN 0 63
6NBG BUTTON %B,0
6NW6 BNG %B MENGMEX2
6P*Q CONIN MENGMEX2
6PTB NGN %B 4095
6Q*2 MENGMEX1
6QSL #UNS ENHOPER
6R#= OFF IGNORENGAGE
6RRW #NOR
6S?G [??? FINDLCA SECT COMM FGN 14 DOC
6SR6 #SKI
6T=Q (
6TQB
6W=2 )
6WPL #MAC FINDLCA [C.E.WILKINSON : FINDS LCA
6X9= #STR %A
6XNW (
6Y8G #STR %A,1
6YN6 LDX 1 %A
6^7Q )
6^MB #STR %A
7272 #SKI
72LL LDX 1 CPPTR(2)
736= LDX 0 K58(1)
73KW MPA 0 %B
745G #NOR
74K6 [??? FINDOC SECT COMM FGN 40 DOC
754Q #SKI
75JB (
7642
76HL )
773= #MAC FINDOC
77GW DOWN FINDOC,1
782G BRN %A
78G6 #NOR
78^Q [??? FINDOLP1 SECT COMM FGN 40 DOC
79FB #SKI
79^2 (
7=DL )
7=Y= #MAC FINDOLP1
7?CW
7?XG HUNT2 %B,APERI,APERIRES,%C
7#C6 MFIN1 LDX 0 A1(%B)
7#WQ BNG 0 %D
7*BB ORX %C GSIGN
7*W2 LDX 0 A1+1(%B)
7B*L BPZ 0 MFIN2
7BT= FINDACTFB %C,,AOLPT,,,FPTR
7C#W MFIN2 LDX 0 A1(%B)
7CSG BXE 0 %A,MFIN3
7D#6 BDX %B MFIN1
7DRQ MFIN3
7F?B #NOR
7FR2 [??? FINDOLPA SECT COMM FGN 40 DOC
7G=L #SKI
7GQ= (
7H9W
7HPG )
7J96 #MAC FINDOLPA
7JNQ HUNT2 %B,APERI,APERIRES,%C
7K8B MFINDOLPRTN
7KN2 LDN %E 0
7L7L MFINDOLPBCK
7LM= LDXC 0 A1+1(%B)
7M6W ADN %E 0
7MLG LDXC 0 A1(%B)
7N66 BCS %F
7NKQ SRL 0 15
7P5B BXE 0 %A,MFINDOLPFND
7PK2 BDX %B MFINDOLPBCK
7Q4L %D BDX %B MFINDOLPRTN
7QJ= MFINDOLPFND
7R3W FINDACTF %C,,AOLPT,,,FPTR
7RHG BCT %E MFINDOLPFND
7S36 #NOR
7SGQ [??? FINDPERE SECT COMM FGN 14 DOC
7T2B #SKI
7TG2 (
7T^L #
7WF= # SEARCH FOR DEVICE LIST USING SPECIFIED KEY
7WYW #
7XDG )
7XY6 #MAC FINDPEREC
7YCQ [
7YXB #STR APINT,%B
7^C2 #STR
7^WL (
82B= LDX 0 %C [INTERNAL NO
82TW TXL 0 BDTL [BDT LENGTH
83*G BCS MFPR1 [JIF NOT OUT OF RANGE
83T6 MFPR3
84#Q NGN %A 4095 [SET %A NEGATIVE IF INT NO TOO BIG
84SB BRN MFPR2
85#2 MFPR1 LDX %A BDTP [BASE OF BDT
85RL SMO %C
86?= LDX %A 0(%A) [PTR TO DEVICE LIST
86QW JENVNOT MFPR2,DME
87=G LGEOG %A,0
87Q6 #STR %G
889Q BZE 0 %G [J IF ANONYMOUS
88PB #STR %G
8992 #STR
89NL BZE 0 MFPR3
8=8= LDX 0 JK52B(%A)
8=MW ANDN 0 2
8?7G #STR %F
8?M6 BNZ 0 %F [J IF SWITCHED OUT
8#6Q #STR %F
8#LB #STR
8*62 BNZ 0 MFPR3
8*KL MFPR2
8B5= )
8BJW [
8C4G #STR APGEOG,%B
8CJ6 #STR
8D3Q (
8DHB LDX 0 %C
8F32 BZE 0 MFPR4 [J IF GEOG = ZERO
8FGL LDX 0 BDTP [BASE OF BDT
8G2= ADX 0 BDTL [PLUS LENGTH EQUALS END ADDR
8GFW MFPR3 SBN 0 1 [STEP BACK
8G^G TXL 0 BDTP
8HF6 BCC MFPR1 [JIF NOT BACK TO THE BASE
8HYQ MFPR4
8JDB NGN %A 4095 [SET %A NEGATIVE IF NO SUCH GEOG NO
8JY2 BRN MFPR2
8KCL MFPR1 SMO 0
8KX= LDX %A 0 [PTR TO DEVICE LIST
8LBW LGEOG %A,%A [GEOG NO
8LWG TXU %A %C
8MB6 BCS MFPR3 [JIF NOT REQUIRED GEOG NO
8MTQ SMO 0
8N*B LDX %A 0 [LOAD DEVICE LIST PTR
8NT2 JENVNOT MFPR2,DME
8P#L LDX 0 JK52B(%A)
8PS= ANDN 0 2
8Q?W #STR %F
8QRG BNZ 0 %F [J IF SWITCHED OUT
8R?6 #STR %F
8RQQ #STR
8S=B BNZ 0 MFPR4
8SQ2 MFPR2
8T9L )
8TP= [
8W8W #STR APTSER,%B
8WNG #STR
8X86 (
8XMQ LDX 0 JPTI+5 [START OF MTS
8Y7B MFPR3 LDX %A JPTI+6 [END OF MTS
8YM2 TXU 0 %A
8^6L BCS MFPR1 [J IF NOT END OF MT.S
8^L= NGN %A 4095 [END OF MTS
925W BRN MFPR2
92KG MFPR1 SMO 0
9356 LDX %A 0 [PTR TO DEVICE LIST
93JQ DFLOAD %A,TSN,%A [TSN IN %A
944B ADN 0 1 [STEP ON
94J2 TXU %A %C
953L BCS MFPR3 [NOT THIS ONE
95H= SBN 0 1
962W SMO 0
96GG LDX %A 0 [TSN FOUND-LOAD D L PTR
9726 MFPR2
97FQ )
97^B [
98F2 #STR APJOB,%B
98YL #STR
99D= (
99XW LDX 0 BDTP [BASE OF BDT
9=CG BRN MFPR1
9=X6 %D
9?BQ MFPR5 LINT %A,%A [REENTRY AND TURN DL PTRBACKTOINT NO
9?WB SMO BDTP
9#B2 LDN 0 0(%A) [PTR TO BDT
9#TL ADN 0 1 [STEP ON
9**= MFPR1 LDX %A BDTP [BASE OF BDT
9*SW ADX %A BDTL [PLUS LENGTH EQUALS END ADDR OF BDT
9B#G TXL 0 %A
9BS6 BCS MFPR2 [JIF NOT AT END
9C?Q NGN %A 4095 [SET %A NEGATIVE IF NO MORE OF JOBNO
9CRB BRN MFPR3
9D?2 MFPR2 SMO 0
9DQL LDX %A 0 [PTR TO DEVICE LIST
9F== JONL %A,MFPR4 [JIF DEVICE ONLINE
9FPW BRN MFPR5 [IF NOT CONTINUE
9G9G MFPR4 LJOBNO %A,0 [JOBNO TO X0
9GP6 TXU 0 %C
9H8Q BCS MFPR5 [J. IF NOT REQUIRED JOBNO
9HNB MFPR3
9J82 )
9JML [
9K7= #STR APFOTY,%B
9KLW #STR
9L6G (
9LL6 SMO %C
9M5Q LDX 0 JPTI [PTR TO BDT FOR FIRST OF TYPE
9MKB BRN MFPR1
9N52 #STR %D
9NJL %D
9P4= #UNS AV7900S
9PHW (
9Q3G #STR AV7900,%E
9QH6 #STR
9R2Q (
9RGB [%E = AV7900 (AND %D IS PRESENT)
9S22 [TEST IF THIS IS A RE-ENTRY TO
9SFL [CONTINUE SEARCH OF VIRTUAL 7900
9S^= [DEVICE LISTS, IE %C.B0=1
9TDW LDXC 0 %C
9TYG BCS MFVPR1 [CONTINUE SEARCH OF V7900 DLS
9WD6 )
9WXQ )
9XCB MFPR4
9XX2 LINT %A,%A [REENTRY & TURN DL PTR BACK TO INT NO
9YBL SMO BDTP
9YW= LDN 0 0(%A) [PTR TO BDT
9^*W ADN 0 1 [STEP ON
9^TG MFPR1 SMO %C
=2*6 LDX %A JPTI+1 [END ADDR OF TYPE
=2SQ TXU 0 %A
=3#B BCS MFPR2 [JIF NOT END OF TYPE
=3S2 NGN %A 4095 [SET %A NEGATIVE IF NO MORE OF TYPE
=4?L BRN MFPR3
=4R= MFPR2 SMO 0
=5=W LDX %A 0 [PTR TO DEVICE LIST FOR NEXT OF TYPE
=5QG JENVNOT MFPR3,DME
=6=6 LGEOG %A,0
=6PQ BZE 0 MFPR5
=79B LDX 0 JK52B(%A)
=7P2 ANDN 0 2
=88L #STR %F
=8N= BNZ 0 %F
=97W #STR %F
=9MG #STR
==76 BNZ 0 MFPR4
==LQ BRN MFPR3
=?6B MFPR5
=?L2 LDN 0 63
=#5L TXU 0 %C
=#K= BCC MFPR3 [J IF CONSOLE TYPE
=*4W #STR %G
=*JG BRN %G
=B46 #STR %G
=BHQ #STR
=C3B BRN MFPR4
=CH2 MFPR3
=D2L )
=DG= [
=D^W #UNS AV7900S
=FFG (
=F^6 #STR AV7900,%E
=GDQ #STR
=GYB (
=HD2 [%E = AV7900
=HXL BPZ %A MFVPR3 [PERIPHERAL FOUND : SKIP V7900 DLS
=JC= [SEARCH THE VIRTUAL 7900 DEVICE LISTS
=JWW [MOVING BACKWARDS AROUND THE
=KBG [MISCELLANEOUS CHAIN
=KW6 #STR %D
=L*Q (
=LTB [%D IS ALSO PRESENT THEREFORE
=M*2 LDCT 0 #400 [SET %C.B0 TO INDICATE FOR RE-ENTRY
=MSL ORS 0 %C [THAT V7900 DLS ARE BEING SEARCHED
=N#= )
=NRW LDN %A 0
=P?G SMO BMISC
=PR6 MFVPR1 [SEARCH FOR NEXT VIRTUAL 7900 DL
=Q=Q LDX %A BPTR(%A)
=QQB BXE %A BMISC,MFVPR2 [END OF MISCELLANEOUS CHAIN SEARCH
=R=2 LDX 0 ATYPE(%A)
=RPL SRC 0 12 [IGNORE V7900'S WHICH ARE BEING
=S9= [CREATED,IE ATYPE.B12-23 SET NON-ZERO
=SNW SBN 0 APERI+AV7900
=T8G BNZ 0 MFVPR1 [NOT A V7900 DL : TRY NEXT BLOCK
=TN6 #STR APGEOG,%B
=W7Q #STR
=WMB LGEOG %A,0 [%B = APGEOG
=X72 #STR APFOTY,%B
=XLL #STR
=Y6= LTYPE %A,0 [%B = APFOTY
=YKW #STR %D
=^5G (
=^K6 [%D IS PRESENT THEREFORE
?24Q ORX 0 GSIGN [%C.B0 IS SET SO SET X0.B0 FOR TEST
?2JB )
?342 BXU 0 %C,MFVPR1 [NOT RELEVANT DL : TRY NEXT BLOCK
?3HL BRN MFVPR3 [RELEVANT DEVICE LIST FOUND : EXIT
?43= MFVPR2 [END OF VIRTUAL 7900 DEVICE LISTS
?4GW #STR %D
?52G (
?5G6 LDCT 0 #400 [%D IS PRESENT : LEAVE %C.B0 CLEAR
?5^Q ERS 0 %C
?6FB )
?6^2 NGN %A 4095 [SET %A NEGATIVE TO INDICATE NO SUCH
?7DL [PERIPHERAL WAS FOUND
?7Y= MFVPR3 [EXIT
?8CW [
?8XG )
?9C6 )
?9WQ #NOR
?=BB [??? FPUTCHA SECT COMM FGN 14 DOC
?=W2 #SKI
??*L (
??T= #
?##W # TO FPUT ACTIVITY FOR IPC IF CHAINADD IS NEGATIVE AND =1
?#SG #
?*#6 )
?*RQ #MAC FPUTCHA
?B?B DSCA %A,LDXC,2,CHADD
?BR2 NGNC 0 0
?C=L ANDS 0 0(2)
?CQ= LDX 0 0(2)
?D9W SBN 0 1
?DPG BNZ 0 MCEND
?F96 SBN 2 CHAINADD
?FNQ FPUT
?G8B MCEND
?GN2 LDX 2 FX2
?H7L LDX 1 FX1
?HM= #NOR
?J6W [??? FREEPER SECT COMM FGN 14 DOC
?JLG #SKI
?K66 (
?KKQ #
?L5B # FREE DEVICE
?LK2 #
?M4L )
?MJ= #MAC FREEPER
?N3W DOWN FREEPER,1
?NHG #NOR
?P36 [??? GETPER7 SECT COMM FGN 14 DOC
?PGQ #SKI
?Q2B (
?QG2 #
?Q^L # ALLOCATE DEVICE TO CURRENT ACTIVITY (MK 7)
?RF= #
?RYW )
?SDG #MAC GETPER7
?SY6 #ACC %A
?TCQ (
?TXB LDX 0 %A
?WC2 SMO FX2
?WWL STO 0 ACOMMUNE7
?XB= )
?XTW #ACC %A
?Y*G #SKI
?YT6 (
?^#Q SMO FX2
?^SB STO %A ACOMMUNE7
#2#2 )
#2RL DOWN GETFREE,2
#3?= BRN %B
#3QW BRN %C
#4=G #NOR
#4Q6 [??? GETPER SECT COMM FGN 14 DOC
#59Q #SKI
#5PB (
#692 )
#6NL #MAC GETPER
#78= GETPER7 %A,%B,%C
#7MW #NOR
#87G [??? HDWRTE SECT COMM
#8M6 #SKI
#96Q (
#9LB #
#=62 # GET HARDWARE ROUTE FROM EXEC FOR SPECIFIED DEVICE
#=KL #
#?5= )
#?JW #MAC HDWRTE
##4G #STR %A
##J6 LDX 0 %A
#*3Q #STR %A
#*HB #SKI
#B32 LDX 0 CPPTR(2)
#BGL '171 0 9
#C2= STO 0 %B
#CFW #NOR
#C^G [??? INFOMESS SECT COMM FGN 14 DOC
#DF6 #
#DYQ #SKI EMSJNL<1$1
#FDB (
#FY2 # INFOMESS
#GCL #
#GX= # OUTPUT ON THE CONSOLE AN INFORMATORY MESSAGE DURING EMS
#HBW #
#HWG #MAC INFOMESS
#JB6 SMO FX1
#JTQ LDX 3 %A
#K*B SETUPCOR 3,2,CONBUFF,COUT
#KT2 STO 3 AREC(2)
#L#L ADN 1 %A+1
#LS= ADN 2 ATEXT
#M?W SMO 3
#MRG MOVE 1 -1
#N?6 SBN 2 ATEXT
#NQQ CHAIN 2,BCONSOUT+1
#P=B FON #50
#PQ2 #NOR
#Q9L )
#QP= [??? INFOMEX SECT COMM FGN 14 DOC
#R8W #
#RNG #SKI EMSJNL<1$1
#S86 (
#SMQ # OUTPUT MESSAGE ON OPS CONSOLE DURING EMS - USING ACC FOR MESS ADDR
#T7B #
#TM2 #MAC INFOMEX
#W6L LDX 1 FX1
#WL= ADX 1 %A
#X5W LDX 2 0(1)
#XKG SETUPCOR 2,2,CONBUFF,COUT
#Y56 ADX 1 %A
#YJQ LDX 0 0(1)
#^4B STO 0 AREC(2)
#^J2 ADN 1 1
*23L ADN 2 ATEXT
*2H= SMO 0
*32W MOVE 1 -1
*3GG SBN 2 ATEXT
*426 CONSOUT 2
*4FQ #NOR
*4^B )
*5F2 [??? ISPER7 SECT COMM FGN 14 DOC
*5YL #SKI
*6D= (
*6XW #
*7CG #
*7X6 #
*8BQ # TEST IF DEVICE OF TYPE/PROPERTIES SPECIFIED EXISTS (MK 7)
*8WB #
*9B2 )
*9TL #MAC ISPER7
*=*= #ACC %A
*=SW (
*?#G LDX 0 %A
*?S6 SMO FX2
*#?Q STO 0 ACOMMUNE7
*#RB )
**?2 #ACC %A
**QL #SKI
*B== (
*BPW SMO FX2
*C9G STO %A ACOMMUNE7
*CP6 )
*D8Q DOWN GETFREE,1
*DNB BRN %B
*F82 NULL
*FML #NOR
*G7= [??? ISPER SECT COMM FGN 14 DOC
*GLW #SKI
*H6G (
*HL6 #
*J5Q )
*JKB #MAC ISPER
*K52 ISPER7 %A,%B
*KJL #NOR
*L4= [??? ISPERG SECT COMM FGN 14 DOC
*LHW #SKI
*M3G (
*MH6 #
*N2Q # GETPER7 AND ISPER7 COMBINED (MK 7)
*NGB #
*P22 )
*PFL #MAC ISPERG
*P^= #ACC %A
*QDW (
*QYG LDX 0 %A
*RD6 SMO FX2
*RXQ STO 0 ACOMMUNE7
*SCB )
*SX2 #ACC %A
*TBL #SKI
*TW= (
*W*W SMO FX2
*WTG STO %A ACOMMUNE7
*X*6 )
*XSQ DOWN GETFREE,4
*Y#B BRN %B
*YS2 BRN %C
*^?L #NOR
*^R= [??? LADDP SECT COMM FGN 14 DOC
B2=W #SKI
B2QG (
B3=6 #
B3PQ # LOAD %B WITH POINTER TO DEVICE'S ADDITIONAL PERIPHERAL INFORMATION
B49B # AREA
B4P2 #
B58L )
B5N= #MAC LADDP
B67W MODD LDX %B JADDP,%A,CPPTR(2)
B6MG #NOR
B776 [??? LAMOP SECT COMM FGN 14 DOC
B7LQ #SKI
B86B (
B8L2 #
B95L # LOAD POINTER TO AMOP FOR COMMUNICATIONS DEVICE
B9K= #
B=4W )
B=JG #MAC LAMOP
B?46 LADDP %A,%B
B?HQ MOD LDX %B 1,%B
B#3B #NOR
B#H2 [??? LCAP SECT COMM FGN 14 DOC
B*2L #SKI
B*G= (
B*^W #
BBFG # LOAD DEVICE CAPABILITIES INTO B20-23 OF X%B (MT ONLY)
BB^6 #
BCDQ )
BCYB #MAC LCAP
BDD2 MODD LDX %B JK52B,%A,CPPTR(2)
BDXL SLC %B 9
BFC= ANDN %B 15
BFWW #NOR
BGBG [??? LCERRS SECT COMM FGN 20 DOC
BGW6 #SKI
BH*Q (
BHTB #
BJ*2 # LOAD CURRENT CERR COUNT ON THIS DEVICE INTO X%B
BJSL #
BK#= )
BKRW #MAC LCERRS
BL?G MODD LDX %B JCERR,%A,CPPTR(2)
BLR6 #NOR
BM=Q [??? LFAILS SECT COMM FGN 14 DOC
BMQB #SKI
BN=2 (
BNPL #
BP9= # LOAD CURRENT COUNT OF FAILS ON THIS DEVICE INTO X%B
BPNW #
BQ8G )
BQN6 #MAC LFAILS
BR7Q MODD LDX %B JK52K,%A,CPPTR(2)
BRMB #NOR
BS72 [??? LFAILTYP SECT COMM FGN 14 DOC
BSLL #SKI
BT6= (
BTKW #
BW5G # LOAD MT FAIL TYPE INTO B21-23 OF X%B
BWK6 #
BX4Q )
BXJB #MAC LFAILTYPE
BY42 MODD LDEX %B JK52E,%A,CPPTR(2)
BYHL SRL %B 6
B^3= #NOR
B^GW [??? LGEOG SECT COMM FGN 14 DOC
C22G #SKI
C2G6 (
C2^Q #
C3FB # LOAD DEVICE GEOGRAPHICAL NUMBER INTO B15-23 OF X%B
C3^2 #
C4DL )
C4Y= #MAC LGEOG
C5CW MODD LDEX %B JK52C,%A,CPPTR(2)
C5XG #NOR
C6C6 [??? LGPERIS SECT COMM FGN 14 DOC
C6WQ #SKI
C7BB (
C7W2 #
C8*L # LOAD CURRENT COUNT OF GEORGE PERIS ON THIS DEVICE INTO X%B
C8T= #
C9#W )
C9SG #MAC LGPERIS
C=#6 MODD LDX %B JK52H,%A,CPPTR(2)
C=RQ #NOR
C??B [??? LINECTRL SECT COMM FGN 27 DOC
C?R2 #SKI
C#=L (
C#Q= [ SWITCH MX LINE ON DME
C*9W )
C*PG #MAC LINECTRL
CB96 '153 %A %B
CBNQ #NOR
CC8B [??? LINT SECT COMM FGN 14 DOC
CCN2 #SKI
CD7L (
CDM= #
CF6W # LOAD INTERNAL NUMBER OF DEVICE INTO B15-23 OF X%B
CFLG #
CG66 )
CGKQ #MAC LINT
CH5B MODD LDEX %B JK52D,%A,CPPTR(2)
CHK2 #NOR
CJ4L [??? LJOBNO SECT COMM FGN 14 DOC
CJJ= #SKI
CK3W (
CKHG #
CL36 # LOAD X%B WITH THE NUMBER OF THE JOB THE DEVICE IS ONLINED TO
CLGQ #
CM2B )
CMG2 #MAC LJOBNO
CM^L LADDP %A,%B
CNF= MOD LDX %B APJOBNO,%B
CNYW #NOR
CPDG [??? LMODEQ SECT COMM FGN 14 DOC
CPY6 #SKI
CQCQ (
CQXB #
CRC2 # LOAD CURRENT MODE QUALIFIER OF MT INTO B18-23 OF X%B
CRWL #
CSB= )
CSTW #MAC LMODEQ
CT*G MODD LDX %B JK52E,%A,CPPTR(2)
CTT6 SRL %B 18
CW#Q #NOR
CWSB [??? LNLI SECT COMM FGN 14 DOC
CX#2 #SKI
CXRL (
CY?= #
CYQW # TO LOAD INTO X%B THE NUMBER OF LINES ON A MULTIPLEXOR (ZERO IN
C^=G # X%B IF NOT MULTIPLEXOR
C^Q6 #
D29Q )
D2PB #MAC LNLI
D392 MODD LDX %B JK52D,%A,CPPTR(2)
D3NL SRL %B 15
D48= #NOR
D4MW [??? LOBJPERI SECT COMM FGN 14 DOC
D57G #SKI
D5M6 (
D66Q #
D6LB # LOAD CURRENT COUNT OF OBJECT PROGRAM PERIS ON THIS DEVICE INTO X%B
D762 #
D7KL )
D85= #MAC LOBJPERIS
D8JW MODD LDX %B JK52I,%A,CPPTR(2)
D94G #NOR
D9J6 [??? LPROP SECT COMM FGN 14 DOC
D=3Q #SKI
D=HB (
D?32 #
D?GL # LOAD DEVICE'S PHYSICAL PROPERTIES INTO B15-23 OF X%B
D#2= #
D#FW )
D#^G #MAC LPROP
D*F6 MODD LDX %B JK52B,%A,CPPTR(2)
D*YQ SRL %B 6
DBDB ANDN %B #777
DBY2 #NOR
DCCL [??? LPSET SECT COMM FGN 14 DOC
DCX= #SKI
DDBW (
DDWG #
DFB6 # SET PAPER CORRECTLY ALIGNED MARKER ON THIS LP
DFTQ #
DG*B )
DGT2 #MAC LPSET
DH#L LDN 0 256
DHS= MODD ORS 0 JPSTATE,%A,CPPTR(2)
DJ?W #NOR
DJRG [??? LPTEST SECT COMM FGN 14 DOC
DK?6 #SKI
DKQQ (
DL=B #
DLQ2 # JUMP TO %B IF PAPER ALIGNED MARKER SET FOR THIS LP
DM9L #
DMP= )
DN8W #MAC LPTEST
DNNG MODD LDX 0 JPSTATE,%A,CPPTR(2)
DP86 ANDN 0 256
DPMQ BNZ 0 %B
DQ7B #NOR
DQM2 [??? LPUNSET SECT COMM FGN 14 DOC
DR6L #SKI
DRL= (
DS5W #
DSKG # UNSET PAPER CORRECTLY ALIGNED MARKER ON THIS LP
DT56 #
DTJQ )
DW4B #MAC LPUNSET
DWJ2 NGN 0 257
DX3L MODD ANDS 0 JPSTATE,%A,CPPTR(2)
DXH= #NOR
DY2W [??? LREPEATS SECT COMM FGN 14 DOC
DYGG #SKI
D^26 (
D^FQ #
D^^B # LOAD CURRENT COUNT OF REPEATS ON THIS DEVICE INTO X%B
F2F2 #
F2YL )
F3D= #MAC LREPEATS
F3XW MODD LDX %B JK52J,%A,CPPTR(2)
F4CG #NOR
F4X6 [??? LREPLYAD SECT COMM FGN 14 DOC
F5BQ #SKI
F5WB (
F6B2 #
F6TL # LOAD X%B WITH POINTER TO OBJECT PROGRAM'S REPLY WORD
F7*= #
F7SW )
F8#G #MAC LREPLYADD
F8S6 MODD LDX %B JCCA1,%A,CPPTR(2)
F9?Q ANDX %B BITS22LS
F9RB #NOR
F=?2 [??? LTIME SECT COMM
F=QL #SKI
F?== (
F?PW [
F#9G [ GET TIME FROM REALTIME CLOCK
F#P6 [
F*8Q )
F*NB #MAC LTIME
FB82 '171 %A 0
FBML #NOR
FC7= [??? LTYPE SECT COMM FGN 14 DOC
FCLW #SKI
FD6G (
FDL6 #
FF5Q # LOAD DEVICE TYPE INTO B18-23 OF X%B
FFKB #
FG52 )
FGJL #MAC LTYPE
FH4= MODD LDX %B JK52C,%A,CPPTR(2)
FHHW SRL %B 15
FJ3G #NOR
FJH6 [??? MODD SECT COMM FGN 14 DOC
FK2Q #SKI
FKGB (
FL22 #
FLFL # MODIFY %A BY %B, OR BY %C IF %B ABSENT
FL^= #
FMDW )
FMYG #MAC MODD
FND6 #STR %B
FNXQ MOD %A,%B
FPCB #STR %B
FPX2 #SKI
FQBL MOD %A,%C
FQW= #NOR
FR*W [??? PLOGGING SECT COMM FGN 21 DOC
FRTG #
FS*6 #SKI JSKI34
FSSQ (
FT#B # CHECKS WHETHER ELOG ACTIVITY HAS ALREADY LOGGED FAIL
FTS2 #MAC PLOGGING
FW?L LDX 2 FX2
FWR= STO 4 ACOMMUNE1(2)
FX=W STO 5 ACOMMUNE2(2)
FXQG STO 6 ACOMMUNE3(2)
FY=6 STO 7 ACOMMUNE4(2)
FYPQ LDX 4 %A
F^9B #STR 4,%B
F^P2 LDX 5 %B
G28L #STR 4,%B
G2N= #SKI
G37W LDX 5 ACOMMUNE1(2)
G3MG #STR 4,%C
G476 #SKI
G4LQ LDX 6 ACOMMUNE1(2)
G56B #STR 5,%C
G5L2 #SKI
G65L LDX 6 ACOMMUNE2(2)
G6K= #STR 4,%C
G74W (
G7JG #STR 5,%C
G846 (
G8HQ LDX 6 %C
G93B )
G9H2 )
G=2L #STR 4,%D
G=G= #SKI
G=^W LDX 7 ACOMMUNE1(2)
G?FG #STR 5,%D
G?^6 #SKI
G#DQ LDX 7 ACOMMUNE2(2)
G#YB #STR 6,%D
G*D2 #SKI
G*XL LDX 7 ACOMMUNE3(2)
GBC= #STR 4,%D
GBWW (
GCBG #STR 5,%D
GCW6 (
GD*Q #STR 6,%D
GDTB (
GF*2 LDX 7 %D
GFSL )
GG#= )
GGRW )
GH?G MPLOGX3 LDX 1 ELPIA
GHR6 #UNS ELOGDME
GJ=Q #SKI
GJQB MPLOGX2 TXU 4 ELCPT(1)
GK=2 #UNS ELOGDME
GKPL (
GL9= MPLOGX2 LDX 0 0(1)
GLNW ANDX 0 CTMXS2
GM8G BNZ 0 MPLOGX4 [ONLY SEE 1900 DEVICE INCIDENTS
GMN6 TXU 4 ELCPT(1)
GN7Q )
GNMB TXU 5 ACCN(1) [ERROR BEING LOGGED
GP72 TXU 6 ASBLN(1)
GPLL TXU 7 ACR(1)
GQ6= BCC MPLOGX1
GQKW #UNS ELOGDME
GR5G MPLOGX4
GRK6 FINDACTFB 2,,BSA,ELOG,MPLOGNO,FPTR [FIND NEXT ELOG
GS4Q LDN 1 ACSTSN(2)
GSJB BRN MPLOGX2
GT42 MPLOGX1 COOR3 #62 [LOOK AGAIN NEXT SPRING CLEAN
GTHL BRN MPLOGX3
GW3= MPLOGNO LDX 1 FX1
GWGW LDX 2 FX2
GX2G LDX 4 ACOMMUNE1(2)
GXG6 LDX 5 ACOMMUNE2(2)
GX^Q LDX 6 ACOMMUNE3(2)
GYFB LDX 7 ACOMMUNE4(2)
GY^2 #NOR
G^DL )
G^Y= [??? PROPCODE SECT COMM
H2CW #SKI
H2XG (
H3C6 [
H3WQ [ GET PROPERTY CODE INFO FROM EXEC FOR SPECIFIED DEVICE
H4BB [
H4W2 )
H5*L #MAC PROPCODE
H5T= #STR %A
H6#W LDX %B %A
H6SG #STR %A
H7#6 #SKI
H7RQ LDX %B CPPTR(2)
H8?B '171 %B 8
H8R2 #NOR
H9=L [??? PUTPEREN SECT COMM FGN 40 DOC
H9Q= #SKI
H=9W (
H=PG )
H?96 #MAC PUTPERENT
H?NQ #STR %A,0
H#8B LDX 0 %A
H#N2 SMO FX2
H*7L STO 0 ACOMMUNE7
H*M= #STR %B,6
HB6W LDX 6 %B
HBLG DOWN PUTPER,1
HC66 LDX 6 ACOMMUNE7(2)
HCKQ #NOR
HD5B [??? RELPEREN SECT COMM FGN 40 DOC
HDK2 #SKI
HF4L (
HFJ=
HG3W )
HGHG #MAC RELPERENT
HH36 #STR %A,0
HHGQ LDX 0 %A
HJ2B #STR %B,1
HJG2 LDX 1 %B
HJ^L LDX 2 FX2
HKF= STO 0 ACOMMUNE7(2)
HKYW #STR %B
HLDG STO 1 ACOMMUNE9(2)
HLY6 #STR %B
HMCQ #SKI
HMXB STOZ ACOMMUNE9(2)
HNC2 DOWN RELPER,1
HNWL #NOR
HPB= [??? RESTART SECT COMM FGN 40 DOC
HPTW #SKI
HQ*G (
HQT6
HR#Q )
HRSB #MAC RESTART [C.E.WILKINSON :PERFORMS RESTARTS ON SLOW PERIPHERALS
HS#2 LDX 2 FX2 [SET X2
HSRL LDX 0 CPRW1(2) [LOAD REPLY WORD
HT?= SLL 0 3
HTQW BNG 0 MR1 [J IF B3 SET (FAIL)
HW=G SLL 0 2
HWQ6 BPZ 0 MR2 [J IF B5 NOT SET
HX9Q MR3 ENGPER %A,,%B
HXPB BRN %C [DO PERI AGAIN
HY92 MR1 SLL 0 2 [IF B3+B5 SET LAST TRANS FAILED
HYNL BNG 0 MR4 [AND DISENGAGED SO MISS DIS
H^8= DISENGPER
H^MW MR4
J27G ENGPER %A,,%B,1 [ERROR RESTART MESSAGE
J2M6 BRN %C
J36Q MR2
J3LB #NOR
J462 [??? TELECOM SECT COMM FGN 16 DOC
J4KL #UNS ATELE
J55= (
J5JW #SKI
J64G (
J6J6 [
J73Q
J7HB [ ISSUES TELELOAD COMMAND - USED BY IPBINB
J832 [
J8GL )
J92= #MAC TELECOM
J9FW SETNCORE CPDATA+2-A1,3,ADATA,CREADL
J9^G LDN 0 8
J=F6 STO 0 A1(3)
J=YQ LDN 0 CPDATA(3)
J?DB LDN 7 MTELCO(1)
J?Y2 MOVE 7 2 [MOVE IN COMMAND
J#CL STOZ JSOURCE2(2)
J#X= LDCT 0 #770
J*BW STO 0 JSOURCE1(2) [MARK OPS CONSOLE ORIGIN
J*WG LDCT 0 #400 [SYSTEM ISSUED CONTEXT
JBB6 STO 0 CONTEXT(2)
JBTQ ACROSS COMPROA,1
JC*B MTELCO 8HTELELOAD
JCT2 #NOR
JD#L )
JDS= [??? TESTCODE SECT COMM FGN 14 DOC
JF?W #
JFRG #SKI JSKI38 [GLASGW SPECIALS
JG?6 (
JGQQ #MAC TESTCODE
JH=B #STR %A
JHQ2 SMO %A
JJ9L #STR %A
JJP= #SKI
JK8W SMO CPPTR(2)
JKNG LDX 1 JADDP
JL86 #STR READER,%B
JLMQ LDX 0 APCODET(1)
JM7B #STR READER,%B
JMM2 #SKI
JN6L LDX 0 APCODE(1)
JNL= LDX 1 FX1
JP5W BZE 0 %C
JPKG BRN %D
JQ56 #NOR
JQJQ )
^^^^ ...615352110002