2 ; Ullrich von Bassewitz, 2009-09-07
4 ; unsigned char __fastcall__ videomode (unsigned char 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
25 pla ; Get old mode into A
27 ; Done, old mode is in A
29 @L9: ldx #$00 ; Clear high byte