Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/tkb-vnp/textd.rpt
There are no other files named textd.rpt in the archive.
DSK:TEXTD.REQ[4,31] 31-Aug-79 14:28
!
! DEFINE THE STORAGE BLOCK USED TO DESCRIBE OBJECT TEXT DATA
!
!
! DEFINE THE MAX BYTES OF DATA WHICH CAN FIT INTO THIS BLOCK
! BEFORE WE MUST GO TO ANOTHER BLOCK.
!
LITERAL
MAX_TEXT_DATA = 63;
!
SBLOCK (TEXTD, 11) !THE TEXT ITSELF
HEADER (TEXTD) !
ABLOCK (TEXTD_TH, %BPADDR, 1) !UP POINTER TO TEXT HEADER
ABLOCK (TEXTD_NEXT, %BPADDR, 1) !NEXT TEXT DATA BLOCK
ABLOCK (TEXTD_PREV, %BPADDR, 1) !PREVIOUS TEXT DATA BLOCK
ABLOCK (TEXTD_NUM_BYTES, %NBITSU (MAX_TEXT_DATA), 1) !LENGTH
ABLOCK (TEXTD_DATA, MAX_TEXT_DATA*9, 2) !DATA (9 BECAUSE OF DEC-10/20)
EBLOCK (TEXTD) !
!