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

Started conversion process of enforcing tabs for indentation but spaces for alignment

This commit is contained in:
Jeremiah Orians 2016-09-05 18:46:15 -04:00
parent 05dd6efbe9
commit 5dd9e79770
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
1 changed files with 34 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
stage0/stage0_monitor.s
View File

@ -1,9 +1,9 @@
:start :start
LOADUI R10 0x0F ; Byte mask LOADUI R10 0x0F ; Byte mask
LOADUI R11 1 ; Our toggle LOADUI R11 1 ; Our toggle
LOADUI R13 0x600 ; Where we are starting our Stack LOADUI R13 0x600 ; Where we are starting our Stack
;; R14 will be storing our condition ;; R14 will be storing our condition
FALSE R15 ; Our holder FALSE R15 ; Our holder
;; Prep TAPE_01 ;; Prep TAPE_01
LOADUI R0 0x1100 LOADUI R0 0x1100
@ -14,13 +14,13 @@
FOPEN_WRITE FOPEN_WRITE
:loop :loop
LOADUI R1 0 ; Read from tty LOADUI R1 0 ; Read from tty
FGETC ; Read a Char FGETC ; Read a Char
CMPSKIP.NE R0 13 ; Replace all CR CMPSKIP.NE R0 13 ; Replace all CR
LOADUI R0 10 ; WIth LF LOADUI R0 10 ; WIth LF
FPUTC ; Display the Char to User FPUTC ; Display the Char to User
;; Check for Ctrl-D ;; Check for Ctrl-D
CMPSKIP.NE R0 4 CMPSKIP.NE R0 4
@ -30,25 +30,25 @@
JUMP.NP R0 @finish JUMP.NP R0 @finish
:.L1 :.L1
LOADUI R1 0x1101 ; Write to TAPE_02 LOADUI R1 0x1101 ; Write to TAPE_02
FPUTC ; Print the Char FPUTC ; Print the Char
CALLI R13 @hex ; Convert it CALLI R13 @hex ; Convert it
JUMP.NP R0 @loop ; Don't use nonhex chars JUMP.NP R0 @loop ; Don't use nonhex chars
JUMP.Z R11 @.L99 ; Jump if toggled JUMP.Z R11 @.L99 ; Jump if toggled
;; Process first byte of pair ;; Process first byte of pair
AND R15 R0 R10 ; Store First nibble AND R15 R0 R10 ; Store First nibble
FALSE R11 ; Flip the toggle FALSE R11 ; Flip the toggle
JUMP @loop JUMP @loop
:.L99 :.L99
SL0I R15 4 ; Shift our first nibble SL0I R15 4 ; Shift our first nibble
AND R0 R0 R10 ; Mask out top AND R0 R0 R10 ; Mask out top
ADD R0 R0 R15 ; Combine nibbles ADD R0 R0 R15 ; Combine nibbles
LOADI R11 1 ; Flip the toggle LOADI R11 1 ; Flip the toggle
LOADUI R1 0x1100 ; Write the combined byte LOADUI R1 0x1100 ; Write the combined byte
FPUTC ; To TAPE_01 FPUTC ; To TAPE_01
JUMP @loop ; Try to get more bytes JUMP @loop ; Try to get more bytes
:hex :hex
;; Deal with line comments starting with # ;; Deal with line comments starting with #
@ -91,20 +91,20 @@
TRUE R0 TRUE R0
RET R13 RET R13
:ascii_comment :ascii_comment
LOADUI R1 0 ; Read from tty LOADUI R1 0 ; Read from tty
FGETC ; Read another char FGETC ; Read another char
CMPSKIP.NE R0 13 ; Replace all CR CMPSKIP.NE R0 13 ; Replace all CR
LOADUI R0 10 ; WIth LF LOADUI R0 10 ; WIth LF
FPUTC ; Let the user see it FPUTC ; Let the user see it
CMPUI R14 R0 10 ; Stop at the end of line CMPUI R14 R0 10 ; Stop at the end of line
LOADUI R1 0x1101 ; Write to TAPE_02 LOADUI R1 0x1101 ; Write to TAPE_02
FPUTC ; The char we just read FPUTC ; The char we just read
JUMP.NE R14 @ascii_comment ; Otherwise keep looping JUMP.NE R14 @ascii_comment ; Otherwise keep looping
JUMP @ascii_other JUMP @ascii_other
:finish :finish
LOADUI R0 0x1100 ; Close TAPE_01 LOADUI R0 0x1100 ; Close TAPE_01
FCLOSE FCLOSE
LOADUI R0 0x1101 ; Close TAPE_02 LOADUI R0 0x1101 ; Close TAPE_02
FCLOSE FCLOSE
HALT HALT