|
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: 6656 (0x1a00)
Types: COMAL_SAVE
Names: »JTJ1«
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─⟦this⟧
SAVE filename: "JTJ1" 0010 REM *** COPYRIGHT @ JAN TSCHERNING***«nul» 0020 REM *** JAN TSCHERNING**31/7/80«nul» 0030 DIM A$ ( 2000 ) 0040 DELAY = 1 0050 PRINT "<27><12>" 0060 DELAY = 2 0070 CALL "GRAPH" , 1000 , 0 0080 CALL "ALPHA" 0090 PRINT "@" 0100 CALL "GRAPH" , 350 , 200 0110 CALL "VECTOR" , 350 , 300 , 1 0120 CALL "VECTOR" , 300 , 450 , 1 0130 CALL "VECTOR" , 350 , 500 , 1 0140 CALL "VECTOR" , 325 , 525 , 1 0150 CALL "VECTOR" , 350 , 550 , 1 0160 CALL "VECTOR" , 450 , 550 , 1 0170 CALL "VECTOR" , 475 , 525 , 1 0180 CALL "VECTOR" , 500 , 550 , 1 0190 CALL "VECTOR" , 600 , 550 , 1 0200 CALL "VECTOR" , 625 , 525 , 1 0210 CALL "VECTOR" , 600 , 500 , 1 0220 CALL "VECTOR" , 650 , 450 , 1 0230 CALL "VECTOR" , 600 , 300 , 1 0240 CALL "VECTOR" , 600 , 200 , 1 0250 CALL "VECTOR" , 350 , 200 , 1 0260 CALL "VECTOR" , 325 , 175 , 0 0270 CALL "VECTOR" , 425 , 350 , 1 0280 CALL "VECTOR" , 425 , 375 , 1 0290 CALL "VECTOR" , 450 , 425 , 1 0300 CALL "VECTOR" , 500 , 425 , 1 0310 CALL "VECTOR" , 525 , 375 , 1 0320 CALL "VECTOR" , 525 , 350 , 1 0330 CALL "VECTOR" , 625 , 175 , 1 0340 CALL "VECTOR" , 575 , 225 , 0 0350 CALL "VECTOR" , 500 , 350 , 1 0360 CALL "VECTOR" , 500 , 400 , 1 0370 CALL "VECTOR" , 450 , 400 , 1 0380 CALL "VECTOR" , 450 , 350 , 1 0390 CALL "VECTOR" , 375 , 225 , 1 0400 CALL "VECTOR" , 575 , 225 , 1 0410 CALL "VECTOR" , 400 , 225 , 0 0420 CALL "VECTOR" , 400 , 265 , 1 0430 CALL "VECTOR" , 425 , 225 , 0 0440 CALL "VECTOR" , 425 , 310 , 1 0450 CALL "VECTOR" , 450 , 225 , 0 0460 CALL "VECTOR" , 450 , 350 , 1 0470 CALL "VECTOR" , 500 , 350 , 0 0480 CALL "VECTOR" , 500 , 225 , 1 0490 CALL "VECTOR" , 525 , 225 , 0 0500 CALL "VECTOR" , 525 , 310 , 1 0510 CALL "VECTOR" , 550 , 225 , 0 0520 CALL "VECTOR" , 550 , 265 , 1 0530 CALL "VECTOR" , 550 , 225 , 0 0540 CALL "VECTOR" , 525 , 250 , 1 0550 CALL "VECTOR" , 550 , 250 , 0 0560 CALL "VECTOR" , 525 , 275 , 1 0570 CALL "VECTOR" , 500 , 225 , 0 0580 CALL "VECTOR" , 475 , 250 , 1 0590 CALL "VECTOR" , 450 , 225 , 1 0600 CALL "VECTOR" , 500 , 250 , 0 0610 CALL "VECTOR" , 475 , 275 , 1 0620 CALL "VECTOR" , 450 , 250 , 1 0630 CALL "VECTOR" , 500 , 275 , 0 0640 CALL "VECTOR" , 475 , 300 , 1 0650 CALL "VECTOR" , 450 , 275 , 1 0660 CALL "VECTOR" , 500 , 300 , 0 0670 CALL "VECTOR" , 475 , 325 , 1 0680 CALL "VECTOR" , 450 , 300 , 1 0690 CALL "VECTOR" , 500 , 325 , 0 0700 CALL "VECTOR" , 475 , 350 , 1 0710 CALL "VECTOR" , 450 , 325 , 1 0720 CALL "VECTOR" , 500 , 350 , 0 0730 CALL "VECTOR" , 475 , 375 , 1 0740 CALL "VECTOR" , 450 , 350 , 1 0750 CALL "VECTOR" , 500 , 375 , 0 0760 CALL "VECTOR" , 475 , 400 , 1 0770 CALL "VECTOR" , 450 , 375 , 1 0780 CALL "VECTOR" , 400 , 225 , 0 0790 CALL "VECTOR" , 425 , 250 , 1 0800 CALL "VECTOR" , 400 , 250 , 0 0810 CALL "VECTOR" , 425 , 275 , 1 0820 CALL "VECTOR" , 350 , 300 , 0 0830 CALL "VECTOR" , 425 , 450 , 1 0840 CALL "VECTOR" , 450 , 425 , 1 0850 CALL "VECTOR" , 450 , 475 , 0 0860 CALL "VECTOR" , 425 , 450 , 1 0870 CALL "VECTOR" , 300 , 450 , 1 0880 CALL "VECTOR" , 600 , 300 , 0 0890 CALL "VECTOR" , 525 , 450 , 1 0900 CALL "VECTOR" , 500 , 475 , 1 0910 CALL "VECTOR" , 500 , 475 , 0 0920 CALL "VECTOR" , 525 , 450 , 1 0930 CALL "VECTOR" , 650 , 450 , 1 0940 CALL "VECTOR" , 600 , 500 , 0 0950 CALL "VECTOR" , 500 , 500 , 1 0960 CALL "VECTOR" , 500 , 450 , 1 0970 CALL "VECTOR" , 475 , 475 , 1 0980 CALL "VECTOR" , 450 , 450 , 1 0990 CALL "VECTOR" , 450 , 500 , 1 1000 CALL "VECTOR" , 350 , 500 , 1 1010 CALL "VECTOR" , 500 , 500 , 0 1020 CALL "VECTOR" , 500 , 750 , 1 1030 CALL "VECTOR" , 450 , 750 , 1 1040 CALL "VECTOR" , 450 , 500 , 1 1050 CALL "VECTOR" , 600 , 225 , 0 1060 CALL "VECTOR" , 750 , 250 , 1 1070 CALL "VECTOR" , 775 , 250 , 1 1080 CALL "VECTOR" , 675 , 575 , 1 1090 CALL "VECTOR" , 500 , 575 , 1 1100 CALL "VECTOR" , 450 , 575 , 0 1110 CALL "VECTOR" , 275 , 575 , 1 1120 CALL "VECTOR" , 175 , 250 , 1 1130 CALL "VECTOR" , 200 , 250 , 1 1140 CALL "VECTOR" , 350 , 225 , 1 1150 CALL "VECTOR" , 750 , 250 , 0 1160 CALL "VECTOR" , 650 , 550 , 1 1170 CALL "VECTOR" , 600 , 550 , 1 1180 CALL "VECTOR" , 350 , 550 , 0 1190 CALL "VECTOR" , 300 , 550 , 1 1200 CALL "VECTOR" , 200 , 250 , 1 1210 CALL "VECTOR" , 675 , 575 , 0 1220 CALL "VECTOR" , 675 , 675 , 1 1230 CALL "VECTOR" , 650 , 750 , 1 1240 CALL "VECTOR" , 550 , 750 , 1 1250 CALL "VECTOR" , 450 , 750 , 1 1260 CALL "VECTOR" , 300 , 750 , 1 1270 CALL "VECTOR" , 275 , 675 , 1 1280 CALL "VECTOR" , 275 , 575 , 1 1290 CALL "VECTOR" , 500 , 425 , 0 1300 CALL "VECTOR" , 525 , 450 , 1 1310 CALL "ALPHA" 1330 PRINT ""
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
0x81 0x0000 0x02 A$
.magic = 0x4e32 .u_pas = 0x07eb // Length of UPAS in words .u_das = 0x045d // Length of UDAS in words .u_dvs = 0x0072 // Start på savede variabel indhold (word adr) .u_nds = 0x07e7 // Address på næste prog.sætning (word adr) .u_cps = 0x07e7 // 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)