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

⟦a5be5fcac⟧ COMAL_SAVE

    Length: 1632 (0x660)
    Types: COMAL_SAVE
    Names: »CALLI «

Derivation

└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
    └─⟦this⟧ »/CALLI «

UPAS Segment

SAVE filename: "CALLI"

 0010 REM  PL 1.11.81 CALL-RUTINE-OVERSIGT /// «so» CALLI«nul»«nul»
 0015 REM  LK 26.11.81 SMÅ MODIFIKATIONER VEDR ADRESSE SØGNING, NU BRUGES ADRESSEN FRA COPS«nul»
 0016 REM  FOR AT UNDGÅ AT UCALL IKKE KAN FINDES«nul»R
 0020 PAGE = 0
 0030 LET TEST = 0 PRGD = 40 STED = 56
 0040 PRINT "<12><10><14>  CALLRUTINER I CORE<13><10><10>CALL" ; TAB ( STED ) ; "CALL-prg-adr<10>"
 0050 PAGE = 132
 0060 CALL "GMEM" , 160 , EXECUTE
 0070 FOR V = 1 TO 2
 0080   READ DIFFEREN
 0090   CALL "GMEM" , EXECUTE + DIFFEREN , CRA
 0140   REPEAT 
 0150     PRINT "CALL <34>" ;
 0160     FOR NN = 1 TO 4
 0170       CALL "GMEM" , CRA + NN , NVN
 0180       LET NVN1 = NVN DIV 256
 0190       FOR II = 1 TO 2
 0200         IF II = 2 THEN LET NVN1 = NVN MOD 256
 0210         LET NVN1 = NVN1 + 34 * ( NVN1 = 0 )
 0220         PRINT CHR ( NVN1 ) ;
 0230         IF NVN1 = 34 THEN LET II = 3 NN = 9
 0240       NEXT 
 0250     NEXT 
 0260     IF NN = 4 AND II = 2 THEN PRINT "<34>" ;
 0270     PRINT TAB ( 17 ) ;
 0280     CALL "GMEM" , CRA , ADC
 0290     CALL "GMEM" , ADC , ANTAL
 0300     FOR II = 1 TO ANTAL
 0310       CALL "GMEM" , ADC + II , TYPE
 0320       CASE TYPE OF
 0330         PRINT ",param(" ; TYPE ; ")" ;
 0340       WHEN 32768
 0350         PRINT ",talvariab" ;
 0360       WHEN 32771
 0370         PRINT ",txtvariab" ;
 0380       WHEN 67
 0390         PRINT ",txtmatrix" ;
 0400       WHEN 64
 0410         PRINT ",talmatrix" ;
 0420       WHEN 3
 0430         PRINT ",txtudtryk" ;
 0440       WHEN 0
 0450         PRINT ",taludtryk" ;
 0460       ENDCASE «nul»«ff»
 
 0470       IF TEST THEN RETURN «nul»
 0480     NEXT 
 0490     PRINT TAB ( 63 ) ; "(" ; ADC ; ")"
 0500     LET CRA = CRA + 5
 0510     CALL "GMEM" , CRA , ADC
 0520   UNTIL ADC = 0
 0530 NEXT 
 0540 CHAIN "LAGER"
 0550 END «nul»
 0560 DATA 13907 13908

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] = 0x02b2
      stack[1] = 0x0000
      stack[2] = 0x0000
      stack[3] = 0x0000
      stack[4] = 0x0000
      stack[5] = 0x0000
      stack[6] = 0x0000
    FOR-NEXT stack pointer = 0x0001
      Var# = 0x00f0
      Loop Top = 0x00ea
      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 = 6.17707e-84   (0x0000000c)
      Var# = 0x0093
      Loop Top = 0x00da
      To Val = 2   (0x41200000)
      Step Val = 1   (0x41100000)
      Var# = 0x0088
      Loop Top = 0x0178
      To Val = 3   (0x41300000)
      Step Val = 1   (0x41100000)
      Var# = 0x0088
      Loop Top = 0x0115
      To Val = 2   (0x41200000)
      Step Val = 1   (0x41100000)
    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 0x0002 0x00 PRGD
    0x82 0xffff 0x00 N
    0x83 0xffff 0x00 I
    0x84 0x000c 0x00 CRA
    0x85 0x000e 0x00 NN
    0x86 0x0010 0x00 NVN
    0x87 0x0012 0x00 NVN1
    0x88 0x0014 0x00 II
    0x89 0x0016 0x00 ADC
    0x8a 0x0018 0x00 ANTAL
    0x8b 0x001a 0x00 TYPE
    0x8c 0xffff 0x00 LISY
    0x8d 0x0004 0x00 STED
    0x8e 0xffff 0x00 LUST
    0x8f 0x0000 0x00 TEST
    0x90 0xffff 0x00 CCONNECT
    0x91 0xffff 0x00 LOKUP
    0x92 0x0006 0x00 EXECUTE
    0x93 0x0008 0x00 V
    0x94 0x000a 0x00 DIFFEREN

Wrapper

.magic = 0x4e32
.u_pas = 0x0230  // Length of UPAS in words
.u_das = 0x00ed  // Length of UDAS in words
.u_dvs = 0x00d1  // Start på savede variabel indhold (word adr)
.u_nds = 0x01f0  // Address på næste prog.sætning (word adr)
.u_cps = 0x01e7  // Address på curr prog.sætning (word adr)
.u_tll = 0x0084  // 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 = 0x0230  // ON ESE (word adr)
.u_era = 0x0458  // ON ERR (word adr)
.u_cas = 0xffff  // CASE dybde
.u_las = 0xffff  // last (-1)