141 lines
8.0 KiB
Plaintext
141 lines
8.0 KiB
Plaintext
|
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
|