|
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$SNAP«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$SNAP«
MACRO 00010000
&NAME $SNAP &ID-,&START-,&END- 00020000
GBLB &$MDP,&$MG 00170000
TEXT 00180000
AIF (T'&NAME EQ 'O').PRINT 00190000
&NAME EQU * 00200000
.PRINT AIF (&$MG EQ '0').TEXT 00210000
PRINT OFF 00220000
.TEXT ANOP 00230000
*** $SNAP SNAP DUMP OF CORE RELEASE-7 *** 00240000
BC $$BMDP,X'FF' BRANCH TO THE SNAP ENTRY POINT 00250000
AIF (&$MDP).JUMP 00260000
&$MDP SETB 1 00270000
EXTRN $$BMDP MODULE NAME FOR SNAP 00280000
.JUMP DC XL2'&ID' IDENTIFICATION CHARACTERS 00300000
DC AL2(&START) STARTING ADDRESS 00310000
DC AL2(&END) ENDING ADDRESS 00320000
*** END OF $SNAP EXPANSION *** 00330000
AIF (&$MG EQ '0').DONE 00340000
PRINT ON 00350000
.DONE MEND 00360000
00000 .PRINT AIF (&$MG EQ '0').TEXT DID $GEN MACRO S