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

⟦84a5f47aa⟧ COMAL_SAVE

    Length: 3072 (0xc00)
    Types: COMAL_SAVE
    Names: »HLA11«

Derivation

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

UPAS Segment

SAVE filename: "HLA11"

 0001 REM    ***HENRIK LUND ANDREASEN.   DATO:24-11-81«nul»O
 0010 REM  >>>>>>>>>>HLA-PROGRAM*11*<<<<<<<<<<«nul»«nul»
 0020 PRINT " PROGRAMOVERSIGT..........=1"
 0030 PRINT " TEGNING..................=2"
 0040 INPUT " ........................?=" , PT
 0050 CASE PT OF
 0060   PRINT " ULOVLIGT SVAR."
 0070   GOTO 0040
 0080 WHEN 1
 0090   EXEC PROV
 0100 WHEN 2
 0110   EXEC TEIL
 0120 ENDCASE «nul» 
 0130 PROC PROV
 0140   DIM TEXTT$ ( 50 ) , XZ$ ( 10 ) , XY$ ( 10 )
 0150   PRINT " INDDATA......:=1"
 0160   PRINT " UDDATA.......:=2"
 0170   INPUT " .............?=" , IU
 0180   CASE IU OF
 0190   WHEN 1
 0200     EXEC INDA
 0210   WHEN 2
 0220     EXEC UDDA
 0230   WHEN 0
 0240     STOP «nul»«nul» 
 0250   ENDCASE «nul»«nul» 
 0260   PROC INDA
 0270     INPUT " PASSWORD...:=" , XZ$
 0280     OPEN FILE ( 5 , 0 ) "HLA1"
 0290     READ FILE ( 5 , 98 ) XY$
 0300     IF XY$ <> XZ$ THEN GOTO 0270
 0310     INPUT " HVOR MANGE PROGRAMMER..:" , PRO
 0320     READ FILE ( 5 , 99 ) MNR
 0330     IF PRO < MNR THEN GOTO 0430
 0340     FOR NR = MNR + 1 TO PRO
 0350       PRINT NR
 0360       PRINT " HLA-PROGRAM*" ; NR ; "*"
 0370       INPUT " TEKST.: " , TEXTT$
 0380       WRITE FILE ( 5 , NR ) TEXTT$
 0390       LET MNR = MNR + 1
 0400       PRINT MNR
 0410     NEXT 
 0420     WRITE FILE ( 5 , 99 ) MNR
 0430     CLOSE
 0440   ENDPROC NDA«nul»
 0450   PROC UDDA
 0460     OPEN FILE ( 5 , 0 ) "HLA1"
 0470     READ FILE ( 5 , 99 ) MNR
 0480     FOR NR = 1 TO MNR
 0490       READ FILE ( 5 , NR ) TEXTT$
 0500       PRINT " HLA-PROGRAM*" ; NR ; "*"
 0510       PRINT " TEKST : " ; TEXTT$
 0520     NEXT 
 0530     CLOSE
 0540   ENDPROC DDA«nul»
 0550 ENDPROC ROV«nul»
 0560 PROC TEIL
 0570   REM  *****HLA-PROGRAM*11(2)*****«nul»
 0580   DIM X$ ( 20 ) , Y$ ( 20 ) , A$ ( 20 ) , FIL$ ( 5 )
 0590   INPUT " PASSWORD..........:" , X$
 0600   OPEN FILE ( 5 , 0 ) "HLA1"
 0610   READ FILE ( 5 , 98 ) Y$
 0620   CLOSE
 0630   IF X$ <> Y$ THEN
 0640     RELEASE 
 0650     NEW 
 0660   ELSE 
 0670   ENDIF 
 0680   PRINT " INDDATA.....=1"
 0690   PRINT " UDDATA......=2"
 0700   PRINT " RETNING.....=3"
 0705   INPUT " ...........?=" , SV
 0710   INPUT " HVILKEN FIL.:" , FIL$
 0720   CASE SV OF
 0730   WHEN 0
 0740     STOP «nul»«nul» 
 0750   WHEN 1
 0760     EXEC INDD
 0770   WHEN 2
 0780     EXEC UDAT
 0790   WHEN 3
 0800     EXEC RETN
 0810   ENDCASE «nul» 
 0820   PROC INDD
 0830     OPEN FILE ( 5 , 0 ) FIL$
 0840     IF X$ <> Y$ THEN
 0850       CLOSE
 0860       RELEASE 
 0870       NEW 
 0880     ELSE 
 0890     ENDIF 
 0900     READ FILE ( 5 , 998 ) MNR
 0910     INPUT " HVOR MANGE KOORDINATSÆT" , KS
 0920     IF KS < MNR THEN GOTO 1010
 0930     FOR Z = MNR + 1 TO KS
 0940       PRINT Z
 0950       INPUT " G/O.:" , A$
 0960       INPUT " X...:" , X
 0970       INPUT " Y...:" , Y
 0980       WRITE FILE ( 5 , Z ) A$ , X , Y
 0990       LET MNR = MNR + 1
 1000     NEXT 
 1010     WRITE FILE ( 5 , 998 ) MNR
 1020     CLOSE
 1030   ENDPROC NDD«nul»
 1040   PROC UDAT
 1050     OPEN FILE ( 5 , 0 ) FIL$
 1060     READ FILE ( 5 , 998 ) MNR
 1065     PRINT "   NR. FUNKT.             X-KOOR.       Y-KOOR."
 1070     FOR Q = 1 TO MNR
 1080       READ FILE ( 5 , Q ) A$ , X , Y
 1090       IF A$ = "G" THEN
 1100         PRINT " ####" , Q ; " GRAPH " , "" , X , Y
 1110       ELSE 
 1120         PRINT " ####" , Q ; " OUTVECT " , X , Y
 1130       ENDIF 
 1140     NEXT 
 1150     CLOSE
 1160   ENDPROC DDA«nul»
 1170   PROC RETN
 1180     OPEN FILE ( 5 , 0 ) FIL$
 1190     INPUT " HVOR MANGE LINIER..:" , R
 1200     FOR T = 1 TO R
 1210       INPUT " HVILKET NR.........:" , S
 1220       READ FILE ( 5 , S ) A$ , X , Y
 1230       IF X$ <> Y$ THEN
 1240         CLOSE
 1250         RELEASE 
 1260         NEW 
 1270       ELSE 
 1280       ENDIF 
 1290       INPUT " G/O.:" , A$
 1300       INPUT " X...:" , X
 1310       INPUT " Y...:" , Y
 1320       WRITE FILE ( 5 , S ) A$ , X , Y
 1330     NEXT 
 1340     CLOSE
 1350   ENDPROC DAT«nul»
 1360 ENDPROC EIL«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 = 0x0001
      stack[0] = 0x00cb
      stack[1] = 0x02b5
      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# = 0x0098
      Loop Top = 0x0383
      To Val = 197   (0x42c50000)
      Step Val = 1   (0x41100000)
      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 0x02 TEXT$
    0x82 0xffff 0x02 TEXTT$
    0x83 0xffff 0x02 XZ$
    0x84 0xffff 0x02 XY$
    0x85 0xffff 0x00 IU
    0x86 0xffff 0x00 INDA
    0x87 0xffff 0x00 UDDA
    0x88 0xffff 0x00 PRO
    0x89 0xffff 0x00 MNR
    0x8a 0xffff 0x00 NR
    0x8b 0xffff 0x00 MAXNR
    0x8c 0xffff 0x00 X
    0x8d 0xffff 0x00 M
    0x8e 0xffff 0x00 LISTT
    0x8f 0x0002 0x02 X$
    0x90 0x000f 0x02 Y$
    0x91 0x001c 0x02 A$
    0x92 0x0029 0x02 FIL$
    0x93 0xffff 0x00 SV
    0x94 0xffff 0x00 RETN
    0x95 0xffff 0x00 KS
    0x96 0xffff 0x00 Z
    0x97 0xffff 0x00 Y
    0x98 0xffff 0x00 Q
    0x99 0xffff 0x00 R
    0x9a 0xffff 0x00 T
    0x9b 0xffff 0x00 S
    0x9c 0x0000 0x00 PT
    0x9d 0xffff 0x00 PROV
    0x9e 0xffff 0x00 TEIL
    0x9f 0xffff 0x00 INDD
    0xa0 0xffff 0x00 UDAT
    0xa1 0xffff 0x00 RN

Wrapper

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