Category : C Source Code
Archive   : KERMCU04.ZIP
Filename : CK9ASM.A

 
Output of file : CK9ASM.A contained in archive : KERMCU04.ZIP
psect

sigmask:
link a5,#$0000
move.l d1,-(a7)
move.l d0,d1
moveq #0,d0
os9 F$SigMask
bcs.s sigerr
moveq #0,d0
sigret
move.l (a7)+,d1
unlk a5
rts
sigerr
move.l d1,errno(a6)
moveq #-1,d0
bra.s sigret

remove_alarm:
link a5,#$0000
movem.l d1,-(a7)
moveq.l #0,d0
move.w #A$Delete,d1
os9 F$Alarm
exg d0,d1
movem.l (a7)+,d1
bcc.s return_success
bra.s return_error

add_alarm:
link a5,#$0000
movem.l d1-d3,-(a7)
move.l d0,d3
move.l d1,d2
moveq.l #0,d0
move.w #A$Set,d1
lsl.l #8,d3 times 256
bset.l #31,d3 1/256 seconds
os9 F$Alarm
exg d0,d1
movem.l (a7)+,d1-d3
bcc.s return_success

return_error
move.l d0,errno(a6)
moveq #-1,d0
bra.s ret
return_success
moveq #0,d0
ret
unlk a5
rts

*int send_break(path) int path;
* sends a break on path using the SS_break setstat call to the driver
* return 0 on success, -1 on error with appropriate errorcode in errno
send_break:
link a5,#$0000
movem.l d1,-(a7)
move.w #SS_Break,d1
os9 I$SetStt
exg d0,d1
movem.l (a7)+,d1
bcc.s return_success
bra.s return_error


ends


  3 Responses to “Category : C Source Code
Archive   : KERMCU04.ZIP
Filename : CK9ASM.A

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/