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

⟦493a28b68⟧ COMAL_SAVE

    Length: 1896 (0x768)
    Types: COMAL_SAVE

Derivation

└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
    └─ ⟦3902a77de⟧ »/STILR « 
        └─⟦this⟧

UPAS Segment

SAVE filename: "STILR"

 0008 REM  JABOB MARQUARD / PL 27.3.81 / «so» * STILR«nul»«nul»
 0010 REM  PRG TIL AT ÆNDRE S-FILER TILBAGE TIL R-FILER  «so»JACOB M  * STILR«nul»«nul»
 0016 PRINT "OVERFØRSEL SKULLE SKE AUTOMATISK, MEN KONTROLLÆSN-SÆTN SKAL JUSTERES (SÆTN CA 120)"
 0020 INPUT "SÆTN 50 RIGTIG ??? " , OK
 0030 REM  i aktuelle udg fra 27.3.81 kun for et konkret tilfælde«nul»
 0040 DIM SFIL$ ( 5 ) , RFIL$ ( 5 )
 0050 INPUT "S-FIL " , SFIL$ , "  TIL R-FIL MED FLG NYE NAVN: " , RFIL$
 0052 LET DY = 2.83903e-72
 0060 GOTO 0220
 0070 REM  «so» ... kontrollæsn ...«nul»L
 0080 CLOSE
 0090 REM  PL 26.3.81 S TIL R«nul»
 0100 OPEN FILE ( 4 , 4 ) RFIL$
 0110 DIM A$ ( 50 ) , B$ ( 100 )
 0130 FOR I = 1 TO DY
 0132   PRINT I ;
 0140   READ FILE ( 4 , I ) A$
 0150   PRINT ">" ; A$ ; "<60>*>" ; B$ ; "<60>"
 0160 NEXT 
 0170 PRINT "SLUT"
 0180 CLOSE
 0190 END «nul»
 0200 GOTO 0100
 0210 REM  «so»... egl prg ...«nul»
 0211 REM  ..................................................................«nul»
 0220 CLOSE
 0230 REM  PL 26.3.81 S TIL R«nul»
 0240 OPEN FILE ( 1 , 1 ) SFIL$
 0250 DIM A$ ( 50 ) , B$ ( 100 )
 0260 DIM M ( 16 )
 0265 READ FILE ( 1 ) DY , L[
 0267 PRINT DY ; "records  a " ; L[ ; " bytes<10>?!<10>"
 0270 FOR X = 1 TO L[ / 4
 0280   READ FILE ( 1 ) M ( X )
 0290 NEXT 
 0300 CREATE RFIL$ , 2.83903e-72 , 36
 0303 PRINT SFIL$ , RFIL$ , DY , L[
 0310 OPEN FILE ( 4 , 0 ) RFIL$
 0320 FOR I = 1 TO DY
 0330   PRINT I ;
 0340   LET M1 = 1 ; M2 = 2 ; M3 = 3 ; M4 = 4 ; M5 = 5 ; M6 = 6 ; M7 = 7 ; M8 = 8
 0350   LET M9 = 9 ; M0 = 10 ; MA = 11 ; MB = 12 ; MC = 13 ; MD = 14 ; ME = 15 ; MF = 16
 0360   WRITE FILE ( 4 , I ) M ( 1 )
 0362   FOR [\] = 2 TO ( L[ / 4 )
 0364     WRITE FILE ( 4 ) M ( [\] )
 0366   NEXT 
 0370   FOR X = 1 TO ( L[ / 4 )
 0380     READ FILE ( 1 ) M ( X )
 0390   NEXT 
 0400 NEXT 
 0410 PRINT "SLUT"
 0420 CLOSE
 0430 GOTO 0100

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 0x0000 0x00 
    0x81 0xffff 0x00 OK
    0x82 0xffff 0x02 SFIL$
    0x83 0xffff 0x02 RFIL$
    0x84 0xffff 0x00 DY
    0x85 0xffff 0x02 A$
    0x86 0xffff 0x02 B$
    0x87 0xffff 0x00 I
    0x88 0xffff 0x00 M
    0x89 0xffff 0x00 L[
    0x8a 0xffff 0x00 X
    0x8b 0xffff 0x00 M1
    0x8c 0xffff 0x00 M2
    0x8d 0xffff 0x00 M3
    0x8e 0xffff 0x00 M4
    0x8f 0xffff 0x00 M5
    0x90 0xffff 0x00 M6
    0x91 0xffff 0x00 M7
    0x92 0xffff 0x00 M8
    0x93 0xffff 0x00 M9
    0x94 0xffff 0x00 M0
    0x95 0xffff 0x00 MA
    0x96 0xffff 0x00 MB
    0x97 0xffff 0x00 MC
    0x98 0xffff 0x00 MD
    0x99 0xffff 0x00 ME
    0x9a 0xffff 0x00 MF
    0x9b 0xffff 0x00 [\]

Wrapper

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