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

⟦a1120179e⟧ COMAL_SAVE

    Length: 3438 (0xd6e)
    Types: COMAL_SAVE

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─ ⟦571eafb1f⟧ »/JT1U.JT01« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "JT01"

 0005 REM  ***JESPER THORSEN 1.U.***«nul»«nul»
 0010 REM  ****** JESPER'S UNIVERSAL KARTOTEKSSYSTEM ******«nul»
 0020 DIM A$ ( 20 ) , B$ ( 20 ) , C$ ( 20 ) , D$ ( 20 ) , E$ ( 20 ) , F$ ( 20 )
 0030 DIM G$ ( 20 ) , H$ ( 20 ) , I$ ( 20 ) , J$ ( 20 ) , K$ ( 20 ) , L$ ( 20 )
 0040 INPUT "PROC? " , SVAR
 0050 OPEN FILE ( 5 , 0 ) "JT002"
 0060 READ FILE ( 5 , 50 ) MAXNR
 0070 CASE SVAR OF
 0080   GOTO 0040
 0090 WHEN 0
 0100   WRITE FILE ( 5 , 50 ) MAXNR
 0110   CLOSE
 0120   STOP «nul» 
 0130 WHEN 1
 0140   EXEC OPRET
 0150 WHEN 2
 0160   EXEC UDSKR
 0170 WHEN 3
 0180   EXEC SLET
 0190 WHEN 4
 0200   EXEC S\G
 0204 WHEN 5
 0207   EXEC RET
 0210 ENDCASE «nul» 
 0220 GOTO 0040
 0230 PROC OPRET
 0240   DIM TEXT1$ ( 10 ) , TEXT2$ ( 10 ) , TEXT3$ ( 10 ) , TEXT4$ ( 10 ) , TEXT5$ ( 10 )
 0250   DIM TEXT6$ ( 10 ) , TEXT7$ ( 10 ) , TEXT8$ ( 10 ) , TEXT9$ ( 10 ) , TEXT10$ ( 19 )
 0260   READ FILE ( 5 , 48 ) TEXT1$ , TEXT2$ , TEXT3$ , TEXT4$ , TEXT5$ , TEXT6$ , TEXT7$ , TEXT8$ , TEXT9$ , TEXT10$
 0270   PRINT TEXT1$
 0280   INPUT A$
 0290   PRINT TEXT2$
 0300   INPUT B$
 0310   PRINT TEXT3$
 0320   INPUT C$
 0330   PRINT TEXT4$
 0340   INPUT D$
 0350   PRINT TEXT5$
 0360   INPUT E$
 0370   PRINT TEXT6$
 0380   INPUT F$
 0390   PRINT TEXT7$
 0400   INPUT G$
 0410   PRINT TEXT8$
 0420   INPUT H$
 0430   PRINT TEXT9$
 0440   INPUT I$
 0450   PRINT TEXT10$
 0460   INPUT J$
 0470   LET MAXNR = MAXNR + 1
 0480   WRITE FILE ( 5 , MAXNR ) A$ , B$ , C$ , D$ , E$ , F$ , G$ , H$ , I$ , J$
 0490   WRITE FILE ( 5 , 50 ) MAXNR
 0500   CLOSE
 0510 ENDPROC PRET«nul»«nul»
 0520 PROC UDSKR
 0530   PRINT ""
 0540   PRINT ""
 0550   PRINT ""
 0560   FOR T[L = 1 TO MAXNR
 0570     PRINT ""
 0580     PRINT ""
 0590     PRINT ""
 0600     READ FILE ( 5 , T[L ) A$ , B$ , C$ , D$ , E$ , F$ , G$ , H$ , I$ , J$
 0605     PRINT "<14>" ; T[L
 0610     PRINT "<14><28>" , A$ , B$
 0620     PRINT "<14>" , C$ , D$
 0630     PRINT "<14>" , E$ , F$
 0640     PRINT "<14>" , G$ , H$
 0650     PRINT "<14>" , I$ , J$
 0660   NEXT 
 0666   CLOSE
 0670 ENDPROC DSKR«nul»
 0680 PROC SLET
 0684   DIM P$ ( 10 ) , Q$ ( 10 ) , R$ ( 100 )
 0690   DIM BUFF$ ( 100 )
 0700   DIM M$ ( 20 ) , N$ ( 20 )
 0710   INPUT "FORNAVN TIL SLETNING  " , K$
 0720   INPUT "EFTERNAVN TIL SLETNING  " , L$
 0730   FOR TAL = 1 TO MAXNR
 0740     READ FILE ( 5 , TAL ) M$ , N$ , BUFF$
 0750     IF K$ <> M$ THEN GOTO 0820
 0760     IF L$ <> N$ THEN GOTO 0820
 0770     FOR T = TAL TO MAXNR
 0780       READ FILE ( 5 , T + 1 ) M$ , N$ , BUFF$
 0787       WRITE FILE ( 5 , T ) P$ , Q$ , R$
 0790       WRITE FILE ( 5 , T ) M$ , N$ , BUFF$
 0800     NEXT 
 0805     CLOSE
 0810     LET MAXNR = MAXNR - 1
 0820   NEXT 
 0825   CLOSE
 0830 ENDPROC LET«nul»
 1000 PROC S\G
 1005   DIM T3$ ( 20 ) , T4$ ( 20 ) , T5$ ( 20 ) , T6$ ( 20 ) , T7$ ( 20 ) , T8$ ( 20 ) , T9$ ( 20 ) , T10$ ( 20 )
 1010   DIM P$ ( 20 ) , Q$ ( 20 ) , R$ ( 20 ) , BUFF$ ( 100 ) , M$ ( 20 ) , N$ ( 20 )
 1020   INPUT "FORNAVN TIL SØGNING : " , M$
 1030   INPUT "EFTERNAVN TIL SØGNING : " , N$
 1040   FOR TAL = 1 TO MAXNR
 1050     READ FILE ( 5 , TAL ) P$ , Q$ , T3$ , T4$ , T5$ , T6$ , T7$ , T8$ , T9$ , T10$
 1060     IF M$ <> P$ THEN GOTO 1150
 1070     IF N$ <> Q$ THEN GOTO 1150
 1080     PRINT P$ , Q$
 1082     PRINT T3$ , T4$
 1084     PRINT T5$ , T6$
 1086     PRINT T7$ , T8$
 1088     PRINT T9$ , T10$
 1150   NEXT 
 1200 ENDPROC ØG«nul»
 1300 PROC RET
 1305   DIM S$ ( 20 ) , T$ ( 20 ) , U$ ( 20 )
 1310   INPUT "FORNAVN TIL RETNING" , A$
 1320   INPUT "EFTERNAVN TIL RETNING" , B$
 1330   FOR X = 1 TO MAXNR
 1340     READ FILE ( 5 , MAXNR ) C$ , D$ , E$ , F$ , G$ , H$ , I$ , J$ , K$ , L$
 1350     IF A$ <> C$ THEN GOTO 1500
 1360     IF B$ <> D$ THEN GOTO 1500
 1370     PRINT C$
 1380     INPUT "NYT" , M$
 1390     PRINT D$
 1400     INPUT "NYT" , N$
 1410     PRINT E$
 1420     INPUT "NYT" , O$
 1430     PRINT F$
 1440     INPUT "NYT" , P$
 1450     PRINT G$
 1460     INPUT "NYT" , Q$
 1470     PRINT H$
 1480     INPUT "NYT" , R$
 1490     PRINT I$
 1500     INPUT "NYT" , S$
 1506     DIM V$ ( 20 )
 1510     PRINT J$
 1520     INPUT "NYT" , T$
 1530     PRINT K$
 1540     INPUT "NYT" , U$
 1550     PRINT L$
 1560     INPUT "NYT" , V$
 1570     WRITE FILE ( 5 , X ) M$ , N$ , O$ , P$ , Q$ , R$ , S$ , T$ , U$ , V$
 1580     CLOSE
 1590   NEXT 
 1600 ENDPROC ET«nul»«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] = 0x00fb
      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 = 3.08853e-84   (0x00000006)
      Var# = 0x009e
      Loop Top = 0x01e3
      To Val = 13   (0x41d00000)
      Step Val = 1   (0x41100000)
      Var# = 0x00a3
      Loop Top = 0x0273
      To Val = 4   (0x41400000)
      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 A$
    0x82 0x000d 0x02 B$
    0x83 0x001a 0x02 C$
    0x84 0x0027 0x02 D$
    0x85 0x0034 0x02 E$
    0x86 0x0041 0x02 F$
    0x87 0x004e 0x02 G$
    0x88 0x005b 0x02 H$
    0x89 0x0068 0x02 I$
    0x8a 0x0075 0x02 J$
    0x8b 0x0082 0x02 K$
    0x8c 0x008f 0x02 L$
    0x8d 0x009c 0x00 SVAR
    0x8e 0x009e 0x00 MAXNR
    0x8f 0xffff 0x00 OPRET
    0x90 0xffff 0x00 UDSKR
    0x91 0xffff 0x00 SLET
    0x92 0xffff 0x00 S\G
    0x93 0xffff 0x02 TEXT1$
    0x94 0xffff 0x02 TEXT2$
    0x95 0xffff 0x02 TEXT3$
    0x96 0xffff 0x02 TEXT4$
    0x97 0xffff 0x02 TEXT5$
    0x98 0xffff 0x02 TEXT6$
    0x99 0xffff 0x02 TEXT7$
    0x9a 0xffff 0x02 TEXT8$
    0x9b 0xffff 0x02 TEXT9$
    0x9c 0xffff 0x02 TEXT10$
    0x9d 0xffff 0x02 INPUTB$
    0x9e 0x00a0 0x00 T[L
    0x9f 0xffff 0x02 BUFF$
    0xa0 0xffff 0x02 M$
    0xa1 0xffff 0x02 N$
    0xa2 0xffff 0x00 TAL
    0xa3 0xffff 0x00 T
    0xa4 0xffff 0x00 ENDPRROC
    0xa5 0xffff 0x02 P$
    0xa6 0xffff 0x02 Q$
    0xa7 0xffff 0x02 R$
    0xa8 0xffff 0x00 MAXR
    0xa9 0xffff 0x00 RU
    0xaa 0xffff 0x02 DIMP$
    0xab 0xffff 0x02 T3$
    0xac 0xffff 0x02 T4$
    0xad 0xffff 0x02 T5$
    0xae 0xffff 0x02 T6$
    0xaf 0xffff 0x02 T7$
    0xb0 0xffff 0x02 T8$
    0xb1 0xffff 0x02 T9$
    0xb2 0xffff 0x02 T10$
    0xb3 0xffff 0x00 RET
    0xb4 0xffff 0x00 B4
    0xb5 0xffff 0x00 X
    0xb6 0xffff 0x00 INOUT
    0xb7 0xffff 0x02 O$
    0xb8 0xffff 0x02 S$
    0xb9 0xffff 0x02 T$
    0xba 0xffff 0x02 U$
    0xbb 0xffff 0x02 V$
    0xbc 0xffff 0x00 L

Wrapper

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