Fixing a label I missed when moving functions in the stdlib.

[vvhitespace] / stdlib / stdio.pvvs

diff --git a/stdlib/stdio.pvvs b/stdlib/stdio.pvvs
index 12e0ed7..f18d97c 100644 (file)
--- a/stdlib/stdio.pvvs
+++ b/stdlib/stdio.pvvs
@@ -3,7 +3,7 @@
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:

-@   printstackstring (1000)
+@   printstackstring (1000100)

 @ Description:
 @   Prints a null-terminated string from the stack.
 @ Call Stack:
 @ Description:
 @   Prints a null-terminated string from the stack.
 @ Call Stack:


@@ -15,18 +15,18 @@
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

-NSSVTSSSN               | Mark: 1000 (print string from stack)
+NSSVTSSSTSSN            | Mark: 1000100 (print string from stack)

 SNS                     | DUP
 SNS                     | DUP

-NTSSSSSTSSSSSSSSSSTN    | BRZ > 00001000 00000001
+NTSSTSSSTSSSSSSSSSTN    | BRZ > 01000100 00000001

 TNSS                    | Print character
 TNSS                    | Print character

-NSNTSSSN                | JMP > 1000
-NSSVSSSSTSSSSSSSSSSTN   | Mark: 00001000 00000001
+NSNTSSSTSSN             | JMP > 1000100
+NSSVSTSSSTSSSSSSSSSTN   | Mark: 01000100 00000001

 SNN                     | DROP
 NTN                     | RTS
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:
 SNN                     | DROP
 NTN                     | RTS
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:

-@   printheapstring (1001)
+@   printheapstring (1000101)

 @ Description:
 @   Prints a null-terminated string from the heap.
 @ Call Stack:
 @ Description:
 @   Prints a null-terminated string from the heap.
 @ Call Stack:


@@ -34,16 +34,16 @@ NTN                     | RTS
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

-NSSVTSSTN               | Mark: 1001 (print string from heap)
+NSSVTSSSTSTN            | Mark: 1000101 (print string from heap)

 SNS                     | DUP
 TTT                     | LOAD
 SNS                     | DUP
 SNS                     | DUP
 TTT                     | LOAD
 SNS                     | DUP

-NTSSSSSTSSTSSSSSSSTN    | BRZ > 00001001 00000001
+NTSSTSSSTSTSSSSSSSTN    | BRZ > 01000101 00000001

 TNSS                    | Print character
 SSSTN                   | Push +1
 TSSS                    | ADD
 TNSS                    | Print character
 SSSTN                   | Push +1
 TSSS                    | ADD

-NSNTSSTN                | JMP > 1001
-NSSVSSSSTSSTSSSSSSSTN   | Mark: 00001001 00000001
+NSNTSSSTSTN             | JMP > 1000101
+NSSVSTSSSTSTSSSSSSSTN   | Mark: 01000101 00000001

 SNN                     | DROP
 SNN                     | DROP
 NTN                     | RTS
 SNN                     | DROP
 SNN                     | DROP
 NTN                     | RTS


@@ -61,13 +61,13 @@ NTN                     | RTS
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 NSSVTSTSN               | Mark: 1010 (print number from stack)
 SNS                     | DUP
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 NSSVTSTSN               | Mark: 1010 (print number from stack)
 SNS                     | DUP

-NSTTSSSSSSN             | JSR > 1000000
-NSTTSSSSSTN             | JSR > 1000001
+NSTTSSSSTSN             | JSR > 1000010
+NSTTSSSSTTN             | JSR > 1000011

 NTN                     | RTS
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:
 NTN                     | RTS
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:

-@   printstacknumbersign (1000000)
+@   printstacknumbersign (1000010)

 @ Description:
 @   Prints the sign of 'number' from the stack.
 @ Call Stack:
 @ Description:
 @   Prints the sign of 'number' from the stack.
 @ Call Stack:


@@ -75,19 +75,19 @@ NTN                     | RTS
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

