-
Notifications
You must be signed in to change notification settings - Fork 1
/
LOAD128.TXT
140 lines (129 loc) · 2.61 KB
/
LOAD128.TXT
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
NAM LOAD128
* LOAD 128X128 DS-69 PIX
* USES A 2X2 DITHER
DS69 LDA #1
JSR [PAGEIN]
LDX #$8000
LDD #$FFFF
A@ STD ,X++
STD ,X++
STD ,X++
STD ,X++
CMPX #$8000+160*200
BLO A@
LDX #$8000+16
A@ LDU #BUF
B@ JSR [GETBYT]
STA ,U+
CMPU #BUF+128
BNE B@
*
LDU #BUF+7
LDY #DTBL
PSHS X
C@ LDA ,U
COMA
ANDA #$F0
LSRA
LSRA
LSRA
LDD A,Y
STA ,X
STB 160,X
*
LDB 64,U
COMB
ANDB #$F0
LSRB
LSRB
LSRB
LDD B,Y
STA 1,X
STB 161,X
LEAX 320,X
*
LDA ,U+
COMA
ANDA #$0F
LSLA
LDD A,Y
STA ,X
STB 160,X
*
LDB 63,U
COMB
ANDB #$0F
LSLB
LDD B,Y
STA 1,X
STB 161,X
LEAX 320,X
CMPU #BUF+64-7
LBNE C@
*
PULS X
LEAX 2,X
CMPX #$8000+128+16
LBLO A@
LDA #$FF
STA <FLNAMD
LDX TITLE
LDU #DSTIT
A@ LDD ,U++
STD ,X++
CMPU #DSTIT+30
BNE A@
* SETUP PALETTES *
LDX #RGBCMP
CLR $FFB0
LDA #%00000111
BSR CNV
STA $FFB1
LDA #%00111000
BSR CNV
STA $FFB2
LDA #63
STA $FFBF
STA $FF9A
JMP AFTLD
CNV TST $E00
BEQ ?RTS
LDA A,X
RTS
DSTIT FCC /DS-69 Picture/
BSZ 19
*DITHER TABLE
DTBL FCB %00000000 BB
FCB %00000000 BB
FCB %00000000 BB
FCB %00000001 BD
FCB %00000001 BD
FCB %00010000 DB
FCB %00010000 DB
FCB %00000001 BD
FCB %00000001 BD
FCB %00010001 DD
FCB %00010001 DD
FCB %00010001 DD
FCB %00010001 DD
FCB %00100001 LD
FCB %00010010 DL
FCB %00100001 LD
FCB %00100001 LD
FCB %00010010 DL
FCB %00010010 DL
FCB %00100010 LL
FCB %00100010 LL
FCB %00100010 LL
FCB %00100010 LL
FCB %00101111 LW
FCB %00101111 LW
FCB %11110010 WL
FCB %11110010 WL
FCB %00101111 LW
FCB %00101111 LW
FCB %11111111 WW
FCB %11111111 WW
FCB %11111111 WW
BUF RMB 128
END