1 | ****************************************
|
---|
2 | * *
|
---|
3 | * SHELL = INTERFACE LOADER / DEMOS *
|
---|
4 | * *
|
---|
5 | ****************************************
|
---|
6 |
|
---|
7 |
|
---|
8 | RETURN EQU $A328
|
---|
9 | ERROR EQU $A483
|
---|
10 | ORG $6300
|
---|
11 |
|
---|
12 | DEMOS FDB $DA5,$010A,$3BFF
|
---|
13 | FDB $FA9,$0505,$37FF
|
---|
14 | FDB $FB9,$3501,$27FF
|
---|
15 | FDB $FC2,$080C,$1EFF
|
---|
16 | FDB $FB0,$2507,$30FF
|
---|
17 | FDB $3A0,$A0A,$2904,$A00D,$329
|
---|
18 | FDB $5A0,$F0C,$2906,$A012,$529
|
---|
19 | FDB $7A0,$140E,$2908,$A017
|
---|
20 | FDB $729
|
---|
21 | FDB $9A0,$1910,$290A,$A01C
|
---|
22 | FDB $929,$FC1,$1F02,$1FFF
|
---|
23 | FDB $FA0,$2107,$40FF
|
---|
24 | FDB $FDA,$2101,$06FF
|
---|
25 | FDB $F7B,$2807,$4D00
|
---|
26 | FDB $FC3,$2D04,$1DFF
|
---|
27 | FDB $FA7,$2F01,$39FF
|
---|
28 | FDB $FB9,$320A,$27FF
|
---|
29 | FINDEM FDB DEMOS
|
---|
30 |
|
---|
31 | G ORCC #80
|
---|
32 | LDS #$60CC
|
---|
33 | LDB #1
|
---|
34 | JSR $EC0C
|
---|
35 |
|
---|
36 | LDD #32
|
---|
37 | STA $E7DB
|
---|
38 | STA $E7DA
|
---|
39 | DECB
|
---|
40 | BNE *-4
|
---|
41 | LDD #0
|
---|
42 | STD $E7DC
|
---|
43 |
|
---|
44 | INTRO LDD #$6002
|
---|
45 | TFR A,DP
|
---|
46 | STB <$48
|
---|
47 | CLR <$49
|
---|
48 | CLR <$50
|
---|
49 | LDU FINDEM
|
---|
50 |
|
---|
51 | KOILIR LDB ,U
|
---|
52 | STB $E7E5
|
---|
53 | LDB 2,U
|
---|
54 | LDX #0
|
---|
55 | ABX
|
---|
56 | LDB 4,U
|
---|
57 | LDY #0
|
---|
58 | LEAY B,Y
|
---|
59 | LDB 3,U
|
---|
60 | LDA 1,U
|
---|
61 | JSR DISK
|
---|
62 | LDX #$DFA2
|
---|
63 | LEAU 5,U
|
---|
64 | TST ,U
|
---|
65 | BMI *+9
|
---|
66 | BEQ *+4
|
---|
67 | BRA KOILIR
|
---|
68 | LDX #$9695
|
---|
69 | LEAU 1,U
|
---|
70 | CMPU #FINDEM
|
---|
71 | BNE *+5
|
---|
72 | LDU #DEMOS+12
|
---|
73 | STU FINDEM
|
---|
74 | JSR ,X
|
---|
75 | LDD #$E7
|
---|
76 | TFR B,DP
|
---|
77 | LDB #32
|
---|
78 | STA <$DB
|
---|
79 | STA <$DA
|
---|
80 | DECB
|
---|
81 | BNE *-3
|
---|
82 | LDX FINDEM
|
---|
83 | CMPX #DEMOS+6
|
---|
84 | BEQ INTRO
|
---|
85 | LDA #13
|
---|
86 | STA $E7E5
|
---|
87 | JMP RETURN
|
---|
88 |
|
---|
89 | DISK STX <$4A
|
---|
90 | STB <$4C
|
---|
91 | STA <$4F
|
---|
92 | CHARGE JSR $E004
|
---|
93 | BCC *+10
|
---|
94 | LDA #13
|
---|
95 | STA $E7E5
|
---|
96 | JMP ERROR
|
---|
97 | INCB
|
---|
98 | CMPB #17
|
---|
99 | BNE GOON
|
---|
100 | LDB #1
|
---|
101 | LEAX 1,X
|
---|
102 | STX <$4A
|
---|
103 | GOON STB <$4C
|
---|
104 | INCA
|
---|
105 | STA <$4F
|
---|
106 | LEAY -1,Y
|
---|
107 | BNE CHARGE
|
---|
108 | RTS
|
---|
109 | RESET ORCC #80
|
---|
110 | LDD #32
|
---|
111 | STA $E7DB
|
---|
112 | STA $E7DA
|
---|
113 | DECB
|
---|
114 | BNE *-4
|
---|
115 | STD $E7DC
|
---|
116 | LDA #15
|
---|
117 | STA $E7E5
|
---|
118 | LDU #COLORS-6
|
---|
119 | PULU D,X,Y,S
|
---|
120 | LDU #$E000
|
---|
121 | ERASE FDB $3676,$3676,$3676,$3676
|
---|
122 | FDB $3676,$3676,$3676,$3676
|
---|
123 | FDB $3676,$3676,$3676,$3676
|
---|
124 | FDB $3676,$3676,$3676,$3676
|
---|
125 | CMPU #$A000
|
---|
126 | BNE ERASE
|
---|
127 | DEC $E7E5
|
---|
128 | BRA ERASE-3
|
---|
129 |
|
---|
130 | FDB 0,0,0
|
---|
131 | COLORS FDB 0,15,240,255,3840,3855
|
---|
132 | FDB 4080,4095,1911,826,931
|
---|
133 | FDB 938,2611,2618,3815,123
|
---|
134 | END
|
---|