andrius
/
stage0
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Removed unrequired primitive

This commit is contained in:
Jeremiah Orians 2017-07-30 21:54:27 -04:00
parent 21e06a6dfa
commit 437bfe90b7
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
2 changed files with 1 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.org
View File

@ -60,6 +60,7 @@ Fixed bug in stage2 FORTH PRINT function
** Removed
the HERE and DP! are gone from ' now in stage3 FORTH
Removed ascii! from stage2 lisp because it can easily be replaced by a simple function
* 0.0.8 - 2017-06-17
** Added

43
stage2/lisp.s
View File

@ -2152,42 +2152,6 @@
"Remaining Cells: "
;; prim_char
;; Recieves a list in R0
;; Converts all integers to CHARs
:prim_char_String
"ascii!"
:prim_char
CMPSKIPI.NE R0 $NIL ; If NIL Expression
RET R15 ; Just get the Hell out
PUSHR R0 R15 ; Protect R0
PUSHR R1 R15 ; Protect R1
PUSHR R2 R15 ; Protect R2
PUSHR R3 R15 ; Protect R3
LOADUI R3 $NIL ; Using NIL
:prim_char_0
CMPJUMPI.E R0 R3 @prim_char_done
LOAD32 R1 R0 4 ; Get ARGS->CAR
LOAD32 R2 R1 0 ; Get ARGS->CAR->TYPE
LOAD32 R0 R0 8 ; Set ARGS to ARGS->CDR
CMPSKIPI.NE R2 4 ; If Type is INT
JUMP @prim_char_1 ; Convert to CHAR
JUMP @prim_char_0 ; Go to next list item
:prim_char_1
LOADUI R2 128 ; Using Type CHAR
STORE32 R2 R1 0 ; Update ARGS->CAR->TYPE
JUMP @prim_char_0 ; Keep looping
:prim_char_done
POPR R3 R15 ; Restore R3
POPR R2 R15 ; Restore R2
POPR R1 R15 ; Restore R1
POPR R0 R15 ; Restore R0
RET R15
;; prim_integer_to_char
;; Recieves a list in R0
;; Converts INT to CHAR
@ -2697,13 +2661,6 @@
CALLI R15 @make_sym ; MAKE_SYM
CALLI R15 @spinup ; SPINUP
LOADUI R0 $prim_char ; Using PRIM_CHAR
CALLI R15 @make_prim ; MAKE_PRIM
MOVE R1 R0 ; Put Primitive in correct location
LOADUI R0 $prim_char_String ; Using PRIM_char_STRING
CALLI R15 @make_sym ; MAKE_SYM
CALLI R15 @spinup ; SPINUP
LOADUI R0 $prim_integer_to_char ; Using PRIM_INTEGER_TO_CHAR
CALLI R15 @make_prim ; MAKE_PRIM
MOVE R1 R0 ; Put Primitive in correct location