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

⟦7b059e3b3⟧ COMAL_SAVE

    Length: 1656 (0x678)
    Types: COMAL_SAVE

Derivation

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

UPAS Segment

SAVE filename: "HLA08"

 0001 REM  ***HENRIK LUND ANDREASEN.   DATO:24-11-81***«nul»
 0010 INPUT " X^2,X2,SCEX : " , SVAR
 0020 CASE SVAR OF
 0030 WHEN 0
 0040   STOP «nul»«nul» 
 0050 WHEN 1
 0060   EXEC ANDEN
 0070 WHEN 2
 0080   EXEC TOUBE
 0090 WHEN 3
 0100   EXEC SCEX
 0110 ENDCASE «nul» 
 0120 PROC ANDEN
 0130   PRINT " PROGRAM TIL LØSNING AF ANDENGRADSLIGNINGER. "
 0140   INPUT " A,B,C : " , A , B , C
 0150   IF A = 0 THEN GOTO 0330
 0160   LET D = ( B ^ 2 ) - ( 4 * A * C )
 0170   PRINT " DISKRIMENANTEN=" ; D
 0180   IF D < 0 THEN
 0190     PRINT " INGEN LØSNING."
 0200   ELSE 
 0210     IF D = 0 THEN
 0220       LET X = ( - B ) / ( 4 * A * C )
 0230       PRINT " LØSNING. X=" ; X
 0240     ELSE 
 0250       IF D > 0 THEN
 0260         LET Y = ( - B + SQR ( D ) ) / ( 2 * A )
 0270         LET Z = ( - B - SQR ( D ) ) / ( 2 * A )
 0280         PRINT " LØSNING. X=" ; Y ; " ELLER X=" ; Z
 0290       ENDIF 
 0300     ENDIF 
 0310   ENDIF 
 0320   GOTO 0340
 0330   PRINT " INGEN LØSNING"
 0340 ENDPROC NDEN«nul»N
 0350 GOTO 0010
 0360 PROC TOUBE
 0370   PRINT "LØSNING AF LIGNINGER MED TO UBEKENDTE."
 0380   INPUT "A1,B1,C1:" , A1 , B1 , C1
 0390   INPUT "A2,B2,C2:" , A2 , B2 , C2
 0400   LET DX = C1 * B2 - C2 * B1
 0410   LET DY = A1 * C2 - A2 * C1
 0420   LET D = A1 * B2 - A2 * B1
 0430   LET X = DX / D ; Y = DY / D
 0440   PRINT " X=" ; X ; "OG Y=" ; Y
 0450 ENDPROC OUBE«nul»
 0460 GOTO 0010
 0470 PROC SCEX
 0480   INPUT " BEGYNDELSES,SLUT,SPRINGVÆRDI : " , BE , EN , SP
 0490   PRINT " X" , "SIN(X)" , "COS(X)" , "EXP(X)"
 0500   LET X = BE
 0510   REPEAT 
 0520     LET SI = SIN ( X ) ; CO = COS ( X ) ; EX = EXP ( X )
 0530     PRINT X , SI , CO , EX
 0540     LET X = X + SP
 0550   UNTIL X > EN
 0560 ENDPROC CEX«nul»
 0570 GOTO 0010

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] = 0x0062
      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# = 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 0xffff 0x00 A1
    0x82 0xffff 0x00 B1
    0x83 0xffff 0x00 C1
    0x84 0xffff 0x00 A2
    0x85 0xffff 0x00 B2
    0x86 0xffff 0x00 C2
    0x87 0x0008 0x00 D
    0x88 0xffff 0x00 DX
    0x89 0xffff 0x00 DY
    0x8a 0xffff 0x00 CI
    0x8b 0x000a 0x00 X
    0x8c 0xffff 0x00 Y
    0x8d 0xffff 0x00 TOUBE
    0x8e 0x0000 0x00 SVAR
    0x8f 0xffff 0x00 ANDEN
    0x90 0xffff 0x00 X2
    0x91 0xffff 0x00 SCEX
    0x92 0xffff 0x00 SCE
    0x93 0x0002 0x00 A
    0x94 0x0004 0x00 B
    0x95 0x0006 0x00 C
    0x96 0xffff 0x00 GOTO330
    0x97 0xffff 0x00 Z
    0x98 0xffff 0x00 GOTO10
    0x99 0xffff 0x00 BE
    0x9a 0xffff 0x00 EN
    0x9b 0xffff 0x00 SP
    0x9c 0xffff 0x00 REPEATE
    0x9d 0xffff 0x00 SI
    0x9e 0xffff 0x00 CO
    0x9f 0xffff 0x00 EX

Wrapper

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