Код:
X18f7:
18F7 CD DC 0E call X0edc
18FA FE 50 cpi 50h ; ROWS
18FC D2 14 05 jnc X0514
18FF 4F mov c,a
1900 C5 push b
1901 CD D8 0E call X0ed8
1904 C1 pop b
1905 47 mov b,a
1906 FE 3C cpi 3ch ; LINES
1908 D2 14 05 jnc X0514
190B E5 push h
190C 21 10 DF lxi h,Xdf10 ; X,Y - 0,0
190F 11 B0 FF lxi d,Xffb0 ; 0-$FFB0=$50 ROWS
X1912:
1912 B7 ora a
1913 CA 1B 19 jz X191b
1916 19 dad d
1917 3D dcr a
1918 C3 12 19 jmp X1912
;
X191b:
191B 57 mov d,a
191C 59 mov e,c
191D 19 dad d
191E D1 pop d
191F C9 ret
;--- CUR
X1920:
1920 CD F7 18 call X18f7
1923 22 00 CB shld Xcb00
1926 3E 3D mvi a,3dh ; CURSOR - Y
1928 90 sub b
1929 67 mov h,a
192A 79 mov a,c
192B 32 63 20 sta X2063
192E C6 00 adi 0 ; CURSOR - X
1930 6F mov l,a
1931 22 02 CB shld Xcb02
1934 EB xchg
1935 C9 ret
;--- PLOT
1936 CD DC 0E call X0edc
1939 32 54 20 sta X2054
193C CD D8 0E call X0ed8
193F 32 55 20 sta X2055
1942 CD D8 0E call X0ed8
1945 32 56 20 sta X2056
X1948:
1948 3A 54 20 lda X2054
194B 00 NOP ; поставил - 0, оригинал - B7h
194C FA 14 05 jm X0514 ; переход при X>127
194F 3A 55 20 lda X2055
1952 FE 78 cpi 78h ; LINES*2 псевдографика - Y
1954 D2 14 05 jnc X0514
1957 AF xra a
1958 3A 54 20 lda X2054
195B 1F rar
195C 5F mov e,a
195D 79 mov a,c
195E 1F rar
195F 4F mov c,a
1960 AF xra a
1961 3A 55 20 lda X2055
1964 1F rar
1965 57 mov d,a
1966 79 mov a,c
1967 17 ral
1968 17 ral