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

⟦06d226dfc⟧ COMAL_SAVE

    Length: 1536 (0x600)
    Types: COMAL_SAVE
    Names: »HJB02«

Derivation

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

UPAS Segment

SAVE filename: "HJB02"

 0010 REM    ***   HENRIK BRUHN 2.Y  DEN 13-5-82   SPECIALE   ***«nul»
 0020 REM  ##  BEREGNING AFF DIFFERENTIALKOEFFICENTER«nul»
 0030 PRINT "FUNKTIONEN,DER ØNSKES EN LISTE DIFFERENTIAL-"
 0040 PRINT "KOEFFICENTER FOR ER DEFINERET I LINIE 70"
 0050 PRINT "PROGRAMMET KØRES VIDERE VED AT TASTE ''CON''"
 0060 STOP «nul», 
 0070 DEF FNF ( VAR98 ) = [LVAR]  ^ 2 - 1
 0080 PRINT
 0090 PRINT "INDTAST :"
 0100 INPUT "  STARTPUNKT : " , A
 0110 INPUT "  SLUT-PUNKT : " , B
 0120 INPUT "  STEPVAERDI : " , HOP
 0130 INPUT "  FEJLMARGIN : " , E
 0140 PRINT
 0150 PRINT " X" , "  F'(X)"
 0160 PRINT "----------------------"
 0170 FOR X = A TO B STEP HOP
 0180   LET F = 1 DN = 0
 0190   REPEAT 
 0200     LET DS = DN
 0210     LET DN = ( FNF ( X + F ) - FNF ( X - F ) ) / 2 * F
 0220     LET F = F / 2
 0230   UNTIL ABS ( DS - DN ) < E
 0240   PRINT X , DS
 0250 NEXT

UDAS Segment

    FNA definition = 0xffff
    FNB definition = 0xffff
    FNC definition = 0xffff
    FND definition = 0xffff
    FNE definition = 0xffff
    FNF definition = 0x00c7
    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# = 0x0138
      Loop Top = 0x0133
      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# = 0x00a5
      Loop Top = 0x0129
      To Val = 3   (0x41300000)
      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 0x0000 0x00 
    0x81 0xffff 0x00 AATT
    0x82 0xffff 0x00 DI
    0x83 0xffff 0x02 NAVN$
    0x84 0xffff 0x02 ADR$
    0x85 0xffff 0x00 APP
    0x86 0xffff 0x00 MANR
    0x87 0xffff 0x00 ADRNR
    0x88 0xffff 0x00 DATO
    0x89 0xffff 0x00 T1
    0x8a 0xffff 0x00 TLON
    0x8b 0xffff 0x00 FRADRAG
    0x8c 0xffff 0x00 TP
    0x8d 0xffff 0x00 AFDNR
    0x8e 0xffff 0x00 AFD
    0x8f 0xffff 0x00 NR
    0x90 0xffff 0x00 AFDRNR
    0x91 0x0006 0x00 E
    0x92 0xffff 0x00 FM
    0x93 0xffff 0x00 MNR
    0x94 0xffff 0x00 UNTIIL
    0x95 0xffff 0x00 AFS
    0x96 0xffff 0x00 T2
    0x97 0xffff 0x00 LON1
    0x98 0xffff 0x00 LON2
    0x99 0xffff 0x00 TL
    0x9a 0xffff 0x00 O280LON
    0x9b 0xffff 0x00 LONIALT
    0x9c 0xffff 0x00 TREAKG
    0x9d 0xffff 0x00 BL
    0x9e 0x000a 0x00 F
    0x9f 0xffff 0x00 ASKAT
    0xa0 0xffff 0x00 TRAEKG
    0xa1 0xffff 0x00 NL
    0xa2 0x0000 0x00 A
    0xa3 0x0002 0x00 B
    0xa4 0x0004 0x00 HOP
    0xa5 0x0008 0x00 X
    0xa6 0xffff 0x00 DV
    0xa7 0xffff 0x00 DH
    0xa8 0xffff 0x00 GH
    0xa9 0x000c 0x00 DN
    0xaa 0x000e 0x00 DS
    0xab 0xffff 0x00 RUN70
    0xac 0xffff 0x00 RUN130
    0xad 0xffff 0x00 LST
    0xae 0xffff 0x00 CN

Wrapper

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