Sharp X68000 Disassemblies
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

key.s 11KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684
  1. ;=============================================
  2. ; Filename key.x
  3. ;
  4. ;
  5. ; Base address 000000
  6. ; Exec address 000000
  7. ; Text size 000544 byte(s)
  8. ; Data size 0004c2 byte(s)
  9. ; Bss size 0006e8 byte(s)
  10. ; 116 Labels
  11. ;
  12. ; Commandline dis -b2 -h -m68000 --sp -q1 -B -M -o120 -gkey.lab --overwrite key.x key.s
  13. ; DIS version 3.16
  14. ;=============================================
  15. .include inc/doscall.mac
  16. .include inc/iocscall.mac
  17. .include inc/fefunc.mac
  18. .cpu 68000
  19. .text
  20. Start:
  21. lea.l (End),sp
  22. addq.l #1,a2
  23. bsr.w L000538
  24. bne.w L0003e2
  25. lea.l (L000546),a5
  26. bsr.w L000530
  27. lea.l (L00055b),a5
  28. bsr.w L000530
  29. L000024:
  30. DOS _INKEY
  31. cmpi.b #$03,d0
  32. beq.w L0000cc
  33. or.b #$20,d0
  34. cmp.b #$75,d0 ;'u'
  35. beq.w L0000e6
  36. cmp.b #$6c,d0 ;'l'
  37. beq.s L00004c
  38. move.w #$0007,-(sp)
  39. clr.w -(sp)
  40. DOS _CONCTRL
  41. addq.l #4,sp
  42. bra.s L000024
  43. L00004c:
  44. move.w d0,-(sp)
  45. clr.w -(sp)
  46. DOS _CONCTRL
  47. addq.l #4,sp
  48. bsr.w L00051a
  49. lea.l (L00057b),a5
  50. lea.l (L000963),a6
  51. bsr.w L0004ac
  52. clr.w -(sp)
  53. pea.l (L000963)
  54. DOS _OPEN
  55. addq.l #6,sp
  56. tst.l d0
  57. bmi.s L0000c0
  58. move.w d0,d2
  59. move.l #$000002c8,-(sp)
  60. pea.l (L000a26)
  61. move.w d2,-(sp)
  62. DOS _READ
  63. lea.l ($000a,sp),sp
  64. cmp.l #$000002c8,d0
  65. bne.s L0000b2
  66. move.w d2,-(sp)
  67. DOS _CLOSE
  68. addq.l #2,sp
  69. pea.l (L000a26)
  70. move.w #$0100,-(sp)
  71. DOS _FNCKEY
  72. addq.l #6,sp
  73. lea.l (L0008b1),a5
  74. bra.s L0000c6
  75. L0000b2:
  76. move.w d2,-(sp)
  77. DOS _CLOSE
  78. addq.l #2,sp
  79. lea.l (L0008f5),a5
  80. bra.s L0000c6
  81. L0000c0:
  82. lea.l (L0008da),a5
  83. L0000c6:
  84. bsr.w L000530
  85. L0000ca:
  86. DOS _EXIT
  87. L0000cc:
  88. bsr.w L00051a
  89. DOS _EXIT
  90. L0000d2:
  91. move.w #$0200,-(sp)
  92. L0000d6:
  93. move.w (L000544),-(sp)
  94. move.w #$0010,-(sp)
  95. DOS _CONCTRL
  96. addq.l #4,sp
  97. DOS _EXIT2
  98. L0000e6:
  99. move.w d0,-(sp)
  100. clr.w -(sp)
  101. DOS _CONCTRL
  102. addq.l #4,sp
  103. bsr.w L00051a
  104. lea.l (L00057b),a5
  105. lea.l (L000963),a6
  106. bsr.w L0004ac
  107. clr.w -(sp)
  108. pea.l (L000963)
  109. DOS _OPEN
  110. addq.l #6,sp
  111. tst.l d0
  112. bmi.s L000138
  113. move.w d0,d2
  114. move.l #$000002c8,-(sp)
  115. pea.l (L000a26)
  116. move.w d2,-(sp)
  117. DOS _READ
  118. lea.l ($000a,sp),sp
  119. move.l d0,-(sp)
  120. move.w d2,-(sp)
  121. DOS _CLOSE
  122. addq.l #2,sp
  123. cmpi.l #$000002c8,(sp)+
  124. beq.s L000146
  125. L000138:
  126. pea.l (L000a26)
  127. move.w #$0000,-(sp)
  128. DOS _FNCKEY
  129. addq.l #6,sp
  130. L000146:
  131. lea.l (L000595),a5
  132. lea.l (L0009b4),a6
  133. bsr.w L0004ac
  134. lea.l (L0005af),a5
  135. bsr.w L000530
  136. bsr.w L0004cc
  137. bne.w L0000ca
  138. move.w #$ffff,-(sp)
  139. move.w #$0010,-(sp)
  140. DOS _CONCTRL
  141. move.w d0,(L000544)
  142. pea.l (L0000d2)
  143. move.w #$fff1,-(sp)
  144. DOS _INTVCS
  145. addq.l #6,sp
  146. move.w #$0000,($0002,sp)
  147. DOS _CONCTRL
  148. addq.l #4,sp
  149. lea.l (L0005c9),a5
  150. bsr.w L000530
  151. lea.l (L000a26),a6
  152. lea.l (L0005fd),a4
  153. moveq.l #$13,d6
  154. L0001a8:
  155. movea.l a4,a5
  156. bsr.w L000530
  157. movea.l a6,a5
  158. bsr.w L000404
  159. lea.l ($0010,a4),a4
  160. lea.l ($0020,a6),a6
  161. dbra.w d6,L0001a8
  162. lea.l (L00073d),a4
  163. moveq.l #$0b,d6
  164. L0001c8:
  165. movea.l a4,a5
  166. bsr.w L000530
  167. movea.l a6,a5
  168. bsr.w L000404
  169. lea.l ($0018,a4),a4
  170. lea.l ($0006,a6),a6
  171. dbra.w d6,L0001c8
  172. L0001e0:
  173. lea.l (L00085d),a5
  174. bsr.w L000530
  175. L0001ea:
  176. DOS _GETC
  177. cmp.b #$0d,d0
  178. beq.w L00036e
  179. and.w #$00df,d0
  180. cmp.b #$46,d0 ;'F'
  181. bne.s L0001ea
  182. move.w d0,-(sp)
  183. DOS _PUTCHAR
  184. move.w (sp)+,d0
  185. moveq.l #$01,d2
  186. clr.l d1
  187. L000208:
  188. DOS _GETC
  189. cmp.b #$0d,d0
  190. beq.w L00036e
  191. cmp.b #$30,d0 ;'0'
  192. bcs.s L000208
  193. cmp.b #$3a,d0 ;':'
  194. bcc.s L000208
  195. move.w d0,-(sp)
  196. DOS _PUTCHAR
  197. move.w (sp)+,d0
  198. mulu.w #$000a,d1
  199. and.w #$000f,d0
  200. add.w d0,d1
  201. dbra.w d2,L000208
  202. subq.w #1,d1
  203. cmp.w #$0020,d1 ;' '
  204. bcc.s L0001e0
  205. L00023a:
  206. move.w d1,-(sp)
  207. clr.l d6
  208. L00023e:
  209. lea.l (L000871),a5
  210. bsr.w L000530
  211. lea.l (L000a06),a6
  212. adda.l d6,a6
  213. clr.b (a6)
  214. lea.l (L000a06),a5
  215. L000258:
  216. move.b (a5)+,d0
  217. beq.s L00028a
  218. cmp.b #$80,d0
  219. bcs.s L00027e
  220. cmp.b #$a0,d0
  221. bcs.s L000274
  222. cmp.b #$e0,d0
  223. bcs.s L00027e
  224. cmp.b #$fe,d0
  225. beq.s L00027e
  226. L000274:
  227. tst.b (a5)
  228. beq.s L000284
  229. bsr.w L00040e
  230. move.b (a5)+,d0
  231. L00027e:
  232. bsr.w L00040e
  233. bra.s L000258
  234. L000284:
  235. clr.b -(a5)
  236. subq.l #1,a6
  237. subq.l #1,d6
  238. L00028a:
  239. DOS _GETC
  240. cmp.b #$0d,d0
  241. beq.s L0002d8
  242. cmp.b #$08,d0
  243. beq.s L0002c6
  244. cmp.b #$1f,d0
  245. beq.s L0002b2
  246. cmp.b #$1e,d0
  247. beq.s L0002ae
  248. cmp.b #$1d,d0
  249. bne.s L0002b4
  250. moveq.l #$08,d0
  251. bra.s L0002b4
  252. L0002ae:
  253. moveq.l #$fe,d0
  254. bra.s L0002b4
  255. L0002b2:
  256. moveq.l #$0d,d0
  257. L0002b4:
  258. cmp.l #$0000001f,d6
  259. bcc.s L00028a
  260. move.b d0,(a6)+
  261. addq.l #1,d6
  262. bsr.w L00040e
  263. bra.s L00028a
  264. L0002c6:
  265. tst.l d6
  266. beq.w L0001e0
  267. lea.l (L000a06),a6
  268. subq.l #1,d6
  269. bra.w L00023e
  270. L0002d8:
  271. clr.b (a6)
  272. move.w (sp)+,d1
  273. lea.l (L000a26),a4
  274. move.w d1,d4
  275. cmp.w #$0014,d4
  276. bcc.s L0002f0
  277. asl.w #5,d4
  278. moveq.l #$1f,d0
  279. bra.s L00030a
  280. L0002f0:
  281. cmp.w #$0006,d6
  282. bcc.w L00023a
  283. sub.w #$0014,d4
  284. lea.l ($0280,a4),a4
  285. asl.w #1,d4
  286. move.w d4,d0
  287. asl.w #1,d4
  288. add.w d0,d4
  289. moveq.l #$05,d0
  290. L00030a:
  291. lea.l (a4,d4.w),a4
  292. movea.l a4,a0
  293. L000310:
  294. clr.b (a0)+
  295. dbra.w d0,L000310
  296. lea.l (L000a06),a5
  297. movea.l a4,a0
  298. L00031e:
  299. move.b (a5)+,(a0)+
  300. bne.s L00031e
  301. lea.l (L0005fd),a5
  302. move.w d1,d4
  303. cmp.w #$0014,d4
  304. bcc.s L000336
  305. asl.w #4,d4
  306. moveq.l #$22,d0 ;'"'
  307. bra.s L00034a
  308. L000336:
  309. sub.w #$0014,d4
  310. lea.l (L00073d),a5
  311. asl.w #3,d4
  312. move.w d4,d0
  313. asl.w #1,d4
  314. add.w d0,d4
  315. moveq.l #$09,d0
  316. L00034a:
  317. lea.l (a5,d4.w),a5
  318. move.l d0,d4
  319. bsr.w L000530
  320. move.w #$0020,-(sp) ;' '
  321. L000358:
  322. DOS _INPOUT
  323. dbra.w d4,L000358
  324. addq.l #2,sp
  325. bsr.w L000530
  326. movea.l a4,a5
  327. bsr.w L000404
  328. bra.w L0001e0
  329. L00036e:
  330. lea.l (L000885),a5
  331. bsr.w L000530
  332. bsr.w L0004cc
  333. bne.w L0001e0
  334. bsr.w L00051a
  335. lea.l (L0009b4),a5
  336. bsr.w L000530
  337. lea.l (L00089a),a5
  338. bsr.w L000530
  339. bsr.w L0004cc
  340. bne.s L0003ce
  341. move.w #$0020,-(sp) ;' '
  342. pea.l (L0009b4)
  343. DOS _CREATE
  344. addq.l #6,sp
  345. tst.l d0
  346. tst.l d0
  347. bmi.s L0003ce
  348. move.w d0,d2
  349. move.l #$000002c8,-(sp)
  350. pea.l (L000a26)
  351. move.w d2,-(sp)
  352. DOS _WRITE
  353. lea.l ($000a,sp),sp
  354. move.w d2,-(sp)
  355. DOS _CLOSE
  356. addq.l #2,sp
  357. L0003ce:
  358. pea.l (L000a26)
  359. move.w #$0100,-(sp)
  360. DOS _FNCKEY
  361. addq.l #6,sp
  362. clr.w -(sp)
  363. bra.w L0000d6
  364. L0003e2:
  365. subq.l #1,a2
  366. bsr.w L0004f4
  367. subq.w #1,d1
  368. cmp.w #$0020,d1 ;' '
  369. bcc.w L0000ca
  370. addq.w #1,d1
  371. or.w #$0100,d1
  372. move.l a2,-(sp)
  373. move.w d1,-(sp)
  374. DOS _FNCKEY
  375. addq.l #6,sp
  376. bra.w L0000ca
  377. L000404:
  378. move.b (a5)+,d0
  379. beq.s L00040c
  380. bsr.s L00040e
  381. bra.s L000404
  382. L00040c:
  383. rts
  384. L00040e:
  385. and.w #$00ff,d0
  386. cmp.b #$fe,d0
  387. beq.s L000482
  388. bcc.w L0004aa
  389. cmp.b #$20,d0 ;' '
  390. bcs.s L000432
  391. move.w d0,-(sp)
  392. move.w #$0009,-(sp)
  393. move.w #$0002,-(sp)
  394. DOS _CONCTRL
  395. addq.l #4,sp
  396. bra.s L00049a
  397. L000432:
  398. move.w d0,-(sp)
  399. move.w #$000b,-(sp)
  400. move.w #$0002,-(sp)
  401. DOS _CONCTRL
  402. addq.l #4,sp
  403. move.w (sp)+,d0
  404. cmp.b #$1b,d0
  405. beq.s L00046c
  406. cmp.b #$0d,d0
  407. beq.s L00045e
  408. add.w #$0040,d0
  409. move.w d0,-(sp)
  410. move.w #$005e,-(sp) ;'^'
  411. DOS _INPOUT
  412. addq.l #2,sp
  413. bra.s L00049a
  414. L00045e:
  415. move.w #$0063,-(sp) ;'c'
  416. DOS _INPOUT
  417. addq.l #2,sp
  418. move.w #$0072,-(sp) ;'r'
  419. bra.s L00049a
  420. L00046c:
  421. move.w #$0065,-(sp) ;'e'
  422. DOS _INPOUT
  423. addq.l #2,sp
  424. move.w #$0073,-(sp) ;'s'
  425. DOS _INPOUT
  426. addq.l #2,sp
  427. move.w #$0063,-(sp) ;'c'
  428. bra.s L00049a
  429. L000482:
  430. move.w #$000a,-(sp)
  431. move.w #$0002,-(sp)
  432. DOS _CONCTRL
  433. addq.l #4,sp
  434. move.w #$0066,-(sp) ;'f'
  435. DOS _INPOUT
  436. addq.l #2,sp
  437. move.w #$0065,-(sp) ;'e'
  438. L00049a:
  439. DOS _INPOUT
  440. addq.l #2,sp
  441. move.w #$0003,-(sp)
  442. move.w #$0002,-(sp)
  443. DOS _CONCTRL
  444. addq.l #4,sp
  445. L0004aa:
  446. rts
  447. L0004ac:
  448. bsr.w L000530
  449. lea.l (L000910),a5
  450. clr.b ($0001,a5)
  451. bsr.s L000520
  452. tst.b ($0001,a5)
  453. beq.s L0004ca
  454. lea.l ($0002,a5),a5
  455. L0004c6:
  456. move.b (a5)+,(a6)+
  457. bne.s L0004c6
  458. L0004ca:
  459. rts
  460. L0004cc:
  461. move.w #$0008,-(sp)
  462. DOS _KFLUSH
  463. addq.l #2,sp
  464. or.b #$20,d0
  465. cmp.b #$79,d0 ;'y'
  466. beq.s L0004e6
  467. cmp.b #$6e,d0 ;'n'
  468. bne.s L0004cc
  469. or.b d0,d0
  470. L0004e6:
  471. move.w sr,-(sp)
  472. move.w d0,-(sp)
  473. DOS _PUTCHAR
  474. addq.l #2,sp
  475. bsr.s L00051a
  476. move.w (sp)+,ccr
  477. rts
  478. L0004f4:
  479. bsr.s L000538
  480. clr.l d1
  481. L0004f8:
  482. cmp.b #$30,d0 ;'0'
  483. bcs.s L000518
  484. cmp.b #$3a,d0 ;':'
  485. bcc.s L000518
  486. and.l #$0000000f,d0
  487. add.l d1,d1
  488. move.l d1,d2
  489. asl.l #2,d1
  490. add.l d2,d1
  491. add.l d0,d1
  492. move.b (a2)+,d0
  493. bra.s L0004f8
  494. L000518:
  495. rts
  496. L00051a:
  497. moveq.l #$0d,d0
  498. bsr.s L000528
  499. bra.s L000526
  500. L000520:
  501. move.l a5,-(sp)
  502. DOS _GETS
  503. addq.l #4,sp
  504. L000526:
  505. moveq.l #$0a,d0
  506. L000528:
  507. move.w d0,-(sp)
  508. DOS _PUTCHAR
  509. addq.l #2,sp
  510. rts
  511. L000530:
  512. move.l a5,-(sp)
  513. DOS _PRINT
  514. addq.l #4,sp
  515. rts
  516. L000538:
  517. move.b (a2)+,d0
  518. beq.s L000542
  519. cmp.b #$20,d0 ;' '
  520. beq.s L000538
  521. L000542:
  522. rts
  523. .data
  524. L000544:
  525. .dc.w $0000
  526. L000546:
  527. .dc.b $0d,$0a
  528. .dc.b 'KEY Version 1.00',$0d,$0a,$00
  529. L00055b:
  530. .dc.b $0d,$0a
  531. .dc.b '更新ですか、登録ですか?[U/L]',$00
  532. L00057b:
  533. .dc.b '入力ファイル名 [KEY.SYS]:',$00
  534. L000595:
  535. .dc.b '出力ファイル名 [KEY.SYS]:',$00
  536. L0005af:
  537. .dc.b '処理を開始しますか?[Y/N]',$00
  538. L0005c9:
  539. .dc.b $1b,'*',$09,'*** 現在のファンクションキー定義状態 ***',$00
  540. L0005fd:
  541. .dc.b $1b,'[04;08HF01:',$00,$00,$00,$00
  542. L00060d:
  543. .dc.b $1b,'[05;08HF02:',$00,$00,$00,$00
  544. L00061d:
  545. .dc.b $1b,'[06;08HF03:',$00,$00,$00,$00
  546. L00062d:
  547. .dc.b $1b,'[07;08HF04:',$00,$00,$00,$00
  548. L00063d:
  549. .dc.b $1b,'[08;08HF05:',$00,$00,$00,$00
  550. L00064d:
  551. .dc.b $1b,'[09;08HF06:',$00,$00,$00,$00
  552. L00065d:
  553. .dc.b $1b,'[10;08HF07:',$00,$00,$00,$00
  554. L00066d:
  555. .dc.b $1b,'[11;08HF08:',$00,$00,$00,$00
  556. L00067d:
  557. .dc.b $1b,'[12;08HF09:',$00,$00,$00,$00
  558. L00068d:
  559. .dc.b $1b,'[13;08HF10:',$00,$00,$00,$00
  560. L00069d:
  561. .dc.b $1b,'[04;48HF11:',$00,$00,$00,$00
  562. L0006ad:
  563. .dc.b $1b,'[05;48HF12:',$00,$00,$00,$00
  564. L0006bd:
  565. .dc.b $1b,'[06;48HF13:',$00,$00,$00,$00
  566. L0006cd:
  567. .dc.b $1b,'[07;48HF14:',$00,$00,$00,$00
  568. L0006dd:
  569. .dc.b $1b,'[08;48HF15:',$00,$00,$00,$00
  570. L0006ed:
  571. .dc.b $1b,'[09;48HF16:',$00,$00,$00,$00
  572. L0006fd:
  573. .dc.b $1b,'[10;48HF17:',$00,$00,$00,$00
  574. L00070d:
  575. .dc.b $1b,'[11;48HF18:',$00,$00,$00,$00
  576. L00071d:
  577. .dc.b $1b,'[12;48HF19:',$00,$00,$00,$00
  578. L00072d:
  579. .dc.b $1b,'[13;48HF20:',$00,$00,$00,$00
  580. L00073d:
  581. .dc.b $1b,'[15;01H(ROLL UP )F21:',$00
  582. L000755:
  583. .dc.b $1b,'[16;01H(ROLL DOWN)F22:',$00
  584. L00076d:
  585. .dc.b $1b,'[17;01H( INS )F23:',$00
  586. L000785:
  587. .dc.b $1b,'[18;01H( DEL )F24:',$00
  588. L00079d:
  589. .dc.b $1b,'[15;27H(  ↑  )F25:',$00
  590. L0007b5:
  591. .dc.b $1b,'[16;27H(  ←  )F26:',$00
  592. L0007cd:
  593. .dc.b $1b,'[17;27H(  →  )F27:',$00
  594. L0007e5:
  595. .dc.b $1b,'[18;27H(  ↓  )F28:',$00
  596. L0007fd:
  597. .dc.b $1b,'[15;53H( CLR )F29:',$00
  598. L000815:
  599. .dc.b $1b,'[16;53H( HELP )F30:',$00
  600. L00082d:
  601. .dc.b $1b,'[17;53H( HOME )F31:',$00
  602. L000845:
  603. .dc.b $1b,'[18;53H( UNDO )F32:',$00
  604. L00085d:
  605. .dc.b $1b,'[20;1H',$1b,'[Jキー番号:',$00
  606. L000871:
  607. .dc.b $1b,'[22;1H',$1b,'[Jキー機能:',$00
  608. L000885:
  609. .dc.b $0d,'終了しますか?[Y/N]',$00
  610. L00089a:
  611. .dc.b ' を更新しますか?[Y/N]',$00
  612. L0008b1:
  613. .dc.b 'ファイルの内容をシステムに登録しました',$0d,$0a,$00
  614. L0008da:
  615. .dc.b 'ファイルが見つかりません',$0d,$0a,$00
  616. L0008f5:
  617. .dc.b 'ファイルが読み込めません',$0d,$0a,$00
  618. L000910:
  619. .dc.b $50,$00,$00,$00,$00,$00,$00,$00
  620. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  621. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  622. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  623. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  624. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  625. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  626. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  627. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  628. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  629. .dc.b $00,$00,$00
  630. L000963:
  631. .dc.b 'KEY.SYS',$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  632. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  633. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  634. L0009b4:
  635. .dc.b 'KEY.SYS',$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  636. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  637. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  638. .bss
  639. L000a06:
  640. .ds.b 32
  641. L000a26:
  642. .ds.b 1736
  643. End:
  644. .end Start