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

⟦c019f4d23⟧ COMAL_SAVE

    Length: 1142 (0x476)
    Types: COMAL_SAVE

Derivation

└─⟦c136eefb5⟧ Bits:30000468 DOMUS disk image, Nakskov gymnasium, bruger filer
    └─ ⟦f0c2300f8⟧ »/A.PJ4« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "PJ4"

 0010 REM  PETER JØRGENSEN«nul»`
 0020 REM  81.01.12«nul»
 0030 PRINT "PRØV AT VENTE ET ØJEBLIK!"
 0040 PRINT "DET VARER KUN CA. ET HALVT MINUT!"
 0050 DIM ANTAL ( 6 )
 0060 FOR Z = 1 TO 1000
 0070   RANDOMIZE 
 0080   LET X = INT ( RND ( 1 ) * 6 + 1 )
 0090   LET ANTAL ( X ) = ANTAL ( X ) + 1
 0100   PRINT X ;
 0110 NEXT 
 0120 FOR Z = 1 TO 6
 0130   PRINT ANTAL ( Z ) ,
 0140 NEXT 
 0150 PRINT "DETTE ER RESULTATERNE FRA ET TERNINGSPIL HVOR DER ER KASTET 1000 GANGE"
 0160 PRINT "DET FØRSTE TAL ANGIVER HVOR MANGE GANGE DER ER KOMMET EN 1'ER"
 0170 PRINT "DET ANDET TAL ANGIVER HVOR MANGE GANGE DER ER KOMMET EN 2'ER O.S.V."
 0180 PRINT
 0190 PRINT "VIL DU KASTE EN GANG TIL ?"
 0200 PRINT "JA=1"
 0210 PRINT "NEJ=2"
 0220 INPUT P
 0230 IF P = 1 THEN GOTO 0050
 0240 IF P = 2 THEN
 0250   PRINT "JAMEN SÅ TAK FOR DENNE GANG"
 0260   STOP «nul» 
 0270   IF P <> 1 THEN GOTO 0190
 0280   IF P <> 2 THEN GOTO 0190
 0290 ENDIF 
 0300 ENDIF

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 = 3.08853e-84   (0x00000006)
      Var# = 0x0082
      Loop Top = 0x007f
      To Val = 1000   (0x433e8000)
      Step Val = 1   (0x41100000)
      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 0x01 ANTAL
    0x82 0x0015 0x00 Z
    0x83 0x0017 0x00 X
    0x84 0xffff 0x00 P
    0x85 0xffff 0x00 SAVESAVE

Wrapper

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