Atari ST series Technical Reference Manual page 114

pea msg2
m o v e .w
#$9,-(a7)
#$1
trap
addq.l
#6, a7
bsr.w delay
clr.w -(a7)
#$1
trap
Install:
move.1
#toggle,scr_dump
move.1
oldstack,-(a7)
move.w
#$20,-(a7)
trap
# $ 1
addg.1
#6,a7
pea
msg3
move.w
#$9,-(a7)
trap
#$1
addq.1 #6,a7
bsr.w delay
clr.w
#init,d0
move.1
sub.l
#start,d0
add. 1
#$100,dO
move. 1 d0,-(a7)
move.w #$31,-(a7)
trap
#$1
*** delay subroutine— just loop around a while
delay:
move.w #$20,dO
dloop:
dbf dl,dloop
dbf dO,dloop
rts
*** Text data for messages
.data
msgl:
$1B,'E'
dc.b
dc.b 1KEYCLICK TOGGLER..',$0D,$0A
dc.b 'Replaces Alternate-Help screen dump',$0D,$0A,$00
msg2:
dc.b $07, 'Already
msg3:
dc.b 'Installed',$0D,$0A,$00,$00
*** Temporary storage for old user stack pointer
.bss
oldstack:
ds.l 1
end
Time and Date Functions
GEMDOS keeps track of the date and time to date stamp a
file, showing when it was created or last updated. The GEM­
DOS functions used to get and set the DOS time and date
are very similar to those provided by the XBIOS to get and
set the IKBD controller's time and date. The main difference
is that separate functions are provided here to set the time
106
CHAPTER 5
*
*
*
call GEMDOs
*
clean stack
*
*
end program
* install coggle in screendump vector
* push old stack
* out of super mode
* call GEMDOS
* clean stack
* print install message
* CCONWS
* call GEMDOS
* clean stack
* wait a bit to let them read it
* terminate and stay resident
* take address of end of resident part
* -start address of program
* plus 256 bytes for basepage
* push on stack
* ptermres
* call GEMDOS to end program
* loop about (32 * 65536) times