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

⟦b4dd37aa0⟧ TextFile

    Length: 1006 (0x3ee)
    Types: TextFile
    Names: »WORK.I«

Derivation

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP007_V0501.D!CSS7000.D!WORK.I« 

TextFile


%LIST     %LIST     %LIST
"-----------------------------------------------------------------------
"
"  MODULE NAME:           CPU TEST (WORK AREAS)
"  MODULE ID NMB:         CSS/7000
"  MODULE VERSION:        03
"  MODULE RELEASE:        01
"  RELEASE DATE:          850910
"
"-----------------------------------------------------------------------
%NOLIST   %NOLIST   %NOLIST


IMPORT
var dwork : array [0..255] of integer;
"========================================================================
" This variable is a work area in the lower data address range (B8)
"========================================================================

IMPORT
procedure pwork
"============="
   (r6); " - -  dummy
"========================================================================
" This procedure simply occupies a program work area in the lower
" address range (P8). The size is 256 words.
" This procedure should never be called.
"======================================================================== «a5»