Skip to navigation

Elite on the BBC Micro

Equipment: sell_jump [Elite-A, Parasite]

Name: sell_jump [Show more] Type: Subroutine Category: Equipment Summary: Show the Sell Equipment screen (CTRL-f2)
Context: See this subroutine in context in the source code References: This subroutine is called as follows: * TT208 calls sell_jump
.sell_jump INC XC \ Move the text cursor down one line LDA #207 \ Print recursive token 47 ("EQUIP") and draw a JSR NLIN3 \ horizontal line at pixel row 19 to box in the title JSR TT69 \ Call TT69 to set Sentence Case and print a newline JSR TT67 \ Print a newline JSR sell_equip \ Call sell_equip to show the Sell Equipment screen, \ which will run through all the equipment apart from \ the escape pod LDA ESCP \ If we do not have an escape pod fitted, in which case BEQ sell_escape \ ESCP will be 0, jump to sell_escape LDA #112 \ We do have an E.C.M. fitted, so print recursive token LDX #30 \ 112 ("ESCAPE POD"), and as this is the Sell Equipment JSR status_equip \ screen, show and process a sell prompt for the piece \ of equipment at LASER+X = LASER+30 = ESCP before \ printing a newline .sell_escape JMP BAY \ Go to the docking bay (i.e. show the Status Mode \ screen) and return from the subroutine with a tail \ call