Mercurial > hg > Members > kono > nitros9-code

view level1/modules/sysgo_bd.asm @ 3277:33d539c123cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
d64: Add mb.ddisk script for making Dragon boot floppy At least it works in XRoar when running off a 80d floppy and preparing a new 40d boot floppy in the second drive. The "format" must be run manually for now since there is not enough memory to run it from inside the script...
author Tormod Volden <debian.tormod@gmail.com>
date Sat, 07 Mar 2020 23:15:05 +0100
parents 820bc08befa5
children
line wrap: on
line source

* SysGo - with config file

			ifp1
			use		defsfile
			endc

			ttl		Code by CSC OS/9 Super Sleuth v3.0

verson		equ		$03

			mod		endmod,namemd,Prgrm+Objct,verson,start,endmem

			ORG		0
White.		RMB		1
Blue.		RMB		1
Black.		RMB		1
Green.		RMB		1
Red.		RMB		1
Yellow.		RMB		1
Magenta.	RMB		1
Cyan.		RMB		1

			org		$0000
u0000		rmb		$0020
u0020		rmb		$002A
u004A		rmb		$0027
u0071		rmb		$028F
u0300		rmb		$0050
u0350		rmb		$0001
endmem		equ		.

			nam		SysGo
x0000		equ		$0000
x0001		equ		$0001
x0010		equ		$0010
x0050		equ		$0050
x0068		equ		$0068
x006B		equ		$006B
x0073		equ		$0073
x00AD		equ		$00AD
x0350		equ		$0350
xFFA8		equ		$FFA8
z0000		equ		$0000
z000D		equ		*

namemd		fcs		"SysGo"
			fcb		$06
			fcc		"Copyright Bob Devries & Don Berrie"
			fcc		"Adapted to NitrOS9 by Bill Pierce 2017"

banner		equ		*
			fcb		$2,$33,$20,$1b,$32,Red.
			fcc		"NITROS-9 "
			fcb		$1b,$32,Green.
			fcc		"LEVEL 2 "
			fcb		$1b,$32,Blue.
			fcc		"v03.03.00 "
			fcb		$1b,$32,Red.
			fcc		"COPYRIGHT 2017"
*			fcb		$0D,$0A
			fcb		$2,$39,$21,$1b,$32,Green.
			fcc		"THE "
			fcb		$1b,$32,Blue.
			fcc		"NITROS-9 "
			fcb		$1b,$32,Red.
			fcc		"DEVELOPEMENT "
			fcb		$1b,$32,Green.
			fcc		"TEAM"
*			fcb		$0D,$0A
			fcb		$2,$3f,$22,$1b,$32,Blue.
			fcc		"ALL "
			fcb		$1b,$32,Red.
			fcc		"RIGHTS "
			fcb		$1b,$32,Green.
			fcc		"RESERVED"
			fcb		$0D,$0A,$0A
			fcb		$1b,$32,Black.
DefDrv		equ		*
			fcc		"/DD"
			fcb		$0D
DefDrv2		equ		*
			fcc		"/DD/"
DefCmds		equ		*
			fcc		"Cmds"
			fcb		$0D
			fcc		",,,,,"
ShellT		equ		*
			fcc		"Shell"
			fcb		$0D
			fcc		",,,,,"
AutoEx		equ		*
			fcc		"AutoEx"
			fcb		$0D
			fcc		",,,,,"
Startup		equ		*
			fcc		"STARTUP -P"
			fcb		$0D
			fcc		",,,,,"
Imortal		equ		*
			fcc		"i=/1 "
z0120		equ		*
			fcb		$0D
			fcc		",,,,,"
CfgFile		equ		*
			fcc		"/dd/SYS/sysgo.cfg"
			fcb		$0D,$0A
z013A		equ		*
			fcc		"Z"
			fcb		$01
			fcb		$01
			fcb		$00
			fcb		$00
			fcb		$00
Error1		equ		*
			fcb		$0D,$0A
			fcc		"                          /dd/SYS/sysgo.cfg   ...   Not Found"
			fcb		$0D,$0A
			fcc		"                          Using system defaults"
			fcb		$0D,$0A
Error2		equ		*
			fcb		$0D,$0A
			fcc		"                          Error in sysgo.cfg"
			fcb		$0D,$0A
			fcc		"                          Configuration file not used"
			fcb		$0D,$0A
start		equ		*
			leax	z0338,pcr
			os9		F$Icpt
			os9		F$ID
			ldb		#$80
			os9		F$SPrior
			leax	banner,pcr
			ldy		#DefDrv-banner
			lda		#$01
			os9		I$Write
			leax	z013A,pcr
			os9		F$STime
			leax	DefCmds,pcr
			lda		#$04
			os9		I$ChgDir
			leax	DefDrv,pcr
			lda		#$03
			os9		I$ChgDir
			bcs		LoadCfg
			leax	DefDrv2,pcr
			lda		#$04
			os9		I$ChgDir
LoadCfg		equ		*
			pshs	u,y
			lda		#$01
			leax	CfgFile,pcr
			os9		I$Open
			bcs		PrtErr1
			leax	u0300,u
			ldy		#x0050
			os9		I$ReadLn
			bcs		PrtErr2
			sty		u0350,u
			os9		I$Close
			bra		z02B0
PrtErr1		equ		*
			leax	Error1,pcr
			ldy		#x0073
			lda		#$01
			os9		I$Write
			bra		z029B
PrtErr2		equ		*
			leax	Error2,pcr
			ldy		#x0068
			lda		#$01
			os9		I$Write
z029B		equ		*
			ldb		#$0B
			stb		u0350,u
			leax	Imortal,pcr
			leay	u0300,u
z02A9		equ		*
			lda		,x+
			sta		,y+
			decb 
			bpl		z02A9
z02B0		equ		*
			os9		F$ID
			bcs		z0333
			leax	u0000,u
			os9		F$GPrDsc
			bcs		z0333
			leay	u0000,u
			leax	x0000,pcr
			ldb		#$01
			os9		F$MapBlk
			bcs		z0333
			lda		#$55
			sta		u0071,u
			ldd		u004A,u
			leau	d,u
			leau	u0020,u
			leay	$20,y
			ldb		#$0F
z02DA		equ		*
			lda		b,y
			sta		b,u
			decb 
			bpl		z02DA
			leax	ShellT,pcr
			leau	Startup,pcr
			ldd		#$0100
			ldy		#x0010
			os9		F$Fork
			bcs		z0333
			os9		F$Wait
			leax	AutoEx,pcr
			leau	z0120,pcr
			ldd		#$0100
			ldy		#x0001
			os9		F$Fork
			bcs		z030F
			os9		F$Wait
z030F		equ		*
			puls	u,y
			leax	u0300,u
			leay	u0000,u
			ldb		x0350
z031A		equ		*
			lda		,x+
			sta		,y+
			decb 
			bne		z031A
			leax	ShellT,pcr
			leau	u0300,u
			ldd		#$0100
			ldy		#x0350
			os9		F$Chain
z0333		equ		*
			clr		xFFA8
			jmp		<x006B
z0338		equ		*
			rti 
			emod
endmod		equ		*
			end