Routines
Prev: 23483 Up: Map Next: 35684
35600: Stage 1: Success Print
Used by the routine at 48200.
Open the upper screen channel.
Stage1Print 35600 LD A,2 A=2.
35602 CALL 5633 Call CHAN_OPEN.
35605 LD HL,16384 Writes 0 to all 6144 screen buffer address locations (clears the screen).
35608 LD DE,16385
35611 LD BC,6143
35614 LD (HL),0
35616 LDIR
35618 LD HL,22528 Writes 7 to all 768 attribute buffer address locations.
35621 LD DE,22529
35624 LD BC,767
35627 LD (HL),7
35629 LDIR
35631 LD A,7 Write 7 to BORDCR.
35633 LD (23624),A
35636 XOR A
35637 OUT (254),A
35639 LD DE,35684 DE=Stage1Copy (text).
35642 LD BC,165 BC=165 (counter).
35645 CALL 8252 Call PR_STRING.
35648 CALL Stage1Copy_Joystick Call Stage1Copy_Joystick.
35651 LD A,(23464) Jump to Stage1Print_Joystick if ControlMethod is 2 (Kempston Joystick).
35654 CP 2
35656 JP Z,Stage1Print_Joystick
Loops until "fire" is pressed from either the keyboard or Interface 2 joystick.
Stage1Print_Keyboard 35659 LD A,127 Read from the keyboard;
Port Number Bit
0 1 2 3 4
127 SPACE FULL-STOP M N B
35661 IN A,(254)
35663 AND %00000001 Keep only bit 0.
35665 RET Z Return if "SPACE" has been pressed.
35666 LD A,239 Read from the keyboard;
Port Number Bit
0 1 2 3 4
239 0 9 8 7 6
35668 IN A,(254)
35670 AND %00000001 Keep only bit 0.
35672 RET Z Return if "0" has been pressed.
35673 JP Stage1Print_Keyboard Jump to Stage1Print_Keyboard.
Loops until "fire" is pressed from the Kempston joystick.
Stage1Print_Joystick 35676 IN A,(31) Read Kempston Joystick input.
35678 AND %00010000 Keep only bit 4.
35680 JP Z,Stage1Print_Joystick Jump back to Stage1Print_Joystick until fire button is pressed.
35683 RET Return.
Prev: 23483 Up: Map Next: 35684