3-  

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

181 006 9

182 007

183 007

184 007

185 00AT

186 007

187 007

188 007

189 07

190 007

191 007

192 007 02

193 D3 F0

194 D3 il

195 D3

196 9

197 001

* ♦ ♦ ♦♦)(.

*

*

198 00B1

199 001

200 !

201 O0B1

202 001

203 001

204 OOBJ

205 001

206 001 ,

207 00B1

208 0(1

209 001

210 001

211 00B2 01 10

212 005

213 005

214 05

215 005 00

216 007

217 007

218 007

219 007 IF

220 008 00

221

222

223

224 1 00 JZ KEYW2

225 OOBD *

226 00BD ** * ( 5)

227 OOBD * 22 OOBD 04 INR ill 00 JMP KEXW)

230 001

231 001

q0c1

233 001 mW2 XRA

234 002 04

235 005

236 005

IU 5 00 .00

239 , .

240 ***** 9)

♦ * * * ♦

LDA KWGHT OFOH OUT 0F1 0F2H RET

* KEXW

* * *

- .4.18

( 1)

KEIW

LDA CFLAG

** *< 2)

MVI ,00

* * ♦( 3)

KECWI PAR

CPI 00

* ( 4)

* ( )

:yw2

LDA KBOW

♦* * ( ) 1

1 , D7

=0,1,2,3,4 ( 6)

1: ..

2

241 007

242

243 008

244

245

246

247

248 OOCD

249 OOCD

250 OOCD

251 OOCD

252

253 00D1

254 00D1

255 00D1 25 6 00D1

257 00D2

258 00D3

259 00D4 2 60 00D5 2 61 00D6 2 62 00D7 2 63 0OD7 2 64 0 0D7 265 00D7 2 66 OODA 2 67 OODA 268 OODA 2 69 OODA

270 OODB

271 OODB

272 OODB

273 OODB

274 OODB

275 OODB

276 OODB

277 OODB

278 OODB

279 OODB

280 OODB

281 OODB

282 OODB

283 OODB

284 OODB

285 OODB 28 6 OODB

287 OODC

288 OODF

289 OODF

290 OODF

291 OODF Z92 OOEl

293 OQBI

294 OOEl

295 OOEl

296 OOS3

297 2 98

299

300 0OS5

FE 00

HAR

CPI 00

( 1o)

CA Dt 00 JZ KEyW4

78 17 17 80 81

32 02 10

INR

JMP KKYWS *

KEYW4 XRA A

MOV A,

EAL

ADD B-

ADD

* ***( 12) *

STA KWGHT

1( ( 13)

1 , D?

,

= (1) 2 * 4 5

( 5)+=0-24

* COLM *

* ,

*

-.4 .1 5

32 01

DB FB

F6

** *( 1) *

COLM 10 STA CFLACJ

. )! ( 2)

IN oFEH

ORI OFOH

FH IT CB

