🚀 go-pugleaf

> The actual code that synchronizes page display with video refresh.

Here it is:

(Originally based on code by Zax of the Phoney Coders)

Joshua Jensen

begin 750 retrace.asm
M:61E86P-"FQO8V%L<R!`0`T*#0IM;V1E;"!,87)G90T*#0IC;V1E<V5G#0H-
M"D]L9$EN=#`X"61D"3`-"E)E=')A8V5#;W5N=`ED8@DP#0H-"E1I;65R4W!E
M960@("`@(&5Q=2`Q-C4W,@D).R`Q+#$Y,RPQ.#(@9&EV(#<P("`H22!T:&EN
M:RD-"@T*<')O8PE->51I;65R#0H-"CM#86QL('1H92!O;&0@=&EM97(@:6YT
M97)R=7!T(')O=71I;F4@:&5R92XN+@T*#0H)<'5S:"!A>"!D>"!D<PT*"6EN
M8R`@6T)Y=&4@8W,Z4F5T<F%C94-O=6YT70T*#0H[5&AE('1I;65R(&ES(&YO
M="`Q,#`E(&%C8W5R871E+"!A9&IU<W0@=VET:"!V97)T:6-A;"!R971R86-E
M(&%G86EN#0H[5V%I="!F;W(@=F5R=&EC86P@<F5T<F%C90T*#0H);6]V("!D
M>"PP,T1!:`D)("`@("`@.T18(#T@0U)40R!3=&%T=7,@4&]R=`T*0$`Q.@T*
M"6EN("`@86PL9'@)"2`@("`@(#M296%D('1H92!P;W)T#0H)86YD("!A;"PX
M"0D@("`@("`[27,@82!V97)T:6-A;"!R971R86-E(&%C=&EV93\-"@EJ>B`@
M('-H;W)T($!`,0T*#0H[4F5S970@=&AE('1I;65R#0H);6]V("!A;"PS-&@-
M"@EO=70@(#0S:"QA;`T*.U=R:71E('1H92!N97<@<W!E960-"@EM;W8@(&%X
M+%1I;65R4W!E960-"@EO=70@(#0P:"QA;`T*"6UO=B`@86PL86@-"@EO=70@
M(#0P:"QA;`T*#0H[4VEG;F%L($5/22`H96YD+6]F+6EN=&5R<G5P="D-"@EM
M;W8@(&%L+#(P:`D)("`@("`@.T%,(#T@,C!H("A%3TDI#0H);W5T("`R,&@L
M86P)"2`@("`@(#M3:6=N86P@14])('1O(&5N86)L92!N97AT#0H)"0D)"0D)
M"0D)"0D)"0D[(&EN=&5R<G5P=`T*#0H)<&]P("!D<R!D>"!A>`T*"6ER970-
M"F5N9'`)37E4:6UE<@T*#0H[($5N86)L92!T:&4@=F5R=&EC86P@<F5T<F%C
M92!T:6UE<B!I;G1E<G)U<'0-"@T*<')O8PE%;F%B;&5?5&EM97(-"@EC;&D-
M"@EX;W()87@L87@-"@EM;W8)97,L87@)"0D[15,@<&]I;G1S('1O('1H92!F
M:7)S="!S96=M96YT#0H);6]V"6%X+%ME<SHX*C1=#0H);6]V"5M7;W)D(&-S
M.D]L9$EN=#`X72QA>`T*("`@("`@("!M;W8@("`@(&%X+%ME<SHX*C0K,ET-
M"@EM;W8)6U=O<F0@8W,Z3VQD26YT,#@K,ETL87@-"B`@("`@("`@;6]V("`@
M("!;5V]R9"!E<SHX*C1=+&]F9G-E="!->51I;65R#0H);6]V"5M7;W)D(&5S
M.C@J-"LR72QC<PT*#0H[5V%I="!F;W(@=&AE(&)E9VEN;FEN9R!O9B!V97)T
M:6-A;"!R971R86-E#0H[5V%I="!F;W(@;F\@=F5R=&EC86P@<F5T<F%C90T*
M0$`Q.@EM;W8)9'@L,#-$06@)"2`[1%@@/2!#4E1#(%-T871U<R!0;W)T#0H)
M:6X)86PL9'@)"0D@.U)E860@=&AE('!O<G0-"@EA;F0)86PL.`D)"2`[27,@
M82!V97)T:6-A;"!R971R86-E#0H):FYZ"4!`,0T*#0H[5V%I="!F;W(@=F5R
M=&EC86P@<F5T<F%C90T*0$`R.@T*"6EN"6%L+&1X"0D)(#M296%D('1H92!P
M;W)T#0H)86YD"6%L+#@)"0D@.TES(&$@=F5R=&EC86P@<F5T<F%C90T*"6IZ
M"5-H;W)T($!`,@T*#0H[4V5T('1H92!N97<@=&EM97(@<W!E960-"@EM;W8@
M(&%L+#,T:`D)("`@("`@.T%,(#T@,S1H#0H);W5T("`T,V@L86P)"2`@("`@
M(#M7<FET92!!3"!T;R!P;W)T(#0S:`T*#0H[5W)I=&4@=&AE(&YE=R!S<&5E
M9`T*"6UO=B`@87@L5&EM97)3<&5E9`T*"6]U="`@-#!H+&%L#0H);6]V("!A
M;"QA:`T*"6]U="`@-#!H+&%L#0H-"@ES=&D)"0D@("`@("`[16YA8FQE(&EN
M=&5R<G5P=',-"@ER970-"F5N9'`)16YA8FQE7U1I;65R#0H-"G!R;V,)1&ES
M86)L95]4:6UE<@T*"6-L:0D)"0D[1&ES86)L92!I;G1E<G)U<'1S#0H)>&]R
M("!A>"QA>`T*"6UO=B`@97,L87@)"0D[15,@<&]I;G1S('1O('1H92!F:7)S
M="!S96=M96YT#0H)"0D)"0D)"0D)"0D)"0D[("AI;G1E<G)U<'0@=F5C=&]R
M('1A8FQE*0T*"6UO=@EA>"Q;5V]R9"!C<SI/;&1);G0P.%T-"@EM;W8)6U=O
M<F0@97,Z."HT72QA>`T*"6UO=@EA>"Q;5V]R9"!C<SI/;&1);G0P."LR70T*
M"6UO=@E;5V]R9"!E<SHX*C0K,ETL87@-"@T*.U)E<V5T('1H92!T:6UE<B!S
M<&5E9`T*"6UO=B`@86PL,S1H#0H);W5T("`T,V@L86P)"2`@("`@(#M7<FET
M92!!3"!T;R!P;W)T(#0S:`T*#0H[5W)I=&4@=&AE(&]R:6=I;F%L('-P965D
M#0H)>&]R("!A;"QA;`D)("`@("`@.U=R:71E(#`@=&\@<&]R="`T,&@-"@EO
M=70@(#0P:"QA;`T*"6]U="`@-#!H+&%L#0H-"@ES=&D-"@ER970-"F5N9'`)
91&ES86)L95]4:6UE<@T*#0H)96YD#0H-"@
`
end