home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 710.STATRECS.DES < prev    next >
Text File  |  1993-02-04  |  11KB  |  814 lines

  1. ; DESCRIPTION FILE FOR STATIC SCENERY RECORDS
  2. ;
  3. ; This file contains the descriptions of records used in static scenery
  4. ; files.  It is intended to be called by actual description files
  5.  
  6. ; jump over subroutines
  7. >START    #J
  8.  
  9. ; *******************************
  10. ; * ROUTINE FOR VAR NAME OUTPUT *
  11. ; *******************************
  12. :VAR_MARK
  13. 2    -
  14. >VM_0284    #I    V!0x0282
  15. 0    #T    _Counter    ; no numerical output, only var name
  16. >VAL_HEX    #M            ; mark VAL_HEX as value output routine
  17. 0    #E
  18.  
  19. :VM_0284
  20. >VM_0286    #I    V!0x0284
  21. 0    #T    _CrashFlag
  22. >VAL_HEX    #M
  23. 0    #E
  24.  
  25. :VM_0286
  26. >VM_0288    #I    V!0x0286
  27. 0    #T    _MapView
  28. >VAL_HEX    #M
  29. 0    #E
  30.  
  31. :VM_0288
  32. >VM_028A    #I    V!0x0288
  33. 0    #T    _FuelBox
  34. >VAL_HEX    #M
  35. 0    #E
  36.  
  37. :VM_028A
  38. >VM_028C    #I    V!0x028A
  39. 0    #T    _Version
  40. >VAL_HEX    #M
  41. 0    #E
  42.  
  43. :VM_028C
  44. >VM_0290    #I    V!0x028C
  45. 0    #T    _Time
  46. >VAL_TIME    #M
  47. 0    #E
  48.  
  49. :VM_0290
  50. >VM_0292    #I    V!0x0290
  51. 0    #T    _LoEast
  52. >VAL_HEX    #M
  53. 0    #E
  54.  
  55. :VM_0292
  56. >VM_0294    #I    V!0x0292
  57. 0    #T    _HiEast_
  58. >VAL_C    #M
  59. 0    #E
  60.  
  61. :VM_0294
  62. >VM_0296    #I    V!0x0294
  63. 0    #T    _LoAlt
  64. >VAL_I1    #M
  65. 0    #E
  66.  
  67. :VM_0296
  68. >VM_0298    #I    V!0x0296
  69. 0    #T    _HiAlt__
  70. >VAL_ALT    #M
  71. 0    #E
  72.  
  73. :VM_0298
  74. >VM_029A    #I    V!0x0298
  75. 0    #T    _LoNorth
  76. >VAL_HEX    #M
  77. 0    #E
  78.  
  79. :VM_029A
  80. >VM_029C    #I    V!0x029A
  81. 0    #T    _HiNorth
  82. >VAL_C    #M
  83. 0    #E
  84.  
  85. :VM_029C
  86. >VM_029E    #I    V!0x029C
  87. 0    #T    _DeltaEast
  88. >VAL_DC    #M
  89. 0    #E
  90.  
  91. :VM_029E
  92. >VM_02A0    #I    V!0x029E
  93. 0    #T    _DeltaAlt
  94. >VAL_DC    #M
  95. 0    #E
  96.  
  97. :VM_02A0
  98. >VM_02E2    #I    V!0x02A0
  99. 0    #T    _DeltaNorth
  100. >VAL_DC    #M
  101. 0    #E
  102.  
  103. :VM_02E2
  104. >VM_02EF    #I    V!0x02E2
  105. 0    #T    _Surface
  106. >VAL_COL    #M
  107. 0    #E
  108.  
  109. :VM_02EF
  110. >VM_02F6    #I    V!0x02EF
  111. 0    #T    _MSL_Alt
  112. >VAL_I    #M
  113. 0    #E
  114.  
  115. :VM_02F6
  116. >VM_02F8    #I    V!0x02F6
  117. 0    #T    _Inner_Marker
  118. >VAL_HEX    #M
  119. 0    #E
  120.  
  121. :VM_02F8
  122. >VM_02FA    #I    V!0x02F8
  123. 0    #T    _Outer_Marker
  124. >VAL_HEX    #M
  125. 0    #E
  126.  
  127. :VM_02FA
  128. >VM_02FC    #I    V!0x02FA
  129. 0    #T    _Middle_Marker
  130. >VAL_HEX    #M
  131. 0    #E
  132.  
  133. :VM_02FC
  134. >VM_02FE    #I    V!0x02FC
  135. 0    #T    _Glideslope
  136. >VAL_GLI    #M
  137. 0    #E
  138.  
  139. :VM_02FE
  140. >VM_HEX    #I    V!0x02FE
  141. 0    #T    _Course
  142. >VAL_DEG    #M
  143. 0    #E
  144.  
  145. :VM_HEX                ; standard var output
  146. 2    X-    var_
  147. >VAL_HEX    #M
  148. 0    #E
  149.  
  150. ; *********************************
  151. ; * ROUTINES FOR VAR VALUE OUTPUT *
  152. ; *********************************
  153. :VAL_ALT            ; VALUE AS ALTITUDE HI WORD
  154. 2    -
  155. 0    #R    V*256
  156. 4    I-
  157. 0    #E
  158.  
  159. :VAL_C            ; AS COORDINATE
  160. 2    C
  161. 0    #E
  162.  
  163. :VAL_COL            ; AS A COLOUR
  164. 2    -
  165. >COLOUR    #C
  166. 0    #E
  167.  
  168. :VAL_DC            ; AS DELTA COORD
  169. 2    c
  170. 4    J-    (|m)
  171. 0    #E
  172.  
  173. :VAL_DEG            ; AS DEGREE
  174. 2    G
  175. 0    #E
  176.  
  177. :VAL_GLI            ; AS GLIDESLOPE
  178. 2    -
  179. 0    #R    V*256            VASI slope is in 1/10 degrees
  180. 0    #R    V/10
  181. 4    J-
  182. 0    #E
  183.  
  184. :VAL_HEX            ; AS HEX
  185. 2    X
  186. 0    #E
  187.  
  188. :VAL_I            ; AS AN INTEGER
  189. 2    I
  190. 0    #E
  191.  
  192. :VAL_I1            ; AS INTEGER, 1 BYTE DECIMAL
  193. 2    J
  194. 0    #E
  195.  
  196. :VAL_TIME            ; AS TIME
  197. 2    E    |00#Day#Dusk#03#Night
  198. 0    #E
  199.  
  200. ; *********************
  201. ; * OTHER SUBROUTINES *
  202. ; *********************
  203.  
  204. ; outputs a delta point with 3 delta and 3 actual coordinates
  205.  
  206. :REF_XYZ
  207. 2    c    |E
  208. 0    #R    V+X    add delta to ref. point coord
  209. 4    C-    (|)
  210. 2    c    |A
  211. 0    #R    V+Z
  212. 4    J-    (|)
  213. 2    c    |N
  214. 0    #R    V+Y
  215. 4    C-    (|)
  216. 0    #E
  217.  
  218. ; inserts a link point and outputs offset and real address
  219.  
  220. :LINK_PT
  221. 2    i$
  222. 0    #R    V+Q    add record offset to field value
  223. 3    X-    at_    print skip-to point
  224. 0    #E
  225.  
  226. ; converts colour codes;
  227.  
  228. :COLOUR
  229. 0    #R    V&0x0F    ; reset hi nibbles
  230. 1    E-    |Black#D.Green#D.Blue#D.Cyan#Orange#L.Grey#L.Blue#Cyan#Brown#Yellow#D.Grey#L.Green#Red#Gold#??#White
  231. 0    #E
  232.  
  233. ; *************************
  234. ; * EXECUTION BEGINS HERE *
  235. ; *************************
  236.  
  237. :START
  238. ; -- 00h  Strobe --
  239.  
  240. 0    -R    #Strobe:
  241. >REF_XYZ    #C
  242.  
  243. ; -- 01h  Move to 3D point --
  244.  
  245. 1    -R    #Moveto
  246. >REF_XYZ    #C
  247.  
  248. ; -- 02h  Draw to 3D point --
  249.  
  250. 2    -R    #Drawto
  251. >REF_XYZ    #C
  252.  
  253. ; -- 03h  Simple runway --
  254.  
  255. 3    -R    #Strip:
  256. 1    G    |,
  257. 2    -
  258. 0    #R    V*2    field is length / 2
  259. 2    I-    |m_long,
  260. 2    -
  261. 0    #R    V*2    field is width / 2
  262. 2    I-    |m_wide
  263.  
  264. ; -- 04h  ?? --
  265.  
  266. 4    -R    #Point_list:
  267. ; loop until a 0xFF byte found
  268. :04LOOP
  269. 1    I
  270. >04LOOP    #I    V!0xFF
  271.  
  272. ; -- 05h  NDB --
  273.  
  274. 5    -R    #NDB:
  275. 2    X    __|kHz,
  276. 4    C    |E
  277. 4    C    |N
  278.  
  279. ; -- 07h  ?? --
  280.  
  281. 7    XR    #|_???
  282.  
  283. ; -- 0Bh  JUMP --
  284.  
  285. 11    -R    #Jump
  286. >LINK_PT    #C
  287. ; build in A the address of the following record
  288. 0    #R    A=Q
  289. 0    #R    A+3
  290. ; dump to next link point, if next rec is not equal to it
  291. >0B_NXT    #I    A=@
  292. -1    D    #Embedded:_
  293. :0B_NXT
  294.  
  295. ; -- 0Ch  ?? --
  296.  
  297. 12    XR    #|_???
  298. 1    X
  299. 1    X
  300.  
  301. ; -- 0Eh/8Eh  JUMP ON JUMP
  302. ; code for 8Eh jumps to code for 0Eh
  303.  
  304. 142    -R    #Delayed_CALL
  305. >0E_COD    #J
  306. 14    -R    #Delayed_call
  307. :0E_COD
  308. >LINK_PT    #C
  309.  
  310. ; -- 0Fh  ?? --
  311.  
  312. 15    -R    #ExecProc
  313. 1    X    no._|,
  314. 1    I class_|,
  315. 2    i    address_
  316. 0    #R    V+Q    add record offset to field value
  317. 3    X-    at_|,    print skip-to point
  318. 1    I    nest_level_
  319.  
  320. ; -- 10h  ?? --
  321.  
  322. 16    -R    #Jump
  323. >LINK_PT    #C
  324. 1    X    on_pt._no._
  325. 1    X    -_vect._no._
  326.  
  327. ; -- 12h  Line colour --
  328.  
  329. 18    -R    #Line_colour:
  330. 1    -
  331. >COLOUR    #C
  332.  
  333. ; -- 13h  Line multi-colour --
  334.  
  335. 19    -R    #Line_colour:
  336. 1    X    day_|,
  337. 1    X    dusk_|,
  338. 1    X    night_|,
  339. 1    X    (
  340. 1    X
  341. 1    X    |,
  342. 1    X
  343. 1    X
  344. 1    X    |)
  345.  
  346. ; -- 14h  Surface multi-colour --
  347.  
  348. 20    -R    #Surface_colour:
  349. 1    X    day_|,
  350. 1    X    dusk_|,
  351. 1    X    night_|,
  352. 1    X    (
  353. 1    X
  354. 1    X    |,
  355. 1    X
  356. 1    X
  357. 1    X    |)
  358. ;
  359. ; -- 15h  Axis roto-translation --
  360. ;
  361. 21    -R    #Rotation:_
  362. 2    gS    |p
  363. 2    gT    |b
  364. 2    GU    |h,
  365. 0    #T    #___tran.
  366. >REF_XYZ    #C
  367. 0    #T    _Call
  368. >LINK_PT    #C
  369. ;
  370. ; -- 16h  Axis rotation --
  371. ;
  372. 22    -R    #Rotation:_
  373. 2    gS    |p
  374. 2    gT    |b
  375. 2    GU    |h;
  376. 0    #T    _Call
  377. >LINK_PT    #C
  378. ;
  379. ; -- 17h  Return --
  380. ;
  381. 23    XR    #RET
  382. 0    #H    --------------------
  383. ;
  384. ; -- 18h  Call --
  385. ;
  386. 24    XR    #Call
  387. >LINK_PT    #C
  388. ;
  389. ; -- 19h  Return --
  390. ;
  391. 25    XR    #RET
  392. 0    #H    --------------------
  393. ;
  394. ; -- 1Ah  Equ vars --
  395. ;
  396. 26    -R    #Set
  397. >VAR_MARK    #C
  398. >VAR_MARK    #C    =
  399. ;
  400. ; -- 1Bh  Line night colour on --
  401. ;
  402. 27    -R    #Line_night_colour_ON
  403. ;
  404. ; -- 1Ch  Line night colour OFF --
  405. ;
  406. 28    -R    #Line_night_colour_OFF
  407. ;
  408. ; -- 1Dh  VOR --
  409. ;
  410. 29    -R    #VOR:
  411. 2    Y    1|MHz,
  412. 4    CX    |E
  413. 4    CY    |N
  414. ;
  415. ; -- 1Eh  ATC --
  416. ;
  417. 30    -R    #ATC:
  418. 2    I$    |_bytes;
  419. 2    Y    1|MHz,
  420. 1    I    runways:_
  421. 1    I
  422. 1    I
  423. 1    I    |;
  424. 1    X
  425. 3    S    "|"(??),_text:
  426. -1    S    #"|"
  427. ;
  428. ; -- 1Fh  Call --
  429. ;
  430. 31    XR    #Call
  431. >LINK_PT    #C
  432. ;
  433. ; -- 20h  Jump on var value --
  434. ;
  435. 32    -R    #Jump
  436. >LINK_PT    #C
  437. >VAR_MARK    #C    on
  438. 0    #N    outside
  439. 0    #N    -
  440. ;
  441. ; -- 21h  Jump on 2 var values --
  442. ;
  443. 33    -R    #Jump
  444. >LINK_PT    #C
  445. >VAR_MARK    #C    #__on
  446. 0    #N    outside
  447. 0    #N    -
  448. >VAR_MARK    #C    OR
  449. 0    #N    outside
  450. 0    #N    -
  451. ;
  452. ; -- 22h  Jump on 3 var values --
  453. ;
  454. 34    -R    #Jump
  455. >LINK_PT    #C
  456. >VAR_MARK    #C    #__on
  457. 0    #N    outside
  458. 0    #N    -
  459. >VAR_MARK    #C    #____
  460. 0    #N    outside
  461. 0    #N    -
  462. >VAR_MARK    #C    #____
  463. 0    #N    outside
  464. 0    #N    -
  465. ;
  466. ; -- 23h  Jump if NAND --
  467. ;
  468. 35    -R    #Jump
  469. >LINK_PT    #C
  470. >VAR_MARK    #C    if_NOT_(
  471. 2    X    AND_|)
  472. ;
  473. ; -- 24h  Reference point --
  474. ;
  475. 36    -R    #---_REF._PT:
  476. 1    IS    scale:_|,
  477. 4    CX    |E
  478. 4    JZ    |m
  479. 4    CY    |N
  480. ;
  481. ; -- 25h  Set variable --
  482. ;
  483. 37    -R    #Set
  484. >VAR_MARK    #C
  485. 0    #N    to
  486. ;
  487. ; -- 27h  Control vector --
  488. ;
  489. 39    -R    #Vector
  490. 2    c    |x
  491. 2    c    |z
  492. 2    c    |y,
  493. 1    X    as_pt._no_
  494. ;
  495. ; -- 28h  Jump on var compare --
  496. ;
  497. 40    -R    #Jump
  498. 1    -
  499. 0    #R    A=V        store flag for later
  500. >LINK_PT    #C
  501. >VAR_MARK    #C    if        output var1
  502. >28_04    #I    A!2
  503. 0    #T    _>        if A==2, test is >
  504. >28_var2    #J
  505. :28_04
  506. >28_??    #I    A!4
  507. 0    #T    _<        if A==4, test is <
  508. :28_var2
  509. >VAR_MARK    #C
  510. >28_NXT    #J
  511. :28_??
  512. 0    #R    V=A        restore flag
  513. 1    X-    |??
  514. 2    X    value_
  515. :28_NXT
  516. ;
  517. ; -- 29h  Close path --
  518. ;
  519. 41    -R    #Close_path
  520. ;
  521. ; -- 2Ah  Dotted line --
  522. ;
  523. 42    -R    #Dotted_Line:
  524. 0    #T    #___from
  525. >REF_XYZ    #C
  526. 0    #T    #_____to
  527. >REF_XYZ    #C
  528. 1    -    #
  529. 0    #R    V*2    field is point # / 2
  530. 2    I-    __|_dots
  531. ;
  532. ; -- 2Bh  Dashed line --
  533. ;
  534. 43    -R    #Dashed_line:
  535. 0    #T    #___from
  536. >REF_XYZ    #C
  537. 0    #T    #_____to
  538. >REF_XYZ    #C
  539. 1    I    #__|_dashes
  540. ;
  541. ; -- 2Eh  ?? --
  542. ;
  543. 46    XR    #|_???
  544. 2    X
  545. ;
  546. ; -- 2Fh  Path --
  547. ;
  548. 47    -R    #Path
  549. ;
  550. ; -- 30h   --
  551. ;
  552. 48    XR    #
  553. 7    D    ???
  554. ;
  555. ; -- 31h  3D point --
  556. ;
  557. 49    -R    #Pt.
  558. 1    I    |:
  559. >REF_XYZ    #C
  560. ;
  561. ; -- 32h  Move to 3D point --
  562. ;
  563. 50    -R    #Move_to_pt_no.
  564. 1    I
  565. ;
  566. ; -- 33h  Draw to 3D point --
  567. ;
  568. 51    -R    #Draw_to_pt_no.
  569. 1    I
  570. ;
  571. ; -- 35h  Draw dot --
  572. ;
  573. 53    -R    #Dot
  574. 1    i    at_pt._
  575. ;
  576. ; -- 36h  ?? --
  577. ;
  578. 54    XR    #|_???
  579. 1    D
  580. ;
  581. ; -- 3Bh  Set elevation level --
  582. ;
  583. 59    -R    #Elev._level_at
  584. 4    J    |m
  585. ;
  586. ; -- 3Ch  ?? --
  587. ;
  588. 60    XR    #|_???
  589. 3    D
  590. ;
  591. ; -- 3Dh  Jump if outside area --
  592. ;
  593. 61    -R    #Jump
  594. >LINK_PT    #C
  595. 4    C    #__if_outside_|E_-
  596. 4    C    |E,
  597. 4    C    |N_-
  598. 4    C    |N
  599. ;
  600. ; -- 3Eh  Jump if outside area --
  601. ;
  602. 62    -R    #===JUMP
  603. >LINK_PT    #C
  604. 2    C    if_outside_|N
  605. 2    C    |E
  606. 2    I    +-|FSu
  607. 0    #R    V*256            FSu to meters
  608. 4    I-    (|m)            print m value without reloading field
  609. ;
  610. ; -- 40h/C0h  Move to point --
  611. ; both jump to code for 41h
  612. ;
  613. 192    -R    #MOVEto
  614. >REF_XY    #J
  615. 64    -R    #Moveto
  616. >REF_XY    #J
  617. ;
  618. ; -- 41h  Draw to point --
  619. ;
  620. 65    -R    #Drawto
  621. :REF_XY
  622. 2    c    |E
  623. 0    #R    V+X    add delta to ref. point coord
  624. 4    C-    (|)
  625. 2    c    |N
  626. 0    #R    V+Y
  627. 4    C-    (|)
  628. ;
  629. ; -- 42h  Jump if outside area --
  630. ;
  631. 66    -R    #Jump
  632. >LINK_PT    #C
  633. 2    C    if_outside_
  634. 2    C    -_|E,
  635. 2    C
  636. 2    C    -_|N
  637. ;
  638. ; -- 43h  ?? --
  639. ;
  640. 67    -R    #Jump
  641. >LINK_PT    #C
  642. 4    C    -_|E
  643. 4    J    |m
  644. 4    C    |N
  645. 14    D    #__???
  646. ;
  647. ; -- 44h  Array of points --
  648. ;
  649. 68    -R    #Point_array:
  650. 1    i    from_point_
  651. 0    #T    #___from
  652. >REF_XYZ    #C
  653. 0    #T    #_____to
  654. >REF_XYZ    #C
  655. 1    I    #__|_points
  656. ;
  657. ; -- 45h  Thermal generator --
  658. ;
  659. 69    -R    #Thermal:
  660. 2    I$    (|_bytes)
  661. 4    CX    |E
  662. 4    JZ    |m
  663. 4    CY    |N
  664. 2    GD    |;
  665. 1    X    |(?)
  666. 2    I    #__width:_|m,
  667. 2    X    |(??)
  668. 2    I    therm._height:_|ft,
  669. 2    X    |(??)
  670. 2    I    length:_|m
  671. 9    D    #__???
  672. ;
  673. ; -- 47h  ?? --
  674. ;
  675. 71    XR    #
  676. 7    D    ???
  677. ;
  678. ; -- 49h  Runways end lights --
  679. ;
  680. 73    -R    #End_lights:
  681. 4    C    |E
  682. 4    J    |m
  683. 4    C    |N
  684. 2    G    #__|,
  685. 1    X    lights:_
  686. 1    I    strobe_length:_
  687. 2    -
  688. 0    #R    V/10            VASI glideslope is in 1/10 deg
  689. 2    I-    VASI_gl.:_|°
  690. 1    X    |(?)
  691. ;
  692. ; -- 4Ah  ?? --
  693. ;
  694. 74    XR    #Surface
  695. ;
  696. ; -- 4Bh  Jump4B --
  697. ;
  698. 75    XR    #Jump
  699. >LINK_PT    #C
  700. ;
  701. ; -- 4Ch  ?? --
  702. ;
  703. 76    XR    #|_???
  704. 1    D
  705. ;
  706. ; -- 4Dh  ?? --
  707. ;
  708. 77    XR    #|_???
  709. 2    I$    (|_bytes,
  710. 4    C    |E
  711. 4    Y    |m
  712. 4    C    |N)
  713. -1    D    #
  714. ;
  715. ; -- 4Eh  ?? --
  716. ;
  717. 78    XR    #
  718. 3    D    ???
  719. ;
  720. ; -- 4Fh  ILS --
  721. ;
  722. 79    -R    #ILS:
  723. 2    Y    1|MHz,
  724. 4    CX    |E
  725. 4    CY    |N,
  726. 2    -
  727. 0    #R    V*256            course is in 1/3 degrees
  728. 0    #R    V/3
  729. 4    J-    course:_|°
  730. 2    -
  731. 0    #R    V*256            glide slope is in 1/9100 degrees
  732. 0    #R    V/9100
  733. 2    J-    gl.:_|°
  734. ;
  735. ; -- 50/D0h  Runway --
  736. ;
  737. 208    -R    #RUNWAY:
  738. >50_COD    #J
  739. 80    -R    #Runway:
  740. :50_COD
  741. 4    CX    |E
  742. 4    JZ    |m
  743. 4    CY    |N;
  744. 1    B    design_elements:_|
  745. 1    X    #___Col:_rwy_|,
  746. 1    X    edge_|,
  747. 1    X    thrsh_|,
  748. 1    X    touchd_|,
  749. 1    X    fixd_|,
  750. 1    X    dash_|,
  751. 1    X    no._
  752. 1    I    #___rwy_no.:_|
  753. 1    E    |no_des.#LEFT/RIGHT#RIGHT/LEFT#CENTER
  754. 1    X    #___dnside_lights:_
  755. 2    -
  756. 0    #R    V*256            VASI slope is in 1/10 degrees
  757. 0    #R    V/10
  758. 4    J-    VASI_slope:_|°
  759. 1    X    #___upside_lights:_
  760. 2    -
  761. 0    #R    V*256            VASI slope is in 1/10 degrees
  762. 0    #R    V/10
  763. 4    J-    VASI_slope:_|°
  764. 2    G    #___direction:_|,
  765. 2    I    witdh:_|m,
  766. 2    I    length:_|m
  767. ;
  768. ; -- 51h  Side list end --
  769. ;
  770. 81    -R    #Side_list_end
  771. ;
  772. ; -- 52h  ?? --
  773. ;
  774. 82    XR    #
  775. 1    X    | ???
  776. ;
  777. ; -- 53h  Building --
  778. ;
  779. 83    -R    #Building
  780. -1    D
  781. ;
  782. ; -- 58h  3D text --
  783. ;
  784. 88    -R    #3D_Text
  785. 8    D    ???
  786. 1    I    #___size:_
  787. 32    S    #---text:_"|",
  788. 1    X    |(??)
  789. ;
  790. ; -- 5Ah  3D triangle --
  791. ;
  792. 90    -R    #Triangle vector
  793. 2    i    |y
  794. 2    i    |z
  795. 2    i    |x;
  796. 1    I    points:_
  797. 1    I
  798. 1    I
  799. ;
  800. ; -- 62h  ?? --
  801. ;
  802. 98    XR    #
  803. 9    D    ???
  804. ;
  805. ; -- 6Fh  ?? --
  806. ;
  807. 111    XR    #
  808. 10    D    ???
  809. ;
  810. ; -- 79h  End --
  811. ;
  812. 121    -R    #END
  813. 0    #H    ====================
  814.