Data update

This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions

View file

@ -0,0 +1,13 @@
HELLO CSECT
PRINT NOGEN
BALR 12,0
USING *,12
OPEN LNPRNTR
LA 6,HW
PUT LNPRNTR
CLOSE LNPRNTR
EOJ
LNPRNTR DTFPR DEVADDR=SYSLST,IOAREA1=L1
L1 DS 0CL133
HW DC C'Hello World!'
END HELLO

View file

@ -0,0 +1,19 @@
HELLO CSECT
SAVE (14,12)
BASR 12,0
USING *,12
ST 13,SAVEA+4
LA 13,SAVEA
OPEN (SYSPRINT,OUTPUT)
PUT SYSPRINT,HELLOREC
CLOSE SYSPRINT
L 13,SAVEA+4
RETURN (14,12),RC=0
HELLOREC DC CL80'HELLO, WORLD!'
SYSPRINT DCB DDNAME=SYSPRINT, X
DSORG=PS, X
MACRF=PM, X
RECFM=FB, X
LRECL=80
SAVEA DS 18F
END

View file

@ -0,0 +1,17 @@
with Ada.Text_IO; use Ada.Text_IO;
procedure Print_Line is
Printer : File_Type;
begin
begin
Open (Printer, Mode => Out_File, Name => "/dev/lp0");
exception
when others =>
Put_Line ("Unable to open printer.");
return;
end;
Set_Output (Printer);
Put_Line ("Hello World!");
Close (Printer);
end Print_Line;

View file

@ -0,0 +1,8 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. GOODBYE-WORLD-PRINTER.
PROCEDURE DIVISION.
DISPLAY 'Hello World!'
UPON PRINTER
END-DISPLAY.
STOP RUN.

View file

@ -0,0 +1,3 @@
lprinter
print "Hello, world!"
end

View file

@ -0,0 +1,3 @@
$constant PRINTER 1
print #PRINTER; "Hello, world!"
end