blob: 00bcc698ae2c52b47da1143ae0d7afe75260db12 (plain)

ofs	hex dump	ascii
0000	52 65 3a 20 20 49 6e 63 6f 6e 73 69 73 74 65 6e 63 79 20 69 6e 20 43 50 2f 4d 20 4b 65 72 6d 69	Re:..Inconsistency.in.CP/M.Kermi
0020	74 20 56 65 72 73 69 6f 6e 20 34 2e 30 39 0d 0a 0d 0a 50 72 6f 62 6c 65 6d 3a 20 20 43 6f 6d 6d	t.Version.4.09....Problem:..Comm
0040	65 6e 74 73 20 69 6e 20 74 68 65 20 73 6f 75 72 63 65 2d 66 69 6c 65 73 20 69 6e 64 69 63 61 74	ents.in.the.source-files.indicat
0060	65 20 74 68 61 74 20 74 68 65 20 72 6f 75 74 69 6e 65 20 77 68 69 63 68 0d 0a 09 70 72 6f 63 65	e.that.the.routine.which...proce
0080	73 73 65 73 20 74 68 65 20 22 53 65 74 20 50 6f 72 74 22 20 63 6f 6d 6d 61 6e 64 2c 20 22 70 72	sses.the."Set.Port".command,."pr
00a0	74 73 65 74 22 20 69 6e 20 43 50 53 43 4f 4d 2e 41 53 4d 2c 20 72 65 74 75 72 6e 73 0d 0a 09 74	tset".in.CPSCOM.ASM,.returns...t
00c0	68 65 20 70 6f 72 74 20 76 61 6c 75 65 20 69 6e 20 74 68 65 20 72 65 67 69 73 74 65 72 20 70 61	he.port.value.in.the.register.pa
00e0	69 72 20 44 45 20 66 6f 72 20 74 68 65 20 73 79 73 74 65 6d 2d 64 65 70 65 6e 64 65 6e 74 0d 0a	ir.DE.for.the.system-dependent..
0100	09 72 6f 75 74 69 6e 65 20 74 6f 20 70 72 6f 63 65 73 73 2e 20 20 49 6e 20 66 61 63 74 2c 20 74	.routine.to.process...In.fact,.t
0120	68 65 20 76 61 6c 75 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6e 20 74 68 65 20 48 4c 0d 0a	he.value.is.returned.in.the.HL..
0140	09 72 65 67 69 73 74 65 72 20 70 61 69 72 2e 0d 0a 53 6f 6c 75 74 69 6f 6e 3a 20 20 45 69 74 68	.register.pair...Solution:..Eith
0160	65 72 20 28 31 29 20 70 75 74 20 61 20 22 78 63 68 67 22 20 69 6e 73 74 72 75 63 74 69 6f 6e 20	er.(1).put.a."xchg".instruction.
0180	61 66 74 65 72 20 74 68 65 20 22 73 68 6c 64 20 70 6f 72 74 22 0d 0a 09 69 6e 73 74 72 75 63 74	after.the."shld.port"...instruct
01a0	69 6f 6e 20 69 6e 20 22 70 72 74 73 65 74 22 20 61 6e 64 20 6d 6f 64 69 66 79 20 61 6c 6c 20 70	ion.in."prtset".and.modify.all.p
01c0	6f 72 74 2d 73 65 74 74 69 6e 67 20 72 6f 75 74 69 6e 65 73 20 77 68 69 63 68 0d 0a 09 65 78 70	ort-setting.routines.which...exp
01e0	65 63 74 20 74 68 65 20 70 6f 72 74 20 70 61 72 61 6d 65 74 65 72 20 69 6e 20 48 4c 2c 20 65 2e	ect.the.port.parameter.in.HL,.e.
0200	67 2e 2c 20 74 68 61 74 20 66 6f 72 20 74 68 6f 73 65 20 73 79 73 74 65 6d 73 20 75 73 69 6e 67	g.,.that.for.those.systems.using
0220	0d 0a 09 69 6f 62 79 74 65 20 72 65 64 69 72 65 63 74 69 6f 6e 2c 20 74 6f 20 67 65 74 20 74 68	...iobyte.redirection,.to.get.th
0240	65 20 76 61 6c 75 65 20 66 72 6f 6d 20 44 45 20 28 74 68 69 73 20 77 6f 75 6c 64 20 62 65 2c 20	e.value.from.DE.(this.would.be,.
0260	49 0d 0a 09 73 75 70 70 6f 73 65 2c 20 70 68 69 6c 6f 73 6f 70 68 69 63 61 6c 6c 79 20 63 6f 72	I...suppose,.philosophically.cor
0280	72 65 63 74 20 73 69 6e 63 65 20 74 68 69 73 20 77 6f 75 6c 64 20 63 6f 72 72 65 73 70 6f 6e 64	rect.since.this.would.correspond
02a0	20 74 6f 0d 0a 09 74 68 65 20 77 61 79 20 74 68 65 20 62 61 75 64 2d 72 61 74 65 2d 73 65 74 74	.to...the.way.the.baud-rate-sett
02c0	69 6e 67 20 72 6f 75 74 69 6e 65 20 68 61 6e 64 6c 65 73 20 74 68 69 6e 67 73 29 20 6f 72 0d 0a	ing.routine.handles.things).or..
02e0	09 28 32 29 20 63 68 61 6e 67 65 20 74 68 65 20 63 6f 6d 6d 65 6e 74 73 20 69 6e 20 43 50 53 44	.(2).change.the.comments.in.CPSD
0300	41 54 2e 41 53 4d 20 61 6e 64 20 43 50 58 4c 4e 4b 2e 41 53 4d 20 74 6f 20 73 68 6f 77 20 74 68	AT.ASM.and.CPXLNK.ASM.to.show.th
0320	65 0d 0a 09 72 65 74 75 72 6e 20 76 61 6c 75 65 20 66 72 6f 6d 20 22 70 72 74 73 65 74 22 20 69	e...return.value.from."prtset".i
0340	6e 20 48 4c 20 61 6e 64 20 6d 6f 64 69 66 79 20 74 68 65 20 22 73 79 73 70 72 74 22 20 72 6f 75	n.HL.and.modify.the."sysprt".rou
0360	74 69 6e 65 73 0d 0a 09 77 68 69 63 68 20 65 78 70 65 63 74 20 74 68 65 20 70 6f 72 74 20 76 61	tines...which.expect.the.port.va
0380	6c 75 65 20 69 6e 20 44 45 20 74 6f 20 67 65 74 20 69 74 20 66 72 6f 6d 20 48 4c 2e 20 20 49 20	lue.in.DE.to.get.it.from.HL...I.
03a0	63 68 6f 73 65 20 74 68 69 73 0d 0a 09 61 70 70 72 6f 61 63 68 20 61 73 20 69 74 20 61 70 70 65	chose.this...approach.as.it.appe
03c0	61 72 65 64 20 74 68 61 74 20 74 68 69 73 20 77 6f 75 6c 64 20 69 6e 76 6f 6c 76 65 20 6c 65 73	ared.that.this.would.involve.les
03e0	73 20 63 6f 64 65 20 63 68 61 6e 67 65 73 0d 0a 09 28 74 68 65 20 6f 6e 6c 79 20 73 79 73 74 65	s.code.changes...(the.only.syste
0400	6d 20 49 20 73 61 77 20 67 65 74 74 69 6e 67 20 70 6f 72 74 20 76 61 6c 75 65 73 20 66 72 6f 6d	m.I.saw.getting.port.values.from
0420	20 44 45 20 77 61 73 20 74 68 65 20 4c 6f 62 6f 29 2e 0d 0a 09 42 65 6c 6f 77 20 61 72 65 20 46	.DE.was.the.Lobo)....Below.are.F
0440	49 4c 43 4f 4d 73 20 6f 66 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 66 69 6c 65 73 20	ILCOMs.of.the.appropriate.files.
0460	73 68 6f 77 69 6e 67 20 74 68 65 73 65 20 63 68 61 6e 67 65 73 2e 0d 0a 0d 0a 46 69 6c 65 20 31	showing.these.changes.....File.1
0480	29 09 44 53 4b 45 3a 43 50 53 44 41 54 2e 41 53 4d 5b 31 30 2c 35 30 2c 4b 45 52 4d 49 54 2c 43	).DSKE:CPSDAT.ASM[10,50,KERMIT,C
04a0	50 4d 5d 09 63 72 65 61 74 65 64 3a 20 31 39 32 35 20 32 36 2d 41 75 67 2d 38 39 0d 0a 46 69 6c	PM].created:.1925.26-Aug-89..Fil
04c0	65 20 32 29 09 44 53 4b 45 3a 43 50 53 44 41 54 2e 41 53 4d 5b 31 30 2c 35 30 5d 20 20 20 20 20	e.2).DSKE:CPSDAT.ASM[10,50].....
04e0	20 20 20 20 20 20 09 63 72 65 61 74 65 64 3a 20 31 32 30 32 20 33 31 2d 41 75 67 2d 38 39 0d 0a	.......created:.1202.31-Aug-89..
0500	0d 0a 31 29 34 09 09 09 09 3b 20 63 61 6c 6c 65 64 20 77 69 74 68 20 76 61 6c 75 65 20 66 72 6f	..1)4....;.called.with.value.fro
0520	6d 20 74 61 62 6c 65 20 69 6e 20 44 45 0d 0a 31 29 09 73 79 73 73 63 72 3a 09 6a 6d 70 09 24 2d	m.table.in.DE..1).sysscr:.jmp.$-
0540	24 09 3b 20 73 63 72 65 65 6e 20 73 65 74 75 70 20 66 6f 72 20 66 69 6c 65 20 74 72 61 6e 73 66	$.;.screen.setup.for.file.transf
0560	65 72 0d 0a 2a 2a 2a 2a 0d 0a 32 29 34 09 09 09 09 3b 20 63 61 6c 6c 65 64 20 77 69 74 68 20 76	er..****..2)4....;.called.with.v
0580	61 6c 75 65 20 66 72 6f 6d 20 74 61 62 6c 65 20 69 6e 20 48 4c 0d 0a 32 29 09 73 79 73 73 63 72	alue.from.table.in.HL..2).sysscr
05a0	3a 09 6a 6d 70 09 24 2d 24 09 3b 20 73 63 72 65 65 6e 20 73 65 74 75 70 20 66 6f 72 20 66 69 6c	:.jmp.$-$.;.screen.setup.for.fil
05c0	65 20 74 72 61 6e 73 66 65 72 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 46 69	e.transfer..**************....Fi
05e0	6c 65 20 31 29 09 44 53 4b 45 3a 43 50 58 4c 4e 4b 2e 41 53 4d 5b 31 30 2c 35 30 2c 4b 45 52 4d	le.1).DSKE:CPXLNK.ASM[10,50,KERM
0600	49 54 2c 43 50 4d 5d 09 63 72 65 61 74 65 64 3a 20 31 38 32 36 20 32 36 2d 41 75 67 2d 38 39 0d	IT,CPM].created:.1826.26-Aug-89.
0620	0a 46 69 6c 65 20 32 29 09 44 53 4b 45 3a 43 50 58 4c 4e 4b 2e 41 53 4d 5b 31 30 2c 35 30 5d 20	.File.2).DSKE:CPXLNK.ASM[10,50].
0640	20 20 20 20 20 20 20 20 20 20 09 63 72 65 61 74 65 64 3a 20 31 31 35 37 20 33 31 2d 41 75 67 2d	...........created:.1157.31-Aug-
0660	38 39 0d 0a 0d 0a 31 29 31 09 09 09 09 3b 20 63 61 6c 6c 65 64 20 77 69 74 68 20 76 61 6c 75 65	89....1)1....;.called.with.value
0680	20 66 72 6f 6d 20 74 61 62 6c 65 20 69 6e 20 44 45 0d 0a 31 29 09 09 6a 6d 70 09 73 79 73 73 63	.from.table.in.DE..1)..jmp.syssc
06a0	72 09 3b 20 73 63 72 65 65 6e 20 73 65 74 75 70 20 66 6f 72 20 66 69 6c 65 20 74 72 61 6e 73 66	r.;.screen.setup.for.file.transf
06c0	65 72 0d 0a 2a 2a 2a 2a 0d 0a 32 29 31 09 09 09 09 3b 20 63 61 6c 6c 65 64 20 77 69 74 68 20 76	er..****..2)1....;.called.with.v
06e0	61 6c 75 65 20 66 72 6f 6d 20 74 61 62 6c 65 20 69 6e 20 48 4c 0d 0a 32 29 09 09 6a 6d 70 09 73	alue.from.table.in.HL..2)..jmp.s
0700	79 73 73 63 72 09 3b 20 73 63 72 65 65 6e 20 73 65 74 75 70 20 66 6f 72 20 66 69 6c 65 20 74 72	ysscr.;.screen.setup.for.file.tr
0720	61 6e 73 66 65 72 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 46 69 6c 65 20 31	ansfer..**************....File.1
0740	29 09 44 53 4b 45 3a 43 50 58 53 59 32 2e 41 53 4d 5b 31 30 2c 35 30 2c 4b 45 52 4d 49 54 2c 43	).DSKE:CPXSY2.ASM[10,50,KERMIT,C
0760	50 4d 5d 09 63 72 65 61 74 65 64 3a 20 30 37 34 33 20 32 38 2d 41 75 67 2d 38 39 0d 0a 46 69 6c	PM].created:.0743.28-Aug-89..Fil
0780	65 20 32 29 09 44 53 4b 45 3a 43 50 58 53 59 32 2e 41 53 4d 5b 31 30 2c 35 30 5d 20 20 20 20 20	e.2).DSKE:CPXSY2.ASM[10,50].....
07a0	20 20 20 20 20 20 09 63 72 65 61 74 65 64 3a 20 31 32 31 30 20 33 31 2d 41 75 67 2d 38 39 0d 0a	.......created:.1210.31-Aug-89..
07c0	0d 0a 31 29 34 09 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 61 2c 65 20 20 20 20 20 20 20	..1)4.........mov.....a,e.......
07e0	20 20 20 20 20 20 3b 5b 68 68 5d 20 67 65 74 20 74 68 65 20 64 61 74 61 20 70 6f 72 74 20 76 61	......;[hh].get.the.data.port.va
0800	6c 75 65 20 61 6e 64 20 73 74 6f 72 65 20 61 74 0d 0a 31 29 09 20 20 20 20 20 20 20 20 73 74 61	lue.and.store.at..1).........sta
0820	20 20 20 20 20 6f 75 74 6d 64 33 2b 31 20 20 20 20 20 20 20 20 3b 5b 68 68 5d 20 74 68 65 20 74	.....outmd3+1........;[hh].the.t
0840	77 6f 20 70 6c 61 63 65 73 20 77 65 20 75 73 65 2e 2e 2e 0d 0a 2a 2a 2a 2a 0d 0a 32 29 34 09 20	wo.places.we.use.....****..2)4..
0860	20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 61 2c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 3b	.......mov.....a,l.............;
0880	5b 68 68 5d 20 67 65 74 20 74 68 65 20 64 61 74 61 20 70 6f 72 74 20 76 61 6c 75 65 20 61 6e 64	[hh].get.the.data.port.value.and
08a0	20 73 74 6f 72 65 20 61 74 0d 0a 32 29 09 20 20 20 20 20 20 20 20 73 74 61 20 20 20 20 20 6f 75	.store.at..2).........sta.....ou
08c0	74 6d 64 33 2b 31 20 20 20 20 20 20 20 20 3b 5b 68 68 5d 20 74 68 65 20 74 77 6f 20 70 6c 61 63	tmd3+1........;[hh].the.two.plac
08e0	65 73 20 77 65 20 75 73 65 2e 2e 2e 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 29	es.we.use.....**************..1)
0900	34 09 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 61 2c 64 20 20 20 20 20 20 20 20 20 20 20	4.........mov.....a,d...........
0920	20 20 3b 5b 68 68 5d 20 6e 6f 77 20 67 65 74 20 74 68 65 20 62 61 75 64 20 72 61 74 65 20 70 6f	..;[hh].now.get.the.baud.rate.po
0940	72 74 20 76 61 6c 75 65 0d 0a 31 29 09 20 20 20 20 20 20 20 20 73 74 61 20 20 20 20 20 67 65 74	rt.value..1).........sta.....get
0960	62 64 2b 31 20 20 20 20 20 20 20 20 20 3b 5b 68 68 5d 20 73 74 6f 72 65 20 69 74 20 69 6e 20 74	bd+1.........;[hh].store.it.in.t
0980	68 65 20 74 77 6f 20 70 6c 61 63 65 73 20 77 65 20 75 73 65 2e 2e 2e 0d 0a 2a 2a 2a 2a 0d 0a 32	he.two.places.we.use.....****..2
09a0	29 34 09 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 61 2c 68 20 20 20 20 20 20 20 20 20 20	)4.........mov.....a,h..........
09c0	20 20 20 3b 5b 68 68 5d 20 6e 6f 77 20 67 65 74 20 74 68 65 20 62 61 75 64 20 72 61 74 65 20 70	...;[hh].now.get.the.baud.rate.p
09e0	6f 72 74 20 76 61 6c 75 65 0d 0a 32 29 09 20 20 20 20 20 20 20 20 73 74 61 20 20 20 20 20 67 65	ort.value..2).........sta.....ge
0a00	74 62 64 2b 31 20 20 20 20 20 20 20 20 20 3b 5b 68 68 5d 20 73 74 6f 72 65 20 69 74 20 69 6e 20	tbd+1.........;[hh].store.it.in.
0a20	74 68 65 20 74 77 6f 20 70 6c 61 63 65 73 20 77 65 20 75 73 65 2e 2e 2e 0d 0a 2a 2a 2a 2a 2a 2a	the.two.places.we.use.....******
0a40	2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 45 2d 6d 61 69 6c 20 72 65 70 6c 69 65 73 20 6d 61 79 20 62	********....E-mail.replies.may.b
0a60	65 20 73 65 6e 74 20 74 6f 20 6d 65 20 76 69 61 20 42 69 74 6e 65 74 20 61 74 20 6d 61 69 6c 65	e.sent.to.me.via.Bitnet.at.maile
0a80	72 40 75 77 61 6c 6f 63 6b 65 2e 0d 0a 50 6c 65 61 73 65 20 70 6c 61 63 65 20 6f 6e 20 74 68 65	r@uwalocke...Please.place.on.the
0aa0	20 73 75 62 6a 65 63 74 20 6c 69 6e 65 20 74 68 65 20 70 68 72 61 73 65 20 3c 64 65 63 31 30 25	.subject.line.the.phrase.<dec10%
0ac0	22 62 70 61 22 3e 20 28 6c 65 73 73 20 74 68 65 20 61 6e 67 6c 65 2d 0d 0a 62 72 61 63 6b 65 74	"bpa">.(less.the.angle-..bracket
0ae0	73 29 2e 0d 0a 2d 2d 20 4d 69 6b 65 20 46 72 65 65 6d 61 6e 20 28 72 6f 75 74 69 6e 67 20 4d 4f	s)...--.Mike.Freeman.(routing.MO
0b00	52 46 29 3b 20 42 6f 6e 6e 65 76 69 6c 6c 65 20 50 6f 77 65 72 20 41 64 6d 69 6e 69 73 74 72 61	RF);.Bonneville.Power.Administra
0b20	74 69 6f 6e 3b 20 50 2e 4f 2e 20 42 6f 78 0d 0a 34 39 31 3b 20 56 61 6e 63 6f 75 76 65 72 2c 20	tion;.P.O..Box..491;.Vancouver,.
0b40	57 61 20 39 38 36 36 36 3b 20 54 65 6c 65 70 68 6f 6e 65 20 28 32 30 36 29 36 39 30 2d 32 33 30	Wa.98666;.Telephone.(206)690-230
0b60	37 20 2d 2d 0d 0a 00 00 0d 0a	7.--......