DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦e576ba5ca⟧ TextFile

    Length: 1286 (0x506)
    Types: TextFile
    Names: »LCC.J«

Derivation

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »LCC.J« 
└─⟦b21be6f3b⟧ Bits:30005082 8" CR80 Floppy CR80FD_0036 ( CR/D/3143 KLP & KMO C-KURSUS + C JOBFILER 861127 Volume MOVEFL RAM TEST css/709 #0000-7fff V24+SCM )
    └─⟦95f1eafb2⟧ 
        └─ ⟦this⟧ »LCC.J« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »LCC.J« 
└─⟦c25823ad8⟧ Bits:30005089 8" CR80 Floppy CR80FD_0044 ( @*FLOPPY C )
    └─⟦feb1d529a⟧ 
        └─ ⟦this⟧ »LCC.J« 

TextFile

  WRITELN
  DEFINE OLDVERIFY VERIFY
  DEFINE VERIFY 0
  DEFINE CPPFROM 'S'
  IF (P2 <> 'CT') AND (P3 <> 'CT') THEN GOTO LCPP
LABEL CTRACE
  DEFINE CPPFROM 'MCCT'
  CREATE $P1$$.MCCT R/10 COUT:@NULL-FILE*V*F
  IF CC <> 0 THEN RESET $P1$$.MCCT
  WRITELN 'C Trace Executing .............'
  @**CTRACE -i @**PREFIXES.D*MXAMOS.D*C.D* -- $P1$$.S COUT:$P1$$.MCCT
  IF CC <> 0 THEN WRITELN 'ERROR IN CTRACE'
  IF CC <> 0 THEN GOTO END
  REMOVE CTRACE.ERROR
LABEL LCPP
  WRITELN 'Large C Preprocessor Executing ......'
  @**LCPP -pf $P1$$.P -x -i @**PREFIXES.D*MXAMOS.D*C.D* -o $P1$$.MCPP -- $P1$$.$CPPFROM
  IF CC <> 0 THEN WRITELN 'ERROR IN LCPP'
  IF CC <> 0 THEN GOTO END
  WRITELN 'Large C Compiler Pass 1 Executing ...'
  @**LCP1 -pf $P1$$.P -n32 -t -m -b0 -o $P1$$.MCP1 -- $P1$$.MCPP
  IF CC <> 0 THEN WRITELN 'ERROR IN LCP1'
  IF CC <> 0 THEN GOTO END
  WRITELN 'Large C Compiler Pass 2 Executing ...'
  @**LCP2 -m -o $P1$$.MCP2 -- $P1$$.MCP1
  IF CC <> 0 THEN WRITELN 'ERROR IN LCP2'
  IF CC <> 0 THEN GOTO END
  LARGEMASM I:$P1$$.MCP2 O:$P1$$.L P:$P1$$.A.P L:1
  IF CC <> 0 THEN WRITELN 'ERROR IN LARGEMASM'
  IF CC <> 0 THEN GOTO END
LABEL END
  IF (P2 = 'NR') OR (P3 = 'NR') THEN GOTO NO_REMOVE
  DREMOVE M:$P1$$.MC PR:NO
LABEL NO_REMOVE
  DEFINE VERIFY OLDVERIFY
  DELETE OLDVERIFY