Routines
Prev: 60667 Up: Map Next: 60785
60688: Routine at ED10
Used by the routines at 60360 and 62700.
60688 LD A,191 Read from the keyboard;
Port Number Bit
0 1 2 3 4
191 ENTER L K J H
60690 IN A,(254)
60692 CPL
60693 AND %00001010 Keep only bits 1, 3.
60695 RET Z Return if ?? is equal to 0.
60696 LD DE,301 DE=0301.
60699 BIT 1,A Test bit 1 of A.
60701 LD A,107 A=107.
60703 JR NZ,60714 Jump to 60714 if ?? is not equal to 107.
60705 LD IX,61867 IX=61867.
60709 CALL 1218 Call SA_BYTES.
60712 DI Disable interrupts.
60713 RET Return.
60714 SCF Set the carry flag.
60715 LD IX,24832 IX=24832.
60719 CALL 1366 Call LD_BYTES.
60722 POP DE Restore DE from the stack.
60723 DI Disable interrupts.
60724 JR C,60771 Jump to 60771 if ?? is less than 107.
60726 LD A,L A=L.
60727 LD HL,61372 HL=61372.
60730 CP 108 Jump to 60737 if A is not equal to 108.
60732 JR NZ,60737
60734 LD HL,61405 HL=Messaging_HighScoreError.
60737 PUSH HL Stash HL on the stack.
60738 XOR A A=0.
60739 CALL 60580 Call 60580.
60742 CALL 61597 Call 61597.
60745 CALL 61678 Call 61678.
60748 POP HL Restore HL from the stack.
60749 CALL PrintMessaging Call PrintMessaging.
60752 LD C,100 C=100.
60754 CALL 60638 Call 60638.
60757 CALL 60796 Call 60796.
60760 CALL 61678 Call 61678.
60763 CALL CheckBreakKey Call CheckBreakKey.
60766 CALL 60785 Call 60785.
60769 JR 60752 Jump to 60752.
60771 LD HL,24832 HL=24832.
60774 LD DE,61867 DE=61867.
60777 LD BC,301 BC=301.
60780 LDIR LDIR.
60782 JP 60533 Jump to 60533.
Prev: 60667 Up: Map Next: 60785