{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACS IPB)}}
====== MACS IPB ======
(George Source)
22FL #SKI
22^= (
23DW
23YG [ MACS IPB COMM SECTION .
24D6
24XQ
25CB [
25X2 [CONTENTS LIST:-
26BL [
26W= [ AUTMOP
27*W [ CCILL [R.WEYAND
27TG [ CHAINJRN [JAN SLOGROVE
28*6 [ CHANGMOD
28SQ [ CHANGVD
29#B [ CLEARPASS
29S2 [ CLEARVDU
2=?L [ CTRINTLN [BERYL SMITH
2=R= [ INOPTIME
2?34 ...[ IPBANON
2?=W [ IPBCOUNT
2?QG [ IPBERRLOG
2#=6 [ IPBINOPID [JAN SLOGROVE
2#PQ [ IPBNOPCK [JAN SLOGROVE
2*9B [ IPBOUT
2*P2 [ IPBPM [JAN SLOGROVE - 7900 RESILIENCE
2B8L [ LISTDC2 [JAN SLOGROVE
2BN= [ NOFLASH
2C7W [ NPUOUTLP [BERYL SMITH
2CMG [ NPUSIZE
2D76 [ PMMBRK
2DLQ [ PROPAGANDA
2F6B [ REOPEN [R.WEYAND
2FL2 [ S1901RJE [R.WEYAND
2G5L [ SDADDWAIT
2GK= [ TERMIOFF
2H4W [ VDUCODE [R.WEYAND
2HJG [ WHICHMOP
2J46 [
2JHQ [END OF LIST.
2K3B [
2K?8 ...)
2KH2 [??? AUTMOP SECT COMM FGN 40 DOC
2L2L #SKI
2LG= (
2L^W [
2MFG [ RESTORE TIME MACRO TO TURN ON AUTO PAPER TAPE READING
2M^6 )
2NDQ #MAC AUTMOP
2NYB #MEN IPBSCANB
2PD2 #TRA K30IPBSCANB+INLBUFF+1-IDELE
2PXL #76037613
2QC= #TRA K30IPBSCANB+INOCHS-IDELE
2QWW +8
2RBG #TRA K30IPBSCANB
2RW6 +8
2S*Q #TRA K30IPBSCANB+IDELE+1-IDELE
2STB #76737673
2T*2 #END
2TSL #MEN IPBSCAN
2W#= #TRA K30IPBSCAN+INLBUFF+1-IDELE
2WRW #76037613
2X?G #TRA K30IPBSCAN+INOCHS-IDELE
2XR6 +8
2Y=Q #TRA K30IPBSCAN
2YQB +8
2^=2 #TRA K30IPBSCAN+IDELE+1-IDELE
2^PL #76737673
329= #END
32NW #MEN SCAN
338G #TRA K50SCAN+GDELE-GNOCHS
33N6 +8
347Q #END
34MB #NOR
3572 [??? CCILL SECT COMM FGN 40 DOC
35LL #SKI
366= (
36KW
375G )
37K6 #MAC CCILL [R.WEYAND
384Q [RESTORE TIME MACRO TO EFFECT AN IPB ERROR ON RECEIPT OF AN ILLEGAL
38JB [SUPERVISORY SEGMENT MEANING "ALREADY OPENED" FOR A 7023 IDENTIFIER
3942 #MEN IPBIN
39HL #TRA K37IPBIN
3=3= NULL
3=GW #END
3?2G #NOR
3?G6 [??? CHAINJRN SECT COMM FGN 40 DOC
3?^Q [
3#FB [ THIS MACRO WILL CHAIN AMXOR AJOURN BLOCK AT END OF LIST BEHIND
3#^2 [ AMOP AJOURN ACTIVITY AND THEN FPUT ACTIVITY IF NECESSARY
3*DL [
3*Y= #MAC CHAINJRN
3BCW LDX 2 FX2
3BXG FINDACTFB 2,,AMOP,AJOURN,MCONTU,BPTR
3CC6 MAGAIN
3CWQ HUNT2J 2,AMXOR,AJOURN,2,MENDAJOURN
3DBB BRN MAGAIN
3DW2 MENDAJOURN
3F*L MHUNTW 1,AMXOR,AJOURN
3FT= LDX 2 BPTR(2)
3G#W CHAIN 1,2
3GSG LDX 2 FX2
3H#6 FINDACTFB 2,,AMOP,AJOURN,MCONTU,BPTR
3HRQ LDX 0 IPBSW(2)
3J?B BNG 0 MCONTU
3JR2 LDX 0 GSIGN
3K=L STO 0 IPBSW(2)
3KQ= FPUT
3L9W MCONTU
3LPG LDX 1 FX1
3M96 LDX 2 FX2
3MNQ #NOR
3N8B [??? CHANGMOD SECT COMM FGN 40 DOC
3NN2 #SKI
3P7L (
3PM= [
3Q6W )
3QLG #UNS JSKI36+JSKI38
3R66 (
3RKQ [ THIS MACRO CHANGES THE MODE OF THE CURRENT DEVICE
3S5B [
3SK2 #MAC CHANGMOD
3T4L SMO FX2
3TJ= STO %A ACOMMUNE1 [MODE AND,OR NPU SIZE
3W3W DOWN IPBSCAN,7
3WHG BRN %B [MOPPING OFF
3X36 BRN %C [MODE NOT AVAILABLE
3XGQ #NOR
3Y2B )
3YG2 [??? CHANGVD SECT COMM FGN 40 DOC
3Y^L #SKI
3^F= (
3^YW [
42DG [
42Y6 )
43CQ #SKI JSKI09
43XB (
44C2
44WL #MAC CHANGVD [R.WEYAND
45B= [THIS MACRO CONVERTS A MOP DISPLAY INPUT MESSAGE TO GRAPHIC FORMAT AND
45TW [UPDATES THE CURSOR POSITIONING COUNTS IN THE AMXOR/ADCB BLOCK(UNLESS
46*G [BREAK-IN OCCURS).
46T6 DOWN CHANG,2
47#Q #NOR
47SB )
48#2 [??? CLEARPASS SECT COMM FGN1 DOC
48RL #SKI
49?= (
49QW [ RESTORE TIME MACRO TO ALLOW USE OF CLEAR SCREEN FACILITY
4==G [ AFTER INPUT OF PASSWORDON VDUMOP AND VIDIMOP
4=Q6 [ DEFAULT IS SCREEN NOT CLEARED
4?9Q )
4?PB #MAC CLEARPASS
4#92 #STR %A,ON
4#NL #SKI
4*8= (
4*MW #MEN ADDJOB
4B7G #TRA K20ADDJOB
4BM6 NULL
4C6Q #END
4CLB #EXI
4D62 )
4DKL #STR %A
4F5= #SKIP
4FJW (
4G4G #MEN ADDJOB
4GJ6 #TRA K20ADDJOB
4H3Q NULL
4HHB #END
4J32 #EXI
4JGL )
4K2= #STR OFF,%A
4KFW #SKI
4K^G (
4LF6 #MEN ADDJOB
4LYQ #TRA K20ADDJOB
4MDB BRN K21ADDJOB
4MY2 #END
4NCL #EXI
4NX= )
4PBW #NOR
4PWG [??? CLEARVDU SECT COMM FGN1 DOC
4QB6 #SKI
4QTQ (
4R*B [ THIS MACRO SENDS A CLEAR SCREEN MESSAGE TO VDUS ON IPBS
4RT2 [ AFTER A PASSWORD HAS BEEN INPUT
4S#L )
4SS= #MAC CLEARVDU
4T?W LDX 2 FX2
4TRG LDX 0 JSOURCE1(2) [GET PERIPHERAL TYPE
4W?6 SRL 0 18
4WQQ SBN 0 24
4X=B BZE 0 MMBS [J IF MOP ON IPB
4XQ2 SBN 0 36
4Y9L BZE 0 MACI [J IF MOP ON CI CHANNEL
4YP= BRN MFIN
4^8W MMBS
4^NG MHUNTW 2,AMXOR,ADCB
5286 LDX 1 A1+FPTR(2) [X1= POINTER TO ADEVS RING ELEMENT
52MQ LDX 0 FOURTHWD-FPTR(1)
537B ANDN 0 #17
53M2 SBN 0 2
546L BZE 0 MCLSC [J IF AVDU
54L= SBN 0 8
555W BNZ 0 MFIN [J IF NOT AVDU
55KG MCLSC
5656 LDCT 0 #4
56JQ ORS 0 ICURPOS(2)
574B MACI
57J2 MONOUT JPASSCL
583L MFIN
58H= LDX 1 FX1
592W LDX 2 FX2
59GG #NOR
5=26 [??? CTPRINTLN SECT COMM
5=FQ [
5=^B [ RESTORE TIME MACRO TO CHANGE NO. OF TRANSFERS TO NO. OF PRINT
5?F2 [ LINES IN LF MESSAGES 80,81, & 82
5?YL [
5#D= #MAC CTPRINTLN
5#XW #MEN IPBLISTB
5*CG #TRA K53IPBLISTB
5*X6 LDN 0 1
5BBQ SMO FX2
5BWB ADS 0 ALFTRANS
5CB2 #TRA K54IPBLISTB
5CTL NULL
5D*= #END
5DSW #NOR
5F#G [??? INOPTIME SECT COMM FGN 40 DOC
5FS6 #SKI
5G?Q (
5GRB
5H?2 [
5HQL [ RESTORE TIME MACRO TO ALTER PERIOD THE MOP ROUTINES WAIT
5J== [ BEFORE DECIDING A TERMINAL HAS BECOME INOPERABLE.
5JPW [
5K9G )
5KP6 #MAC INOPTIME
5L8Q #STR CHAR,%A
5LNB #SKI
5M82 (
5MML #MEN MULTIPLX
5N7= #TRA K50MULTIPLX
5NLW LDN 7 3+%B/FONINTP
5P6G #END
5PL6 )
5Q5Q #STR MESS,%A
5QKB #SKI
5R52 (
5RJL #MEN IPBMOP
5S4= #TRA K51IPBMOP
5SHW 3+%B/FONINTP
5T3G #END
5TH6 #MEN IPBMOPB
5W2Q #TRA K51IPBMOPB
5WGB 3+%B/FONINTP
5X22 #END
5XFL #MEN IPBIN
5X^= #TRA K51IPBIN
5YDW LDN 0 %B<4095 [IF %B(TIME) > 0,
5YYG [WAITS UNLESS ON AUTO-ANSWER LINE
5^D6 [IF %B(TIME) = 0,
5^XQ [TAKES INOP ACTION IMMEDIATELY
62CB #END
62X2 )
63BL #NOR
63DJ ...[??? IPBANON SECT COMM FGN 1
63GG ...#MAC IPBANON
63JD ... LDX 0 IPBSW(2) [LD. IPB SWITCH WORD
63LB ... ANDX 0 BIT10
63N# ... BNZ 0 %A [J. BIT 10 STILL SET UNIT NO. DEFINE
63Q= ... [NOT IN THE IDF YET
63S8 ...#NOR
63W= [??? IPBCOUNT SECT COMM FGN 40 DOC
64*W #SKI
64TG (
65*6
65SQ )
66#B #MAC IPBCOUNT
66S2 LDN %A 1
67?L LDX %C IPBADDR
67R= M1IPBCOUNT
68=W TXU %C %B
68QG BCC M2IPBCOUNT
69=6 MOD LDX %C IPBL,%C
69PQ BUX %A M1IPBCOUNT
6=9B M2IPBCOUNT
6=P2 SLL %A 12
6?8L #NOR
6?N= [??? IPBERRLOG SECT COMM
6#7W #MAC IPBERRLOG
6#MG #STR ON,%A
6*76 #SKI
6*LQ (
6B6B #MEN IPBSCAN
6BL2 #TRA K70IPBSCAN
6C5L BZE 0 K72IPBSCAN
6CK= #END
6D4W )
6DJG #STR OFF,%A
6F46 #SKI
6FHQ (
6G3B #MEN IPBSCAN
6GH2 #TRA K70IPBSCAN
6H2L BZE 0 K71IPBSCAN
6HG= #END
6H^W )
6JFG #NOR
6J^6 [??? IPBINOPID SECT COMM FGN 1 DOC
6KDQ [
6KYB [ THIS MACRO DECIDES IF IDENTIFIER ON WHICH A JOB IS BEING RUN HAS GON
6LD2 [
6LXL [ INOPERABLE. IF NOT EXITS. IF IDENTIFIER IS INOPERABLE THEN DOWN TO
6MC= [ IPBMOPB ENTRY POINT 1 WHICH WILL CRASH CLOSE AND RE-OPEN.
6MWW [
6NBG #MAC IPBINOPID
6NW6 LDCH 0 JSOURCE1(2) [ON ENTRY X2 PTS TO CPAT
6P*Q SBN 0 #30
6PTB BNZ 0 MIPBEX [J. NOT IPB.
6Q*2 MHUNTW 2,AMXOR,ADCB [HUNT IDENT INFO. BLOCK
6QSL LDX 0 ISTATUS(2) [TEST STATUS
6R#= BPZ 0 MIPBEX
6RRW DOWN IPBMOPB,1 [GO DOWN TO IPBMOPB REENTRY IS VIA
6S?G [MULTIPLX K4 ENTRY POINT
6SR6 MIPBEX
6T=Q LDX 2 FX2
6TQB LDX 1 FX1
6W=2 #NOR
6WPL [??? IPBNOPCK SECT COMM FGN 1 DOC
6X9= #SKI
6XNW (
6Y8G [ RESTORE TIME MACRO TO ALLOW ONLY 2 RECORDS TO BE PACKED PER LP'S
6YN6 [ NPU.
6^7Q [
6^MB )
7272 #MAC IPBNOPCK
72LL #STR %A,ON
736= #SKI
73KW (
745G #MEN IPBLISTB
74K6 #TRA K60IPBLISTB
754Q LDXC 5 AWORK1(1)
75JB BCS K64IPBLISTB [J. NOT LP
7642 ANDX 0 IWORK10(1) [ISOLATE LAST BIT OF RECORD NUMBER
76HL BZE 0 K63IPBLISTB [IF NEXT RECORD NUMBER IS EVEN,OUTPUT
773= #TRA K61IPBLISTB
77GW BRN K62IPBLISTB [GET SECOND RECORD
782G #END
78G6 #EXI
78^Q )
79FB #STR OFF,%A
79^2 #SKI
7=DL (
7=Y= #MEN IPBLISTB
7?CW #TRA K60IPBLISTB
7?XG NULL
7#C6 NULL
7#WQ NULL
7*BB NULL
7*W2 #TRA K61IPBLISTB
7B*L NULL
7BT= #END
7C#W #EXI
7CSG )
7D#6 #NOR
7DRQ [??? IPBOUT SECT COMM FGN 40 DOC
7F?B #SKI
7FR2 (
7G=L
7GQ= )
7H9W #MAC IPBOUT
7HPG #STR %A,0
7J96 LDX 0 %A [NO. OF CHS.
7JNQ #STR %A
7K8B #SKI
7KN2 NGN 0 1
7L7L SMO FX2
7LM= STO 0 ACOMMUNE7
7M6W DOWN IPBMOP,1
7MLG #NOR
7N66 [
7NKQ [??? IPBPM SECT COMM
7P5B [
7PK2 #MAC IPBPM [RESTORE MACRO
7Q4L #STR ON,%A
7QJ= #SKI
7R3W (
7RHG #MEN IPBERROR
7S36 #TRA K50IPBERROR
7SGQ +14
7T2B #TRA K51IPBERROR
7TG2 4H
7T^L #TRA K55IPBERROR
7WF= GEOERR 1,IPBERR
7WYW #END
7XDG )
7XY6 #STR %A
7YCQ #SKI
7YXB (
7^C2 #MEN IPBERROR
7^WL #TRA K50IPBERROR
82B= +14
82TW #TRA K51IPBERROR
83*G 4H
83T6 #TRA K55IPBERROR
84#Q GEOERR 1,IPBERR
84SB #END
85#2 )
85RL #STR OFF,%A
86?= #SKI
86QW (
87=G #STR LIMBO,%B
87Q6 #SKI
889Q (
88PB #MEN IPBERROR
8992 #TRA K50IPBERROR
89NL +18
8=8= #TRA K51IPBERROR
8=MW 4H,LI
8?7G #TRA K55IPBERROR
8?M6 NULL
8#6Q NULL
8#LB #END
8*62 )
8*KL
8B5= #STR LIMBO,%B
8BJW (
8C4G #MEN IPBERROR
8CJ6 #TRA K50IPBERROR
8D3Q +14
8DHB #TRA K51IPBERROR
8F32 4H
8FGL #TRA K55IPBERROR
8G2= NULL
8GFW NULL
8G^G #END
8HF6 )
8HYQ )
8JDB #NOR
8JY2 [??? LISTDC2 SECT COMM FGN1 DOC
8KCL #SKI
8KX= (
8LBW [ RESTORE TIME MACRO TO ALLOW THE DC2 CHARACTER TO BE INSERTED
8LWG [ AT THE END OF A LIST - DEFAULT IS THAT THE CHARACTER IS INSERTED
8MB6 [
8MTQ [ NB. CURRENTLY THIS MARCO IS ONLY FOR IPB SEGMENT BUT IT IS REQUIR
8N*B [ FOR THE PCT SEGMENTS USED FOR SCANNER ONLY LISTINGS.
8NT2 )
8P#L #MAC LISTDC2
8PS= #STR %A,ON
8Q?W #SKI
8QRG (
8R?6 #MEN IPBLISTA
8RQQ #TRA K64IPBLISTA
8S=B ADN 4 4
8SQ2 #TRA K65IPBLISTA
8T9L MVCH 4 4 [ CR DC2
8TP= #TRA K60IPBLISTA
8W8W NULL
8WNG NULL
8X86 NULL
8XMQ NULL
8Y7B #TRA K61IPBLISTA
8YM2 NULL
8^6L #TRA K62IPBLISTA
8^L= NULL
925W NULL
92KG NULL
9356 NULL
93JQ #TRA K63IPBLISTA
944B NULL
94J2 #END
953L #EXI
95H= )
962W #STR OFF,%A
96GG #SKI
9726 (
97FQ #MEN IPBLISTA
97^B #TRA K64IPBLISTA
98F2 NULL
98YL #TRA K65IPBLISTA
99D= NULL
99XW #TRA K60IPBLISTA
9=CG IF BS,3,ADCBTSPOOL [SPOOLING
9=X6 THEN
9?BQ #TRA K61IPBLISTA
9?WB FI
9#B2 #TRA K62IPBLISTA
9#TL IF BS,3,ADCBTSPOOL [SPOOLING
9**= THEN
9*SW #TRA K63IPBLISTA
9B#G FI
9BS6 #END
9C?Q #EXI
9CRB )
9D?2 #NOR
9DQL [??? NOFLASH SECT COMM FGN 40 DOC
9F== #SKI
9FPW (
9G9G
9GP6 [
9H8Q [ RESTORE TIME MACRO TO SUPPRESS OUTPUT OF NEWLINES TO VDUS
9HNB [ REQUIRED AS SOME 7181/2 DISPLAYS FLASH CURSOR ACROSS
9J82 [ SCREEN ON RECEIPT OF NEWLINE CODE.
9JML [
9K7= )
9KLW #MAC NOFLASH
9L6G #MEN IPBMOPB
9LL6 #TRA K70IPBMOPB
9M5Q BRN K71IPBMOPB
9MKB #TRA K72IPBMOPB
9N52 BRN K73IPBMOPB
9NJL #END
9P4= #NOR
9PHW [??? NPUOUTLP SECT COMM
9Q3G [
9QH6 [ RESTORE TIME MACRO TO CHANGE NO. OF NPU'S OUTPUT AT ANY TIME TO
9R2Q [ ALLEVIATE DCP OVERLOAD PROBLEMS
9RGB [ DEFAULT = 2 CHANGED TO = 1
9S22 [
9SFL #MAC NPUOUTLP
9S^= #MEN IPBLISTB
9TDW #TRA K40IPBLISTB
9TYG SBN 5 2
9WD6 #END
9WXQ #NOR
9XCB [??? NPUSIZE SECT COMM FGN 41 DOC
9XX2 #SKI
9YBL (
9YW=
9^*W [
9^TG [ RESTORE TIME MACRO TO ALTER 7900 BUFFER SIZE.
=2*6 [
=2SQ )
=3#B #MAC NPUSIZE
=3S2 #SKI %A>7$7
=4?L (
=4R= #SKI JSKI21<1$1
=5=W #SKI %A<509$509
=5QG (
=6=6 #SKI JSKI21
=6PQ #SKI %A<598$598
=79B (
=7P2 #MEN IPBSTART
=88L #TRA K50IPBSTART
=8N= #HAL %A+3,%A+3
=97W #TRA K51IPBSTART
=9MG ADN 3 %A+1
==76 #TRA K52IPBSTART
==LQ LDN 5 %A+3
=?6B #TRA K53IPBSTART
=?L2 LDN 5 %A+3
=#5L #END
=#K= #MEN IPBSTARB
=*4W #TRA K50IPBSTARB
=*JG #HAL %A+3,%A+3
=B46 #TRA K51IPBSTARB
=BHQ ADN 3 %A+1
=C3B #TRA K52IPBSTARB
=CH2 LDN 5 %A+3
=D2L #TRA K53IPBSTARB
=DG= LDN 5 %A+3
=D^W #END
=FFG
=F^6 #MEN IPBSCAN
=GDQ #TRA K50IPBSCAN
=GYB #UNS AV7900S
=HD2 (
=HXL #24:(64<%A)
=JC= #TRA K51IPBSCAN
=JWW 3:(70<%A)
=KBG #TRA K52IPBSCAN
=KW6 #21:(40<%A)
=L*Q #TRA K53IPBSCAN
=LTB #22:(40<%A)
=M*2 #TRA K54IPBSCAN
=MSL #21:(64<%A)
=N#= #TRA K55IPBSCAN
=NRW #21:(41<%A)
=P?G #TRA K56IPBSCAN
=PR6 1:(41<%A)
=Q=Q #TRA K57IPBSCAN
=QQB #24:(53<%A)
=R=2 #TRA K58IPBSCAN
=RPL #23:(38<%A)
=S9= #TRA K73IPBSCAN
=SNW #21:(28<%A)
=T8G )
=TN6 #UNS AV7900S
=W7Q #SKI
=WMB (
=X72 #SKI JSKI09<1$1
=XLL (
=Y6= 4:(64<%A)
=YKW 3:(64<%A)
=^5G 1:(40<%A)
=^K6 1:(64<%A)
?24Q 1:(41<%A)
?2JB 1:(41<%A)
?342 )
?3HL #SKI JSKI09
?43= (
?4GW #24:(64<%A).2
?52G 3:(70<%A)
?5G6 1:508.1
?5^Q 3:508.3
?6FB #21:(40<%A)
?6^2 #22:(40<%A)
?7DL 1:508.3
?7Y= #21:(64<%A)
?8CW 1:508.3
?8XG #21:(41<%A)
?9C6 1:508.3
?9WQ 1:(41<%A)
?=BB 1:508.3
?=W2 #24:(53<%A).2
??*L #UNS ATELE
??T= #23:(38<%A).2
?##W #21:(28<%A).2
?#SG )
?*#6 )
?*RQ #UNS JSKI38
?B?B (
?BR2 #TRA K57IPBSCAN
?C=L SBN 0 %A-9
?CQ= )
?D9W #END
?DPG
?F96 #MEN IPBCCB
?FNQ #TRA K50IPBCCB
?G8B SBN 0 %A
?GN2 #END
?H7L #EXI
?HM= )
?J6W )
?JLG )
?K66 ! %A IS OUT OF RANGE
?KKQ #NOR
?L5B [
?LK2 [???? PMMBRK SECT COMM FGN1
?M4L #SKI
?MJ= (
?N3W [ RESTORE TIME MACRO. SHFS ONLY
?NHG [ TO PROVIDE THE FACILITY OF BREAKING THE MASTER IF THE SLAVE BREAKS
?P36 [ FOR EITHER A SPECIFIC GEOERR (TO BE SPECIFIED) OR FOR ANY REASON
?PGQ [
?Q2B )
?QG2 #MAC PMMBRK
?Q^L #MEN CLOSEIPB
?RF= #STR %A
?RYW (
?SDG #STR OFF,%A
?SY6 (
?TCQ #STR ALL,%A
?TXB (
?WC2 #SKI 34?+K99CLOSEIPB]-21
?WWL (
?XB= #TRA K99CLOSEIPB
?XTW 34?+K99CLOSEIPB]+3
?Y*G #TRA 34?+K99CLOSEIPB]+K50CLOSEIPB
?YT6 8H%A
?^#Q #STR %B,EXEC
?^SB (
#2#2 #TRA 34?+K99CLOSEIPB]+K50CLOSEIPB+2
#2RL -3
#3?= )
#3QW #STR %B,EXEC
#4=G #SKI
#4Q6 (
#59Q #TRA 34?+K99CLOSEIPB]+K50CLOSEIPB+2
#5PB -2
#692 )
#6NL )
#78= )
#7MW #STR ALL,%A
#87G #SKI
#8M6 (
#96Q #TRA K50CLOSEIPB
#9LB +0
#=62 +0
#=KL #TRA K99CLOSEIPB
#?5= -3
#?JW #STR %B,EXEC
##4G (
##J6 #TRA K50CLOSEIPB+2
#*3Q -3
#*HB )
#B32 #STR %B,EXEC
#BGL #SKI
#C2= (
#CFW #TRA K50CLOSEIPB+2
#C^G -2
#DF6 )
#DYQ )
#FDB )
#FY2 #STR OFF,%A
#GCL #SKI
#GX= (
#HBW #TRA K50CLOSEIPB
#HWG 8H
#JB6 #TRA K99CLOSEIPB
#JTQ -3
#K*B )
#KT2 )
#L#L #STR %A
#LS= #SKI
#M?W (
#MRG #TRA K50CLOSEIPB
#N?6 8H
#NQQ )
#P=B #SKI 34?+K99CLOSEIPB]-21
#PQ2 #SKI
#Q9L (
#QP= !! MORE THAN 8 PMMBRK RESTORE MACROS SPECIFIED
#R8W )
#RNG #END
#S86 #NOR
#SMQ [??? PROPAGAN SECT COMM FGN 40 DOC
#T7B #SKI
#TM2 (
#W6L
#WL= [
#X5W [ RESTORE TIME MACRO TO CAUSE CONTENTS OF A FILE TO BE
#XKG [ LISTED TO MOP DISPLAYS JUST BEFORE THE 'CLOSED DOWN' MESS
#Y56 [
#YJQ )
#^4B #MAC PROPAGANDA
#^J2
*23L #MEN IPBMOPB
*2H= #TRA K60IPBMOPB
*32W NULL
*3GG #END
*426
*4FQ #STR %A%B
*4^B (
*5F2 #MEN LISTMOP
*5YL #STR %A
*6D= (
*6XW #TRA K60LISTMOP+1
*7CG 12H%A
*7X6 )
*8BQ #STR %B
*8WB (
*9B2 #TRA K60LISTMOP+4
*9TL 12H%B
*=*= )
*=SW #END
*?#G )
*?S6
*#?Q #NOR
*#RB [??? REOPEN SECT COMM FGN 40 DOC
**?2 #SKI
**QL (
*B==
*BPW [
*C9G [ RESTORE TIME MACRO TO SWITCH ON OR OFF THE FACILITY
*CP6 [ WHEREBY GEORGE WILL ATTEMPT TO REOPEN THE CC DCP
*D8Q [ WHEN THE CC BECOMES INOPERABLE AFTER INITIALISATION
*DNB [
*F82 )
*FML #MAC REOPEN
*G7= #MEN IPBINB
*GLW #TRA K50IPBINB
*H6G #STR OFF,%A
*HL6 #SKI
*J5Q #03600002 [%A=OFF, EXCLUDE CALL TO REOPEN S/R
*JKB #STR OFF,%A
*K52 #03600001 [%A NOT=OFF,INCLUDE CALL TO REOPEN
*KJL #END
*L4= #NOR
*LHW [??? S1901RJE SECT COMM FGN 40 DOC
*M3G #SKI
*MH6 (
*N2Q
*NGB [
*P22 [ RESTORE-TIME MACRO TO FORCE THE ADDITION OF CR + DC3
*PFL [ CHARS AT THE END OF RESTART SECTIONS OF 1901A RJE LIST-
*P^= [ FILES
*QDW [
*QYG )
*RD6 #MAC S1901RJE [R.WEYAND
*RXQ #MEN IPBLISTB
*SCB #TRA K30IPBLISTB
*SX2 NULL
*TBL #END
*TW= #NOR
*W*W [??? SDADDWAI SECT COMM FGN 50 DOC
*WTG [
*X*6 [ SPECIFIES AMOUNT TO BE ADDED TO MOPWAITTIME FOR SCEDIT JOBS
*XSQ [
*Y#B #MAC SDADDWAIT
*YS2 #MEN IPBMOP
*^?L #TRA K53IPBMOP
*^R= +60*%A+3/FONINTP
B2=W #END
B2QG #NOR
B3=6 [??? TERMIOFF SECT COMM FGN 43 DOC
B3PQ #MAC TERMIOFF [R.WEYAND
B49B [THIS MACRO SENDS ESC&J CODE TO TURN OFF THE PRINTER MOTOR OF MOP
B4P2 [CONSOLES VIA 7900S AT CLOSE DOWN TIME. IF ESC CODES ARE NOT RECOGNISED
B58L [BY THE TERMINAL(E.G. 7071),THE CHAR J WILL BE PRINTED AFTER THE 3 NLS.
B5N= #MEN IPBMOPB
B67W #TRA K52IPBMOPB
B6MG NULL
B776 #END
B7LQ #NOR
B86B [??? VDUCODE SECT COMM FGN 40 DOC
B8L2 #SKI JSKI09
B95L (
B9K= #SKI
B=4W (
B=JG
B?46 [
B?HQ [ RESTORE TIME MACRO TO CHANGE THE CHARACTER CONVERSION
B#3B [ CODE THAT GEORGE USES FOR VDU MOP TRANSACTIONS VIA
B#H2 [ 7900S ON AN INSTALLATION.
B*2L [
B*G= )
B*^W #MAC VDUCODE
BBFG #MEN IPBSCANB
BB^6 #TRA K40IPBSCANB
BCDQ #SKI %A-1
BCYB #SKI
BDD2 0 [UNSET B0 OF ICONTU IF CODE 1
BDXL #SKI %A-2
BFC= #SKI
BFWW #40000000 [SET B0 OF ICONTU IF CODE 2
BGBG #END
BGW6 #MEN IPBSCAN
BH*Q #TRA K40IPBSCAN
BHTB #SKI %A-1
BJ*2 #SKI
BJSL 0 [UNSET B0 OF ICONTU IF CODE 1
BK#= #SKI %A-2
BKRW #SKI
BL?G #40000000 [SET B0 OF ICONTU IF CODE 2
BLR6 #END
BM=Q #NOR
BMQB )
BN=2 [??? WHICHMOP SECT COMM FGN 40 DOC
BNPL #SKI
BP9= (
BPNW
BQ8G )
BQN6 #MAC WHICHMOP
BR7Q SMO FX2
BRMB LDX 0 IDENTINFO
BS72 BZE 0 %A
BSLL #NOR
^^^^ ...614614630001