Context Navigation

WAIT.S@ f40a309

Last change on this file since f40a309 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Imported original source code.
Property mode set to `100755`
File size: 790 bytes

Rev	Line
[3ae31e9]	1	*
	2	* wait.s -- Wait for a CR on CON:
	3	* Version 1 -- 1987-02-05 -- D.N. Lynx Crowe
	4	*
	5	* This is hand optimized C compiler output, which is why it looks so strange
	6	*
	7	.text
	8	*
	9	_main: link a6,#0
	10	movem.l d6-d7,-(sp)
	11	*
	12	move.l #L6,(sp)
	13	jsr _Bconws
	14	*
	15	L8: move #2,(sp)
	16	move #2,-(sp)
	17	trap #13
	18	addq.l #2,sp
	19	*
	20	cmp.b #$d,d0
	21	bne L8
	22	*
	23	L7: clr (sp)
	24	trap #1
	25	*
	26	_Bconws: link a6,#0
	27	movem.l d6-d7,-(sp)
	28	*
	29	bra L4
	30	*
	31	L3: move.w d0,(sp)
	32	move.w #2,-(sp)
	33	move.w #3,-(sp)
	34	trap #13
	35	addq.l #4,sp
	36	*
	37	L4: move.l 8(a6),a0
	38	move.b (a0),d0
	39	add.l #1,8(a6)
	40	*
	41	cmpi.b #0,d0
	42	bne L3
	43	*
	44	tst.l (sp)+
	45	movem.l (sp)+,d7-d7
	46	unlk a6
	47	rts
	48	*
	49	.data
	50	*
	51	L6: .dc.b $07
	52	.dc.b ' <<<<< Waiting for CR from CON: >>>>>'
	53	.dc.b $00
	54	*
	55	.end

Note: See TracBrowser for help on using the repository browser.