X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/9f7f68e5a8c113ad8de2f6b6e6678e4075739125..63a60fe0eda07a6583067318e818a9929b87b2d7:/stdlib/debug.pvvs diff --git a/stdlib/debug.pvvs b/stdlib/debug.pvvs index 8baef32..960c65b 100644 --- a/stdlib/debug.pvvs +++ b/stdlib/debug.pvvs @@ -34,8 +34,8 @@ SNT | SWAP @ Print output line for this memory location NSTTTTSTTN | JSR > 111011 (debug:printmagnitude) -SSSTTTSTSN | PUSH ASCII ':' SSSTSSTN | PUSH ASCII '\t' +SSSTTTSTSN | PUSH ASCII ':' TNSS | PUTC TNSS | PUTC SNS | DUP @@ -89,8 +89,8 @@ NSTTTTTSSN | JSR > 111100 (debug:printstring) NSSVSSTTTSSTSSSSSSSTN | Mark: 00111001 00000001 SNS | DUP NSTTTTSTTN | JSR > 111011 (debug:printmagnitude) -SSSTTTSTSN | PUSH ASCII ':' SSSTSSTN | PUSH ASCII '\t' +SSSTTTSTSN | PUSH ASCII ':' TNSS | PUTC TNSS | PUTC SNT | SWAP @@ -101,10 +101,10 @@ SSSTSTSN | PUSH ASCII '\n' TNSS | PUTC @ Figure out if the loop is complete. -SNS | DUP -NTSSSTTTSSTSSSSSSSSN | BRZ > 00111001 00000000 SSSTN | PUSH 1 TSST | SUBTRACT +SNS | DUP +NTSSSTTTSSTSSSSSSSSN | BRZ > 00111001 00000000 NSNSSTTTSSTSSSSSSSTN | JMP > 00111001 00000001 @ Clean up and return