You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

214 lines
5.8KB

  1. .PAG 'RAMVAR.SF'
  2. ;PERMANENT ADDRESS VARIABLES
  3. ;
  4. *=ZP2
  5. ;
  6. VNMI *=*+2 ;INDIRECT FOR NMI
  7. NMIFLG *=*+1
  8. AUTOFG *=*+1
  9. SECINC *=*+1 ;SECTOR INC FOR SEQ
  10. REVCNT *=*+1 ; ERROR RECOVERY COUNT
  11. .SKIP
  12. BUFS = $300 ; START OF DATA BUFS
  13. FBUFS = BUFS ;FORMAT DOWNLOAD IMAGE
  14. .SKI 2
  15. ;*
  16. ;*********************************
  17. ;*
  18. ;* ZERO PAGE VARIABLES
  19. ;*
  20. ;*********************************
  21. ;*
  22. USRJMP *=*+2 ; USER JMP TABLE PTR
  23. BMPNT *=*+2 ; BIT MAP POINTER
  24. TEMP *=*+6 ; TEMP WORK SPACE
  25. IP *=*+2 ; INDIRECT PTR VARIABLE
  26. LSNADR *=*+1 ; LISTEN ADDRESS
  27. TLKADR *=*+1 ;TALKER ADDRESS
  28. LSNACT *=*+1 ; ACTIVE LISTENER FLAG
  29. TLKACT *=*+1 ; ACTIVE TALKER FLAG
  30. ADRSED *=*+1 ; ADDRESSED FLAG
  31. ATNPND *=*+1 ;ATTENTION PENDING FLAG
  32. ATNMOD *=*+1 ;IN ATN MODE
  33. PRGTRK *=*+1 ;LAST PROG ACCESSED
  34. DRVNUM *=*+1 ;CURRENT DRIVE #
  35. TRACK *=*+1 ;CURRENT TRACK
  36. SECTOR *=*+1 ;CURRENT SECTOR
  37. LINDX *=*+1 ;LOGICAL INDEX
  38. SA *=*+1 ;SECONDARY ADDRESS
  39. ORGSA *=*+1 ;ORIGINAL SA
  40. DATA *=*+1 ; TEMP DATA BYTE
  41. ;*
  42. ;*
  43. T0 =TEMP
  44. T1 =TEMP+1
  45. T2 =TEMP+2
  46. T3 =TEMP+3
  47. T4 =TEMP+4
  48. R0 *=*+1
  49. R1 *=*+1
  50. R2 *=*+1
  51. R3 *=*+1
  52. R4 *=*+1
  53. RESULT *=*+4
  54. ACCUM *=*+5
  55. DIRBUF *=*+2
  56. ICMD *=*+1 ;IEEE CMD IN
  57. MYPA *=*+1 ; MY PA FLAG
  58. CONT *=*+1 ; BIT COUNTER FOR SER
  59. ;*
  60. ;*********************
  61. ;*
  62. ;* ZERO PAGE ARRAY
  63. ;*
  64. ;***********************
  65. ;*
  66. BUFTAB *=*+CBPTR+4 ; BUFFER BYTE POINTERS
  67. CB=BUFTAB+CBPTR
  68. BUF0 *=*+MXCHNS+1
  69. BUF1 *=*+MXCHNS+1
  70. NBKL
  71. RECL *=*+MXCHNS
  72. NBKH
  73. RECH *=*+MXCHNS
  74. NR *=*+MXCHNS
  75. RS *=*+MXCHNS
  76. SS *=*+MXCHNS
  77. F1PTR *=*+1 ; FILE STREAM 1 POINTER
  78. ;
  79. ;***********************
  80. ; $4300 VARS MOVED TO ZP
  81. ;
  82. RECPTR *=*+1
  83. SSNUM *=*+1
  84. SSIND *=*+1
  85. RELPTR *=*+1
  86. ENTSEC *=*+MXFILS ; SECTOR OF DIRECTORY ENTRY
  87. ENTIND *=*+MXFILS ; INDEX OF DIRECTORY ENTRY
  88. FILDRV *=*+MXFILS ; DEFAULT FLAG, DRIVE #
  89. PATTYP *=*+MXFILS ; PATTERN,REPLACE,CLOSED-FLAGS,TYPE
  90. FILTYP *=*+MXCHNS ; CHANNEL FILE TYPE
  91. CHNRDY *=*+MXCHNS ; CHANNEL STATUS
  92. EOIFLG *=*+1 ; TEMP EOI
  93. JOBNUM *=*+1 ; CURRENT JOB #
  94. LRUTBL *=*+MXCHNS-1 ;LEAST RECENTLY USED TABLE
  95. NODRV *=*+2 ; NO DRIVE FLAG
  96. DSKVER *=*+2 ; DISK VERSION FROM 18.0
  97. ZPEND=*
  98. *=$200
  99. CMDBUF *=*+CMDLEN+1
  100. CMDNUM *=*+1 ; COMMAND #
  101. LINTAB *=*+MAXSA+1 ; SA:LINDX TABLE
  102. CHNDAT *=*+MXCHNS ; CHANNEL DATA BYTE
  103. LSTCHR *=*+MXCHNS ; CHANNEL LAST CHAR PTR
  104. TYPE *=*+1 ; ACTIVE FILE TYPE
  105. ;
  106. ;*
  107. ;*******************
  108. ;*
  109. ;* RAM VARIABLES IN $4300
  110. ;*
  111. ;*******************
  112. ;*
  113. ; *=$4300
  114. STRSIZ *=*+1
  115. ;ZP: RECPTR *=*+1
  116. ;ZP: SSNUM *=*+1
  117. ;ZP: SSIND *=*+1
  118. ;ZP: RELPTR *=*+1
  119. .SKIP
  120. TEMPSA *=*+1 ; TEMPORARY SA
  121. ;ZP: EOIFLG *=*+1 ; TEMP EOI
  122. CMD *=*+1 ; TEMP JOB COMMAND
  123. .SKIP
  124. LSTSEC *=*+1 ;
  125. BUFUSE *=*+2 ; BUFFER ALLOCATION
  126. ;ZP: JOBNUM *=*+1 ; CURRENT JOB #
  127. MDIRTY *=*+2 ;BAM 0 & 1 DIRTY FLAGS
  128. ENTFND *=*+1 ;DIR-ENTRY FOUND FLAG
  129. DIRLST *=*+1 ;DIR LISTING FLAG
  130. CMDWAT *=*+1 ;COMMAND WAITING FLAG
  131. LINUSE *=*+1 ;LINDX USE WORD
  132. LBUSED *=*+1 ;LAST BUFFER USED
  133. REC *=*+1
  134. TRKSS *=*+1
  135. SECSS *=*+1
  136. .PAGE
  137. ;*
  138. ;********************************
  139. ;*
  140. ;* RAM ARRAY AREA
  141. ;*
  142. ;********************************
  143. ;*
  144. LSTJOB *=*+BFCNT ; LAST JOB
  145. ;ZP: LINTAB *=*+MAXSA+1 ; SA:LINDX TABLE
  146. ;ZP: CHNDAT *=*+MXCHNS ; CHANNEL DATA BYTE
  147. DSEC *=*+MXCHNS ; SECTOR OF DIRECTORY ENTRY
  148. DIND *=*+MXCHNS ; INDEX OF DIRECTORY ENTRY
  149. ERWORD *=*+1 ; ERROR WORD FOR RECOVERY
  150. ERLED *=*+1 ; ERROR LED MASK FOR FLASHING
  151. PRGDRV *=*+1 ; LAST PROGRAM DRIVE
  152. PRGSEC *=*+1 ; LAST PROGRAM SECTOR
  153. WLINDX *=*+1 ; WRITE LINDX
  154. RLINDX *=*+1 ; READ LINDX
  155. NBTEMP *=*+2 ; # BLOCKS TEMP
  156. .SKIP 3
  157. CMDSIZ *=*+1 ; COMMAND STRING SIZE
  158. CHAR *=*+1 ; CHAR UNDER PARSER
  159. LIMIT *=*+1 ; PTR LIMIT IN COMPAR
  160. F1CNT *=*+1 ; FILE STREAM 1 COUNT
  161. F2CNT *=*+1 ; FILE STREAM 2 COUNT
  162. F2PTR *=*+1 ; FILE STREAM 2 POINTER
  163. ; PARSER TABLES
  164. FILTBL *=*+MXFILS+1 ; FILENAME POINTER
  165. ;ZP: FILENT *=*+MXFILS ; DIRECTORY ENTRY
  166. ;ZP: FILDAT *=*+MXFILS ; DRIVE #, PATTERN
  167. FILTRK *=*+MXFILS ; 1ST LINK/TRACK
  168. FILSEC *=*+MXFILS ; /SECTOR
  169. .SKIP
  170. ; CHANNEL TABLES
  171. ;ZP: FILTYP *=*+MXCHNS ; CHANNEL FILE TYPE
  172. ;ZP: CHNRDY *=*+MXCHNS ; CHANNEL STATUS
  173. ;ZP: LSTCHR *=*+MXCHNS ; CHANNEL LAST CHAR PTR
  174. .SKIP
  175. PATFLG *=*+1 ; PATTERN PRESENCE FLAG
  176. IMAGE *=*+1 ; FILE STREAM IMAGE
  177. DRVCNT *=*+1 ; NUMBER OF DRV SEARCHES
  178. DRVFLG *=*+1 ; DRIVE SEARCH FLAG
  179. LSTDRV *=*+1 ; LAST DRIVE W/O ERROR
  180. FOUND *=*+1 ; FOUND FLAG IN DIR SEARCHES
  181. DIRSEC *=*+1 ; DIRECTORY SECTOR
  182. DELSEC *=*+1 ; SECTOR OF 1ST AVAIL ENTRY
  183. DELIND *=*+1 ; INDEX "
  184. LSTBUF *=*+1 ; =0 IF LAST BLOCK
  185. INDEX *=*+1 ; CURRENT INDEX IN BUFFER
  186. FILCNT *=*+1 ; COUNTER, FILE ENTRIES
  187. TYPFLG *=*+1 ; MATCH BY TYPE FLAG
  188. MODE *=*+1 ; ACTIVE FILE MODE (R,W)
  189. ;ZP: TYPE *=*+1 ; ACTIVE FILE TYPE
  190. JOBRTN *=*+1 ;JOB RETURN FLAG
  191. EPTR *=*+1 ;PTR FOR RECOVERY
  192. TOFF *=*+1 ;TOTAL TRACK OFFSET
  193. UBAM *=*+2 ; LAST BAM UPDATE PTR
  194. TBAM *=*+4 ; TRACK # OF BAM IMAGE
  195. BAM *=*+16 ; BAM IMAGES
  196. .SKI
  197. ;*
  198. ;*****************************************
  199. ;*
  200. ;* OUTPUT BUFFERS
  201. ;*
  202. ;********************************************
  203. ;*
  204. ; *=$4400-36-36
  205. NAMBUF *=*+36 ; DIRECTORY BUFFER
  206. ERRBUF *=*+36 ; ERROR MSG BUFFER
  207. WBAM *=*+1 ; DON'T-WRITE-BAM FLAG
  208. NDBL *=*+2 ; # OF DISK BLOCKS FREE
  209. NDBH *=*+2
  210. PHASE *=*+2
  211. RAMEND=*
  212. .SKIP 2
  213. .END