DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦cbb0ced93⟧ COMAL_SAVE

    Length: 9728 (0x2600)
    Types: COMAL_SAVE
    Names: »DANKO«

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─⟦this⟧ »/SPACE.DANKO«

UPAS Segment

SAVE filename: "DANKO"

 0010 DIM OV$ ( 60 )
 0020 DIM ANT ( 36 )
 0030 REM  *****GEOFUN*****«nul»
 0040 PAGE = 0
 0050 PRINT "<27><12>"
 0060 DELAY = 2
 0070 PRINT "<27>AF>"
 0080 INPUT "OVERSKRIFT : " , OV$
 0090 PRINT
 0100 FOR X = 1 TO 36
 0110   LET Y = 1940 + X Z = Y + 1
 0120   PRINT Y ; "/" ; Z - 1900 ; "  :  " ;
 0130   INPUT ANT ( X )
 0140 NEXT 
 0150 PRINT "<27><12>"
 0160 DELAY = 2
 0170 PRINT "<27>AE"
 0180 CALL "GRAPH" , 200 , 650
 0190 CALL "ALPHA"
 0200 PRINT OV$
 0210 CALL "GRAPH" , 60 , 65
 0220 CALL "VECTOR" , 60 , 150 , 1
 0230 CALL "VECTOR" , 45 , 160 , 1
 0240 CALL "VECTOR" , 45 , 140 , 1
 0250 CALL "VECTOR" , 15 , 175 , 1
 0260 CALL "VECTOR" , 25 , 200 , 1
 0270 CALL "VECTOR" , 25 , 340 , 1
 0280 CALL "VECTOR" , 72 , 310 , 1
 0290 CALL "VECTOR" , 72 , 335 , 1
 0300 CALL "VECTOR" , 100 , 360 , 1
 0310 CALL "VECTOR" , 107 , 340 , 1
 0320 CALL "VECTOR" , 100 , 325 , 1
 0330 CALL "VECTOR" , 115 , 335 , 1
 0340 CALL "VECTOR" , 120 , 320 , 1
 0350 CALL "VECTOR" , 105 , 365 , 1
 0360 CALL "VECTOR" , 120 , 380 , 1
 0370 CALL "VECTOR" , 170 , 390 , 1
 0380 CALL "VECTOR" , 203 , 377 , 1
 0390 CALL "VECTOR" , 205 , 343 , 1
 0400 CALL "VECTOR" , 165 , 333 , 1
 0410 CALL "VECTOR" , 205 , 333 , 1
 0420 CALL "VECTOR" , 210 , 333 , 1
 0430 CALL "VECTOR" , 210 , 315 , 1
 0440 CALL "VECTOR" , 245 , 315 , 1
 0450 CALL "VECTOR" , 253 , 290 , 1
 0460 CALL "VECTOR" , 235 , 260 , 1
 0470 CALL "VECTOR" , 228 , 270 , 1
 0480 CALL "VECTOR" , 220 , 255 , 1
 0490 CALL "VECTOR" , 205 , 265 , 1
 0500 CALL "VECTOR" , 210 , 280 , 1
 0510 CALL "VECTOR" , 195 , 260 , 1
 0520 CALL "VECTOR" , 195 , 212 , 1
 0530 CALL "VECTOR" , 165 , 212 , 1
 0540 CALL "VECTOR" , 178 , 205 , 1
 0550 CALL "VECTOR" , 178 , 190 , 1
 0560 CALL "VECTOR" , 140 , 195 , 1
 0570 CALL "VECTOR" , 165 , 175 , 1
 0580 CALL "VECTOR" , 155 , 160 , 1
 0590 CALL "VECTOR" , 130 , 157 , 1
 0600 CALL "VECTOR" , 148 , 150 , 1
 0610 CALL "VECTOR" , 146 , 112 , 1
 0620 CALL "VECTOR" , 125 , 90 , 1
 0630 CALL "VECTOR" , 148 , 82 , 1
 0640 CALL "VECTOR" , 150 , 63 , 1
 0650 CALL "VECTOR" , 136 , 70 , 1
 0660 CALL "VECTOR" , 120 , 55 , 1
 0670 CALL "VECTOR" , 60 , 64 , 1
 0680 CALL "VECTOR" , 30 , 345 , 0
 0690 CALL "VECTOR" , 62 , 400 , 1
 0700 CALL "VECTOR" , 128 , 405 , 1
 0710 CALL "VECTOR" , 176 , 475 , 1
 0720 CALL "VECTOR" , 200 , 475 , 1
 0730 CALL "VECTOR" , 230 , 500 , 1
 0740 CALL "VECTOR" , 210 , 470 , 1
 0750 CALL "VECTOR" , 223 , 450 , 1
 0760 CALL "VECTOR" , 223 , 417 , 1
 0770 CALL "VECTOR" , 204 , 383 , 1
 0780 CALL "VECTOR" , 172 , 395 , 1
 0790 CALL "VECTOR" , 120 , 385 , 1
 0800 CALL "VECTOR" , 80 , 380 , 1
 0810 CALL "VECTOR" , 60 , 350 , 1
 0820 CALL "VECTOR" , 68 , 334 , 1
 0830 CALL "VECTOR" , 57 , 325 , 1
 0840 CALL "VECTOR" , 33 , 343 , 1
 0850 CALL "VECTOR" , 0 , 460 , 0
 0860 CALL "VECTOR" , 100 , 460 , 1
 0870 CALL "VECTOR" , 100 , 530 , 1
 0880 CALL "VECTOR" , 35 , 496 , 0
 0890 CALL "VECTOR" , 39 , 529 , 1
 0900 CALL "VECTOR" , 78 , 504 , 1
 0910 CALL "VECTOR" , 66 , 485 , 1
 0920 CALL "VECTOR" , 35 , 496 , 1
 0930 CALL "VECTOR" , 65 , 350 , 0
 0940 CALL "VECTOR" , 90 , 377 , 1
 0950 CALL "VECTOR" , 88 , 354 , 1
 0960 CALL "VECTOR" , 72 , 340 , 1
 0970 CALL "VECTOR" , 65 , 350 , 1
 0980 CALL "VECTOR" , 260 , 417 , 0
 0990 CALL "VECTOR" , 268 , 419 , 1
 1000 CALL "VECTOR" , 265 , 425 , 1
 1010 CALL "VECTOR" , 277 , 427 , 1
 1020 CALL "VECTOR" , 275 , 434 , 1
 1030 CALL "VECTOR" , 250 , 426 , 1
 1040 CALL "VECTOR" , 260 , 417 , 1
 1050 CALL "VECTOR" , 300 , 344 , 0
 1060 CALL "VECTOR" , 313 , 346 , 1
 1070 CALL "VECTOR" , 315 , 341 , 1
 1080 CALL "VECTOR" , 305 , 336 , 1
 1090 CALL "VECTOR" , 300 , 344 , 1
 1100 CALL "VECTOR" , 218 , 235 , 0
 1110 CALL "VECTOR" , 230 , 220 , 1
 1120 CALL "VECTOR" , 227 , 203 , 1
 1130 CALL "VECTOR" , 220 , 201 , 1
 1140 CALL "VECTOR" , 218 , 213 , 1
 1150 CALL "VECTOR" , 224 , 220 , 1
 1160 CALL "VECTOR" , 218 , 231 , 1
 1170 CALL "VECTOR" , 220 , 234 , 1
 1180 CALL "VECTOR" , 157 , 158 , 0
 1190 CALL "VECTOR" , 201 , 181 , 1
 1200 CALL "VECTOR" , 218 , 166 , 1
 1210 CALL "VECTOR" , 207 , 145 , 1
 1220 CALL "VECTOR" , 226 , 163 , 1
 1230 CALL "VECTOR" , 225 , 178 , 1
 1240 CALL "VECTOR" , 240 , 160 , 1
 1250 CALL "VECTOR" , 233 , 150 , 1
 1260 CALL "VECTOR" , 247 , 133 , 1
 1270 CALL "VECTOR" , 236 , 100 , 1
 1280 CALL "VECTOR" , 221 , 94 , 1
 1290 CALL "VECTOR" , 195 , 94 , 1
 1300 CALL "VECTOR" , 168 , 118 , 1
 1310 CALL "VECTOR" , 158 , 150 , 1
 1320 CALL "VECTOR" , 165 , 150 , 1
 1330 CALL "VECTOR" , 157 , 158 , 1
 1340 CALL "VECTOR" , 250 , 200 , 0
 1350 CALL "VECTOR" , 262 , 188 , 1
 1360 CALL "VECTOR" , 254 , 187 , 1
 1370 CALL "VECTOR" , 273 , 174 , 1
 1380 CALL "VECTOR" , 267 , 164 , 1
 1390 CALL "VECTOR" , 279 , 148 , 1
 1400 CALL "VECTOR" , 267 , 137 , 1
 1410 CALL "VECTOR" , 280 , 118 , 1
 1420 CALL "VECTOR" , 318 , 117 , 1
 1430 CALL "VECTOR" , 321 , 98 , 1
 1440 CALL "VECTOR" , 310 , 98 , 1
 1450 CALL "VECTOR" , 342 , 82 , 1
 1460 CALL "VECTOR" , 357 , 87 , 1
 1470 CALL "VECTOR" , 350 , 110 , 1
 1480 CALL "VECTOR" , 380 , 130 , 1
 1490 CALL "VECTOR" , 380 , 142 , 1
 1500 CALL "VECTOR" , 360 , 155 , 1
 1510 CALL "VECTOR" , 365 , 170 , 1
 1520 CALL "VECTOR" , 382 , 181 , 1
 1530 CALL "VECTOR" , 393 , 183 , 1
 1540 CALL "VECTOR" , 390 , 250 , 1
 1550 CALL "VECTOR" , 365 , 257 , 1
 1560 CALL "VECTOR" , 335 , 233 , 1
 1570 CALL "VECTOR" , 343 , 233 , 1
 1580 CALL "VECTOR" , 350 , 190 , 1
 1590 CALL "VECTOR" , 340 , 190 , 1
 1600 CALL "VECTOR" , 344 , 220 , 1
 1610 CALL "VECTOR" , 333 , 230 , 1
 1620 CALL "VECTOR" , 337 , 216 , 1
 1630 CALL "VECTOR" , 328 , 193 , 1
 1640 CALL "VECTOR" , 318 , 210 , 1
 1650 CALL "VECTOR" , 317 , 228 , 1
 1660 CALL "VECTOR" , 280 , 235 , 1
 1670 CALL "VECTOR" , 303 , 227 , 1
 1680 CALL "VECTOR" , 304 , 216 , 1
 1690 CALL "VECTOR" , 290 , 200 , 1
 1700 CALL "VECTOR" , 250 , 200 , 1
 1710 CALL "VECTOR" , 260 , 72 , 0
 1720 CALL "VECTOR" , 270 , 80 , 1
 1730 CALL "VECTOR" , 278 , 80 , 1
 1740 CALL "VECTOR" , 305 , 60 , 1
 1750 CALL "VECTOR" , 312 , 70 , 1
 1760 CALL "VECTOR" , 330 , 54 , 1
 1770 CALL "VECTOR" , 328 , 32 , 1
 1780 CALL "VECTOR" , 295 , 30 , 1
 1790 CALL "VECTOR" , 260 , 48 , 1
 1800 CALL "VECTOR" , 253 , 62 , 1
 1810 CALL "VECTOR" , 269 , 62 , 1
 1820 CALL "VECTOR" , 260 , 72 , 1
 1830 CALL "VECTOR" , 315 , 80 , 0
 1840 CALL "VECTOR" , 335 , 85 , 1
 1850 CALL "VECTOR" , 357 , 62 , 1
 1860 CALL "VECTOR" , 344 , 50 , 1
 1870 CALL "VECTOR" , 338 , 20 , 1
 1880 CALL "VECTOR" , 333 , 54 , 1
 1890 CALL "VECTOR" , 315 , 80 , 1
 1900 CALL "VECTOR" , 254 , 110 , 0
 1910 CALL "VECTOR" , 235 , 44 , 1
 1920 CALL "VECTOR" , 220 , 65 , 1
 1930 CALL "VECTOR" , 230 , 60 , 1
 1940 CALL "VECTOR" , 254 , 110 , 1
 1950 CALL "VECTOR" , 145 , 95 , 0
 1960 CALL "VECTOR" , 158 , 92 , 1
 1970 CALL "VECTOR" , 168 , 76 , 1
 1980 CALL "VECTOR" , 164 , 67 , 1
 1990 CALL "VECTOR" , 155 , 72 , 1
 2000 CALL "VECTOR" , 145 , 95 , 1
 2010 CALL "VECTOR" , 47 , 115 , 0
 2020 CALL "VECTOR" , 53 , 96 , 1
 2030 CALL "VECTOR" , 48 , 98 , 1
 2040 CALL "VECTOR" , 49 , 114 , 1
 2050 CALL "VECTOR" , 192 , 80 , 0
 2060 CALL "VECTOR" , 209 , 60 , 1
 2070 CALL "VECTOR" , 214 , 64 , 1
 2080 CALL "VECTOR" , 192 , 80 , 1
 2090 CALL "VECTOR" , 220 , 80 , 0
 2100 CALL "VECTOR" , 218 , 90 , 1
 2110 CALL "VECTOR" , 233 , 95 , 1
 2120 CALL "VECTOR" , 234 , 83 , 1
 2130 CALL "VECTOR" , 220 , 80 , 1
 2140 CALL "VECTOR" , 288 , 82 , 0
 2150 CALL "VECTOR" , 291 , 77 , 1
 2160 CALL "VECTOR" , 297 , 79 , 1
 2170 CALL "VECTOR" , 294 , 83 , 1
 2180 CALL "VECTOR" , 288 , 82 , 1
 2190 CALL "VECTOR" , 299 , 85 , 0
 2200 CALL "VECTOR" , 306 , 86 , 1
 2210 CALL "VECTOR" , 303 , 80 , 1
 2220 CALL "VECTOR" , 299 , 85 , 1
 2230 CALL "VECTOR" , 360 , 70 , 0
 2240 CALL "VECTOR" , 351 , 72 , 1
 2250 CALL "VECTOR" , 355 , 84 , 1
 2260 CALL "VECTOR" , 362 , 82 , 1
 2270 CALL "VECTOR" , 362 , 95 , 1
 2280 CALL "VECTOR" , 390 , 86 , 1
 2290 CALL "VECTOR" , 383 , 80 , 1
 2300 CALL "VECTOR" , 370 , 80 , 1
 2310 CALL "VECTOR" , 360 , 70 , 1
 2320 CALL "VECTOR" , 386 , 177 , 0
 2330 CALL "VECTOR" , 393 , 188 , 1
 2340 CALL "VECTOR" , 398 , 180 , 1
 2350 CALL "VECTOR" , 392 , 173 , 1
 2360 CALL "VECTOR" , 386 , 177 , 1
 2370 CALL "GRAPH" , 500 , 10
 2380 CALL "OUTVECT" , 1000 , 10
 2390 CALL "OUTVECT" , 995 , 15
 2400 CALL "GRAPH" , 1000 , 10
 2410 CALL "OUTVECT" , 995 , 5
 2420 CALL "GRAPH" , 500 , 10
 2430 CALL "OUTVECT" , 500 , 550
 2440 CALL "OUTVECT" , 495 , 545
 2450 CALL "OUTVECT" , 500 , 550
 2460 CALL "OUTVECT" , 505 , 545
 2470 FOR X = 510 TO 990 STEP 10
 2480   CALL "GRAPH" , X , 5
 2490   CALL "OUTVECT" , X , 15
 2500 NEXT 
 2510 FOR X = 10 TO 550 STEP 50
 2520   CALL "GRAPH" , 495 , X
 2530   CALL "OUTVECT" , 505 , X
 2540 NEXT 
 2550 LET MAX = ANT ( 1 )
 2560 FOR X = 2 TO 36
 2570   IF ANT ( X ) > MAX THEN LET MAX = ANT ( X )
 2580 NEXT 
 2590 LET DIVI = 0.1
 2600 IF MAX > 0.99 THEN LET DIVI = 1
 2610 IF MAX > 9.99 THEN LET DIVI = 10
 2620 IF MAX > 99.99 THEN LET DIVI = 100
 2621 IF MAX > 999.99 THEN LET DIVI = 1000
 2630 CALL "GRAPH" , 470 , 560
 2640 CALL "ALPHA"
 2650 PRINT "*" ; DIVI
 2660 FOR X = 0 TO 10
 2670   CALL "GRAPH" , 440 , ( X * 50 ) + 10
 2680   CALL "ALPHA"
 2690   PRINT "###" , X
 2700 NEXT 
 2710 LET X = 0
 2720 LET NEJ = 0
 2730 LET START = 1 SLUT = 36
 2740 IF ANT ( 1 ) = - 1 THEN
 2750   REPEAT 
 2760     LET X = X + 1
 2770     LET START = X
 2780     IF ANT ( X + 1 ) <> - 1 THEN
 2790       LET START = START + 1
 2800       LET NEJ = 1
 2810     ENDIF 
 2820   UNTIL NEJ = 1
 2830 ENDIF 
 2840 IF ANT ( 36 ) = - 1 THEN
 2850   LET X = 36
 2860   REPEAT 
 2870     LET SLUT = X
 2880     IF ANT ( X - 1 ) <> - 1 THEN
 2890       LET SLUT = SLUT - 1
 2900       LET NEJ = 1
 2910     ENDIF 
 2920     LET X = X - 1
 2930   UNTIL NEJ = 1
 2940 ENDIF 
 2950 LET TT = ANT ( START ) / DIVI
 2960 LET XKO = INT ( TT * 50 ) + 10
 2970 CALL "GRAPH" , 500 + START * 10 , XKO
 2980 FOR X = START TO SLUT
 2990   LET TTTT = ANT ( X ) / DIVI
 3000   LET XKOR = INT ( TTTT * 50 ) + 10
 3010   CALL "OUTVECT" , 500 + X * 10 , XKOR
 3020 NEXT 
 3030 DELAY = 6
 3040 GOTO 0040

