mirror of
https://github.com/callapple/LLUCE.git
synced 2024-06-16 06:29:33 +00:00
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
|
||
|
|