@ All zeros to all ones SSSSN | PUSH 0 NSTTSTSSSN | JSR > 101000 (not) NSTTSSTN | JSR > 1001 (print number from stack) @ All ones to all zeros SSTTN | PUSH -1 NSTTSTSSSN | JSR > 101000 (not) NSTTSSTN | JSR > 1001 (print number from stack) @ Test alternating bits, leading zero. @ Note that 6148914691236517205 = 0101...0101 SSSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTN | PUSH +6148914691236517205 NSTTSTSSSN | JSR > 101000 (not) NSTTSSTN | JSR > 1001 (print number from stack) @ Test alternating bits, leading one. @ Note that -6148914691236517206 = 1010...1010 in twos-complement but we @ enter it in sign magnitude format so the bit pattern appears different. SSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTTSN | PUSH -6148914691236517206 NSTTSTSSSN | JSR > 101000 (not) NSTTSSTN | JSR > 1001 (print number from stack) @ All done. NNN | DIE #include #include