Commit | Line | Data |
---|---|---|
519b6ab4 AT |
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 | SNN | ST: Drop TOS | |
9 | TNSS | IO: Output character | |
10 | NNN | FC: Terminate program |