Mercurial > hg > Members > kono > nitros9-code
changeset 3136:820bc08befa5
Add new sysgo variant from Bob Devries with sysgo.cfg support
Add the text file "level2/sys/sysgo.cfg" to faciliate the new "sysgo_bd".
| author | Bill Pierce <merlinious999@gmail.com> |
|---|---|
| date | Sat, 04 Feb 2017 02:10:35 +0100 |
| parents | 5095f2b3c81a |
| children | 8418259a032d |
| files | level1/modules/sysgo_bd.asm level2/sys/sysgo.cfg |
| diffstat | 2 files changed, 243 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/modules/sysgo_bd.asm Sat Feb 04 02:10:35 2017 +0100 @@ -0,0 +1,242 @@ +* 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 +