UDAS Segment

    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# = 0x0fb5
      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 = 0x0001
      To Val = 0   (0x00000000)
      Step Val = 0   (0x00000000)
      Var# = 0x008a
      Loop Top = 0x1058
      To Val = 36   (0x42240000)
      Step Val = 1   (0x41100000)
      Var# = 0x0098
      Loop Top = 0x0dd8
      To Val = 3   (0x41300000)
      Step Val = 1   (0x41100000)
      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 0xffff 0x00 AUTO950
    0x82 0xffff 0x02 A$
    0x83 0xffff 0x00 U
    0x84 0xffff 0x00 UFO
    0x85 0xffff 0x00 LIST1540
    0x86 0xffff 0x02 BY$
    0x87 0xffff 0x02 INBY$
    0x88 0xffff 0x02 SVAR$
    0x89 0xffff 0x00 MAXNR
    0x8a 0x0090 0x00 X
    0x8b 0x0092 0x00 Y
    0x8c 0xffff 0x00 NR
    0x8d 0xffff 0x00 R
    0x8e 0xffff 0x00 GOTO2500
    0x8f 0xffff 0x00 SVAR
    0x90 0xffff 0x00 CLSE
    0x91 0xffff 0x00 LIST249
    0x92 0xffff 0x00 O
    0x93 0xffff 0x00 A
    0x94 0xffff 0x00 FI
    0x95 0xffff 0x00 GOTO2380
    0x96 0xffff 0x00 AT
    0x97 0xffff 0x00 MAXR
    0x98 0xffff 0x00 B
    0x99 0xffff 0x00 NE
    0x9a 0xffff 0x00 [
    0x9b 0xffff 0x00 LISTT
    0x9c 0xffff 0x00 T
    0x9d 0xffff 0x00 C
    0x9e 0xffff 0x00 REUN
    0x9f 0xffff 0x00 RN
    0xa0 0x0000 0x02 OV$
    0xa1 0xffff 0x00 DDELAY
    0xa2 0x0021 0x01 ANT
    0xa3 0x0094 0x00 Z
    0xa4 0xffff 0x00 NEXTT
    0xa5 0xffff 0x00 GEM
    0xa6 0x0096 0x00 MAX
    0xa7 0xffff 0x00 LS
    0xa8 0x0098 0x00 DIVI
    0xa9 0xffff 0x00 ICF
    0xaa 0x00a4 0x00 TTTT
    0xab 0x00a6 0x00 XKOR
    0xac 0x009c 0x00 START
    0xad 0x009e 0x00 SLUT
    0xae 0x009a 0x00 NEJ
    0xaf 0x00a0 0x00 TT
    0xb0 0x00a2 0x00 XKO
    0xb1 0xffff 0x00 XKKO
    0xb2 0xffff 0x00 RULN
    0xb3 0xffff 0x00 LIST2500
    0xb4 0xffff 0x00 HLA

Wrapper

.magic = 0x4e32
.u_pas = 0x108e  // Length of UPAS in words
.u_das = 0x0219  // Length of UDAS in words
.u_dvs = 0x0171  // Start på savede variabel indhold (word adr)
.u_nds = 0x007b  // Address på næste prog.sætning (word adr)
.u_cps = 0x0070  // Address på curr prog.sætning (word adr)
.u_tll = 0x0000  // 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)