chengkai3
67 lines
3.7 KiB
Plaintext
Executable File
67 lines
3.7 KiB
Plaintext
Executable File
RFUNL1 connects diagnostic file. IPRSUP = -1 in STARTUP suppresses such output (see Jan, 96, newsletter).
|
|
RFUNL1 connects DEBUG.LIS file. IPRSUP = -1 in STARTUP suppresses such output (see Jan, 96, newsletter).
|
|
GNU RFUNL1 defines SLOT1 =
|
|
both D:\ATP\66\guxing\fanji\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\66\guxing\fanji\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\66\guxing\fanji\noM\work.atp s -r
|
|
CIMAG4 loads param. KPARAM, J = 6 40
|
|
CIMAG4 loads param CIM132 =
|
|
D:\ATP\66\guxing\fanji\noM\work.atp
|
|
CIMKEY uses LINUSE, N = -1 0
|
|
CIMKEY right-most nonblank N32 = 35
|
|
Bottom of CIMKEY. N36, N32, CIM132(1:N32) = 0 35
|
|
D:\ATP\66\guxing\fanji\noM\work.atp
|
|
over1 finds column KWCOMM, KILL = 0 0
|
|
Input data file JUNIT6(1:N8) =D:\ATP\66\GUXING\FANJI\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\66\guxing\fanji\noM\dahao.lib
|
|
Continuation next N67, N16, keybrd, INCDAT, L = 467 3 1 0 72
|
|
Continue comment. J, N67 = 467 468
|
|
Begin arg continuation ABUFF =
|
|
C , LINE2A, LINE2B, LINE2C, XX0209, X0219A, X0219B, X0219C, X0245A, X0245B $$
|
|
Continuation next N67, N16, keybrd, INCDAT, L = 468 12 1 0 78
|
|
Continue comment. J, N67 = 468 469
|
|
Begin arg continuation ABUFF =
|
|
C , X0245C, XX0226
|
|
Enter DO 4273. n18, limcrd = 470 30000
|
|
Two or more HP-GL plots? KNTHPG = 0
|