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.
601 Commits
4 Branches
13MB
Tree: 9ab292a6d5
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '9ab292a6d5'
${ noResults }
collapseos/apps/basic/blk.asm

50 lines
612B
Raw Blame History 

  1. basBSEL:

  2. 	call	rdExpr

  3. 	ret	nz

  4. 	push	ix \ pop hl

  5. 	call	blkSelPtr

  6. 	ld	a, l

  7. 	jp	blkSel

  8. 

  9. basBSEEK:

  10. 	call	rdExpr

  11. 	ret	nz

  12. 	push	ix	; --> lvl 1

  13. 	call	rdExpr

  14. 	push	ix \ pop de

  15. 	pop	hl	; <-- lvl 1

  16. 	jr	z, .skip

  17. 	; DE not supplied, set to zero

  18. 	ld	de, 0

  19. .skip:

  20. 	xor	a	; absolute mode

  21. 	call	blkSeek

  22. 	cp	a	; ensure Z

  23. 	ret

  24. 

  25. basGETB:

  26. 	call	blkGetB

  27. 	ret	nz

  28. 	ld	(VAR_TBL), a

  29. 	xor	a

  30. 	ld	(VAR_TBL+1), a

  31. 	ret

  32. 

  33. basPUTB:

  34. 	call	rdExpr

  35. 	ret	nz

  36. 	push	ix \ pop hl

  37. 	ld	a, l

  38. 	jp	blkPutB

  39. 

  40. basBLKCmds:

  41. 	.db	"bsel", 0

  42. 	.dw	basBSEL

  43. 	.db	"bseek", 0

  44. 	.dw	basBSEEK

  45. 	.db	"getb", 0

  46. 	.dw	basGETB

  47. 	.db	"putb", 0

  48. 	.dw	basPUTB

  49. 	.db	0xff		; end of table