Posted Sun Mar 20, 2011 3:15 PM
Posted Sun Mar 20, 2011 5:50 PM
Vorticon, on Sun Mar 20, 2011 3:15 PM, said:
Posted Sun Mar 20, 2011 8:10 PM
ceratophyllum, on Sun Mar 20, 2011 5:50 PM, said:
Posted Sun Mar 20, 2011 8:21 PM
*********************************************************** * CALL KEY (1,KEY,STATUS) * * This module will input from arrow keys(E,D,X,S) * * and display a message indicating the pressed key. * *********************************************************** DEF BEGIN * Reference needed utilities. REF KSCAN,VMBW * Address to select keyboard KBOARD EQU >8374 * Holds ASCII # of pressed key KEY EQU >8375 * KEYUP BYTE 5 * ASCII values KEYRT BYTE 3 * of E, D, X and S KEYDN BYTE 0 * keys KEYLT BYTE 2 * HEXFF BYTE >FF * No key pressed value ONE BYTE 1 * * UP TEXT 'UP KEY PRESSED ' RIGHT TEXT 'RIGHT KEY PRESSED' DOWN TEXT 'DOWN KEY PRESSED ' LEFT TEXT 'LEFT KEY PRESSED ' EVEN * MYREG BSS >20 * BEGIN LWPI MYREG MOVB @ONE,@KBOARD * Check left side of keyboard. LOOP BLWP @KSCAN * Check for keyboard input. CB @HEXFF,@KEY * Was a key pressed? JEQ LOOP * CB @KEYUP,@KEY * Compare to see which JEQ PUP * arrow key was pressed. CB @KEYRT,@KEY JEQ PRIGHT CB @KEYDN,@KEY JEQ PDOWN CB @KEYLT,@KEY JEQ PLEFT B @LOOP * If key not found, LOOP again. PUP LI R1,UP * Load B @PRINT * correct PRIGHT LI R1,RIGHT * message B @PRINT * into PDOWN LI R1,DOWN * R1 B @PRINT * PLEFT LI R1,LEFT B @PRINT * PRINT LI R0,138 * Print LI R2,17 * message on BLWP @VMBW * screen B @LOOP * Repeat program END * End program.
Posted Sun Mar 20, 2011 8:45 PM
Posted Sun Mar 20, 2011 9:09 PM
Edited by ceratophyllum, Sun Mar 20, 2011 9:11 PM.
Posted Sun Mar 20, 2011 9:26 PM
Posted Sun Mar 20, 2011 9:27 PM
Edited by Vorticon, Sun Mar 20, 2011 9:28 PM.
Posted Sun Mar 20, 2011 9:53 PM
Posted Sun Mar 20, 2011 10:02 PM
Posted Sun Mar 20, 2011 10:09 PM
Posted Sun Mar 20, 2011 10:10 PM
Quote
Quote
Posted Sun Mar 20, 2011 10:14 PM
Posted Sun Mar 20, 2011 10:23 PM
Tursi, on Sun Mar 20, 2011 10:02 PM, said:
Quote
Posted Sun Mar 20, 2011 10:27 PM
matthew180, on Sun Mar 20, 2011 10:09 PM, said:
Edited by Vorticon, Sun Mar 20, 2011 10:29 PM.
Posted Sun Mar 20, 2011 10:44 PM
Tursi, on Sun Mar 20, 2011 10:10 PM, said:
Quote
Posted Sun Mar 20, 2011 10:47 PM
Vorticon, on Sun Mar 20, 2011 10:27 PM, said:
Posted Mon Mar 21, 2011 8:49 AM
matthew180, on Sun Mar 20, 2011 10:47 PM, said:
Vorticon, on Sun Mar 20, 2011 10:27 PM, said:
Posted Mon Mar 21, 2011 10:17 AM
Posted Mon Mar 21, 2011 11:07 AM
Quote
Posted Mon Mar 21, 2011 4:14 PM
Edited by RXB, Mon Mar 21, 2011 4:37 PM.
Posted Mon Mar 21, 2011 8:04 PM
ceratophyllum, on Mon Mar 21, 2011 11:07 AM, said:
Quote
Posted Mon Mar 21, 2011 8:57 PM
Posted Mon Mar 21, 2011 10:01 PM
matthew180, on Mon Mar 21, 2011 8:57 PM, said:
Edited by Vorticon, Mon Mar 21, 2011 10:01 PM.
Posted Mon Mar 21, 2011 10:22 PM
Edited by Tursi, Mon Mar 21, 2011 10:24 PM.
0 members, 0 guests, 0 anonymous users