16 22=X ... SEG CLEAN,,CENT(COMMAND PROCESSOR),,G400 4 22HS ...[ 15 22SP ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 235L ...[ 6 23BH ...#UNS G400 13 23MD ...# THIS CHAPTER IS FOR G3PLUS-IH MK2 15 23YG [ ENTRY POINT. THIS LOCATION MUST REMAIN FIXED 11 24D6 SEGENTRY K1CLEAN,QENTRY1 17 24XQ # THIS SEGMENT IS ENTERED FROM THE MACRO CLEANUP. 19 25CB # IT CONTAINS THE CODING FOR DELETING ALL COMMAND PROCESSOR 19 25X2 # LEVELS UPTO A LEVEL SPECIFIED AS A PARAMETER OF CLEANUP. 19 26BL # ANY MACRO DEFINITION FILES ASSOCIATED WITH THESE LEVELS 9 26W= # ARE CLOSED DOWN . 5 27*W QENTRY1 9 27TG LDCH 7 EXT+3(2) 7 28*6 LDN 5 0 8 28SQ BZE 7 X9 6 29#B #SKI APL 13 29S2 LDN 7 3 [TAB1 7 2=?L #SKI APL<1$1 7 2=R= LDN 7 2 13 2?=W LDN 5 1 [TAB2 18 2?QG SEGENTRY ADPCL1 [ MEND POINT FOR DATAPASS 4 2?WC ...X9 9 2#2# ...#SKI JSKI27_JSKI29<1$1 7 2#69 ... ADN 7 3 13 2#=6 ...#SKI JSKI27*JSKI29<1$1*(JSKI27_JSKI29) 7 2#B3 ... ADN 7 4 8 2#FY ...#SKI JSKI27*JSKI29 7 2#KT ... ADN 7 5 7 2#PQ ADN 5 2 9 2*9B LDX 3 MASKP(1) 16 2*P2 ANDS 3 EXT+3(2) [MASK OUT N0 CHAR 10 2B8L LDX 3 MASKMON(1) 20 2BN= ANDS 3 CLONG1(2) [MASK OUT B2, WHICH IS USED TO 21 2C7W [INDICATE THAT A GMON ASET BLOCK EXIS 21 2CMG LDN 3 0 [ZEROISE COUNT OF INT ISS. COMMANDS 18 2D76 X1 LDX 4 7 [ TO BE READ & KEEP COPY 9 2DLQ LDN 6 TAB1-1 9 2F6B LDX 2 FPTR(2) 9 2FL2 LDX 0 ATYPE(2) 17 2G5L SRL 0 12 [ISOLATE BLOCK TYPE 9 2GK= TXU 0 TCPB(1) 8 2H4W BCS X6 6 2H=4 ...#UNS G400 7 2HC= ... RVHOOK 2 10 2HJG LDEX 4 CPBCPLEV(2) 8 2J46 LDCT 0 #400 10 2JHQ ANDX 0 CPBCPLEV(2) 8 2K3B SMO FX2 8 2KH2 TXU 4 EXT+3 8 2L2L BCC X3 8 2LG= SMO FX2 17 2L_W TXL 4 EXT+3 [ ERROR IF LEVEL LESS 17 2MFG BCC X2 [ THAN TERMINATING 14 2M_6 GEOERR 0,CPLEVELS [ LEVEL 21 2NDQ X2 BZE 0 X7 [ JUMP IF NOT INTERNALLY ISSUED LEVEL 17 2NYB ADN 3 1 [ADD ONE TO THE COUNT 4 2PD2 X7 9 2PXL LDX 4 CPBFSD(2) 18 2QC= BNG 4 X4 [J IF NOT A MACRO LEVEL 16 2QWW FREECORE 2 [FREE THE BLOCK 10 2RBG MHUNTW 2,CPB,CALAS 9 2RW6 LDX 4 CPBFSD(2) 20 2S*Q BPZ 4 X5 [J IF THIS IS ALSO A MACRO LEVEL 9 2STB LDX 0 MASKJR(1) 19 2T*2 ANDS 0 CPBFSD(2) [MASK OUT JOB & RUNJOB BITS 7 2TC9 ...#SKI JWPHASE2 4 2TFD ...( 10 2TGX ... ANDX 4 XBITS12(1) 8 2TJB ... BNZ 4 X10 4 2TKW ...) 8 2TN5 ...#SKI JWPHASE2<1$1 4 2TQ# ...( 7 2TSL SLL 4 1 16 2W#= BPZ 4 X5 [J IF NOT WJDF 7 2WRW GETFNAME 4 2X3N ...) 6 2X6? ...#UNS G400 5 2X8W ...#SKI 0 15 2X?G X5 CLOSE [CLOSE FILE 6 2X#F ...#UNS G400 4 2X*D ...( 9 2XBC ...X5 TESTHOOK XSD2 6 2XCB ... CLOSE 8 2XD* ... BRN X10 7 2XF# ...XSD2 CLOSETOP 4 2XG? ...) 4 2XH# ...X10 6 2XKX ...#UNS G400 9 2XNG ... TESTHOOK XDSK1 19 2XR6 MONOUT ENDMAC [OUTPUT END OF MACRO MESSAGE 6 2XST ...#UNS G400 5 2XWJ ...XDSK1 8 2XY# ...#SKI JWPHASE2<1$1 4 2Y5G ...( 19 2Y=Q BPZ 4 X1 [J IF NOT W.JOB DESCRIPTION 18 2YQB ERASE [ERASE JOB DESCR. FILE 4 2_28 ...) 8 2_=2 BRN X1 4 2_PL X6 7 329= ADN 6 1 7 32NW SMO 6 8 338G TXU 0 0(1) 19 33N6 BCC X1 [J IF PERMITTED BLOCK TYPE 8 347Q BCT 4 X6 17 34MB LDN 6 TAB2-1 [SEARCH SECOND TABLE 7 3572 LDX 4 5 8 35LL ANDN 0 #7700 7 366= X8 ADN 6 1 7 36KW SMO 6 8 375G TXU 0 0(1) 8 37K6 BCC X1 8 384Q BCT 4 X8 7 38JB X4 FREECORE 2 19 38L_ ... BBUS 12,EXT+11(2),X1 [J TO X1 IF WE FN BIT NOT SET 10 38PJ ... HUNT 2,COMDAT,CFIN 20 38S7 ... BPZ 2 X1 [J TO X1 IF A COMDAT/CFIN EXISTS 8 38WQ ... LDX 2 FX2 21 38_* ... UNSETBIT 12,EXT+11(2) [IF NO COMDAT/CFIN,CLEAR WE FN BIT 8 3942 BRN X1 8 39HL X3 SMO FX2 8 3=3= STO 3 EXT+3 6 3=4? ...#UNS CMXMSK 4 3=5# ...( 9 3=6* ... SEGENTRY K70CLEAN 20 3=7B ... BRN XK71 [MENDED TO NULL IF REPORTNEST ON 8 3=8C ... LDN 4 #10 8 3=9D ... SMO FX2 9 3==F ... ANDX 4 CONTEXT 16 3=?G ... BZE 4 XK71 [BRN IF NOT MOP 9 3=#H ... LDX 4 CMXMSK(2) 8 3=*J ... SMO FX2 21 3=BK ... STO 4 AMXMSK [RESET REPORTING MASK FOR NEW LEVEL 4 3=CL ...XK71 9 3=DM ... SEGENTRY K71CLEAN 4 3=FN ...) 18 3=GW LDX 4 CMFMSK(2) [ SET TRACING LEVEL FROM 20 3?2G SMO FX2 [/CALAS BLOCK AT THE LOWEST LEVEL 14 3?G6 STO 4 AMFMSK [ IN CPAT 5 3?_Q UP 9 3#9J ...XBITS12 #30000000 9 3#FB MASKJR #47777777 9 3#_2 MASKP #777777 9 3*DL MASKMON #67777777 10 3*Y= TCPB +CPB+CALAS 9 3BCW TAB2 +BLINK 8 3BXG +BSTB 13 3CC6 # BLOCKS WHICH ARE SOMETIMES SAVED 8 3CWQ +APED 4 3DBB [ 10 3DW2 TAB1 +AMXOR+AOUT 10 3F*L +APERI+ASSOCS 10 3FD9 ... +COMDAT+CBUFF 6 3FGS ...#SKI JSKI27 11 3FKC ... +APERI+ASSOCS0 6 3FN2 ...#SKI JSKI29 11 3FQK ... +ADATA+JMCPASS 18 3FT= SEGENTRY ADPCL2 [ MEND POINT FOR DATAPASS 13 3G#W # BLOCKS WHICH ARE SOMETIMES SAVED 10 3GSG +ADATA+BREPLY 19 3H#6 +ADATA+AREPORT [REQUIRED BY LOGOUT/ATTACH 6 3HRQ #SKI APL 10 3J?B +ADATA+CREPLY 18 3JR2 +0 [ SPACE FOR DATAPASS 10 3K=L MENDAREA 20,K99CLEAN 4 3KQ= #END 8 ____ ...75214324000100000000