7 22FL #LIS K0OPILLSA 16 22_= #SEG OPILLSA206 [EMRYS WILLIAMS 21 23DW # THIS SEGMENT IS ENTERED FROM OPILLS TO PRINT THE DIAGNOSTICS CONCE 18 23YG # WITH AN OBJ PROG.ILLEGAL & TO GENERATE A PROG.EVENT. 7 24D6 8HOPILLSA6 11 24XQ SEGENTRY K1OPILLSA,XENT1 7 25CB #DEF VEXT=EXT 19 25X2 #DEF VCOUNT=A1 [POSN OF RECORD IN GMON,AOUT 7 26BL #DEF VSPROG=A1 8 26W= #DEF VSCOND=A1+2 8 27*W #DEF VSTATE=A1+3 7 27TG #DEF VMASK=A1+5 7 28*6 #DEF VMEMS=A1+6 7 28SQ #DEF VSMO=A1+20 8 29#B #DEF VINSTR=A1+24 8 29S2 #DEF VCAREA=A1+27 9 2=?L # VARIOUS CONSTANTS 9 2=R= QH60S #60000000 9 2?=W QPOINT #36002020 9 2?QG QIN #51562000 10 2#=6 NERR GEOERR 0(3),OPILLSA 5 2#PQ XENT1 9 2*9B #SKIP K6OPILLSA>199-199 9 2*P2 TRACE 1,OPILLSA 21 2B8L #SKIP G4 [PUT OUT ADDITIONAL MESSAGE STORED 19 2BN= CHERRMESS [BY THE CHECKB MACRO - IF ANY 17 2C7W LDN 3 XPRINT [ENTER'MACRO CODE' 8 2CMG BRN XFOP 21 2D76 # THIS IS THE CENTRAL LOOP WHICH PICKS UP THE CONTROL CHAR LOCATED 10 2DLQ # BY X3 & SWITCHES ON IT 21 2F6B XNOP ANDX 3 BITS22LS [ENTRY TO STEP X3 & DO NEXT OPERATION 7 2FL2 ADN 3 1 16 2G5L XFOP SMO FX1 [INITIAL ENTRY 15 2GK= LDCH 0 0(3) [PICK UP CHAR 20 2H4W BCHX 3 / [SET X3 READY TO PICK UP PARAM 8 2HJG SMO FX1 17 2J46 LDCH 1 0(3) [PICK UP FIRST PARAM 7 2JHQ SMO 0 14 2K3B BRN M [SWITCH 5 2KH2 #SKIP G4 4 2L2L ( 21 2LG= # THIS SECTION OUTPUTS THE PROGS QUOTA & PAGE TURN COUNT AS PARAMS 5 2L_W NG4FRIG 8 2MFG FPCACA 2,FX2 10 2M_6 HUNT2 2,BSTB,BSCB 9 2NDQ LDX 6 AQUOTA(2) 8 2NYB ANDN 6 #7777 10 2PD2 LDX 7 ATSWAPS(2) 9 2PXL OUTPACKC 6,1,QUOTA 10 2QC= OUTPACKC 7,1,PAGETURN 8 2QWW BRN XNOP 4 2RBG ) 5 2RW6 NOUTPACK 11 2S*Q HUNT2 2,APED,ANOMESS 10 2STB LDX 5 VCAREA+1(2) 10 2T*2 OUTPACKC 5,1,PERINAME 8 2TSL BRN XNOP 21 2W#= # THIS SECTION DOES AN'OUTBLOCK' TO SET UP A BLOCK FOR PARAMS.SIZE=% 6 2WRW NOUTBLOCK 11 2X?G #SKIP K6OPILLSA>999-999 10 2XR6 TRACE 1,OUTBLOCK 7 2Y=Q OUTBLOCK 1 8 2YQB BRN XNOP 21 2_=2 # OUTPUT A CHAR STRING FROM'APED,ANOMESS'AS A PARAM.NO.OF CHARS=%A.P 6 2_PL NOUTPARAM 11 329= #SKIP K6OPILLSA>999-999 10 32NW TRACE 1,OUTPARAM 15 338G BCHX 3 / [PICK UP %B 8 33N6 SMO FX1 8 347Q LDCH 2 0(3) 11 34MB OUTPARAX 1,2,APED,ANOMESS 8 3572 BRN XNOP 17 35LL # OUTPUT THE CONTENTS OF A WORD(%A-AN ACC)IN OCTAL 5 366= NOCTAL 8 36KW LDX 0 0(1) 11 375G #SKIP K6OPILLSA>999-999 9 37K6 TRACE 0,OCTAL 9 384Q OUTNUM 0,OCTAL 8 38JB BRN XNOP 21 3942 # OUTPUT THE CONTENTS OF A WORD(%A)IN DECIMAL WITH ZERO SUPRESSION 5 39HL NDECIMAL 8 3=3= LDX 0 0(1) 11 3=GW #SKIP K6OPILLSA>999-999 9 3?2G TRACE 0,DECIMAL 4 3?G6 Z10 8 3?_Q OUTNUM 0,0 8 3#FB BRN XNOP 20 3#_2 # OUTPUT THE CONTENTS OF A WORD IN ADDRESS FORMAT.(TWO PARAMS) 5 3*DL NCADDR 18 3*Y= LDX 0 0(1) [PICK UP CONTENTS OF WORD 11 3BCW #SKIP K6OPILLSA>999-999 9 3BXG TRACE 0,CADDR. 17 3CC6 ANDX 0 BITS22LS [PUT OUT WORD ADDR 8 3CWQ OUTNUM 0,0 8 3DBB SMO FX1 17 3DW2 LDCH 1 0(3) [PICK UP PARAM AGAIN 16 3F*L LDCT 0 #600 [GET CHAR ADDR 8 3FT= ANDX 0 0(1) 15 3G#W BZE 0 Z12 [JUMP IF ZERO 8 3GSG SRL 0 10 15 3H#6 SMO FX1 [OUTPUT '. ' 9 3HRQ ORX 0 QPOINT 7 3J?B Z11 LDN 2 2 8 3JR2 Z11A SMO FX2 8 3K=L STO 0 VEXT 9 3KQ= Z11B OUTPARAM 2,VEXT 8 3L9W BRN XNOP 15 3LPG Z12 LDX 0 ACES [OUTPUT' ' 8 3M96 BRN Z11 16 3MNQ # OUTPUT THE CONTENTS OF A WORD AS A WORD ADDR. 5 3N8B NWADDR 8 3NN2 LDX 0 0(1) 11 3P7L #SKIP K6OPILLSA>999-999 9 3PM= TRACE 0,WADDR 9 3Q6W Z13 ANDX 0 BITS22LS 8 3QLG BRN Z10 11 3R66 #SKIP K6OPILLSA>999-999 21 3RKQ # OUTPUT THE CONTENTS OF A WORD AS A WORD ADDR IF +VE.ELSE OUTPUT NU 5 3S5B NPOSADDR 8 3SK2 LDX 0 0(1) 11 3T4L #SKIP K6OPILLSA>999-999 9 3TJ= TRACE 0,POSADDR 8 3W3W BPZ 0 Z13 7 3WHG Z13A OUTNULL 8 3X36 BRN XNOP 17 3XGQ # OUTPUT MESSAGE FROM TABLE.%A GIVES POSN IN TABLE 5 3Y2B NTABMESS 8 3YG2 SMO FX1 8 3Y_L LDX 0 W(1) 4 3_F= Z14 11 3_YW #SKIP K6OPILLSA>999-999 9 42DG TRACE 0,MESSAGE 7 42Y6 MONOUTX 0 8 43CQ BRN XNOP 14 43XB # OUTPUT MESSAGE WHOSE ADDRESS IS IN %A 5 44C2 NACCMESS 18 44WL LDX 0 0(1) [PICK UP ADDR OF MESSAGE 9 45B= ANDX 0 BITS22LS 8 45TW BRN Z14 20 46*G Z15 BCHX 3 / [ENTRY FROM CONDITIONAL BRANCHES 8 46T6 SMO FX1 8 47#Q LDCH 1 0(3) 15 47SB # UNCONDITIONAL BRANCH.RESET X3 FROM TABLE 8 48#2 NBRN SMO FX1 8 48RL LDX 3 S(1) 11 49?= #SKIP K6OPILLSA>999-999 8 49QW TRACE 3,BRN 8 4==G BRN XFOP 16 4=Q6 # BRANCH IF CONTENTS OF %A ARE -VE TO %B 8 4?9Q NBNG LDX 0 0(1) 8 4?PB BNG 0 Z15 8 4#92 BRN XNOP 15 4#NL # BRANCH IF CONTENTS OF %A ARE ZERO TO %B 8 4*8= NBZE LDX 0 0(1) 8 4*MW BZE 0 Z15 8 4B7G BRN XNOP 12 4BM6 # BRANCH IF STORE PARITY FAIL 5 4C6Q NCOMPARE 8 4CLB LDX 0 0(1) 8 4D62 SMO FX1 8 4DKL TXU 0 1(3) 8 4F5= BCC Z15 7 4FJW ADN 3 1 8 4G4G BRN XNOP 15 4GJ6 # SWITCH TO TABLE ENTRY(%B)+CONTENTS OF %A 5 4H3Q NSWITCH 18 4HHB LDX 1 0(1) [PICK UP CONTENTS OF %A 17 4J32 BCHX 3 / [PICK UP SECOND PARAM 8 4JGL SMO FX1 8 4K2= LDCH 0 0(3) 7 4KFW ADX 1 0 8 4K_G BRN NBRN 11 4LF6 # BRANCH IF B1 OF %A IS SET 4 4LYQ NBB1 16 4MDB LDX 0 0(1) [CONTENTS OF %A 7 4MY2 SLL 0 1 16 4NCL BNG 0 Z15 [JUMP IF B1 SET 8 4NX= BRN XNOP 18 4PBW # PICK UP %B WORDS FROM POSN %A IN APED,ANOMESS BLOCK 5 4PWG NPICKUP 16 4QB6 CALL 0 XFANOMESS [X2->APED,ANOMESS 7 4QTQ ADX 1 2 7 4R*B BCHX 3 / 8 4RT2 SMO FX1 8 4S#L LDCH 0 0(3) 7 4SS= LDN 2 4 7 4T?W SMO 0 7 4TRG MOVE 1 0 11 4W?6 #SKIP K6OPILLSA>999-999 9 4WQQ TRACE 4,PICKUP 8 4X=B BRN XNOP 15 4XQ2 # OUTPUT MILLTIME AS A PARAM FOR A MESSAGE 5 4Y9L NOUTMILL 9 4YP= OUTPARC JOBMILL 8 4_8W BRN XNOP 20 4_NG # OUTPUT MEMBER NO AS PARAM OF MESSAGE:EITHER'IN N'OR OUTNULL 5 5286 NMEMNO 8 52MQ LDX 0 0(1) 11 537B #SKIP K6OPILLSA>999-999 9 53M2 TRACE 0,MEMNO 17 546L BZE 0 Z13A [JUMP IF MEMBER NO.=0 8 54L= SMO FX1 8 555W ORX 0 QIN 7 55KG LDN 2 4 8 5656 BRN Z11A 17 56JQ # OUTPUT THE CONTENTS OF %A IN INSTRUCTION FORMAT. 19 574B # THE BRANCHING MODE IS FOUND FROM'VSTATE'OF APED,ANOMESS 5 57J2 NINSTR 15 583L LDX 2 FX2 [CLEAR BUFFER 8 58H= LDX 0 ACES 9 592W STO 0 VEXT(2) 9 59GG STO 0 VEXT+1(2) 9 5=26 STO 0 VEXT+2(2) 9 5=FQ STO 0 VEXT+3(2) 16 5=_B CALL 0 XFANOMESS [X2->APED;ANOMESS 9 5?F2 LDX 0 VSTATE(2) 8 5?YL ANDN 0 #40 8 5#D= LDN 2 VEXT 21 5#XW SMO FX1 [PICK UP PARAMETER DESTROYED BY LOCK 8 5*CG LDCH 1 0(3) 9 5*X6 INPRINTX 0(1),2,0 8 5BBQ LDN 2 16 8 5BWB BRN Z11B 21 5CB2 # SET UP THE APED,ANEVENT BLOCK WITH MESSAGE FROM THE GMON,AOUT BLOC 5 5CTL NCODE1 10 5D*= HUNTW 3,GMON,AOUT 9 5DSW LDX 4 VCOUNT(3) 8 5F#G ANDN 4 #7777 8 5FS6 SBN 4 40 8 5G?Q BNG 4 ZA6 7 5GRB LDN 4 0 8 5H?2 ZA6 ADN 4 40 16 5HQL CALL 0 XFANOMESS [X2->APED,ANOMESS 10 5J== STO 4 APEDSP1+2(2) 7 5JPW ADN 4 3 7 5K9G SRL 4 2 8 5KP6 BZE 4 ZA7 10 5L8Q LDN 5 VCOUNT+2(3) 10 5LNB LDN 6 APEDSP1+3(2) 7 5M82 SMO 4 7 5MML MOVE 5 0 7 5N7= ZA7 FREECORE 3 7 5NLW ADN 4 3 19 5P6G CALL 0 XFANOMESS [X2 POINTS TO APED,ANOMESS 11 5PL6 NAME 2,APED,ANEVENT 7 5Q5Q LDX 3 2 8 5QKB ALTLEN 3,4 2 5R52 6 5RJL #SKI IPT 4 5S4= ( 8 5SHW FPCACA 2,,N 20 5T3G LDX 0 HPTTRACE(2) [TEST WHETHER PTTRACE PACKAGE IS 8 5TH6 ANDX 0 BIT11 21 5W2Q BZE 0 ZA8 [SWITCHED ON AND WHETHER PRINTING IS 20 5WGB DOWN PTTRACE,3 [REQUIRED AND IF SO GO DOWN TO IT 4 5X22 ZA8 4 5XFL ) 7 5X_= PROGEND 17 5YDW # THIS SUBR SETS X2 APED,ANOMESS(ONLY ALTERS X2). 6 5YYG XFANOMESS 8 5_D6 SMO FX2 9 5_XQ STO 0 AWORK4 12 62CB HUNT2 2,APED,ANOMESS,FX2 8 62X2 SMO FX2 9 63BL LDX 0 AWORK4 7 63W= EXIT 0 0 13 64*W # TABLE OF MONITORING FILE MESSAGES 4 64TG W 8 65*6 #DEF WJZFAILED=0?-W 5 65SQ #SKIP G3 9 66#B +JZFAILED 5 66S2 #SKIP G4 10 67?L +JZFAILEDG4 8 67R= #DEF WJZPROG=0?-W 6 68=W #SKIP G3 9 68QG +JZPROG 6 69=6 #SKIP G4 9 69PQ +JZPROGG4 8 6=9B #DEF WHUSHSMO=0?-W 9 6=P2 +HUSHSMO 8 6?8L #DEF WHUSHINST=0?-W 9 6?N= +HUSHINST 8 6#7W #DEF WHUSHINS1=0?-W 9 6#MG +HUSHINS1 8 6*76 #DEF WJZEXIT=0?-W 9 6*LQ +JZEXIT 8 6B6B #DEF WJZSUM=0?-W 9 6BL2 +JZSUM 8 6C5L #DEF WJZMOVE=0?-W 9 6CK= +JZMOVE 8 6D4W #DEF WJZPERI=0?-W 9 6DJG +JZPERI 8 6F46 #DEF WJZCA2=0?-W 9 6FHQ +JZCA2 8 6G3B #DEF WJZCA3=0?-W 9 6GH2 +JZCA3 8 6H2L #DEF WJZCA4=0?-W 9 6HG= +JZCA4 8 6H_W #DEF WJZCA5=0?-W 9 6JFG +JZCA5 8 6J_6 #DEF WJZCA6=0?-W 9 6KDQ +JZCA6 8 6KYB #DEF WJZCA7=0?-W 9 6LD2 +JZCA7 8 6LXL #DEF WJZCA9=0?-W 9 6MC= +JZCA9 7 6MWW #SKIP 0?-W>63-63 11 6NBG ! TABLE OF MESSAGES TOO LONG 12 6NW6 # TABLE OF RESET VALUES FOR X3 4 6P*Q S 7 6PTB #DEF S1=0?-S 8 6Q*2 +T1 7 6QSL #DEF S2=0?-S 8 6R#= +T2 7 6RRW #DEF S3=0?-S 8 6S?G +T3 7 6SR6 #DEF S4=0?-S 8 6T=Q +T4 20 6TQB #DEF S20=0?-S [SWITCH ON TYPE OF CONTROL AREA 8 6W=2 +T20 8 6WPL +T21 8 6X9= +T22 8 6XNW +T23 8 6Y8G +T24 20 6YN6 #DEF S40=0?-S [SWITCH FOR LENGTH OF PERI AREA 8 6_7Q +T40 8 6_MB +T41 8 7272 +T42 8 72LL +T43 8 736= +T44 8 73KW +T45 8 745G +T46 8 74K6 +T47 8 754Q +T48 8 75JB +T49 7 7642 #SKIP 0?-S>63-63 11 76HL ! TABLE OF RESETS TOO LONG 21 773= # TABLE OF OPERATIONS.THIS IS THE TABLE THE MAIN LOOP SWITCHES ON 4 77GW M 7 782G #DEF MBRN=0?-M 21 78G6 BRN NBRN [UNCONDITIONAL BRANCH(I.E.RESETTING O 7 78_Q #DEF MBNG=0?-M 21 79FB BRN NBNG [BRANCH IF CONTENTS OF %A -VE TO %B 7 79_2 #DEF MBZE=0?-M 21 7=DL BRN NBZE [BRANCH IF CONTENTS OF %A ZERO TO %B 8 7=Y= #DEF MCOMPARE=0?-M 19 7?CW BRN NCOMPARE [TEST IF STORE PARITY FAIL 8 7?XG #DEF MSWITCH=0?-M 18 7#C6 BRN NSWITCH [SWITCH ON CONTENTS OF %A 7 7#WQ #DEF MBB1=0?-M 21 7*BB BRN NBB1 [BRANCH IF B1 OF CONTENTS OF %A IS SE 8 7*W2 #DEF MPICKUP=0?-M 21 7B*L BRN NPICKUP [PICK UP %B WORDS FROM %A IN APED,ANO 8 7BT= #DEF MOUTMILL=0?-M 16 7C#W BRN NOUTMILL [OUTPUT MILL TIME 8 7CSG #DEF MMEMNO=0?-M 21 7D#6 BRN NMEMNO [OUTPUT MEMBER NO IN THE FORM'IN N'OR 8 7DRQ #DEF MINSTR=0?-M 20 7F?B BRN NINSTR [OUTPUT CONTENTS OF A AS INSTR 8 7FR2 #DEF MOUTBLOCK=0?-M 21 7G=L BRN NOUTBLOCK [SET UP BLOCK READY FOR MESSAGE PARAM 8 7GQ= #DEF MOUTPARAM=0?-M 21 7H9W BRN NOUTPARAM [OUTPUT CHAR STRING AS PARAM OF MESSA 8 7HPG #DEF MOCTAL=0?-M 20 7J96 BRN NOCTAL [OUTPUT CONTENTS OF WORD IN OCTAL 8 7JNQ #DEF MDECIMAL=0?-M 21 7K8B BRN NDECIMAL [OUTPUT CONTENTS OF A WORD IN DECIMAL 8 7KN2 #DEF MCADDR=0?-M 21 7L7L BRN NCADDR [OUTPUT CONTENTS OF A WORD AS CHAR AD 8 7LM= #DEF MWADDR=0?-M 21 7M6W BRN NWADDR [OUTPUT CONTENTS OF A WORD AS WORD AD 8 7MLG #DEF MTABMESS=0?-M 19 7N66 BRN NTABMESS [OUTPUT MESSAGE FROM TABLE 8 7NKQ #DEF MACCMESS=0?-M 21 7P5B BRN NACCMESS [OUTPUT MESSAGE WHOSE ADDR IS IN %A 8 7PK2 #DEF MPOSADDR=0?-M 9 7Q4L BRN NPOSADDR 8 7QJ= #DEF MCODE1=0?-M 9 7R3W BRN NCODE1 7 7RHG #DEF MERR=0?-M 8 7S36 BRN NERR 5 7SGQ #SKIP G4 4 7T2B ( 8 7TG2 #DEF MG4FRIG=0?-M 9 7T_L BRN NG4FRIG 4 7WF= ) 8 7WYW #DEF MOUTPACK=0?-M 9 7XDG BRN NOUTPACK 7 7XY6 #SKIP 0?-M>63-63 12 7YCQ ! TABLE OF OPERATIONS TOO LONG 21 7YXB # THIS SECTION CONTAINS THE OPERATION CALLS FOR PRINTING ILLEGAL MES 5 7_C2 XPRINT 21 7_WL CHARS MPICKUP,VSPROG,3 [PICK UP MEMBER NO(X4)& TYPE OO ILLEG 21 82B= CHARS MACCMESS,6 [OUT PUT MESSAGE WHOSE ADDR IS IN X6 5 82TW #SKIP G3 18 83*G CHARS MOUTBLOCK,17 [MAKE BLOCK FOR PARAMS 5 83T6 #SKIP G4 10 84#Q CHARS MOUTBLOCK,23 19 84SB CHARS MOUTMILL [OUTPUT MILL TIME AS PARAM 5 85#2 #SKIP G4 16 85RL CHARS MG4FRIG [DESTROYS X6,7 18 86?= CHARS MMEMNO,4 [OUTPUT MEMBER NO.FROM X4 20 86QW CHARS MPICKUP,VMEMS,4 [PICK UP POSN OF PROGRAM MEMBERS 20 87=G CHARS MPOSADDR,4 [OUTPUT POSN OF PROGRAM MEMBERS 10 87Q6 CHARS MPOSADDR,5 10 889Q CHARS MPOSADDR,6 10 88PB CHARS MPOSADDR,7 21 8992 CHARS MTABMESS,WJZPROG [OUTPUT '%A:FAILED %B.PROG AT %C,%D,% 11 89NL CHARS MPICKUP,VSCOND,1 11 8=8= CHARS MCOMPARE,4,S20 10 8=MW +JYPARFAIL 17 8?7G CHARS MPICKUP,VSMO,4 [PICK UP'SMO'INSTR 21 8?M6 CHARS MBNG,4,S1 [ JUMP IF NO SMO I.E.X4 -VE (TO LA 10 8#6Q CHARS MOUTBLOCK,14 21 8#LB CHARS MWADDR,4 [OUTPUT ADDR OF SMO INSTR AS PARAM 17 8*62 CHARS MINSTR,5 [OUTPUT SMO AS PARAM 18 8*KL CHARS MBB1,4,S3 [JUMP IF SHORT VERSION 18 8B5= CHARS MWADDR,6 [OUTPUT ADDR OF MODIFIER 19 8BJW CHARS MWADDR,7 [OUTPUT CONTENTS OF MODIFIER 15 8C4G CHARS MTABMESS,WHUSHSMO [PRINT'SMO' 16 8CJ6 T1 CHARS MPICKUP,VINSTR,4 [PICK UP INSTR 18 8D3Q CHARS MBNG,4,S2 [JUMP(TO T2)IF NO INSTR 10 8DHB CHARS MOUTBLOCK,14 19 8F32 CHARS MWADDR,4 [OUTPUT ADDR OF INSTRUCTION 17 8FGL CHARS MINSTR,5 [OUTPUT INSTRUCTION 17 8G2= CHARS MBB1,4,S4 [JUMP IF SHORT VERION 15 8GFW CHARS MCADDR,6 [OUTPUT ADDR 17 8G_G CHARS MTABMESS,WHUSHINST [PRINT INSTRUCTION 21 8HF6 T2 CHARS MPICKUP,VCAREA,4 [EXAMINE TYPE OF CONTROL AREA ASSOC 19 8HYQ CHARS MSWITCH,4,S20 [WITH INSTR & SWITCH ON IT. 17 8JDB T3 CHARS MTABMESS,WHUSHINS1 [PRINT SHORT VERSION 9 8JY2 CHARS MBRN,S1 12 8KCL T4 CHARS MTABMESS,WHUSHINS1 9 8KX= CHARS MBRN,S2 17 8LBW # THESE SECTIONS PRINT THE VARIOUS CONTROL AREAS. 21 8LWG T20 CHARS MCODE1 [NO CONTROL AREA:EXIT FROM MACROS TO 15 8MB6 # CONTROL AREA ASSOCIATED WITH'EXIT'(TYPE=1) 21 8MTQ T21 CHARS MWADDR,5 [OUTPUT'EXIT TO %A'WHERE %A=DESTINATI 12 8N*B CHARS MTABMESS,WJZEXIT [ 9 8NT2 CHARS MCODE1 15 8P#L # CONTROL AREA ASSOCIATED WITH 'SUM'(TYPE=2) 10 8PS= T22 CHARS MOUTBLOCK,8 18 8Q?W CHARS MDECIMAL,5 [NO OF WORDS TO BE SUMMED 21 8QRG CHARS MWADDR,6 [ADDR AT WHICH SUMMING WAS TO START 19 8R?6 CHARS MTABMESS,WJZSUM [OUTPUT'SUM %A WORDS FROM %B' 9 8RQQ CHARS MCODE1 16 8S=B # CONTROL AREA ASSOC WITH'MOVE'&'MVCH'(TYPE=3) 10 8SQ2 T23 CHARS MOUTBLOCK,13 10 8T9L CHARS MDECIMAL,5 9 8TP= CHARS MCADDR,6 9 8W8W CHARS MCADDR,7 20 8WNG CHARS MTABMESS,WJZMOVE [OUTPUT'MOVE %A FROM %B%C TO %D%E 9 8X86 CHARS MCODE1 16 8XMQ # CONTROL AREAS ASSOCIATED WITH'PERI'(TYPE=4) 10 8Y7B T24 CHARS MOUTBLOCK,5 9 8YM2 CHARS MOUTPACK 10 8_6L CHARS MDECIMAL,6 11 8_L= CHARS MTABMESS,WJZPERI 20 925W CHARS MSWITCH,6,S40 [SWITCH ON LENGTH OF CONTROL AREA 11 92KG # FORBIDDEN CONTROL AREAS 4 9356 T40 4 93JQ T41 14 944B T48 CHARS MERR [ERROR 14 94J2 # TWO WORD CONTROL AREAS.PRINT IN OCTAL 12 953L T42 CHARS MPICKUP,VCAREA+3,2 10 95H= CHARS MOUTBLOCK,6 9 962W CHARS MOCTAL,4 9 96GG CHARS MOCTAL,5 11 9726 CHARS MTABMESS,WJZCA2 9 97FQ CHARS MCODE1 11 97_B # THREE WORD CONTROL AREA. 12 98F2 T43 CHARS MPICKUP,VCAREA+3,3 10 98YL CHARS MOUTBLOCK,9 9 99D= CHARS MOCTAL,4 9 99XW CHARS MOCTAL,5 10 9=CG CHARS MDECIMAL,6 11 9=X6 CHARS MTABMESS,WJZCA3 9 9?BQ CHARS MCODE1 10 9?WB # FOUR WORD CONTROL AREA 12 9#B2 T44 CHARS MPICKUP,VCAREA+3,4 10 9#TL CHARS MOUTBLOCK,14 9 9**= CHARS MOCTAL,4 9 9*SW CHARS MOCTAL,5 10 9B#G CHARS MDECIMAL,6 9 9BS6 CHARS MCADDR,7 11 9C?Q CHARS MTABMESS,WJZCA4 9 9CRB CHARS MCODE1 10 9D?2 # FIVE WORD CONTROL AREA 10 9DQL T45 CHARS MOUTBLOCK,17 9 9F== CHARS MOCTAL,7 12 9FPW CHARS MPICKUP,VCAREA+4,4 9 9G9G CHARS MOCTAL,4 10 9GP6 CHARS MDECIMAL,5 9 9H8Q CHARS MCADDR,6 10 9HNB CHARS MDECIMAL,7 11 9J82 CHARS MTABMESS,WJZCA5 9 9JML CHARS MCODE1 10 9K7= # SIX WORD CONTROL AREA 12 9KLW T46 CHARS MPICKUP,VCAREA+3,4 10 9L6G CHARS MOUTBLOCK,22 9 9LL6 CHARS MOCTAL,4 9 9M5Q CHARS MOCTAL,5 9 9MKB CHARS MOCTAL,6 9 9N52 CHARS MOCTAL,7 12 9NJL CHARS MPICKUP,VCAREA+7,2 9 9P4= CHARS MOCTAL,4 9 9PHW CHARS MOCTAL,5 12 9Q3G CHARS MOUTPARAM,12,VCAREA+5 11 9QH6 CHARS MTABMESS,WJZCA6 9 9R2Q CHARS MCODE1 11 9RGB # SEVEN WORD CONTROL AREA 10 9S22 T47 CHARS MOUTBLOCK,25 12 9SFL CHARS MPICKUP,VCAREA+3,4 9 9S_= CHARS MOCTAL,4 9 9TDW CHARS MOCTAL,5 9 9TYG CHARS MOCTAL,6 9 9WD6 CHARS MOCTAL,7 12 9WXQ CHARS MPICKUP,VCAREA+7,3 9 9XCB CHARS MOCTAL,4 9 9XX2 CHARS MOCTAL,5 9 9YBL CHARS MOCTAL,6 12 9YW= CHARS MOUTPARAM,12,VCAREA+5 11 9_*W CHARS MTABMESS,WJZCA7 9 9_TG CHARS MCODE1 10 =2*6 # NINE WORD CONTROL AREA 10 =2SQ T49 CHARS MOUTBLOCK,31 9 =3#B CHARS MOCTAL,7 12 =3S2 CHARS MPICKUP,VCAREA+4,4 9 =4?L CHARS MOCTAL,4 9 =4R= CHARS MOCTAL,5 9 =5=W CHARS MOCTAL,6 9 =5QG CHARS MOCTAL,7 12 =6=6 CHARS MPICKUP,VCAREA+8,4 9 =6PQ CHARS MOCTAL,4 9 =79B CHARS MOCTAL,5 9 =7P2 CHARS MOCTAL,6 9 =88L CHARS MOCTAL,7 12 =8N= CHARS MOUTPARAM,12,VCAREA+5 11 =97W CHARS MTABMESS,WJZCA9 9 =9MG CHARS MCODE1 5 ==76 #REP 20 5 ==LQ +0 4 =?6B #END 8 ____ ...15610544000300000000