|
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: 1362 (0x552)
Types: TextFile
Names: »WRITEINTEGERS.S«
└─⟦881c1028e⟧ Bits:30005102 8" CR80 Floppy CR80FD_0061 ( VOL: SCC.V NSC Directory: Queue_test.D )
└─⟦4f56469eb⟧
└─ ⟦this⟧ »QUEUE_TEST.D!WRITEINTEGERS.S«
"---------------------------------------------------------------
PROCEDURE WRITEINTEGERS
" CALL RETURN
(R0; " NO. OF UNCH
" INTEGERS
R1; " REF. INTE- UNCH
" REF. INTE- UNCH
R4; " REF FILE- UNCH
" TYPE
R6); " LINK
VAR SAV0,SAV1,SAV4,SAV2,SAV6: INTEGER;
"---------------------------------------------------------------
BEGIN
R6 => SAV6;
R4 => SAV4;
R0 => SAV0;
R2 => SAV2;
R1 => SAV1;
R4@FILETYPE.S => R4;
WHILE R0-1 >= 0 DO
BEGIN
R1@INTEGER => R2;
R1+1;
SWITCH MON(STREAM,OUTHEXA,R2,'#' => R3,R4,R7): X2 TO
ERR:
FILEERROR(SAV4 => R4,ADDRESS('OUTHEXA(:0:)') => R5,R7,R6);
END;
SWITCH MON(STREAM,OUTBYTE,' ' => R3,R4,R7): X2 TO
ERR:
FILEERROR(SAV4 => R4,ADDRESS('OUT SPACE(:0:)') => R5,R7,R6);
END;
END;
SWITCH MON(STREAM,OUTTEXTB,R4,ADDRESS('%(:0:)') => R6,R7) : X2 TO
ERR:
FILEERROR(SAV4 => R4,ADDRESS('OUT %(:0:)') => R5,R7,R6);
END;
SWITCH MON(STREAM,OUTNL,R4,R7):X2 TO
ERR:
FILEERROR(SAV4 => R4,ADDRESS('OUT <NL>(:0:)') => R5,R7,R6);
END;
SAV4 => R4;
SAV1 => R1;
SAV2 => R2;
SAV0 => R0;
EXIT(SAV6);
END;
"---------------------------------------------------------------