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

⟦47e19f653⟧ COMAL_SAVE

    Length: 2048 (0x800)
    Types: COMAL_SAVE
    Names: »MAANDL«

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─⟦this⟧

UPAS Segment

SAVE filename: "MAANDL0N"

 0010 LET I = 7
 0020 DIM NAVN$ ( 20 )
 0030 DIM LON ( I )
 0040 DIM SALG ( I ) , PRO ( I )
 0050 PRINT "MEDARB                         MÅNEDLIG            SALG        PROVISIONS"
 0060 PRINT "NR    KODE  NAVN               GRUNDLON            MÅNED       PROCENT"
 0070 FOR AA = 1 TO I
 0080   READ NR , KODE , NAVN$
 0090   PRINT NR ;
 0100   PRINT TAB ( 6 ) ; KODE ; TAB ( 12 ) ; NAVN$ ; TAB ( 31 ) ;
 0110   PRINT TAB ( 32 ) ;
 0120   INPUT "" , LON ( AA ) ;
 0130   PRINT TAB ( 48 ) ;
 0140   INPUT "" , SALG ( AA ) ;
 0150   PRINT TAB ( 58 ) ;
 0160   INPUT "" , PRO ( AA )
 0170   PRINT
 0180 NEXT 
 0190 PRINT
 0195 LET JF = 1
 0200 PRINT
 0210 PRINT
 0215 LET JF = 2
 0220 PRINT
 0230 PRINT "LØNNINGSLISTE"
 0240 PRINT ""
 0250 PRINT "MEDARB NR                    GRUNDLØN         PROVISION        MÅNEDSLØN"
 0260 FOR AA = 1 TO I
 0270   READ NR , KODE , NAVN$
 0280   LET PROV = SALG ( AA ) * PRO ( AA ) / 100
 0290   LET MLON = LON ( AA ) + PROV
 0300   PRINT "####    " , NR ;
 0310   PRINT TAB ( 10 ) ;
 0320   PRINT NAVN$ ;
 0330   PRINT TAB ( 30 ) ;
 0340   PRINT "#####.##" , LON ( AA ) ;
 0350   PRINT TAB ( 47 ) ;
 0360   PRINT "######.##" , PROV ;
 0370   PRINT TAB ( 64 ) ;
 0380   PRINT "#####.##" , MLON
 0390 NEXT 
 0400 PRINT
 0410 PRINT
 0420 PRINT
 0430 DATA 100 1 "C.CLAUSEN" , 101 , 2 , "TANTE MØJE" , 102 , 2 , "HULDA RYE"
 0440 DATA 103 1 "K.KNOLDE" , 104 , 1 , "KULI KALSEN" , 105 , 2 , "CITRO KENT"
 0450 DATA 106 1 "FIN TJALD"
 0460 DATA 100 1 "C.CLAUSEN" , 101 , 2 , "TANTE MØJE" , 102 , 2 , "HULDA RYE"
 0470 DATA 103 1 "K.KNOLDE" , 104 , 1 , "KULI KALSEN" , 105 , 2 , "CITRE KENT"
 0480 DATA 106 1 "FIN TJALD"
 0490 END «nul»
 0500 PRINT
 0510 PRINT

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 0x0000 0x00 
    0x81 0xffff 0x00 I
    0x82 0xffff 0x02 NAVN$
    0x83 0xffff 0x00 LON
    0x84 0xffff 0x00 SALG
    0x85 0xffff 0x00 PRO
    0x86 0xffff 0x00 AA
    0x87 0xffff 0x00 NR
    0x88 0xffff 0x00 KODE
    0x89 0xffff 0x00 JF
    0x8a 0xffff 0x00 PROV
    0x8b 0xffff 0x00 MLON

Wrapper

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