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