annotate 3rdparty/utils/view/view_clp.a @ 1777:b7fb6a9aead4

Removed /dd/defs so that rma could assemble
author boisy
date Sat, 02 Apr 2005 14:10:41 +0000 (2005-04-02)
parents 6b23465701c0
children 37fd74e6fad8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1706
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
1 *
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
2 *
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
3 * CLP format display, and PUB format
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
4 *
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
5
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
6 ifp1
1777
b7fb6a9aead4 Removed /dd/defs so that rma could assemble
boisy
parents: 1706
diff changeset
7 use os9defs.a
1706
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
8 endc
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
9
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
10 psect view_clp_a,0,0,0,0,0
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
11
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
12 vsect
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
13 gpload fcb $1b,$2b,0,2,0,0,0,0,0,0,0
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
14 putblk fcb $1b,$2d,0,2,0,0,0,0
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
15 size rmb 2
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
16 endsect
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
17
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
18 pals fcb $3f,$09,$00,$12,$24,$36,$2d,$1b Same as OS9 default palettes
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
19 fcb $3f,$09,$00,$12,$24,$36,$2d,$1b
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
20
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
21 CLPshowpic:
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
22 * Set up some miscellaneous vars
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
23 lda #8
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
24 sta <cyclestart
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
25 lda #15
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
26 sta <cycleend
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
27 ldd #5
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
28 std <cyclerate
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
29 lda #0
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
30 sta <extranum
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
31
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
32 * Set the palettes
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
33 ldb #16
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
34 leax pals,pcr
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
35 leau palette,y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
36 paloop
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
37 lda ,x+
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
38 sta ,u+
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
39 decb
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
40 bne paloop
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
41
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
42 * Set up the GPLoad command parameters.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
43 leax gpload,y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
44
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
45 * PUB format?
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
46 lda <format
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
47 cmpa #PUBFormat
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
48 bne noPUB
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
49 ldb #4
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
50 leau PUBstuff,pcr
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
51 PUBloop
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
52 lda ,u+
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
53 sta b,x
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
54 incb
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
55 cmpb #11
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
56 bne PUBloop
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
57 bra dogpload
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
58
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
59 * PUB format clips are type 5, 80x40, 400 bytes.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
60 PUBstuff fcb 5,0,80,0,40,1,$90
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
61
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
62 noPUB
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
63
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
64 * Handle CLP format.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
65 ldb #4 Start with byte 5 in GPLoad command.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
66 headloop
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
67 lbsr I_GetByte Get remainder of GPLoad header.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
68 lbcs _error
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
69 sta b,x
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
70 incb
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
71 cmpb #11
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
72 bne headloop
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
73
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
74 dogpload
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
75 lda <PID Use PID for buffer number.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
76 sta 2,x
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
77
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
78 lda 4,x Set screen type.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
79 sta <type
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
80 lbsr setscreen
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
81 lbsr setpals
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
82
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
83 ldd 9,x Set size of buffer.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
84 std size
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
85
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
86 pshs y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
87 ldy #11 Send the GPLoad.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
88 lda <outpath
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
89 os9 I$Write
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
90 puls y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
91
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
92 pshs y Now copy buffer contents to screen.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
93 leax linebuff,y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
94 loop
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
95 ldd size Read size bytes...
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
96 beq loopend
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
97 cmpd #$100 ... But not more than 256 at a time.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
98 bhi toobig
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
99 ldd #$100
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
100 toobig
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
101 tfr d,y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
102 lbsr I_Read Get it.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
103 bcs looperr Exit on error or EOF.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
104 pshs y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
105 ldd size Count down the size to copy.
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
106 subd ,s++
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
107 std size
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
108 lda <outpath
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
109 os9 I$Write Output it to screen
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
110 bra loop
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
111
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
112 looperr
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
113 cmpb #E$EOF
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
114 lbne _error
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
115
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
116 loopend
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
117 puls y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
118 leax putblk,y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
119 lda <PID
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
120 sta 2,x
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
121 lda <outpath
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
122 pshs y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
123 ldy #8
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
124 os9 I$Write
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
125 lbcs _error
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
126 puls y
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
127
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
128 rts
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
129
6b23465701c0 Tim Kientzle's VIEW
boisy
parents:
diff changeset
130 endsect