53 lines
1.1 KiB
Plaintext
53 lines
1.1 KiB
Plaintext
|
--
|
|||
|
|
-- QPUT.ADA
|
|||
|
|
--
|
|||
|
|
-- Quick console output procedure for Artek Ada
|
|||
|
|
--
|
|||
|
|
-- Copyright (C) 1986 Artek Corporation
|
|||
|
|
--
|
|||
|
|
-- This procedure uses the DOS Quick Write Interrupt
|
|||
|
|
-- (29h) to achieve fast console output.
|
|||
|
|
--
|
|||
|
|
-- Example of usage:
|
|||
|
|
--
|
|||
|
|
-- with QPUT;
|
|||
|
|
-- procedure EXAMPLE is
|
|||
|
|
-- begin
|
|||
|
|
-- QPUT ("Hello, world!");
|
|||
|
|
-- end EXAMPLE;
|
|||
|
|
--
|
|||
|
|
|
|||
|
|
procedure QPUT (S : in STRING) is
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
--
|
|||
|
|
-- The pragma below represents the following assembly language code:
|
|||
|
|
--
|
|||
|
|
-- CGROUP GROUP CODE
|
|||
|
|
-- CODE SEGMENT 'CODE'
|
|||
|
|
-- ASSUME CS:CGROUP, DS:NOTHING, ES:NOTHING
|
|||
|
|
--
|
|||
|
|
-- QPUT PROC FAR
|
|||
|
|
--
|
|||
|
|
-- MOV CX, [SI+4] ; Load S . SUBSIZE
|
|||
|
|
-- JCXZ ENDQP ; Size is zero; don't print
|
|||
|
|
-- MOV SI, [SI] ; Load S . ADDRESS
|
|||
|
|
-- QPLOOP:
|
|||
|
|
-- LODSB
|
|||
|
|
-- INT 29h ; Quick Write interrupt
|
|||
|
|
-- LOOP QPLOOP
|
|||
|
|
-- ENDQP:
|
|||
|
|
--
|
|||
|
|
-- QPUT ENDP
|
|||
|
|
--
|
|||
|
|
-- CODE ENDS
|
|||
|
|
--
|
|||
|
|
-- END QPUT
|
|||
|
|
--
|
|||
|
|
pragma NATIVE (
|
|||
|
|
16#8B#, 16#4C#, 16#04#, 16#E3#, 16#07#, 16#8B#, 16#34#, 16#AC#,
|
|||
|
|
16#CD#, 16#29#, 16#E2#, 16#FB#);
|
|||
|
|
null; -- For correct Ada syntax
|
|||
|
|
end QPUT;
|
|||
|
|
|
|||
|
|
|