home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s235 / 1.ddi / TAB.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-09-06  |  6.1 KB  |  430 lines
  1. ;
  2. ;
  3. ;    THIS IS THE FILE OF TAB.ASM
  4. ;
  5. ;
  6. RTBA:    MOV   A,R2           ;THIS IS  SUBROUTING  9-1 ;LTB2
  7.     ADD   A,R2
  8.     MOV   R3,A
  9.     ADD   A,#6
  10.     MOVC  A,@A+PC
  11.     XCH   A,R3
  12.     ADD   A,#3
  13.     MOVC  A,@A+PC
  14.     MOV   R4,A
  15.     RET
  16. TAB2:    DW    ADR0,ADR1,ADR2,ADR3    ;COMD PROCESSING ADDRESS
  17.     DW    ADR4,ADR5,ADR6,ADR7
  18.     DW    ADR8,ADR9,ADRA,ADRB
  19.     DW    ADRC,ADRD,ADRE,ADRF
  20. ;
  21. ;
  22. ;
  23. ;
  24. TMAINA: LCALL    RACOMD
  25.     LCALL    RTBA
  26.     MOV    DPH,R3
  27.     MOV    DPL,R4
  28.     CLR    A
  29.     JMP    @A+DPTR
  30. ;
  31. ;
  32. ;
  33. ;
  34. ;
  35. RACOMD: NOP
  36. ;
  37. ;
  38. ;
  39. ADR0:NOP
  40. ADR1:NOP
  41. ADR2:NOP
  42. ADR3:NOP
  43. ADR4:NOP
  44. ADR5:NOP
  45. ADR6:NOP
  46. ADR7:NOP
  47. ADR8:NOP
  48. ADR9:NOP
  49. ADRA:NOP
  50. ADRB:NOP
  51. ADRC:NOP
  52. ADRD:NOP
  53. ADRE:NOP
  54. ADRF:NOP
  55. ;
  56. ;
  57. ;
  58. ;
  59. ;
  60. ;
  61. ;
  62. ;
  63. TMAINB: LCALL    INILTA
  64.     MOV    DPTR,#7FFCH
  65.     MOVX    A,@DPTR
  66.     MOV    R2,A
  67.     INC    DPTR
  68.     MOVX    A,@DPTR
  69.     MOV    R3,A
  70.     LCALL    RTBB
  71.     LCALL    PTADD
  72. ;
  73. ;
  74. ;
  75. ;
  76. ;
  77. INILTA: NOP
  78. PTADD:    NOP
  79. ;
  80. ;
  81. ;
  82. ;
  83. RTBB:    MOV   DPTR,#TAB3        ;THIS IS  SUBROUTING  9-2 ;LTB3
  84.     MOV   A,R3
  85.     CLR   C
  86.     RLC   A
  87.     XCH   A,R2
  88.     RLC   A
  89.     XCH   A,R2
  90.     ADD   A,DPL
  91.     MOV   DPL,A
  92.     MOV   A,DPH
  93.     ADDC  A,R2
  94.     MOV   DPH,A
  95.     CLR   A
  96.     MOVC  A,@A+DPTR
  97.     MOV   R2,A
  98.     CLR   A
  99.     INC   DPTR
  100.     MOVC  A,@A+DPTR
  101.     MOV   R3,A
  102.     RET
  103. TAB3:    DW    D0000,D0001,D0002,D0003
  104.     DW    D0004,D0005,D0006,D0007
  105. ;    .............................
  106.     DW    D1020,D1021,D1022,D1023
  107. ;
  108. ;
  109. ;
  110. ;
  111. ;
  112. ;
  113. D0000:    NOP
  114. D0001:    NOP
  115. D0002:    NOP
  116. D0003:    NOP
  117. D0004:    NOP
  118. D0005:    NOP
  119. D0006:    NOP
  120. D0007:    NOP
  121. D1020:    NOP
  122. D1021:    NOP
  123. D1022:    NOP
  124. D1023:    NOP
  125. ;
  126. ;
  127. RTBC:    MOV   R2,#0FFH            ;THIS IS  SUBROUTING  9-3 ;LTB4
  128.     MOV   DPTR,#TAB4
  129. LT4A:    MOV   A,R0
  130.     MOV   R1,A
  131.     INC   R2
  132. LT4B:    MOV   A,@R1
  133.     MOV   B,A
  134.     CLR   A
  135.     MOVC  A,@A+DPTR
  136.     CLR   PSW.5
  137.     JBC   ACC.7,LT4C
  138.     SETB  PSW.5
  139. LT4C:    JZ    LT4N
  140.     CJNE  A,B,LT4D
  141.     JNB   PSW.5,LT4Y
  142.     INC   R1
  143.     INC   DPTR
  144.     SJMP  LT4B
  145. LT4D:    INC   DPTR
  146.     JNB   PSW.5,LT4A
  147. LT4E:    CLR   A
  148.     MOVC  A,@A+DPTR
  149.     INC   DPTR
  150.     JB    ACC.7,LT4A
  151.     SJMP  LT4E
  152. LT4Y:    LJMP    FINE
  153. LT4N:    LJMP    NFINE
  154. TAB4:    DB    52H,45H,53H,45H,0D4H          ;RESET
  155.     DB    42H,45H,47H,49H,0CEH          ;BEGIN
  156.     DB    53H,54H,4FH,0D0H              ;STOP
  157.     DB    53H,45H,4EH,0C4H              ;SEND
  158.     DB    43H,48H,41H,4EH,4EH,45H,0CCH    ;CHANNEL
  159.     DB    43H,48H,41H,4EH,47H,0C5H          ;CHANGE
  160.     DB    0                   ;END
  161. ;
  162. ;
  163. ;
  164. ;
  165. ;
  166. ;
  167. ;
  168. ;
  169. ;
  170. FINE:    NOP
  171. NFINE:    NOP
  172. INSTR:    NOP
  173. ECOMD:    NOP    ;
  174. ;
  175. ;
  176. ;
  177. ;
  178. ;
  179. ;
  180. ;
  181. ;
  182. TMAINC: LCALL INSTR
  183.     MOV    R0,#30H
  184.     LCALL    RTBC
  185.     JC    ECOMD
  186.     MOV    DPTR,#TTABC
  187.     MOV    A,R2
  188.     RL    A
  189.     JMP    @A+DPTR
  190. TTABC:    AJMP    TPCOMD0
  191.     AJMP    TPCOMD1
  192.     AJMP    TPCOMD2
  193.     AJMP    TPCOMD3
  194.     AJMP    TPCOMD4
  195.     AJMP    TPCOMD5
  196. TPCOMD0:NOP
  197. TPCOMD1:NOP
  198. TPCOMD2:NOP
  199. TPCOMD3:NOP
  200. TPCOMD4:NOP
  201. TPCOMD5:NOP
  202. ;
  203. ;
  204. ;
  205. ;
  206. ;
  207. RTBD:    MOV   DPTR,#TAB5        ;THIS IS  SUBROUTING  9-4 ;LTB5
  208.     MOV   B,A
  209. LT5A:    CLR   A
  210.     MOVC  A,@A+DPTR
  211.     JZ    LT5N
  212.     INC   DPTR
  213.     CJNE  A,B,LT5B
  214.     CLR   A
  215.     MOVC  A,@A+DPTR
  216.     MOV   B,A
  217.     INC   DPTR
  218.     CLR   A
  219.     MOVC  A,@A+DPTR
  220.     MOV   DPL,A
  221.     MOV   DPH,B
  222.     CLR   A
  223.     JMP   @A+DPTR
  224. LT5B:    INC   DPTR
  225.     INC   DPTR
  226.     SJMP  LT5A
  227. LT5N:    LJMP    NFIN5
  228. TAB5:    DB    41H        ;ASCII      A
  229.     DW    XA
  230.     DB    44H        ;ASCII      D
  231.     DW    XD
  232.     DB    45H        ;ASCII      E
  233.     DW    XE
  234.     DB    4CH        ;ASCII      L
  235.     DW    XL
  236.     DB    4DH        ;ASCII      M
  237.     DW    XM
  238.     DB    58H        ;ASCII      X
  239.     DW    XX
  240.     DB    5AH        ;ASCII      Z
  241.     DW    XZ
  242.     DB    0         ;END
  243. ;
  244. ;
  245. ;
  246. ;
  247. ;
  248. ;
  249. ;
  250. ;
  251. ;
  252. ;
  253. ;
  254. XA:    NOP
  255. XD:    NOP
  256. XE:    NOP
  257. NFIN5:    NOP
  258. XL:    NOP
  259. XM:    NOP
  260. XX:    NOP
  261. XZ:    NOP
  262. ;
  263. ;
  264. ;
  265. ;
  266. ;
  267. ;
  268. ;
  269. RTBE:    MOVX  A,@DPTR        ;THIS IS  SUBROUTING  9-5 ;LKST
  270.     INC   DPTR
  271.     JZ    LKS5
  272.     MOV   R6,DPH
  273.     MOV   R7,DPL
  274.     MOV   R3,#0
  275. LKS1:    DEC   A
  276.     MOV   R4,A
  277. LKS2:    CJNE  A,3,$+3
  278.     JC    LKS4        ;(HI) < (LO)
  279.     ADD   A,R3
  280.     CLR   C
  281.     RRC   A
  282.     MOV   R5,A        ;      MI
  283.     LCALL LTT
  284.     MOVX  A,@DPTR
  285.     CJNE  A,2,LKS3
  286.     INC   DPTR        ;
  287.     MOVX  A,@DPTR
  288.     MOV   R3,A
  289.     INC   DPTR
  290.     MOVX  A,@DPTR
  291.     MOV   R4,A
  292.     INC   DPTR
  293.     MOVX  A,@DPTR
  294.     RET
  295. LKS3:    MOV   A,R5
  296.     JNC   LKS1
  297.     INC   A
  298.     MOV   R3,A        ;
  299.     MOV   A,R4        ;
  300.     SJMP  LKS2
  301. LKS4:    INC   A
  302. LKS5:    LCALL LTT
  303.     SETB  C
  304.     RET
  305. LTT:    MOV   B,#4
  306.     MUL   AB
  307.     ADD   A,R7
  308.     MOV   DPL,A
  309.     MOV   A,B
  310.     ADDC  A,R6
  311.     MOV   DPH,A
  312.     RET
  313. ;
  314. ;
  315. ;
  316. ;
  317. ;
  318. ISTL:    MOV    R6,DPH        ;THIS IS  SUBROUTING  9-6 ;
  319.     MOV    R7,DPL
  320.     MOV    DPL,R1
  321.     MOV    DPH,B
  322.     INC    DPTR
  323.     INC    DPTR
  324.     INC    DPTR
  325.     INC    DPTR
  326. IST1:    MOV    A,R6
  327.     CJNE    A,B,IST2
  328.     MOV    A,R7
  329.     CJNE    A,1,IST2
  330.     MOV    DPH,B
  331.     MOV    DPL,R1
  332.     MOV    A,R2
  333.     MOVX    @DPTR,A
  334.     INC    DPTR
  335.     MOV    A,R3
  336.     MOVX    @DPTR,A
  337.     INC    DPTR
  338.     MOV    A,R4
  339.     MOVX    @DPTR,A
  340.     INC    DPTR
  341.     MOV    A,R5
  342.     MOVX    @DPTR,A
  343.     RET
  344. IST2:    MOV    P2,B
  345.     MOVX    A,@R1
  346.     MOVX    @DPTR,A
  347.     DEC    R1
  348.     CJNE    A,#0FFH,IST3
  349.     DEC    B
  350. IST3:    DEC    DPL
  351.     MOV    A,DPL
  352.     CJNE    A,#0FFH,IST4
  353.     DEC    DPH
  354. IST4:    SJMP    IST1
  355. ;
  356. ;
  357. ;
  358. ;
  359. ;
  360. ;
  361. ;
  362. ;
  363. ;
  364. ;
  365. ;
  366. ;
  367. ;
  368. ;
  369. ;
  370. ;
  371. ;
  372. CSTAB:    MOV    A,R4           ;THIS IS  SUBROUTING  9-7  ;TEXT MC COHD
  373.     MOVC   A,@A+PC
  374.     XRL    A,@R0
  375.     JNZ    SB50
  376.     INC    R4
  377.     INC    R0
  378.     DJNZ   R7,CSTAB
  379.     CLR    A
  380.     RET
  381. SB50:    MOV    A,#0FFH
  382.     RET
  383.     DB     41H,20H,47H,45H,54H,54H,49H,4DH,45H,0DH ;A GETTIME
  384.     DB     42H,20H,47H,45H,54H,44H,41H,54H,41H,0DH ;B GETDATA
  385.     DB     43H,20H,47H,45H,54H,53H,54H,41H,54H,0DH ;C GETSTAT
  386.     DB     44H,20H,49H,4DH,45H,4CH,44H,0DH           ;D TIMELD
  387. ;
  388. ;
  389. ;
  390. ;
  391. LOADS:    MOV    A,R6          ;THIS IS  SUBROUTING    9-8 ;ASCII $->BUF
  392.     MOVC   A,@A+PC
  393.     MOV    @R0,A
  394.     INC    R0
  395.     INC    R6
  396.     DJNZ   R7,LOADS
  397.     JNB    PSW.5,SB31
  398.     CLR    PSW.5
  399.     MOV    A,31H
  400.     MOV    B,#0AH
  401.     DIV    AB
  402.     LCALL  HASC
  403.     MOV    @R0,A
  404.     INC    R0
  405.     MOV    A,B
  406.     LCALL  HASC
  407.     MOV    @R0,A
  408.     INC    R0
  409.     MOV    @R0,#0DH
  410. SB31:    RET
  411.     DB     52H,45H,41H,44H,59H,0DH            ;READY     1E
  412.     DB     3FH,3FH,0DH                ;??     24
  413.     DB     45H,52H,52H,4FH,52H,0DH            ;ERROR     27
  414.     DB     54H,49H,4DH,45H,0DH            ;TIME     2D
  415.     DB     53H,54H,41H,54H,0DH            ;STAT     32
  416.     DB     4FH,4CH,44H,0DH                ;OLD     37
  417.     DB     4EH,45H,57H,0DH                ;NEW     3B
  418.     DB     44H,4FH,4EH,4FH,54H,0DH            ;DONOT     3F
  419.     DB     49H,4EH,49H,54H,49H,41H,4CH,0DH        ;INITIAL 45
  420.     DB     52H,49H,47H,48H,54H,0DH            ;RIGHT     4D
  421.     DB     43H,4CH,4FH,53H,45H,0DH            ;CLOSE     53
  422.     DB     53H,59H,4EH,4FH,50H,20H            ;SYNOP     59
  423.     DB     42H,45H,47H,49H,4EH,0DH            ;BEGIN     5F
  424.     DB     41H,43H,4BH,4EH,47H,0DH,0DH        ;ACKNG     65                    ;ACKNG CLOSE 65
  425.     DB     51H,41H,4CH,41H,52H,4DH,20H        ;QALARM  6C
  426.     DB     44H,41H,54H,41H,49H,4EH,54H,56H,20H    ;DATAINTV73
  427.     DB     54H 49H,4DH,45H,41H,44H,4AH,55H,20H    ;TIMEADJ 7C
  428.     END
  429. ;
  430.