home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / DRIPAK.ZIP / CPM_3-0 / SOURCES / DATMOD.ASM < prev    next >
Assembly Source File  |  1982-12-31  |  3KB  |  169 lines
  1. $title    ('GENCPM Data module')
  2.     name    datmod
  3.  
  4. ;  Copyright (C) 1982
  5. ;  Digital Research
  6. ;  P.O. Box 579
  7. ;  Pacific Grove, CA 93950
  8. ;
  9. ;  Revised:
  10. ;    15 Nov 82 by Bruce Skidmore
  11. ;
  12.  
  13.     cseg
  14.  
  15.         public    symtbl
  16.  
  17. ;declare symtbl(16) structure(
  18. ;  token(8) byte, /* question variable name */
  19. ;  len      byte, /* length of structure in array of structures */
  20. ;  flags    byte, /* type of variable */
  21. ;  qptr     byte, /* index into query array */
  22. ;  ptr      address); /* pointer to the associated data structure */
  23.  
  24. ;  flags definition:
  25. ;      bit(3) = 1 then array of structures
  26. ;      bit(4) = 1 then index is A-P else index is 0-F
  27. ;      bit(2) = 1 then numeric variable
  28. ;      bit(1) = 1 boolean variable legal values are Y or N
  29. ;      bit(0) = 1 drive variable legal values are A-P
  30.  
  31. symtbl:
  32.     db    'PRTMSG  ',1, 00000010B,0
  33.     dw    prtmsg
  34.     db    'PAGWID  ',1, 00000100B,1
  35.     dw    conwid
  36.     db    'PAGLEN  ',1, 00000100B,2
  37.     dw    conpag
  38.     db    'BACKSPC ',1, 00000010B,3
  39.     dw    bckspc
  40.     db    'RUBOUT  ',1, 00000010B,4
  41.     dw    rubout
  42.     db    'BOOTDRV ',1, 00000001B,5
  43.     dw    bdrive
  44.     db    'MEMTOP  ',1, 00000100B,6
  45.     dw    memtop
  46.     db    'BNKSWT  ',1, 00000010B,7
  47.     dw    bnkswt
  48.     db    'COMBAS  ',1, 00000100B,8
  49.     dw    bnktop
  50.     db    'LERROR  ',1, 00000010B,9
  51.     dw    lerror
  52.     db    'NUMSEGS ',1, 00000100B,10
  53.     dw    numseg
  54.     db    'MEMSEG00',5, 00001100B,11
  55.     dw    memtbl+5
  56.     db    'HASHDRVA',1, 00011010B,27
  57.     dw    hash
  58.     db    'ALTBNKSA',10,00011010B,43
  59.     dw    record+3
  60.     db    'NDIRRECA',10,00011100B,59
  61.     dw    record+4
  62.     db    'NDTARECA',10,00011100B,75
  63.     dw    record+5
  64.     db    'ODIRDRVA',10,00011001B,91
  65.     dw    record+6
  66.     db    'ODTADRVA',10,00011001B,107
  67.     dw    record+7
  68.     db    'OVLYDIRA',10,00011010B,123
  69.     dw    record+8
  70.     db    'OVLYDTAA',10,00011010B,139
  71.     dw    record+9
  72.     db    'CRDATAF ',1,00000010B,155
  73.     dw    crdatf
  74.     db    'DBLALV  ',1,00000010B,156
  75.     dw    dblalv
  76.  
  77.     public    lerror,prtmsg,bnkswt,memtop,bnktop
  78.     public    bdrive,conpag,conwid,bckspc
  79.     public    rubout,numseg,hash,memtbl,record
  80.     public    crdatf,dblalv
  81.  
  82. lerror:
  83.     db    0ffh
  84. prtmsg:
  85.     db    0ffh
  86. bnkswt:
  87.     db    0ffh
  88. memtop:
  89.     db    0ffh
  90. bnktop:
  91.     db    0c0h
  92. bdrive:
  93.     db    00h
  94. conpag:
  95.     db    23
  96. conwid:
  97.     db    79
  98. bckspc:
  99.     db    0
  100. rubout:
  101.     db    0ffh
  102. numseg:
  103.     db    3
  104. hash:
  105.     db    0ffh,0ffh,0ffh,0ffh
  106.     db    0ffh,0ffh,0ffh,0ffh
  107.     db    0ffh,0ffh,0ffh,0ffh
  108.     db    0ffh,0ffh,0ffh,0ffh
  109. memtbl:
  110.     db    0,0,0,0,0
  111.     db    0,080h,00h,0,0
  112.     db    0,0c0h,02h,0,0
  113.     db    0,0c0h,03h,0,0
  114.     db    0,0c0h,04h,0,0
  115.     db    0,0c0h,05h,0,0
  116.     db    0,0c0h,06h,0,0
  117.     db    0,0c0h,07h,0,0
  118.     db    0,0c0h,08h,0,0
  119.     db    0,0c0h,09h,0,0
  120.     db    0,0c0h,0ah,0,0
  121.     db    0,0c0h,0bh,0,0
  122.     db    0,0c0h,0ch,0,0
  123.     db    0,0c0h,0dh,0,0
  124.     db    0,0c0h,0eh,0,0
  125.     db    0,0c0h,0fh,0,0
  126.     db    0,0c0h,10h,0,0
  127. record:
  128.     dw    0
  129.     db    0,0,1,1,0,0,0ffh,0ffh
  130.     dw    0
  131.     db    0,0,1,1,0,0,0ffh,0ffh
  132.     dw    0
  133.     db    0,0,1,1,0,0,0ffh,0ffh
  134.     dw    0
  135.     db    0,0,1,1,0,0,0ffh,0ffh
  136.     dw    0
  137.     db    0,0,1,1,0,0,0ffh,0ffh
  138.     dw    0
  139.     db    0,0,1,1,0,0,0ffh,0ffh
  140.     dw    0
  141.     db    0,0,1,1,0,0,0ffh,0ffh
  142.     dw    0
  143.     db    0,0,1,1,0,0,0ffh,0ffh
  144.     dw    0
  145.     db    0,0,1,1,0,0,0ffh,0ffh
  146.     dw    0
  147.     db    0,0,1,1,0,0,0ffh,0ffh
  148.     dw    0
  149.     db    0,0,1,1,0,0,0ffh,0ffh
  150.     dw    0
  151.     db    0,0,1,1,0,0,0ffh,0ffh
  152.     dw    0
  153.     db    0,0,1,1,0,0,0ffh,0ffh
  154.     dw    0
  155.     db    0,0,1,1,0,0,0ffh,0ffh
  156.     dw    0
  157.     db    0,0,1,1,0,0,0ffh,0ffh
  158.     dw    0
  159.     db    0,0,1,1,0,0,0ffh,0ffh
  160. crdatf:
  161.     db    0
  162. dblalv:
  163.     db    0ffh
  164.  
  165.     public    quest
  166. quest:
  167.     ds    157
  168.     end
  169.