RFUNL1 has successfully connected unit 46. RFUNL1 connects DEBUG.LIS file. IPRSUP = -1 in STARTUP suppresses such output (see Jan, 96, newsletter). GNU RFUNL1 defines SLOT1 = both D:\ATP\500\jiubei\raoji3\noM\work.atp s -r KPARAM = 1 RSTART, old and new LIMCRD = 0 30000 RFUNL1 sets final LINUSE = -1 Exit LOWCAS with TEXT(1:K2) =.lis Exit LOWCAS with TEXT(1:K2) =.pch Exit LOWCAS with TEXT(1:K2) =.pl4 Begin LFLUSH by setting L6HAND = -99. over1 defines DENABL =$ENABLE Top of CIMAG4. KPARAM = 1 Top of CIMAG4. SLOT1 = both D:\ATP\500\jiubei\raoji3\noM\work.atp s -r CIMAG4 checks for FILE. J = 0 CIMAG4 loads param. KPARAM, J = 1 4 CIMAG4 loads param CIM132 = both CIMKEY uses LINUSE, N = -1 0 CIMKEY right-most nonblank N32 = 4 Bottom of CIMKEY. N36, N32, CIM132(1:N32) = 0 4both over1 finds column KWCOMM, KILL = 57 0 Top of CIMAG4. KPARAM = 6 Top of CIMAG4. SLOT1 = both D:\ATP\500\jiubei\raoji3\noM\work.atp s -r CIMAG4 loads param. KPARAM, J = 6 42 CIMAG4 loads param CIM132 = D:\ATP\500\jiubei\raoji3\noM\work.atp CIMKEY uses LINUSE, N = -1 0 CIMKEY right-most nonblank N32 = 37 Bottom of CIMKEY. N36, N32, CIM132(1:N32) = 0 37 D:\ATP\500\jiubei\raoji3\noM\work.atp over1 finds column KWCOMM, KILL = 0 0 Input data file JUNIT6(1:N8) =D:\ATP\500\JIUBEI\RAOJI3\NOM\WORK.ATP Input arg? k, L, INCDAT, KCARD1 = 132 0 0 1 allocated array2 in writ10,limitcards,nextblock= 30000 20000 allocated array3 in writ10,limitcards,nextblock= 60000 30000 Begin new DIMENS. NCHARG, LISBEG = -55222 -22666 Initialize. LUNDAT, LUNIT6, NUMDCD, LISBEG = 3 6 0 -22666 DIMENS builds BUFF77 = listsize.dat length LENPTH = 0 DIMEN1 builds BUFF77 = listsize.dat length LENPTH = 0 Exit new DIMENS. LISBEG = 0 Begin new DIMENS. NCHARG, LISBEG = 20 0 Done 20. LSIZE(1:8) = 0 340000 29 3 23 192000 1 6002 Exit new DIMENS. LISBEG = 0 OVER1 checks LSTAT(14) = 0 Begin copy loop to store at bottom with reverse indexing. When done, there will be message. Before DO 1816. LIMCRD = 30000 FNDFIL incoming arg = D:\ATP\500\jiubei\raoji3\noM\dahao.lib Continuation next N67, N16, keybrd, INCDAT, L = 347 3 1 0 74 Continue comment. J, N67 = 347 348 Begin arg continuation ABUFF = C , XX0123, XX0124, X0157A, X0157B, X0157C, XX0136, XX0137 Enter DO 4273. n18, limcrd = 349 30000 FNDFIL incoming arg = D:\ATP\500\jiubei\raoji3\noM\xiaohao.lib Continuation next N67, N16, keybrd, INCDAT, L = 29952 3 1 0 76 Continue comment. J, N67 = 465 29953 Begin arg continuation ABUFF = C , XX0142, XX0128, LINE1A, LINE1B, LINE1C, XX0123, XX0124 Enter DO 4273. n18, limcrd = 467 30000 FNDFIL incoming arg = D:\ATP\500\jiubei\raoji3\noM\short.lib Continuation next N67, N16, keybrd, INCDAT, L = 29954 3 1 0 74 Continue comment. J, N67 = 581 29955 Begin arg continuation ABUFF = C , XX0136, XX0137, X0158A, X0158B, X0158C, XX0156, XX0159 Enter DO 4273. n18, limcrd = 583 30000 FNDFIL incoming arg = D:\ATP\500\jiubei\raoji3\noM\long.lib Continuation next N67, N16, keybrd, INCDAT, L = 29956 3 1 0 73 Continue comment. J, N67 = 699 29957 Begin arg continuation ABUFF = C , XX0186, XX0188, XXSS2A, XXSS2B, XXSS2C, XX0165, XX0178 Enter DO 4273. n18, limcrd = 701 30000 FNDFIL incoming arg = D:\ATP\500\jiubei\raoji3\noM\short.lib Continuation next N67, N16, keybrd, INCDAT, L = 29958 3 1 0 74 Continue comment. J, N67 = 825 29959 Begin arg continuation ABUFF = C , XX0169, XX0166, X0144A, X0144B, X0144C, XX0142, XX0128 Enter DO 4273. n18, limcrd = 827 30000 FNDFIL incoming arg = D:\ATP\500\jiubei\raoji3\noM\long.lib Continuation next N67, N16, keybrd, INCDAT, L = 29960 3 1 0 73 Continue comment. J, N67 = 943 29961 Begin arg continuation ABUFF = C , XX0172, XX0179, X0194A, X0194B, X0194C, XX0193, XX0189 Enter DO 4273. n18, limcrd = 945 30000 FNDFIL incoming arg = D:\ATP\500\jiubei\raoji3\noM\short.lib Continuation next N67, N16, keybrd, INCDAT, L = 29962 3 1 0 74 Continue comment. J, N67 = 1069 29963 Begin arg continuation ABUFF = C , XX0156, XX0159, X0187A, X0187B, X0187C, XX0186, XX0188 Enter DO 4273. n18, limcrd = 1071 30000 FNDFIL incoming arg = D:\ATP\500\jiubei\raoji3\noM\short.lib Continuation next N67, N16, keybrd, INCDAT, L = 29964 3 1 0 74 Continue comment. J, N67 = 1187 29965 Begin arg continuation ABUFF = C , XX0193, XX0189, X0170A, X0170B, X0170C, XX0169, XX0166 Enter DO 4273. n18, limcrd = 1189 30000 Done copying lower cards back to top (DO 1835). Enter loop with top at SN 2338 J, KCARD2, kill = 1 1339 0 Out of loop ending below SN 2382. KSLASH, kill = 1 0 Sorry, class of BLANK not found, so bypass its use. Over1 after EMTSPY. kill = 0 Over1 checks NUMDCD, KASEND, KCARD2, LLBUFF = 0 5 1326 -3333 ^^^^ Top "SUBR1". NUMDCD, KASEND, KCARD2 = 0 5 1326 Top SUBR1 saves XMAXMX, TENERG = 2. 1.E+020 subr1 sets LUNIT4, MOPLOT = -4 1 Begin new DIMENS. NCHARG, LISBEG = 0 0 Begin TAPSAV/TAPSIZ. Done ENTRY TAPSIZ. N3 = 39488436 Bytes of LABCOM from TAPSIZ. N6 = 39488436 Exit new DIMENS. LISBEG = 0 LU2OPN ready to open with FNAME =dum12345.bin LU2OPN ready to open with FSTAT =SCRATCH Exit LOWCAS with TEXT(1:K2) =d:\atp\500\jiubei\raoji3\nom\work.pl4 SYSDEP ready to read LUNIT6 file name. KPARAM = 44 Top of CIMAG4. KPARAM = 44 Top of CIMAG4. SLOT1 = both D:\ATP\500\jiubei\raoji3\noM\work.atp s -r CIMAG4 loads param. KPARAM, J = 44 47 CIMAG4 loads param CIM132 = -r CIMKEY uses LINUSE, N = -1 0 CIMKEY right-most nonblank N32 = 4 Revise this to before -r, N32 = 4 Bottom of CIMKEY. N36, N32, CIM132(1:N32) = 0 4 -r Keyboard defines CIM132 = -R