home *** CD-ROM | disk | FTP | other *** search
- SET_VARS OFF
- LABEL 0005 BDOS
- LABEL 0006 BDOS_VECTOR
- COMMENT 0100 Get exit address to push to stack
- COMMENT 0103 Skip over ASCII literals
- FORMAT 0106 Storage
- FORMAT 0130 ASCII
- LABEL 0130 INTRO_MSG
- FORMAT 013D Code
- LABEL 013D START
- COMMENT 013D \n\nSet local stack, display intro message, etc\n
- COMMENT 0140 Push exit address
- COMMENT 0141 Preserve BC across BDOS call
- COMMENT 0145 BDOS "Display String" func
- COMMENT 0147 Display intro via BDOS
- COMMENT 014A Restore BC
- COMMENT 014B \n\nCalc end of memory, cause that's where we'll move\n
- LABEL 0200 LOCAL_STACK
- SET_VARS ON
-