(George Source)
Macros used: ALTLEN, CLOSEST, EXMESS, FREECORE, GEOERR, GETWORD, ILLEGAL, KEEPMESS, MENDAREA, MFINDEXOF, MHUNTW, OUTPACK, PROGBRKIN, RELST, RUNPROG, SEGENTRY, TESTREP, TESTREPNOT, UNLOCKSU, 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