{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: CONTEND867)}}
====== CONTEND867 ======
(George Source)
**Macros used:** [[george:macro:ALTLEN|ALTLEN]], [[george:macro:CLOSEST|CLOSEST]], [[george:macro:EXMESS|EXMESS]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETWORD|GETWORD]], [[george:macro:ILLEGAL|ILLEGAL]], [[george:macro:KEEPMESS|KEEPMESS]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFINDEXOF|MFINDEXOF]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:PROGBRKIN|PROGBRKIN]], [[george:macro:RELST|RELST]], [[george:macro:RUNPROG|RUNPROG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTREPNOT|TESTREPNOT]], [[george:macro:UNLOCKSU|UNLOCKSU]], [[george:macro:WORDFIN|WORDFIN]]
228= ...#SEG CONTEND867
22BG ...#
22JQ ...# COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
22R2 ...#
22^= #LIS K0CONTEND
23DW 8HCONTEND
23YG #
24D6 # THIS ROUTINE DEALS WITH ALL ERRORS FROM CONTRACT
24XQ # IT ALSO SETS REPLIES FOR A SUCCESSFUL CONTRACT
25CB #
25X2 SEGENTRY K1CONTEND,QK1
26BL SEGENTRY K2CONTEND,QK2
26W= SEGENTRY K3CONTEND,QK3
27*W SEGENTRY K4CONTEND,QK4
27TG SEGENTRY K5CONTEND,QK5
28*6 SEGENTRY K7CONTEND,QK7
28SQ SEGENTRY K8CONTEND,QK8
29#B SEGENTRY K9CONTEND,QK9
29S2 SEGENTRY K10CONTEND,QK10
2=?L SEGENTRY K11CONTEND,QK11
2=L2 ... SEGENTRY K12CONTEND,QK12
2=R= #
2?=W STEN +10
2?QG XEWS +EWSCA
2#=6 QK2
2#PQ MHUNTW 3,EWDAS,GEXD
2*9B RELST HMUNIT(3)
2*HQ ...QK12
2*P2 MHUNTW 3,EWDAS,GEXD
2B8L LDX 0 AWORK1(2) [
2BN= BNZ 0 SC [JUMP IF BUCKETS HAVE BEEN REMOVED
2C7W BZE 7 SY [JUMP IF OK
2CMG BNG 7 SX [CANTDO
2D76 GEOERR 1,CONMARK
2DLQ QK1
2F6B MHUNTW 3,EWDAS,GEXD
2FL2 RELST HMUNIT(3)
2G5L MHUNTW 3,EWDAS,GEXD
2GK= SC LDX 4 CNR(3)
2H4W ADN 4 2
2HJG GETWORD 4,1,WRITE [GET WORD FOR REPLY
2J46 TESTREP OK,SD
2JHQ SE GEOERR 1,GETWORD
2K3B SD LDX 0 AWORK1(2)
2KH2 NGS 0 0(1) [BUCKETS REMOVED
2L2L MHUNTW 3,EWDAS,GEXD
2LG= MFINDEXOF 1,CEFN(3) [FIND EXOF
2L^W LDEX 0 FIP+5(1)
2MFG BNZ 0 SF [JUMP IF AREAS LEFT
2M^6 LDN 6 0 [LAST LBN=0 IF NO AREAS
2NDQ SG LDX 5 ASUSN(1) [SERIL NO. OF HOME UNIT
2NYB BRN SJ
2PD2 SF SBN 0 1 [
2PXL SLL 0 1 [
2QC= LDX 4 0 [
2QWW SLL 0 1 [
2RBG ADX 4 0 [X4=POINTER TO LAST AREA
2RW6 SMO 4
2S*Q LDX 5 FDCELLS(1) [SERIAL NO. OF UNIT HOLDING LAST AREA
2STB LDX 0 EOPMODE(3)
2T*2 SMO 4
2TSL LDX 6 FDCELLS+5(1)
2W#= SBN 6 1 [LAST LBN IN AREA
2WRW SBN 0 #400
2X?G BNZ 0 SJ [JUMP IF NOT OPEN IN #400
2XR6 SBX 6 FIP+10(1)
2Y=Q ADN 6 1 [LAST LBN IN AREA LESS EOF BUCKET
2YQB BZE 6 SG [JUMP IF CONTRACTED TO EOF
2^=2 SJ LDX 4 CNR(3)
2^PL ADN 4 4 [ADDRESS OF BUCKET WORD
329= GETWORD 4,2,WRITE [
32NW TESTREPNOT OK,SE
338G STO 5 0(2) [STORE SERIAL NO.
33N6 BRN SK
347Q #
34MB QK9
3572 SN LDCT 7 #400 [CANTDO WHILST GETTING HOME UNIT
35LL SX LDCT 6 #440 [REPLY FOR PROGRAM
366= SK MHUNTW 3,EWDAS,GEXD
36KW LDX 4 CNR(3)
375G ADN 4 1 [ADDRESS OF REPLY WORD
37K6 GETWORD 4,2,WRITE
384Q TESTREPNOT OK,SE
38JB STO 6 0(2)
3942 WORDFIN [END OF GETWORDS
39HL SZ MHUNTW 3,EWDAS,GEXD
3=3= LDX 5 EXCHNL(3) [SAVE CHANNEL
3=GW FREECORE 3 [FREE GEXD
3?2G EXMESS ALL
3?G6 BPZ 7 SQ [JUMP IF NOT FAIL
3?^Q ...XPAR LDCT 4 6
3#FB ... ADX 4 5 [DEVICE AND CHANNEL IN X4
3#^2 ... OUTPACK 4,1,PERINAME,XPAR [ONLINE *DA FAIL
3FT= ILLEGAL PERFAIL
3G#W SQ BNZ 7 SS [JUMP IF BREAKIN
3GSG RUNPROG [OTHERWISE RESTART PROGRAM
3H#6 SS PROGBRKIN [BREAKIN
3HRQ QK3
3J?B #
3JR2 # MODE #4000 SET AND CONTRACT ON NOT YET STARTED- SET REPLY 6
3K=L #
3KQ= LDN 7 0 [MARKER=0
3L9W SY LDCT 6 #400
3LPG ORN 6 6
3M96 BRN SK [JUMP TO SET REPLY
3MNQ #
3N8B #
3NN2 #
3P7L #
3PM= #
3Q6W #
3QLG # AREA UNIT SCA CORRUPT
3R66 #
3RKQ QK10
3S5B MHUNTW 3,EWDAS,GEXD
3SK2 KEEPMESS XEWS(1),ARUNIT(3)
3T4L MHUNTW 1,EWDAS,GEXD [
3TJ= LDX 3 1
3W3W CLOSEST R9 [IGNORE FAILS SINCE UNIT CORRUPT
3WHG QK11
3X36 MHUNTW 1,EWDAS,GEXD
3XGQ R9 MFINDEXOF 3,CEFN(1)
3Y2B LDEX 0 FIP+5(3)
3YG2 SBN 0 1
3Y^L DEX 0 FIP+5(3) [SUBTRACT 1 FROM COUNT OF AREAS
3^F= LDX 4 ALOGLEN(3)
3^YW SBN 4 6 [ALTER LENGTH OF EXOF
42DG ALTLEN 3,4
42Y6 MHUNTW 3,EWDAS,GEXD
4333 ...R7 LDX 6 ARUNIT(3)
4342 ... LDX 7 HMUNIT(3)
434^ ... UNLOCKSU 7 [
435Y ... RELST 7 [FREE HOME UNIT
436X ... TXU 6 7
437W ... BCC SN [J IF HOME=AREA
438T ... UNLOCKSU 6 [ELSE FREE AREA UNIT
439S ... RELST 6
43=R ... BRN SN
48#2 #
48RL #
49?= # EXOPEN FAIL
49QW #
4==G QK4
4=Q6 MHUNTW 3,EWDAS,GEXD
4?9Q LDX 0 HMUNIT(3)
4?PB STO 0 ARUNIT(3) [SET AREA UNIT=HOME UNIT
4?WJ ...R8 BRN R7
4*8= #
4*MW # SCA CORRUPT ON HOME UNIT
4B7G #
4BM6 QK5
4C6Q MHUNTW 3,EWDAS,GEXD
4CLB KEEPMESS XEWS(1),HMUNIT(3)
4D62 MHUNTW 3,EWDAS,GEXD
4DKL CLOSEST R8 [IGNORE FAILS SINCE UNIT CORRUPT
4F5= MHUNTW 3,EWDAS,GEXD
4FJW BRN R8
4G4G #
4GJ6 # ERROR DURING REWRITING OF FIP CELL OR AREA CELL (AREAUNIT NOT
4H3Q # HOME UNIT
4HHB #
4J32 QK7
4JGL MHUNTW 3,EWDAS,GEXD
4K2= MFINDEXOF 1,CEFN(3)
4KFW LDEX 0 FIP+5(3)
4K^G SBN 0 1 [SUBTRACT 1 FROM AREA COUNT
4LF6 DEX 0 FIP+5(3)
4LYQ LDX 4 ALOGLEN(3)
4MDB SBN 4 6 [
4MY2 ALTLEN 3,4 [ALTER LENGTH OF EXOF
4NCL MHUNTW 3,EWDAS,GEXD
4NX= BRN R8
4PBW #
4PWG # FAIL DURING READING OF CELLS BEFORE FIP HAS BEEN UPDATED
4QB6 # EXOF MUST BE RESET
4QTQ #
4R*B QK8
4RT2 MHUNTW 3,EWDAS,GEXD
4S#L MFINDEXOF 1,CEFN(3)
4SS= LDEX 4 FIP+5(1)
4T44 ... SBN 4 1
4T?W SLL 4 1
4TRG ... LDX 0 4
4W?6 SLL 4 1
4WQQ ADX 4 0
4X=B LDX 0 CELLA+5(3) [
4XQ2 SMO 4
4Y9L ADS 0 FDCELLS+5(1) [ADD BACT BUCKETS IN THIS AREA
4YP= BRN R8
4^8W #
4^NG #
5286 #
52MQ MENDAREA 30,K99CONTEND
537B #END
^^^^ ...67201017000100000000