home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol175 / finish.a86 < prev    next >
Encoding:
Text File  |  1984-07-15  |  1.9 KB  |  109 lines
  1. ;
  2. ;        FINISH.A86
  3. ;
  4. ;Parameters and buffers for MODEM9.xx.
  5. ;
  6. COMPLIST    DB     6, 'S', 'R', 'T', 'E', 'H', 'L'
  7. ;
  8. NFILFLG    DB    FALSE    ;NORMALLY SET TO FALSE. ALLOWS WRITE TO..
  9. ;            ;..MEMORY IN TERMINAL MODE.
  10. OPTION    DB    0
  11. ;
  12. OPTBL    EQU    $
  13. ;
  14. QFLG        DB    'Q'
  15. RSEEFLG        DB    'R'
  16. SSEEFLG        DB    'S'
  17. VSEEFLG        DB    'V'
  18. TERMFLG        DB    'T'
  19. LOCCHFLG    DB    'L'
  20. BATCHFLG    DB    'B'    ;SET TO 'B' BY MENU. DOES NOT ALLOW MULTIFILE
  21.                 ;XFER WHEN PROGRAM INITIALLY CALLED.
  22. OPTBE    EQU    $
  23.  
  24. RESTROPT    DB    'Q','R','S','V','T','L','B'
  25.             ;MUST BE IN SAME ORDER AS TABLE ABOVE
  26. ;
  27. ;THE NEXT 12 BYTES EQUAL THE NUMBER OF BYTES BETWEEN SECTNOB AND SECTNOE
  28. ;
  29. RESTSN:
  30.     DB    0,0,0,0,0
  31.     DW    DBUF
  32.     DB    0,0,0,0,0
  33. ;
  34. SECTNOB    EQU    $    ;START OF TABLE MARKER
  35. RCVSNO    DB    0    ;\
  36. SECTNO    DW    0    ; \
  37. ERRCT    DB    0    ;  \
  38. EOFLG    DB    0    ;   \
  39. SECPTR    DW    DBUF    ;    12 BYTES BETWEEN TABLE MARKERS
  40. SECINBF    DB    0    ;   /
  41. MAXEXT    DB    0    ;  /
  42. RCNT    DW    0     ; /
  43. DATAFLG    DB    0    ;/
  44. SECTNOE    EQU    $    ;END OF TABLE MARKER
  45. ;
  46. MODCTLB    DB    07FH
  47. SAVEFLG    DB    FALSE
  48. LASTBYT1 DB    0
  49. LASTBYT2 DB    0
  50. EXACFLG    DB    0
  51. ECHOFLG    DB    FALSE
  52. LOCFLG    DB    FALSE
  53. CKSUMFLG DB    TRUE
  54. LISTFLG    DB    FALSE
  55. LISTMOR    DB    FALSE
  56. FSTFLG    DB    TRUE
  57. FIRSTME    DB    TRUE    ;FIRST SOH RECEIVED SWITCH (ZERO AFTER 1ST SOH)
  58. MFFLG1    DB    0    ;1ST TIME SW FOR MFACESS
  59. HLSAVE    DW    BOTTRAM
  60. HLSAVE1    DW    BOTTRAM
  61. HLSAVE2    DW    BOTTRAM
  62. STRSAVE    DW    STRINGS
  63. CMDBUF    DB    80H,0
  64.     RB    80H
  65. DISKNO    RB    1
  66. DISKSAV    RB    1
  67. SAVUSR    RB    1
  68. SAVEOUT    RB    1
  69. MECHDLY    RB    1
  70. SENDFLG    RB    1
  71. NBSAVE    RW    1
  72. BGNMS    RW    1
  73. FILECT    RB    2
  74. SNAMECT RB    1
  75. FTYCNT    RB    1
  76.     RB    100
  77. FCB3    RB    33
  78. FCB4    RB    33
  79. FCBBUF    RB    15
  80.  
  81. ;Multi-file access work area
  82.  
  83. MFREQ    RB    12    ;REQ NAME
  84. MFCUR    RB    12    ;CURR NAME
  85.  
  86. ;Unitialized storage for DIRLST
  87.  
  88. SRCHFCB    RB    33
  89. NAMEGD    RB    1
  90. NAMECT    RB    1
  91. BMAX    RW    1    ;HIGHEST BLOCK NUMBER ON DRIVE
  92. BMASK    RB    1    ;(RECORDS/BLOCK)-1
  93. BSHIFTF RB    1    ;NUMBER OF SHIFTS TO MULTIPLY BY REC/BLOCK
  94. ;
  95. STACK    RW    200H
  96. STACKTOP EQU    Offset $
  97. SAVESS    DW    0
  98. SAVESP    DW    0
  99. ;
  100. DBUF    RB    DBUFSIZ*1024
  101. NAMEBUF    RB    64*12
  102. ;
  103. BOTTRAM    EQU    (OFFSET $) + 0FFH AND 0FF00H
  104.     RB    CAPTURE*1024
  105. XAST    EQU    (OFFSET $) + 0FFH AND 0FF00H
  106. ;
  107. ;
  108.       END
  109.