 
Т > SWMode/src v1.20 $Т Select thin MODEs 8-14 in SRAM Т by J.G.Harston (: 2#Рassem(0):ь:Рassem(2):Рsm_table <FA$="*SAVE "+fname$+" "+ц~(mcode%+M%)+" "+ц~O%+" FFFF0000 FFFBBC00" FЯA$;:ЪA$:Я PЮ Z: dщРassem(pass%) n*OSBYTE=&FFF4:OSWRCH=&FFEE:RAWVDU=&FFBC xч mcode% &1000, L%-1 ┌wrchv=&20E:vduq=&26A:zp=&A8 ▄Intercept=&380 √fname$="SWMode" ═: ╙Ц pass%=pass% ╦ pass%+1 Єopt%=єsm_pass(pass%) Ў
O0%=O% х[OPT opt% р.rombase эBRK:EQUW RelocTable ФJMP Serv ПEQUB &82 ЗEQUB copyright-rombaseEQUB &12EQUS "NewModes"!BRK:EQUS "1.20 (20 May 1993)"".copyright,BRK:EQUS "(C)J.G.Harston"6BRK@:J	.ServT6CMP #1:BEQ Serv1   :\ Set up intercept, not Master^2CMP #&27:BEQ Serv27:\ Set up intercept, Masterh!CMP #&FE:BEQ ServFE:\ ExploderRTS|:├
.Serv1░&PHA:TYA:PHA:JSR WhatOS:BCS ServEnd JSR Serv27:BNE ServEndє:ў.ServFE╦&PHA:TYA:PHA:JSR WhatOS:BCS ServEndб$LDA ModeFlag-CodeStart+Interceptл/─ #&3F:BNE ServEnd:\ ModeFlag<>0 - disabledжJSR ExplodeCharsЮ.ServEndЙPLA:TAY:LDX &F4:PLA:RTSТ:Ч.Serv27$LDA ModeFlag-CodeStart+Intercept1─ #&3F:BNE Serv27End:\ ModeFlag<>0 - disabledLDX #CodeEnd-CodeStart&.Serv27Lp0#LDA CodeStart,X:STA Intercept,X:DEX:BPL Serv27Lp:LDX &F4D$STX RomNum+1-CodeStart+InterceptN1LDA wrchv+0:STA OldWRCH+1-CodeStart+InterceptX1LDA wrchv+1:STA OldWRCH+2-CodeStart+Interceptb8LDA #(NewWRCH-CodeStart+Intercept) ─ 255:STA wrchv+0l8LDA #(NewWRCH-CodeStart+Intercept) │ 256:STA wrchv+1v.Serv27End─LDA #&27:RTS┼:■.CodeStart·<.ModeFlag:\ b7=intercept pending, b6=previously new mode╗BRK╡.NewWRCH╪$BIT ModeFlag-CodeStart+InterceptфBMI ModePendingпBIT vduq:BMI OldWRCHзCMP #22:BEQ ModePendingД.OldWRCHН	JMP 0Ь.ModePendingPHA:LDA &F4:PHA.RomNumLDA #0:STA &F4:STA &FE30 JSR DoMode:\ Call ROM code*PLA:STA &F4:STA &FE304PLA:RTS>.CodeEndH:R.DoMode\/LDA ModeFlag-CodeStart+Intercept:BMI ModeGof,└A #&80:STA ModeFlag-CodeStart+Interceptp+LDA #22:JMP OldWRCH-CodeStart+Interceptz:└.ModeGo▌-TXA:PHA:TYA:PHA:LDA zp+1:PHA:LDA zp+0:PHA≤1TSX:LDA &108,X:PHA             :\ Mode number╒9JSR OldWRCH-CodeStart+Intercept:\ Complete the К call╛6TAX:LDA &27C:─ #2            :\ Check *FX settingsІ7BNE ModeExitDone               :\ О output disabledю4LDA &D0:BMI ModeExitDone:TXA   :\ О 21 in effectй─ #&7F:CMP #10:BEQ OldModeт─ #&78:CMP #8:BEQ NewModeч:Х.OldModeР$BIT ModeFlag-CodeStart+InterceptЭ9BVC ModeExitDone               :\ Already in an old К=ASL A:BMI ModeExitDone         :\ Don't reset if К b6 set1JSR ExplodeChars               :\ Reset chars.ModeExitDone$PLA:LDA #0..ModeExit8$STA ModeFlag-CodeStart+InterceptB-PLA:STA zp+0:PLA:STA zp+1:PLA:TAY:PLA:TAXLRTSV:`.NewModejJSR WhatOS:BCS ModeExplodedt<LDA &246:CMP #6:BCC OldMode    :\ Not exploded, do old К~.ModeExploded┬ALDA #22:JSR RAWVDU             :\ Send К directly to О driver▓3PLA:PHA:─ #&80:STA zp        :\ Save shadow bit°4PLA:PHA:─ #7:ASL A:ASL A:PHA :\ Index into tableі/TAX:LDA ModeTable+3,X:└A zp   :\ Get base К╟JSR RAWVDU╨>PLA:TAX:PLA:─ #127           :\ Get table index and К backдCMP #7:BNE NotMode7н&LDA #2:STA &FE00:LDA #53:STA &FE01ь.NotMode7Б;TXA:PHA                        :\ Save index into tableЛLDA ModeTable+3,X:LSR AЖLLSR A:LSR A:BEQ ModeColours    :\ Don't need to change number of colours 3STA &360:LDA #20:JSR RAWVDU    :\ Reset palette
.ModeColours:PLA:TAX                        :\ Get table index back+LDA ModeTable+0,X:STA &30A     :\ Width(/LDA ModeTable+1,X:STA &34F     :\ Byte/Char2,LDA ModeTable+2,X:TAX          :\ Cursor<LSR A:BCC ModeAdustF$LDA #&55:STA &363:ASL A:STA &362PLDA #1:STA &361Z.ModeAdustd2LDA #154:JSR OSBYTE            :\ Set VideoULAn8BIT ModeFlag-CodeStart+Intercept:BVS AlreadyExplodedx:┌ \ Now define thin characters▄LDX #32√LDA chars+0:STA zp+0═LDA chars+1:STA zp+1╙.defn_lp1ЄTXA:PHAЎLDA #23:JSR RAWVDUхPLA:PHA:JSR RAWVDUр
LDY #0э.defn_lp2ФPLA:PHA:LSR A:TYA:PHAПLDA (zp),Y:BCC defn_lp3ЗASL A:ASL A:ASL A:ASL A.defn_lp3─ #&F0:JSR RAWVDU#PLA:TAY:INY:CPY #8:BNE defn_lp2""PLA:TAX:INX:LSR A:BCC defn_lp1,TYA:CLC:ADC zp+0:STA zp+06LDA #0:ADC zp+1:STA zp+1@TXA:BNE defn_lp1J.AlreadyExplodedTLDA #&40:JMP ModeExit^:h.WhatOSr<LDA #0:LDX #1:JSR OSBYTE:CPX #3:RTS:\ CC=B/B+, CS=Master|:├.ExplodeChars░>LDA #20:LDX #6:JSR OSBYTE:LDA #25:JMP OSBYTE:\ Reset chars :є
EQUB 0ў.ModeTable╦4\ colours+basemode, ULA value, bytes/char, widthб6EQUD &0198084F:\ mode 8   80x32x4     4-colour К 0л6EQUD &02D41027:\ mode 9   40x32x16   16-colour К 1жQEQUD &82F42013:\ mode 10  20x32x16  256-colour К 2 not possible -> 16 coloursЮ6EQUD &1B98084F:\ mode 11  80x25x4     4-colour К 3ЙHEQUD &05840827:\ mode 12  40x32x2     4-colour К 4, small-memory К 1ТHEQUD &7DC11013:\ mode 13  20x32x4    16-colour К 5, small-memory К 2Ч6EQUD &1E840827:\ mode 14  40x25x4     4-colour К 6%EQUD &074A0127:\ mode 15  40x25x8:.chars:EQUW Chars:.Chars&1]:Ъ"LOAD ThinSet "+ц~O%:P%=P%+&380:O%=O%+&3800RelocTable=P%:М:АD:Nщєsm_pass(pass%)XГpass%=0:M%=0bГpass%=1:M%=O%-mcode%lP%=&8100-128*(pass%─2)vO%=mcode%+M%*(pass%─2)│2─/Гpass%=1:Г O%+M%*2.125>L%:Я"Code overrun":Ю┼=╩а"4647",pass%+1,1)■:·щРsm_table╗>base80%=mcode%+M%:base81%=mcode%:byte%=0:count%=0:off%=0:У╡Pbyte80%=base80%?off%:byte81%=base81%?off%:Г off%>=M%:byte80%=&80:byte81%=&80╪]Г ((byte81%-byte80%) ─ &FE)<>0 ▄ Я "ERROR: Offset by more than one page at &";~&8000+off%фMГ (byte80% ─ &C0)=&80:byte%=byte%│2+128*(byte81%-byte80%):count%=count%+1п1Г count%=8:?O%=byte%:O%=O%+1:byte%=0:count%=0з$off%=off%+1:Щoff%>=M% ─ count%=0ДАЪ