{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: EXINONE867)}}
====== EXINONE867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLEN|ALTLEN]], [[george:macro:CAPCA|CAPCA]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CHECKEXT|CHECKEXT]], [[george:macro:CLOSEST|CLOSEST]], [[george:macro:DOWN|DOWN]], [[george:macro:EXCHOFE|EXCHOFE]], [[george:macro:EXMESS|EXMESS]], [[george:macro:FADDRESS|FADDRESS]], [[george:macro:FINDCORE|FINDCORE]], [[george:macro:FOUTMOVE|FOUTMOVE]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETAREA|GETAREA]], [[george:macro:GETCORE|GETCORE]], [[george:macro:GETWORD|GETWORD]], [[george:macro:HUNTW|HUNTW]], [[george:macro:ILLEGAL|ILLEGAL]], [[george:macro:KEEPMESS|KEEPMESS]], [[george:macro:LOCKM|LOCKM]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFINDEXOF|MFINDEXOF]], [[george:macro:MFINDSU|MFINDSU]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUT|MONOUT]], [[george:macro:MOVLONG|MOVLONG]], [[george:macro:MUSEST|MUSEST]], [[george:macro:OLPFIN1|OLPFIN1]], [[george:macro:OPENST|OPENST]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:PAIR|PAIR]], [[george:macro:PROGBRKIN|PROGBRKIN]], [[george:macro:READST|READST]], [[george:macro:RELST|RELST]], [[george:macro:REPMON|REPMON]], [[george:macro:RUNPROG|RUNPROG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:STEPBACK|STEPBACK]], [[george:macro:TESTMON|TESTMON]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTREPNOT|TESTREPNOT]], [[george:macro:TOPCA1|TOPCA1]], [[george:macro:TWAIT|TWAIT]], [[george:macro:UNLOCKSU|UNLOCKSU]], [[george:macro:UNPLUG|UNPLUG]], [[george:macro:USEST|USEST]], [[george:macro:WORDFIN|WORDFIN]]
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