EXINONE867
(George Source)
Macros used: ACROSS, ALTLEN, CAPCA, CHAIN, CHECKEXT, CLOSEST, DOWN, EXCHOFE, EXMESS, FADDRESS, FINDCORE, FOUTMOVE, FREECORE, GEOERR, GETAREA, GETCORE, GETWORD, HUNTW, ILLEGAL, KEEPMESS, LOCKM, MENDAREA, MFINDEXOF, MFINDSU, MHUNT, MHUNTW, MONOUT, MOVLONG, MUSEST, OLPFIN1, OPENST, OUTPACK, OUTPARAM, PAIR, PROGBRKIN, READST, RELST, REPMON, RUNPROG, SEGENTRY, SETNCORE, STEPBACK, TESTMON, TESTREP, TESTREP2, TESTREPNOT, TOPCA1, TWAIT, UNLOCKSU, UNPLUG, USEST, WORDFIN
- EXINONE867.txt
228= ...#SEG EXINONE867 22BG ...# 22JQ ...# COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 22R2 ...# 22^= #LIS K0EXINONE 23DW 8HEXINONE 23YG # 24D6 # 24XQ ... SEGENTRY K1EXINONE,QK1EX [#1500 25CB ... SEGENTRY K4EXINONE,QK4EX [CANTDO? BUT ITS NOT USED,ME THINKS 25X2 ... SEGENTRY K5EXINONE,QK5EX [#1500 FAILURE 26BL # 26JD ...XEWSUTC +EWSUTC [NOT SUITABLE-TRAPS CLOSED 26LB ...XEWSUNE +EWSUNE [NOT SUITABLE-NO EXOFILE ENTRY 26N# ...XEWSTOINS +EWSTOINS [CANT EXTEND ONTO INSECURE SU 26Q= ...XEWINSTOS +EWINSTOS [CANT EXTEND ONTO SECURE SU 26T9 ...XEWTMSC +EWTMSC 26W= REP5 #40000005 [NOT A WRITE FILE 27*W REP4 #40000004 [INVALID AREA 27TG ZLINK PAIR PERION,1 28*6 #DEF XCA=EVENT2 28SQ Z6 +6 29#B ZMASK #37777777 29S2 ZMASK1 #00777777 2=?L # 2=?P ...# 2=?S ...XMON LDX 7 XCA(2) [GET CONTROL AREA ADDRESS 2=?X ... TOPCA1 ZLINK(1) [TO PCA 2=#2 ... REPMON 1 [REPORT MONITORING REQUIRED 2=#5 ...# 2=#* ...ZFUL MHUNTW 3,EWDAS,GEXD 2=*4 ... LDX 0 EMARK(3) 2=*R ... BNG 0 ZFUL2 2=BG ... LDX 6 HMUNIT(3) 2=C9 ... MFINDSU 1,6 2=CY ... LDN 0 1 2=DM ... SBS 0 CEXTEND(1) 2=FB ... MFINDEXOF 1,CEFN(3) 2=G5 ... LDN 7 FIP(1) 2=GS ... LDX 2 FX2 2=HH ... LDN 0 ACOMMUNE1(2) 2=J= ... MOVE 7 3 2=J^ ... LDN 7 12 2=KN ... OUTPARAM 7,ACOMMUNE1 2=LC ... MONOUT EWTMFI 2=M6 ...ZFUL1 LDN 4 3 2=MT ... BRN ZAE14 2=NJ ...ZFUL2 2=P? ... KEEPMESS XEWTMSC 2=Q2 ... BRN ZFUL1 2=R= ZONLN SBX 7 FX1 [RELATAVISE LINK 2#PQ USEST 5,ZA9,,ZAE70,NA [GET UNIT ONLINE (TRY ANYWAY) 2*9B BRN ZGOT [BRANCH IF ONLINE 2*P2 ZA9 MHUNTW 3,EWDAS,GEXD 2B8L LDX 4 EMARK(3) 2BN= SLL 4 5 [SEE IF MODE #4000 2C7W BNG 4 ZA10 [BRANCH IF NO MESSAGES OR SUSPENSION. 2CMG LDCT 4 #40 [...REQUIRED 2FYB ... MUSEST 5,ZCANT,ZAE70,,NA [TRY TO GET ONLINE AGAIN 2G5L ZGOT MHUNTW 3,EWDAS,GEXD [OK THIS TIME 2GK= MFINDSU 1,5 2H4W ADX 7 FX1 [DATUMISE LINK 2HJG EXIT 7 0 [EXIT 2J46 ZAE70 LDN 4 0 [X4=REPLY FOR BREAKIN 2JHQ BRN ZCANT 2L=C ...NA LDCT 4 #400 2L*2 ... LDX 7 5 [REMEMBER UNOBTAINABLE SUSN 2LG= BRN ZCANT 2MFG ZA10 LDN 4 6 [X4=REPLY STORAGE UNIT NOT ONLINE 2M^6 # 2NDQ QK4EX 2NYB # 2PD2 ZCANT MHUNT 3,EWDAS,GEXD [X4=REPLY FOR FAIL(REQUEST CANT'DOED) 2PXL TXU 5 HMUNIT(3) [IS(5)=HOME UNIT? 2QC= BCC ZA11 [BRANCH IF IT IS 2QWW MFINDSU 1,HMUNIT(3) [FIND ASTUC FOR HOME UNIT... 2RBG LDN 0 1 2RW6 SBS 0 CEXTEND(1) [...AND SUBTRACT 1 FROM EXTEND COUNT 2S*Q RELST HMUNIT(3) [RELEASE HOME UNIT 2STB MHUNT 3,EWDAS,GEXD 2T*2 ZA95 MFINDEXOF 1,CEFN(3) [FIND EXOF FOR THIS FILE 2TSL LDEX 5 FIP+5(1) 2W#= SBN 5 1 [SUBTRACT ONE FROM COUNT OF AREAS 2WRW DEX 5 FIP+5(1) 2X?G BNZ 4 ZAE14 [BRANCH IF NOT BREAKIN 2XR6 ZA96 FREECORE 3 [FREE GEXD 2YCW ... STEPBACK [STEP PROGS ONR BACK ONE 2YF7 ... BPZ 4 NBR [J IF BREAKIN 2YGD ... TWAIT 7,NBR [ELSE WAIT FOR IPB 2YHP ... RUNPROG [AND HAVE ANOTHER GO 2YK2 ...NBR PROGBRKIN [REPORT BREAKIN 2^=2 ZA11 TXU 5 ARUNIT(3) [IS (5)=AREA UNIT 2^PL BCC ZA95 [BRANCH IF IT IS 329= BZE 4 ZA96 [BRANCH IF BREAKIN 32YM ...ZAE14 BNG 4 ZA96 [J IF IPB INOP 333= ... ORX 4 GSIGN [SET ACTION UNSUCCESSFUL BIT 338G MHUNTW 3,EWDAS,GEXD 33N6 LDX 5 CNR(3) [GET ADDRESS OF CONTROL AREA 347Q ADN 5 1 34MB GETWORD 5,1,WRITE [GET GEORGE ADDRESS OF WORD 1 OF PROG 3572 TESTREPNOT OK,ZA91 35LL MHUNT 3,EWDAS,GEXD 366= STO 4 0(1) [STORE REPLY 36KW LDX 6 4 375G ANDN 6 #7 [SEE IF REPLY=2(AREA WOULD CREATE... 37K6 SBN 6 2 [...TOO MANY FENCES) 384Q BNZ 6 ZA97 [BRANCH IF NO MORE REPLIES NEEDED 38JB LDN 7 4 [COUNT OF 4 WORDS 3942 ADN 5 4 39HL ZJRB1 GETWORD 5,1,WRITE [GET GEORGE ADDRESS OF O/P WORD 3=3= TESTREPNOT OK,ZA91 3=GW MHUNT 3,EWDAS,GEXD 3?2G SMO 7 3?G6 LDX 6 CELLA-1(3) [TRANSFER INFORMATION FROM CELLA... 3?^Q STO 6 0(1) [...TO O/P CONTROL AREA 3#FB SBN 5 1 3#^2 BCT 7 ZJRB1 [MORE REPLIES? 3*DL ZA97 LDX 5 EXCHNL(3) [CHANNEL NO. 3*Y= FREECORE 3 [FREE GEXD 3BCW WORDFIN [NO MORE GETWORDS 3BXG EXMESS ALL [OUTPUT MESSAGES(IF ANY) 3CC6 SLL 4 3 3CWQ BPZ 4 ZJRB2 [BRANCH IF NOT FAIL 3DBB ...XPAR LDCT 4 6 3DW2 ... ADX 4 5 [DEVICE TYPE,CHANNEL 3F*L ... OUTPACK 4,1,PERINAME,XPAR [*DAN FAIL 3M96 ILLEGAL PERFAIL, [ONLINE *N FAIL 3MNQ ZJRB2 RUNPROG [RESTART PROG 3N8B ZA91 GEOERR 1,GTWDFAIL 3NN2 # 3P7L ZAF2 MHUNT 3,EWDAS,GEXD 3PM= LDN 4 0 [SYSTEM CONTROL AREA FULL REPLY 3Q6W CLOSEST ZJRB3 [CLOSE UNIT TO TRANSFER SYSTEM 3QLG ZJRB4 MHUNT 3,EWDAS,GEXD 3R66 ZJRB3 MFINDSU 1,HMUNIT(3) [FIND ASTUC FOR HOME UNIT 3RKQ LDN 5 1 3S5B SBS 5 CEXTEND(1) [SUBTRACT ONE FROM COUNT OF EXTENDS 3SK2 UNLOCKSU HMUNIT(3) [UNLOCK HOME UNIT 3SXB ... MHUNTW 3,EWDAS,GEXD 3T4L RELST HMUNIT(3) [RELEASE HOME UNIT 3TJ= BRN ZAE14 3W3W ZAF3 LDCT 4 #40 [FAILURE REPLY 3WHG BRN ZJRB4 3X36 ZAF13 LDCT 4 #40 [FAILURE REPLY 3XGQ MHUNT 3,EWDAS,EXOF [FIND DUMMY EXOF IN ACTIVITY CHAIN... 3Y2B FREECORE 3 [...AND FREE 3YG2 BRN ZAE14 3Y^L # 3^4Q ...# 3^7W ...# FAIL ON HOME UNIT X7=0 3^?2 ...# FAIL ON AREA UNIT X7=1 3^B6 ...# 3^F= QK5EX 3^YW MHUNT 3,EWDAS,GEXD 42DG ZJRB6 MFINDEXOF 1,CEFN(3) [FIND EXOF FOR THIS FILE 42Y6 LDEX 0 FIP+5(1) 43CQ SBN 0 1 [SUBTRACT ONE FROM COUNT OF AREAS 43XB DEX 0 FIP+5(1) 44C2 LDX 5 ARUNIT(3) [IS AREA UNIT=HOME UNIT? 44WL TXU 5 HMUNIT(3) 45B= BCC ZJRB7 [BRANCH IF THE SAME 45TW MFINDSU 1,HMUNIT(3) [FIND ASTUC FOR HOME UNIT 46*G LDN 0 1 46T6 SBS 0 CEXTEND(1) [SUBTRACT ONE FROM COUNT OF EXTENDS 472? ... BNZ 7 TBO [J IF FAIL ON AREA UNIT 4742 ... LDX 5 HMUNIT(3) [ ELSE GO TO FINISH WITH HOME UNIT 475P ... BRN ZJRB7 477D ...TBO UNLOCKSU HMUNIT(3) 4797 ... MHUNTW 3,EWDAS,GEXD 47#Q RELST HMUNIT(3) [RELEASE HOME UNIT 47SB ZJRB7 UNLOCKSU 5 [UNLOCK AREA UNIT 48#2 RELST 5 [RELEASE AREA UNIT 48RL BRN ZAE14 49?= # 49QW QK1EX 4==G LDN 7 6 [6 WORD CONTROL AREA 4=Q6 CHECKEXT XCA(2),7,ZRES,APETADDR(2),W,ZA1,HLOCK1 [CHECK O/P CA 4=S* ... LDX 4 6 4=WJ ... LDCT 6 6 4=YR ... ORX 6 EWCHAN(2) [TYPE/CHANNEL 4?32 ... LDN 5 BBEXTEND [CHECK IF MONITORING REQUIRED 4?59 ... TESTMON APETADDR(2),5,6,XMON 4?7D ... LDX 6 4 4?9Q ZA1 LDX 4 EXMODE(2) [OPEN MODE 4?PB SBN 4 #200 4#92 BNZ 4 ZA2 [IS IT A READ ONLY FILE? 4#NL LDX 4 REP5(1) [ERROR REPLY 4*8= ZA4 LDX 3 APETADDR(2) [ADDRESS OF PCA 4*MW LDX 2 XCA(2) 4B7G ADN 2 1 [ADDRESS OF O/P REPLY WORD 4BM6 FADDRESS 3,2,HLOCK1 [GET GEORGE ADDRESS 4C6Q STO 4 0(2) [STORE REPLY 4CLB OLPFIN1 ZLINK(1) [FINISHED(LINK TO PERION) 4D62 ZA2 SETNCORE GEXDLENX,3,EWDAS,GEXD [SET UP GEXD 4DKL STOZ A1(3) 4F5= LDN 4 A1(3) [ZEROISE... 4FJW LDN 5 A1+1(3) [...GEXD 4G4G MOVE 4 GEXDLENX-1 4GJ6 LDX 1 APETADDR(2) 4H3Q LDX 4 XCA(2) [MOVE O/P CONTROL... 4HHB LDN 5 HMUNIT(3) [...AREA TO GEXD 4J32 FOUTMOVE 1,4,5,7,HLOCK1 4JGL ANDN 6 2 4K2= SRC 6 7 [SET MODE #4000 BIT(PERHAPS) 4KFW ORS 6 EMARK(3) 4K^G LDX 5 AREQT+3(3) 4LF6 BPZ 5 ZA3 [BRANCH IF ENDING SEGMENT +VE 4LYQ ZA5 FREECORE 3 [FREE GEXD 4MDB LDX 4 REP4(1) [INVALID AREA FAILURE REPLY 4MY2 BRN ZA4 4NCL ZA3 TXL 5 AREQT+2(3) [CHECK NOT LESS THAN STARTING SEG. 4NX= BCS ZA5 4PBW LDX 1 FX1 4PWG ANDN 5 #7 [AREA MUST SPREAD ACROSS... 4QB6 SBN 5 #7 [...COMPLETE TRACKS! 4QTQ BNZ 5 ZA5 4R*B LDX 5 AREQT+2(3) [STARTING SEGMENT 4RT2 BNG 5 ZA5 [BRANCH IF NEG 4S#L ANDN 5 #7 4SS= BNZ 5 ZA5 4T?W LDX 4 AREQT(3) [STARTING CYLINDER 4TRG LDXC 5 AREQT+1(3) [ENDING CYLINDER 4W?6 BCS £ [CLEAR SIGN BIT 4WQQ TXL 5 4 [START CYL.LESS THAN END CYL?. 4X=B BCS ZA5 [ERROR IF NOT 4XQ2 STO 5 AREQT+1(3) 4Y9L LDX 4 EWCHAN(2) [STORE CHANNEL... 4YP= STO 4 EXCHNL(3) [...NUMBER IN GEXD 4^8W LDX 4 XCA(2) [CONTROL AREA ADDRESS 4^NG STO 4 CNR(3) 5286 LDX 4 EXNUM(2) [EXOFILE NUMBER 52MQ STO 4 CEFN(3) 52XH ... LDX 4 EXTRAPS(2) [TRANSFER TRAPS FROM AOLPT 5326 ... STO 4 EXOTRAP(3) [TO GEXD 537B LDX 4 EXMODE(2) [OPENING MODE OF FILE 53M2 SBN 4 #600 546L BNZ 4 ZA6 [BRANCH IF NOT SCRATCH FILE 54L= LDCT 4 256 555W ORS 4 EMARK(3) [SET SCRATCH FILE BIT 55KG ZA6 CHAIN 3,APETADDR(2) [CHAIN GEXD BLOCK AFTER PCA 5656 TOPCA1 ZLINK(1) [TO PCA LEAVING AOLPT WITH LINK... 56JQ UNPLUG [...TO PERION-UNPLUG OBJ.PROG 574B MHUNT 3,EWDAS,GEXD [REFIND GEXD 57J2 LDX 4 ARUNIT(3) [LOAD C.A SERIAL NUMBER 583L ANDX 4 ZMASK1(1) 58H= BNZ 4 ZA7 [BRANCH IF VALID 592W FREECORE 3 [FREE GEXD 59GG ILLEGAL INVAL, [ILLEGAL 5=26 ZRES LDX 1 FX1 5=FQ TOPCA1 ZLINK(1) [TO PCA FOR ILLEGAL 5=^B UNPLUG 5?F2 ILLEGAL NOCA [C.A. OUT OF RESERVATIONS 5?YL ZA7 STO 4 ARUNIT(3) 5#D= CAPCA EWDAS,GEXD [TO CPAT WITH GEXD 5#XW MHUNT 3,EWDAS,GEXD 5*CG LDX 4 EMARK(3) 5*X6 BNG 4 ZA8 [BRANCH IF SCRATCH FILE 5BBQ MFINDEXOF 1,CEFN(3) [FIND EXOF 5BWB LDX 5 ASUSN(1) [SERIAL NO.OF HOME UNIT 5CB2 STO 5 HMUNIT(3) 5CTL LDX 4 EXMARK(1) 5D*= SLL 4 6 5DSW BPZ 4 ZA0 [BRANCH IF NOT S-TRUSTED 5F#G STO 5 ESERL(3) 5FS6 CALL 7 ZONLN [GET HOME UNIT(5) ONLINE 5G?Q MFINDEXOF 1,CEFN(3) 5GRB LDX 4 ALOGLEN(1) 5H?2 GETCORE 4,1 [GET CORE FOR EXOF BLOCK 5HQL MHUNT 3,EWDAS,GEXD 5J== FINDCORE 2 [FIND CORE BLOCK 5JPW LDN 2 ATYPE(2) 5K9G MFINDEXOF 1,CEFN(3) 5KP6 LDN 1 ATYPE(1) [COPY EXOF ACROSS TO ACTIVITY CHAIN 5L8Q ... ADN 4 A1-ATYPE [COPY EXOF ALLOWING 5LNB ... MOVLONG 1,2,4 [FOR > 85 FILE AREAS(APPROX 512 WDS) 5M82 LDN 0 BOPEN+BSPEC+BSERL+BLOCK [PARAMS FOR EXOPEN... 5MML STO 0 EXMARK-ATYPE(2) [...IN EXOF BLOCK 5N7= LDX 5 EMARK(3) [REMEMBER EMARK 5NLW STOZ EMARK(3) 5P6G DOWN EXOPEN,1 [RE-OPEN FILE(INCASE FIPS MOVED) 5PL6 MHUNT 3,EWDAS,GEXD 5Q5Q LDX 4 EMARK(3) 5QKB STO 5 EMARK(3) 5R52 UNLOCKSU HMUNIT(3) [UNLOCK SU 5RCB ... MHUNTW 3,EWDAS,GEXD 5RJL RELST HMUNIT(3) [NO LONGER USER 5S4= TESTREP OK,ZA12 [SEE IF OPEN SUCCESSFUL? 5SHW TESTREP EXFAIL,ZA13 5T3G ZA14 GEOERR 1,UNOWNREP 5TH6 ZA13 HUNTW 3,EWDAS,GEXD 5W2Q ANDN 4 ARITE+AFAIL+ANFOUND [KNOWN TYPE OF FAIL? 5WGB BZE 4 ZA14 5X22 BRN ZAF13 5XFL ZA8 LDX 0 ARUNIT(3) [NO HOME UNIT FOR SCRATCH FILE 5X^= STO 0 HMUNIT(3) 5YDW BRN ZA15 5YYG ZA12 MHUNT 3,EWDAS,EXOF [FIND EXOF IN ACT.CHAIN 5^D6 LDX 4 BACK2(3) [EXOFILE NO. 5^XQ LDX 7 HOME(3) [HOME OF FIPS 62CB FREECORE 3 [FREE EXOF 62X2 MFINDEXOF 1,4 [FIND EXOF IN CCB CHAIN 63BL STO 7 HOME(1) [UPDATE HOME OF FIPS 63W= MHUNT 3,EWDAS,GEXD 64*W ZA0 LDX 5 HMUNIT(3) 64TG TXU 5 ARUNIT(3) 65*6 BCC ZA15 [BRANCH IF HOME UNIT=AREA UNIT 65SQ CALL 7 ZONLN [GET HOME UNIT ONLINE 66#B LDN 0 1 66S2 ADS 0 CEXTEND(1) [UPDATE COUNT OF EXTENDS 67?L OPENST HMUNIT(3) [OPEN HOME UNIT FOR TRANSFERS 67R= LDX 7 CEXTEND(1) 68=W LDN 5 140 [READ VACANT CELLS POINTER FIRST 68QG ZA17 READST 5,ZA22 [READ VACANT CELL(UNLESS FIRST READ) 69=6 TESTREPNOT OK,ZAF3 69PQ ZA22 SMO ECOR(3) 6=9B LDX 5 0 [GET WORD ADDRESS OF NEXT CELL 6=P2 BZE 5 ZAF2 [ERROR IF NO MORE 6?8L BCT 7 ZA17 [READ ANOTHER IF NECESSARY 6?N= CLOSEST ZA19 [NO MORE TRANSFERS AT PRESENT 6#7W TESTREPNOT OK,ZAF3 6#MG ZA20 MHUNTW 3,EWDAS,GEXD 6*76 ZA19 UNLOCKSU HMUNIT(3) [UNLOCK HOME UNIT 6*FG ... MHUNTW 3,EWDAS,GEXD 6*LQ ZA15 MFINDEXOF 1,CEFN(3) [FIND EXOF FOR THIS FILE 6B6B LDEX 6 FIP+5(1) [GET NUMBER OF AREAS 6B=? ... SBN 6 511 6BB8 ... BPZ 6 ZFUL 6BG5 ... LDEX 6 FIP+5(1) 6BL2 SMO FX1 6C5L MPY 6 Z6 [CALCULATE LENGTH OF ODCELLS 6CK= ADN 7 FDCELLS+6-A1-1 6D4W STO 7 6 [REMEMBER REQUIRED LOG.LENGTH-1 6DJG TXL 7 ALOGLEN(1) 6F46 BCS ZA24 [EXOF BIG ENOUGH? 6FHQ ADN 7 1 6G3B LDX 3 1 6GH2 ALTLEN 3,7 [LENGTHEN EXOF 6H2L MHUNTW 3,EWDAS,GEXD 6HG= MFINDEXOF 1,CEFN(3) 6H^W ZA24 LDX 2 6 [CREATE DUMMY CELL(FOR S TRUSTED) 6JFG ADX 2 1 6J^6 LDX 7 ARUNIT(3) [AREA UNIT SERIAL NO.TO CELL 6KDQ STO 7 A1-5(2) 6KYB LDX 7 A1-6(2) [THIS AREA HAS NO BUCKETS 6LD2 STO 7 A1(2) 6LXL STOZ A1-1(2) 6MC= STOZ A1-2(2) 6MWW STOZ A1-3(2) 6NBG STOZ A1-4(2) 6NW6 LDEX 7 FIP+5(1) [NO OF AREAS... 6P*Q ADN 7 1 [...INCREASE BY 1 6PTB DEX 7 FIP+5(1) 6Q*2 LDX 5 ARUNIT(3) 6QB# ... LDN 7 CAPPEND [TEST FOR APPEND TRAPS 6QBQ ... EXCHOFE ICL,5,7,ZA40 [TO EXOFILE ENTRY ICLSCAFILE 6QC8 ... MHUNTW 3,EWDAS,GEXD 6QCL ... TESTREP2 OK,ZA30,NOFILE,ZA34,NOTRAP,ZA38 [TEST REPLIES 6QD4 ... GEOERR 1,UNOWNREP 6QDG ...# OK REPLY 6QDY ...ZA30 6QFB ... LDX 0 EXOTRAP(3) [TRAPS OF EXOFILE ENTRY AT OPEN TIME 6QFS ... BPZ 0 ZA33 [J IF SECURE 6QG= ... LDX 0 EMARK(3) [IS IT A SCRATCH FILE 6QGN ... BNG 0 ZA33 [J IF SO 6QH6 ... KEEPMESS XEWINSTOS(1),5 [CANT EXTEND ONTO SECURE SU 6QHJ ...ZA32 6QJ2 ... LDCT 4 #40 [FAILURE REPLY 6QJD ... BRN ZCANT 6QJH ...ZA33 6QJL ... EXCHOFE ICL,5,,ZA40,AW [D&T WRITTEN+ACCESSED FOR ICLSCAFILE 6QJP ... BRN ZA40 6QJW ...# NOFILE REPLY 6QK# ...ZA34 6QKQ ... LDX 0 EDSQ [SECURITY MARKER 6QL8 ... BNG 0 ZA36 [J IF FULL IN USE 6QLL ... LDX 0 EXOTRAP(3) [TRAPS AS AT OPEN TIME 6QM4 ... BNG 0 ZA40 [J IF INSECURE EXOFILE 6QMG ... KEEPMESS XEWSTOINS(1),5 [CANT EXTEND ONTO INSECURE SU 6QMY ... BRN ZA32 6QNB ...ZA36 6QNS ... KEEPMESS XEWSUNE(1),5 [NOT SUITABLE-NO EXOFILE ENTRY 6QP= ... BRN ZA32 6QPN ...# NOTRAP REPLY 6QQ6 ...ZA38 6QQJ ... KEEPMESS XEWSUTC(1),5 [NOT SUITABLE-TRAPS CLOSER 6QR2 ... BRN ZA32 6QRD ...ZA40 6QSL CALL 7 ZONLN [GET AREA UNIT ONLINE 6QW3 ... LDN 4 0 [SET MKR FOR BREAKIN (IN CASE OF) 6QWG ... LDX 7 HMUNIT(3) 6QW^ ... TXU 7 5 6QXD ... BCC XDF [J IF HOME=AREA 6QXX ... UNLOCKSU 5 [ELSE UNLOCK AREA UNIT 6QYB ... LOCKM 7,5,XBK,RPB [AND LOCK THEM IN ORDER 6QYT ...XDF GETAREA 5,RPB1 [GET SCRATCH LIST FROM OTHER PROCESSO 6Q^# ... ACROSS EXINTWO,1 6Q^R ...# 6R2= ...# IPB INOP ON GETAREA 6R2P ...# 6R38 ...RPB1 UNLOCKSU 5 [UNLOCK AREA UNIT 6R3M ... TXU 7 5 6R46 ... BCC RPB2 [J IF AREA=HOME 6R4K ... UNLOCKSU 7 [ELSE UNLOCK HOME UNIT 6R54 ...RPB2 STO 5 ACOMMUNE9(2) 6R5H ...# 6R62 ...# IPB INOP ON LOCKM 6R6F ...# 6R6Y ...RPB LDCT 4 #400 [SET IPB FAIL MKR 6R7C ...# 6R7W ...# BREAKIN ON LOCKM 6R8* ...# 6R8S ...XBK LDX 7 ACOMMUNE9(2) [UNIT WE COULDNT USE CAUSE OF IPB 6R9? ... RELST 5 [RELEASE AREA UNIT 6R9Q ... BRN ZCANT [ 6RRW # 6S?G MENDAREA 30,K99EXINONE 6SR6 #END ^^^^ ...55604711000200000000