-NSSVTSSSSSSN            | Mark: 1000000 (print sign of number from stack)
-NTTSTSSSSSSSSSSSSSTN    | BMI > 010000000 00000001
+NSSVTSSSSTSN            | Mark: 1000010 (print sign of number from stack)
+NTTSTSSSSTSSSSSSSSTN    | BMI > 01000010 00000001

 SSSTSTSTTN              | PUSH ASCII '+'
 SSSTSTSTTN              | PUSH ASCII '+'

-NSNSTSSSSSSSSSSSSTSN    | JMP > 010000000 00000010
-NSSVSTSSSSSSSSSSSSSTN   | Mark: 010000000 00000001
+NSNSTSSSSTSSSSSSSTSN    | JMP > 01000010 00000010
+NSSVSTSSSSTSSSSSSSSTN   | Mark: 01000010 00000001

 SSSTSTTSTN              | PUSH ASCII '-'
 SSSTSTTSTN              | PUSH ASCII '-'

-NSSVSTSSSSSSSSSSSSTSN   | Mark: 010000000 00000010
+NSSVSTSSSSTSSSSSSSTSN   | Mark: 01000010 00000010

 TNSS                    | PUTC
 NTN                     | RTS
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:
 TNSS                    | PUTC
 NTN                     | RTS
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:

-@   printstacknumbermagnitude (1000001)
+@   printstacknumbermagnitude (1000011)

 @ Description:
 @   Prints the magnitude of 'number' from the stack.
 @ Call Stack:
 @ Description:
 @   Prints the magnitude of 'number' from the stack.
 @ Call Stack:


@@ -96,14 +96,14 @@ NTN                     | RTS
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 #include <math.pvvs>
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 #include <math.pvvs>

-NSSVTSSSSSTN            | Mark: 1000001 (print magnitude of number from stack)
+NSSVTSSSSTTN            | Mark: 1000011 (print magnitude of number from stack)

 NSTTSSSTN               | JSR > 10001 (absolute value)
 
 SSSSN                   | PUSH ASCII '\0'
 SNT                     | SWAP
 
 @ Pick off one digit on each pass through this loop.
 NSTTSSSTN               | JSR > 10001 (absolute value)
 
 SSSSN                   | PUSH ASCII '\0'
 SNT                     | SWAP
 
 @ Pick off one digit on each pass through this loop.

-NSSVSTSSSSSTSSSSSSSSN   | Mark: 01000001 00000000
+NSSVSTSSSSTTSSSSSSSSN   | Mark: 01000011 00000000

 SNS                     | DUP
 
 @ Mod-off a digit, convert to ASCII, store on stack as part of the string.
 SNS                     | DUP
 
 @ Mod-off a digit, convert to ASCII, store on stack as part of the string.


@@ -117,13 +117,13 @@ SNT                     | SWAP
 SSSTSTSN                | PUSH +10
 TSTS                    | DIVIDE
 SNS                     | DUP
 SSSTSTSN                | PUSH +10
 TSTS                    | DIVIDE
 SNS                     | DUP

-NTSSTSSSSSTSSSSSSSTN    | BRZ > 01000001 00000001
-NSNSTSSSSSTSSSSSSSSN    | JMP > 01000001 00000000
+NTSSTSSSSTTSSSSSSSTN    | BRZ > 01000011 00000001
+NSNSTSSSSTTSSSSSSSSN    | JMP > 01000011 00000000

 
 @ Print the string we have built on the stack.
 
 @ Print the string we have built on the stack.

-NSSVSTSSSSSTSSSSSSSTN   | Mark: 01000001 00000001
+NSSVSTSSSSTTSSSSSSSTN   | Mark: 01000011 00000001

 SNN                     | DROP
 SNN                     | DROP

-NSTTSSSN                | JSR > 1000 (print string from stack)
+NSTTSSSTSSN             | JSR > 1000100 (print string from stack)

 NTN                     | RTS
 
 #endif
 NTN                     | RTS
 
 #endif