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

⟦8c6e31a31⟧ COMAL_SAVE

    Length: 3840 (0xf00)
    Types: COMAL_SAVE

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─ ⟦7c7059d6d⟧ »/GSE.KU-KA« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "KU-KA"

 0100 REM  *** KG-KU KATOTEK ***«nul»H
 0200 DIM Y$ ( 10 ) , X$ ( 10 )
 0300 DIM J$ ( 10 ) , H$ ( 10 )
 0400 OPEN FILE ( 5 , 0 ) "GSE8"
 0500 DIM BUFF$ ( 70 ) , BUFF2$ ( 70 ) , DIVER$ ( 100 )
 0600 DIM B1$ ( 20 ) , C1$ ( 20 ) , D1$ ( 20 ) , E1$ ( 16 ) , F1$ ( 4 ) , G1$ ( 20 )
 0700 DIM B2$ ( 20 ) , C2$ ( 20 ) , D2$ ( 20 ) , E2$ ( 16 ) , F2$ ( 4 ) , G2$ ( 20 )
 0800 DIM EFNAVN$ ( 20 ) , FONAVN$ ( 20 ) , ADR$ ( 20 ) , ALDER$ ( 16 ) , POST$ ( 4 ) , BY$ ( 20 ) , NAME$ ( 100 )
 0900 DIM S\GNI$ ( 50 )
 1000 DIM MAME$ ( 100 )
 1100 DIM BUFF1$ ( 50 )
 1200 DIM BUFF$ ( 50 )
 1300 READ FILE ( 5 , 98 ) MAXNR
 1400 PRINT "*****************************************************************"
 1405 PRINT
 1410 PRINT "          DETTE PROGRAM INDEHOLDE ET KARTOTEK"
 1420 PRINT "          OVER VESTLOLLAND-KU "
 1430 PRINT "          KOMANDO:"
 1440 PRINT "           1:OPRET"
 1450 PRINT "           2:UDSKRIFT"
 1460 PRINT "           3:SLET"
 1470 PRINT "           0:STOP"
 1490 PRINT
 1493 PRINT "*****************************************************************"
 1494 PRINT
 1496 INPUT "                                      KOMANDO ? " , SVAR
 1500 CASE SVAR OF
 1600   PRINT "ULOVLIGT SVAR!"
 1700 WHEN 0
 1800   WRITE FILE ( 5 , 98 ) MAXNR
 1900   CLOSE
 2000   STOP «nul» 
 2100 WHEN 1
 2200   EXEC OPRET
 2300 WHEN 2
 2400   EXEC UDSKRIST
 2500 WHEN 3
 2600   EXEC SLET
 2700 WHEN 4
 2800   EXEC JH
 2900 ENDCASE «nul» 
 3000 GOTO 1400
 3100 PROC OPRET
 3200   REM  * OPRET-PROC *«nul»
 3300   INPUT " EFTERNAVN : " , EFNAVN$
 3400   IF EFNAVN$ = "SLUT" THEN GOTO 4700
 3500   INPUT " FORNAVN : " , FONAVN$
 3600   INPUT " ADRESSE : " , ADR$
 3700   INPUT " ELEVNR : " , ELEVNR
 3800   INPUT " POSTNR : " , POST$
 3900   INPUT " BY : " , BY$
 4000   INPUT " ALDER : " , ALDER$
 4100   INPUT " TLF.NR. : " , TLFNR
 4200   INPUT " FØDSELSDATO : " , DATO
 4300   INPUT " MÅNED : " , M]NED
 4400   INPUT " ÅR : " , ]R
 4500   LET MAXNR = MAXNR + 1
 4600   WRITE FILE ( 5 , MAXNR ) ELEVNR , EFNAVN$ , FONAVN$ , ADR$ , POST$ , BY$ , ALDER$ , TLFNR , DATO , M]NED , ]R
 4700   LET EFNAVN$ = ""
 4800   PRINT "----------------------------------------"
 4900 ENDPROC PRET«nul»-
 5000 PROC UDSKRIST
 5100   REM  * UDSKRIST-PROC *«nul»-
 5200   LET MAXNR = MAXNR
 5300   PRINT "----------------------------------------"
 5400   FOR T[L = 1 TO MAXNR
 5500     READ FILE ( 5 , T[L ) ELEVNR , EFNAVN$ , FONAVN$ , ADR$ , POST$ , BY$ , ALDER$ , TLFNR , DATO , M]NED , ]R
 5600     PRINT ELEVNR , EFNAVN$ , FONAVN$
 5700     PRINT ADR$
 5800     PRINT POST$ , BY$
 5900     PRINT ALDER$
 6000     PRINT "##/##/##" , DATO , M]NED , ]R
 6100     PRINT TLFNR
 6200     PRINT "----------------------------------------"
 6300   NEXT 
 6400 ENDPROC DSKRIST«nul»
 6500 PROC SLET
 6600   REM <=>SLETNING<=>«nul»-
 6700   INPUT "ELEVNR TIL SLETNING? " , NR
 6800   PRINT "----------------------------------------"
 6900   FOR T[L = 1 TO MAXNR
 7000     READ FILE ( 5 , T[L ) ELEVNR , NAME$
 7100     IF NR <> ELEVNR THEN GOTO 7700
 7200     FOR T = T[L TO MAXNR - 1
 7300       READ FILE ( 5 , T + 1 ) ELEVNR , MAME$
 7400       WRITE FILE ( 5 , T ) ELEVNR , MAME$
 7500     NEXT 
 7600     LET MAXNR = MAXNR - 1
 7700   NEXT 
 7800 ENDPROC LET«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 = 0x0000
      stack[0] = 0x0222
      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# = 0x00a9
      Loop Top = 0x0325
      To Val = 14   (0x41e00000)
      Step Val = 1   (0x41100000)
      Var# = 0x00ab
      Loop Top = 0x0306
      To Val = 0   (0x00000000)
      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 Y$
    0x82 0x0008 0x02 X$
    0x83 0x0010 0x02 J$
    0x84 0x0018 0x02 H$
    0x85 0x0020 0x02 BUFF$
    0x86 0x0046 0x02 BUFF2$
    0x87 0x006c 0x02 DIVER$
    0x88 0x00a1 0x02 B1$
    0x89 0x00ae 0x02 C1$
    0x8a 0x00bb 0x02 D1$
    0x8b 0x00c8 0x02 E1$
    0x8c 0x00d3 0x02 F1$
    0x8d 0x00d8 0x02 G1$
    0x8e 0x00e5 0x02 B2$
    0x8f 0x00f2 0x02 C2$
    0x90 0x00ff 0x02 D2$
    0x91 0x010c 0x02 E2$
    0x92 0x0117 0x02 F2$
    0x93 0x011c 0x02 G2$
    0x94 0x0129 0x02 EFNAVN$
    0x95 0x0136 0x02 FONAVN$
    0x96 0x0143 0x02 ADR$
    0x97 0x0150 0x02 ALDER$
    0x98 0x015b 0x02 POST$
    0x99 0x0160 0x02 BY$
    0x9a 0x016d 0x02 NAME$
    0x9b 0x01a2 0x02 S\GNI$
    0x9c 0x01be 0x02 MAME$
    0x9d 0x01f3 0x02 BUFF1$
    0x9e 0x020f 0x00 MAXNR
    0x9f 0x0211 0x00 SVAR
    0xa0 0xffff 0x00 OPRET
    0xa1 0xffff 0x00 UDSKRIST
    0xa2 0xffff 0x00 SLET
    0xa3 0xffff 0x00 JH
    0xa4 0x0215 0x00 ELEVNR
    0xa5 0x0217 0x00 TLFNR
    0xa6 0x0219 0x00 DATO
    0xa7 0x021b 0x00 M]NED
    0xa8 0x021d 0x00 ]R
    0xa9 0x0213 0x00 T[L
    0xaa 0xffff 0x00 NR
    0xab 0xffff 0x00 T
    0xac 0xffff 0x00 GREATE
    0xad 0xffff 0x00 X
    0xae 0xffff 0x00 LIST735

Wrapper

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