Routines
Prev: 37644 Up: Map Next: 37718
37694: Routine at 933E
Used by the routines at 36102, 37346 and 41386.
37694 LD A,126 Read from the keyboard;
Port Number Bit
0 1 2 3 4
126 SPACE FULL-STOP M N B Shift Z X C V
37696 OUT (253),A
37698 IN A,(254)
37700 CPL Flip the bits.
37701 AND %00000001 Keep only bit 0.
37703 JR Z,37712 If the result is zero jump to 37712.
37705 LD A,(24157) A=24157.
37708 AND A If A is not zero then jump to 37716.
37709 JR NZ,37716
37711 INC A Increment A by one.
37712 LD (24157),A Write A to 24157.
37715 RET Return.
37716 XOR A A=0.
37717 RET Return.
Prev: 37644 Up: Map Next: 37718