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 - download

⟦e7e19aff6⟧ COMAL_SAVE

    Length: 3236 (0xca4)
    Types: COMAL_SAVE

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─ ⟦74c18aaf2⟧ »/JAMO.INTET« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "INTET"

 0001 REM  LARS BENDSEN   01/10/81«nul»«nul»
 0002 CONNECT "CAT"
 0003 PRINT "<27><12>" ;
 0004 DELAY = 1
 0005 DIM A$ ( 2000 )
 0006 OPEN FILE ( 0 , 9 ) "STARS"
 0007 INPUT FILE ( 0 ) A$
 0008 PRINT A$
 0009 CLOSE
 0010 CALL "GRAPH" , 200 , 250
 0011 CALL "VECTOR" , 175 , 400 , 1
 0012 CALL "VECTOR" , 200 , 550 , 1
 0013 CALL "VECTOR" , 200 , 250 , 1
 0014 CALL "VECTOR" , 200 , 375 , 0
 0015 CALL "VECTOR" , 300 , 350 , 1
 0016 CALL "VECTOR" , 350 , 300 , 1
 0017 CALL "VECTOR" , 450 , 300 , 1
 0018 CALL "VECTOR" , 500 , 350 , 1
 0019 CALL "VECTOR" , 600 , 375 , 1
 0020 CALL "VECTOR" , 600 , 250 , 1
 0021 CALL "VECTOR" , 625 , 400 , 1
 0022 CALL "VECTOR" , 600 , 550 , 1
 0023 CALL "VECTOR" , 600 , 375 , 1
 0024 CALL "VECTOR" , 600 , 425 , 0
 0025 CALL "VECTOR" , 500 , 450 , 1
 0026 CALL "VECTOR" , 450 , 500 , 1
 0027 CALL "VECTOR" , 350 , 500 , 1
 0028 CALL "VECTOR" , 300 , 450 , 1
 0029 CALL "VECTOR" , 200 , 425 , 1
 0030 CALL "VECTOR" , 225 , 425 , 0
 0031 CALL "VECTOR" , 225 , 400 , 1
 0032 CALL "VECTOR" , 275 , 400 , 1
 0033 CALL "VECTOR" , 275 , 375 , 1
 0034 CALL "VECTOR" , 300 , 375 , 1
 0035 CALL "VECTOR" , 300 , 350 , 1
 0036 CALL "VECTOR" , 300 , 345 , 1
 0037 CALL "VECTOR" , 275 , 445 , 0
 0038 CALL "VECTOR" , 275 , 425 , 1
 0039 CALL "VECTOR" , 250 , 440 , 0
 0040 CALL "VECTOR" , 250 , 425 , 1
 0041 CALL "VECTOR" , 375 , 500 , 0
 0042 CALL "VECTOR" , 375 , 510 , 1
 0043 CALL "VECTOR" , 400 , 510 , 1
 0044 CALL "VECTOR" , 400 , 500 , 1
 0045 CALL "VECTOR" , 325 , 425 , 0
 0046 CALL "VECTOR" , 325 , 375 , 1
 0047 CALL "VECTOR" , 345 , 330 , 0
 0048 CALL "VECTOR" , 345 , 340 , 1
 0049 CALL "VECTOR" , 355 , 340 , 1
 0050 CALL "VECTOR" , 355 , 330 , 1
 0051 CALL "VECTOR" , 345 , 330 , 1
 0052 CALL "VECTOR" , 380 , 450 , 0
 0053 CALL "VECTOR" , 380 , 460 , 1
 0054 CALL "VECTOR" , 400 , 350 , 1
 0055 CALL "VECTOR" , 450 , 250 , 1
 0056 CALL "VECTOR" , 375 , 450 , 1
 0057 CALL "VECTOR" , 350 , 425 , 1
 0058 CALL "VECTOR" , 350 , 375 , 1
 0059 CALL "VECTOR" , 375 , 350 , 1
 0060 CALL "VECTOR" , 425 , 350 , 1
 0061 CALL "VECTOR" , 450 , 375 , 1
 0062 CALL "VECTOR" , 450 , 425 , 1
 0063 CALL "VECTOR" , 425 , 450 , 1
 0064 CALL "VECTOR" , 375 , 450 , 1
 0065 CALL "VECTOR" , 450 , 300 , 0
 0066 CALL "VECTOR" , 425 , 325 , 1
 0067 CALL "VECTOR" , 450 , 350 , 1
 0068 CALL "VECTOR" , 475 , 325 , 1
 0069 CALL "VECTOR" , 500 , 350 , 0
 0070 CALL "VECTOR" , 500 , 450 , 1
 0071 CALL "VECTOR" , 500 , 375 , 0
 0072 CALL "VECTOR" , 525 , 375 , 1
 0073 CALL "VECTOR" , 525 , 400 , 1
 0074 CALL "VECTOR" , 575 , 400 , 1
 0075 CALL "VECTOR" , 575 , 425 , 1
 0076 CALL "VECTOR" , 550 , 425 , 0
 0077 CALL "VECTOR" , 550 , 440 , 1
 0078 CALL "VECTOR" , 525 , 425 , 0
 0079 CALL "VECTOR" , 525 , 445 , 1
 0080 CALL "VECTOR" , 395 , 395 , 0
 0081 CALL "VECTOR" , 395 , 405 , 1
 0082 CALL "VECTOR" , 405 , 405 , 1
 0083 CALL "VECTOR" , 405 , 395 , 1
 0084 CALL "VECTOR" , 395 , 395 , 1
 0085 CALL "VECTOR" , 400 , 395 , 0
 0086 CALL "VECTOR" , 400 , 350 , 1
 0087 CALL "VECTOR" , 400 , 405 , 0
 0088 CALL "VECTOR" , 400 , 450 , 1
 0089 CALL "VECTOR" , 405 , 400 , 0
 0090 CALL "VECTOR" , 450 , 400 , 0
 0091 CALL "VECTOR" , 395 , 400 , 0
 0092 CALL "VECTOR" , 350 , 400 , 1
 0093 CALL "VECTOR" , 300 , 350 , 0
 0094 CALL "VECTOR" , 300 , 450 , 1
 0095 CALL "VECTOR" , 405 , 400 , 0
 0096 CALL "VECTOR" , 450 , 400 , 1
 0097 CALL "ALPHA"
 0098 INPUT "" , A$

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# = 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 0x0000 0x00 
    0x81 0xffff 0x02 A$
    0x82 0xffff 0x00 O5

Wrapper

.magic = 0x4e32
.u_pas = 0x05cc  // Length of UPAS in words
.u_das = 0x0077  // Length of UDAS in words
.u_dvs = 0x0077  // Start på savede variabel indhold (word adr)
.u_nds = 0x0000  // 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)