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