* Equates ("Magic Numbers" and BUFFALO routines) OUTSTRG EQU $FFC7 ; prints a string * Put a stack in our program (mostly for BUFFALO/interrupt calls) ORG $D800 ; Bottom of the stack STACK RMB 256 ; 256 byte stack INITSP EQU *-1 ; Stack pointer initializer * Data to locate the cursor and print the appropriate output ORG $D000 TEST FCB $1B ; Locate the cursor in the upper right hand corner FCB $3D FCB $20 FCB $6B FCB $04 ORG $D100 TEXT FCC 'Samle text here v.01' FCB $04 INITIT ORG $C000 LDS #INITSP ; Initializes the stack LDAD #$00 LDX #$0000 LDY #$0000 CLI PSHA PSHX LDX #TEST ; Load up the location JSR OUTSTRG ; Send it out LDX #TEXT JSR OUTSTRG PULX PULA SWI