Index MEMORY PLUS Manual By Lee Davison and Hans Otten Back to The Computerist

Previous page Next page

Page 23




  0091	48				PHA		ON STACK
  0092	A0 04				LDYIM	$04	SHIFT 4 POSITIONS PER CHARACTER
  0094	A5 D8				LDAZ	ADATA	GET DATA
  0096	29 0F				ANDIM	$0F	MASK TO NIBBLE
  0098	C9 0A				CMPIM	$0A	TEST DECIMAL
  009A	30 03				BMI	AOKAY	DECIMAL
  009C	18				CLC		A - F. MUST CONVERT TO
  009D	69 07				ADCIM	$07	ASCII
  009F	18		AOKAY		CLC		FINISH CONVERSION
  00A0	69 B0				ADCIM	$B0	ASCII + AIM FLAG
  00A2	20 7B EF			JSR	ASCOUT	OUTPUT TO DISPLAY
  00A5	46 D6		AMOVE		LSRZ	AHICH	MOVE TO NEXT NIBBLE
  00A7	66 D7				RORZ	ALOW
  00A9	66 D8				RORZ	ADATA
  00AB	88			   	DEY
  00AC	D0 F7				BNE	AMOVE

  00AE	68				PLA		RESTORE X
  00AF	AA				TAX
  00B0	CA				DEX
  00B1	E0 0E				CPXIM	$0E	DONE?
  00B3	B0 DB				BCS	ALOOP	NO
  00B5	90 C9				BCC	AIM	YES. REPEAT

  00B7	20 86 8B	SYM		JSR	ACCESS	ENABLE SYM MOEMORY
  00BA	A5 D2				LDAZ	POINTH
  00BC	20 FA 82			JSR	OUTBYT	OUTPUT
  00BF	A5 D1				LDAZ	POINTL
  00C1	20 FA 82			JSR	OUTBYT
  00C4	A0 00				LDYIM	$00
  00C6	B1 D1				LDAIY	POINTL	GET DATA
  00C8	20 FA 82			JSR	OUTBYT

  00CB	20 06 89	DISPLY		JSR	SCANDS	SCAN DISPLAY
  00CE	4C CB 00			JMP	DISPLY	CONTINUE

  00D1	00		POINTL		=	$00
  00D2	00		POINTH		=	$00
  00D3	00		FLAG		=	$00
  00D4	00		FLIP		=	$00
  00D5	00		PASS		=	$00
  00D6	00		AHIGH		=	$00
  00D7	00		ALOW		=	$00
  00D8	00		ADATA		=	$00









 


Previous page Next page
Page 23

Last page update: April 6, 2017.