|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 932 (0x3a4)
Types: COMAL_SAVE
Notes: ASS2::RNDCOP2, RNDCOP2
Names: »RNDCOP2«
└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
└─⟦this⟧ »ASS2::RNDCOP2«
SAVE filename: "RNDCOP2" 0010 DIM A$ ( 40 , 40 ) , B$ ( 8 ) , C$ ( 8 ) , D$ ( 8 ) , A ( 40 ) 0020 INPUT "FRA LD : " , B$ , "<13><10>TIL LD : " , C$ , "<13><10>KODE : " , K , "<13><10>R-FIL : " , D$ , "<13><10>AN. REC : " , R , "<13><10>RECLGN : " , RL 0030 CONNECT C$ , K 0040 CREATE D$ , R , RL 0050 CONNECT B$ 0060 OPEN FILE ( 0 , 4 ) D$ 0070 LET R = 0 0080 WHILE R < 40 AND NOT EOF ( 0 ) DO 0090 LET R = R + 1 S = S + 1 0095 PRINT R 0100 ON ERR THEN GOTO 0140 0110 READ FILE ( 0 , S ) A ( R ) , A$ ( R ) 0120 NEXT 0130 CLOSE 0140 CLOSE 0150 CONNECT C$ , K 0160 OPEN FILE ( 0 , 0 ) D$ 0170 FOR I = 1 TO R 0180 LET T = T + 1 0190 WRITE FILE ( 0 , T ) A ( I ) , A$ ( I ) 0200 NEXT 0210 CLOSE 0220 IF SYS ( 7 ) <> 119 THEN GOTO 0050
FNA definition = 0xffff
FNB definition = 0xffff
FNC definition = 0xffff
FND definition = 0xffff
FNE definition = 0xffff
FNF definition = 0xffff
FNG definition = 0xffff
FNH definition = 0xffff
FNI definition = 0xffff
FNJ definition = 0xffff
FNK definition = 0xffff
FNL definition = 0xffff
FNM definition = 0xffff
FNN definition = 0xffff
FNO definition = 0xffff
FNP definition = 0xffff
FNQ definition = 0xffff
FNR definition = 0xffff
FNS definition = 0xffff
FNT definition = 0xffff
FNU definition = 0xffff
FNV definition = 0xffff
FNW definition = 0xffff
FNX definition = 0xffff
FNY definition = 0xffff
FNZ definition = 0xffff
FN[ definition = 0xffff
FN\ definition = 0xffff
FN] definition = 0xffff
GOSUB-RETURN stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
FOR-NEXT stack pointer = 0x0000
Var# = 0x008b
Loop Top = 0x00f4
To Val = 1 (0x41100000)
Step Val = 1 (0x41100000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
REPEAT-UNTIL stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
WHILE-ENDWHILE stack pointer = 0x0000
stack[0] = 0x00af
stack[1] = 0x00af
stack[2] = 0x00af
stack[3] = 0x00af
stack[4] = 0x00af
stack[5] = 0x00af
stack[6] = 0x00af
IF-ELSE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
Variables:
0x80 0xffff 0x00
0x81 0xffff 0x02 A$
0x82 0xffff 0x02 B$
0x83 0xffff 0x02 C$
0x84 0xffff 0x00 K
0x85 0xffff 0x02 D$
0x86 0xffff 0x00 R
0x87 0xffff 0x00 RL
0x88 0xffff 0x00 Y
0x89 0xffff 0x00 A
0x8a 0xffff 0x00 S
0x8b 0xffff 0x00 I
0x8c 0xffff 0x00 T
.magic = 0x5356 .u_pas = 0x011a // Length of UPAS in words .u_das = 0x00a9 // Length of UDAS in words .u_dvs = 0x00a9 // Start på savede variabel indhold (word adr) .u_nds = 0x0042 // Address på næste prog.sætning (word adr) .u_cps = 0x0042 // Address på curr prog.sætning (word adr) .u_tll = 0x0048 // Page størrelse .u_tts = 0x000e // TAP størrelse .u_ran = 0x0000 // Random tal .u_cdl = 0x0042 // Current DATA sætning ptr .u_cdb = 0x0000 // Current DATA byte ptr .u_esa = 0xffff // ON ESE (word adr) .u_era = 0xffff // ON ERR (word adr) .u_cas = 0x0000 // CASE dybde .u_las = 0xffff // last (-1)