home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
152.lha
/
Console
/
console.asm
next >
Wrap
Assembly Source File
|
1988-04-26
|
1KB
|
50 lines
************************************
* Code to spawn a new Console Task *
* (C) 1986 Commodore-Amiga
*
************************************
include "window.i"
xdef _NewConsole
xdef _CloseConsole
xref _DOSBase
startup equ 28 DevList startup value
act_end equ 1007
g_sendpkt equ 48
g_loaddevice equ 112
g_finddevice equ 124
* task = NewConsole(Window)
* create a console task and return its id
_NewConsole:
procst #0,d2/a2/a5
move.l #conname,d1 d1 = mc address of "CON" string
lsr.l #2,d1 arg1 = BCPL address
callg g_finddevice get console device node
move.l d0,d1 arg1 = node
lsl.l #2,d0 d0 = MC address of node
move.l d0,a2 save in a2
move.l #-1,startup(a2) put magic value into node
move.l arg1(a6),d2 arg2 = window structure pointer
callg g_loaddevice
clr.l startup(a2) re-zero magic value
return d2/a2/a5
* CloseConsole( task )
* shutdown the console task
_CloseConsole:
procst #0,d2-d4
move.l arg1(a6),d2 d2 = destination task
move.l #act_end,d3 d3 = action
callg g_sendpkt send the pkt off
return d2-d4
cnop 0,4
conname dc.b 3,'C','O','N'
end