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

⟦9fec9c8c1⟧ COMAL_SAVE

    Length: 2560 (0xa00)
    Types: COMAL_SAVE
    Names: »ISBJ«

Derivation

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

UPAS Segment

SAVE filename: "ISBJ"

 0003 RANDOMIZE 
 0005 DIM S$ ( 5 )
 0006 LET ISBJ = 0
 0007 LET HUL = 0
 0010 DIM X ( 5 , 1 )
 0020 PRINT "<27><12>"
 0030 FOR I = 1 TO 300
 0040 NEXT 
 0050 PRINT CHR ( 12 )
 0060 PRINT "***************************"
 0070 PRINT "***************************"
 0080 PRINT "***  ISBJ0RNE OG HULLER ***"
 0090 PRINT "***  ISBJ0RNE OG HULLER ***"
 0100 PRINT "***************************"
 0110 PRINT "***************************"
 0120 FOR I = 1 TO 10
 0130   PRINT
 0140 NEXT 
 0150 PRINT "SPILLET GAAR UD PAA AT FINDE SYSTEMET "
 0160 PRINT "OG DERUDFRA AT FINDE UD AF HVORMANGE"
 0170 PRINT "ISBJ0RNE OG HVORMANGE HULLER DER ER."
 0180 PRINT
 0190 PRINT "DU SKAL NU BLOT SKRIVE HVORMANGE ISBJ0RNE DU MENER"
 0200 PRINT "DER ER. HVIS DU IKKE HVED DET TASTER DU BLOT RETURN"
 0210 PRINT "UDEN AT TASTE ANDET. MEN HVIS DERIMOD VED DET "
 0220 PRINT "TASTER DU S FOR SVAR."
 0230 FOR I = 1 TO 3500
 0240 NEXT 
 0250 PRINT "<27><12>"
 0260 PRINT "DER KAN MAXIMALT VAERE 5 HULLER OG 20  ISBJ0RNE"
 0270 FOR I = 1 TO 5
 0280   PRINT
 0290 NEXT 
 0300 REPEAT 
 0310   FOR I = 1 TO 5
 0320     LET X ( I , 1 ) = INT ( RND ( 7 ) * 6 + 1 )
 0330   NEXT 
 0340   LET H = 0
 0350   FOR G = 1 TO 5
 0360     IF X ( G , 1 ) = 1 THEN LET H = H + 1
 0370     IF X ( G , 1 ) = 3 THEN LET H = H + 1
 0380     IF X ( G , 1 ) = 5 THEN LET H = H + 1
 0390   NEXT 
 0400   LET ISB = 0
 0410   FOR L = 1 TO 5
 0420     IF X ( L , 1 ) = 3 THEN LET ISB = ISB + 2
 0430     IF X ( L , 1 ) = 5 THEN LET ISB = ISB + 4
 0440   NEXT 
 0450   FOR I = 1 TO 5
 0460     PRINT X ( I , 1 ) , " " ;
 0470   NEXT 
 0480   PRINT
 0490   INPUT "HVED DU HVORANGE ISBJ0RNE OG HULLER DER ER (JA/NEJ) ?" , S$
 0500   IF S$ = "J" OR S$ = "JA" THEN
 0510     INPUT "HVORMANGE HULLER ER DER ? " , HUL
 0520     INPUT "HVOR MANGE ISBJ0RNE ER DER ? " , ISBJ0
 0530     IF HUL = H AND ISBJ = ISB THEN
 0540       PRINT
 0550       PRINT " HELT KOREKT ! "
 0560     ENDIF 
 0565   ENDIF 
 0580   IF S$ = "NEJ" OR S$ = "N" THEN
 0590     PRINT "DER ER " , H , " HULLER OG"
 0600     PRINT ISB , " ISBJ0RNE."
 0610   ENDIF 
 0620   INPUT "VIL DU PR0VE IGEN (RETURN/NEJ) " , S$
 0700 UNTIL S$ = "NEJ" OR S$ = "N"

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 = 0x0001
      Var# = 0x01d5
      Loop Top = 0x01c1
      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# = 0x0081
      Loop Top = 0x0275
      To Val = 5   (0x41500000)
      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 0x001c 0x00 I
    0x82 0x000a 0x01 X
    0x83 0xffff 0x00 LISTT
    0x84 0xffff 0x00 LIST300
    0x85 0x0020 0x00 G
    0x86 0x001e 0x00 H
    0x87 0x0024 0x00 L
    0x88 0x0022 0x00 ISB
    0x89 0x0000 0x02 S$
    0x8a 0x0008 0x00 HUL
    0x8b 0x0026 0x00 ISBJ0
    0x8c 0x0006 0x00 ISBJ
    0x8d 0xffff 0x00 HELT
    0x8e 0xffff 0x00 LIST500
    0x8f 0xffff 0x00 VIL

Wrapper

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