view release on metacpan or  search on metacpan

t/dis_zx48.t  view on Meta::CPAN

	$self->labels->add(0x5C4D, 'DEST'      )->comment("Address of variable in assignment.");
	$self->labels->add(0x5C4F, 'CHANS'     )->comment("Address of channel data.");
	$self->labels->add(0x5C51, 'CURCHL'    )->comment("Address of information currently being used for\n".
													  "input and output.");
	$self->labels->add(0x5C53, 'PROG'      )->comment("Address of BASIC program.");
	$self->labels->add(0x5C55, 'NXTLIN'    )->comment("Address of next line in program.");
	$self->labels->add(0x5C57, 'DATADD'    )->comment("Address of terminator of last DATA item.");
	$self->labels->add(0x5C59, 'E_LINE'    )->comment("Address of command being typed in.");
	$self->labels->add(0x5C5B, 'K_CUR'     )->comment("Address of cursor.");
	$self->labels->add(0x5C5D, 'CH_ADD'    )->comment("Address of the next character to be interpreted:\n".
													  "the character after the argument of PEEK, or\n".
													  "the NEWLINE at the end of a POKE statement.");
	$self->labels->add(0x5C5F, 'X_PTR'     )->comment("Address of the character after the ? marker.");
	$self->labels->add(0x5C61, 'WORKSP'    )->comment("Address of temporary work space.");
	$self->labels->add(0x5C63, 'STKBOT'    )->comment("Address of bottom of calculator stack.");
	$self->labels->add(0x5C65, 'STKEND'    )->comment("Address of start of spare space.");
	$self->labels->add(0x5C67, 'BREG'      )->comment("Calculator's b register.");
	$self->labels->add(0x5C68, 'MEM'       )->comment("Address of area used for calculator's memory.\n".
													  "(Usually MEMBOT, but not always.)");
	$self->labels->add(0x5C6A, 'FLAGS2'    )->comment("More flags.");
	$self->labels->add(0x5C6B, 'DF_SZ'     )->comment("The number of lines (including one blank line)\n".
													  "in the lower part of the screen.");
	$self->labels->add(0x5C6C, 'S_TOP'     )->comment("The number of the top program line in automatic\n".
													  "listings.");
	$self->labels->add(0x5C6E, 'OLDPPC'    )->comment("Line number to which CONTINUE jumps.");
	$self->labels->add(0x5C70, 'OSPCC'     )->comment("Number within line of statement to which\n".
													  "CONTINUE jumps.");
	$self->labels->add(0x5C71, 'FLAGX'     )->comment("Various flags.");
	$self->labels->add(0x5C72, 'STRLEN'    )->comment("Length of string type destination in assignment.");
	$self->labels->add(0x5C74, 'T_ADDR'    )->comment("Address of next item in syntax table (very unlikely\n".
													  "to be useful).");
	$self->labels->add(0x5C76, 'SEED'      )->comment("The seed for RND. This is the variable that is set\n".
													  "by RANDOMIZE.");
	$self->labels->add(0x5C78, 'FRAMES'    )->comment("3 byte (least significant first), frame counter.\n".
													  "Incremented every 20ms. See Chapter 18.");
	$self->labels->add(0x5C7A, 'FRAMES3'   )->comment("3rd byte of FRAMES");
	$self->labels->add(0x5C7B, 'UDG'       )->comment("Address of 1st user defined graphic You can change\n".
													  "this for instance to save space by having fewer\n".
													  "user defined graphics.");
	$self->labels->add(0x5C7D, 'COORDS'    )->comment("x-coordinate of last point plotted.");
	$self->labels->add(0x5C7E, 'COORDS_hi' )->comment("y-coordinate of last point plotted.");
	$self->labels->add(0x5C7F, 'P_POSN'    )->comment("33 column number of printer position");
	$self->labels->add(0x5C80, 'PR_CC'     )->comment("Full address of next position for LPRINT to print at\n".
													  "(in ZX printer buffer). Legal values 5B00 - 5B1F.\n".
													  "[Not used in 128K mode or when certain peripherals\n".
													  "are attached]");
	$self->labels->add(0x5C82, 'ECHO_E'    )->comment("33 column number and 24 line number (in lower half)\n".
													  "of end of input buffer.");
	$self->labels->add(0x5C84, 'DF_CC'     )->comment("Address in display file of PRINT position.");
	$self->labels->add(0x5C86, 'DFCCL'     )->comment("Like DF CC for lower part of screen.");
	$self->labels->add(0x5C88, 'S_POSN'    )->comment("33 column number for PRINT position");
	$self->labels->add(0x5C89, 'S_POSN_hi' )->comment("24 line number for PRINT position.");
	$self->labels->add(0x5C8A, 'SPOSNL'    )->comment("Like S POSN for lower part");
	$self->labels->add(0x5C8C, 'SCR_CT'    )->comment("Counts scrolls: it is always 1 more than the number\n".
													  "of scrolls that will be done before stopping with\n".
													  "scroll? If you keep poking this with a number\n".
													  "bigger than 1 (say 255), the screen will scroll\n".
													  "on and on without asking you.");
	$self->labels->add(0x5C8D, 'ATTR_P'    )->comment("Permanent current colours, etc (as set up by colour\n".
													  "statements).");
	$self->labels->add(0x5C8E, 'MASK_P'    )->comment("Used for transparent colours, etc. Any bit that\n".
													  "is 1 shows that the corresponding attribute bit\n".
													  "is taken not from ATTR P, but from what is already\n".
													  "on the screen.");
	$self->labels->add(0x5C8F, 'ATTR_T'    )->comment("Temporary current colours, etc (as set up by\n".
													  "colour items).");
	$self->labels->add(0x5C90, 'MASK_T'    )->comment("Like MASK P, but temporary.");
	$self->labels->add(0x5C91, 'P_FLAG'    )->comment("More flags.");
	$self->labels->add(0x5C92, 'MEMBOT'    )->comment("Calculator's memory area; used to store numbers\n".
													  "that cannot conveniently be put on\n".
													  "the calculator stack.");
	$self->labels->add(0x5CB0, 'NMIADD'    )->comment("This is the address of a user supplied NMI address\n".
													  "which is read by the standard ROM when a peripheral\n".
													  "activates the NMI. Probably intentionally disabled\n".
													  "so that the effect is to perform a reset if both\n".
													  "locations hold zero, but do nothing if the locations\n".
													  "hold a non-zero value. Interface 1's with serial\n".
													  "number greater than 87315 will initialize these\n".
													  "locations to 0 and 80 to allow the RS232 \"T\" channel\n".
													  "to use a variable line width. 23728 is the current\n".
													  "print position and 23729 the width - default 80.");
	$self->labels->add(0x5CB2, 'RAMTOP'    )->comment("Address of last byte of BASIC system area.");
	$self->labels->add(0x5CB4, 'P_RAMT'    )->comment("Address of last byte of physical RAM.");
	
	$self->iy_base(0x5C3A);
}