L dumpline		# hexski dump 16 bytes to VGA given an even DI
			#  in VGA and the source to dump in SI
zero A
= 16 to C
 L stilldumplining
	= @ SI to A
	  call hexski
	+ 2 to DI
	1+ SI
     when C-1    		stilldumplining
return

# should switch to the proper bytetohex at some point




L hexski		# <perjorative ethnic adjective> CQD
			#  put_legible_byte_on_screen given byte in A
			#   and DI of VGA charcell
= A to B
AND 15 to A
downshift 4 to B
AND 15 to B
+ 0x30 to A
-test 0x3a to A
	when sign	Aisnum	 
+ 0x27 to A
L Aisnum 

+ 0x30 to B
-test 0x3a to B
	when sign	Bisnum	 
+ 0x27 to B
L Bisnum 
= byte B to @ DI
= byte A to @ 2 DI

return

cell=2








L rmodehexski                # <perjorative ethnic adjective> CQD
                        #  put_legible_byte_on_screen given byte in A
                        #   and DI of VGA charcell
= A to B
AND 15 to A
downshift 4 to B
AND 15 to B
+ 0x30 to A
-test 0x3a to A
        when sign       Aisnumr
+ 0x27 to A
L Aisnumr
+ 0x30 to B
-test 0x3a to B
        when sign       Bisnumr
+ 0x27 to B
L Bisnumr
= 0xb800 to C
= C to ES
= C to DS

= byte B to @ DI
+ 2 to DI
= byte A to @ DI

return


cell=4



L pagedump			# memloc to dump in A
= A to SI                  # hexdump
= $((0xb8040)) to DI
  call dumpline
= $((0xb8040+160)) to DI
  call dumpline
= $((0xb8040+320)) to DI
  call dumpline
= $((0xb8040+480)) to DI
  call dumpline
= $((0xb8040+640)) to DI
  call dumpline
= $((0xb8040+800)) to DI
  call dumpline
= $((0xb8040+960)) to DI
  call dumpline
= $((0xb8040+1120)) to DI
  call dumpline
return



