Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/go51.asm @ 710:4b8f2de93c51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added DS40 target
author boisy
date Sat, 04 Jan 2003 02:23:45 +0000
parents b19b5d02a2e1
children 67178d0593da
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
1 ********************************************************************
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
2 * go51 - The 51 column by 24 line video display
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
3 *
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
4 * $Id$
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
5 *
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
7 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
8 * 1 From Dragon OS-9 Level One VR 01.02.00
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
9
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
10 nam go51
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
11 ttl The 51 column by 24 line video display
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
12
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
13 * Disassembled 02/07/06 21:10:42 by Disasm v1.6 (C) 1988 by RML
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
14
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
15 ifp1
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
16 use defsfile
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
17 endc
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
18
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
19 tylg set Prgrm+Objct
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
20 atrv set ReEnt+rev
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
21 rev set $01
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
22 edition set 1
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
23
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
24 mod eom,name,tylg,atrv,start,size
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
25
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
26 u0000 rmb 2
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
27 u0002 rmb 2
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
28 u0004 rmb 2
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
29 OptBuf rmb 32
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
30 size equ .
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
31
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
32 name fcs /go51/
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
33 fcb edition
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
34
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
35 IOMod fcs /KBVDIO/
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
36 Driver fcs /drvr51/
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
37 Desc fcs /term/
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
38
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
39 start leax >IOMod,pcr
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
40 lbsr DoLink
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
41 lbcs Bye
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
42 stx ,u
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
43 lbsr DoUnlink
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
44 leax >Driver,pcr
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
45 lbsr DoLink
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
46 lbcs Bye
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
47 stx u0002,u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
48 ldd $02,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
49 std u0004,u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
50 pshs u,cc
203
7dea3d77ba0b Used symbolics for andcc/orcc
boisy
parents: 200
diff changeset
51 orcc #IntMasks
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
52 ldx >D.AltIRQ
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
53 stx >$0032
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
54 ldy ,u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
55 ldx u0004,u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
56 ldu u0002,u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
57 L0054 lda ,u+
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
58 sta ,y+
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
59 leax -$01,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
60 bne L0054
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
61 ldx #$FF00
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
62 lda $01,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
63 ora #$30
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
64 anda #$F7
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
65 sta $01,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
66 lda $03,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
67 anda #$F6
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
68 ora #$30
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
69 sta $03,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
70 ldx #$FF20
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
71 lda $03,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
72 ora #$38
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
73 sta $03,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
74 puls u,cc
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
75 ldx u0002,u
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
76 lbsr DoUnlink
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
77 ldx ,u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
78 ldd $04,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
79 leax d,x
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
80 leay >IOMod,pcr
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
81 ldb #$06
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
82 L008B lda ,y+
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
83 sta ,x+
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
84 decb
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
85 bne L008B
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
86 lda #$01
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
87 ldb #SS.Opt
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
88 leax OptBuf,u
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
89 os9 I$GetStt
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
90 bcs Bye
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
91 clr (PD.UPC-PD.OPT),x
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
92 lda #24
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
93 sta (PD.PAG-PD.OPT),x
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
94 lda #$01
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
95 ldb #SS.Opt
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
96 os9 I$SetStt
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
97 bcs Bye
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
98 leax >Desc,pcr
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
99 lda #Devic+Objct
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
100 pshs u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
101 os9 F$Link
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
102 tfr u,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
103 puls u
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
104 bcs Bye
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
105 clr <$13,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
106 lda #$18
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
107 sta <$1A,x
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
108 bsr DoUnlink
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
109 clrb
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
110 Bye os9 F$Exit
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
111
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
112 DoLink pshs u
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
113 lda #Drivr+Objct
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
114 os9 F$Link
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
115 tfr u,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
116 puls pc,u
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
117
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
118 DoUnlink pshs u
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
119 tfr x,u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
120 os9 F$UnLink
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
121 puls pc,u
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
122
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
123 emod
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
124 eom equ *
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
125 end