home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol142 / sampadv.mqc / SAMPADV.MAC
Encoding:
Text File  |  1985-02-10  |  12.0 KB  |  639 lines
  1. ; ADVENTURE Z80 DATABASE SYSTEM
  2. ; Released into the public domain 1981 P. Scargill
  3. ; --modification by Bill Soon, Nov. 1981
  4. ; This file is called B:SAMPADV.MAC
  5. ; for the Microsoft Mac80 assembler using /Z switch
  6.     .Z80
  7.      DSEG
  8.  PUBLIC OBJLOC
  9.  PUBLIC OBJDES
  10.  PUBLIC MATCHW
  11.  PUBLIC OBPROP
  12.  PUBLIC OBJDSK
  13.  PUBLIC TITL1
  14.  PUBLIC MSG
  15.  PUBLIC UMESS
  16.  PUBLIC LOC
  17.  PUBLIC TABKEY
  18.  PUBLIC FLAG
  19.  PUBLIC FL14
  20.  PUBLIC FL20
  21.  PUBLIC FL21
  22. RTN DEFL 249
  23. ANY DEFL 255
  24. INP DEFL 00
  25. NULL DEFL 00
  26. NORMAL DEFL 255
  27. NOEXIT DEFL 254
  28. DARK DEFL 253
  29. DARKNO DEFL 252
  30. CL DEFL 1
  31. NCL DEFL 2
  32. OP DEFL 3
  33. OC DEFL 4
  34. OW DEFL 5
  35. OWC DEFL 6
  36. OH DEFL 7
  37. ONP DEFL 8
  38. ONC DEFL 9
  39. ONW DEFL 10
  40. NWC DEFL 11
  41. ONH DEFL 12
  42. OE DEFL 13
  43. ONE DEFL 14
  44. ZL DEFL 15
  45. NZL DEFL 16
  46. RND DEFL 17
  47. TF DEFL 18
  48. NTF DEFL 19
  49. GES DEFL 20
  50. LTS DEFL 21
  51. C2 DEFL 22
  52. C3 DEFL 23
  53. NC2 DEFL 24
  54. NC3 DEFL 25
  55. INV DEFL 1
  56. TKE DEFL 2
  57. WR DEFL 3
  58. DR DEFL 4
  59. PR DEFL 5
  60. PRM DEFL 6
  61. DL DEFL 7
  62. SF DEFL 8
  63. DSCOB DEFL 9
  64. SWP DEFL 10
  65. MV DEFL 11
  66. OK DEFL 12
  67. QT DEFL 13
  68. INF DEFL 14
  69. DEF DEFL 15
  70. EXTB DEFL 16
  71. SC DEFL 17
  72. PU DEFL 18
  73. CR DEFL 19
  74. DES DEFL 20
  75. FLIP DEFL 21
  76. LA DEFL 22
  77. SMA DEFL 23
  78. SMB DEFL 24
  79. WT DEFL 25
  80. PF DEFL 26
  81. ATF DEFL 27
  82. SFF DEFL 28
  83. GRUN DEFL 29
  84. OBJLOC: DEFB STATUE, 4
  85.  DEFB KEY, 8
  86.  DEFB MATCH, 5
  87.  DEFB LAMP, 252
  88.  DEFB ULAMP, 11
  89.  DEFB 00,00
  90. OBJDES: DEFB KEY, 1
  91.  DEFB MATCH, 2
  92.  DEFB LAMP, 3
  93.  DEFB ULAMP, 4
  94.  DEFB STATUE, 6
  95.  DEFB 00,00
  96. OBPROP: DEFB 00
  97.  DEFB STATUE,LOOK,LICK
  98.  DEFB 00
  99.  DEFB 00,00
  100. OBJDSK: DEFB 00
  101.  DEFB KEY,'It`s a shiny brass key%'
  102.  DEFB 00
  103.  DEFB MATCH,'an ordinary match&'
  104.  DEFB 00
  105.  DEFB LAMP,'looks like a kerosene lamp to me%'
  106.  DEFB 00
  107.  DEFB STATUE,'this is a statue of Venus%'
  108.  DEFB 00
  109.  DEFB 00,00
  110. MATCHW: DEFB GET,ANY
  111.  DEFB OH,INP
  112.  DEFB 255,TKE,INP,OK,255
  113.  DEFB GET,NULL
  114.  DEFB 255,PRM,39,EXTB,255
  115.  DEFB GET,ANY
  116.  DEFB OWC,INP
  117.  DEFB 255,PRM,44,EXTB,255
  118.  DEFB INVEN,NULL
  119.  DEFB 255,INV,EXTB,255
  120.  DEFB LOOK,AROUND
  121.  DEFB 255,GRUN,255
  122.  DEFB DROP,ANY
  123.  DEFB OWC,INP
  124.  DEFB 255,DR,INP,OK,255
  125.  DEFB DROP,ANY
  126.  DEFB 255,PRM,35,EXTB,255
  127.  DEFB LOOK,NULL
  128.  DEFB 255,LA,EXTB,255
  129.  DEFB LOOK,ANY
  130.  DEFB OP,INP
  131.  DEFB 255,DSCOB,INP,EXTB,255
  132.  DEFB QUIT,ANY
  133.  DEFB 255,QT,255
  134.  DEFB HELP,ANY
  135.  DEFB 255,PRM,40,EXTB,255
  136.  DEFB WHO,ANY
  137.  DEFB 255,PRM,41,EXTB,255
  138.  DEFB ON,LAMP
  139.  DEFB OC,ULAMP,OC,MATCH
  140.  DEFB 255,SWP,LAMP,FLIP,17,OK,255
  141.  DEFB ON,LAMP
  142.  DEFB OC,ULAMP
  143.  DEFB 255,PR,05,EXTB,255
  144.  DEFB OFF,LAMP
  145.  DEFB OC,LAMP
  146.  DEFB 255,SWP,LAMP,FLIP,17,OK,255
  147.  DEFB ON,LAMP
  148.  DEFB OC,LAMP
  149.  DEFB 255,PRM,42,EXTB,255
  150.  DEFB OFF,LAMP
  151.  DEFB OC,ULAMP
  152.  DEFB 255,PRM,42,EXTB,255
  153.  DEFB UNLOCK,ANY
  154.  DEFB TF,23,01,OC,KEY,CL,9
  155.  DEFB 255,SF,23,00,OK,255
  156.  DEFB LOCK,ANY
  157.  DEFB TF,23,00,OC,KEY,CL,9
  158.  DEFB 255,SF,23,01,OK,255
  159.  DEFB INTO,ANY
  160.  DEFB TF,23,00,CL,9
  161.  DEFB 255,MV,11,255
  162.  DEFB YES,ANY
  163.  DEFB 255,PRM,43,255
  164.  DEFB SCORE,ANY
  165.  DEFB 255,SC,EXTB,255
  166.  DEFB 255,255
  167.  DEFB 255,PRM,37,255
  168.  DEFB 00,00
  169. MSG: DEFB 00
  170.  DEFB  '>That means nothing to me{@, I`m afraid}{?.} !!%'
  171.  DEFB 00
  172.  DEFB ' North'
  173.  DEFB 00
  174.  DEFB ' South'
  175.  DEFB 00
  176.  DEFB ' East'
  177.  DEFB 00
  178.  DEFB ' West'
  179.  DEFB 00
  180.  DEFB ' Northeast'
  181.  DEFB 00
  182.  DEFB ' Northwest'
  183.  DEFB 00
  184.  DEFB ' Southeast'
  185.  DEFB 00
  186.  DEFB ' Southwest'
  187.  DEFB 00
  188.  DEFB ' Up'
  189.  DEFB 00
  190.  DEFB ' Down'
  191.  DEFB 00
  192.  DEFB ' In'
  193.  DEFB 00
  194.  DEFB ' Out'
  195.  DEFB 00
  196.  DEFB 'Visible exits are '
  197.  DEFB 00
  198.  DEFB '>It`s dark, I can`t see anything{? at all}.'
  199.  DEFB ' It is {@very }dangerous to move in the dark.%'
  200.  DEFB 00
  201.  DEFB 'I am {@presently }carrying '
  202.  DEFB 00
  203.  DEFB 'I am wearing '
  204.  DEFB 00
  205.  DEFB 'I can see '
  206.  DEFB 00
  207.  DEFB 'nothing special'
  208.  DEFB 00
  209.  DEFB '>I don`t {@quite }follow you. Could you try '
  210.  DEFB 're-phraseing that....%'
  211.  DEFB 00
  212.  DEFB '>I can{@no}{?`}t go {@in that direction.}{?there.}%'
  213.  DEFB 00
  214.  DEFB ' right'
  215.  DEFB 00
  216.  DEFB ' left'
  217.  DEFB 00
  218.  DEFB '>{Ehh!! }That doesn`t make sense{@, buddy} !%'
  219.  DEFB 00
  220.  DEFB '>{@I`m sorry, but }I can see no such object here.%'
  221.  DEFB 00
  222.  DEFB '>PROGRAM ERROR :-INVALID CONDITION ;;;; %'
  223.  DEFB 00
  224.  DEFB '>Quitting with '
  225.  DEFB 00
  226.  DEFB ' points.%'
  227.  DEFB 00
  228.  DEFB 'Ok.%'
  229.  DEFB 00
  230.  DEFB 'Your{@ present } score is '
  231.  DEFB 00
  232.  DEFB '>PROGRAM ERROR :-CANT FIND OBJECT FOR ACTION ;;;; %'
  233.  DEFB 00
  234.  DEFB '>PROGRAM ERROR :-INVALID CONDITION %'
  235.  DEFB 00
  236.  DEFB '>Try again...I`m not sure which object you mean.%'
  237.  DEFB 00
  238.  DEFB '>I am not wearing this item.%'
  239.  DEFB 00
  240.  DEFB '>This is not among the items I am carrying.%'
  241.  DEFB 00
  242.  DEFB '>I can`t see the object {@you mean }here...%'
  243.  DEFB 00
  244.  DEFB '>{?Huh}{@Ehh} !%'
  245.  DEFB 00
  246.  DEFB '>Sorry, I can`t {@possibly } carry anything else.%'
  247.  DEFB 00
  248.  DEFB '>{?Sorry, I`m not sure from that what '
  249.  DEFB 'you want me to get}{@You want what} !%'
  250.  DEFB 00
  251.  DEFB 'I can`t help you {?at this time}{@I`m afraid}%'
  252.  DEFB 00
  253.  DEFB '>Don`t ask silly questions{@, please} !&'
  254.  DEFB 00
  255.  DEFB '>{@I believe I already did that !!%}'
  256.  DEFB '{?It is already !!!!%}'
  257.  DEFB 00
  258.  DEFB '>Sorry, no chance!%'
  259.  DEFB 00
  260.  DEFB 'But this is something I`m already carrying!%'
  261.  DEFB 00
  262.  DEFB 'Looks {@distinctly }ordinary to me!%'
  263.  DEFB 00
  264.  DEFB '{?Sorry, that`s quite impossible.}'
  265.  DEFB '{@I`m sorry but I can`t do that.}%'
  266.  DEFB 00,00
  267. UMESS: DEFB 00
  268.  DEFB 'a set of keys'
  269.  DEFB 00
  270.  DEFB 'some matches'
  271.  DEFB 00
  272.  DEFB 'an old kerosene lamp'
  273.  DEFB 00
  274.  DEFB 'old worn out lamp'
  275.  DEFB 00
  276.  DEFB 'What with..{@ my fingernails??}'
  277.  DEFB '{? I`m not carrying any matches!}%'
  278.  DEFB 00
  279.  DEFB 'an old dirty statue'
  280.  DEFB 00,00
  281. LOC: DEFB 00
  282.  DEFB NORMAL,2,N,2,3,S,10,255
  283.  DEFB 'I am in the grounds of a mansion.%'
  284.  DEFB 00
  285.  DEFB NORMAL,12,INTO,3,3,S,1,5,W,9,255
  286.  DEFB 'I am at the front of the mansion.%'
  287.  DEFB 00
  288.  DEFB NORMAL,22,RI,4,23,L,5,10,U,6,13,EXIT,2,255
  289.  DEFB 'I am in a long Hallway. The light is dim here as there'
  290.  DEFB ' has been no power here for a long time.%'
  291.  DEFB 00
  292.  DEFB NOEXIT,13,EXIT,RTN,255
  293.  DEFB 'I am in an old study. There are cobwebs all around.%'
  294.  DEFB 00
  295.  DEFB NOEXIT,13,EXIT,RTN,255
  296.  DEFB 'I`ve entered some sort of kitchen, by the looks of it. '
  297.  DEFB 'There`s a cooker of some kind, and a sink, but everything '
  298.  DEFB 'is broken and decayed.%'
  299.  DEFB 00
  300.  DEFB NORMAL,11,DO,3,3,S,8,22,RI,7,23,L,7,2,N,7,6,NOE,7,255
  301.  DEFB 'I am on a wierd sort of landing, with exits in many '
  302.  DEFB 'directions. The floor doesn`t look too safe to me!!%'
  303.  DEFB 00
  304.  DEFB NOEXIT,13,EXIT,RTN,255
  305.  DEFB 'I am facing a boarded-up door.%'
  306.  DEFB 00
  307.  DEFB NOEXIT,13,EXIT,RTN,255
  308.  DEFB 'I am in a pink bathroom. The bath has a big crack in it'
  309.  DEFB ' and all the pipes are disconnected and rusted.%'
  310.  DEFB 00
  311.  DEFB NORMAL,4,EA,2,5,W,10,255
  312.  DEFB 'I am standing outside an old {Alocked-up }wooden '
  313.  DEFB 'shed. {AThe windows have been boarded-up.}%'
  314.  DEFB 00
  315.  DEFB NORMAL,2,N,1,4,EA,9,11,DO,12,255
  316.  DEFB 'I am standing in front of an old well.  It looks like '
  317.  DEFB 'I could go down there perhaps.%'
  318.  DEFB 00
  319.  DEFB NORMAL,13,EXIT,RTN,255
  320.  DEFB 'I am inside an old wooden shed.%'
  321.  DEFB 00
  322.  DEFB DARK,4,W,13,5,EA,14,10,U,10,255
  323.  DEFB 'I am standing in a low, damp passageway.%'
  324.  DEFB 00
  325.  DEFB DARK,5,EA,12,2,N,15,255
  326.  DEFB 'I am in a narrow passage. To the North is a dead end.%'
  327.  DEFB 00,00
  328. TABKEY:
  329. N EQU  1 
  330.   DEFB  1 
  331.   DEFM 'N   NOR'
  332.   DEFB 'T'+80H
  333. S EQU  2 
  334.   DEFB  2 
  335.   DEFM 'S   SOU'
  336.   DEFB 'T'+80H
  337. EA EQU  3 
  338.   DEFB  3 
  339.   DEFM 'E   EAS'
  340.   DEFB 'T'+80H
  341. W EQU  4 
  342.   DEFB  4 
  343.   DEFM 'W   WES'
  344.   DEFB 'T'+80H
  345. NOE EQU  5 
  346.   DEFB  5 
  347.   DEFM 'NE '
  348.   DEFB ' '+80H
  349. SE EQU  6 
  350.   DEFB  6 
  351.   DEFM 'SE '
  352.   DEFB ' '+80H
  353. NW EQU  7 
  354.   DEFB  7 
  355.   DEFM 'NW '
  356.   DEFB ' '+80H
  357. SW EQU  8 
  358.   DEFB  8 
  359.   DEFM 'SW '
  360.   DEFB ' '+80H
  361. U EQU  9 
  362.   DEFB  9 
  363.   DEFM 'U   UP '
  364.   DEFB ' '+80H
  365. DO EQU  10 
  366.   DEFB  10 
  367.   DEFM 'D   DOW'
  368.   DEFB 'N'+80H
  369. L EQU  11 
  370.   DEFB  11 
  371.   DEFM 'L   LEF'
  372.   DEFB 'T'+80H
  373. RI EQU  12 
  374.   DEFB  12 
  375.   DEFM 'R   RIG'
  376.   DEFB 'H'+80H
  377. INTO EQU  13 
  378.   DEFB  13 
  379.   DEFM 'IN  INTOENT'
  380.   DEFB 'E'+80H
  381. EXIT EQU  14 
  382.   DEFB  14 
  383.   DEFM 'EXITLEAVOUT'
  384.   DEFB ' '+80H
  385. LOOK EQU  15 
  386.   DEFB  15 
  387.   DEFM 'LOOKPERUEXA'
  388.   DEFB 'M'+80H
  389. INVEN EQU  16 
  390.   DEFB  16 
  391.   DEFM 'INV'
  392.   DEFB 'E'+80H
  393. QUIT EQU  17 
  394.   DEFB  17 
  395.   DEFM 'QUITEND STOPBYE ABO'
  396.   DEFB 'R'+80H
  397. GET EQU  18 
  398.   DEFB  18 
  399.   DEFM 'GET GRABTAKECARRPIC'
  400.   DEFB 'K'+80H
  401. DROP EQU  19 
  402.   DEFB  19 
  403.   DEFM 'DROPREM'
  404.   DEFB 'O'+80H
  405. OPEN EQU  20 
  406.   DEFB  20 
  407.   DEFM 'OPE'
  408.   DEFB 'N'+80H
  409. LAMP EQU  21 
  410.   DEFB  21 
  411.   DEFM 'LAM'
  412.   DEFB 'P'+80H
  413. ULAMP EQU  22 
  414. WEAR EQU  23 
  415.   DEFB  23 
  416.   DEFM 'WEA'
  417.   DEFB 'R'+80H
  418. LIFT EQU  24 
  419.   DEFB  24 
  420.   DEFM 'LIFTPUSHMOVEPULLYAN'
  421.   DEFB 'K'+80H
  422. MATCH EQU  25 
  423.   DEFB  25 
  424.   DEFM 'MAT'
  425.   DEFB 'C'+80H
  426. SCORE EQU  26 
  427.   DEFB  26 
  428.   DEFM 'SCO'
  429.   DEFB 'R'+80H
  430. AROUND EQU  27 
  431.   DEFB  27 
  432.   DEFM 'AROUHER'
  433.   DEFB 'E'+80H
  434. SAY EQU  28 
  435.   DEFB  28 
  436.   DEFM 'SAY YELLSHOUCALLSCR'
  437.   DEFB 'E'+80H
  438. OFF EQU  29 
  439.   DEFB  29 
  440.   DEFM 'OFF UNL'
  441.   DEFB 'I'+80H
  442. ON EQU  30 
  443.   DEFB  30 
  444.   DEFM 'ON  LIGHSTRIBURNALIGFIR'
  445.   DEFB 'E'+80H
  446. HELP EQU  31 
  447.   DEFB  31 
  448.   DEFM 'HELPASS'
  449.   DEFB 'I'+80H
  450. BEGIN EQU  32 
  451.   DEFB  32 
  452.   DEFM 'BEGISTA'
  453.   DEFB 'R'+80H
  454. CLOSE EQU  33 
  455.   DEFB  33 
  456.   DEFM 'CLOSSHU'
  457.   DEFB 'T'+80H
  458. DOOR EQU  34 
  459.   DEFB  34 
  460.   DEFM 'DOO'
  461.   DEFB 'R'+80H
  462. READ EQU  35 
  463.   DEFB  35 
  464.   DEFM 'REA'
  465.   DEFB 'D'+80H
  466. THROW EQU  36 
  467.   DEFB  36 
  468.   DEFM 'THROHURLCHU'
  469.   DEFB 'C'+80H
  470. LOCK EQU  37 
  471.   DEFB  37 
  472.   DEFM 'LOC'
  473.   DEFB 'K'+80H
  474. UNLOCK EQU  38 
  475.   DEFB  38 
  476.   DEFM 'UNL'
  477.   DEFB 'O'+80H
  478. JUMP EQU  39 
  479.   DEFB  39 
  480.   DEFM 'JUM'
  481.   DEFB 'P'+80H
  482. FORWARD EQU  40 
  483.   DEFB  40 
  484.   DEFM 'FOR'
  485.   DEFB 'W'+80H
  486. BACKWARD EQU  41 
  487.   DEFB  41 
  488.   DEFM 'BAC'
  489.   DEFB 'K'+80H
  490. BOARD EQU  42 
  491.   DEFB  42 
  492.   DEFM 'NOTIBOARSIG'
  493.   DEFB 'N'+80H
  494. WHO EQU  43 
  495.   DEFB  43 
  496.   DEFM 'WHO WHENWHATIS  WHERHOW WHY'
  497.   DEFB ' '+80H
  498. LISTEN EQU  44 
  499.   DEFB  44 
  500.   DEFM 'LISTHEA'
  501.   DEFB 'R'+80H
  502. NOTE EQU  45 
  503.   DEFB  45 
  504.   DEFM 'NOT'
  505.   DEFB 'E'+80H
  506. STUDY EQU  46 
  507.   DEFB  46 
  508.   DEFM 'STU'
  509.   DEFB 'D'+80H
  510. KITCHEN EQU  47 
  511.   DEFB  47 
  512.   DEFM 'KIT'
  513.   DEFB 'C'+80H
  514. STAIRS EQU  48 
  515.   DEFB  48 
  516.   DEFM 'UPSTSTA'
  517.   DEFB 'I'+80H
  518. ROOM EQU  49 
  519.   DEFB  49 
  520.   DEFM 'ROO'
  521.   DEFB 'M'+80H
  522. BATH EQU  50 
  523.   DEFB  50 
  524.   DEFM 'BAT'
  525.   DEFB 'H'+80H
  526. KEY EQU  51 
  527.   DEFB  51 
  528.   DEFM 'KEY KEY'
  529.   DEFB 'S'+80H
  530. SHED EQU  52 
  531.   DEFB  52 
  532.   DEFM 'HUT SHE'
  533.   DEFB 'D'+80H
  534. FRONT EQU  53 
  535.   DEFB  53 
  536.   DEFM 'FRO'
  537.   DEFB 'N'+80H
  538. GROUNDS EQU  54 
  539.   DEFB  54 
  540.   DEFM 'GRO'
  541.   DEFB 'U'+80H
  542. WELL EQU  55 
  543.   DEFB  55 
  544.   DEFM 'WEL'
  545.   DEFB 'L'+80H
  546. YES EQU  56 
  547.   DEFB  56 
  548.   DEFM 'YES'
  549.   DEFB ' '+80H
  550. CARE EQU  57 
  551.   DEFB  57 
  552.   DEFM 'CAREQUIECLO'
  553.   DEFB 'S'+80H
  554. STATUE EQU  58 
  555.   DEFB  58 
  556.   DEFM 'STATFIG'
  557.   DEFB 'U'+80H
  558. THEN DEFL 250
  559.  DEFB 250
  560.  DEFM 'THENAND ALS'
  561.  DEFB 'O'+80H
  562. IT DEFL 251
  563.  DEFB 251
  564.  DEFM 'IT  THE'
  565.  DEFB 'M'+80H
  566. AGAIN DEFL 252
  567.  DEFB 252
  568.  DEFM 'AGAIREP'
  569.  DEFB 'E'+80H
  570.  DEFB 00,00
  571. TITL1: DEFB 26
  572.  DEFB 'Welcome to ADVEN-80, a new type of Adventure%'
  573.  DEFB 'game. I will be your eyes and ears in this game as we travel together%'
  574.  DEFB 'through this journey. If you have problems, please re-phrase%'
  575.  DEFB 'your sentence. Try asking for help if you like.%'
  576.  DEFB ' %'
  577.  DEFB 'Use the RUBOUT or DEL key to backspace over mistakes%'
  578.  DEFB 'or use Control-U to delete your entire input line%'
  579.  DEFB 'Hit any key to begin... good luck!'
  580.  DEFB 00,00
  581. FLAG: DEFB 00
  582.  DEFB      01
  583.  DEFB      00
  584.  DEFB      02
  585.  DEFB      00
  586.  DEFB      00
  587.  DEFB      00
  588.  DEFB      00
  589.  DEFB      00
  590.  DEFB      00
  591.  DEFB     80
  592.  DEFB     00
  593.  DEFB     00
  594.  DEFB     00
  595. FL14: DEFB     01
  596.  DEFB     00
  597.  DEFB     00
  598.  DEFB     01
  599.  DEFB     00
  600.  DEFB     00
  601. FL20: DEFB     01
  602. FL21: DEFB     00
  603.  DEFB     00
  604.  DEFB     01
  605.  DEFB     00
  606.  DEFB     00
  607.  DEFB     00
  608.  DEFB     00
  609.  DEFB     00
  610.  DEFB     00
  611.  DEFB     00
  612.  DEFB     00
  613.  DEFB     00
  614.  DEFB     00
  615.  DEFB     00
  616.  DEFB     00
  617.  DEFB     00
  618.  DEFB     00
  619.  DEFB     00
  620.  DEFB     00
  621.  DEFB     00
  622.  DEFB     00
  623.  DEFB     00
  624.  DEFB     00
  625.  DEFB     00
  626.  DEFB     00
  627.  DEFB     00
  628.  DEFB     00
  629.  DEFB     00
  630.  DEFB 00,00
  631.     END
  632.    00
  633.  DEFB     00
  634.  DEFB     00
  635.  DEFB     00
  636.  DEFB     00
  637.  DEFB     00
  638.  DEFB     00
  639.  DEFB     0