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

⟦3e0ec576a⟧ COMAL_SAVE

    Length: 1024 (0x400)
    Types: COMAL_SAVE
    Names: »KEYPR«

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─⟦this⟧

UPAS Segment

 0001 REM  LARS BENDSEN 20:08:81«nul»E
 0002 SAVE "KEYPR"
 0003 PRINT "DETTE PROGRAM FINDER SKRIVENØGLER !"
 0004 PRINT "MÅ IKKE MISBRUGES !!!!!!!"
 0005 PRINT "INDTAST FØRST SUBCATALOGETS NAVN"
 0006 PRINT "INDTAST DEREFTER HVAD NØGLEN MINDST ER."
 0007 PRINT "ER NØGLEN HELT UKENDT INDTAST DA 0 (NUL)."
 0008 PRINT "ØNSKER DU AT SE HVOR LANGT DU ER KOMMET ,TRYK DA PÅ ESCAPE-"
 0009 PRINT "KNAPPEN."
 0010 ON ESC THEN PRINT X
 0011 ON ERR THEN GOTO 0016
 0012 ON ESC THEN PRINT X
 0013 DIM NAVN$ ( 5 )
 0014 INPUT "SUBCA-NAVN ? " , NAVN$
 0015 INPUT X
 0016 ON ESC THEN PRINT X
 0017 LET Y = Y + 1
 0018 GOTO 0020
 0019 PRINT X
 0020 LET X = X + 1
 0021 ON ERR THEN GOTO 0016
 0022 CONNECT NAVN$
 0023 PRINT "SUBCATALOGET HAR NØGLEN " ; X
 0024 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] = 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 = 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# = 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 0x02 NAVN$
    0x82 0xffff 0x00 AUTU
    0x83 0xffff 0x00 X
    0x84 0xffff 0x00 Y
    0x85 0xffff 0x00 LIIST
    0x86 0xffff 0x00 RUNB
    0x87 0xffff 0x00 LLIST

Wrapper

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