+;
+; Ullrich von Bassewitz, 07.08.1998
+;
+; unsigned char revers (unsigned char onoff);
+;
- .include "pce.inc"
- .include "extzp.inc"
+ .export _revers
- .export _revers
+ .include "extzp.inc"
.proc _revers
-
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
-
.endproc
-
-;-------------------------------------------------------------------------------
-; force the init constructor to be imported
-
- .import initconio
-conio_init = initconio