more work on inserting and deleting BASIC lines.

This commit is contained in:
Paul Gardner-Stephen committed 2019-04-28 00:28:38 +09:30
1 parent 84c02486fe
commit 580b7961a5
4 files changed
+94 -42

No files matched your search

+18
View File
@@ -0,0 +1,18 @@
;; Return C=1 if a pointer in BASIC memory space is NULL, else C=0
;; X = ZP pointer to check
peek_pointer_null_check:
ldy #$00
jsr peek_under_roms
bne ptr_not_null
iny
jsr peek_under_roms
bne ptr_not_null
;; Pointer is NULL
clc
rts
ptr_not_null:
sec
rts