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

⟦5f51fe306⟧ COMAL_SAVE

    Length: 3072 (0xc00)
    Types: COMAL_SAVE
    Names: »JT10«

Derivation

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

UPAS Segment

SAVE filename: "JT10"

 0010 REM  PROGRAM 8 ***«nul»«nul»
 0020 INPUT "1: PASS, 2: MAXNR,3: TEXT  " , SVAR
 0030 CASE SVAR OF
 0040   NEW 
 0050 WHEN 0
 0060   NEW 
 0070 WHEN 1
 0080   EXEC PASS
 0090 WHEN 2
 0100   EXEC MAXNR
 0110 WHEN 3
 0120   EXEC TEXT
 0130 ENDCASE «nul» 
 0140 GOTO 0020
 0150 PROC PASS
 0160   DIM X$ ( 10 )
 0170   OPEN FILE ( 5 , 0 ) "JT002"
 0171   DIM Y$ ( 10 )
 0172   READ FILE ( 5 , 49 ) Y$
 0175   PRINT "EKSWORD : " , Y$
 0180   INPUT "WORD? " , X$
 0190   WRITE FILE ( 5 , 49 ) X$
 0200   CLOSE
 0210 ENDPROC ASS«nul»
 0220 PROC MAXNR
 0230   OPEN FILE ( 5 , 0 ) "JT002"
 0240   READ FILE ( 5 , 50 ) MAXNR
 0250   PRINT MAXNR
 0260   INPUT "NYT MAXNR? " , MAXNR
 0270   WRITE FILE ( 5 , 50 ) MAXNR
 0280   CLOSE
 0290 ENDPROC AXNR«nul»«nul»
 0300 PROC TEXT
 0310   DIM TEXT1$ ( 10 ) , TEXT2$ ( 10 ) , TEXT3$ ( 10 ) , TEXT4$ ( 10 ) , TEXT5$ ( 10 )
 0320   DIM TEXT6$ ( 10 ) , TEXT7$ ( 10 ) , TEXT8$ ( 10 ) , TEXT9$ ( 10 ) , TEXT10$ ( 10 )
 0430   OPEN FILE ( 5 , 0 ) "JT002"
 0480   INPUT "1" , TEXT1$
 0490   INPUT "2" , TEXT2$
 0500   INPUT "3" , TEXT3$
 0510   INPUT "4" , TEXT4$
 0520   INPUT "5" , TEXT5$
 0530   INPUT "6" , TEXT6$
 0540   INPUT "7" , TEXT7$
 0550   INPUT "8" , TEXT8$
 0560   INPUT "9" , TEXT9$
 0570   INPUT "10" , TEXT10$
 0580   WRITE FILE ( 5 , 48 ) TEXT1$ , TEXT2$ , TEXT3$ , TEXT4$ , TEXT5$ , TEXT6$ , TEXT7$ , TEXT8$ , TEXT9$ , TEXT10$
 0590   CLOSE
 0600 ENDPROC EXT«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 = 0x0001
      stack[0] = 0x007e
      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 0x0000 0x00 SVAR
    0x82 0xffff 0x00 PASS
    0x83 0x0002 0x00 MAXNR
    0x84 0xffff 0x00 TEXT
    0x85 0xffff 0x02 X$
    0x86 0xffff 0x00 TEXT1
    0x87 0xffff 0x00 TEXT2
    0x88 0xffff 0x00 TEXT3
    0x89 0xffff 0x00 TEXT4
    0x8a 0xffff 0x00 TEXT5
    0x8b 0xffff 0x00 TEXT6
    0x8c 0xffff 0x00 TEXT7
    0x8d 0xffff 0x00 TEXT9
    0x8e 0xffff 0x00 TEXT10
    0x8f 0xffff 0x00 IPUT
    0x90 0xffff 0x00 TEXT8
    0x91 0xffff 0x02 TEXT1$
    0x92 0xffff 0x02 TEXT2$
    0x93 0xffff 0x02 TEXT3$
    0x94 0xffff 0x02 TEXT4$
    0x95 0xffff 0x02 TEXT5$
    0x96 0xffff 0x02 TEXT6$
    0x97 0xffff 0x02 TEXT7$
    0x98 0xffff 0x02 TEXT8$
    0x99 0xffff 0x02 TEXT9$
    0x9a 0xffff 0x02 TEXT10$
    0x9b 0xffff 0x02 TEXT$
    0x9c 0xffff 0x00 EDIT
    0x9d 0xffff 0x00 FILR
    0x9e 0xffff 0x02 Y$

Wrapper

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