|
118
|
1 ********************************************************************
|
|
|
2 * go51 - The 51 column by 24 line video display
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 1 Original Dragon distribution version
|
|
|
9
|
|
|
10 nam go51
|
|
|
11 ttl The 51 column by 24 line video display
|
|
|
12
|
|
|
13 * Disassembled 02/07/06 21:10:42 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18 tylg set Prgrm+Objct
|
|
|
19 atrv set ReEnt+rev
|
|
|
20 rev set $01
|
|
|
21 mod eom,name,tylg,atrv,start,size
|
|
|
22 u0000 rmb 2
|
|
|
23 u0002 rmb 2
|
|
|
24 u0004 rmb 2
|
|
|
25 u0006 rmb 32
|
|
|
26 size equ .
|
|
|
27 name equ *
|
|
|
28 fcs /go51/
|
|
|
29 fcb $01
|
|
120
|
30 L0012 fcs /KBVDIO/
|
|
|
31 L0018 fcs /drvr51/
|
|
|
32 L001E fcs /term/
|
|
118
|
33 start equ *
|
|
|
34 leax >L0012,pcr
|
|
|
35 lbsr L00CB
|
|
|
36 lbcs L00C8
|
|
|
37 stx ,u
|
|
|
38 lbsr L00D6
|
|
|
39 leax >L0018,pcr
|
|
|
40 lbsr L00CB
|
|
|
41 lbcs L00C8
|
|
|
42 stx u0002,u
|
|
|
43 ldd $02,x
|
|
|
44 std u0004,u
|
|
|
45 pshs u,cc
|
|
|
46 orcc #$50
|
|
|
47 ldx >$006B
|
|
|
48 stx >$0032
|
|
|
49 ldy ,u
|
|
|
50 ldx u0004,u
|
|
|
51 ldu u0002,u
|
|
|
52 L0054 lda ,u+
|
|
|
53 sta ,y+
|
|
|
54 leax -$01,x
|
|
|
55 bne L0054
|
|
|
56 ldx #$FF00
|
|
|
57 lda $01,x
|
|
|
58 ora #$30
|
|
|
59 anda #$F7
|
|
|
60 sta $01,x
|
|
|
61 lda $03,x
|
|
|
62 anda #$F6
|
|
|
63 ora #$30
|
|
|
64 sta $03,x
|
|
|
65 ldx #$FF20
|
|
|
66 lda $03,x
|
|
|
67 ora #$38
|
|
|
68 sta $03,x
|
|
|
69 puls u,cc
|
|
|
70 ldx u0002,u
|
|
|
71 lbsr L00D6
|
|
|
72 ldx ,u
|
|
|
73 ldd $04,x
|
|
|
74 leax d,x
|
|
|
75 leay >L0012,pcr
|
|
|
76 ldb #$06
|
|
|
77 L008B lda ,y+
|
|
|
78 sta ,x+
|
|
|
79 decb
|
|
|
80 bne L008B
|
|
|
81 lda #$01
|
|
|
82 ldb #$00
|
|
|
83 leax u0006,u
|
|
|
84 os9 I$GetStt
|
|
|
85 bcs L00C8
|
|
|
86 clr $01,x
|
|
|
87 lda #$18
|
|
|
88 sta $08,x
|
|
|
89 lda #$01
|
|
|
90 ldb #$00
|
|
|
91 os9 I$SetStt
|
|
|
92 bcs L00C8
|
|
|
93 leax >L001E,pcr
|
|
|
94 lda #$F1
|
|
|
95 pshs u
|
|
|
96 os9 F$Link
|
|
|
97 tfr u,x
|
|
|
98 puls u
|
|
|
99 bcs L00C8
|
|
|
100 clr <$13,x
|
|
|
101 lda #$18
|
|
|
102 sta <$1A,x
|
|
|
103 bsr L00D6
|
|
|
104 clrb
|
|
|
105 L00C8 os9 F$Exit
|
|
|
106 L00CB pshs u
|
|
|
107 lda #$E1
|
|
|
108 os9 F$Link
|
|
|
109 tfr u,x
|
|
|
110 puls pc,u
|
|
|
111 L00D6 pshs u
|
|
|
112 tfr x,u
|
|
|
113 os9 F$UnLink
|
|
|
114 puls pc,u
|
|
|
115 emod
|
|
|
116 eom equ *
|
