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

⟦f6dcac459⟧ COMAL_SAVE

    Length: 3788 (0xecc)
    Types: COMAL_SAVE
    Names: »P3ZER «

Derivation

└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
    └─⟦this⟧

UPAS Segment

SAVE filename: "P3ZER"

 0010 DIM T$ ( 311 * 4 )
 0011 CLOSE
 0012 DIM A$ ( 4 )
 0020 OPEN FILE ( 1 , 3 ) "DATAS"
 0025 FOR J = 0 TO 9
 0030   LET T$ = "                                                                                     "
 0040   LET T$ = T$ , T$ , T$ , T$
 0050   LET T$ = T$ ( 1 , 130 )
 0080   LET T$ ( 1 , 10 ) = "999" , CHR ( 48 + J ) , "DATA <34>"
 0090   FOR I = 1 TO 30
 0100     PRINT J * 30 + I - 1 ,
 0110     INPUT A$
 0120     IF LEN ( A$ ) = 4 THEN LET T$ ( I * 4 + 9 , 4 * I + 12 ) = A$
 0140   NEXT 
 0144   PRINT T$
 0150   PRINT FILE ( 1 ) T$
 0160 NEXT 
 0170 CLOSE
 0180 ENTER "DATAS"
 0190 DATA "          waitwintsendwanswevesanssearclenbreastopstarrech                                                               "
 0200 DATA "          waitwintsendwanswevesanssearclenbreastopstarrech                                                               "
 0210 DATA "          waitwintsendwanswevesanssearclenbreastopstarrech                                                               "
 9990 DATA "          waitwintsmeswanswevesanssearclenbreastopstrtrech                                                               "
 9991 DATA "                                                                                                                         "
 9992 DATA "                                                                                                                         "
 9993 DATA "                                                                                                          noperans    wope "
 9994 DATA "  setisetrsetcconbgetbputbmultdivigetrputrwtra    traninbloublinchfrchouspouchounlouenoutxouocsetpclosopenwzoninnmmoveintp "
 9995 DATA "                  bidcdcbi                execret0ret1ret2errr                                                           "
 9996 DATA "                                                                                                                         "
 9997 DATA "                                  nwcafrcacdelwsemwchacwanctstcprictousignsigccpascrenloenchenreenicatstencomocallgotogeta "
 9998 DATA "  getp            csmesiggwgenctop                                                                                       "
 9999 DATA "                                                                                                                         "

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# = 0x0084
      Loop Top = 0x0064
      To Val = 9   (0x41900000)
      Step Val = 1   (0x41100000)
      Var# = 0x0083
      Loop Top = 0x00c5
      To Val = 30   (0x421e0000)
      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 0x0000 0x02 T$
    0x82 0x0271 0x02 A$
    0x83 0x0278 0x00 I
    0x84 0x0276 0x00 J
    0x85 0xffff 0x00 LISR

Wrapper

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