(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