summaryrefslogtreecommitdiff
path: root/programs
diff options
context:
space:
mode:
Diffstat (limited to 'programs')
-rw-r--r--programs/sub-suite/subeditor.s26
1 files changed, 26 insertions, 0 deletions
diff --git a/programs/sub-suite/subeditor.s b/programs/sub-suite/subeditor.s
index 7e124a2..d98d068 100644
--- a/programs/sub-suite/subeditor.s
+++ b/programs/sub-suite/subeditor.s
@@ -12,6 +12,7 @@ reset:
tyx ; Reset X.
jsr init_heap ; Initialize the heap.
jsr init_tables ; Initialize the main tables.
+; jsr test_free ;
jsr clr_scr ; Clear the screen.
jsr pnt_strt ; Print the starting message.
bra start ; Goto the start of the main program.
@@ -48,6 +49,30 @@ init_tables:
rts ; End of init_tables.
+;test_free:
+; inc step ;
+; lda.q bitabl ;
+; jsr free ;
+; lda.q buffer ;
+; jsr free ;
+; and #0 ; Reset A.
+; lda.w #LWSIZE ; Allocate LWSIZE bytes of RAM for the linewrap table.
+; jsr malloc ;
+; sta.q bitabl ;
+; lda.q cmd_buf ;
+; jsr free ;
+; and #0 ; Reset A.
+; lda.w #SCRSIZE ; Allocate SCRSIZE bytes of RAM for the screen buffer.
+; jsr malloc ;
+; sta.q buffer ;
+; and #0 ; Reset A.
+; lda.w #CMDSIZE ; Allocate CMDSIZE bytes of RAM for the command buffer.
+; jsr malloc ;
+; sta.q cmd_buf ;
+; and #0 ; Reset A.
+; rts ; End of test_free.
+
+
clr_arr:
phb ; Preserve whatever was in B.
ldb #0 ; Clear B.
@@ -78,6 +103,7 @@ clr_arr:
plb ; Get whatever was in the B register, back.
rts ; End of clr_arr.
+
pnt_strt:
lda.w #ed_name ; Print the name of the editor.
jsr print_str ;