home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Games / WHDLoad / Src / sources / hardware.i < prev    next >
Text File  |  1999-01-11  |  12KB  |  598 lines
  1.  IFND    HARDWARE_I
  2. HARDWARE_I = 1
  3. ;*---------------------------------------------------------------------------
  4. ;  :Author.    Bert Jahn
  5. ;  :Contens.    macros hardware related
  6. ;  :EMail.    wepl@kagi.com
  7. ;  :Address.    Franz-Liszt-Straße 16, Rudolstadt, 07404, Germany
  8. ;  :Version.    $Id: hardware.i 1.3 1999/01/03 23:40:28 jah Exp $
  9. ;  :History.    17.07.97 separated from whdl_coredump.s
  10. ;        26.12.98 cia names added
  11. ;  :Copyright.    © 1997,1998 Bert Jahn, All Rights Reserved
  12. ;  :Language.    68000 Assembler
  13. ;  :Translator.    Barfly 2.9
  14. ;---------------------------------------------------------------------------*
  15. *##
  16. *##    hardware.i
  17. *##
  18. *##    _customnames    names of custom registers
  19. *##    _GetCustomName    -> name
  20. *##    _cianames    names of cia registers
  21.  
  22.     dc.b    "$Id: hardware.i 1.3 1999/01/03 23:40:28 jah Exp $"
  23.     EVEN
  24.  
  25. ;----------------------------------------
  26. ; names of custom registers
  27. ; for using with "Sources:strings.i" _DoString
  28.  
  29. customnames    MACRO
  30.     IFND    CUSTOMNAMES
  31. CUSTOMNAMES = 1
  32.  
  33. _customnames
  34. .base        dc.w    0        ;first
  35.         dc.w    fmode/2        ;last
  36.         dc.l    0        ;next list
  37.         dc.w    .000-.base
  38.         dc.w    .002-.base
  39.         dc.w    .004-.base
  40.         dc.w    .006-.base
  41.         dc.w    .008-.base
  42.         dc.w    .00a-.base
  43.         dc.w    .00c-.base
  44.         dc.w    .00e-.base
  45.         dc.w    .010-.base
  46.         dc.w    .012-.base
  47.         dc.w    .014-.base
  48.         dc.w    .016-.base
  49.         dc.w    .018-.base
  50.         dc.w    .01a-.base
  51.         dc.w    .01c-.base
  52.         dc.w    .01e-.base
  53.         dc.w    .020-.base
  54.         dc.w    .022-.base
  55.         dc.w    .024-.base
  56.         dc.w    .026-.base
  57.         dc.w    .028-.base
  58.         dc.w    .02a-.base
  59.         dc.w    .02c-.base
  60.         dc.w    .02e-.base
  61.         dc.w    .030-.base
  62.         dc.w    .032-.base
  63.         dc.w    .034-.base
  64.         dc.w    .036-.base
  65.         dc.w    .038-.base
  66.         dc.w    .03a-.base
  67.         dc.w    .03c-.base
  68.         dc.w    .03e-.base
  69.         dc.w    .040-.base
  70.         dc.w    .042-.base
  71.         dc.w    .044-.base
  72.         dc.w    .046-.base
  73.         dc.w    .048-.base
  74.         dc.w    .04a-.base
  75.         dc.w    .04c-.base
  76.         dc.w    .04e-.base
  77.         dc.w    .050-.base
  78.         dc.w    .052-.base
  79.         dc.w    .054-.base
  80.         dc.w    .056-.base
  81.         dc.w    .058-.base
  82.         dc.w    .05a-.base
  83.         dc.w    .05c-.base
  84.         dc.w    .05e-.base
  85.         dc.w    .060-.base
  86.         dc.w    .062-.base
  87.         dc.w    .064-.base
  88.         dc.w    .066-.base
  89.         dc.w    0
  90.         dc.w    0
  91.         dc.w    0
  92.         dc.w    0
  93.         dc.w    .070-.base
  94.         dc.w    .072-.base
  95.         dc.w    .074-.base
  96.         dc.w    0
  97.         dc.w    0
  98.         dc.w    0
  99.         dc.w    .07c-.base
  100.         dc.w    .07e-.base
  101.         dc.w    .080-.base
  102.         dc.w    .082-.base
  103.         dc.w    .084-.base
  104.         dc.w    .086-.base
  105.         dc.w    .088-.base
  106.         dc.w    .08a-.base
  107.         dc.w    .08c-.base
  108.         dc.w    .08e-.base
  109.         dc.w    .090-.base
  110.         dc.w    .092-.base
  111.         dc.w    .094-.base
  112.         dc.w    .096-.base
  113.         dc.w    .098-.base
  114.         dc.w    .09a-.base
  115.         dc.w    .09c-.base
  116.         dc.w    .09e-.base
  117.         dc.w    .0a0-.base
  118.         dc.w    .0a2-.base
  119.         dc.w    .0a4-.base
  120.         dc.w    .0a6-.base
  121.         dc.w    .0a8-.base
  122.         dc.w    .0aa-.base
  123.         dc.w    0
  124.         dc.w    0
  125.         dc.w    .0b0-.base
  126.         dc.w    .0b2-.base
  127.         dc.w    .0b4-.base
  128.         dc.w    .0b6-.base
  129.         dc.w    .0b8-.base
  130.         dc.w    .0ba-.base
  131.         dc.w    0
  132.         dc.w    0
  133.         dc.w    .0c0-.base
  134.         dc.w    .0c2-.base
  135.         dc.w    .0c4-.base
  136.         dc.w    .0c6-.base
  137.         dc.w    .0c8-.base
  138.         dc.w    .0ca-.base
  139.         dc.w    0
  140.         dc.w    0
  141.         dc.w    .0d0-.base
  142.         dc.w    .0d2-.base
  143.         dc.w    .0d4-.base
  144.         dc.w    .0d6-.base
  145.         dc.w    .0d8-.base
  146.         dc.w    .0da-.base
  147.         dc.w    0
  148.         dc.w    0
  149.         dc.w    .0e0-.base
  150.         dc.w    .0e2-.base
  151.         dc.w    .0e4-.base
  152.         dc.w    .0e6-.base
  153.         dc.w    .0e8-.base
  154.         dc.w    .0ea-.base
  155.         dc.w    .0ec-.base
  156.         dc.w    .0ee-.base
  157.         dc.w    .0f0-.base
  158.         dc.w    .0f2-.base
  159.         dc.w    .0f4-.base
  160.         dc.w    .0f6-.base
  161.         dc.w    .0f8-.base
  162.         dc.w    .0fa-.base
  163.         dc.w    .0fc-.base
  164.         dc.w    .0fe-.base
  165.         dc.w    .100-.base
  166.         dc.w    .102-.base
  167.         dc.w    .104-.base
  168.         dc.w    .106-.base
  169.         dc.w    .108-.base
  170.         dc.w    .10a-.base
  171.         dc.w    .10c-.base
  172.         dc.w    .10e-.base
  173.         dc.w    .110-.base
  174.         dc.w    .112-.base
  175.         dc.w    .114-.base
  176.         dc.w    .116-.base
  177.         dc.w    .118-.base
  178.         dc.w    .11a-.base
  179.         dc.w    .11c-.base
  180.         dc.w    .11e-.base
  181.         dc.w    .120-.base
  182.         dc.w    .122-.base
  183.         dc.w    .124-.base
  184.         dc.w    .126-.base
  185.         dc.w    .128-.base
  186.         dc.w    .12a-.base
  187.         dc.w    .12c-.base
  188.         dc.w    .12e-.base
  189.         dc.w    .130-.base
  190.         dc.w    .132-.base
  191.         dc.w    .134-.base
  192.         dc.w    .136-.base
  193.         dc.w    .138-.base
  194.         dc.w    .13a-.base
  195.         dc.w    .13c-.base
  196.         dc.w    .13e-.base
  197.         dc.w    .140-.base
  198.         dc.w    .142-.base
  199.         dc.w    .144-.base
  200.         dc.w    .146-.base
  201.         dc.w    .148-.base
  202.         dc.w    .14a-.base
  203.         dc.w    .14c-.base
  204.         dc.w    .14e-.base
  205.         dc.w    .150-.base
  206.         dc.w    .152-.base
  207.         dc.w    .154-.base
  208.         dc.w    .156-.base
  209.         dc.w    .158-.base
  210.         dc.w    .15a-.base
  211.         dc.w    .15c-.base
  212.         dc.w    .15e-.base
  213.         dc.w    .160-.base
  214.         dc.w    .162-.base
  215.         dc.w    .164-.base
  216.         dc.w    .166-.base
  217.         dc.w    .168-.base
  218.         dc.w    .16a-.base
  219.         dc.w    .16c-.base
  220.         dc.w    .16e-.base
  221.         dc.w    .170-.base
  222.         dc.w    .172-.base
  223.         dc.w    .174-.base
  224.         dc.w    .176-.base
  225.         dc.w    .178-.base
  226.         dc.w    .17a-.base
  227.         dc.w    .17c-.base
  228.         dc.w    .17e-.base
  229.         dc.w    .180-.base
  230.         dc.w    .182-.base
  231.         dc.w    .184-.base
  232.         dc.w    .186-.base
  233.         dc.w    .188-.base
  234.         dc.w    .18a-.base
  235.         dc.w    .18c-.base
  236.         dc.w    .18e-.base
  237.         dc.w    .190-.base
  238.         dc.w    .192-.base
  239.         dc.w    .194-.base
  240.         dc.w    .196-.base
  241.         dc.w    .198-.base
  242.         dc.w    .19a-.base
  243.         dc.w    .19c-.base
  244.         dc.w    .19e-.base
  245.         dc.w    .1a0-.base
  246.         dc.w    .1a2-.base
  247.         dc.w    .1a4-.base
  248.         dc.w    .1a6-.base
  249.         dc.w    .1a8-.base
  250.         dc.w    .1aa-.base
  251.         dc.w    .1ac-.base
  252.         dc.w    .1ae-.base
  253.         dc.w    .1b0-.base
  254.         dc.w    .1b2-.base
  255.         dc.w    .1b4-.base
  256.         dc.w    .1b6-.base
  257.         dc.w    .1b8-.base
  258.         dc.w    .1ba-.base
  259.         dc.w    .1bc-.base
  260.         dc.w    .1be-.base
  261.         dc.w    .1c0-.base
  262.         dc.w    .1c2-.base
  263.         dc.w    .1c4-.base
  264.         dc.w    .1c6-.base
  265.         dc.w    .1c8-.base
  266.         dc.w    .1ca-.base
  267.         dc.w    .1cc-.base
  268.         dc.w    .1ce-.base
  269.         dc.w    .1d0-.base
  270.         dc.w    .1d2-.base
  271.         dc.w    .1d4-.base
  272.         dc.w    .1d6-.base
  273.         dc.w    .1d8-.base
  274.         dc.w    .1da-.base
  275.         dc.w    .1dc-.base
  276.         dc.w    .1de-.base
  277.         dc.w    .1e0-.base
  278.         dc.w    .1e2-.base
  279.         dc.w    .1e4-.base
  280.         dc.w    0
  281.         dc.w    0
  282.         dc.w    0
  283.         dc.w    0
  284.         dc.w    0
  285.         dc.w    0
  286.         dc.w    0
  287.         dc.w    0
  288.         dc.w    0
  289.         dc.w    0
  290.         dc.w    0
  291.         dc.w    .1fc-.base
  292. .000        dc.b    "bltddat",0
  293. .002        dc.b    "dmaconr",0
  294. .004        dc.b    "vposr",0
  295. .006        dc.b    "vhposr",0
  296. .008        dc.b    "dskdatr",0
  297. .00a        dc.b    "joy0dat",0
  298. .00c        dc.b    "joy1dat",0
  299. .00e        dc.b    "clxdat",0
  300. .010        dc.b    "adkconr",0
  301. .012        dc.b    "pot0dat",0
  302. .014        dc.b    "pot1dat",0
  303. .016        dc.b    "potinp",0
  304. .018        dc.b    "serdatr",0
  305. .01a        dc.b    "dskbytr",0
  306. .01c        dc.b    "intenar",0
  307. .01e        dc.b    "intreqr",0
  308. .020        dc.b    "dskpt",0
  309. .022        dc.b    "dskptl",0
  310. .024        dc.b    "dsklen",0
  311. .026        dc.b    "dskdat",0
  312. .028        dc.b    "refptr",0
  313. .02a        dc.b    "vposw",0
  314. .02c        dc.b    "vhposw",0
  315. .02e        dc.b    "copcon",0
  316. .030        dc.b    "serdat",0
  317. .032        dc.b    "serper",0
  318. .034        dc.b    "potgo",0
  319. .036        dc.b    "joytest",0
  320. .038        dc.b    "strequ",0
  321. .03a        dc.b    "strvbl",0
  322. .03c        dc.b    "strhor",0
  323. .03e        dc.b    "strlong",0
  324. .040        dc.b    "bltcon0",0
  325. .042        dc.b    "bltcon1",0
  326. .044        dc.b    "bltafwm",0
  327. .046        dc.b    "bltalwm",0
  328. .048        dc.b    "bltcpt",0
  329. .04a        dc.b    "bltcptl",0
  330. .04c        dc.b    "bltbpt",0
  331. .04e        dc.b    "bltbptl",0
  332. .050        dc.b    "bltapt",0
  333. .052        dc.b    "bltaptl",0
  334. .054        dc.b    "bltdpt",0
  335. .056        dc.b    "bltdptl",0
  336. .058        dc.b    "bltsize",0
  337. .05a        dc.b    "bltcon0l",0
  338. .05c        dc.b    "bltsizv",0
  339. .05e        dc.b    "bltsizh",0
  340. .060        dc.b    "bltcmod",0
  341. .062        dc.b    "bltbmod",0
  342. .064        dc.b    "bltamod",0
  343. .066        dc.b    "bltdmod",0
  344. .070        dc.b    "bltcdat",0
  345. .072        dc.b    "bltbdat",0
  346. .074        dc.b    "bltadat",0
  347. .07c        dc.b    "deniseid",0
  348. .07e        dc.b    "dsksync",0
  349. .080        dc.b    "cop1lc",0
  350. .082        dc.b    "cop1lcl",0
  351. .084        dc.b    "cop2lc",0
  352. .086        dc.b    "cop2lcl",0
  353. .088        dc.b    "copjmp1",0
  354. .08a        dc.b    "copjmp2",0
  355. .08c        dc.b    "copins",0
  356. .08e        dc.b    "diwstrt",0
  357. .090        dc.b    "diwstop",0
  358. .092        dc.b    "ddfstrt",0
  359. .094        dc.b    "ddfstop",0
  360. .096        dc.b    "dmacon",0
  361. .098        dc.b    "clxcon",0
  362. .09a        dc.b    "intena",0
  363. .09c        dc.b    "intreq",0
  364. .09e        dc.b    "adkcon",0
  365. .0a0        dc.b    "aud0pt",0
  366. .0a2        dc.b    "aud0ptl",0
  367. .0a4        dc.b    "aud0len",0
  368. .0a6        dc.b    "aud0per",0
  369. .0a8        dc.b    "aud0vol",0
  370. .0aa        dc.b    "aud0dat",0
  371. .0b0        dc.b    "aud1pt",0
  372. .0b2        dc.b    "aud1ptl",0
  373. .0b4        dc.b    "aud1len",0
  374. .0b6        dc.b    "aud1per",0
  375. .0b8        dc.b    "aud1vol",0
  376. .0ba        dc.b    "aud1dat",0
  377. .0c0        dc.b    "aud2pt",0
  378. .0c2        dc.b    "aud2ptl",0
  379. .0c4        dc.b    "aud2len",0
  380. .0c6        dc.b    "aud2per",0
  381. .0c8        dc.b    "aud2vol",0
  382. .0ca        dc.b    "aud2dat",0
  383. .0d0        dc.b    "aud3pt",0
  384. .0d2        dc.b    "aud3ptl",0
  385. .0d4        dc.b    "aud3len",0
  386. .0d6        dc.b    "aud3per",0
  387. .0d8        dc.b    "aud3vol",0
  388. .0da        dc.b    "aud3dat",0
  389. .0e0        dc.b    "bpl1pt",0
  390. .0e2        dc.b    "bpl1ptl",0
  391. .0e4        dc.b    "bpl2pt",0
  392. .0e6        dc.b    "bpl2ptl",0
  393. .0e8        dc.b    "bpl3pt",0
  394. .0ea        dc.b    "bpl3ptl",0
  395. .0ec        dc.b    "bpl4pt",0
  396. .0ee        dc.b    "bpl4ptl",0
  397. .0f0        dc.b    "bpl5pt",0
  398. .0f2        dc.b    "bpl5ptl",0
  399. .0f4        dc.b    "bpl6pt",0
  400. .0f6        dc.b    "bpl6ptl",0
  401. .0f8        dc.b    "bpl7pt",0
  402. .0fa        dc.b    "bpl7ptl",0
  403. .0fc        dc.b    "bpl8pt",0
  404. .0fe        dc.b    "bpl8ptl",0
  405. .100        dc.b    "bplcon0",0
  406. .102        dc.b    "bplcon1",0
  407. .104        dc.b    "bplcon2",0
  408. .106        dc.b    "bplcon3",0
  409. .108        dc.b    "bpl1mod",0
  410. .10a        dc.b    "bpl2mod",0
  411. .10c        dc.b    "bplcon4",0
  412. .10e        dc.b    "clxcon2",0
  413. .110        dc.b    "bpl0dat",0
  414. .112        dc.b    "bpl1dat",0
  415. .114        dc.b    "bpl2dat",0
  416. .116        dc.b    "bpl3dat",0
  417. .118        dc.b    "bpl4dat",0
  418. .11a        dc.b    "bpl5dat",0
  419. .11c        dc.b    "bpl6dat",0
  420. .11e        dc.b    "bpl7dat",0
  421. .120        dc.b    "spr0pt",0
  422. .122        dc.b    "spr0ptl",0
  423. .124        dc.b    "spr1pt",0
  424. .126        dc.b    "spr1ptl",0
  425. .128        dc.b    "spr2pt",0
  426. .12a        dc.b    "spr2ptl",0
  427. .12c        dc.b    "spr3pt",0
  428. .12e        dc.b    "spr3ptl",0
  429. .130        dc.b    "spr4pt",0
  430. .132        dc.b    "spr4ptl",0
  431. .134        dc.b    "spr5pt",0
  432. .136        dc.b    "spr5ptl",0
  433. .138        dc.b    "spr6pt",0
  434. .13a        dc.b    "spr6ptl",0
  435. .13c        dc.b    "spr7pt",0
  436. .13e        dc.b    "spr7ptl",0
  437. .140        dc.b    "spr0pos",0
  438. .142        dc.b    "spr0ctl",0
  439. .144        dc.b    "spr0data",0
  440. .146        dc.b    "spr0datb",0
  441. .148        dc.b    "spr1pos",0
  442. .14a        dc.b    "spr1ctl",0
  443. .14c        dc.b    "spr1data",0
  444. .14e        dc.b    "spr1datb",0
  445. .150        dc.b    "spr2pos",0
  446. .152        dc.b    "spr2ctl",0
  447. .154        dc.b    "spr2data",0
  448. .156        dc.b    "spr2datb",0
  449. .158        dc.b    "spr3pos",0
  450. .15a        dc.b    "spr3ctl",0
  451. .15c        dc.b    "spr3data",0
  452. .15e        dc.b    "spr3datb",0
  453. .160        dc.b    "spr4pos",0
  454. .162        dc.b    "spr4ctl",0
  455. .164        dc.b    "spr4data",0
  456. .166        dc.b    "spr4datb",0
  457. .168        dc.b    "spr5pos",0
  458. .16a        dc.b    "spr5ctl",0
  459. .16c        dc.b    "spr5data",0
  460. .16e        dc.b    "spr5datb",0
  461. .170        dc.b    "spr6pos",0
  462. .172        dc.b    "spr6ctl",0
  463. .174        dc.b    "spr6data",0
  464. .176        dc.b    "spr6datb",0
  465. .178        dc.b    "spr7pos",0
  466. .17a        dc.b    "spr7ctl",0
  467. .17c        dc.b    "spr7data",0
  468. .17e        dc.b    "spr7datb",0
  469. .180        dc.b    "color00",0
  470. .182        dc.b    "color01",0
  471. .184        dc.b    "color02",0
  472. .186        dc.b    "color03",0
  473. .188        dc.b    "color04",0
  474. .18a        dc.b    "color05",0
  475. .18c        dc.b    "color06",0
  476. .18e        dc.b    "color07",0
  477. .190        dc.b    "color08",0
  478. .192        dc.b    "color09",0
  479. .194        dc.b    "color10",0
  480. .196        dc.b    "color11",0
  481. .198        dc.b    "color12",0
  482. .19a        dc.b    "color13",0
  483. .19c        dc.b    "color14",0
  484. .19e        dc.b    "color15",0
  485. .1a0        dc.b    "color16",0
  486. .1a2        dc.b    "color17",0
  487. .1a4        dc.b    "color18",0
  488. .1a6        dc.b    "color19",0
  489. .1a8        dc.b    "color20",0
  490. .1aa        dc.b    "color21",0
  491. .1ac        dc.b    "color22",0
  492. .1ae        dc.b    "color23",0
  493. .1b0        dc.b    "color24",0
  494. .1b2        dc.b    "color25",0
  495. .1b4        dc.b    "color26",0
  496. .1b6        dc.b    "color27",0
  497. .1b8        dc.b    "color28",0
  498. .1ba        dc.b    "color29",0
  499. .1bc        dc.b    "color30",0
  500. .1be        dc.b    "color31",0
  501. .1c0        dc.b    "htotal",0
  502. .1c2        dc.b    "hsstop",0
  503. .1c4        dc.b    "hbstrt",0
  504. .1c6        dc.b    "hbstop",0
  505. .1c8        dc.b    "vtotal",0
  506. .1ca        dc.b    "vsstop",0
  507. .1cc        dc.b    "vbstrt",0
  508. .1ce        dc.b    "vbstop",0
  509. .1d0        dc.b    "sprhstrt",0
  510. .1d2        dc.b    "sprhstop",0
  511. .1d4        dc.b    "bplhstrt",0
  512. .1d6        dc.b    "bplhstop",0
  513. .1d8        dc.b    "hhposw",0
  514. .1da        dc.b    "hhposr",0
  515. .1dc        dc.b    "beamcon0",0
  516. .1de        dc.b    "hsstrt",0
  517. .1e0        dc.b    "vsstrt",0
  518. .1e2        dc.b    "hcenter",0
  519. .1e4        dc.b    "diwhigh",0
  520. .1fc        dc.b    "fmode",0
  521.     EVEN
  522.     ENDC
  523.         ENDM
  524.  
  525. ;----------------------------------------
  526. ; return name custom register
  527. ; IN:    d0 =  UWORD  offset of custom register
  528. ; OUT:    d0 =  CPTR   name of register
  529.  
  530. GetCustomName    MACRO
  531.     IFND    GETCUSTOMNAME
  532. GETCUSTOMNAME=1
  533.         IFND    CUSTOMNAMES
  534.             customnames
  535.         ENDC
  536.         IFND    DOSTRINGNULL
  537.             DoStringNull
  538.         ENDC
  539.  
  540. _GetCustomName    and.l    #$000001ff,d0
  541.         lsr.l    #1,d0
  542.         lea    (_customnames),a0
  543.         bra    _DoStringNull
  544.     ENDC
  545.     ENDM
  546.  
  547. ;----------------------------------------
  548. ; names of cia registers
  549. ; for using with "Sources:strings.i" _DoString
  550.  
  551. cianames    MACRO
  552.     IFND    CIANAMES
  553. CIANAMES = 1
  554.  
  555. _cianames
  556. .base        dc.w    0        ;first
  557.         dc.w    $f        ;last
  558.         dc.l    0        ;next list
  559.         dc.w    .0-.base
  560.         dc.w    .1-.base
  561.         dc.w    .2-.base
  562.         dc.w    .3-.base
  563.         dc.w    .4-.base
  564.         dc.w    .5-.base
  565.         dc.w    .6-.base
  566.         dc.w    .7-.base
  567.         dc.w    .8-.base
  568.         dc.w    .9-.base
  569.         dc.w    .a-.base
  570.         dc.w    0
  571.         dc.w    .c-.base
  572.         dc.w    .d-.base
  573.         dc.w    .e-.base
  574.         dc.w    .f-.base
  575. .0        dc.b    "pra",0
  576. .1        dc.b    "prb",0
  577. .2        dc.b    "ddra",0
  578. .3        dc.b    "ddrb",0
  579. .4        dc.b    "talo",0
  580. .5        dc.b    "tahi",0
  581. .6        dc.b    "tblo",0
  582. .7        dc.b    "tbhi",0
  583. .8        dc.b    "todlow",0
  584. .9        dc.b    "todmid",0
  585. .a        dc.b    "todhi",0
  586. .c        dc.b    "sdr",0
  587. .d        dc.b    "icr",0
  588. .e        dc.b    "cra",0
  589. .f        dc.b    "crb",0
  590.     EVEN
  591.     ENDC
  592.         ENDM
  593.         
  594. ;---------------------------------------------------------------------------
  595.  
  596.     ENDC
  597.  
  598.