;----------------------------------------------------; ; ; ; OVERSCAN.S Version 1.6 ; ; Bernd Gebauer ,Berlin 31.05.89 ; ; Karsten Isakovic,Berlin 07.07.89 ; ; ; ; RAMTOS 1.4 / BETATOS / ROMTOS 1.4 / BLITTER TOS ; ; ------------------------------------------------- ; ; ; ; GFA-Assembler 1.2 ; ; ; ;----------------------------------------------------; ; ------------ NEGATIVE LINE-A VARIABLEN ------------- M_POS_HX = -$358 WKXRez = -$2b4 WKYRez = -$2b2 CUR_X = -$158 CUR_Y = -$156 CUR_FLAG = -$154 MOUSE_FLAG = -$153 SAVE_LEN = -$14a v_cel_ht = -$2e v_cel_mx = -$2c v_cel_my = -$2a v_cel_wr = -$28 v_cur_add = -$22 v_cur_of = -$1e v_cur_x = -$1c v_cur_y = -$1a v_rez_hz = -$c v_rez_vt = -4 bytes_lin = -2 ; ---------- LINE-A VARIABLEN ------------------------ v_planes = 0 width = 2 col_bit0 = $18 col_bit1 = $1a col_bit2 = $1c col_bit3 = $1e lstlin = $20 lnmask = $22 wmode = $24 x1 = $26 y1 = $28 x2 = $2a y2 = $2c patptr = $2e patmsk = $32 mfill = $34 clip = $36 ; ----------------- HARDWARE + TOS ------------------- gemdos = 1 bios = 13 xbios = 14 Pterm0 = 0 ; Gemdos Cconin = 1 ; Gemdos Cnecin = 8 ; Gemdos Cconws = 9 ; Gemdos Dgetdrv = 25 ; Gemdos Ptermres = 49 ; Gemdos Fopen = 61 ; Gemdos Fclose = 62 ; Gemdos Fwrite = 64 ; Gemdos Fseek = 66 ; Gemdos Pterm = 76 ; Gemdos Kbshift = 11 ; bios Physbase = 2 ; xbios Setscreen = 5 ; xbios Supexec = 38 ; xbios Dosound = 32 ; xbios dostrap = $84 gemtrap = $88 xbiostrap = $b8 memtop = $436 defshiftmd = $44b sshiftmd = $44c v_bas_add = $44e _nvbls = $454 _vblqueue = $456 dumpflag = $4ee sysbase = $4f2 hardcopy = $502 vid_bashigh = $ff8201 vid_basmid = $ff8203 vid_ismid = $ff8207 vid_pal3 = $ff8246 vid_palF = $ff825e add_len = $9000 .TEXT main: bra.s Start_of_Code ; Zum Anfang springen ;############################################################# ;# ;# Die Tabelle der BildschirmWerte ;# ;############################################################# ScreenTab: .DC.w 400,832,672 ; X-Auflsung Low,Mid,High .DC.w 280,280,480 ; Y-Auflsung .DC.w 236,236,100 ; Bytes pro Zeile .DC.l -$1600,-$1600,$2000 ; VideoAdd <> Memtop Offset .DC.l 252,248,9800 ; v_bas_add <> Memtop Offset .DC.w 320,640,640 ; Alte X-Auflsung .DC.w 200,200,400 ; Alte Y-Auflsung TruePhys: .DC.w 0 ; Physbase Emulation aus ActivateKey: .DC.b 9,0 ; Hardcopy Taste ;############################################################# ;# ;# Das Hauptprogramm ;# ;############################################################# Start_of_Code: movea.l 4(sp),a5 ; Basepointer einrichten lea.l $100(a5),sp ; Stack einrichten pea do_setup(pc) ; Test und Installation im move.w #Supexec,-(sp) ; Supervisormodus durchfhren trap #xbios ; Ergebnis in inst_ok addq.l #6,sp move.w inst_ok,d0 tst.w d0 ; war Installation erfolgreich ? bne not_ok ; leider nein, raus move.w #Dgetdrv,-(sp) ; Bootlaufwerk holen trap #gemdos ; addq.l #2,sp ; lea.l save_name(pc),a0 ; add.b d0,(a0) ; und einstellen move.w #-1,-(sp) ; Irgendeine Sondertaste gedrckt move.w #Kbshift,-(sp) ; trap #bios ; addq.l #4,sp ; tst.w d0 beq DoIntro bsr UserInstall bra DoTitle DoIntro: bsr Intro ; GrowBox und Sound ausgeben DoTitle: pea msg_title(pc) ; Titelzeile ausgeben move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp pea msg_installed(pc) ; 'Installiert' Meldung ausgeben move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp clr.w -(sp) ; Resident beenden lea.l _ende(pc),a0 ; Programmende suba.l a5,a0 ; - Programmanfang move.l a0,-(sp) ; = Programmlaenge move.w #Ptermres,-(sp) trap #gemdos ;----------------------------------------------------- not_ok: pea msg_title(pc) ; Titelzeile ausgeben move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp move.w inst_ok,d0 cmpi.w #1,d0 ; war's das falsche TOS ? bne main_2 ; nein -> Kein Overscan-Modus pea msg_notactive(pc) ; 'Nicht aktiviert' Meldung ausgeben move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp bra Goodbye ; einfach beenden ;----------------------------- main_2: cmpi.w #2,d0 bne main_3 pea msg_noTos(pc) ; 'Falsches TOS' Meldung ausgeben move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp bra wait_key ; einfach beenden ;----------------------------- main_3: pea msg_already(pc) ; 'Schon installiert' Meldung move.w #Cconws,-(sp) ; ausgeben trap #gemdos addq.l #6,sp ; und ;----------------------------- wait_key: move.w #Cnecin,-(sp) ; Auf Tastendruck warten trap #gemdos addq.l #2,sp ;----------------------------- Goodbye: clr.w -(sp) ; Programm beenden (Returncode 0) trap #gemdos ;############################################################ ;# ;# Die Installations-Routine ;# ;############################################################# do_setup: movem.l d0-d7/a0-a6,-(sp) move.w #3,inst_ok ; Status : schon installiert movea.l dostrap,a0 ; GemDos-Trap nach OVERSCAN absuchen tstXBRA: cmpi.l #'XBRA',-12(a0) ; XBRA ? bne noXBRA ; nein -> Ende der Vektorkette cmpi.l #'OVER',-8(a0) ; OVER ? beq EndSetup ; ja -> Schon Installiert ! movea.l -4(a0),a0 ; bra tstXBRA ; weiter suchen noXBRA: move.w #2,inst_ok ; Status : falsches TOS ;---------------------------- auf richtige TOS-Version testen sf BadTos ; TOS als ok annehmen testBETATOS: movea.l #$170ee,a0 ;-------- Ist es BETA-RAMTOS ? cmpi.l #$cec0e84f,(a0) ; schon gepatched ? beq isBETA ; ja cmpi.l #$e848cec0,(a0) ; LSR #4,D0 / MULU D0,D7 ? bne testRAMTOS1_4 ; nein -> RAMTOS1.4 move.l #$cec0e84f,$170ee ; MULU D0,D7 / LSR #4,D7 isBETA: movea.l $5232,a0 ; A0 = Zeiger auf MemAllocList bra TOSok ; testRAMTOS1_4: movea.l #$17192,a0 ;-------- Ist es RAMTOS 1.4 ? cmpi.l #$cec0e84f,(a0) ; schon gepatched ? beq isRAMTOS1_4 cmpi.l #$e848cec0,(a0) ; bne testROMTOS1_4 ; nein -> ROMTOS1.4 move.l #$cec0e84f,$17192 ; 1. mal Scrollfehler isRAMTOS1_4: move.l #$cec0e84f,$171d6 ; 2. mal Scrollfehler beheben movea.l $5232,a0 ; A0 = Zeiger auf MemAllocList bra TOSok ; testROMTOS1_4: movea.l sysbase,a1 ;-------- Ist es ROMTOS 1.4 ? cmpi.w #$0104,2(a1) ; os_version testen bne testTOS1_2 ; nein -> TOS 1.2 (BlitterTOS) movea.l $532c,a0 ; A0 = Zeiger auf MemAllocList bra TOSok ; testTOS1_2: cmpi.w #$0102,2(a1) ;-------- Ist es TOS 1.2 ? bne EndSetup ; nein -> falsches TOS -> ENDE st BadTos ; BlitterTOS -> Flag setzen movea.l $7e92,a0 ; A0 = Zeiger auf MemAllocList TOSok: move.w #1,inst_ok ; Status : Nicht im OVERSCAN-Modus ;--------------------------------------------- ; Ist der Schalter umgelegt (OVERSCAN aktiv) ? ; Es wird gewartet, bis der Videoadresszhler bis zum Ende ; der normalen Bildschirmseite hochgezhlt hat. ; Dann wird getestet, ob er auf den Anfang zurckspringt. ; Tut er das nicht, ist OVERSCAN aktiv. clr.w d0 move.b vid_basmid,d0 ; move.w d0,d1 ; addi.w #$7d,d1 ; Wait1: cmp.b vid_ismid,d1 ; bne Wait1 ; Wait2: cmp.b vid_ismid,d1 ; beq Wait2 ; cmp.b vid_ismid,d0 ; beq EndSetup ; Nicht aktiv -> Beenden clr.w inst_ok ; Status : OVERSCAN aktiv move.l v_bas_add,StartBasAdd ; Startaddr des Bildschirms move.l memtop,d0 ; Letzte beschreibbare Addresse addi.l #$8000,d0 ; bestimmen und merken move.l d0,MemEnd ; subi.l #add_len,8(a0) ; Belegten Speicherblock subi.l #add_len,memtop ; ... verkrzen tst.b BadTos ; BlitterTOS ? beq no_extra_buff ; nein, weiter subi.l #32768,8(a0) ; 32K Sicherheitpuffer ... subi.l #32768,memtop ; ... vor Bildspeicher anlegen no_extra_buff: clr.w d0 move.b sshiftmd,d0 move.w d0,Reso ; Auflsung merken .DC.w $a000 ; LineA init move.l d0,LineA ; Zeiger auf LineA Variablen move.l memtop,MyMemtop ; AltenWert sichern bsr SetOverscan ; Overscan Werte einstellen ; ; Diese einmalige Initialisieren der Werte reicht nicht aus, ; da sie beim Starten vom AES wieder zurckgesetzt werden. ; Wir mssen also die Werte kurz nach v_opnwk nochmal setzen ; ;----------------------> ALSO GEM-Routine (AES/VDI) umleiten lea.l OldVec(pc),a0 ; Alten GemTrapVektor retten move.l gemtrap,(a0) ; lea.l MyGem(pc),a0 ; move.l a0,gemtrap ; und neuen Vektor eintragen tst.b BadTos ; BlitterTOS ? beq NoSlot ; nein -> Nicht in VBL einhngen move.w _nvbls,d0 ; Anzahl Routinen in _vblqueue lsl.w #2,d0 ; mal sizeof(long) movea.l _vblqueue,a0 ; Zeiger auf _vblqueue moveq.l #4,d1 ; ersten Slot auslassen TestSlot: tst.l 0(a0,d1.w) ; ist Eintrag frei ? beq.s SlotFound ; ja, gefunden addq.w #4,d1 ; offset fr nchsten Slot cmp.w d0,d1 ; Ende der Liste ? bne.s TestSlot ; nein, nchsten Slot testen bra NoSlot ; keinen freien Slot gefunden, raus SlotFound: lea.l MyVB(pc),a1 ; eigene VBL-Routine ... move.l a1,0(a0,d1.w) ; ... in Slot eintragen NoSlot: ;---------------------------- Gemdos umleiten lea.l OldDos(pc),a0 ; Alten GemdosVektor retten move.l dostrap,(a0) ; lea.l MyDos(pc),a0 ; move.l a0,dostrap ; und neuen Vektor eintragen ;---------------------------- Xbios umleiten lea.l OldXbios(pc),a0 ; Alten XbiosVektor retten move.l xbiostrap,(a0) ; lea.l MyXbios(pc),a0 ; move.l a0,xbiostrap ; und neune Vektor eintragen ;---------------------------- Hardcopy-Routine umleiten lea.l OldHard(pc),a0 ; Alten HardcopyVektor retten move.l hardcopy,(a0) ; lea.l MyHard(pc),a0 ; move.l a0,hardcopy ; und neuen Vektor eintragen sf GemStarted EndSetup: movem.l (sp)+,d0-d7/a0-a6 rts ;############################################################# ;# ;# Die umgebogenen Traps und Vektoren ;# ---------------------------------- ;# MyGem AES/VDI Trap ;# MyDos GEMDOS Trap ;# MyXbios XBIOS TRAP ;# MyHard Hardcopy-Vektor ;# MyVB VerticalBlank-Vektor (nur bei BlitterTOS ) ;# MyMouse Mouse-Vektor (nur bei BlitterTOS) ;# ;################################################ GEM- TRAP ; XBRA-Protokoll .DC.b "XBRAOVER" ; !! Ja, das ist alles !! OldVec: .DC.l 0 MyGem: cmpi.w #$73,d0 ; Ist es ein VDI-Aufruf ? bne NotMyGem ; nein -> weiter movea.l d1,a0 ; Addresse der VDI-Parameterfelder move.l 12(a0),WorkOut ; WorkOut-Zeiger speichern movea.l (a0),a0 ; VDI-Control[0] = VDI-Befehlscode cmpi.w #1,(a0) ; ist es Open-WorkStation ? bne NotMyGem ; nein-> weiter movea.l d1,a0 movea.l 4(a0),a0 ; WorkIn-Zeiger cmpi.w #5,(a0) ; WorkIn[0] gleich Screen ? bge NotMyGem ; nein -> weiter ;-------------> NACH !!! 'v_opnwk()' in Patchroutine springen move.l 2(sp),Back ; Orginal Rcksprungadresse merken lea.l PatchIt(pc),a0 ; Rcksprung auf 'PatchIt' ... move.l a0,2(sp) ; ... umleiten NotMyGem: movea.l OldVec(pc),a0 ; Orginal GEM-Routine ... jmp (a0) ; ... ausfhren ;---------------------------------------------------------- PatchIt: bsr SetOverscan ; LineA Werte nochmal eintragen move.w #-1,-(sp) ; Auf rechte Schifttaste testen move.w #Kbshift,-(sp) ; trap #bios ; addq.l #4,sp ; tst.w d0 beq PatchCont bsr UserInstall PatchCont: bsr ClearScreen ; Rand lschen pea msg_erase(pc) ; und Mitte auf Weiss move.w #Cconws,-(sp) ; trap #gemdos ; addq.l #6,sp ; st GemStarted ; Okay GEM luft movea.l WorkOut,a0 ; Adresse des Workout-Feldes move.w RezX,0(a0) ; Work_out[0] = Breite move.w RezY,2(a0) ; Work_out[1] = Hhe move.w VPlanes,d0 ; Farben Vorgeben cmpi.w #4,d0 bne PatchMid move.w #200,78(a0) move.w #16,26(a0) bra PatchEnd PatchMid: cmpi.w #2,d0 bne PatchHigh move.w #200,78(a0) move.w #4,26(a0) bra PatchEnd PatchHigh: move.w #2,78(a0) move.w #2,26(a0) PatchEnd: move.l Back,-(sp) ; Zum 'v_opnwk()' - Aufrufer rts ; zurckspringen ;################################################ GEMDOS-Trap .DC.b "XBRAOVER" OldDos: .DC.l 0 MyDos: move.w (sp),d0 ; Je nachdem ob GEMDOS vom btst #13,d0 ; Supervisor- oder User-modus bne no_super ; aufgerufen wurde sind die move.l usp,a0 ; Parameter auf dem entsprechendem bra tst_term ; Stack no_super: lea.l 6(sp),a0 tst_term: cmpi.w #Pterm0,(a0) ; Der Overscan-Modus wird beq TermFound ; NACH jedem Programm nocheinmal cmpi.w #Pterm,(a0) ; neu installiert, da viele bne NoTerm ; Programme den Bildschirm umsetzen TermFound: movem.l d0-d7/a0-a6,-(sp) ; oder direkt beschreiben. bsr SetOverscan ; bsr ClearScreen ; NoClear: movem.l (sp)+,d0-d7/a0-a6 NoTerm: movea.l OldDos(pc),a0 jmp (a0) ;################################################ XBIOS-Trap .DC.b "XBRAOVER" OldXbios: .DC.l 0 MyXbios: move.w TruePhys,d0 beq No_Xbios move.w (sp),d0 ; Je nachdem ob XBIOS vom btst #13,d0 ; Supervisor- oder User-modus bne no_x_super ; aufgerufen wurde sind die move.l usp,a0 ; Parameter auf dem entsprechendem bra tst_phys ; Stack no_x_super: lea.l 6(sp),a0 tst_phys: cmpi.w #Physbase,(a0) ; Beim Physbase-Aufruf wird beq PhysFound ; No_Xbios: movea.l OldXbios(pc),a0 jmp (a0) PhysFound: move.l v_bas_add,d0 ; v_bas_add zurckgegeben rte ;################################################ HARDCOPY-Vec .DC.b "XBRAOVER" ; HARDCOPY OldHard: .DC.l 0 ; MyHard: move.w #-1,-(sp) ; Auf Shift ALT/HELP testen move.w #Kbshift,-(sp) ; trap #bios ; addq.l #4,sp ; cmp.b ActivateKey,d0 ; ja -> eigene Routine beq NewHard ; movea.l OldHard(pc),a0 ; nein -> alte Routine anspringen jmp (a0) ; ;------------------------------------------ NewHard: movem.l d0-d7/a0-a6,-(sp) bsr SetOverscan ; Overscan Werte nochmal setzen bsr ClearScreen ; Bilschirmrnder lschen DoNotClear: move.w #-1,dumpflag ; Hardcopy-DumpFlag lschen EndHard: movem.l (sp)+,d0-d7/a0-a6 rts ; zurck ;################################################ VBL-Vektor .DC.b "XBRAOVER" ; VerticalBlank nur bei BLITTER-TOS .DC.l 0 MyVB: tst.b GemStarted ; Luft GEM schon beq.s MyVB_1 ; nein, raus movea.l _vblqueue,a0 ; in VBL-Slot 0 schon ... tst.l (a0) ; ... GEM-Mausroutine installiert ? beq.s MyVB_1 ; nein, raus pea MyMouse(pc) ; durch eigene Mausroutine ... move.l (sp)+,(a0) ; ... ersetzen ; ??????????????????????????? movea.l MouseVec,a0 cmpi.l #$fcfe82,(a0) bne.s MyVB_1 move.w sr,-(sp) ori.w #$700,sr move.l #$fcfe8c,(a0) move.w (sp)+,sr MyVB_1: rts ;################################################ MOUSE-Vektor .DC.b "XBRAOVER" ; MouseVec nur bei BLITTER-TOS .DC.l 0 MyMouse: move.w sr,-(sp) ; Alte Interruptmaske merken ori.w #$0700,sr ; alle Interrupts sperren movea.l LineA,a0 ; Zeiger auf LineA Variablen bclr #0,CUR_FLAG(a0) ; !0 -> Maus neu zeichnen ? beq.s MyMouse_2 ; nein, raus clr.l d0 clr.l d1 move.w CUR_X(a0),d0 ; Maus X-Position holen move.w CUR_Y(a0),d1 ; Maus Y-Position holen move.w (sp)+,sr ; wieder Interrupts zulassen tst.b MOUSE_FLAG(a0) ; !0 -> Mausinterrupt ein ? bne.s MyMouse_1 ; ja, raus movem.w d0/d1,-(sp) ; Register retten lea.l SAVE_LEN(a0),a2 ; Zeiger auf LineA SpriteSaveBuffer bsr UndrawSprite ; Mauszeiger lschen movem.w (sp)+,d0/d1 ; Register restaurieren movea.l LineA,a0 lea.l SAVE_LEN(a0),a2 ; Zeiger auf LineA SpriteSaveBuffer lea.l M_POS_HX(a0),a0 ; SDB-Zeiger fr LineA-MausSprite bsr DrawSprite ; Mauszeiger neu zeichnen MyMouse_1: rts ; raus MyMouse_2: move.w (sp)+,sr ; wieder Interrupts zulassen rts ; raus ;############################################################# ;# ;# Die wichtigsten Unterprogramme ;# ------------------------------ ;# SetOverscan LineA und Auflsung initialisieren ;# ClearScreen Nur BildschirmRnder auf Schwarz ;# ClearFullScreen Ganzen Bildschirmspeicher lschen ;# ;############################################################# SetOverscan: clr.l d2 move.b sshiftmd,d2 ; Aktuelle Aufsung move.w d2,Reso ; merken add.w d2,d2 ; mal 2 als Word-Offset in Tabelle lea.l ScreenTab(pc),a0 ; TabellenZeiger holen move.w 0(a0,d2.w),RezX ; X-Auflsung move.w 6(a0,d2.w),RezY ; Y-Auflsung move.w 12(a0,d2.w),BpL ; Bytes pro Zeile add.w d2,d2 ; mal 2 als Long-Offset move.l 18(a0,d2.w),d0 ; Offset MEMTOP <> VIDEO_ADD move.l 30(a0,d2.w),d1 ; Offset MEMTOP <> V_BAS_ADD move.w d1,Offset ; merken ;---------------------------- Videoaddresse auf 'memtop + D0' move.l MyMemtop,v_bas_add tst.b BadTos ; Bei BlitterTOS beq no_buff_1 ; hinter Sicherheits- addi.l #32768,v_bas_add ; Puffer beginnen no_buff_1: add.l d0,v_bas_add move.b v_bas_add+1,vid_bashigh ; Addresse setzen move.b v_bas_add+2,vid_basmid move.l v_bas_add,VidAdd ; und merken ;---------------------------- v_bas_ad auf 'memtop + D1' setzen move.l MyMemtop,v_bas_add tst.b BadTos ; Bei BlitterTOS beq no_buff_2 ; hinter Sicherheitspuffer addi.l #32768,v_bas_add ; no_buff_2: add.l d1,v_bas_add ; v_bas_add setzen move.l v_bas_add,BasAdd ; und merken ;--------------- Werte in den negativen LineA Variablen anpassen movea.l LineA,a0 ; LineA Zeiger holen move.w RezX,v_rez_hz(a0) ; Breite setzen move.w RezX,WKXRez(a0) ; subi.w #1,WKXRez(a0) ; Breite-1 move.w RezY,v_rez_vt(a0) ; Hhe setzen move.w RezY,WKYRez(a0) ; subi.w #1,WKYRez(a0) ; Hhe-1 move.w BpL,bytes_lin(a0) ; Bytes pro Zeile setzen move.w BpL,width(a0) ; move.w RezX,d0 ; asr.w #3,d0 ; subq.w #1,d0 ; Breite/8 -1 move.w d0,v_cel_mx(a0) ; -> Anzahl Buchstaben pro Zeile clr.l d0 ; move.w RezY,d0 ; divu.w v_cel_ht(a0),d0 ; subq.w #1,d0 ; Hhe/Buchstabenhhe -1 move.w d0,v_cel_my(a0) ; -> Anzahl Buchstabenzeilen move.w v_cel_ht(a0),d0 ; mulu.w BpL,d0 ; AnzBuchstaben*BytesProZeile move.w d0,v_cel_wr(a0) ; -> Blocklnge fr Scrolling move.w v_planes(a0),VPlanes ; Anzahl der Farbebenen tst.b BadTos ; BLITTER-TOS ? beq setLineA_1 ; nein -> fertig ;----------------------------- move.w #3,MonPLine move.b sshiftmd,d0 cmpi.b #1,d0 bgt setLineA_1 move.w #2,MonPLine tst.b d0 bne setLineA_1 move.w #1,MonPLine setLineA_1: bsr ResetCursor ; Neue CursorAddresse bestimmen rts ;----------------------------- CallSetOverscan: move.w sr,d0 btst #13,d0 beq DoCallOver bra SetOverscan DoCallOver: pea SetOverscan(pc) ; im move.w #Supexec,-(sp) ; Supervisormodus durchfhren trap #xbios ; addq.l #6,sp rts ;############################################################# ClearScreen: bsr BlackColor ; Lschfarbe holen in D0 move.l d0,d4 ; ;----------------------------- movea.l VidAdd,a1 ; Oberen Rand lschen movea.l BasAdd,a0 ; subq.l #2,a0 ; Falls HIGH_OFF nicht /4 teilbar Hflp: move.l d4,(a1)+ ; Vor dem Bildschirm Rcklauf cmpa.l a0,a1 ; Pixel auf Schwarz setzen blt Hflp ; ;----------------------------- move.w Reso,d5 ; movea.l BasAdd,a0 ; Links & Rechts im Rcklauf lschen clr.l d0 ; Den ungenutzten Bereich im clr.l d1 ; Rcklauf auf Schwarz setzen move.w BpL,d0 ; Bytes pro Zeile - Pixel/xxx move.w RezX,d1 ; addq.w #1,d5 asr.w d5,d1 ; >>3:High >>2:Mid >>1:Low sub.w d1,d0 ; move.w RezY,d2 ; Hhe des Bereichs subq.w #1,d2 ; subq.w #1,d0 ; Hlp1: adda.l d1,a0 ; Normalen Bildbereich berspringen move.w d0,d3 ; Hlp2: move.b d4,(a0)+ ; Bereich lschen dbf d3,Hlp2 ; dbf d2,Hlp1 ; ;----------------------------- move.l a0,d0 ; Unteren Bildrand lschen bclr #0,d0 ; Zeiger auf gerade Addresse movea.l d0,a0 ; bringen move.l MemEnd,d1 ; Anzahl der zulschenden Blcke sub.l d0,d1 ; Speicherende minus ZeigerAddr asr.l #4,d1 ; durch 16 (Blocklnge) subq.l #1,d1 ; minus 1 (wegen dbf) ;----------------------------- Hlp3: move.l d4,(a0)+ ; auf Schwarz lschen move.l d4,(a0)+ ; move.l d4,(a0)+ ; move.l d4,(a0)+ ; dbf d1,Hlp3 ; rts ; fertig ;----------------------------- CallClearScreen: move.w sr,d0 btst #13,d0 beq DoCallClearSc bra ClearScreen DoCallClearSc: pea ClearScreen(pc) ; im move.w #Supexec,-(sp) ; Supervisormodus durchfhren trap #xbios ; addq.l #6,sp rts ;############################################################# ; Gesamten Bildspeicher lschen (auf schwarz) ; Lschfarbe bestimmen ClearFullScreen: bsr BlackColor ; Lschwert holen in D0 move.l #$8000,d1 ; Lnge des alten Bildschirmspeichers addi.l #add_len,d1 ; plus Erweiterung lsr.l #4,d1 ; geteilt durch 16L subq.l #1,d1 ; minus 1 wegen dbf ;----------------------------- movea.l MyMemtop,a0 ; ab MEMTOP lschen tst.b BadTos ; BlitterTOS ? beq sc_clp ; Sicherheitspuffer beachten adda.l #32768,a0 ; alte Lnge ;----------------------------- sc_clp: move.l d0,(a0)+ ; move.l d0,(a0)+ ; move.l d0,(a0)+ ; move.l d0,(a0)+ ; dbf d1,sc_clp ; die nchsten 16 Bytes bsr ResetCursor rts ; fertig ;----------------------------- CallClearFull: move.w sr,d0 btst #13,d0 beq DoCallClearFu bra ClearFullScreen DoCallClearFu: pea ClearFullScreen(pc) ; im move.w #Supexec,-(sp) ; Supervisormodus durchfhren trap #xbios ; addq.l #6,sp rts ;----------------------------- BlackColor: move.l #-1,d0 ; erstmal Fllwert $FFFFFFFF move.w Reso,d1 ; Bildschirmmodus ... cmpi.w #2,d1 ; ... Monochrom ? bne NotWhite ; nein, weiter btst #0,$ff8241 ; Inverse Monochrome ? bne NotWhite ; nein, Farbe richtig not.l d0 ; sonst Fllwert $0 NotWhite: rts ;----------------------------- CallBlackColor: move.w sr,d0 btst #13,d0 beq DoCallBlackCo bra BlackColor DoCallBlackCo: pea BlackColor(pc) ; im move.w #Supexec,-(sp) ; Supervisormodus durchfhren trap #xbios ; addq.l #6,sp rts ;############################################################# ; Retten des alten SchirmInhaltes in den neuen OVERSCAN Bildschirm ; ScreenSave: movem.l d0-d7/a0-a6,-(sp) ; movea.l StartBasAdd,a0 ; Bildschirmspeicher kurz movea.l MyMemtop,a1 ; vor MemTop kopieren ! suba.l #$8000,a1 ; move.l #1000,d0 ScSaveLoop: movem.l (a0)+,d1-d7/a2 movem.l d1-d7/a2,(a1) lea.l 32(a1),a1 ; 32 Bytes transportieren dbf d0,ScSaveLoop movem.l (sp)+,d0-d7/a0-a6 rts ;--------------------------------------------------------- ScreenCopy: movem.l d0-d7,-(sp) ; movea.l BasAdd,a0 ; Bildschirmspeicher wieder movea.l MyMemtop,a1 ; zurckkopieren suba.l #$8000,a1 ; move.w #160,d0 ; Alte Breite in BYTE D0 move.w #200,d1 ; Alte Hhe D1 cmpi.w #2,Reso ; bne CopyNoHigh ; move.w #80,d0 ; High-Reso move.w #400,d1 ; CopyNoHigh: clr.l d2 ; move.w BpL,d2 ; Neue Bytes Pro Line D3 sub.w d0,d2 ; Differenz Neue-Alte asr.w #2,d0 ; /4 -> Longs subq.w #1,d0 ; wegen dbf -> LONGs to copy subq.w #1,d1 ; Lines to Copy subq.w #1,d2 ; Rest zu lschen CopyLoop: move.w d0,d3 ; Copy_1: move.l (a1)+,(a0)+ ; Alten Schirm kopieren dbf d3,Copy_1 ; move.w d2,d3 ; Copy_2: clr.b (a0)+ ; dbf d3,Copy_2 ; Zeile bis Ende lschen dbf d1,CopyLoop ; bsr CallClearScreen bsr ResetCursor ; CursorAddr bestimmen movem.l (sp)+,d0-d7 rts ;##################################################################### ; Neue CursorAddresse bestimmen ; ResetCursor: movea.l LineA,a0 ; move.l BasAdd,v_cur_add(a0) ; Neue Addresse move.w v_cur_y(a0),d0 ; = V_bas_add mulu.w v_cel_wr(a0),d0 ; add.l d0,v_cur_add(a0) ; + y * cel_wr move.w v_cur_x(a0),d0 ; bclr.l #0,d0 ; + x^1 * v_planes mulu.w v_planes(a0),d0 ; add.l d0,v_cur_add(a0) ; + x^1 * planes move.w v_cur_x(a0),d0 ; andi.l #$fffe,d0 ; add.w d0,v_cur_add(a0) ; + x&1 clr.l d0 ; move.w v_cur_of(a0),d0 ; add.l d0,v_cur_add(a0) ; + cursor_offset rts ;############################################################# ;# ;# INTRO GrowBox Effekt und Sound ;# ;############################################################# Intro: bsr ScreenSave pea SoundTab(pc) ; Sound abspielen move.w #Dosound,-(sp) trap #xbios addq.l #6,sp ;----------------------------- clr.w d0 bsr set_color move.w Reso,d5 ; Aktuelle Aufsung add.w d5,d5 ; mal 2 als Word-Offset in Tabelle lea.l ScreenTab(pc),a0 move.w RezX,d6 ; D6 = (Breite - AlteBreite)/2 cmp.w 42(a0,d5.w),d6 ; Neue Breite kleiner als Alte ? blt EndIntro ; ja -> Nur Schirm kopieren sub.w 42(a0,d5.w),d6 asr.w #1,d6 move.w d6,d0 ; als X1 move.w d0,d2 add.w 42(a0,d5.w),d2 ; X2 = X1 + AlteAuflsung move.w RezY,d7 ; D7 = (Hhe - AlteHhe )/2 cmp.w 48(a0,d5.w),d7 ; Neue Hhe kleiner als Alte ? blt EndIntro ; ja -> Nur Schirm kopieren sub.w 48(a0,d5.w),d7 asr.w #1,d7 move.w d7,d1 ; als Y1 move.w d1,d3 add.w 48(a0,d5.w),d3 ; Y2 = Y1 + AlteAuflsung move.w d6,Dx ; Alle Werte abspeichern move.w d7,Dy ; move.w d0,Xa ; move.w d1,Ya ; move.w d2,Xe ; move.w d3,Ye ; movem.l d0-d7/a0-a6,-(sp) bsr CallClearFull movem.l (sp)+,d0-d7/a0-a6 bsr draw_rect ; Das gefllte Rechteck zeichnen ;------------------------------------------------------------- move.w d6,Max ; In welche Richtung ist der cmp.w d6,d7 ; Zugewinn am grten ? blt grow_box ; move.w d7,Max ; grow_box: move.w #1,d6 ; Zaehler grow_loop: clr.w d7 ; Schleife fr die grer werdenden move.w Dx,d4 ; Rechtecke. Die Bewegung soll mulu.w d6,d4 ; proportional verlaufen... divu.w Max,d4 ; ...deswegen der ganze Hermann move.w Dy,d5 ; mulu.w d6,d5 divu.w Max,d5 cmpi.w #0,d0 ; X links oben beq no_d0 move.w Xa,d0 sub.w d4,d0 addq.w #1,d7 no_d0: cmpi.w #0,d1 ; Y links oben beq no_d1 move.w Ya,d1 sub.w d5,d1 addq.w #1,d7 no_d1: cmp.w RezX,d2 ; X rechts unten beq no_d2 move.w Xe,d2 add.w d4,d2 addq.w #1,d7 no_d2: cmp.w RezY,d3 ; Y rechts unten beq no_d3 move.w Ye,d3 add.w d5,d3 addq.w #1,d7 no_d3: bsr draw_box ; das Rechteck zeichnen ;----------------------------- addq.w #1,d6 ; tst.w d7 ; Solange sich noch was ndert bne grow_loop ; die Rechteckschleife wiederholen EndIntro: bsr ResetCursor bra ScreenCopy ;----------------------------- set_color: movea.l LineA,a0 ; Farbe setzen move.w d0,col_bit0(a0) ; move.w d0,col_bit1(a0) ; move.w d0,col_bit2(a0) ; move.w d0,col_bit3(a0) ; rts ;--------------------------------- draw_box: movea.l LineA,a0 ; Ein Rechteck aus Linien zeichnen clr.w wmode(a0) ; d0/d1 linke obere Ecke move.w #$ffff,lnmask(a0) ; d2/d3 rechte untere Ecke move.w #1,lstlin(a0) move.w d0,x1(a0) move.w d1,y1(a0) move.w d2,x2(a0) move.w d1,y2(a0) bsr draw_line ; Oben movea.l LineA,a0 move.w d2,x1(a0) move.w d1,y1(a0) move.w d2,x2(a0) move.w d3,y2(a0) bsr draw_line ; Rechts movea.l LineA,a0 move.w d2,x1(a0) move.w d3,y1(a0) move.w d0,x2(a0) move.w d3,y2(a0) bsr draw_line ; Unten movea.l LineA,a0 move.w d0,x1(a0) move.w d1,y1(a0) move.w d0,x2(a0) move.w d3,y2(a0) bsr draw_line ; Links rts ;----------------------------- draw_diag: movea.l LineA,a0 ; Diagonalen zeichnen move.w d0,x1(a0) ; move.w d1,y1(a0) ; Parameter wie oben move.w d2,x2(a0) ; move.w d3,y2(a0) bsr draw_line ; Diagonale links movea.l LineA,a0 move.w d2,x1(a0) move.w d1,y1(a0) move.w d0,x2(a0) move.w d3,y2(a0) bsr draw_line ; Diagonale rechts EndBox: rts ;----------------------------- draw_line: movem.l d0-d7,-(sp) ; Einzelne Linie Ziehen .DC.w $a003 movem.l (sp)+,d0-d7 rts ;----------------------------- pattern: .DC.w $ffff ; Fuellmuster ;----------------------------- draw_rect: movem.l d0-d7,-(sp) ; Ein Rechteck zeichnen movea.l LineA,a0 ; m@OFAÎGOO OOπ OϘ ppόOπ CGOO O OO move.w d2,d3 ; Copy_2: clr.b (a0)+ ; dbf d3,Copy_2 ; Zeile bis Ende lschen dbf d1,CopyLoop ; bsr CallClearScreen bsr ResetCursor ; CursorAddr bestimmen movem.l (sp)+,d0-d7 rts ;##################################################################### ; Neue CursorAddresse bestimmen ; ResetCursor: movea.l LineA,a0 ; move.l BasAdd,v_cur_add(a0) ; Neue Addresse move.w v_cur_y(a0),d0 ; = V_bas_add mulu.w v_cel_wr(a0),d0 ; add.l d0,v_cur_add(a0) ; + y * cel_wr move.w v_cur_x(a0),d0 ; bclr.l #0,d0 ; + x^1 * v_planes mulu.w v_planes(a0),d0 ; add.l d0,v_cur_add(a0) ; + x^1 * planes move.w v_cur_x(a0),d0 ; andi.l #$fffe,d0 ; add.w d0,v_cur_add(a0) ; + x&1 clr.l d0 ; move.w v_cur_of(a0),d0 ; add.l d0,v_cur_add(a0) ; + cursor_offset rts ;############################################################# ;# ;# INTRO GrowBox Effekt und Sound ;# ;############################################################# Intro: bsr ScreenSave pea SoundTab(pc) ; Sound abspielen move.w #Dosound,-(sp) trap #xbios addq.l #6,sp ;----------------------------- clr.w d0 bsr set_color move.w Reso,d5 ; Aktuelle Aufsung add.w d5,d5 ; mal 2 als Word-Offset in Tabelle lea.l ScreenTab(pc),a0 move.w RezX,d6 ; D6 = (Breite - AlteBreite)/2 cmp.w 42(a0,d5.w),d6 ; Neue Breite kleiner als Alte ? blt EndIntro ; ja -> Nur Schirm kopieren sub.w 42(a0,d5.w),d6 asr.w #1,d6 move.w d6,d0 ; als X1 move.w d0,d2 add.w 42(a0,d5.w),d2 ; X2 = X1 + AlteAuflsung move.w RezY,d7 ; D7 = (Hhe - AlteHhe )/2 cmp.w 48(a0,d5.w),d7 ; Neue Hhe kleiner als Alte ? blt EndIntro ; ja -> Nur Schirm kopieren sub.w 48(a0,d5.w),d7 asr.w #1,d7 move.w d7,d1 ; als Y1 move.w d1,d3 add.w 48(a0,d5.w),d3 ; Y2 = Y1 + AlteAuflsung move.w d6,Dx ; Alle Werte abspeichern move.w d7,Dy ; move.w d0,Xa ; move.w d1,Ya ; move.w d2,Xe ; move.w d3,Ye ; movem.l d0-d7/a0-a6,-(sp) bsr CallClearFull movem.l (sp)+,d0-d7/a0-a6 bsr draw_rect ; Das gefllte Rechteck zeichnen ;------------------------------------------------------------- move.w d6,Max ; In welche Richtung ist der cmp.w d6,d7 ; Zugewinn am grten ? blt grow_box ; move.w d7,Max ; grow_box: move.w #1,d6 ; Zaehler grow_loop: clr.w d7 ; Schleife fr die grer werdenden move.w Dx,d4 ; Rechtecke. Die Bewegung soll mulu.w d6,d4 ; proportional verlaufen... divu.w Max,d4 ; ...deswegen der ganze Hermann move.w Dy,d5 ; mulu.w d6,d5 divu.w Max,d5 cmpi.w #0,d0 ; X links oben beq no_d0 move.w Xa,d0 sub.w d4,d0 addq.w #1,d7 no_d0: cmpi.w #0,d1 ; Y links oben beq no_d1 move.w Ya,d1 sub.w d5,d1 addq.w #1,d7 no_d1: cmp.w RezX,d2 ; X rechts unten beq no_d2 move.w Xe,d2 add.w d4,d2 addq.w #1,d7 no_d2: cmp.w RezY,d3 ; Y rechts unten beq no_d3 move.w Ye,d3 add.w d5,d3 addq.w #1,d7 no_d3: bsr draw_box ; das Rechteck zeichneo_Sub bra ChangeClear NoSub: cmpi.w #78,d0 ; + bne NoAdd bsr Do_Add bra ChangeClear NoAdd: cmpi.w #25,d0 ; P bne NoP bsr Do_Phys bra ChangeClear NoP: cmpi.w #46,d0 ; C bne NoC bsr Do_Activ bra ChangeClear NoC: cmpi.w #35,d0 ; H bne NoH bsr ResoChangeTest bne ChangeClear move.w #2,d0 bra SetScreenReso NoH: cmpi.w #50,d0 ; M bne NoM bsr ResoChangeTest bne ChangeClear move.w #1,d0 bra SetScreenReso NoM: cmpi.w #38,d0 ; L bne EndChange bsr ResoChangeTest bne ChangeClear move.w #0,d0 bra SetScreenReso EndChange: rts ChangeClear: bra CallClearFull ;---------------------------------------------- ClearPal: move.w vid_pal3,Pal3Save ; Farbregister 3 retten move.w vid_palF,PalFSave clr.w vid_pal3 ; auf schwarz setzen clr.w vid_palF rts CallClearPal: move.w sr,d0 btst #13,d0 beq DoCallClearPa bra ClearPal DoCallClearPa: pea ClearPal(pc) ; Farbregister 3 lschen move.w #Supexec,-(sp) ; Supervisormodus durchfhren trap #xbios ; addq.l #6,sp rts ;---------------------------------------------- RestorePal: move.w Pal3Save,vid_pal3 ; Farbregister 3 zurck move.w PalFSave,vid_palF rts CallRestorePal: move.w sr,d0 btst #13,d0 beq DoCallRestore bra RestorePal DoCallRestore: pea RestorePal(pc) ; Farbregister 3 lschen move.w #Supexec,-(sp) ; Supervisormodus durchfhren trap #xbios ; addq.l #6,sp rts ;---------------------------------------------- InitReso: move.w #8,Y_Inc move.w Reso,d0 ; Aktuelle Auflsung cmpi.w #2,d0 ; bne NoHighReso ; move.w #16,Y_Inc ; Y-Inkrement feststellen ;----------------------------- NoHighReso: move.l #8,d1 ; tst.w d0 beq InitOffset asr.l d0,d1 ; InitOffset: move.l d1,Off_Inc ; Offset-Inkrement festlegen ;----------------------------- clr.l d1 ; @σOpπ@OωOppώ @OFAOppπ@OFAppώOωAOOÄ@Bppπ@OϜppπ@OωOOovea.l LineA,a0 ; move.l BasAdd,v_cur_add(a0) ; Neue Addresse move.w v_cur_y(a0),d0 ; = V_bas_add mulu.w v_cel_wr(a0),d0 ; add.l d0,v_cur_add(a0) ; + y * cel_wr move.w v_cur_x(a0),d0 ; bclr.l #0,d0 ; + x^1 * v_planes mulu.w v_planes(a0),d0 ; add.l d0,v_cur_add(a0) ; + x^1 * planes move.w v_cur_x(a0),d0 ; andi.l #$fffe,d0 ; add.w d0,v_cur_add(a0) ; + x&1 clr.l d0 ; move.w v_cur_of(a0),d0 ; add.l d0,v_cur_add(a0) ; + cursor_offset rts ;############################################################# ;# ;# INTRO GrowBox Effekt und Sound ;# ;############################################################# Intro: bsr ScreenSave pea SoundTab(pc) ; Sound abspielen move.w #Dosound,-(sp) trap #xbios addq.l #6,sp ;----------------------------- clr.w d0 bsr set_color move.w Reso,d5 ; Aktuelle Aufsung add.w d5,d5 ; mal 2 als Word-Offset in Tabelle lea.l ScreenTab(pc),a0 move.w RezX,d6 ; D6 = (Breite - AlteBreite)/2 cmp.w 42(a0,d5.w),d6 ; Neue Breite kleiner als Alte ? blt EndIntro ; ja -> Nur Schirm kopieren sub.w 42(a0,d5.w),d6 asr.w #1,d6 move.w d6,d0 ; als X1 move.w d0,d2 add.w 42(a0,d5.w),d2 ; X2 = X1 + AlteAuflsung move.w RezY,d7 ; D7 = (Hhe - AlteHhe )/2 cmp.w 48(a0,d5.w),d7 ; Neue Hhe kleiner als Alte ? blt EndIntro ; ja -> Nur Schirm kopieren sub.w 48(a0,d5.w),d7 asr.w #1,d7 move.w d7,d1 ; als Y1 move.w d1,d3 add.w 48(a0,d5.w),d3 ; Y2 = Y1 + AlteAuflsung move.w d6,Dx ; Alle Werte abspeichern move.w d7,Dy ; move.w d0,Xa ; move.w d1,Ya ; move.w d2,Xe ; move.w d3,Ye ; movem.l d0-d7/a0-a6,-(sp) bsr CallClearFull movem.l (sp)+,d0-d7/a0-a6 bsr draw_rect ; Das gefllte Rechteck zeichnen ;------------------------------------------------------------- move.w d6,Max ; In welche Richtung ist der cmp.w d6,d7 ; Zugewinn am grten ? blt grow_box ; move.w d7,Max ; grow_box: move.w #1,d6 ; Zaehler grow_loop: clr.w d7 ; Schleife fr die grer werdenden move.w Dx,d4 ; Rechtecke. Die Bewegung soll mulu.w d6,d4 ; proportional verlaufen... divu.w Max,d4 ; ...deswegen der ganze Hermann move.w Dy,d5 ; mulu.w d6,d5 divu.w Max,d5 cmpi.w #0,d0 ; X links oben beq no_d0 move.w Xa,d0 sub.w d4,d0 addq.w #1,d7 no_d0: cmpi.w #0,d1 ; Y links oben beq no_d1 move.w Ya,d1 sub.w d5,d1 addq.w #1,d7 no_d1: cmp.w RezX,d2 ; X rechts unten beq no_d2 move.w Xe,d2 add.w d4,d2 addq.w #1,d7 no_d2: cmp.w RezY,d3 ; Y rechts unten beq no_d3 move.w Ye,d3 add.w d5,d3 addq.w #1,d7 no_d3: bsr draw_box ; das Rechteck zeichne Off_Inc,d0 ; Linke obere Ecke nach rechts add.l d0,(a0) bra CallSetOverscan ;----------------------------- Do_Sub: movea.l Off_Add,a0 ; Offset erhhen clr.l d0 move.w BpL,d0 ; Linke obere Ecke nach oben sub.l d0,(a0) bra CallSetOverscan ;----------------------------- Do_Add: movea.l Off_Add,a0 ; Offset erhhen clr.l d0 move.w BpL,d0 ; Linke obere Ecke nach unten add.l d0,(a0) bra CallSetOverscan ;----------------------------- Do_Phys: move.w TruePhys,d0 ; Den jetzigen Zustand ausgeben tst.w d0 bne PhysIsOn pea msg_phys_on(pc) bra Write_phys PhysIsOn: pea msg_phys_off(pc) Write_phys: move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp move.w #Cnecin,-(sp) trap #gemdos addq.l #2,sp swap.w d0 cmpi.w #44,d0 ; Nur bei 'Y' bne EndPhys not.w TruePhys ; -> Zustand ndern EndPhys: rts ;----------------------------- Do_Activ: move.b ActivateKey,d0 ; Den jetzigen Zustand ausgeben cmpi.b #9,d0 beq ActivShift pea msg_shift_off(pc) bra Write_Shift ActivShift: pea msg_shift_on(pc) Write_Shift: move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp move.w #Cnecin,-(sp) trap #gemdos addq.l #2,sp swap.w d0 cmpi.w #49,d0 ; Nur bei 'N' bne EndShift bchg #0,ActivateKey ; Zustand ndern EndShift: rts ;----------------------------- ResoChangeTest: pea msg_change(pc) ; Hilfstext ausgeben move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp move.w #Cnecin,-(sp) trap #gemdos addq.l #2,sp swap.w d0 cmpi.w #44,d0 rts ;----------------------------- SetScreenReso: move.w d0,-(sp) ; Neue Auflsung mit Setscreen move.l #-1,-(sp) ; setzen move.l #-1,-(sp) ; move.w #Setscreen,-(sp) ; trap #xbios ; lea.l $c(sp),sp bsr CallSetOverscan ; Overscan neu installieren bsr CallClearFull ; bra InitReso ; und initialisieren ;----------------------------- DrawSetup: bsr set_color ; Box mit Diagonalen zeichnen move.w #0,d0 move.w #0,d1 move.w RezX,d2 subq.w #1,d2 move.w RezY,d3 subq.w #1,d3 bsr draw_box bra draw_diag ;----------------------------- WriteSetup: lea.l user_x(pc),a1 ; Zahlenwerte schreiben move.w RezX,d0 bsr WriteDec lea.l user_y(pc),a1 move.w RezY,d0 bsr WriteDec lea.l user_off(pc),a1 move.w Offset,d0 bra WriteHex ;----------------------------- WriteDec: movem.l d0-d7,-(sp) ; Zahlen ausgabe in Dezimal lea.l end_number(pc),a0 ; Alten String lschen move.w #3,d2 ; WriteClr: move.b #' ',-(a0) ; dbf d2,WriteClr ; lea.l end_number(pc),a0 ; swap.w d0 ; Oberen Werte lschen clr.w d0 swap.w d0 WriteLp: divu.w #10,d0 swap.w d0 move.w d0,d1 clr.w d0 ; Modulo Rest lschen swap.w d0 addi.w #'0',d1 move.b d1,-(a0) tst.l d0 bne WriteLp ;--------------------- @F #KCB[ݙKLK J H^]\X[B[ݙK۝ J CB\[YBYK͋BXH\\۝[X\HZZ[H]\X[B[ݙK۝ J CB\[YBYK͋B[ݙ[K  J Y B ;----------------------------- WriteHex: movem.l d0-d7,-(sp) ; Zahlen Ausgabe in Hexadezimal lea.l end_number(pc),a0 ; Alten String lschen move.w #3,d2 WriteHlp: move.b d0,d1 andi.w #$f,d1 cmpi.w #9,d1 ble NotAF subi.w #10,d1 addi.w #'A',d1 bra WriteIt NotAF: addi.w #'0',d1 WriteIt: move.b d1,-(a0) asr.w #4,d0 dbf d2,WriteHlp ;----------------------------- move.l a1,-(sp) ; Text ausgeben move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp pea user_number(pc) ; Zahlzeile ausgeben move.w #Cconws,-(sp) trap #gemdos addq.l #6,sp movem.l (sp)+,d0-d7 rts ;############################################################# ; eigene Versionen der DrawSprite und UndrawSprite Routinen ; die nicht auf 32KB Bildschirmspeicher begrenzt sind. ; ; mit einigen Anpassungen fr OVERSCAN ; von Bernd Gebauer 31.05.89 ; DrawSprite: ; Parameter ; D0.W : X-Koordinate des Aktionspunktes des Sprites auf Schirm ; D1.W : Y-Koordinate ; A0 : Zeiger auf SDB-Struktur ; A2 : Zeiger auf Sprite-Save-Buffer ( #Farbebenen*64 + 10 ) move.w 6(a0),-(sp) ; bgcol retten move.w 8(a0),-(sp) ; fgcol retten clr.w d2 tst.w 4(a0) ; form ( 1=VDI , -1=XOR ) bge.s lab_1 moveq.l #16,d2 lab_1: move.w d2,-(sp) ; offset retten clr.w d2 bclr #1,6(a2) sub.w 0(a0),d0 ; X -= xhot bcs.s lab_2 move.w RezX,d3 subi.w #15,d3 cmp.w d3,d0 ; xhot > XRez-15 ? bhi.s lab_4 ; ja, weiter bset #1,6(a2) ; Clipflag setzen bra.s lab_3 ;------------- lab_2: addi.w #16,d0 moveq.l #8,d2 bra.s lab_3 ;------------- lab_4: moveq.l #16,d2 lab_3: sub.w 2(aV2 sub.w d5,d1 addq.w #1,d7 no_d1: cmp.w RezX,d2 ; X rechts unten beq no_d2 move.w Xe,d2 add.w d4,d2 addq.w #1,d7 no_d2: cmp.w RezY,d3 ; Y rechts unten beq no_d3 move.w Ye,d3 add.w d5,d3 addq.w #1,d7 no_d3: bsr draw_box ; das Rechteck zeichne clr.w d1 bra.s lab_7 ;------------- lab_6: move.w RezY,d5 sub.w d1,d5 addq.w #1,d5 lab_7: ; D0 = X , D1 = Y bsr CalcScreenPos ; D0 = X mod 15 , D1.L = offset vom Bildschirmanfang movea.l v_bas_add,a1 ; Bildspeicheradresse adda.l d1,a1 ; + offset lea.l func_2,a3 move.w d0,d6 ; X mod 15 cmpi.w #8,d6 ; (X mod 15) < 8 ? bcs.s lab_8 ; ja, weiter lea.l func_1,a3 move.w #16,d6 sub.w d0,d6 ; 16 - (X mod 15) lab_8: movea.l tab1(pc,d2.w),a5 movea.l tab1+4(pc,d2.w),a6 move.w VPlanes,d2 move.w d2,d3 add.w d3,d3 move.w BpL,d4 move.l a1,2(a2) move.w d5,0(a2) bset #0,6(a2) lea.l 8(a2),a2 move.l a1,d7 move.w d5,d1 bra.s lab_9 ;----------------------------------------------------- tab1: .DC.l proc_1 .DC.l proc_2 .DC.l proc_3 .DC.l proc_4 .DC.l proc_5 .DC.l proc_6 ;----------------------------------------------------- loop_1: clr.w d0 lsr.w 2(sp) addx.w d0,d0 lsr.w 4(sp) roxl.w #3,d0 add.w 0(sp),d0 movea.l tab2(pc,d0.w),a4 movem.l d1/d2,-(sp) jsr (a6) movem.l (sp)+,d1/d2 move.w d1,d5 lsl.w #2,d5 suba.w d5,a0 move.w d1,d5 addq.l #2,d7 movea.l d7,a1 lab_9: dbra d2,loop_1 addq.l #6,sp rts ;----------------------------------------------------- tab2: .DC.l proc_7 .DC.l proc_8 .DC.l proc_9 .DC.l proc_a .DC.l proc_b .DC.l proc_c .DC.l proc_d .DC.l proc_e ;----------------------------------------------------- loop_2: move.w (a1),d2 swap.w d2 move.w 0(a1,d3.w),d2 move.l d2,(a2)+ jmp (a3) ;------------- proc_1: move.w d2,0(a1,d3.w) swap.w d2 move.w d2,(a1) adda.w d4,a1 proc_2: dbra d5,loop_2 rts ;----------------------------------------------------- loop_3: move.w (a1),d2 move.w d2,(a2)+ jmp (a3) ;------------- proc_3: move.w d2,(a1) adda.w d4,a1 proc_4: dbra d5,loop_3 rts ;----------------------------------------------------- loop_4: move.w (a1),d2 move.w d2,(a2)+ swap.w d2 jmp (a3) ;------------- proc_5: swap.w d2 move.w d2,(a1) adda.w d4,a1 proc_6: dbra d5,loop_4 rts ;----------------------------------------------------- func_1: moveq.l #0,d0 move.w (a0)+,d0 rol.l d6,d0 moveq.l #0,d1 move.w (a0)+,d1 rol.l d6,d1 jmp (a4) ;----------------------------------------------------- func_2: moveq.l #0,d0 move.w (a0)+,d0 swap.w d0 ror.l d6,d0 moveq.l #0,d1 move.w (a0)+,d1 swap.w d1 ror.l d6,d1 jmp (a4) ;----------------------------------------------------- proc_7: ; (~(D0|D1))&D2 --> D2 or.l d1,d0 not.l d0 and.l d0,d2 jmp (a5) ;----------------------------------------------------- proc_8: ; (D0|D2)&(~D1) --> D2 or.l d0,d2 not.l d1 and.l d1,d2 jmp (a5) ;----------------------------------------------------- proc_9: ; ((~D0)&D2)|D1 --> D2 not.l d0 and.l d0,d2 or.l d1,d2 jmp (a5) ;----------------------------------------------------- proc_a: ; (D0|D1|D2) --> D2 or.l d0,d2 or.l d1,d2 jmp (a5) ;----------------------------------------------------- proc_b: ; (~(D1^D2))&D0 --> D2 eor.l d1,d2 not.l d0 and.l d0,d2 jmp (a5) ;----------------------------------------------------- proc_c: ; (D0|D2)^D1 --> D2 or.l d0,d2 eor.l d1,d2 jmp (a5) ;----------------------------------------------------- proc_d: ; ((~D0)&D2)^D1 --> D2 not.l d0 and.l d0,d2 eor.l d1,d2 jmp (a5) ;----------------------------------------------------- proc_e: ; (D0^D2)|D1 --> D2 eor.l d0,d2 or.l d1,d2 jmp (a5) ;----------------------------------------------------- UndrawSprite: ; A2 = Zeiger auf SpriteSaveBlock bclr #0,6(a2) beq lab_10 ; raus move.w 0(a2),d4 ; xhot move.w d4,d2 ; xhot subq.w #1,d2 ; xhot - 1 move.w BpL,d3 movea.l 2(a2),a0 ; Zeiger auf Bildschirmoffset lea.l 8(a2),a1 ; Zeiger auf Spritedaten move.w VPlanes,d5 subq.w #2,d5 bhi.s lab_11 beq.s lab_12 btst #1,6(a2) bne.s lab_13 loop_9: move.w (a1)+,(a0) adda.w d3,a0 ; + Bytes per Line dbf d2,loop_9 ; nchste Zeile rts ; raus ;----------------------- lab_13: move.l (a1)+,(a0) adda.w d3,a0 dbra d2,lab_13 rts ;----------------------------------------------------- lab_12: movea.l a0,a5 add.w d4,d4 btst #1,6(a2) bne.s lab_14 movea.l a1,a2 adda.w d4,a2 loop_5: move.w (a1)+,(a0)+ move.w (a2)+,(a0) adda.w d3,a5 movea.l a5,a0 dbra d2,loop_5 rts ;------------- lab_14: movea.l a1,a2 adda.w d4,a2 adda.w d4,a2 loop_6: move.w (a1)+,(a0)+ move.w (a2)+,(a0)+ move.w (a1)+,(a0)+ move.w (a2)+,(a0) adda.w d3,a5 movea.l a5,a0 dbra d2,loop_6 rts ;----------------------------------------------------- lab_11: movea.l a0,a5 add.w d4,d4 btst #1,6(a2) ; VDI oder XOR ? bne.s lab_15 ; movea.l a1,a2 adda.w d4,a2 movea.l a2,a3 adda.w d4,a3 movea.l a3,a4 add.w d4,d4 loop_7: move.w (a1)+,(a0)+ move.w (a2)+,(a0)+ move.w (a3)+,(a0)+ move.w (a4)+,(a0) adda.w d3,a5 movea.l a5,a0 dbra d2,loop_7 rts ;------------- lab_15: add.w d4,d4 movea.l a1,a2 adda.w d4,a2 movea.l a2,a3 adda.w d4,a3 movea.l a3,a4 adda.w d4,a4 loop_8: move.w (a1)+,(a0)+ move.w (a2)+,(a0)+ move.w (a3)+,(a0)+ move.w (a4)+,(a0)+ move.w (a1)+,(a0)+ move.w (a2)+,(a0)+ move.w (a3)+,(a0)+ move.w (a4)+,(a0) adda.w d3,a5 movea.l a5,a0 dbra d2,loop_8 lab_10: rts ;----------------------------------------------------- CalcScreenPos: ; Parameter : ; in : ; D0.W = X-Position ; D1.W = Y-Position ; out : ; D0.W = X mod 15 ; D1.L = offset vom Bildschirmanfang ; alle anderen Register unverndert movem.w d2/d3,-(sp) mulu.w BpL,d1 ; Y *= Bytes per line clr.l d2 move.w d0,d2 ; (long) X andi.w #$fff0,d2 move.w MonPLine,d3 asr.l d3,d2 add.l d2,d1 andi.w #$f,d0 ; X mod 15 movem.w (sp)+,d2/d3 rts ;############################################################# .DATA msg_title: .DC.b 13,10 .DC.b ' Overscan Version 1.6 K.Isakovic ',13,10,0 msg_installed: .DC.b '| installed. B.Gebauer |',13,10 .DC.b '| |',13,10 .DC.b ' Hold Shift-Key for Setup ',13,10,0 msg_notactive: .DC.b ' NOT aktivated. B.Gebauer ',13,10,0 msg_noTos: .DC.b '| NOT installed. B.Gebauer |',13,10,7,7 .DC.b ' Only with TOS 1.2/1.4 or BETA-TOS ',13,10,0 msg_already: .DC.b ' already installed... B.Gebauer ',13,10,7,7,0 msg_erase: .DC.b 27,'E',0 user_x: .DC.b 27,'Y',33,40,27,'p','X:',0 user_y: .DC.b 'Y:',0 user_off: .DC.b 'Off:',0 user_number: .DC.b ' ' end_number: .DC.b ' ',0 msg_help: .DC.b 27,'H',27,'p' .DC.b ' OVERSCAN Version 1.6 K.Isakovic ',13,10 .DC.b '| Setup-Menu B.Gebauer |',13,10 .DC.b '|------------------------------------|',13,10 .DC.b '| |',13,10 .DC.b '| Cursorkeys : Width & Heigth |',13,10 .DC.b '| Block / * : Edge left/right |',13,10 .DC.b '| Block - + : Edge up/down |',13,10 .DC.b '| |',13,10 .DC.b '| P : Physbase emulation |',13,10 .DC.b '| C : Clear screen key |',13,10 .DC.b '| |',13,10 .DC.b '| L M H : Low Middle High Res. |',13,10 .DC.b '| |',13,10 .DC.b '| S : Save & Quit |',13,10 .DC.b '| Q : Quit without saving |',13,10 .DC.b '| |',13,10 .DC.b '| Help : This page |',13,10 .DC.b '| |',13,10 .DC.b '|------------------------------------|',13,10 .DC.b ' Press Return... ',13,10,0 msg_change: .DC.b 10,10 .DC.b 13,10,' Change Resolution.' .DC.b 13,10,' Are you shure (y/n) ?',0 msg_phys_on: .DC.b 10,10,13,10,' Physbase emulation on (y/n)',0 msg_phys_off: .DC.b 10,10,13,10,' Physbase emulation off (y/n)',0 msg_shift_on: .DC.b 10,10,13,10,' Clear-screen with RIGHT-SHIFT/ALT/HELP (y/n)',0 msg_shift_off: .DC.b 10,10,13,10,' Clear-screen with ALT/HELP (y/n)',0 save_name: .DC.b 'A:\AUTO\OVERSCAN.PRG',0 msg_save: .DC.b 27,'q',13,10,' Setup saved...',13,10,0 msg_notfound: .DC.b 27,'q',' not found !',13,10 .DC.b 'press < Return > ',13,10,0 msg_nosave: .DC.b 27,'q',13,10,' Setup not saved...' .DC.b 13,10,0 SoundTab: .DC.b 0,112,1,4,2,56,3,2,4,28,5,1 .DC.b 6,20 .DC.b 7,0 .DC.b 8,16,9,16,10,16 .DC.b 11,0,12,16,13,4 .DC.b 255,16 .DC.b 7,63 .DC.b 255,4 .DC.b 11,0,12,32,13,0 .DC.b 7,56 .DC.b 255,50 .DC.b 7,63 .DC.b 255,0 .BSS GemStarted: .DS.w 1 ; Luft GEM schon ? BadTos: .DS.w 1 ; !0 == BlitterTOS Offset: .DS.w 1 ; Offset VideoAdd <> MyMemtop RezX: .DS.w 1 ; Breite des Bildschirms RezY: .DS.w 1 ; Hhe des Bildschirms BpL: .DS.w 1 ; BytesPerLine , also Bytes pro Bildschirmzeile Reso: .DS.w 1 ; Aktuelle Auflsung MonPLine: .DS.w 1 ; ??? (was immer sich Julian dabei dachte...) VPlanes: .DS.w 1 ; Anzahl der Farbebenen LineA: .DS.l 1 ; Zeiger auf LineA Variablen MouseVec: .DS.l 1 ; temp. Kbdvbase WorkOut: .DS.l 1 ; Zeiger auf das WorkOut-Feld der 'v_opnwk()'- ; aufrufenden Funktion (hoffentlich der DESKTOP !) Back: .DS.l 1 ; RcksprungAddresse zu dieser Funktion MyMemtop: .DS.l 1 ; Zwischenspeicher zur Restauration des Desktops nach VidAdd: .DS.l 1 ; einem inkompatiblen Programm BasAdd: .DS.l 1 ; MemEnd: .DS.l 1 ; Letzte beschreibbare Speicheraddresse StartBasAdd: .DS.l 1 ; v_bas_add zu Beginn des Programms Dx: .DS.w 1 ; Zwischenspeicher fr GrowBox Effekt Dy: .DS.w 1 ; Abweichung der Auflsung Max: .DS.w 1 ; Grssere Abweichung Xa: .DS.w 1 ; Ya: .DS.w 1 ; Koordinaten des GrowBox Effekt Xe: .DS.w 1 ; Ye: .DS.w 1 ; X_Add: .DS.l 1 ; Zeiger auf die aktuellen Bildschirmwerte Y_Add: .DS.l 1 ; Off_Add: .DS.l 1 ; Y_Inc: .DS.w 1 ; Inkrement der Bildschirmwerte Off_Inc: .DS.l 1 ; X_Min: .DS.w 1 ; Grenzen der Bildschirmwerte X_Max: .DS.w 1 ; Y_Min: .DS.w 1 ; Y_Max: .DS.w 1 ; Pal3Save: .DS.w 1 ; Farbpalette 3 PalFSave: .DS.w 1 ; Farbpalette 15 ResoSave: .DS.w 1 ; Start-Auflsung UserKey: .DS.w 1 ; Tastendruck beim UserSetup UserSave: .DS.w 1 ; EndeFlag fr UserSetup Handle: .DS.w 1 ; Dateihandle inst_ok: .DS.w 1 ; Installationsstatus _ende: .DS.w 1