Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/maint/type4.mac
There is 1 other file named type4.mac in the archive. Click here to see a list.
TITLE TYPE4
COMMENT /
THIS IS A SUBPROGRAM TO PROGRAM SUTLS1 THAT UNPACKS A LS1
TYPE 4 RECORD.
CALL FORMAT:
ENTER TYPE4 USING I-WORD, ZLNSRC,ZLNOK,ZLNIND,ZLNSRC1,ZLNOK1,ZLNIND1
ENTRY CONDITION:
X16 -> TO AN ARRAY WITH ADDRESSES TO THE ARGUMENTS
AUTHOR: OLOF BJ@RNER, ENEA, JULY 1973
REVISION HISTORY:
-----------------
/
SEARCH SIMMAC
SALL
MACINIT
ENTRY TYPE4
LNID: POINT 7,X6,24
LNSRC: POINT 1,X6,25
LNOK: POINT 1,X6,26
LNIND: POINT 8,X6,34
TYPE4: PROC
SAVE <X1,X2,X3,X4,X5,X6,X7>
L X1,(X16) ;ADDRESS TO ZI-WORD
L X2,1(X16) ; TO LNSRC
L X3,2(X16) ; TO LNOK
L X4,3(X16) ; TO LNIND
L X5,4(X16) ; TO LNSRC1
HLRZ X6,(X1) ;LOAD FIRST RECORD
EXEC FILL
HRRZ X6,(X1) ;LOAD SECOND
LDB X7,LNID
IF ;MORE THAN ONE RECORD
CAIN X7,0
GOTO FALSE
THEN L X2,4(X16)
L X3,5(X16)
L X4,6(X16)
EXEC FILL
ELSE SETOM (X5) ;FLAG ONLY ONE RECORD
FI
RETURN
EPROC
FILL:
LDB X7,LNSRC
ST X7,(X2)
LDB X7,LNOK
ST X7,(X3)
LDB X7,LNIND
ST X7,(X4)
RETURN
LIT
END