Commit | Line | Data |
---|---|---|
1 | # This test verifies the flow control IMP for jumping if TOS is negative. | |
2 | ||
3 | SSSTSSSSSTN | ST: Push +65 (ASCII A) | |
4 | SSTTN | ST: Push -1 | |
5 | NTTTSTSTSN | FC: BLZ -> '42' | |
6 | NNN | FC: Terminate program | |
7 | NSSVTSTSTSN | FC: Mark label '42' | |
8 | TNSS | IO: Output character | |
9 | NNN | FC: Terminate program |