of816/platforms/Neon816/platform-words.s

; Platform support dictionary words for Neon816

dword     MS,"MS"
          stz   WR+2
          jsr   _popay
          sta   WR+1
          tya
          xba
          sep   #SHORT_A
          .a8
          sta   WR
          rep   #SHORT_A
          .a16
          tya
          and   #$00FF            ; do the first 1-255 ms
:         jsr   _mswait
          lda   WR
          ora   WR+1
          beq   :+                ; done if WR is zero
          jsr   _decwr
          lda   #$0100
          bra   :-
:         NEXT
eword
getting ready for the Neon816 2019-11-21 02:22:11 +00:00			`; Platform support dictionary words for Neon816`

Neon816: replace buggy clock code; add MS delay word to platform 2020-04-02 07:11:38 +00:00			`dword MS,"MS"`
			`stz WR+2`
			`jsr _popay`
			`sta WR+1`
			`tya`
			`xba`
			`sep #SHORT_A`
			`.a8`
			`sta WR`
			`rep #SHORT_A`
			`.a16`
			`tya`
			`and #$00FF ; do the first 1-255 ms`
			`: jsr _mswait`
			`lda WR`
			`ora WR+1`
			`beq :+ ; done if WR is zero`
			`jsr _decwr`
			`lda #$0100`
			`bra :-`
			`: NEXT`
			`eword`