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

⟦51798a205⟧ COMAL_SAVE

    Length: 1364 (0x554)
    Types: COMAL_SAVE

Derivation

└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
    └─ ⟦f4073f17b⟧ »/SKR.T « 
        └─⟦this⟧

UPAS Segment

SAVE filename: "SKR.T"

 0010 REM  ØH  OKT 81«nul»
 0020 REM  **«so»SKRÅ KAST** GRAF***«nul»
 0075 INPUT "<12><9><9>Det skrå kast, tabeludskrift<10><13><9><9>Begyndelseshastighed<9>" , V1 , "<10><13><9><9>Affyringsvinkel<9><9><9>" , ALFA
 0080 LET ALFA = ALFA * SYS ( 14 ) / 180
 0130 PRINT "<14> DET SKRÅ KAST VED" ; ( ALFA * 180 ) / SYS ( 14 ) ; " GRADER<10><13>"
 0140 PRINT "<14> HASTIGHEDEN V0=" ; V1
 0145 PRINT "<10><13>--------------------------------------------------------------------------------<10><13>"
 0147 PRINT "<10><13>   Længde X                         Højde Y<10><13>"
 0150 FOR T = 0 TO 2.5 STEP 0.1
 0160   LET X = V1 * COS ( ALFA ) * T
 0170   LET Y = V1 * SIN ( ALFA ) * T - 0.5 * 9.82 * T ^ 2
 0180   PRINT "  -+##.## m                    -+##.## m " , X , Y
 0190 NEXT 
 0220 GOTO 0075

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] = 0x00d3
      stack[1] = 0x03b0
      stack[2] = 0x033d
      stack[3] = 0x026f
      stack[4] = 0x03b0
      stack[5] = 0x03d7
      stack[6] = 0x0256
    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 = 4.74989e-77   (0x01580000)
      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# = 0x008e
      Loop Top = 0x0106
      To Val = 2.5   (0x41280000)
      Step Val = 0.1   (0x4019999a)
      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 0x00 V1
    0x82 0xffff 0x00 XMAX
    0x83 0xffff 0x00 YMAX
    0x84 0x0002 0x00 ALFA
    0x85 0xffff 0x00 XMIN
    0x86 0xffff 0x00 YMIN
    0x87 0xffff 0x00 TMAX
    0x88 0xffff 0x00 DT
    0x89 0xffff 0x00 DMAX
    0x8a 0xffff 0x00 SLET
    0x8b 0xffff 0x00 COAKSE
    0x8c 0xffff 0x00 FORI
    0x8d 0xffff 0x00 I
    0x8e 0x0004 0x00 T
    0x8f 0x0006 0x00 X
    0x90 0x0008 0x00 Y
    0x91 0xffff 0x00 TN2
    0x92 0xffff 0x00 HOP
    0x93 0xffff 0x00 LINIE
    0x94 0xffff 0x00 UDSKIFT
    0x95 0xffff 0x00 SX
    0x96 0xffff 0x00 SY
    0x97 0xffff 0x00 SKIFT
    0x98 0xffff 0x00 RAMME
    0x99 0xffff 0x00 YAKSE
    0x9a 0xffff 0x00 XAKSE
    0x9b 0xffff 0x00 AKSE
    0x9c 0xffff 0x00 XA
    0x9d 0xffff 0x00 YA
    0x9e 0xffff 0x00 SS
    0x9f 0xffff 0x00 YAA
    0xa0 0xffff 0x00 XINDEL
    0xa1 0xffff 0x00 XAA
    0xa2 0xffff 0x00 YINDEL
    0xa3 0xffff 0x00 TEGN
    0xa4 0xffff 0x00 YH
    0xa5 0xffff 0x00 YL
    0xa6 0xffff 0x00 XH
    0xa7 0xffff 0x00 XL
    0xa8 0xffff 0x00 YYY
    0xa9 0xffff 0x00 YYYB
    0xaa 0xffff 0x00 YYB
    0xab 0xffff 0x00 N

Wrapper

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