*)( !< ( 4)

CPX EZ

OFSH

D5,D6,DT=1.

(4)



32 01 10 C9

( 5) CMA

STA CiLAG

*

* 0-0޹

* .4.12

** *** * * * * * ** *

* .4.12- .4.10 8080

* * )( * * *** ** **)(. *

04 10

10 2 00

01 9 00

32 04 10

d3 9

LDA KP.OW

( 2)

1

JNZ 0K0W1

( 2)

MVr A.OIH JMP ST3

** ( 2)

OlSOWl BLC *

* ( 3)

ST3 STA KHOW

*( 4) *

( 5)

OUT OFEH

** ( 6)

??? , 2

3

, do 01

END 22 SYMBObf

end

0001 000 2 000 3 0004 000 5 0006 000 7 000 8 000 9 0010 00 11 0012

0014 00 15 00 16 0017 0018

0019 00 20 00 21 00 22 00 23 00 24 00 25 00 26 00 2 00 28 00 29 00 30 0031 0032 00 33 00 34 0035 00 36 00 37 00 38 0039 00 40 0041 0042 00 4 3 00 44 0045 00 46

0047 0048

00 49 00 50 00 51 00 52 00 53 00 54 00 55 00 56 00 5? 00 58

1 PAQB 1 425 WBD 03,1979 11:22:42.58

00001 0000 2 0000 3 00004 05 00006 0000 7 0000 8 0000 9

10 000(11 000 1 2 00013 014

00015 oooie

17 18 19 000 20 000 21 000 22 000 23 24 000 25 000 26 27 28 29 000 30

000 31

32 000 33 000 34 000 35

00036

000 37 38 000 39 000 40 000 41 000 42

000 43 000 44

000 45 000 46 000 47 00048 000 49 50 000 51 52 000 53 000 54

* * * > * *

*

* 6800

* . ** *

FC00

FC00 13FF FC03 86 00

F425

SFCOO

F1 F2

FC05 0 1 FC07 1 FC09 1 FCOB FCOE 7 loot FC11 7 100 2 FC14 7 FC17 40 JCie 7 1004

1000 1001 100 2

100 4 100 5

FC1B BD 2 FC1E BD FCDF FC21 6 1001

FC24 81 00 FC26 2 7 F3

BD FCAD

* - *

BEGIN LES *S13FP LDA *S00 . ,

STA #SF0 STA #SF1 STA #SP2 STA A KTIMS STA A CFLAG STA A .KWGHT STA A KCOMP INC A

STA A KROW

KTIME=0 CFLAG=0 KWGHT=0 KCOMP=0 =1

KROw=ooaooooi

SIOOO KTIMB+1 CPLAO+I KWGHT+1 KCOMP+1 KROW+t

KTIME EQU

CFLAG EQU

KWGHT EQU

KCOMP EQU KHOW NROW

EQU EQU

***** - * **** * * *4.20

SHOW JSR OBOW

JSR COLM / LEA A CFLAG

#S00 BEQ SHOW . -1

, ?

JSR KEW .4.20 PHCV4.21

***** *

* (1 1)

* ) 1( 1

. 4.25. 6800, - .

303 0CiE6

304 O0E6

305 00B7

306 00E7

307 OOET

308 00B7

309 OOEA

310 OOBB

311 OOEB

312 OOEB

313 OOEB

314 OOEB

315 OOEB

316 OOEB

317 OOEB

318 OOEB

319 OOEB

320 OOEB

321 OOEB

322 OOEB

323 OOEB

324 OOEB

325 OOEE

326 OOEB

327 OOEB

328 OOEE

329 OOEB

330 OOEE

331 OOBB

332 OOFO

333 00F3

334 33 5

336 OOi3

337 00F5

338 OOF8

339 OOF8

340 00F8

341 OOF8

342 OOF9

343 OOF9

344 OOF9

345 OOF9

346 OOFC

347 OOFC

348 OOFC

349 OOFC 3 50 OOFD

351 OOFD

352 OOFD

353 OQFD

354 OOFF

355 OOFF

356 OOFF

357 OOFF

358 0100

359 0100

360 0100

361 0100

362 0100

0 jsbbobs



U059 1 0060 061 0062

00 63 00055

0064 00056

0065 00057

0066 00058

0067 00059

0068 00060

0069 00061 070 000 62

0071 00063

0072 00064

0073 00065

0074 00066

0075 00067

0076 00068

0077 000 69

0078 00070

0079 00071

0080 00072 *0081 00073

0082 00074

0083 00075 008 4 00076 0085 00077 008 6 00078

0087 00079

0088 00080

0089 00081

0090 00082

0091 00083

0092 00084

0093 00085

0094 0008 6

0095 00087

0096 00088

0097 00089

0098 00090

0099 00091

0100 00092

0101 00093

0102 00094

0103 00095

0104 00096

0105 00097

0106 00098

0107 00099

0108 00100

0109 00101

0110 00102

0111 00103

0112 00104

0113 00105

0114 00106

0115 00107

0116 ooloe

00109 0118 1

PAGE 2 I425 WED OCT. 03,t9T9 1 1: 22:42.58

tczb B6 1000 LDA A KTIME

2)

FC2E 81 PC30 2T

00 25

CMP A #S00 BEQ KCL01

HE

******{ 7) *

P5 1002 LEA KWGHT

PC35 6 1003 LDA A KCOMP

FC38 11 CBA

FC39 27 08 BEQ KCL02

****** ( 8) *

FC3B 8 6 00 LDA A #S00

FC3D B7 1000 STA A KTIME

FC40 FC62 JMP KCLO3

** * *( 9)

FC43 B6 lOOO KCL02 LDA A KTIME

FC46 4C INC A

FC47 B7 1000 STA A*KTIME

( 10)

FC4A 81 32 CMP A #50

FC4C 26 14 BNE KCLO3

FX;4E BD FC6A JSR KOPN

FC51 BD FCA3 JSR KOUT

FC54 7E FC1B JMP SROW *

FC57 B6 1002 KCLOl LDA A KWGHT

FC5A B7 1003 STA A KCOMP

*** )(*( 4) *

FC5D 86 FC5F B7

1000

FC62 86 FC64 B7

1004

LDA A #S01 STA A KTIME

** **( 5)

LDA A #S0l STA A KTOW

*** *( 6)

FC67 7E FCIB JMP SroW

PAGE 3 F425 WED OCT 03,

KTIME

ktime-ott

.

??? = ,

KTIME

AKT.HABQPl

KTIME

KTIME=KTIME+1

1=1+1

KTIMS=50?? 50

KC0M1=KWGHT 1=1

..=00000001

1979 11:22:42.58

0119 0120 0121 0122 0123 0124 0125 0126 OUT 0128 0129 0130 0131 0132 0133 0134 0135

0136 0137

0138 0139 0140 0141 0142 0143 0144 145 0146 0147 0148 0149 0150 0151 0152 0153 0154 01 55 0156 0157 0158 0159 0160 0161 01 62

0163

01 64 0165 01 66 01 67 01 68 0169 0170 0171 0172 0173 0174 0175 0176 0177 0178

00110 00111 00112 00113 OOII4 00115 00116 00117 001 18 0011 9 00120 00121 00122 00123 00124 00125 00126 00127 00128 00129 00130 00131 00132 00133 00134 00135

00136

00137 00138 00139 00140

00141

QQ143 00144

0014 5 001 4 6 0014 7 00148 00149 00150 00151 00152 00153 00154 00155 00156 00157 00158 00159 00160 00161 00162

00163

00164

**** ****************************** ( * ♦ !< * )( )()( *

- 4.22

*

* *( 1)

FC6A FC6C FG6F FC70

FC73

FC79

FC7C

FC7F FCSl

FC8 3 FC8 6 FC8 7

FC8A FC8C

FC8E FC91 FC92 PAGii

8 6 01 KOPN

7 1004

? 1005

LDA #S01 STA KEOW DEC A STA A NROW

** ** ( 2) B7 1000 STA ft KTIME

******{ 3)

BD FCF2 01 JSR GROW

( 4)

BD FCDF JSR COLM

( 5)

BS 1,001 81 00 2 6 E7

LDA A CFLAG CMP A *00

BNK KOPN

(1 9)

6 1005 LDA A NROW

4C INC A

B7 1005 STA A NROW

* * ( 10)

8i 05 CMP A #05

2 6 E8 BNE KOPN]

- ( 6)

KEOff=O0OOOOOl NEOW=00000000

11=

ctlaj, CFLAa=0??

86 1000 4

87 1000

4 F425

LDA KTIME INC

STA KTIME WED OCT 03,1979

11 : 22: 42.58



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