2 ; Ullrich von Bassewitz, 2009-09-07
4 ; unsigned __fastcall__ videomode (unsigned Mode);
5 ; /* Set the video mode, return the old mode */
16 cmp MODE ; Do we have this mode already?
19 lda MODE ; Get current mode ...
22 jsr SWAPPER ; Toggle the mode
24 jsr BSOUT ; Switch to lower case chars
26 pla ; Get old mode into A
28 ; Done, old mode is in A
30 @L9: ldx #$00 ; Clear high byte