home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / integer.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  2.6 KB  |  194 lines
  1. C    SET              0
  2. M    SET              0
  3. F    SET              0
  4. ;TYPE
  5. ;$STRING0 = STRING 0;
  6. ;$STRING80= STRING 80;
  7. ;$STRING255 = STRING 255;
  8. ; 
  9. ;VAR
  10. ;NUMBER:INTEGER;
  11. ;DATA:$STRING80;
  12. ;
  13. ;PROCEDURE SETLENGTH(VARX:$STRING0;Y:INTEGER);EXTERNAL;
  14.     EXTD    L156,SETLENGT
  15. ;FUNCTION LENGTH(X:$STRING255):INTEGER;EXTERNAL;
  16.     EXTD    L157,LENGTH  
  17. ;
  18. ;{the following function converts a string to an integer.
  19. ;as written, the string has a maximum size of 80 char.  
  20. ;requires pascal/z's external function: length}
  21. ;
  22. ;FUNCTION STRTOINT (STR:$STRING80):INTEGER;
  23. ;LABEL 1;
  24. ;
  25. ;VAR
  26. ;I,LEN,SIGN,VAL:INTEGER;
  27. ;
  28. ;BEGIN
  29. L158
  30.     NAME STRTOINT
  31.     ENTRY STRTOINT
  32. STRTOINT:
  33.     ENTR    D,2,8
  34. ;VAL:=0;
  35.     STMT    D,1
  36.     MOV    -6(IX),A
  37.     MOV    -7(IX),A
  38. ;LEN:=LENGTH(STR);
  39.     STMT    D,2
  40.     PUSH    IX
  41.     POP    H
  42.     LXI    B,88
  43.     DADD    B
  44.     SPSH    S,255
  45.     CALL    L157
  46.     STMT    M,2
  47.     MOV    -2(IX),D
  48.     MOV    -3(IX),E
  49. ;I:=1;
  50.     STMT    D,3
  51.     MOV    0(IX),A
  52.     MVI    -1(IX),1
  53. ;SIGN:=1;
  54.     STMT    D,4
  55.     MOV    -4(IX),A
  56.     MVI    -5(IX),1
  57. ;
  58. ;IF LEN = 0 THEN    GOTO 1;
  59.     STMT    D,5
  60.     MOV    L,-3(IX)
  61.     MOV    H,-2(IX)
  62.     MOV    D,A
  63.     MOV    E,A
  64.     DSB1    D,0
  65.     JNZ    L191
  66.     STMT    D,6
  67.     CTRL    M,6
  68.     JMP    L159
  69. L191
  70. ;
  71. ;REPEAT
  72.     STMT    D,7
  73. ;
  74. ;    CASE STR[I] OF
  75. L201
  76.     STMT    D,8
  77.     MOV    L,-1(IX)
  78.     MOV    H,0(IX)
  79.     RCHK    H,1,80
  80.     XCHG
  81.     LXI    H,88
  82.     ADDR    IX
  83. ;
  84. ;     '-' : SIGN:=-1; 
  85.     MOV    D,A
  86.     MOV    E,M
  87.     MOV    A,E
  88.     CMPI    D,45
  89.     JNZ    L216
  90. L218
  91.     XRA    A
  92.     STMT    D,9
  93.     MVI    -4(IX),255
  94.     MVI    -5(IX),255
  95. ;     '.' : GOTO 1;
  96.     JMP    L217
  97. L216
  98.     CMPI    D,46
  99.     JNZ    L231
  100. L232
  101.     XRA    A
  102.     STMT    D,10
  103.     CTRL    M,10
  104.     JMP    L159
  105. ;
  106. ;    '0','1','2','3','4','5','6','7','8','9':
  107.     JMP    L217
  108. L231
  109.     CMPI    D,48
  110.     JRZ    L242
  111.     CMPI    D,49
  112.     JRZ    L242
  113.     CMPI    D,50
  114.     JRZ    L242
  115.     CMPI    D,51
  116.     JRZ    L242
  117.     CMPI    D,52
  118.     JRZ    L242
  119.     CMPI    D,53
  120.     JRZ    L242
  121.     CMPI    D,54
  122.     JRZ    L242
  123.     CMPI    D,55
  124.     JRZ    L242
  125.     CMPI    D,56
  126.     JRZ    L242
  127.     CMPI    D,57
  128.     JNZ    L241
  129. ;        VAL:=(VAL * 10) + (ORD(STR[I]) - 48); {48 = ORD OF 0}
  130. L242
  131.     XRA    A
  132.     STMT    D,11
  133.     MOV    L,-7(IX)
  134.     MOV    H,-6(IX)
  135.     LXI    D,10
  136.     MULT    D,0
  137.     PUSH    H
  138.     MOV    L,-1(IX)
  139.     MOV    H,0(IX)
  140.     RCHK    H,1,80
  141.     XCHG
  142.     LXI    H,88
  143.     ADDR    IX
  144.     MOV    D,A
  145.     MOV    E,M
  146.     STMT    M,11
  147.     LXI    H,-48
  148.     DADD    D,0
  149.     POP    D
  150.     DADD    D,0
  151.     MOV    -6(IX),H
  152.     MOV    -7(IX),L
  153. ;
  154. ;       END; {OF CASE}
  155. L241
  156.     XRA    A
  157. L217
  158. ;
  159. ;I:=I+1;
  160.     STMT    D,12
  161.     MOV    L,-1(IX)
  162.     MOV    H,0(IX)
  163.     INX    H
  164.     MOV    0(IX),H
  165.     MOV    -1(IX),L
  166. ;
  167. ;UNTIL I > LEN;
  168.     STMT    D,13
  169.     CTRL    M,13
  170.     MOV    L,-1(IX)
  171.     MOV    H,0(IX)
  172.     MOV    E,-3(IX)
  173.     MOV    D,-2(IX)
  174.     GRET    D,0
  175.     JNC    L201
  176. ;
  177. ;
  178. ;1: { Exit immediately upon detection of a fatal error.}
  179.     STMT    D,14
  180. L159
  181. ;
  182. ;STRTOINT:=SIGN * VAL;
  183.     STMT    D,15
  184.     MOV    L,-5(IX)
  185.     MOV    H,-4(IX)
  186.     MOV    E,-7(IX)
  187.     MOV    D,-6(IX)
  188.     MULT    D,0
  189.     MOV    3(IX),H
  190.     MOV    2(IX),L
  191. ;END; {OF PROCEDURE}
  192.     STMT    D,16
  193.     EXIT    D,81
  194.