13 229S ... SEG TPOBJ,867,SECT.FILE,,G505 8 22FL #OPT K0TPOBJ=K0OLP 8 22_= #OPT K6TPOBJ=K6OLP 7 23DW #LIS K0TPOBJ 4 23JR ...[ 15 23NN ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 13 23SK ...[ THIS EXCLUDES CODE UNDER #SKI G505 4 23YG ...[ 7 244C ...#OPT G505 = 0 6 248# ...#SKI G505&1 17 24#9 ...# WITH UGUG EDIT M505 (3-SHIFT WORKING FOR MOP ONLINE) 19 24D6 # THIS SEGMENT DOES AN OFFLINE TP PERI (TYPE 1 MODES 0,4,8 OR 16 14 24XQ # COUNT 1-128) ISSUED BY AN OBJECT PROGRAM 11 25CB # AWORK1=N/CH IN ADATA/ACONV 14 25X2 # =#40000000 IF ENTRY FROM OFFREL 15 26BL # AWORK2=B0-5 LAST SHIFT IN ADATA/ACONV 17 26W= # B7=1 LAST CHARACTER OF PERI IS A DELTA. 14 27*W # B9=1 IMPLEMENTING *LP PERIS. 12 27KN # B18-23 BRANCH POINTER 17 27TG # AWORK3=2 ADATA/ALINE CONTAINS WHOLE RECORD 16 28*6 # =1 / 2000 CHARS 14 28SQ # AWORK4=B18-23 FILE MODE (#4,#24,#12) 17 29S2 # B0=1 END OF MULTIFILE HAS BEEN REACHED 13 2=3S # B1=1 FILE IS NEARLY FULL 4 2=?L # 11 2?=W SEGENTRY K1TPOBJ,Z1TPOBJ 11 2?K? SEGENTRY K3TPOBJ,Z3TPOBJ 11 2?XN SEGENTRY K2TPOBJ,Z2TPOBJ 4 2#=6 # 15 2#PQ MODE #20100400 [PERI MODES 17 2*9B TABLE #04010101 [FILE MODES & PTRS 9 2*P2 #24010302 9 2B8L #12030404 9 2BN= #00000000 6 2BTD ...#SKI G505&1 19 2C2L ...MASKID #70000706 [ PERMANENT BITS OF IDENTIND 18 2C7W MAX +129 [1 GREATER THAN MAXIMUM 8 2CCN MAX4 +323 9 2CMG MASK1 #60077777 9 2D76 XBLANK #76207620 8 2DLQ XALPHA #74 8 2F6B XBETA #75 5 2FL2 PLINK1 9 2G5L PAIR TPOBJ,1 20 2G7T Z2TPOBJ [ENTRY FROM LPOBJ TO IMPLEMENT 17 2G=4 STOZ AWORK1(2) [MODE 4 *LP PERIS. 8 2G#? LDN 0 #74 20 2GBG DCH 0 AWORK2(2) [SET ALPHA SHIFT FOR BEGINNING. 10 2GDP LDX 3 APETADDR(2) 8 2GGY BRN OKSH1 5 2GK= Z1TPOBJ 9 2H4W #SKI K6TPOBJ>799-799 9 2HJG TRACE FX2,TPOBJ 17 2J46 LDCH 0 AWORK2(2) [LAST SHIFT IN ADATA 14 2JHQ BNZ 0 OKSH [J IF OK 8 2K3B LDN 0 #74 17 2KH2 DCH 0 AWORK2(2) [ALPHA FOR BEGINNING 15 2L2L OKSH LDX 3 APETADDR(2) [PTR TO APET 9 2LG= LOCKCA 3,ACAP(2) 5 2LQ4 OKSH1 19 2L_W LDX 4 ACAP(2) [ADDRESS OF CA IN OBJ.PROG 18 2MFG LDN 5 ACA1(2) [ADDRESS OF CA IN AOLPT 7 2M_6 LDN 6 4 16 2NDQ FOUTMOVE 3,4,5,6,HLOCK1 [MOVE CA TO OLPA 8 2NG3 LDX 0 BIT9 9 2NH# ANDX 0 AWORK2(2) 20 2NJK BZE 0 NOTLP [J IF NOT IMPLEMENTING *LP PERIS. 9 2NKW LDEX 4 ACA1(2) 7 2NM7 LDX 0 4 7 2NND SBN 0 4 15 2NPP BZE 0 YM4 [J IF MODE 4. 9 2NR2 ACROSS LPOBJ,2 4 2NS? YM4 21 2NTJ SBS 4 ACA1(2) [SET MODE =0 IN AOLPT CONTROL AREA. 5 2NWT NOTLP 17 2NYB STOZ ACA2(2) [ZEROISE REPLY WORD 8 2TWT PMODES 4,3 8 2T_4 ANDN 4 #10 18 2W3? BNZ 4 NOTPACT [J IF NOT COMPACT MODE 9 2W5G LDX 4 MASK1(1) 9 2W7P ANDS 4 ACA4(2) 5 2W9Y NOTPACT 9 2W=3 LDX 0 AWORK4(2) 18 2W=6 BNG 0 OUTF2 [J IF END OF MULTIFILE 8 2W=9 LDCT 0 #200 9 2W=# ANDX 0 AWORK4(2) 19 2W=C BZE 0 NONEAR [J IF FILE IS NOT NEARLY FULL 8 2W=G LDCT 0 #400 18 2W=K BXE 0 AWORK1(2),NONEAR [J IF ENTRY FROM OFFREL 8 2W=N LDX 0 BIT9 9 2W=R ANDX 0 AWORK2(2) 21 2W=W BZE 0 YFULL [TAKE FILEFULL ACTION IF NOT *LP PERI 9 2W=_ LDX 1 ACA4(2) 7 2W?4 BCHX 1 / 7 2W?7 SBN 1 1 15 2W?= FADDRESS 3,1,HLOCK2 [X1 -> PFCC 8 2W?* LDN 0 #17 8 2W?D ANDX 0 0(1) 8 2W?H LDX 1 FX1 8 2W?L ERN 0 #11 20 2W?P BNZ 0 NONEAR [J IF NOT THROW TO HEAD OF FORM 5 2W?S YFULL 9 2W?X SETREP2 FILEFULL 19 2W#2 BRN NEARLY [SIMULATE FILEFULL CONDITIONS 5 2W#5 NONEAR 14 2W#= LDX 3 ACA3(2) [COUNT 8 2WRW BZE 3 WC 8 2WXR LDX 0 BIT9 9 2X3N ANDX 0 AWORK2(2) 16 2X7K BNZ 0 YLPERI [J IF *LP PERI 6 2X7R ...#SKI G505&1 4 2X7_ ...( 9 2X87 ... LDX 0 MASKID(1) 10 2X8* ... ANDS 0 IDENTIND(2) 4 2X8H ...) 6 2X8P ...#SKI G505&1 4 2X8X ...( 8 2X95 ... LDN 0 #10 9 2X9? ... ANDX 0 ACA1(2) 15 2X9F ... IF 0,ZE [ SHIFT PERI 8 2X9M ... LDN 6 6 11 2X9T ... ANDX 6 IDENTIND(2) 16 2X=3 ... AND 6,NZ [ SHIFT DEVICE 6 2X=9 ... THEN 8 2X=C ... SLL 6 12 11 2X=K ... ORS 6 IDENTIND(2) 5 2X=R ... FI 4 2X=_ ...) 18 2X?G BXGE 3 MAX(1),WC [CHECK COUNT 0