source: buchla-68k/orig/GEMDOS/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
Line 
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*
15L8: 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*
23L7: clr (sp)
24 trap #1
25*
26_Bconws: link a6,#0
27 movem.l d6-d7,-(sp)
28*
29 bra L4
30*
31L3: move.w d0,(sp)
32 move.w #2,-(sp)
33 move.w #3,-(sp)
34 trap #13
35 addq.l #4,sp
36*
37L4: 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*
51L6: .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.