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

⟦a8de1e7b7⟧ COMAL_SAVE

    Length: 2438 (0x986)
    Types: COMAL_SAVE

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─ ⟦86d00a828⟧ »/SPACE.HANG« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "HANG"

 0005 PRINT CHR ( 12 )
 0010 PRINT "   MICRONYT 17        NASCOM PROGRAM"
 0020 PRINT "   ---------------------------------"
 0030 PRINT "               HANGMAN"
 0040 PRINT "   ---------------------------------"
 0050 PRINT "   (C) 1981 POLYDATA MICROCENTER APS"
 0060 PRINT
 0070 PRINT
 0072 PRINT "HVIS DU HEDDER HENRIK ER DU IKKE VÆRDIG TIL AT SPILLE"
 0080 PRINT "   ORDFORRÅDET KAN ÆNDRES ELLER UDVIDES"
 0090 PRINT "   VED AT ÆNDRE ELLER TILFØJE ORD I"
 0100 PRINT "   DATALINIERNE SIDST I PROGRAMMET."
 0110 PRINT "   I FØRSTE DATALINIE ANFØRES HVORMANGE"
 0120 PRINT "   ORD DER ER TIL RÅDIGHED."
 0130 PRINT
 0140 DIM A$ ( 26 ) , H$ ( 7 ) , N$ ( 20 ) , W$ ( 15 ) , L$ ( 15 ) , Q$ ( 5 )
 0150 LET A$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 0160 LET H$ = "HANGMAN"
 0170 DIM A ( 26 ) , W ( 20 )
 0180 LET C = 0 ; P = 0
 0190 INPUT "HEJ - HVAD HEDDER DU ? :" , N$
 0200 RESTORE 0000
 0210 READ I
 0220 DIM R ( I )
 0230 FOR J = 1 TO I
 0240   LET R ( J ) = 0
 0250 NEXT 
 0260 REM «nul»
 0270 LET W = 0
 0280 PRINT N$ ; " =" ; P ; TAB ( 24 ) ; " COMPUTER =" ; C
 0290 FOR I = 1 TO 26
 0300   LET A ( I ) = 0
 0310 NEXT 
 0320 RESTORE 0000
 0330 READ R
 0340 LET R1 = 10 * R
 0350 FOR I = 1 TO R1
 0360   LET R9 = INT ( RND ( 0 ) * R + 1 )
 0370   IF R ( R9 ) = 0 THEN
 0375     LET R ( R9 ) = 1
 0380     GOTO 0440
 0382   ELSE 
 0384   ENDIF 
 0390 NEXT 
 0400 FOR I = 1 TO R
 0410   LET R ( I ) = 0
 0420 NEXT 
 0430 GOTO 0350
 0440 FOR I = 1 TO R9
 0450   READ W$
 0460 NEXT 
 0470 FOR I = 1 TO LEN ( W$ )
 0480   LET W ( I ) = 0
 0490 NEXT 
 0500 LET T = 0
 0510 GOSUB 1000
 0520 GOSUB 1000
 0530 GOSUB 1000
 0540 IF T = 7 THEN GOTO 1000
 0550 IF W = 1 THEN GOTO 1000
 0560 INPUT "HVILKET BOGSTAV " , L$
 0570 REM «nul»
 0580 REM  *** CHECK INPUT ***«nul»C
 0590 IF LEN ( L$ ) = 1 AND L$ >= "A" AND L$ <= "Z" THEN GOTO 1000
 0600 GOSUB 1000
 0610 PRINT "KUN ET BOGSTAV TAK !!!!!"
 0620 GOSUB 1000
 0630 GOSUB 1000
 0640 GOTO 0560
 0650 LET L = ORD ( L$ ) - 64
 0660 IF A ( L ) = 0 THEN GOTO 1000
 0670 GOSUB 1000
 0680 PRINT "DU HAR ALLEREDE PRØVET " ; L$
 0690 GOTO 0620
 0700 LET T1 = 0
 0710 LET A ( L ) = 1
 0720 FOR I = 1 TO LEN ( W$ )

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 0xffff 0x00 
    0x81 0x0000 0x02 A$
    0x82 0x0010 0x02 H$
    0x83 0x0017 0x02 N$
    0x84 0x0024 0x02 W$
    0x85 0x002f 0x02 L$
    0x86 0x003a 0x02 Q$
    0x87 0x0040 0x01 A
    0x88 0x0091 0x01 W
    0x89 0x00d0 0x00 C
    0x8a 0x00d2 0x00 P
    0x8b 0xffff 0x00 CLS
    0x8c 0x00d4 0x00 I
    0x8d 0xffff 0x00 R
    0x8e 0xffff 0x00 J
    0x8f 0xffff 0x00 R1
    0x90 0xffff 0x00 R9
    0x91 0xffff 0x00 T
    0x92 0xffff 0x00 L
    0x93 0xffff 0x00 ASC
    0x94 0xffff 0x00 T1

Wrapper

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