8 22FL #OPT K0CROBJ=K0OLP 8 22_= #OPT K6CROBJ=K6OLP 7 23DW #LIS K0CROBJ 16 23YG #SEG CROBJ6 [LADISLAV KUTILEK 9 24D6 8HCROBJ 11 24XQ SEGENTRY K1CROBJ,Z1CROBJ 14 25CB # THIS SEGMENT PROCESSES OFFLINE *CR PERIS 8 25X2 MCOUNT +2001 9 26BL MASK #777777 5 26W= PLINK1 9 27*W PAIR CROBJ,1 5 27TG Z1CROBJ 10 28*6 LDX 3 APETADDR(2) 10 28SQ LOCKCA 3,ACAP(2),1 8 29#B LDX 4 0(1) 8 29S2 LDX 1 FX1 21 2=?L ANDN 4 #7735 [MODE 2 OR ADDITIVE MODE #40 (INHIBIT 21 2=R= BZE 4 MOK [NORMAL TRANSLAT 17 2?=W ANDN 4 #7677 [ADDITIVE MODE #100 15 2?QG BNZ 4 MOLE [ILLEGAL MODE 8 2#=6 LDCT 4 #100 19 2#PQ ORS 4 ALTMARK(2) [SET B2 IF ADDITIVE MODE #100 4 2*9B MOK 7 2*P2 LDN 4 4 9 2B8L LDX 6 ACAP(2) 9 2BN= LDN 7 ACA1(2) 16 2C7W FOUTMOVE 3,6,7,4,HLOCK1 [MOVE CA TO AOLPT 9 2CMG LDX 0 AWORK4(2) 16 2D76 BNG 0 NORE15 [ALREDY READ EOF 9 2DLQ LDX 4 ACA3(2) 16 2F6B BZE 4 WX1 [J IF COUNT ZERO 16 2FL2 BXGE 4 MCOUNT(1),WX1 [TOO BIG OR -VE 17 2G5L ADN 4 3 [ROUND UP WORD COUNT 7 2GK= SRL 4 2 8 2H4W LDCT 5 #600 9 2HJG ANDX 5 ACA4(2) 19 2J46 BNZ 5 WA [J IF ADDRESS NOT CHAR ZERO 8 2JHQ PMODES 1,3 9 2K3B LDX 5 ACA4(2) 8 2KH2 ANDN 1 #10 15 2L2L BNZ 1 MOKA [J IF 22AM 18 2LG= ANDX 5 BSP16 [ELSE TAKE 15BIT ADDRESS 4 2L_W MOKA 5 2MFG #SKI G4 18 2M_6 LDN 7 CHWRITE [CHECK PERMISSION IN G4 13 2NDQ CHECKA 5,4,RV1,3,7,MOKB,HLOCK2 4 2NYB MOKB 16 2PD2 INMOP K1CROBJ,MOPMF [READ FROM MOP/MF 6 2PXL STEP 10 2QC= TESTREP2 STEPWAIT,WAIT 15 2QWW BZE 3 WAIT2 [END OF FILE 13 2RBG LDEX 6 FRH(3) [N/W 9 2RW6 LDX 7 FSCTM(2) 13 2S*Q ANDN 7 #7777 [MODE 17 2STB BZE 7 NOTR [J IF CP,CR,LP FILE 8 2T*2 LDN 0 #10 7 2TSL ANDX 0 7 17 2W#= BNZ 0 NOTR [J IF GRAPHIC MODE 7 2WRW LDX 0 6 16 2X?G SBN 0 2 [X0=N/W IN RECORD 17 2XR6 BZE 0 NOTR [J IF EMPTY RECORD 10 2Y=Q HUNT 2,ADATA,ACONV 15 2YQB BPZ 2 PRESB [J IF PRESENT 11 2_=2 SETUPCORE 6,2,ADATA,ACONV 8 2_PL BRN OKLEN 17 329= PRESB BXL 6 ALOGLEN(2),OKBL [J IF LENGTH IS OK 7 32NW LDX 3 2 8 338G ALTLEN 3,6 16 33N6 OKLEN STEPAGAIN [RELOCATE RECORD 10 347Q MHUNT 2,ADATA,ACONV 16 34MB OKBL ADN 2 A1 [X2=PTR TO BUFFER 16 3572 LDX 1 3 [PTR TO RECORD 7 35LL SMO 6 18 366= MOVE 1 0 [MOVE RECORD TO BUFFER 14 36KW MOP LDN 2 #10 [GRAPHIC 8 375G TRANSFOR 7,2 17 37K6 TESTREP2 ILLMODE,MOLE [J IF ILLEGAL MODE 10 384Q MHUNT 3,ADATA,ACONV 16 38JB ADN 3 A1 [X3=PTR TO RECORD 13 3942 LDX 6 FRH(3) [N/W 4 39HL NOTR 14 3=3= SBN 6 2 [RED TAPE 17 3=GW BXGE 4 6,NUFF [J IF RECORD599-599 10 3GSG TRACE 7,SPACEFIL 7 3H#6 LDX 3 5 7 3HRQ ADX 3 6 8 3J?B LDX 4 ACES 11 3JR2 FILL 1,3,4,7,HLOCK2 7 3K=L NFILL ADX 5 6 8 3KQ= SMO FX1 18 3L9W ANDX 5 MASK [REDUCE REPLY TO 18 BITS 4 3LPG REP 9 3M96 LDX 3 ACAP(2) 7 3MNQ ADN 3 1 10 3N8B FADDRESS 1,3,HLOCK1 8 3NN2 STO 5 0(3) 6 3P7L OLPEND 9 3PM= BRN K1CROBJ 4 3Q6W # 4 3QLG # 14 3R66 MOPMF MHUNT 3,FILE,FRB [RECORD 10 3RKQ NAMETOP 3,ADATA,ACONV 8 3S5B ADN 3 A1 13 3SK2 LDX 6 FRH(3) [N/W 9 3T4L LDX 0 FRH+1(3) 15 3TJ= ANDN 0 #7700 [MODE CHAR 15 3W3W BZE 0 NOTR [J IF GRAPHIC 16 3WHG LDN 7 6 [NORMAL,PREVIOUS 18 3X36 BRN MOP [J TO CONVERT TO GRAPHIC 4 3XGQ RV1 9 3Y2B LDN 3 FYNOBUF 8 3YG2 XILL CALL 5 TOPCA 15 3Y_L ACROSS OLPODD,4 [FOR ILLEGAL 4 3_F= WX1 9 3_YW LDN 3 FYCOUNT 8 42DG BRN XILL 8 42Y6 NORE COMPQU NORE1 9 43CQ BRN K1CROBJ 8 43XB LDX 0 GSIGN 15 44C2 ORS 0 AWORK4(2) [SET EOF MARK 9 44WL BRN NORE15 5 45B= NORE1 7 45TW BACKSPACE 5 46*G NORE15 9 46T6 LDX 0 ACA1(2) 7 47#Q SRL 0 3 8 47SB ANDN 0 #7773 8 48#2 SBN 0 #3000 17 48RL BNZ 0 NORE2 [J IF NOT MODE #30000 17 49?= LDCT 5 #50 [SET B3 & 5 IN REPLY 10 49QW LDX 1 APETADDR(2) 8 4==G BRN REP 5 4=Q6 NORE2 9 4?9Q LDN 3 FYFILE 9 4?PB LDX 4 FTYPNO(2) 8 4#92 BRN XILL 4 4#NL MOLE 9 4*8= LDN 3 FYMODE 8 4*MW BRN XILL 4 4B7G WA 9 4BM6 LDN 3 FYCHAR 8 4C6Q BRN XILL 4 4CLB WAIT 7 4D62 LDN 3 1 5 4DKL WAIT2 10 4F5= FDRMTEST STEPWAIT,NSM 8 4FJW LDCT 5 #420 8 4G4G BNZ 3 WAIT3 17 4GJ6 LDCT 5 #410 [REJECTED INOPERABLE 7 4H3Q BACKSPACE 5 4HHB WAIT3 10 4J32 LDX 1 APETADDR(2) 8 4JGL BRN REP 4 4K2= NSM 16 4KFW BZE 3 NORE [J IF NO RECORDS 8 4K_G CALL 5 TOPCA 9 4LF6 ACROSS OLPODD,1 5 4LYQ TOPCA 8 4MDB LDX 1 FX1 9 4MY2 TOPCA1 PLINK1(1) 7 4NCL EXIT 5 0 12 4NX= MENDAREA AOLPGAP,K99CROBJ 4 4PBW #END 8 ____ ...01661450000200000000