The AbortWithMemoryError subroutine - Lander on the Acorn Archimedes

       Name: AbortWithMemoryError                                    [Show more]
       Type: Subroutine
   Category: Start and end
    Summary: Show a memory error and abort the game
    Context: See this subroutine in context in the source code
 References: This subroutine is called as follows:
             * Entry calls AbortWithMemoryError


.AbortWithMemoryError

 STRB    R1, [R0]                   \ Restore the byte that we have been poking
                                    \ in the Entry routine to determine whether
                                    \ there is enough memory

 SWI     OS_WriteS                  \ Print an error explaining that there isn't
 EQUS    "There is not enough "     \ enough free memory to run the game
 EQUS    "memory to run this "
 EQUS    "game."
 EQUW    &0D0A
 EQUS    "Please *CONFIGURE your "
 EQUS    "machine to free more "
 EQUS    "memory."
 EQUB    0
 ALIGN

 B       ReturnToDesktop            \ Jump to ReturnToDesktop to quit the game
                                    \ and return to the desktop

[X]

Configuration variable OS_WriteS = &01

The operating system call to write a string to all the output streams

[X]

Subroutine ReturnToDesktop (category: Start and end)

Return to the desktop