[unix-history] / dskio.s

" dskio

dskrd0: 0
   dzm side
   jms dskio; 02000
   jmp i dskrd0

dskwr0: 0
   dzm side
   jms dskio; 03000
   jmp i dskwr0

dskrd1: 0
   lmq
   lac o200000
   dac side
   lacq
   jms dskio; 02000
   jmp i dskrd1

dskwr1: 0
   lmq
   lac o200000
   dac side
   lacq
   jms dskio; 03000
   jmp i dskwr1


iskio: 0
   cll; idiv; 80
   dac 2f
   lacq
   idiv; 10
   dac 3f
   lls 22
   xor 3f
   als 8
   dac 3f
   lac 2f
   idiv; 10
   dac 2f
   lls 22
   xor 2f
   xor 3f
   xor side
   dac 2f
   -10
   dac 3f
1:
   dscs
   -640
   dslw
   lac dskbufp
   dslm
   lac 2f
   dsld
   lac dskio i
   dsls
   dssf
   jmp .-1
   dsrs
   sma
   jmp 1f
   isz 3f
   jmp 1b
   hlt
1:
   isz dskio
   jmp i dskio
2: 0
3: 0

o200000: 0200000
dskbufp: dskbuf

side: .=.+1
dskbuf: .=.+640
Commit	Line	Data
69f28986 KT	1	" dskio
	2
	3	dskrd0: 0
	4	dzm side
	5	jms dskio; 02000
	6	jmp i dskrd0
	7
	8	dskwr0: 0
	9	dzm side
	10	jms dskio; 03000
	11	jmp i dskwr0
	12
	13	dskrd1: 0
	14	lmq
	15	lac o200000
	16	dac side
	17	lacq
	18	jms dskio; 02000
	19	jmp i dskrd1
	20
	21	dskwr1: 0
	22	lmq
	23	lac o200000
	24	dac side
	25	lacq
	26	jms dskio; 03000
	27	jmp i dskwr1
	28
	29
	30	iskio: 0
	31	cll; idiv; 80
	32	dac 2f
	33	lacq
	34	idiv; 10
	35	dac 3f
	36	lls 22
	37	xor 3f
	38	als 8
	39	dac 3f
	40	lac 2f
	41	idiv; 10
	42	dac 2f
	43	lls 22
	44	xor 2f
	45	xor 3f
	46	xor side
	47	dac 2f
	48	-10
	49	dac 3f
	50	1:
	51	dscs
	52	-640
	53	dslw
	54	lac dskbufp
	55	dslm
	56	lac 2f
	57	dsld
	58	lac dskio i
	59	dsls
	60	dssf
	61	jmp .-1
	62	dsrs
	63	sma
	64	jmp 1f
65	isz 3f
66	jmp 1b
67	hlt
68	1:
69	isz dskio
70	jmp i dskio
71	2: 0
72	3: 0
73
74	o200000: 0200000
75	dskbufp: dskbuf
76
77	side: .=.+1
78	dskbuf: .=.+640