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

⟦57bf537e2⟧ COMAL_SAVE

    Length: 5076 (0x13d4)
    Types: COMAL_SAVE

Derivation

└─⟦50fb93305⟧ Bits:30000469 DOMUS disk image - COMAL/BASIC NUCDA - Claes Holmgren
    └─ ⟦a291313b1⟧ »/A.LEX« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "LEX"

 0010 REM  JAN.JENSEN,4,7,NSDUS«nul»
 0020 INPUT " HVILKET LAND ØNSKES? (STOP=0,DANMARK=1,SVERIGE=2,NORGE=3 ) " , KASE
 0040 CASE KASE OF
 0045 WHEN 0
 0046   END «nul»«nul»
 0110 WHEN 1
 0120   DELAY = 1
 0130   PRINT "<27><12>"
 0140   DELAY = 2
 0150   PRINT " DANMARK "
 0160   PRINT
 0170   PRINT " AREAL "
 0180   PRINT " 43.069 KM2 "
 0190   PRINT
 0200   PRINT " INDBYGGERTAL(1973) "
 0210   PRINT " 5.025.000,112 PR.KM2, "
 0220   PRINT " ÅRLIGTULVÆKSK 0,7%. "
 0230   PRINT
 0240   PRINT " BYER(INDB. 1974)"
 0250   PRINT " KØBENHAVN 1.335.000,ÅRHUS 246.000, "
 0260   PRINT " ODENSE 168.000,ÅLBORG 155.000 "
 0270   PRINT
 0280   PRINT " KLIMA "
 0290   PRINT " TEMPERERET KYSTKLIMA MED NEDBØR "
 0300   PRINT " ÅRET RUNDT, DOG MINDEST OM FORÅET. "
 0310   PRINT
 0320   PRINT " BEFOLKNING "
 0330   PRINT " DANSKERE 98%,TYSKER 1%. "
 0340   PRINT " 24% ER UNDER 15 ÅR. "
 0350   PRINT
 0360   PRINT " RELIGION "
 0370   PRINT " PROTESTANTER 98%. "
 0380   PRINT
 0390   PRINT " SUNDHEDSFORHOLD(1968) "
 0400   PRINT " 1 LÆGE PR. 704 INDB. 1 HOSPITALSSENG "
 0410   PRINT " PR. 109 INDB. "
 0420   PRINT
 0430   PRINT " UDDANNELSE "
 0440   PRINT " 9 ÅRS SKOLEPLIGT. INGEN ANALFABETISME "
 0450   PRINT
 0460   PRINT " ERHVERV(1973)"
 0470   PRINT " LANDBRUG 10%,INDUSTRI 33%, "
 0480   PRINT " HANDEL 21%,TRANSPORT 7%, "
 0490   PRINT " SERVICEFAG 28%, ANDET 1%. "
 0500   PRINT
 0510   PRINT " MINERALER(PRODUKTION 1972) "
 0520   PRINT " SALT 306.000 T,RÅOLIE 73.000 T. "
 0530   PRINT
 0540   PRINT " HANDEL(1973, MIO KR.) "
 0550   PRINT " IMPORT 46.463,HERAF 9.434 FRA "
 0560   PRINT " VESTTSSKLAND. "
 0570   PRINT " EKSPORT 36.795,HERAF 7.166 TIL UK "
 0580   PRINT " EKSPORTVARER:MASKINER 7.495,KØD "
 0590   PRINT " 6.514, SKIBE 2.007,MEJERIVARER "
 0600   PRINT " 1.964,FISK 1.586. "
 0610   PRINT
 0620   PRINT " PENGE "
 0630   PRINT " 1 KR.= 100 ØRE. "
 0640   PRINT " BNP PR. INDB.1972:31,776 KR. "
 0650   PRINT " ARBEJDSLØN 1972:21,25 KR.PR.TIME, "
 0660   PRINT " 170 KR.PR.DAG,850 KR.PR.UGE, "
 0670   PRINT " 3.700 KR.PR. MÅNED. "
 0680   PRINT
 0690 WHEN 2
 0700   DELAY = 1
 0710   PRINT "<27><12>"
 0720   DELAY = 2
 0730   PRINT " SVERIGE "
 0740   PRINT
 0750   PRINT " AREAL "
 0760   PRINT " 449.964 KM2. "
 0770   PRINT
 0780   PRINT " INDBYGGERTAL(1973) "
 0790   PRINT " 8.137.000, "
 0800   PRINT " 18 PR.KM2, "
 0810   PRINT " ÅRLIG TILVÆKST 0,4%. "
 0820   PRINT
 0830   PRINT " BYER(INDB. 1975) "
 0840   PRINT " STOCKHOLM 1.354.000, "
 0850   PRINT " GØTEBORG 688.000, "
 0860   PRINT " MALMØ 454.000,UPPSALA 138.000. "
 0870   PRINT
 0880   PRINT " KLIMA "
 0890   PRINT " TEMPERETKLIMA,SOM I SYD ER KYST- "
 0900   PRINT " KLIMA,I NORD FASTLANDSKLIMA. "
 0910   PRINT " I JULI MÅNED ER DER 15-17' I HELE LANDET "
 0920   PRINT
 0930   PRINT " BEFOLKNING "
 0940   PRINT " SVENSKERE.I NORD OGSÅ  ET MINDRETAL AF "
 0950   PRINT " FINNER OG SAMER.21% ER UNDER 15 ÅR. "
 0960   PRINT
 0970   PRINT " RELIGION "
 0980   PRINT " PROTESTANTER. "
 0990   PRINT
 1000   PRINT " SUNDHEDSFORHOLD(1970) "
 1010   PRINT " 1 LÆGE PR.734 INDB., "
 1020   PRINT " 1 HOSPITALSSEG PR.67 INDB. "
 1030   PRINT
 1040   PRINT " UDDANNELSE "
 1050   PRINT " 9 ÅRS SKOLEPLIGT. "
 1060   PRINT
 1070   PRINT " ERHVERV(1972) "
 1080   PRINT " LANDBRUG 8%,MINEDRIFT 1%, "
 1090   PRINT " INDUSTRI 38%,HANDEL 19%, "
 1100   PRINT " TRANSPORT 7%,SERVICEFAG 27%. "
 1110   PRINT
 1120   PRINT " MINERALER(PRODUKTION 1972) "
 1130   PRINT " KUL 12.000T,URAN 7T, "
 1140   PRINT " JERN 21.317.000T, "
 1150   PRINT " KOBBER 30.600,GULD 1,8T, "
 1160   PRINT " BLY 74,200T,SØLV 132T, "
 1170   PRINT " ZINK 113.700T,SVOLV 300.000T. "
 1180   PRINT
 1190   PRINT " HANDEL(1973,MIO.KR) "
 1200   PRINT " IMPORT 66.749,HERAF 13.197 FRA "
 1210   PRINT " VESTTYSKLAND OG 8.253 FRA UK. "
 1220   PRINT " EKSPORT 77.314,HERAF 7.838 TIL "
 1230   PRINT " VESTTYSKLAND,11.374 TIL UK,7.652 TIL "
 1240   PRINT " DANMARK OG 7.305 TIL NORGE. "
 1250   PRINT " EKSPORTVARE:MASKINER 18.879,KØRETØJER "
 1260   PRINT " 7.920,JERN OG STÅL 6.116,PAPIR 6.618, "
 1270   PRINT " PAPIRMASSER 5.836,TRÆ 5.199,SKIBE "
 1280   PRINT " 4.545,JERNMALM 2.251. "
 1290   PRINT
 1300   PRINT " PENGE "
 1310   PRINT " 1 KRONE=100ØRE.KURS 1972: "
 1320   PRINT " 1 S.KR.=1,44 D.KR.BNP PR. "
 1330   PRINT " INDB. 1972:35.310 KR."
 1340   PRINT " ARBEJDESLØN  1972:24,80 KR.I TIMEN. "
 1350   PRINT
 1360 WHEN 3
 1361   DELAY = 1
 1362   PRINT "<27><12>"
 1363   DELAY = 2
 1370   PRINT " NORGE "
 1380   PRINT
 1390   PRINT " AREAL "
 1400   PRINT " 324.219 KM2. "
 1410   PRINT
 1420   PRINT " INDBYGGERTAL(1973) "
 1430   PRINT " 3.961.000,12 PR.KM2, "
 1440   PRINT " ÅRLIG TILVÆKST 0,7% "
 1450   PRINT
 1460   PRINT " BYER(INDB.1975) "
 1470   PRINT " OSLO 657.000,BERGEN "
 1480   PRINT " 214.000,TRONDHEOLM "
 1490   PRINT " 134.000,TASTAVANGER "
 1500   PRINT " 86.000. "
 1510   PRINT
 1520   PRINT " KLIMA "
 1530   PRINT " TEMPERERET KYSTKLIMA. "
 1540   PRINT " I DET INDRE AF LANDET "
 1550   PRINT " DOG FASTLANDSKLIMA.NED- "
 1560   PRINT " BØR ÅRET RUNDT,MEST LANGS "
 1570   PRINT " VESTKYSTEN. "
 1580   PRINT
 1590   PRINT " BEFOLKNING "
 1600   PRINT " NORDMÆND.SAMER OG KVÆNER "
 1610   PRINT " UDGÆR TILSAMMEN KNAP 1%. "
 1620   PRINT " 24% ER UNDER 15 ÆR. "
 1630   PRINT
 1640   PRINT " RELIGION  "
 1650   PRINT " PROTESTANTER "
 1660   PRINT
 1670   PRINT " SUNDHEDSFORHOLD(1971) "
 1680   PRINT " 1 LÆGE PR.686 INDB.1 "
 1690   PRINT " HOSPITALSSENG PR.76 INDB. "
 1700   PRINT
 1710   PRINT " UDDANNELSE "
 1720   PRINT " 9 ÅRS SKOLEPLIGT. "
 1730   PRINT
 1740   PRINT " ERHVERV(1972) "
 1750   PRINT " LANDBRUUG 12%.INDUUSTRI 34%. "
 1760   PRINT " HANDEL 19%.TRANSPORT 10%. "
 1770   PRINT " SERVICEFAG 25% "
 1780   PRINT
 1790   PRINT " MINERALER(PRODUKTION 1972)"
 1800   PRINT " RÅOLIE 1.626.000,KUL 455.000T, "
 1810   PRINT " JERN 2.549.000T,KOBBER 25.400T, "
 1820   PRINT " BLY 3.200T,ZINK 15.700. "
 1830   PRINT
 1840   PRINT " HANDEL(1973,MIO KR.)"
 1850   PRINT " IMPORT 39.066,HERAF 6.778 FRASVERIGE "
 1860   PRINT " EKSPORT 29.398,HERAF 4.427 TIL SVER- "
 1870   PRINT " IGE OG 5.305 TIL UK. "
 1880   PRINT " EKSPORTVARE:SKIBE 6.039,MASKINER 2.845, "
 1890   PRINT " JERN OG STÅL 1.892,TRÆ 315. "
 1900   PRINT
 1910   PRINT " PENGE "
 1920   PRINT " 1 KR.= 100 ØRE.KURS 1972:1 N.KR.= "
 1930   PRINT " 1,O3 D.KR.BNP PR.INDB.1972:22.628 KR. "
 1940   PRINT " ARBEJDESLØN 1972:17,30 KR.I TMEN. "
 1950 ENDCASE «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] = 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 0x00 KASE

Wrapper

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