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

⟦c51ba747e⟧ COMAL_SAVE

    Length: 1564 (0x61c)
    Types: COMAL_SAVE

Derivation

└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
    └─ ⟦f77cc6e54⟧ »/DOML2 « 
        └─⟦this⟧ 

UPAS Segment

SAVE filename: "DOML2"

 0010 TAB = 10
 0020 PAGE = 80
 0030 PROC NAMEPR
 0040   CALL "GMEM" , HEAD + 4 , NAME1
 0050   CALL "GMEM" , HEAD + 5 , NAME2
 0060   CALL "GMEM" , HEAD + 6 , NAME3
 0070   PRINT CHR ( NAME1 DIV 256 + 32 * ( NAME1 DIV 256 = 0 ) ) ;
 0080   PRINT CHR ( NAME1 MOD 256 + 32 * ( NAME1 MOD 256 = 0 ) ) ;
 0090   PRINT CHR ( NAME2 DIV 256 + 32 * ( NAME2 DIV 256 = 0 ) ) ;
 0100   PRINT CHR ( NAME2 MOD 256 + 32 * ( NAME2 MOD 256 = 0 ) ) ;
 0110   PRINT CHR ( NAME3 DIV 256 + 32 * ( NAME3 DIV 256 = 0 ) ) ,
 0120 ENDPROC
 0130 CALL "GMEM" , 42 , HEAD
 0140 PRINT "NAME" , "HEAD" , "HSIZE" , "PSIZE"
 0150 PRINT "-------------------------------------"
 0160 REPEAT 
 0171   CALL "GMEM" , HEAD - 4 , PSIZE
 0190   CALL "GMEM" , HEAD + 2 , LINK
 0200   CALL "GMEM" , HEAD + 3 , CARRY
 0220   EXEC NAMEPR
 0230   PRINT HEAD , CARRY , PSIZE
 0240   LET HEAD = LINK
 0250 UNTIL HEAD = 0
 0260 PRINT "-------------------------------------"
 0270 END «nul»/

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] = 0x012c
      stack[1] = 0x0578
      stack[2] = 0x0554
      stack[3] = 0x0000
      stack[4] = 0x0000
      stack[5] = 0x0000
      stack[6] = 0x0000
    FOR-NEXT stack pointer = 0x0000
      Var# = 0x0105
      Loop Top = 0x0530
      To Val = 1.28534e-74   (0x035d0512)
      Step Val = 5.30606e-73   (0x050f0000)
      Var# = 0x0000
      Loop Top = 0x0000
      To Val = 3.02611e-74   (0x03db0000)
      Step Val = 0   (0x00000000)
      Var# = 0x0000
      Loop Top = 0x0000
      To Val = 0   (0x00000000)
      Step Val = 0   (0x00000000)
      Var# = 0x0001
      Loop Top = 0x0001
      To Val = 3.37355e-80   (0x00010001)
      Step Val = 3.3735e-80   (0x00010000)
      Var# = 0x0089
      Loop Top = 0x0113
      To Val = 0   (0x00000000)
      Step Val = -1   (0xc1100000)
      Var# = 0x008e
      Loop Top = 0x0374
      To Val = 312   (0x43138000)
      Step Val = 1   (0x41100000)
      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 A
    0x82 0xffff 0x00 B
    0x83 0xffff 0x00 C
    0x84 0xffff 0x00 D
    0x85 0xffff 0x00 E
    0x86 0xffff 0x00 F
    0x87 0xffff 0x00 G
    0x88 0xffff 0x00 H
    0x89 0xffff 0x00 I
    0x8a 0xffff 0x00 J
    0x8b 0xffff 0x00 ]
    0x8c 0xffff 0x00 N
    0x8d 0xffff 0x00 NAMEPR
    0x8e 0xffff 0x00 BGH
    0x8f 0xffff 0x00 BDG
    0x90 0xffff 0x00 DRIV
    0x91 0xffff 0x00 DFG
    0x92 0xffff 0x00 FGH
    0x93 0xffff 0x00 GHJ
    0x94 0xffff 0x00 HJK
    0x95 0xffff 0x00 CLINT
    0x96 0xffff 0x00 ASD
    0x97 0xffff 0x00 SDF
    0x98 0xffff 0x00 RESER
    0x99 0xffff 0x00 ADR
    0x9a 0xffff 0x00 LI
    0x9b 0xffff 0x00 PRIOR
    0x9c 0xffff 0x00 BREAD
    0x9d 0xffff 0x00 STATE
    0x9e 0x0000 0x00 HEAD
    0x9f 0x0008 0x00 NAME1
    0xa0 0x000a 0x00 NAME2
    0xa1 0x000c 0x00 NAME3
    0xa2 0xffff 0x00 PSPEC
    0xa3 0xffff 0x00 PSTART
    0xa4 0xffff 0x00 PCHAIN
    0xa5 0x0002 0x00 PSIZE
    0xa6 0xffff 0x00 BUFFE
    0xa7 0xffff 0x00 PROG
    0xa8 0xffff 0x00 MDL
    0xa9 0xffff 0x00 MDL1
    0xaa 0xffff 0x00 MDL2
    0xab 0xffff 0x00 SCHAIN
    0xac 0xffff 0x00 CONVT
    0xad 0xffff 0x00 IDENT
    0xae 0xffff 0x00 OWNER
    0xaf 0xffff 0x00 LADR
    0xb0 0xffff 0x00 CHEAD
    0xb1 0xffff 0x00 RUN[L
    0xb2 0xffff 0x00 HCORE
    0xb3 0xffff 0x00 HSIZE
    0xb4 0xffff 0x00 RU
    0xb5 0xffff 0x00 HUGO
    0xb6 0xffff 0x00 IG
    0xb7 0xffff 0x00 RUH
    0xb8 0x0004 0x00 LINK
    0xb9 0xffff 0x00 PSIZE1
    0xba 0xffff 0x00 PNEXT
    0xbb 0xffff 0x00 PPREV
    0xbc 0x0006 0x00 CARRY
    0xbd 0xffff 0x00 LIS

Wrapper

.magic = 0x4e32
.u_pas = 0x0153  // Length of UPAS in words
.u_das = 0x01ac  // Length of UDAS in words
.u_dvs = 0x019e  // Start på savede variabel indhold (word adr)
.u_nds = 0x0153  // Address på næste prog.sætning (word adr)
.u_cps = 0x0150  // Address på curr prog.sætning (word adr)
.u_tll = 0x0050  // Page størrelse
.u_tts = 0x000a  // 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)