Star Micronics NX-2420 user manual OUT &H3BC,I OUT &H3BE,S OUT &H3BE,J Return

Most BASICS, however, are not quite that straightforward. For example, the IBM-PC will give you a printout similar to Figure 2-6.

	00	01	02	03	04	05	06	07	08	09	OA	OB	OC	OD	OA	OE	. . . . . . . . . . . . .
	OF	10	11	12	13	14	15	16	17	58	19	1B	1C	1D	1E	1F	. . . . . . . .	. . .
	20	21	22	23	24	25	26	27	28	29	2A	26	2C	20	2E	2F	‘i”#$%as()*+,-./
	30	31	37	33	34	35	36	37	38	39	3A	38	3C	30	3E	3F	0123456789::<=>?
	40	41	42	43	44	45	46	47	48	49	4A	46	4C	40	4E	4F	@ABCDEFGHIJKLMNO
	50	51	52	53	54	55	56	57	58	59	5A	58	5C	5D	5E	5F	PQRSTUVWXYZ[\]--
	60	61	62	63	64	65	66	67	68	69	6A	68	6C	60	6E	6F	‘abcdefghijklmno
	70	71	72	73	74	75	76	77	78	79	7A	78	7C	70	7E	7F	pqrstuvwxyz(()--.
	80	81	82	83	84	85	86	87	88	89	8A	8B	8C	8D	BE	8F	. . . . . . . . .	. . .
	90	91	92	93	94	95	96	97	98	99	9A	96	9C	9D	9E	9F	. . . . . . . . . . . . . . .
	A0	Al	A2	A3	A4	A5	A6	A7	A8	A9	AA	AB AC AD AE AF					. . . . . . . . . . . .	. . . .
	BO	Bl	82	83	B4	85	86	87	B8	B9 BA BB BC BD BE						BF	. . . . . . . . . . . .	. . . .
L..	co	Cl	CT.2	c3	c4	c5	cs	c7	C8	CQ	CA	CB	CC	CD	CE	CF	. . . . . . . . . . . .	. . . .
	DO	Dl	D2	03	04	D5	D6	D7	D8	D9	DA	DB DC DD DE				DF		. . .
																	. . . . . . . . . . . .
	EO	El	E2	E3	E4	E5	E6	E7	E8	E9	EA	EB	EC	ED	EE	EF	. . . . . . . . . . . .	. . . .
	FO	Fl	F2	F3	F4	F5	F6	F7	F8	F9	FA	FB	FC	FD	FE	FF	. . . . . . . . . . . .	. . . .
	OD	OA															.

Figure 2-8. Sample hexadecimal dump with IBM-PC

When the IBM-PC BASIC interpreter sends hex code OD (carriage return) it adds an extra hex OA (line feed). Hex code 1A (end-of-file) also gets special treatment: the interpreter does not send it at all. This can cause problems with graphics or download character data. However, you can solve this problem by changing line 30 in the preceding program and adding the coding shown below.

Coding for IBM-PC with monochrome display:

30 GOSUB 100

100 X=INP(&H3BD) :IF X<128 THEN 100

110 OUT &H3BC,I :OUT &H3BE,S :OUT &H3BE,J

120 RETURN

c

Coding for IBM-PC with color adapter:

30 GOSUB 100

100 X=INP(&H379) :IF X<128 THEN 100

110 OUT &H378,1 :OUT &H37A,5 :OUT &H37A,4

120 RETURN

31

r