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

⟦370e87d0b⟧ COMAL_SAVE

    Length: 4096 (0x1000)
    Types: COMAL_SAVE
    Names: »HLA13«

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─⟦this⟧ »/SPACE.HLA13«

UPAS Segment

SAVE filename: "HLA13"

 0001 REM  ***HENRIK LUND ANDREASEN.   DATO:24-11-81***«nul»
 0010 REM  *****HLA-PROGRAM*13*****«nul»
 0020 DIM X$ ( 20 ) , Y$ ( 20 )
 0030 INPUT " PASSWORD?...:" , Y$
 0040 ON ESC THEN GOTO 0030
 0050 OPEN FILE ( 5 , 0 ) "HLA1"
 0060 READ FILE ( 5 , 98 ) X$
 0070 CLOSE
 0080 IF X$ <> Y$ THEN
 0090   RELEASE 
 0100   NEW 
 0110 ELSE 
 0120 ENDIF 
 0130 DIM EN$ ( 20 ) , FO$ ( 20 ) , ADR$ ( 20 ) , BY$ ( 20 )
 0140 DIM NAME$ ( 100 )
 0150 OPEN FILE ( 5 , 0 ) "HLA6"
 0160 READ FILE ( 5 , 100 ) MNR
 0175 PRINT
 0180 PRINT " --------------------"
 0190 PRINT " INDDATA....=1"
 0200 PRINT " UDDATA.....=2"
 0210 PRINT " SLETNING...=3"
 0220 PRINT " RETNING....=4"
 0230 PRINT " SØGNING....=5"
 0240 PRINT " --------------------"
 0250 INPUT " ..........?:" , SV
 0260 PRINT " ===================="
 0265 PRINT "<140>"
 0267 PRINT TAB ( 20 ) ; "<14>" ; "**HLA-KARTOTEKSSYSTEM**"
 0270 CASE SV OF
 0280   PRINT "ULOVLIGT SVAR."
 0290   GOTO 0250
 0300 WHEN 0
 0310   CLOSE
 0320   STOP «nul»«nul» 
 0330 WHEN 1
 0340   EXEC OPRET
 0350 WHEN 2
 0360   EXEC UDSKR
 0370 WHEN 3
 0380   EXEC SLETN
 0390 WHEN 4
 0400   EXEC RETNI
 0410 WHEN 5
 0420   EXEC S\GNI
 0430 ENDCASE «nul» 
 0440 PROC OPRET
 0450   REM  **OPRETNINGS-PROC**«nul»-
 0460   INPUT " HVOR MANGE INDLÆSNINGER.:" , MI
 0470   IF MNR > MI THEN GOTO 0610
 0480   FOR IND = MNR + 1 TO MI
 0490     INPUT " KARTONR....:" , EL
 0500     IF EL = 0 THEN GOTO 0600
 0510     INPUT " FORNAVN....:" , FO$
 0520     INPUT " EFTERNAVN..:" , EN$
 0530     INPUT " ADRESSE....:" , ADR$
 0540     INPUT " POSTNR.....:" , PN
 0550     INPUT " BY.........:" , BY$
 0560     INPUT " TELEFONNR..:" , TLF
 0570     LET MNR = MNR + 1
 0580     WRITE FILE ( 5 , MNR ) EL , FO$ , EN$ , ADR$ , PN , BY$ , TLF
 0590   NEXT 
 0600   WRITE FILE ( 5 , 100 ) MNR
 0620 ENDPROC PRET«nul»«nul»
 0630 GOTO 0180
 0640 PROC UDSKR
 0650   REM  **UDSKRIFTS-PROC**«nul»
 0660   READ FILE ( 5 , 100 ) MNR
 0670   PRINT "<14>" ; "----------------------------------------"
 0680   FOR T[L = 1 TO MNR
 0690     READ FILE ( 5 , T[L ) EL , FO$ , EN$ , ADR$ , PN , BY$ , TLF
 0700     PRINT "<14><28>" ; EL , FO$ ; " " ; EN$
 0710     PRINT "<14><28>" ; ADR$
 0720     PRINT "<14><28>" ; PN , BY$
 0730     PRINT "<14><28>" ; TLF
 0740     PRINT "<14>" ; "----------------------------------------"
 0750   NEXT 
 0755   PRINT "<140>"
 0770 ENDPROC DSKR«nul»-
 0780 GOTO 0180
 0790 PROC SLETN
 0800   REM  **SLETNINGS-PROC**«nul»
 0810   READ FILE ( 5 , 100 ) EL , NAME$
 0820   INPUT " KARTONR. TIL SLETNING?..:" , NR
 0830   FOR T[L = 1 TO MNR
 0840     READ FILE ( 5 , T[L ) EL , NAME$
 0850     IF NR <> EL THEN GOTO 0910
 0860     FOR T = T[L TO MNR
 0870       READ FILE ( 5 , T + 1 ) EL , NAME$
 0880       WRITE FILE ( 5 , T ) EL , NAME$
 0890     NEXT 
 0900     LET MNR = MNR - 1
 0910   NEXT 
 0930 ENDPROC LETN«nul»
 0940 GOTO 0180
 0950 PROC RETNI
 0960   REM  **RETNINGS-PROC**«nul»
 0970   DIM FON$ ( 20 ) , ENN$ ( 20 ) , ADRN$ ( 20 ) , BYN$ ( 20 )
 0980   INPUT " KARTONR. TIL RETNING?...:" , RE
 0990   READ FILE ( 5 , RE ) EL , FO$ , EN$ , ADR$ , PN , BY$ , TLF
 0995   ON ESC THEN GOTO 1210
 1000   PRINT EL
 1010   INPUT " NYT KARTONR...:" , ELN
 1020   PRINT FO$
 1030   INPUT " NYT FORNAVN...:" , FON$
 1040   PRINT EN$
 1050   INPUT " NYT EFTERNAVN.:" , ENN$
 1060   PRINT ADR$
 1070   INPUT " NY ADRESSE....:" , ADRN$
 1080   PRINT PN
 1090   INPUT " NYT POSTNR....:" , PNN
 1100   PRINT BY$
 1110   INPUT " NYT BYNAVN....:" , BYN$
 1120   PRINT TLF
 1130   INPUT " NYT TELEFONNR.:" , TLFN
 1140   LET EL = ELN
 1150   LET FO$ = FON$
 1160   LET EN$ = ENN$
 1170   LET ADR$ = ADRN$
 1180   LET PN = PNN
 1190   LET BY$ = BYN$
 1200   LET TLF = TLFN
 1210   WRITE FILE ( 5 , RE ) EL , FO$ , EN$ , ADR$ , PN , BY$ , TLF
 1230 ENDPROC ETNI«nul»«nul»
 1240 GOTO 0180
 1250 PROC S\GNI
 1260   REM  **SØGNINGS-PROC**«nul»
 1270   DIM OP$ ( 20 )
 1280   INPUT " OPLYSNING?...:" , OP$
 1290   READ FILE ( 5 , 100 ) MNR
 1300   FOR L = 1 TO MNR
 1310     READ FILE ( 5 , L ) EL , FO$ , EN$ , ADR$ , PN , BY$ , TLF
 1320     IF OP$ = FO$ OR OP$ = EN$ OR OP$ = ADR$ OR OP$ = BY$ THEN GOTO 1360
 1330   NEXT 
 1340   GOTO 1440
 1350   PRINT
 1360   PRINT " ----------------------------------------"
 1370   PRINT EL , FO$ , EN$
 1380   PRINT ADR$
 1390   PRINT PN , BY$
 1400   PRINT TLF
 1410   PRINT " ----------------------------------------"
 1420 NEXT 
 1440 ENDPROC ØGNI«nul»-
 1450 GOTO 0180

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] = 0x01ba
      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 = 3.3735e-80   (0x00010000)
      Var# = 0x0000
      Loop Top = 0x0000
      To Val = 0   (0x00000000)
      Step Val = 0   (0x00000000)
      Var# = 0x00a3
      Loop Top = 0x049d
      To Val = 5   (0x41500000)
      Step Val = 1   (0x41100000)
      Var# = 0x0099
      Loop Top = 0x0328
      To Val = 2   (0x41200000)
      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 X$
    0x82 0x000d 0x02 Y$
    0x83 0x001a 0x02 EN$
    0x84 0x0027 0x02 FO$
    0x85 0x0034 0x02 ADR$
    0x86 0x0041 0x02 BY$
    0x87 0x0083 0x00 MNR
    0x88 0x0085 0x00 SV
    0x89 0xffff 0x00 OPRET
    0x8a 0xffff 0x00 UDSKR
    0x8b 0xffff 0x00 SLETN
    0x8c 0xffff 0x00 RETNI
    0x8d 0xffff 0x00 S\GNI
    0x8e 0x0089 0x00 EL
    0x8f 0x008b 0x00 PN
    0x90 0x008d 0x00 TLF
    0x91 0xffff 0x00 MI
    0x92 0xffff 0x00 IND
    0x93 0xffff 0x00 M
    0x94 0xffff 0x00 LOOKUO
    0x95 0xffff 0x00 GOTO160
    0x96 0x0087 0x00 T[L
    0x97 0x004e 0x02 NAME$
    0x98 0xffff 0x00 NR
    0x99 0xffff 0x00 T
    0x9a 0xffff 0x02 FON$
    0x9b 0xffff 0x02 ENN$
    0x9c 0xffff 0x02 ADRN$
    0x9d 0xffff 0x02 BYN$
    0x9e 0xffff 0x00 RE
    0x9f 0xffff 0x00 ELN
    0xa0 0xffff 0x00 PNN
    0xa1 0xffff 0x00 TLFN
    0xa2 0x008f 0x02 OP$
    0xa3 0x009c 0x00 L
    0xa4 0xffff 0x00 GNOTO
    0xa5 0xffff 0x00 PRIINT

Wrapper

.magic = 0x4e32
.u_pas = 0x0517  // Length of UPAS in words
.u_das = 0x01c4  // Length of UDAS in words
.u_dvs = 0x0126  // Start på savede variabel indhold (word adr)
.u_nds = 0x0094  // Address på næste prog.sætning (word adr)
.u_cps = 0x0088  // 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 = 0x0082  // CASE dybde
.u_las = 0xffff  // last (-1)