DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 420 (0x1a4) Types: TextFile Names: »UNDEF_TEST.S«
└─⟦18a2fd90d⟧ Bits:30005144 8" CR80 Floppy CR80FD_0132 ( CR/D/2479 CRD2479: En-CPU CPU/CACHE TEST- PROGRAMMER node: master: CRP5 ) └─⟦56889de57⟧ └─ ⟦this⟧ »UNDEF_TEST.S«
PROCEDURE UNDEF_TEST (R6); "********************************************************************* "********************************************************************* VAR SAVE: ARRAY[0..7] OF INTEGER; BEGIN R7=>SAVE[7]; STC(6,ADDRESS(SAVE[7])=>R7); OUTNEWLINE(R6); OUTTEXT(ADDRESS('TEST UNDEFINED (:0:)')=>R3,R6); OUTNEWLINE(R6); FLUSHOUT(R6); UNS(7,ADDRESS(SAVE[0])=>R7); EXIT(R6); END; "END OF UNDEF_TEST"