|
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: 3720 (0xe88)
Types: TextFile
Names: »TXT_OUT.I«
└─⟦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!TXT_OUT.I«
%LIST %LIST %LIST
"-----------------------------------------------------------------------
"
" MODULE NAME: TPE Text Output Module
" MODULE ID NMB: CSS/7000
" MODULE VERSION: 03
" MODULE RELEASE: 01
" RELEASE DATE: 850910
"
"-----------------------------------------------------------------------
%NOLIST %NOLIST %NOLIST
"------------------------------------------------------------
" Procedures used to support text output of binary values etc.
"------------------------------------------------------------
IMPORT PROCEDURE OUTNEWLINE
"========================="
(R6); " C D LINK"
"--------------------------------------------------------
" ADDS A CR AND A NL CHARACTER
" AND FLUSHES THE LINE
"--------------------------------------------------------
IMPORT PROCEDURE OUTTEXT
"======================"
(R3; " C K ADDRESS OF TEXT"
R6); " C D LINK"
"--------------------------------------------------------
" PRINT A STRING OF CHARACTERS
" TERMINATED BY (:0:)
"--------------------------------------------------------
IMPORT PROCEDURE OUTHEX
"====================="
(R3; " C K INTEGER TO BE PRINTED"
R6); " C D LINK"
"--------------------------------------------------------
" OUTPUT AN INTEGER IN ITS HEX.
" REPRESENTATION
" PRECEDED BY A BLANK
"--------------------------------------------------------
IMPORT PROCEDURE OUTINT
"====================="
(R3; " C K INTEGER TO BE PRINTED"
R6); " C D LINK"
"--------------------------------------------------------
" OUTPUT AN INTEGER IN ITS DECIMAL
" REPRESENTATION
"--------------------------------------------------------
IMPORT PROCEDURE OUTINTPOS
"========================"
(POSITIONS : INTEGER;
R3; " C K INTEGER TO BE PRINTED
R6); " C D LINK
"----------------------------------------------------------------------
" Outputs an integer which will occupy a minimum width of 'POSITIONS'
"----------------------------------------------------------------------
IMPORT PROCEDURE OUTLONGINT
"========================="
(R3; " C K NUMBER TO BE OUTPUT - LEAST SIGNIFICANT PART
R4; " C K NUMBER TO BE OUTPUT - MOST SIGNIFICANT PART
R6); " C K LINK
"----------------------------------------------------------------------
" THIS PROCEDURE OUTPUTS A LONG INTEGER IN ITS DECIMAL REPRESEN-
" TATION - UNSIGNED AND WITH LEADING ZEROES SUPPRESSED
"----------------------------------------------------------------------
IMPORT PROCEDURE OUT_TIME
"======================="
(R0; " C K REF TO TIME RECORD
" (YEAR, MONTH, DAY, HOUR, MIN, SEC: INTEGER)
R6); " C K LINK
"----------------------------------------------------------------------
" OUTPUTS THE TIME ON THE FORMAT YY:MM:DD HH:MM:SS
"----------------------------------------------------------------------
IMPORT PROCEDURE OUT_MESSAGE_HEADER
"================================="
(KIND: MESSAGE_TYPE;
R3; " C K ADDRESS OF TEXT
R6); " C K LINK
"----------------------------------------------------------------------
" OUTPUTS A STANDARD MESSAGE HEADER WITH THE FOLLOWING CONTENTS:
" <type> <prog.id>.<prog.version> <time> <text(r3)>
" THE TEXT REFERENCED BY R3 MUST BE TERMINATED WITH A (:0:).
" THIS PROCEDURE DOES NOT PRINT ANY <NL> CHARACTER, SO THE CALLER
" MAY WRITE ADDITIONAL INFORMATION ON THE SAME LINE.
"----------------------------------------------------------------------
«ff»
IMPORT PROCEDURE INIT_TEXT_OUTPUT
"==============================="
(R6); " C D LINK"
"------------------------------------------------------------
" Initializes the Text Output module
"------------------------------------------------------------
" end of TXT_OUT.I «a5»