mirror of https://github.com/callapple/LLUCE.git
37 lines
811 B
ArmAsm
37 lines
811 B
ArmAsm
LST OFF
|
|
TR
|
|
TR ADR
|
|
*-------------------------------
|
|
* Date: 3/11/88
|
|
*-------------------------------
|
|
|
|
REL
|
|
DSK REL/CMD
|
|
|
|
cls EXT
|
|
sv_drvs EXT
|
|
start EXT
|
|
init EXT
|
|
|
|
*-------------------------------
|
|
* write the changes back into the drivers file
|
|
*-------------------------------
|
|
|
|
wrtchg ENT
|
|
JSR cls
|
|
JSR sv_drvs ; write configuration back to disk
|
|
JMP start
|
|
|
|
*-------------------------------
|
|
* check to see if in init mode
|
|
*-------------------------------
|
|
|
|
chinit ENT
|
|
BIT init ; in init mode?
|
|
BPL :chinit2 ; nope
|
|
|
|
PLA ; return to init routine
|
|
PLA
|
|
:chinit2 RTS ; return to caller
|
|
|