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

⟦ac9e3827e⟧ COMAL_SAVE

    Length: 3600 (0xe10)
    Types: COMAL_SAVE

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─ ⟦ee9dfebe1⟧ »/GSE.SPANT« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "SPANT"

 0010 REM  *** GUNNAR SCHØNFELDT ERIKSEN *** 26/11-81«nul»
 0011 DIM HSPANDT ( 100 )
 0012 DIM BSPANDT ( 100 )
 0013 DIM KBSPANDT ( 100 )
 0014 DIM DATO$ ( 10 )
 0015 DIM SING$ ( 10 )
 0020 PRINT "DETTE PROGRAM TEGNER ET SPANDTERIS"
 0030 PRINT "DOG KUN AF SKIBE MED ET KNÆK OG UDEN SPRING"
 0031 INPUT "SIGN" , SING$
 0032 INPUT "DATO" , DATO$
 0035 INPUT "HØJDE FRA DÆK TIL KNÆK" , KH
 0040 FOR I = 1 TO 10
 0050   PRINT TAB ( 30 ) ; "SPANDT" ; ( I )
 0055   PRINT TAB ( 30 ) ; "--------"
 0060   INPUT "HØJDE FRA DÆK TIL KØL" , HSPANDT ( I )
 0070   INPUT "BREDDE(HALV)" , BSPANDT ( I )
 0080   INPUT "KNÆK BREDDE (HALV)" , KBSPANDT ( I )
 0085   IF I = 5 THEN
 0086     PRINT "<27><12>"
 0087     DELAY = 2
 0088   ELSE 
 0089   ENDIF 
 0090 NEXT 
 0095 PRINT "<27><12>"
 0096 DELAY = 1
 0100 REM  *** GRAF ***«nul»
 0110 CALL "GRAPH" , 100 , 50
 0120 CALL "OUTVECT" , 100 , 650
 0130 CALL "OUTVECT" , 900 , 650
 0140 CALL "OUTVECT" , 900 , 50
 0145 CALL "OUTVECT" , 100 , 50
 0150 CALL "ALPHA"
 0160 FOR I = 1 TO 5
 0170   CALL "GRAPH" , 400 , 500
 0180   CALL "OUTVECT" , 400 - BSPANDT ( I ) , 500
 0190   CALL "OUTVECT" , 400 - KBSPANDT ( I ) , 500 - KH
 0200   CALL "OUTVECT" , 400 , 500 - HSPANDT ( I )
 0210   CALL "ALPHA"
 0220 NEXT 
 0240 FOR I = 5 TO 10
 0250   CALL "GRAPH" , 400 , 500
 0260   CALL "OUTVECT" , 400 + BSPANDT ( I ) , 500
 0270   CALL "OUTVECT" , 400 + KBSPANDT ( I ) , 500 - KH
 0280   CALL "OUTVECT" , 400 , 500 - HSPANDT ( I )
 0290   CALL "ALPHA"
 0300 NEXT 
 0310 CALL "GRAPH" , 700 , 50
 0320 CALL "OUTVECT" , 700 , 150
 0330 CALL "OUTVECT" , 900 , 150
 0340 CALL "GRAPH" , 750 , 100
 0345 CALL "ALPHA"
 0350 PRINT SING$
 0360 CALL "GRAPH" , 750 , 80
 0365 CALL "ALPHA"
 0370 PRINT DATO$
 0380 CALL "ALPHA"

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 = 3.3735e-80   (0x00010000)
      Var# = 0x0000
      Loop Top = 0x0000
      To Val = 0   (0x00000000)
      Step Val = 0   (0x00000000)
      Var# = 0x0081
      Loop Top = 0x01e7
      To Val = 10   (0x41a00000)
      Step Val = 1   (0x41100000)
      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 0xffff 0x00 I
    0x82 0xffff 0x00 SPANDT
    0x83 0xffff 0x00 DELETER
    0x84 0xffff 0x00 B
    0x85 0x012f 0x01 BSPANDT
    0x86 0x0000 0x01 HSPANDT
    0x87 0x025e 0x01 KBSPANDT
    0x88 0xffff 0x00 KH
    0x89 0xffff 0x00 HSSPANDT
    0x8a 0xffff 0x00 RUBRUN
    0x8b 0xffff 0x00 KPSPANDT
    0x8c 0xffff 0x00 LIST200
    0x8d 0xffff 0x00 SING
    0x8e 0xffff 0x00 DATO
    0x8f 0x038d 0x02 DATO$
    0x90 0x0395 0x02 SING$
    0x91 0xffff 0x00 RUN340
    0x92 0xffff 0x00 RUN100

Wrapper

.magic = 0x4e32
.u_pas = 0x0295  // Length of UPAS in words
.u_das = 0x0464  // Length of UDAS in words
.u_dvs = 0x00c7  // Start på savede variabel indhold (word adr)
.u_nds = 0x00b2  // Address på næste prog.sætning (word adr)
.u_cps = 0x00ab  // 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)