Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/go51.asm @ 1818:06d326167f80

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Misc stuff
author boisy
date Thu, 21 Apr 2005 17:39:19 +0000
parents 04b3b0436d6b
children
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 *
1351
04b3b0436d6b Fixed line-ending issue in help.asm, added new style header
boisy
parents: 924
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
04b3b0436d6b Fixed line-ending issue in help.asm, added new style header
boisy
parents: 924
diff changeset
7 * Comment
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
8 * ------------------------------------------------------------------
1351
04b3b0436d6b Fixed line-ending issue in help.asm, added new style header
boisy
parents: 924
diff changeset
9 * 1 ????/??/?? ???
04b3b0436d6b Fixed line-ending issue in help.asm, added new style header
boisy
parents: 924
diff changeset
10 * From Dragon OS-9 Level One VR 01.02.00.
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
11
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
12 nam go51
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
13 ttl The 51 column by 24 line video display
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
14
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
15 * 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
16
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
17 ifp1
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
18 use defsfile
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
19 endc
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
20
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
21 tylg set Prgrm+Objct
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
22 atrv set ReEnt+rev
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
23 rev set $01
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
24 edition set 1
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 mod eom,name,tylg,atrv,start,size
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
27
924
c155aac72190 Made cosmetic changes
boisy
parents: 880
diff changeset
28 org 0
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
29 ioptr rmb 2
67178d0593da Made more comments
boisy
parents: 268
diff changeset
30 drvrptr rmb 2
67178d0593da Made more comments
boisy
parents: 268
diff changeset
31 drvrsiz rmb 2
924
c155aac72190 Made cosmetic changes
boisy
parents: 880
diff changeset
32 optbuf rmb 32
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
33 size equ .
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
34
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
35 name fcs /go51/
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
36 fcb edition
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 120
diff changeset
37
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
38 IOMod fcs /KBVDIO/
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
39 IOModL equ *-IOMod
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
40 Driver fcs /drvr51/
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
41 Desc fcs /term/
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
42
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
43 start leax >IOMod,pcr point to I/O module
67178d0593da Made more comments
boisy
parents: 268
diff changeset
44 lbsr DoLink link to it
67178d0593da Made more comments
boisy
parents: 268
diff changeset
45 lbcs Bye branch if error
67178d0593da Made more comments
boisy
parents: 268
diff changeset
46 stx ioptr,u save ptr to module
67178d0593da Made more comments
boisy
parents: 268
diff changeset
47 lbsr DoUnlink unlink it
67178d0593da Made more comments
boisy
parents: 268
diff changeset
48 leax >Driver,pcr point to driver
67178d0593da Made more comments
boisy
parents: 268
diff changeset
49 lbsr DoLink link to it
67178d0593da Made more comments
boisy
parents: 268
diff changeset
50 lbcs Bye branch if error
67178d0593da Made more comments
boisy
parents: 268
diff changeset
51 stx drvrptr,u save ptr to driver
67178d0593da Made more comments
boisy
parents: 268
diff changeset
52 ldd M$Size,x get module size
67178d0593da Made more comments
boisy
parents: 268
diff changeset
53 std drvrsiz,u save driver size
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
54 pshs u,cc
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
55 orcc #IntMasks mask interrupts
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
56 ldx >D.AltIRQ
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
57 stx >D.IRQ swap irq vector
67178d0593da Made more comments
boisy
parents: 268
diff changeset
58 ldy ioptr,u
67178d0593da Made more comments
boisy
parents: 268
diff changeset
59 ldx drvrsiz,u get driver size
67178d0593da Made more comments
boisy
parents: 268
diff changeset
60 ldu drvrptr,u get driver pointer
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
61 L0054 lda ,u+
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
62 sta ,y+
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
63 leax -$01,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
64 bne L0054
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
65 ldx #$FF00
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
66 lda $01,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
67 ora #$30
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
68 anda #$F7
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
69 sta $01,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
70 lda $03,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
71 anda #$F6
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
72 ora #$30
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 ldx #$FF20
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
75 lda $03,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
76 ora #$38
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
77 sta $03,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
78 puls u,cc
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
79 ldx drvrptr,u get pointer to driver module
67178d0593da Made more comments
boisy
parents: 268
diff changeset
80 lbsr DoUnlink unlink it
67178d0593da Made more comments
boisy
parents: 268
diff changeset
81 ldx ioptr,u get io mod pointer
67178d0593da Made more comments
boisy
parents: 268
diff changeset
82 ldd M$Name,x get offset to I/O module name
67178d0593da Made more comments
boisy
parents: 268
diff changeset
83 leax d,x point X to name
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
84 leay >IOMod,pcr
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
85 ldb #IOModL
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
86 L008B lda ,y+
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
87 sta ,x+
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
88 decb
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
89 bne L008B
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
90 lda #$01 standard output
67178d0593da Made more comments
boisy
parents: 268
diff changeset
91 ldb #SS.Opt option getstat
924
c155aac72190 Made cosmetic changes
boisy
parents: 880
diff changeset
92 leax optbuf,u point to buffer
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
93 os9 I$GetStt get status
67178d0593da Made more comments
boisy
parents: 268
diff changeset
94 bcs Bye branch if error
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
95 clr (PD.UPC-PD.OPT),x
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
96 lda #24
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
97 sta (PD.PAG-PD.OPT),x
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
98 lda #$01
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
99 ldb #SS.Opt
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
100 os9 I$SetStt
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
101 bcs Bye
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
102 leax >Desc,pcr
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
103 lda #Devic+Objct
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
104 pshs u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
105 os9 F$Link
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
106 tfr u,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
107 puls u
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
108 bcs Bye
880
67178d0593da Made more comments
boisy
parents: 268
diff changeset
109 clr <IT.UPC,x clear uppercase flag
67178d0593da Made more comments
boisy
parents: 268
diff changeset
110 lda #24 new screen has 24 lines
67178d0593da Made more comments
boisy
parents: 268
diff changeset
111 sta <IT.PAG,x save it
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
112 bsr DoUnlink
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
113 clrb
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
114 Bye os9 F$Exit
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
115
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
116 DoLink pshs u
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
117 lda #Drivr+Objct
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
118 os9 F$Link
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
119 tfr u,x
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
120 puls pc,u
268
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
121
b19b5d02a2e1 Source enhancements
boisy
parents: 204
diff changeset
122 DoUnlink pshs u
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
123 tfr x,u
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
124 os9 F$UnLink
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
125 puls pc,u
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
126
118
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
127 emod
ce8dbdbb3ca2 The Go51 module for 51x24 display
roug
parents:
diff changeset
128 eom equ *
204
338195952a01 Made some source improvements
boisy
parents: 203
diff changeset
129 end