home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / StdEnv / Clean System Files / StdMisc.abc < prev    next >
Encoding:
Text File  |  1997-06-17  |  1.6 KB  |  103 lines  |  [TEXT/3PRM]
  1. .comp 914 010111001
  2. .code       0       0       0
  3. .start _nostart_
  4. .depend "StdOverloaded"
  5. .depend "StdString"
  6. .depend "StdMisc"
  7. .endinfo
  8. .implab _cycle_in_spine
  9. .implab _type_error
  10. .implab _hnf
  11. .impdesc _ind
  12. .implab _indirection _eaind
  13. .impdesc e_system_dif
  14. .implab e_system_nif e_system_eaif
  15. .impdesc e_system_dAP
  16. .implab e_system_nAP e_system_eaAP
  17. .implab e_system_sif
  18. .implab e_system_sAP
  19. .impdesc _Cons
  20. .impdesc _Nil
  21. .impdesc _Tuple
  22. .impdesc d_S.1
  23. .implab n_S.1 ea_S.1
  24. .impdesc d_S.2
  25. .implab n_S.2 ea_S.2
  26. .impdesc d_S.3
  27. .implab n_S.3 ea_S.3
  28. .impdesc d_S.4
  29. .implab n_S.4 ea_S.4
  30. .impdesc d_S.5
  31. .implab n_S.5 ea_S.5
  32. .impdesc d_S.6
  33. .implab n_S.6 ea_S.6
  34. .implab _driver
  35. .string m_StdMisc "StdMisc"
  36. .export e_StdMisc_dabort
  37. .export e_StdMisc_sabort
  38. .export e_StdMisc_nabort
  39. .desc e_StdMisc_dabort e_StdMisc_nabort e_StdMisc_labort 1 "abort"
  40. .o 2 0
  41. e_StdMisc_labort
  42.     pop_a 1
  43. .d 1 0
  44.     jmp ea1
  45. .n 1 e_StdMisc_dabort _
  46. .o 1 0
  47. e_StdMisc_nabort
  48.     push_node _cycle_in_spine 1
  49. .d 1 0
  50.     jsr ea1
  51. .o 1 0
  52.     fill_a 0 1
  53.     pop_a 1
  54. .d 1 0
  55.     rtn
  56. .o 1 0
  57. ea1
  58.     jsr_eval 0
  59.     push_array 0
  60.     update_a 0 1
  61.     pop_a 1
  62. .o 1 0
  63. e_StdMisc_sabort
  64. .o 1 0
  65. s1
  66. .d 1 0
  67.     jsr print_string_
  68. .o 0 0
  69.     halt
  70. .inline abort
  71. .end
  72. .inline undef
  73. .end
  74. .d 1 0
  75.     rtn
  76. .export e_StdMisc_dundef
  77. .export e_StdMisc_sundef
  78. .export e_StdMisc_nundef
  79. .desc e_StdMisc_dundef e_StdMisc_nundef e_StdMisc_lundef 0 "undef"
  80. .o 1 0
  81. e_StdMisc_lundef
  82.     halt
  83. .n 0 e_StdMisc_dundef _
  84. .o 1 0
  85. e_StdMisc_nundef
  86.     push_node _cycle_in_spine 0
  87. .d 0 0
  88.     jsr ea2
  89. .o 1 0
  90.     fill_a 0 1
  91.     pop_a 1
  92. .d 1 0
  93.     rtn
  94. .o 0 0
  95. ea2
  96. .o 0 0
  97. e_StdMisc_sundef
  98. .o 0 0
  99. s2
  100.     buildAC "Run-time error! Program evaluated undefined value!"
  101. .d 1 0
  102.     jmp s1
  103.