mirror of
https://github.com/callapple/GBBS.git
synced 2026-03-11 07:42:02 +00:00
caf6ddd745
All files refreshed. Config now shows uppercase when using a ][+ Minor bug fixes in logon.seg.s Newer XDOS external with bug fixes
127 lines
2.2 KiB
ArmAsm
127 lines
2.2 KiB
ArmAsm
********************************
|
|
* *
|
|
* Config Program - Start *
|
|
* *
|
|
********************************
|
|
|
|
*-------------------------------
|
|
* Date: 5/29/91
|
|
*-------------------------------
|
|
|
|
begin sta $c051 ;text mode
|
|
sta $C00E ;Turn MouseText off
|
|
bit $C082
|
|
|
|
lda #<do_quit ;fudge reset vector
|
|
sta reset
|
|
lda #>do_quit
|
|
sta reset+1
|
|
eor #$A5
|
|
sta reset+2
|
|
|
|
ldx #$F0 ;reset stack
|
|
txs
|
|
|
|
jsr findcon ;find the config disk,logit
|
|
jsr VideoStartup ; Init the video driver
|
|
|
|
|
|
jsr do_main
|
|
|
|
* jmp loadg ;force to reconfig
|
|
|
|
jsr cls ; clear screen
|
|
jsr print
|
|
db 1,7,0
|
|
asc 'When you do an initial configure, all',0d
|
|
asc 'previous data will be destroyed and',0d
|
|
asc 'replaced with the new configuration.',0d
|
|
asc 'All old data will be lost.',0d,0d,0d
|
|
asc 'Do you want to do an Initial Configure?',0d
|
|
asc '[Y/N] ',00
|
|
|
|
jsr inpyn ; input yes/no
|
|
bcs loadg
|
|
|
|
jsr ldacos ; load in acos file
|
|
jmp doinit ; do initial config
|
|
|
|
*-------------------------------
|
|
|
|
loadg jsr ldconfg ; load config segment
|
|
|
|
start lda #0 ; turn off escape handler
|
|
sta refnum
|
|
jsr escape
|
|
jsr close ; close all files
|
|
jsr logcon
|
|
|
|
jsr do_main
|
|
|
|
jsr cls ; clear screen
|
|
jsr print
|
|
asc 'Select an Option:',0d,0d
|
|
asc ' 1 - Reconfigure Modem',0d
|
|
asc ' 2 - Reconfigure Video',0d
|
|
asc ' 3 - Reconfigure Printer',0d
|
|
asc ' 4 - Reconfigure Clock',0d
|
|
asc ' 5 - Reconfigure Storage',0d
|
|
asc ' 6 - Edit Profanity Filter',0d
|
|
asc ' 7 - Edit Bulletin Board Info',0d
|
|
asc ' 8 - Sort and Print Userlist',0d
|
|
asc ' 9 - Purge Users From System',0d
|
|
asc ' 10 - Exit Configure',0d,0d
|
|
|
|
asc 'Which? [1-10] ',00
|
|
|
|
ldx #10 ; get a number [1-6]
|
|
jsr inpnum
|
|
|
|
pha
|
|
ldx #<start
|
|
lda #>start
|
|
jsr escape ;esc goes back to here
|
|
pla
|
|
asl a
|
|
tax
|
|
|
|
lda jumptable,x
|
|
sta prn
|
|
inx ;push low
|
|
lda jumptable,x
|
|
sta prn+1
|
|
jmp (prn)
|
|
|
|
jumptable dw 0
|
|
da re_mdm
|
|
da re_vid
|
|
da re_pr
|
|
da re_clk
|
|
da re_stor
|
|
da do_filt
|
|
da brdedit
|
|
da usrlist
|
|
da usrkill
|
|
da do_quit
|
|
|
|
*-------------------------------
|
|
* print the top box
|
|
|
|
do_main jsr TopBox
|
|
jsr print
|
|
db 1,2,3
|
|
asc 'GBBS Config Program - Version 2.2',00
|
|
jsr print
|
|
db 1,4,2
|
|
asc 'Copyright 1986-2019 Kevin Smallwood',00
|
|
rts
|
|
|
|
*-------------------------------
|
|
|
|
init db 0
|
|
|
|
usrname db 5
|
|
asc 'USERS'
|
|
gname db 8
|
|
asc 'ACOS.OBJ'
|