izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
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.
604 Commits
4 Branches
13MB
Tree: 948a06cb41
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '948a06cb41'
${ noResults }
collapseos/recipes/rc2014/glue.asm

58 lines
1.0KB
Raw Blame History 

  1. .equ	RAMSTART	0x8000

  2. .equ	RAMEND		0xffff

  3. .equ	ACIA_CTL	0x80	; Control and status. RS off.

  4. .equ	ACIA_IO		0x81	; Transmit. RS on.

  5. .equ	DIGIT_IO	0x00	; digital I/O's port

  6. 

  7. jp	init

  8. 

  9. ; interrupt hook

  10. .fill	0x38-$

  11. jp	aciaInt

  12. 

  13. .inc "err.h"

  14. .inc "ascii.h"

  15. .inc "core.asm"

  16. .inc "str.asm"

  17. .equ	ACIA_RAMSTART	RAMSTART

  18. .inc "acia.asm"

  19. 

  20. .equ	STDIO_RAMSTART	ACIA_RAMEND

  21. .equ	STDIO_GETC	aciaGetC

  22. .equ	STDIO_PUTC	aciaPutC

  23. .inc "stdio.asm"

  24. 

  25. ; *** BASIC ***

  26. 

  27. ; RAM space used in different routines for short term processing.

  28. .equ	SCRATCHPAD_SIZE	STDIO_BUFSIZE

  29. .equ	SCRATCHPAD	STDIO_RAMEND

  30. .inc "lib/util.asm"

  31. .inc "lib/ari.asm"

  32. .inc "lib/parse.asm"

  33. .inc "lib/fmt.asm"

  34. .equ	EXPR_PARSE	parseLiteralOrVar

  35. .inc "lib/expr.asm"

  36. .inc "basic/util.asm"

  37. .inc "basic/parse.asm"

  38. .inc "basic/tok.asm"

  39. .equ	VAR_RAMSTART	SCRATCHPAD+SCRATCHPAD_SIZE

  40. .inc "basic/var.asm"

  41. .equ	BUF_RAMSTART	VAR_RAMEND

  42. .inc "basic/buf.asm"

  43. .equ	BAS_RAMSTART	BUF_RAMEND

  44. .inc "basic/main.asm"

  45. 

  46. init:

  47. 	di

  48. 	; setup stack

  49. 	ld	sp, RAMEND

  50. 	im 1

  51. 

  52. 	call	aciaInit

  53. 	ei

  54. 	call	basInit

  55. 	jp	basStart

  56.