8 22FL #OPT K0TRAPPARA=0 18 22_= #LIS K0TRAPPARA>K0TRAPGO>K0FILESTORE>K0GREATGEO>K0ALLGEO 16 23DW #SEG TRAPPARA3 [ TONY HAMILTON 7 23YG 8HTRAPPARA 20 24D6 [ THIS SEGMENT IMPLEMENTS THE ANALYSIS OF TRAPSTYLE PARAMETERS 18 24XQ [ FOR THE TRAPGO ADJUNCT & THE TRAP-GO/STOP COMMANDS. 21 25CB [ THE ^PARAPASSING^ POINTERS ARE POINTING TO THE SECOND PARAMETER 21 25X2 [ OF THE CALAS BLOCK IN THE COMMAND CASE,AND TO THE FIRST PARAMETER 17 26BL [ IN THE LOWEST CMUCTI BLOCK IN THE ADJUNCT CASE. 4 26W= [ 13 27*W SEGENTRY K1TRAPPARA,XCOMMANDENT 13 27TG SEGENTRY K2TRAPPARA,XADJUNCTENT 5 28*6 ZFABS 6 28SQ +10 7 29#B 12HMASTER 7 29S2 12HLEXICON 5 2=?L +0 5 2=R= +1 5 2?=W 4HB1 4 2?QG PARS 7 2#=6 8HGROUP 7 2*9B #40000000 6 2*P2 8HALL 6 2BN= +CALL 7 2C7W 8HERASE 7 2D76 +CERASET 7 2DLQ 8HWRITE 7 2FL2 +CWRITE 7 2G5L 8HAPPEND 7 2H4W +CAPPEND 6 2HJG 8HREAD 6 2JHQ +CREAD 7 2LG= 8HEXECUTE 7 2MFG +CEXECUTE 5 2M_6 PARSEND 2 2NDQ 9 2NYB ZERNOUSER +ERNOUSER 10 2PD2 ZERWFTRAPS +ERWFTRAPS 9 2PXL ZJUNSTYLE +JUNSTYLE 10 2QC= ZERPSEUTRAP +ERPSEUTRAP 6 2QCN ...STYLECHECK 15 2QD6 ... STO 1 GEN1 [SAVE LINK 7 2QDJ ... LDX 0 5 7 2QF2 ... SBN 0 2 18 2QFD ... BNG 0 (1) [AT LEAST 2 CHARS NEEDED 7 2QFW ... SBN 0 6 15 2QG# ... BPZ 0 (1) [>7 ILLEGAL 17 2QGQ ... STO 2 GEN2 [SAVE CUNI POINTER 15 2QH8 ... STO 4 GEN4 [SAVE GEN4 17 2QHC ... STO 5 GEN5 [SAVE NO. OF CHARS 19 2QHL ... STO 7 GEN0 [SAVE X7(THERE IS NO GEN7) 8 2QJ4 ... LDX 1 FX1 6 2QJG ...NEXTSTYLE 19 2QJY ... STO 1 GEN3 [FOR PICKING UP MODE WORD 5 2QK7 ...NEXTCHAR 18 2QKB ... LDCH 0 PARS(1) [NEXT PRESET CHARACTER 9 2QKS ... LDCH 4 APARA(2) 9 2QL= ... BXU 0 4,UNEQUAL 7 2QLN ... BCHX 1 / 7 2QM6 ... BCHX 2 / 20 2QMJ ... BCT 5 NEXTCHAR [STEP POINTERS & TRY NEXT CHAR 17 2QN2 ... LDX 2 GEN2 [RESTORE CUNI ADDRESS 8 2QND ... LDX 3 GEN3 8 2QNW ... LDX 4 GEN4 13 2QP# ... LDX 7 GEN0 [ETC. 14 2QPK ... LDX 1 GEN1 [EXIT+1 7 2QPW ... EXIT 1 1 5 2QQ8 ...UNEQUAL 8 2QQL ... LDX 1 GEN3 17 2QR4 ... ADN 1 3 [STEP TABLE ADDRESS 17 2QRG ... LDX 2 GEN2 [RESTORE CUNI ADDRESS 17 2QRR ... LDX 5 GEN5 [RELOAD NO. OF CHARS 16 2QS4 ... BCT 3 NEXTSTYLE [TRY NEXT STYLE 8 2QSB ... LDX 4 GEN4 8 2QSS ... LDX 7 GEN0 13 2QTN ... BRN (GEN1) [EXIT 2 2QWW 6 2RBG TRAPMODES 17 2RW6 ORX 4 GSIGN [MARKER-NO USER PARAM 7 2S*Q #SKI ANOUSER 17 2STB BRUSEN T74 [JUMP IF NO JOBBLOCK. 18 2T*2 CJOBLOCK 1 [WE PICK UP PROPER USER 10 2TSL LDX 0 ALOGLEN(1) 9 2W#= SBN 0 ASTJOB 8 2WRW BZE 0 T74 18 2X?G ADN 1 JUSER [AND SHOVE THAT INTO THE 4 2XR6 T78 10 2Y=Q MHUNTW 2,FILE,FTRAP 9 2YQB ADN 2 ETRUSER1 7 2_=2 MOVE 1 3 10 2_PL MHUNT 2,CPB,CUNI 8 329= LDCT 0 #200 7 32NW ANDX 0 7 14 338G BNZ 0 TCGRUP [J IF TC. 9 33N6 BRN TRAPALL1 4 347Q T74 8 34MB LDCT 0 #020 7 3572 ANDX 0 7 16 35LL BZE 0 T75 [JIF NOT ADJUNCT 7 366= PROPUSER 20 36KW TESTREP2 OK,T75 [JIF [CPREFIX] IS A PROPER USER 21 375G LDN 1 ACOMMUNE1(2) [IF NOT USE NAME SUPPLIED BY PROPUSER 8 37K6 BRN T78 4 384Q T75 8 38JB LDX 1 FX2 9 3942 ADN 1 CPREFIX 8 39HL BRN T78 5 3=3= TCPASS 16 3=GW FREECORE 2 [FREE LAST CUNI 5 3?2G TCGRUP1 16 3?G6 PARAPASS [PASS NEXT PARAM 9 3?_Q MHUNT 2,CPB,CUNI 5 3#FB TCGRUP 9 3#_2 LDX 5 ANUM(2) 14 3*DL BNG 5 TCAC [JIF END 16 3*Y= BZE 5 TCPASS [IGNORE IF NULL 8 3BCW ANDN 5 #7777 20 3BXG ... LDN 3 1 [CHECK GROUP ONLY (1ST IN TABLE) 10 3CC6 ... CALL 1 STYLECHECK 8 3CWQ ... BRN TCSYL 8 3KQ= BPZ 6 TNOD 9 3L9W MONOUT JDUPSTYLE 9 3LPG MHUNT 2,CPB,CUNI 4 3M96 TNOD 8 3MNQ LDX 6 GSIGN 17 3N8B BRN TCPASS [GO BACK FOR ANOTHER 4 3NN2 TCAC 16 3P7L FREECORE 2 [FREE LAST CUNI 15 3PM= ACROSS TRAPCHEC,3 [EXIT TO TC 4 3Q6W [ 14 3QLG XADJUNCTENT [ENTRY FROM ADJUNCTS (DOWN) 4 3R66 [ 17 3RKQ STOZ AWORK4(2) [MARKER-NO TAB BLOCK 15 3S5B LDCT 7 #20 [MARKER-B4 4 3SK2 [ 21 3T4L XCOMMANDENT [ENTRY FROM TRAPGO (ACROSS). WE HAVE A FABSNB CONTAINING 21 3TJ= [THE FILENAME & THE PARAPASSING POINTER IS AT PARAM NO.2 7 3W3W STOZ 6 20 3WHG SETNCORE ETRAP,3,FILE,FTRAP [FOR USEROPEN.TRAPGO WILL HAVE IT 17 3X36 LDN 0 ETRAP [RENAMED A FILE/FAPB 10 3XGQ STO 0 ETRAPRH(3) 18 3Y2B STOZ ETRAPMODES(3) [ZEROISE TRAPMODES WORD 5 3YG2 TOGETHER 19 3Y_L LDN 0 1 [FOR TRAPGO ADJUNCT-1ST PARAM 8 3_F= LDCT 1 #20 7 3_YW ANDX 1 7 15 42DG BNZ 1 TRADJUSN [J IF ADJUNCT 18 42Y6 LDN 0 2 [2ND PARAM FOR TG/TC/TS 5 43CQ TRADJUSN 18 43XB USERNORM 0 [NORMALISE USERNAME PARAM 18 44C2 TESTREP USERFORM,UGH1 [J IF INCORRECT FORMAT 21 44WL SPARAPAS [PASS PARAM FOR ERRORS OR IF NO USER 21 45B= TESTREP USERMIS,TRAPMODES [PARAM(WHEN EE JUMP HERE)& TO CORRECT 9 45CS ... BPZ 7 NOTTSCOM 9 45DK ... MFREE CPB,CUNI 20 45FB ... MHUNT 2,FILE,ADICT [FOR TS COM ONLY WE DONT CHECK 19 45GY ... MHUNTW 3,FILE,FTRAP [LEXICON -THIS ALLOWS REMOVAL 18 45JG ... ADN 2 A1 [OF TRAPS FOR DEAD USERS 8 45L4 ... ADN 3 A1+1 7 45ML ... MOVE 2 3 8 45P8 ... SBN 2 A1 8 45QQ ... BRN TSCOM 5 45S# ...NOTTSCOM 20 45TW SETNCORE 10,2,FILE,FABSNB [SET UP FABSNB FOR OPENING THE 14 46*G ADN 1 ZFABS [LEXICON 8 46T6 ADN 2 A1 8 47#Q MOVE 1 10 15 47SB OPEN XBRK,READR [OPEN LEXICON 17 48#2 READLEX [LOOK FOR USERNAME 10 48RL TESTREPN NOUSER,OUM 16 49?= CLOSE [CLOSE LEXICON 8 49QW LDCT 0 #20 7 4==G ANDX 0 7 15 4=Q6 BNZ 0 UGH [J IF ADJUNCT 10 4?9Q LDX 4 ZERNOUSER(1) 9 4?PB BRN OUTERR 4 4#92 OUM 17 4#NL CLOSE [CLOSE LEXICON ANYWAY 9 4*8= MFREE CPB,CUNI 12 4*MW MFREE FILE,FABSNB [ 11 4B7G MHUNTW 2,FILE,ASELFLEX 10 4BM6 MHUNTW 3,FILE,FTRAP 10 4C6Q LDX 0 GSUPUSER(2) 16 4CLB BNG 0 PSEUDERR [J IF TEMP DIR 7 4D62 SLL 0 1 16 4DKL BNG 0 PSEUDERR [J IF PSEUDO-USER 20 4F5= ADN 2 GLUSER [USERNAME IN IT,THAT WE WILL PUT 16 4FJW ADN 3 A1+1 [INTO FTRAP BLOCK 15 4G4G MOVE 2 3 [MOVE IT IN 9 4GJ6 SBN 2 GLUSER 5 4GWH ...TSCOM 18 4H8Y ... FREECORE 2 [FREE ASELFLEX OR ADICT 8 4HHB SBN 3 A1+1 10 4J32 MHUNT 1,FILE,FABSNB 8 4JGL LDN 0 #200 9 4K2= ANDX 0 ATYPE(1) 17 4KFW BZE 0 YESITSADJ [J IF NOT WORKFILE 7 4K_G CJOBLOCK 2 19 4LF6 LDX 0 JUSER(2) [THE THREE PROPER USER WDS 10 4LYQ LDX 1 JUSER+1(2) 10 4MDB LDX 2 JUSER+2(2) 10 4MY2 TXU 0 ETRUSER1(3) 10 4NCL TXU 1 ETRUSER1+1(3) 10 4NX= TXU 2 ETRUSER1+2(3) 20 4PBW ... BCC YESITSADJ [J IF EQUAL TO CONVERTED USER PAR 5 4PWG WFCOM 4 4PYD ...# 19 4Q2B ...# A TRAP FOR ANOTHER USER TO A WORKFILE IS BEING REFERRED TO. 21 4Q4# ...# IF ITS AN ADJUNCT WE SET THE REPLY WFTRAP AND LET FNORM GIVE AN ERROR 20 4Q6= ...# IF ITS A TS OR TG COMMAND WE GIVE AN ERROR. IF ITS A TC COM WE 19 4Q88 ...# PRETEND THAT THE USER HAS NO ACCESS TO THE WF AS INDEED HE 6 4Q=6 ...# HASNT. 4 4Q#4 ...# 8 4QB6 LDCT 0 #20 17 4QTQ ANDX 0 7 [J IF NOT TG ADJ 8 4R*B BZE 0 WFC 8 4RT2 SETREP WFTRAP 5 4S#L UP 4 4SS= WFC 8 4SWF ... LDCT 0 #200 7 4SYN ... ANDX 0 7 9 4T2X ... BZE 0 NOTTCCOM 10 4T56 ... MONOUT CHTRAPREP2 8 4T7* ... BRN ZENDC 5 4T9J ...NOTTCCOM 8 4T?W SMO FX1 10 4TRG LDX 4 ZERWFTRAPS 9 4W?6 BRN OUTERR 6 4WQQ YESITSADJ 14 4X=B STOZ 4 [ SWITCH 8 4XQ2 LDCT 0 #200 7 4Y9L ANDX 0 7 14 4YP= BNZ 0 TCGRUP1 [J IF TC. 5 4_8W QLOOP 17 4_NG PARAPASS [PASS NEXT PARAMETER 9 5286 MHUNT 2,CPB,CUNI 5 52MQ TRAPALL1 9 537B LDX 5 ANUM(2) 15 53M2 BNG 5 QEND [JIF NO MORE 5 546L TRAPALL 8 54L= BNZ 5 T1 7 555W FREECORE 2 16 55KG BRN QLOOP [IGNORE IF NULL 4 5656 T1 8 56JQ ANDN 5 #7777 11 574B ... LDN 3 PARSEND-PARS/3 17 57J2 ... CALL 1 STYLECHECK [CHECK WHOLE TABLE 8 583L ... BRN RHUB 14 58H= ... BRN SETMODE [STYLE OK 4 5H?2 RHUB 8 5HQL LDCT 0 #20 7 5J== ANDX 0 7 15 5JPW BNZ 0 TRADJUNST [JIF ADJUNCT 5 5K9G TCSYL 8 5KP6 SMO FX1 9 5L8Q LDX 4 ZJUNSTYLE 9 5LNB BRN OUTERR 6 5M82 TRADJUNST 9 5MML ... SETREP UNSTYLE 5 5NLW UP 5 5P6G SETMODE 15 5PL6 FREECORE 2 [FREE CUNI 7 5Q5Q LDX 0 6 19 5QKB ... ORX 6 PARS+2(3) [OR IN MODES FOR THIS PARAM 9 5R52 ... ANDX 0 PARS+2(3) 18 5RJL BZE 0 QLOOP [JIF MODE NOT DUPLICATED 9 5S4= MONOUT JDUPSTYLE 8 5SHW BRN QLOOP 4 5T3G QEND 7 5TH6 FREECORE 2 7 5W2Q LDEX 0 6 16 5WGB BZE 0 STYLESQ [J IF NO STYLES 10 5X22 MHUNTW 2,FILE,FTRAP 10 5XFL STO 6 ETRAPMODES(2) 10 5X_= MHUNT 1,FILE,FABSNB 8 5YDW LDN 0 #200 9 5YYG ANDX 0 ATYPE(1) 15 5_D6 BZE 0 NOGWF [J IF NOT WF. 8 5_XQ BNG 6 TCSYL 5 62CB NOGWF 8 62X2 LDCT 0 #20 7 63BL ANDX 0 7 16 63W= BNZ 0 UPADJ [J IF ADJUNCTS 10 64*W NAMETOP 2,FILE,FAPB 8 64TG CHAIN 2,FX2 4 65*6 QBAC 10 65SQ MHUNT 1,FILE,FABSNB 8 66#B LDN 0 #200 16 66S2 ANDX 0 ATYPE(1) [J IF NOT W/F. 9 67?L BZE 0 ZACHARY 7 67R= LDN 0 1 21 68=W ANDX 0 ATYPE(1) [IF NON-FILESTORE I.E. WORKTAPE, TREA 16 68QG BNZ 0 ZACHARY [AS NON-WORKFILE 8 69=6 LDCT 0 #40 16 69PQ ORS 0 7 [SET W.F.BIT (B4) 9 6=9B ACROSS TRAPWORK,1 5 6=P2 ZACHARY 9 6?8L ACROSS TRAPGO,11 5 6?N= UPADJ 8 6#7W SETREP OK 5 6#MG UP 5 6*76 STYLESQ 8 6*LQ LDCT 0 #200 7 6B6B ANDX 0 7 9 6BL2 BNZ 0 TRAPMODES 8 6C5L LDCT 0 #20 7 6CK= ANDX 0 7 16 6D4W BNZ 0 STYLNADJ [J IF ADJUNCTS 11 6DJG COMERR JPARMIS,JTRAPST 5 6F46 STYLNADJ 9 6FHQ SETREP NOSTYLE 5 6G3B UP 4 6GH2 UGH 9 6H2L SETREP NOUSER 4 6HG= UGH1 4 6H_W XBRK 8 6JFG LDCT 0 #20 8 6J_6 ANDX 0 7 8 6KDQ BZE 0 ZENDC 5 6KYB UP 5 6LD2 ZENDC 6 6LXL ENDCOM 5 6MC= PSEUDERR 19 6MWW FREECORE 2 [FREE CUNI & ASELFLEX BLOX 7 6NBG FREECORE 3 8 6NW6 LDCT 0 #20 7 6P*Q ANDX 0 7 15 6PTB BNZ 0 TRPS [J IF ADJUNCT 11 6Q*2 LDX 4 ZERPSEUTRAP(1) 5 6QSL OUTERR 7 6R#= COMERRX 4 4 6RRW TRPS 9 6S?G SETREP PSEUTRAP 5 6SR6 UP 4 6T=Q [ 11 6TQB MENDAREA 20,K99TRAPPARA 4 6W=2 #END 8 ____ ...40303063002100000000