|
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: 1276 (0x4fc)
Types: TextFile
Names: »CONV.S.I«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─ ⟦this⟧ »CSP004_V0801.D!CSS197.D!CONV.S.I«
%LIST %LIST %LIST
"-----------------------------------------------------------------------
"
" MODULE NAME: CONV_TIME
" MODULE ID NMB: CSS/197
" MODULE VERSION: 02
" MODULE RELEASE: 01
" RELEASE DATE: 860725
"
"-----------------------------------------------------------------------
%NOLIST %NOLIST %NOLIST
type relation = (less, equal, greater);
type extended_dtg =
record
year, month, day,
hour, min_, sec, millisec: integer
end;
type packed_time =
array [0..2] of integer;
IMPORT
procedure pack_time
(r0; "- R CC
r4; "C K address(packed_time)
r7; "C K address(DTG)
r6); "- D link
IMPORT
procedure unpack_time
(r4; "C K address(packed_time)
r7; "C K address(DTG)
r6); "- D link
IMPORT
procedure pack_extended_time
(r0; "- R CC
r4; "C K address(packed_time)
r7; "C K address(EXTENDED_DTG)
r6); "- D link
IMPORT
procedure unpack_extended_time
(r4; "C K address(packed_time)
r7; "C K address(EXTENDED_DTG)
r6); "- D link
IMPORT
procedure comp_time
(r0; "- R result (less,equal,greater)
r1; "C D address(packed_time1)
r2; "C D address(packed_time2)
r6); "- K link
«a5»