1 line
2.0 KiB
Plaintext
1 line
2.0 KiB
Plaintext
\ 8086 structured conditionals .( 8086 structured conditionals ) assembler definitions hidden hex system warning off 70 constant NO 71 constant OV 72 constant U>= 73 constant U< 74 constant 0<> 75 constant 0= 76 constant U> 77 constant U<= 78 constant 0>= 79 constant 0< 7A constant PO 7B constant PE 7C constant >= 7D constant < 7E constant > 7F constant <= 0E3 constant CXNZ 0EB constant NEVER aka U>= NC aka U< CY : THEN here over rel swap c! ; aka HERE BEGIN : UNTIL c, here rel c, ; : IF c, begin 0 c, ; : AHEAD never if ; : ELSE ahead swap then ; : WHILE if swap ; : AGAIN never until ; : REPEAT again then ; ( : TIMES # CX MOV begin ; ) forth definitions decimal application warning on |