Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/go51.asm @ 204:338195952a01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made some source improvements
author boisy
date Mon, 15 Jul 2002 04:21:09 +0000
parents 7dea3d77ba0b
children b19b5d02a2e1
comparison
equal deleted inserted replaced
203:7dea3d77ba0b 204:338195952a01
30 size equ . 30 size equ .
31 31
32 name fcs /go51/ 32 name fcs /go51/
33 fcb edition 33 fcb edition
34 34
35 L0012 fcs /KBVDIO/ 35 IOMod fcs /KBVDIO/
36 L0018 fcs /drvr51/ 36 Driver fcs /drvr51/
37 L001E fcs /term/ 37 Desc fcs /term/
38 start equ * 38
39 leax >L0012,pcr 39 start leax >IOMod,pcr
40 lbsr L00CB 40 lbsr L00CB
41 lbcs L00C8 41 lbcs L00C8
42 stx ,u 42 stx ,u
43 lbsr L00D6 43 lbsr L00D6
44 leax >L0018,pcr 44 leax >Driver,pcr
45 lbsr L00CB 45 lbsr L00CB
46 lbcs L00C8 46 lbcs L00C8
47 stx u0002,u 47 stx u0002,u
48 ldd $02,x 48 ldd $02,x
49 std u0004,u 49 std u0004,u
50 pshs u,cc 50 pshs u,cc
51 orcc #IntMasks 51 orcc #IntMasks
52 ldx >$006B 52 ldx >D.AltIRQ
53 stx >$0032 53 stx >$0032
54 ldy ,u 54 ldy ,u
55 ldx u0004,u 55 ldx u0004,u
56 ldu u0002,u 56 ldu u0002,u
57 L0054 lda ,u+ 57 L0054 lda ,u+
75 ldx u0002,u 75 ldx u0002,u
76 lbsr L00D6 76 lbsr L00D6
77 ldx ,u 77 ldx ,u
78 ldd $04,x 78 ldd $04,x
79 leax d,x 79 leax d,x
80 leay >L0012,pcr 80 leay >IOMod,pcr
81 ldb #$06 81 ldb #$06
82 L008B lda ,y+ 82 L008B lda ,y+
83 sta ,x+ 83 sta ,x+
84 decb 84 decb
85 bne L008B 85 bne L008B
86 lda #$01 86 lda #$01
87 ldb #$00 87 ldb #SS.Opt
88 leax u0006,u 88 leax u0006,u
89 os9 I$GetStt 89 os9 I$GetStt
90 bcs L00C8 90 bcs L00C8
91 clr $01,x 91 clr $01,x
92 lda #$18 92 lda #$18
93 sta $08,x 93 sta $08,x
94 lda #$01 94 lda #$01
95 ldb #$00 95 ldb #SS.Opt
96 os9 I$SetStt 96 os9 I$SetStt
97 bcs L00C8 97 bcs L00C8
98 leax >L001E,pcr 98 leax >Desc,pcr
99 lda #$F1 99 lda #Devic+Objct
100 pshs u 100 pshs u
101 os9 F$Link 101 os9 F$Link
102 tfr u,x 102 tfr u,x
103 puls u 103 puls u
104 bcs L00C8 104 bcs L00C8
107 sta <$1A,x 107 sta <$1A,x
108 bsr L00D6 108 bsr L00D6
109 clrb 109 clrb
110 L00C8 os9 F$Exit 110 L00C8 os9 F$Exit
111 L00CB pshs u 111 L00CB pshs u
112 lda #$E1 112 lda #Drivr+Objct
113 os9 F$Link 113 os9 F$Link
114 tfr u,x 114 tfr u,x
115 puls pc,u 115 puls pc,u
116 L00D6 pshs u 116 L00D6 pshs u
117 tfr x,u 117 tfr x,u
118 os9 F$UnLink 118 os9 F$UnLink
119 puls pc,u 119 puls pc,u
120
120 emod 121 emod
121 eom equ * 122 eom equ *
123 end