resrir


* Check, reserve and create space on return stack

        section code

        xdef resrir

        include dev8_keys_qlv
        include dev8_keys_sbasic

*
resrir
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Reserve and create space on return stack
*
*       stack must be in a tidy ("empty") state prior to this call
* input :
*       d1.l = this many bytes to reserve
*
* return: cc = ???
*       d1-d3/d6 smashed
*       errors: returns directly to BASIC with d0 = 0 (Qdos) or OM (Smsq/e)
*
        move.l d1,d6            copy needed

        move.l sb_arthp(a6),a1
        move.w qa.resri,a2
        jsr (a2)

        sub.l d6,sb_arthp(a6)
        movea.l sb_arthp(a6),a1
        rts

*
        end

Back to Index
HTML generated by the amazing asm2htm !
2006 Sep 30 16:54:55