After being bored with my mind from the sick work for the past few days, I decided to try and dig some old code. I wrote some binary versions of some ancient attic ST accessories, but I could not find any source.
Blast from the past: -)
P> ; Actually we sticks in modx - with 240 pages per scanline; You want to set the variable LSCAN variable to the length of the virtual scanline; Xs, CX, DX, DS, SI; However, there should be no issue in this matter, as you would like to call first! Set_X_240 PROC call set_Graph; Set mode 13h mov dx, Seq_Port mov ax, 00604 h; Index 4 (memory mode reg.) In AL; Bit 3 = chain 4dx, ax; Chain 4 mode kill silent ax, 00100 hours; Index 0 (Reset Reset.) DX in LA, AX; Reset synchronous (on the end bicycle) dec dx; Change Port DC DX; S-T Port for Miscellaneous: mov al, 11100011b out dx, al; Sets 480 Line Mode, 25 MHz Dot Clock Inc. DX; Change Port Ink DX; Back Sequencer port mov ax, DX out 00300h, ax; Restart controller mov dx, crtc_Port mov al, 012h out dx, al; Select index 11h (Vert.Retrace End) inc dx; Al, Dx in the data port; Read current bit masks and al, 07fh; 01111111 - Clean Top Bits (Write Defense) Outside DX, Al; CRTC Reg's un-write index 0-7 Dec dx; Restore Port To Index Moment Ax, CRCCTCTATOO; Our CRTC Data Mem DS, AUS COC, Offset CRTC- Data_240 MOV CX, LCRCTDATO4040; Data length; Chuck in port mop ax, LSKN lion ax, 3; Number of words per scan line mov ah, al; AH MOV Al, 013H; Port Index 013H - Logical Screen Width Out DX, Egg Mox NSKN, 240 Call Setpope Art Set_x_240 ENDP Anyone want to get old and post some old school code? :-) It is a shame that I do not have any 68,000 ASM stuffs so far, although I probably will not even recognize it!
Ah ... memories: -)
1 99 99 99 I was written and maintained during college. All c. It was an etymology of Diku Mid which was called Silimud, and at the time it was my pride and joy.
You can still find codes at interboots here and there.