15 22FL SEG INPUTJDF,74,P STANSFIELD,USERCOMS 4 22_= [ 4 23DW [ 12 23YG SEGENTRY K1INPUTJDF,Z1INPUTJDF 4 24D6 [ 19 24XQ [THIS SEGMENT IS ENTERED FROM PREPREAD IF INPUT IS FROM JDF/MDF 4 25CB [ 4 25X2 [ 21 26BL [THIS SUBROUTINE STEPS FOR APPENDING A RECORD WHOSE LENGTH IS IN X1 AND 11 26W= [MOVES THE RECORD INTO THE FUAB 4 27*W [ 8 27TG XAPP SBX 5 FX1 8 28*6 STEP LDX 2 A1(2) 20 28SQ ... SBN 2 503 [ >2000 CHARACTERS IN RECORD ? 14 29#B BNG 2 XSTEP [ J IF OK 18 29S2 BRN M2XCEED [ ERROR-RECORD OVERFLOW 5 2=?L XSTEP 8 2=R= ... ADN 2 503 10 2?=W STEP ,0(2),XBREAK 17 2?QG TESTREP2 FILEFULL,XFULL,REFUSED,REFUS,APPWAIT,WAIT 10 2#=6 MHUNTW 2,FILE,FRB 7 2#PQ LDX 4 2 8 2*9B LDX 1 A1(2) 8 2*P2 ADN 2 A1 8 2B8L MOVE 2 0(1) 8 2BN= ADX 5 FX1 7 2C7W EXIT 5 0 4 2CCN WAIT 11 2CMG LONGSET IWTDEST,XGEOERR 9 2CX# LONGSTOP XBREAK 10 2D76 XHUNT MHUNTW 2,FILE,FRB 8 2DLQ BRN STEP 4 2F6B [ 8 2FL2 XALAS LDX 3 FX2 10 2G5L NEXT HUNT2 3,CPB,CALAS 10 2GK= LDX 0 CPBCPLEV(3) 8 2H4W BNG 0 NEXT 7 2HJG EXIT 5 0 4 2J46 [ 21 2JHQ [THIS SUBROUTINE READS A RECORD FROM JDF AND TESTS IT FOR TERMINATOR. 14 2K3B [THE TERMINATOR HAS BEEN READ: EXIT 7 0 14 2KH2 [THE TERMINATOR HAS NOT BEEN READ: EXIT 7 1 4 2L2L [ 18 2LG= SREAD LDX 1 AWORK3(2) [AWORK3=1 IF MULTIFILE 8 2L_W SBX 7 FX1 8 2MFG READ 1(1) 8 2NDQ CALL 5 XALAS 18 2NYB MHUNT 2,FILE,FRB [FIND THE RECORD BLOCK 8 2PD2 LDX 1 A1(2) 16 2PXL BZE 1 XERR [J IF NO RECORD 18 2QC= ADDREC 3,0 [STEP THE RECORD COUNT 8 2QWW SMO FX2 9 2RBG LDX 3 AWORK1 8 2RW6 ANDN 3 #4000 17 2S*Q BZE 3 NOPS [ PARAMSUB SPECIFIED? 8 2STB LDCT 4 #600 9 2T*2 ANDX 4 A1+1(2) 10 2TSL BNZ 4 SPARECHARS 7 2W#= LDN 4 1 6 2WRW SPARECHARS 8 2X?G ADX 4 A1(2) 7 2XR6 SBN 4 3 8 2Y=Q BZE 4 NOPS 7 2YQB SLC 4 2 9 2_=2 LDX 5 A1+1(2) 10 2_PL HUNTW 1,FI,FUTILITY 10 329= NAME 2,FI,FUTILITY 9 32NW BPZ 1 SETFRB 7 333? ... LDX 3 2 9 33*N ... GETCORE A1(3),1 7 33N6 FINDCORE 1 5 347Q SETFRB 10 34MB NAME 1,FILE,FRB 9 3572 ANDX 5 BITS22LS 9 35LL STO 5 A1+1(1) 14 366= PARAMSUB FI,FUTILITY,A1+2,FILE,FRB,,4 12 36KW TESTREP2 NALL,XGER,IPID,PIDERR 10 375G LDX 4 ACOMMUNE2(2) 10 37K6 MHUNTW 2,FILE,FRB 10 384Q #SKI K6PREPREAD>599-599 9 38JB BLOCKTRA 2,FILEFRB 7 3942 LDX 3 4 7 39HL SLC 4 2 8 3=3= SBN 4 A1*4 7 3=GW LDN 5 0 7 3?2G SRL 45 2 8 3?G6 BZE 5 NOODD 9 3?_Q ORS 5 A1+1(2) 7 3#FB ADN 4 1 7 3#_2 ADX 3 2 7 3*DL SLC 5 2 7 3*Y= LDN 0 4 7 3BCW SBX 0 5 8 3BXG LDN 5 #20 6 3CC6 SPACEFILL 8 3CWQ DCH 5 0(3) 7 3DBB BCHX 3 / 9 3DW2 BCT 0 SPACEFILL 8 3F*L NOODD STO 4 A1(2) 8 3FN3 ...NOPS ADX 7 FX1 8 3FQL ... LDX 0 A1(2) 7 3FT9 ... SBN 0 3 8 3FXS ... BNG 0 NOTRM 10 3G2D ... BXE 6 A1+2(2),YTRM 5 3G7M ...NOTRM 9 3G#W LDX 0 A1+1(2) 8 3GSG ANDN 0 #7700 15 3H#6 BZE 0 YNTM [J IF GRAPHIE 9 3HRQ LDCH 5 A1+2(2) 18 3J?B SBN 5 #74 [OF LAST RECORD ALPHA? 14 3JR2 BNZ 5 YNTM [J IF NOT 9 3K=L LDX 5 A1+2(2) 15 3KQ= SLL 5 6 [REMOVE ALPHA 9 3L9W LDCH 0 A1+3(2) 16 3LPG ORX 5 0 [INSERT CHARACTER 17 3M96 BXU 6 5,YNTM [TEST FOR TERMINATOR 18 3MNQ YTRM EXIT 7 0 [TERMINATOR HAS BEEN READ 19 3N8B YNTM EXIT 7 1 [TERMINATOR HAS NOT BEEN READ 4 3NN2 [ 4 3P7L [ 4 3PM= [ 6 3Q6W Z1INPUTJDF 17 3QLG LDX 6 AWORK2(2) [PICK UP TERMINATOR 7 3R66 LDN 7 1 9 3RKQ TESTMULT NOTDEPTH1 7 3S5B LDN 7 0 6 3SK2 NOTDEPTH1 9 3T4L STO 7 AWORK3(2) 15 3TJ= RD CALL 7 SREAD [READ RECORD 8 3W3W BRN TERM 8 3WHG NOTTM CALL 5 XAPP 17 3X36 FREECORE 4 [FREE RECORD BLOCK 16 3XGQ BRN RD [READ NEXT RECORD 4 3Y2B TERM 18 3YG2 MHUNTW 3,FILE,FRB [FIND THE RECORD BLOCK 10 3Y_L NAME 3,ADATA,ALINE 10 3_F= ACROSS TIDYREAD,1 12 3_YW XFULL INPUTFULL XBRK,XHUNT,JOVER1 21 42DG NGN 6 1 [ JDF,MDF IS THE OMLY FILE NOW OPEN 21 42Y6 STO 6 AWORK3(2) [ AWORK3=-1 TO REFLECT LEVEL 0 9 43CQ LDX 6 AWORK2(2) 8 43XB SRD CALL 7 SREAD 8 44C2 BRN QUIT 7 44WL FREECORE 2 8 45B= BRN SRD 18 45TW QUIT FREECORE 2 [FREE THE INPUT BUFFER 17 46*G CALL 5 SINFIN [UNSET BIT FOR FINISH 6 46T6 ENDCOM 4 47#Q XBRK 9 47SB CALL 5 SINFIN 7 48#2 ABANDCOM 21 48RL XERR [COME HERE IF READ OFF END OF FILE 8 49?= LDX 2 FX2 9 49QW LDX 1 AWORK3(2) 9 4==G BACKSPACE 1(1) 19 4=Q6 ERROR BMISS,JTERM [ERROR 'TERMINATOR MISSING' 9 4?9Q CALL 7 SCLOSE 6 4?PB ENDCOM 5 4#92 REFUS 9 4#NL CALL 7 SCLOSE 9 4*8= CALL 3 XCOMERR 10 4*MW +EREXQUOTA 5 4B7G PIDERR 17 4BM6 CALL 7 XABAND [ CLOSE FILE+ABANDON 9 4C6Q CALL 3 XCOMERR 10 4CLB +JPARIDERR 5 4D62 XCOMERR 8 4DKL LDX 3 0(3) 7 4F5= COMERRX 3 9 4FJW XGER GEOERR 1,PSLEVEL 5 4G4G XBREAK 9 4GJ6 CALL 7 SCLOSE 7 4H3Q ABANDCOM 5 4HHB SCLOSE 8 4J32 SBX 7 FX1 9 4J88 ... LDX 0 AWORK3(2) 20 4J*B ... BNG 0 XENDC [J IF FILE CLOSED BY INPUTFULL 8 4JGL TESTMULT STRM 6 4K2= CLOSE 8 4KFW BRN XENDC 6 4K_G STRM CLOSE 7 4LF6 CLOSEMULT 5 4LYQ XENDC 9 4MDB CALL 5 SINFIN 8 4MY2 ADX 7 FX1 7 4NCL EXIT 7 0 4 4NX= [ 15 4PBW [ THIS SUBROUTINE UNSETS BIT FOR FINISH COMMAND 5 4PWG SINFIN 6 4QB6 INFINB 7 4QTQ EXIT 5 0 4 4R*B # 5 4RT2 M2XCEED 17 4S#L CALL 7 XABAND [ CLOSE FILE+ABANDON 18 4SS= CALL 3 XCOMERR [ ERROR-RECORD OVERFLOW 10 4T?W +JRECOFLOW 5 4TRG XABAND 8 4W?6 SBX 7 FX1 9 4WD# ... LDX 0 AWORK3(2) 20 4WKG ... BNG 0 XENDC [J IF FILE CLOSED BY INPUTFULL 15 4WQQ TESTMULT XMULT [ J IF M,F 8 4X=B CLOSEABANDON 8 4XQ2 BRN XENDC 6 4Y9L XMULT CLOSE 7 4YP= ERASEMULT 8 4_8W BRN XENDC 5 4_B4 XGEOERR 9 4_H= GEOERR 1,LONGSET? 10 4_NG SEGENTRY K99INPUTJDF 11 5286 MENDAREA 100,K99INPUTJDF 4 52MQ #END 8 ____ ...57144025001000000000