|
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: 3432 (0xd68)
Types: COMAL_SAVE
└─⟦c136eefb5⟧ Bits:30000468 DOMUS disk image, Nakskov gymnasium, bruger filer
└─ ⟦9b0e47914⟧ »/A.PJ6«
└─⟦this⟧
SAVE filename: "PJ6" 0010 REM PETER JØRGENSEN«nul» 0020 REM 81.01.12«nul» 0030 PRINT "X" 0040 PRINT " X" 0050 PRINT " X" 0060 PRINT " X" 0070 PRINT " X" 0080 PRINT " X" 0090 PRINT " X" 0100 PRINT " X" 0110 PRINT " X" 0120 PRINT " X" 0130 PRINT " X" 0140 PRINT " X" 0150 PRINT " X" 0160 PRINT " X" 0170 PRINT " X" 0180 PRINT " X" 0190 PRINT " X" 0200 PRINT " X" 0210 PRINT " X" 0220 PRINT " X" 0230 PRINT " X" 0240 PRINT " X" 0250 PRINT " X" 0260 PRINT " X" 0270 PRINT " X" 0280 PRINT " X" 0290 PRINT " X" 0300 PRINT " X" 0310 PRINT " X" 0320 PRINT " X" 0330 PRINT " X" 0340 PRINT " X" 0350 PRINT " X" 0360 PRINT " X" 0370 PRINT " X" 0380 PRINT " X" 0390 PRINT " X" 0400 PRINT " X" 0410 PRINT " X" 0420 PRINT " X" 0430 PRINT " X" 0440 PRINT " X" 0450 PRINT " X" 0460 PRINT " X" 0470 PRINT " X" 0480 PRINT " X" 0490 PRINT " X" 0500 PRINT " X" 0510 PRINT " X" 0520 PRINT " X" 0530 PRINT " X" 0540 PRINT " X" 0550 PRINT " X" 0560 PRINT " X" 0570 PRINT " X" 0580 PRINT " X" 0590 PRINT " X" 0600 PRINT " X" 0610 PRINT " X" 0620 PRINT " X" 0630 PRINT " X" 0640 PRINT " X" 0650 PRINT " X" 0660 PRINT " X" 0670 PRINT " X" 0680 PRINT " X" 0690 PRINT " X" 0700 PRINT " X" 0710 PRINT " X" 0720 PRINT " X" 0730 PRINT " X" 0740 PRINT " X" 0750 PRINT " X" 0760 PRINT " X" 0770 PRINT " X" 0780 PRINT " X" 0790 PRINT " X" 0800 PRINT " X" 0810 PRINT " X" 0820 PRINT " X" 0830 PRINT " X" 0840 PRINT " X" 0850 PRINT " X" 0860 PRINT " X" 0870 PRINT " X" 0880 PRINT " X" 0890 PRINT " X" 0900 PRINT " X" 0910 PRINT " X" 0920 PRINT " X" 0930 PRINT " X" 0940 PRINT " X" 0950 PRINT " X" 0960 PRINT " X" 0970 GOTO 0030
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# = 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] = 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
.magic = 0x4e32 .u_pas = 0x0638 // Length of UPAS in words .u_das = 0x006d // Length of UDAS in words .u_dvs = 0x006d // Start på savede variabel indhold (word adr) .u_nds = 0x007c // Address på næste prog.sætning (word adr) .u_cps = 0x0000 // 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 = 0x0000 // 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)