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

⟦625ee7916⟧ COMAL_SAVE

    Length: 1154 (0x482)
    Types: COMAL_SAVE

Derivation

└─⟦cb4367ef8⟧ Bits:30001782 SG0002 Floppy
    └─ ⟦d349134d6⟧ »/LKLOG« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "LOGON"

 0010 ON ESC THEN GOTO 0200
 0025 LET OK = 1
 0030 DIM BRUGER$ ( 1000 ) , INITIAL$ ( 2 )
 0040 INPUT "<10><10><13>  INPUT BRUGERINTIAL HVIS UKENDT DA RETURN  " , INITIAL$
 0045 IF INITIAL$ = "" THEN GOTO 0200
 0050 READ BRUGER$ ( 1 , 100 ) , BRUGER$ ( 101 , 200 ) , BRUGER$ ( 201 , 1000 )
 0060 FOR I = 1 TO LEN ( BRUGER$ ) STEP 2
 0070   IF INITIAL$ = BRUGER$ ( I , I + 1 ) THEN LET OK = 0 ; I = 1e+10
 0080 NEXT 
 0090 IF OK THEN PRINT "<10><10><13> *** BRUGERNUMMER FINDES IKKE <10><10><13>"
 0100 IF OK THEN BYE 
 0101 ON ERR THEN GOTO 0200
 0102 OPEN FILE ( 4 , 4 ) "LOGTM"
 0110 WRITE FILE ( 4 , ( 2 + SYS ( 4 ) ) MOD 34 ) SYS ( 0 ) , INITIAL$
 0120 CLOSE
 0200 CONNECT "BUF1"
 0210 NEW 
 1000 DATA "ÆBÆCÆDÆEÆFÆGÆHÆIÆJÆKÆLÆMÆNÆOÆPÆQÆRÆSÆTÆUÆVÆWÆXÆYÆZÆÆØBØCPLSMRGTKTLTMTNTOTPTQTRTTTSTUTYCBPDPEPFPAPGPH"
 1010 DATA "PIPKPMPNPJPOPPPQPRPSPTPUPVPWPXPYPZPÆQBQCQDQEQFQGQHQIQJQKQLQMQNSOQOSMQQQRQSQTQUQVPLQWSDQYQZQÆRBRCRDRE"
 1020 DATA "TATBTDTETFTGTHTITJKBKCKDKEKFKGKHKIKJKKKMKNKOMCKPKQKRKSKTKUKVKWKXKYKLKZKÆLBLCLDLELFLKLKLHREJJFCFB"

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# = 0x0084
      Loop Top = 0x0085
      To Val = 296   (0x43128000)
      Step Val = 2   (0x41200000)
      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 0xffff 0x00 OK
    0x82 0xffff 0x02 BRUGER$
    0x83 0xffff 0x02 INITIAL$
    0x84 0xffff 0x00 I
    0x85 0xffff 0x00 T

Wrapper

.magic = 0x4e32
.u_pas = 0x01ac  // Length of UPAS in words
.u_das = 0x0086  // Length of UDAS in words
.u_dvs = 0x0086  // Start på savede variabel indhold (word adr)
.u_nds = 0x0042  // 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)