Changes

Jump to: navigation, search

CRTC

116 bytes removed, 18 April
/* CRTC Type Detection */
<pre>
10 MODE 1:' Reinitialize screen
20 OUT &BC00,1231:IF INP(&BF00)=0 255 THEN GOTO 80PRINT"crtc 1":END30 ' If we are hereOUT &BC00, it is a CRTC0 or 3/412:IF INP(&BF00)=0 THEN PRINT"crtc 2":END40 OUT &BC00,20:IF INP(&BF00)=0 THEN GOTO 60PRINT"crtc 0":END
50 PRINT"crtc 3/4":END
60 PRINT"crtc 0":END
70 ' If we are here, it is a CRTC1 or 2
80 OUT &BC00,31:IF INP(&BF00)=0 THEN GOTO 100
90 PRINT"crtc 1":END
100 PRINT"crtc 2":END
</pre>
 
== CRTC Timing Diagram ==
4,263
edits