Mercurial > hg > Members > kono > nitros9-code
view level1/modules/sysgo.asm @ 355:71b60814fb01
Makefiles modified for uniformity
author | boisy |
---|---|
date | Thu, 25 Jul 2002 14:38:48 +0000 (2002-07-25) |
parents | dc8e5781c23f |
children | cc6f826c2b78 |
line wrap: on
line source
******************************************************************** * SysGo - OS-9 Level One 2 SysGo * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * 12 From Tandy OS-9 Level One VR 02.00.00 * 13 Incremented version number to reflect Y2K BGP 99/05/11 * fixes * 14 Updated to reflect new release, changed /H0 BGP 02/07/19 * to /DD * 15 Merged ROM and non-ROM sysgos, removed 'tsmon' BGP 02/07/19 * and added 'AutoEx' feature ala Level Two nam SysGo ttl OS-9 Level One 2 SysGo ifp1 use defsfile use scfdefs endc tylg set Systm+Objct atrv set ReEnt+rev rev set $01 edition set 15 mod eom,name,tylg,atrv,start,size dataarea rmb 200 size equ . name fcs /SysGo/ fcb edition * default OS-9 priority DefPrior set 128 BootMsg fcc "OS-9 LEVEL ONE VR. 0" fcb 48+OS9Vrsn fcc ".0" fcb 48+OS9Major fcc ".0" fcb 48+OS9Minor fdb C$CR,C$LF * For ROM version, cut down on verbage ifne DiskGo fcc !'PHOENIX' RELEASE 08/01/2002! fdb C$CR,C$LF fcc "HTTP://COCOOS9.SOURCEFORGE.NET" fdb C$CR,C$LF fcc "COPR. 1980 BY MOTOROLA INC. AND" fdb C$CR,C$LF fcc "MICROWARE SYSTEMS CORP." fdb C$CR,C$LF fcc "LICENSED TO TANDY CORP." fdb C$CR,C$LF fcc "ALL RIGHTS RESERVED." fdb C$CR,C$LF endc fcb C$LF MsgEnd equ * ifne DiskGo ChdDev fcc "/DD" fcb C$CR ChxDev fcc "/DD/" ChxPath fcc "CMDS" fcb C$CR fcc ",,,,,,,,,," endc Shell fcc "Shell" CrRtn fcb C$CR AutoEx fcc "AutoEx" fcb C$CR ifne DiskGo Startup fcc "startup -p" fcb C$CR fcc ",,,,,,,,,," StartupL equ *-Startup endc * Default time packet * YY MM DD HH MM SS TimePckt fcb 102,08,01,00,00,00 * BASIC reset code BasicRst fcb $55 neg <$0074 nop clr >$FF03 nop nop sta >$FFDF turn off ROM mode jmp >$EF0E jump to boot BasicRL equ *-BasicRst * SysGo entry point start leax >IcptRtn,pcr os9 F$Icpt leax >BasicRst,pcr ldu #D.CBStrt ldb #BasicRL CopyLoop lda ,x+ sta ,u+ decb bne CopyLoop * Print boot message leax >BootMsg,pcr ldy #MsgEnd-BootMsg lda #$01 os9 I$Write leax >TimePckt,pcr os9 F$STime ifne DiskGo leax >ChxPath,pcr lda #EXEC. os9 I$ChgDir leax >ChdDev,pcr lda #UPDAT. os9 I$ChgDir bcs DoStrtup leax >ChxDev,pcr lda #EXEC. os9 I$ChgDir bcc DoStrtup endc * Set priority and do startup file DoStrtup os9 F$ID ldb #DefPrior os9 F$SPrior ifne DiskGo * First, do startup leax >Shell,pcr leau >Startup,pcr ldd #256 ldy #StartupL os9 F$Fork bcs DeadEnd os9 F$Wait endc * Second, attempt to find AutoEx FrkAuto leax >AutoEx,pcr leau >CrRtn,pcr ldd #256 ldy #1 os9 F$Fork bcs FrkShell os9 F$Wait * Third, do Shell FrkShell leax >Shell,pcr ldd #256 ldy #$0000 os9 F$Fork bcs DeadEnd os9 F$Wait bcc FrkShell DeadEnd bra DeadEnd * Intercept routine IcptRtn rti emod eom equ * end