Prev: 0FFB Up: Map Next: 1034
1009: exit_routine: Relocatable exit to BASIC routine.
This routine is copied to RAM so that it can be run with the ROM paged out. 7 bytes of the following routine are also copied.
exit_routine 1009 LD A,(control_register) Set bit 3 of control register to page out ROM.
100C OR $08
100E OUT ($7F),A
1010 LD HL,($5CB2) Reset stack below RAMTOP.
1013 DEC HL
1014 LD SP,HL
1015 LD A,$38 Set BORDCR system variable to $38 (white).
1017 LD ($5C48),A
101A CALL $0D6B Call CLS routine.
101D LD A,$07 Set the border colour to white, and EAR and MIC bits low.
101F OUT ($FE),A
1021 XOR A Set FLAGS system variable to 0.
1022 LD ($5C3B),A
1025 LD DE,$1538 Set DE to address before copyright message and call PO_MSG.
1028 CALL $0C0A
102B LD HL,$5C3C Set bit 5 of TV-FLAG system variable.
102E SET 5,(HL)
1030 EI Enable interrupts and jump to MAIN_1 in the BASIC main execution loop.
1031 JP $12A9
Prev: 0FFB Up: Map Next: 1034