(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