Home Verkennen Help
Inloggen
reduce-algebra
/
reduce-historical
spiegel van git://github.com/reduce-algebra/reduce-historical
Volgen 2
Ster 1
Vork 0
Bestanden Kwesties
Aftakking: master
Aftakkingen Labels
reduce-histo...
/
psl-1983
/
20-tests
/
20test.mac

20test.mac 1.2 KB
Permalink Geschiedenis Ruwe

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758 
  1. ; 20-TEST SIMPLE I/O TESTS, HANDCODED
    2. 

  2. TITLE 20TEST
    3. 

  3. ; MLG, 20 JULY 1982
    4. 

  4. 

  5. SEARCH MONSYM
    6. 

  6. RADIX ^D10
    7. 

  7. EXTERN GETC20,PUTC20,PUTI20,ERR20,TIMC20,QUIT20
    8. 

  8. ENTRY MAIN20
    9. 

  9. ST=15
    10. 

  10. MAIN20:	MOVEI 1,1
    11. 

  11. 	PUSHJ ST, PUTI20   ; Print a 1 for first test
    12. 

  12.         MOVEI 1,10
    13. 

  13.         PUSHJ ST, PUTC20   ; EOL to flush line
    14. 

  14. 

  15. 	MOVEI 1,2
    16. 

  16. 	PUSHJ ST, PUTI20   ; Second test
    17. 

  17.         MOVEI 1,65
    18. 

  18.         PUSHJ ST, PUTC20  ; A capital A
    19. 

  19.         MOVEI 1,66
    20. 

  20.         PUSHJ ST, PUTC20  ; A capital B
    21. 

  21.         MOVEI 1,10
    22. 

  22.         PUSHJ ST, PUTC20  ; EOL to flush line
    23. 

  23. 

  24.         MOVEI 1,3
    25. 

  25. 	PUSHJ ST, PUTI20   ; Third test, type in AB <cr>
    26. 

  26.         PUSHJ ST, GETC20
    27. 

  27.          PUSHJ ST, PUTC20  ; Should print A65
    28. 

  28.          PUSHJ ST, PUTI20
    29. 

  29.          MOVEI 1,10
    30. 

  30.          PUSHJ ST,PUTC20
    31. 

  31. 

  32.         PUSHJ ST, GETC20
    33. 

  33.          PUSHJ ST, PUTC20  ; Should print B66
    34. 

  34.          PUSHJ ST, PUTI20
    35. 

  35.          MOVEI 1,10
    36. 

  36.          PUSHJ ST,PUTC20
    37. 

  37. 

  38.         PUSHJ ST, GETC20
    39. 

  39.          PUSHJ ST, PUTI20  ; should print 10 and EOL
    40. 

  40.          PUSHJ ST, PUTC20
    41. 

  41.          MOVEI 1,10
    42. 

  42.          PUSHJ ST,PUTC20
    43. 

  43. 

  44.         movei 1,4
    45. 

  45. 	pushj st, puti20   ; last test
    46. 

  46.         Pushj st,timc20
    47. 

  47.         PushJ st, puti20
    48. 

  48. 

  49. 	movei 1,100
    50. 

  50. 	pushj st, err20
    51. 

  51. 

  52. 	movei 1,26
    53. 

  53.         pushj st, putc20  ; eof to flush buffer
    54. 

  54.         movei 1,0
    55. 

  55.         pushj st, quit20
    56. 

  56. 	POPJ ST,	
    57. 

  57. 	END
    58. 

  58.