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: 812 (0x32c) Types: TextFile Names: »ERROR_MESSAGE.S«
└─⟦18a2fd90d⟧ Bits:30005144 8" CR80 Floppy CR80FD_0132 ( CR/D/2479 CRD2479: En-CPU CPU/CACHE TEST- PROGRAMMER node: master: CRP5 ) └─⟦56889de57⟧ └─ ⟦this⟧ »ERROR_MESSAGE.S«
PROCEDURE ERROR_MESSAGE (R6); "********************************************************************* "********************************************************************* VAR SAVE: ARRAY[0..7] OF INTEGER; BEGIN R7=>SAVE[7]; STC(6,ADDRESS(SAVE[7])=>R7); 1=>R0=>ERROR_STATUS; IF (OUT_ENABLE=>R6)=1 THEN BEGIN OUTTEXT(ADDRESS('ERROR (:0:)')=>R3,R6); OUTTEXT(ADDRESS('IN ADDRESS: (:0:)')=>R3,R6); FAULT_ADDRESS=>R3; OUTHEX(R3,R6); OUTTEXT(ADDRESS(' DATA WAS: (:0:)')=>R3,R6); ACTUAL_DATA=>R3; OUTHEX(R3,R6); OUTTEXT(ADDRESS(' SHOULD BE: (:0:)')=>R3,R6); EXPECT_DATA=>R3; OUTHEX(R3,R6); OUTNEWLINE(R6); FLUSHOUT(R6); END; UNS(7,ADDRESS(SAVE[0])=>R7); EXIT(R6); END; "END OF ERROR_MESSAGE )