|
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 - download
Length: 1024 (0x400)
Types: COMAL_SAVE
Names: »HLAXX«
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─⟦this⟧
SAVE filename: "HLAXX" 0010 RANDOMIZE 0020 PRINT "<27><12><29>" ; 0030 LET A = RND ( 0 ) * 500 B = RND ( 0 ) * 10 D = RND ( 0 ) * 500 E = RND ( 0 ) * 400 0040 LET B = RND ( 0 ) * 15 0050 LET KA = A KB = B KD = D KE = E 0060 LET X = 0 0070 PRINT "<27><12>" 0080 CALL "GRAPH" , 0 , 0 0090 FOR X = 0 TO A STEP B 0100 CALL "OUTVECT" , 500 + ( COS ( X ) * 1.2 ) * D , 400 + ( SIN ( X ) * 0.9 ) * E 0110 NEXT 0120 PRINT "<31>" 0130 DELAY = 2 0140 PRINT "<27>AF" 0150 INPUT X 0160 IF X = 1 THEN LET A = KA B = KB D = KD E = KE 0170 IF X = 1 THEN PRINT "<27>AE" 0180 IF X = 1 THEN GOTO 0050 0190 GOTO 0020
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# = 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# = 0x0085
Loop Top = 0x0094
To Val = 447.468 (0x431bf77c)
Step Val = 2.72889 (0x412ba984)
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] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
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 0x0000 0x00 A
0x82 0x0002 0x00 B
0x83 0x0004 0x00 D
0x84 0x0006 0x00 E
0x85 0x0010 0x00 X
0x86 0x0008 0x00 KA
0x87 0x000a 0x00 KB
0x88 0x000c 0x00 KD
0x89 0x000e 0x00 KE
0x8a 0xffff 0x00 GG
.magic = 0x4e32 .u_pas = 0x00f0 // Length of UPAS in words .u_das = 0x00b1 // Length of UDAS in words .u_dvs = 0x009f // Start på savede variabel indhold (word adr) .u_nds = 0x00ca // Address på næste prog.sætning (word adr) .u_cps = 0x00c7 // Address på curr prog.sætning (word adr) .u_tll = 0x0048 // Page størrelse .u_tts = 0x000e // TAP størrelse .u_ran = 0x0001 // Random tal .u_cdl = 0x0006 // Current DATA sætning ptr .u_cdb = 0xaef3 // Current DATA byte ptr .u_esa = 0x0042 // ON ESE (word adr) .u_era = 0x0000 // ON ERR (word adr) .u_cas = 0xffff // CASE dybde .u_las = 0xffff // last (-1)