|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 762 (0x2fa)
Types: s3xseg
Names: »S$PRNT«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$PRNT«
MACRO 00010000
&LABEL $PRNT &LEN-,&NAME- 00070000
TABLE &LEN 00080000
'' TABDF '''LEN' 00090000
TABLE &NAME 00100000
'' TABDF '''NAME' 00110000
TEXT 00120000
* PRINT A MESSAGE ON SYSLOG RELEASE-7 00120001
AIF (T'&LABEL EQ 'O').A 00130000
&LABEL EQU * GENERATE USER LABEL 00140000
.A J $S&SYSNDX JUMP AROUND PARAMETER TABLE 00150000
$&SYSNDX EQU * GENERATE MACRO LABEL 00160000
DC XL2'0000' PRINT WITH WAIT COMMAND 00170000
DC AL1(&LEN) LENGTH OF OUTPUT MESSAGE 00180000
DC AL2(&NAME) OUTPUT MESSAGE ADDRESS 00190000
$S&SYSNDX LA $&SYSNDX,$PARM LOAD PARM TABLE @ IN REG 2 00200000
.B B 4 GO TO GENERAL ENTRY 00210000
DC XL1'85' RIB - PRINT 00220000
MEND 00240000
EQU * GENERATE MACRO LABEL 00160000 D
C XL2'0000' PRINT WITH W