Commit 77902482 authored by Markus Kanet's avatar Markus Kanet

Updated Mon Apr 22 09:15:27 2019

--
Updated GeoDesk3 source code and
documentation:
* Code review of core windowmanager.
* Merged duplicate code, removed unused code.
* Added more comments to the code.

Changed files:
 doc/geodesk3/current/-101_WM.drive.s       |  46 +-
 doc/geodesk3/current/-101_WM.extern.s      | 669 ++++++++++--------
 doc/geodesk3/current/-101_WM.icons.s       |   5 +-
 doc/geodesk3/current/-101_WM.intern.s      | 643 ++++++++++-------
 doc/geodesk3/current/-101_WM.mouse.s       | 993 +++++++++++++++------------
 doc/geodesk3/current/-101_WM.scrbar.s      |  10 +-
 doc/geodesk3/current/-101_WM.screen.s      | 296 ++++----
 doc/geodesk3/current/s.mod.#101.s          |  10 +-
 src/geodesk3/current/gdesk64v3-current.d81 | Bin 819200 -> 819200 bytes
 9 files changed, 1548 insertions(+), 1124 deletions(-)
parent 0531a043
Updated Mon Apr 22 09:15:27 2019
--
Updated GeoDesk3 source code and
documentation:
* Code review of core windowmanager.
* Merged duplicate code, removed unused code.
* Added more comments to the code.
Changed files:
doc/geodesk3/current/-101_WM.drive.s | 46 +-
doc/geodesk3/current/-101_WM.extern.s | 669 ++++++++++--------
doc/geodesk3/current/-101_WM.icons.s | 5 +-
doc/geodesk3/current/-101_WM.intern.s | 643 ++++++++++-------
doc/geodesk3/current/-101_WM.mouse.s | 993 +++++++++++++++------------
doc/geodesk3/current/-101_WM.scrbar.s | 10 +-
doc/geodesk3/current/-101_WM.screen.s | 296 ++++----
doc/geodesk3/current/s.mod.#101.s | 10 +-
src/geodesk3/current/gdesk64v3-current.d81 | Bin 819200 -> 819200 bytes
9 files changed, 1548 insertions(+), 1124 deletions(-)
+--------------------+
++
Updated Mon Apr 22 08:53:42 2019
--
Updated GeoDesk3 documentation:
Splitted core windowmanager into multiple
source code files.
* Splitted core windowmanager into multiple
source code files.
Changed files:
doc/geodesk3/current/-101_WM.drive.s | 61 +
......@@ -45,8 +66,8 @@ Changed files:
Updated Thu Apr 18 07:35:30 2019
--
Updated GeoDesk3 source code and
documentation. Fixed a typo in
new GeoDesk GetFiles function.
documentation:
* Fixed a typo in new GeoDesk GetFiles function.
Changed files:
doc/geodesk3/current/-106_GetFileData.s | 6 +++++-
......@@ -58,8 +79,8 @@ Changed files:
Updated Thu Apr 18 07:02:02 2019
--
Updated GeoDesk3 source code and
documentation. Fixed a typo in
GeoDesk WindowManager.
documentation:
Fixed a typo in GeoDesk WindowManager.
Changed files:
doc/geodesk3/current/-101_WM.s | 2 +-
......@@ -145,6 +166,7 @@ Updated Fri Apr 12 19:16:17 2019
--
Updated GeoDesk3 source code and
documentation.
Renamed MegaPatch v3.3r5 release disks.
+--------------------+
++
......
......@@ -15,8 +15,24 @@
; the author of this documentation to solve the problem.
;
;******************************************************************************
;Routine: OpenWinDrive
;Parameter: WM_WCODE = Fenster-Nr.
;Rückgabe: -
;Verändert: A,X,Y,r0-r15
;Funktion: Öffnet dem aktuellen Fenster zugeordnetes Laufwerk.
;******************************************************************************
.OpenWinDrive lda WM_WCODE
.OpenUserWinDrive sta :curDrive
;******************************************************************************
;Routine: OpenUserWinDrive
;Parameter: AKKU = Fenster-Nr.
;Rückgabe: -
;Verändert: A,X,Y,r0-r15
;Funktion: Öffnet einem Fenster zugeordnetes Laufwerk.
;******************************************************************************
.OpenUserWinDrive sta :tmpWindow ;Fenster-Nr. speichern.
tax
ldy WMODE_DRIVE,x ;Laufwerk für Fenster definiert?
beq :0 ; => Nein, Ende.
......@@ -28,34 +44,36 @@
::1 rts ;Ende.
::2 tya
jsr SetDevice
txa
bne :1
jsr SetDevice ;Laufwerk aktivieren.
txa ;Fehler?
bne :1 ; => Ja, Abbruch...
ldx curDrive
lda RealDrvMode -8,x
lda RealDrvMode -8,x ;Partitionen/Unterverzeichnisse?
and #SET_MODE_PARTITION!SET_MODE_SUBDIR
bne :3
jmp OpenDisk
bne :3 ; => Ja, weiter...
jmp OpenDisk ;1541/71/81 => Nur Disk öffnen.
::3 pha
and #SET_MODE_PARTITION
beq :4
beq :4 ; => Keine Partitionen, weoter...
ldx :curDrive
ldx :tmpWindow
lda WMODE_PART,x
sta r3H
jsr OpenPartition
jsr OpenPartition ;Partition für Fenster aktivieren.
txa ;Fehler?
bne :1 ; => Ja, Abbruch...
::4 pla
and #SET_MODE_SUBDIR
beq :1
beq :1 ; => Keine Verzeichnisse, Ende...
ldx :curDrive
ldx :tmpWindow
lda WMODE_SDIR_T,x
sta r1L
lda WMODE_SDIR_S,x
sta r1H
jmp OpenSubDir
jmp OpenSubDir ;Verzeichnis für Fenster aktivieren.
::curDrive b $00
::tmpWindow b $00
This diff is collapsed.
......@@ -16,8 +16,8 @@
;
;*** Icons.
:Icon_MoveW = 1
:Icon_MoveH = 8
:Icon_MoveW = 1 ;Breite für Icons in CARDs.
:Icon_MoveH = 8 ;Höhe für Icons in Pixel.
:Icon_UL
<MISSING_IMAGE_DATA>
......@@ -51,3 +51,4 @@
:Icon_MN
<MISSING_IMAGE_DATA>
This diff is collapsed.
This diff is collapsed.
......@@ -16,7 +16,7 @@
;
;******************************************************************************
; Funktion : Auswahltabelle
; Funktion : Scrollbalken, aus GeoDOS importiert.
; Datum : 02.07.97
; Aufruf : JSR InitBalken
; Übergabe : r0 = Zeiger auf Datentabelle.
......@@ -58,7 +58,7 @@
;******************************************************************************
;*** Balken initialiseren.
.InitBalken ldy #$08 ;Paraeter speichern.
:InitBalken ldy #$08 ;Paraeter speichern.
::1 lda (r0L),y
sta SB_XPos,y
dey
......@@ -69,11 +69,11 @@
jmp Balken_Ypos ;Y-Position Füllbalken berechnen.
;*** Neue Balkenposition defnieren und anzeigen.
.SetPosBalken sta SB_PosEntry +0 ;Neue Position Füllbalken setzen.
:SetPosBalken sta SB_PosEntry +0 ;Neue Position Füllbalken setzen.
stx SB_PosEntry +1
;*** Balken ausgeben.
.PrintBalken jsr Balken_Ypos ;Y-Position Füllbalken berechnen.
:PrintBalken jsr Balken_Ypos ;Y-Position Füllbalken berechnen.
lda SB_MaxYlen
sec
sbc SB_Top
......@@ -86,7 +86,7 @@
sbc SB_Length
sta SB_Top
.PrintCurBalken MoveW SB_PosTop,r0 ;Grafikposition berechnen.
:PrintCurBalken MoveW SB_PosTop,r0 ;Grafikposition berechnen.
ClrB r1L ;Zähler für Balkenlänge löschen.
lda SB_YPos ;Zeiger innerhalb Grafik-CARD be-
......
This diff is collapsed.
......@@ -46,8 +46,16 @@ endif
t "-101_VarDataGD"
t "-101_VarDataWM"
;*** Fenstermanager.
t "-101_WM.extern"
t "-101_WM.intern"
t "-101_WM.screen"
t "-101_WM.scrbar"
t "-101_WM.drive"
t "-101_WM.mouse"
t "-101_WM.icons"
;*** Systemroutinen.
t "-101_WM"
t "-101_SwitchDrive"
t "-101_DlgTitle"
t "-101_DrawClock"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment