1340: c94a 20 97 c8 fugg     jsr  kord	kezd�pont t�rc�m�nek kisz�m�t�sa       
1350: c94d 20 1e c9 f2       jsr  plot	pont be�ll�t�sa                        
1350: c950 a5 5c             lda  b	y ir�ny� nagys�g vizsg�lata               
1350: c952 d0 01             bne  f3                                          
1350: c954 60                rts  	ha nulla, akkor k�sz                       
1360: c955 c6 5c    f3       dec  b	y ir�ny� nagys�g cs�kkent�se              
1360: c957 20 69 ca          jsr  fl	ponthely mozgat�sa fel vagy le           
1360: c95a 4c 4d c9          jmp  f2	ugr�s a ciklus elej�re                   
1370:               ;                                                         
1380: c95d 20 97 c8 vizsz    jsr  kord	kezd�pont t�rc�m�nek kisz�m�t�sa       
1390: c960 20 1e c9 v2       jsr  plot	pont be�ll�t�sa                        
1390: c963 a5 5a             lda  aa	x ir�ny� nagys�g vizsg�lata              
1390: c965 d0 07             bne  v4                                          
1390: c967 a5 5b             lda  aa+1                                        
1390: c969 d0 01             bne  v3                                          
1390: c96b 60                rts  	ha nulla, akkor k�sz                       
1400: c96c c6 5b    v3       dec  aa+1	x ir�ny� nagys�g cs�kkent�se           
1410: c96e c6 5a    v4       dec  aa                                          
1410: c970 20 9c ca          jsr  jb	ponthely mozgat�sa jobbra vagy balra     
1410: c973 4c 60 c9          jmp  v2	ugr�s a ciklus elej�re                   
1420:               ;                                                         
1430: c976 a9 00    draw     lda  #0                                          
1430:  c978  85  5d              sta  c	milyen ir�nyba kell l�pni v�zszintesen
(jobbra)                                                                      
1430:  c97a  85  5e              sta  d	milyen ir�nyba kell l�pni f�gg�legesen
(le)                                                                          
1440: c97c 38                sec  	�tvitel-jelz� be�ll�t�sa                   
1440: c97d a5 b0             lda  x2	x2-x1 az x/y regiszterekbe               
1440: c97f e5 ae             sbc  x1                                          
1440: c981 aa                tax                                              
1440: c982 a5 b1             lda  x2+1                                        
1440: c984 e5 af             sbc  x1+1                                        
1440: c986 a8                tay                                              
1440:  c987  b0  0d             bcs  d1	ha x2>x1 (pozit�v a k�l�nbs�g�k) ugr�s
d1-re                                                                         
1450: c989 38                sec  	�tvitel-jelz� be�ll�t�sa                   
1450: c98a a5 ae             lda  x1	ha x2<x1 (negat�v a k�l�nbs�g�k)         
1450: c98c e5 b0             sbc  x2	x1-x2 az x/y regiszterekbe               
1450: c98e aa                tax                                              
1450: c98f a5 af             lda  x1+1                                        
1450: c991 e5 b1             sbc  x2+1                                        
1450: c993 a8                tay                                              
1460: c994 c6 5d             dec  c	balra kell majd l�pkedni a kezd�pontt�l   
1470: c996 86 5a    d1       stx  aa	x/y tartalma az egyenes v�zszintes m�rete
1470: c998 84 5b             sty  aa+1                                        
1480:               ;                                                         
1490: c99a 38                sec  	�tvitel-jelz� be�ll�t�sa                   
1490: c99b a5 b3             lda  y2	y2-y1 az a regiszterbe                   
1490: c99d e5 b2             sbc  y1                                          
1490:  c99f  b0  07             bcs  d2	ha y2>y1 (pozit�v a k�l�nbs�g�k) ugr�s
d2-re                                                                         
1500: c9a1 38                sec  	�tvitel-jelz� be�ll�t�sa                   
1500: c9a2 a5 b2             lda  y1	ha y2<y1 (negat�v a k�l�nbs�g�k)         
1500: c9a4 e5 b3             sbc  y2	y2-y1 az a regiszterbe                   
1510: c9a6 c6 5e             dec  d	jobbra kell majd l�pkedni a kezd�pontt�l  
1520: c9a8 85 5c    d2       sta  b                                           
1530:               ;                                                         
1540: c9aa a5 5a             lda  aa	ha az egyenesnek nincs x ir�ny� kit�r�se 
1540: c9ac 05 5b             ora  aa+1	f�gg�leges vonalat kell h�zni          
1540: c9ae f0 9a             beq  fugg                                        
1550: c9b0 a5 5c             lda  b	ha az egyenesnek nincs y ir�ny� kit�r�se  
1550: c9b2 f0 a9             beq  vizsz	v�zszintes vonalat kell h�zni         
1560: c9b4 38                sec  	�tvitel-jelz� be�ll�t�sa                   
1560: c9b5 a5 5a             lda  aa	ha a f�gg�leges kit�r�s nagyobb, mint a  
1560:  c9b7  e5  5c              sbc  b	v�zszintes kit�r�s, akkor ugr�s a fugr
rutinra                                                                       
1560: c9b9 a5 5b             lda  aa+1                                        
1560: c9bb e9 00             sbc  #0                                          
1560: c9bd 90 4c             bcc  fugr                                        
1570:               ;                                                         
1580:  c9bf  a5  5b                  lda  aa+1	aa elment�se m-be, mert az aa-t
k�s�bb felhaszn�ljuk                                                          
1580: c9c1 8d b4 ca          sta  m+1                                         
1580: c9c4 4a                lsr  a                                           
1580: c9c5 85 60             sta  sz+1	az sz sz�ml�l� az aa fele              
1580: c9c7 a5 5a             lda  aa                                          
1580: c9c9 8d b3 ca          sta  m                                           
1580: c9cc 6a                ror  a                                           
1580: c9cd 85 5f             sta  sz                                          
1590:  c9cf  20  97  c8              jsr  kord	a kezd�pontnak megfelel� t�rc�m
kisz�m�t�sa                                                                   
1600: c9d2 20 1e c9 vir      jsr  plot	pont be�ll�t�sa                        
1600: c9d5 a5 5a             lda  aa	x ir�ny� nagys�g vizsg�lata              
1600: c9d7 d0 07             bne  vir3	ha nulla, akkor k�sz                   
1600: c9d9 a5 5b             lda  aa+1                                        
1600: c9db d0 01             bne  vir2                                        
1600: c9dd 60                rts  	visszat�r�s a szubrutinb�l                 
1610: c9de c6 5b    vir2     dec  aa+1	x ir�ny� nagys�g cs�kkent�se           
1620: c9e0 c6 5a    vir3     dec  aa                                          
1630: c9e2 20 9c ca          jsr  jb	ponthely mozgat�sa jobbra vagy balra     
1640: c9e5 18                clc  	�tvitel jelz� t�rl�se                      
1640: c9e6 a5 5f             lda  sz	sz:=sz+b                                 
1640: c9e8 65 5c             adc  b                                           
1640: c9ea 85 5f             sta  sz                                          
1640: c9ec a5 60             lda  sz+1                                        
1640: c9ee 69 00             adc  #0                                          
1640: c9f0 85 60             sta  sz+1                                        
1650: c9f2 38                sec  	�tvitel-jelz� be�ll�t�sa                   
1650: c9f3 a5 5f             lda  sz                                          
1650: c9f5 ed b3 ca          sbc  m                                           
1650: c9f8 aa                tax                                              
1650: c9f9 a5 60             lda  sz+1                                        
1650: c9fb ed b4 ca          sbc  m+1                                         
1650:  c9fe  90  d2               bcc  vir	ha sz<m visszat�r�s a rajzol�ciklus
elej�re                                                                       
1660: ca00 85 60             sta  sz+1                                        
1660: ca02 8a                txa                                              
1660: ca03 85 5f             sta  sz	sz:=sz:m                                 
1660: ca05 20 69 ca          jsr  fl	ponthely mozgat�sa fel vagy le           
1660: ca08 4c d2 c9          jmp  vir	visszat�r�s a rajzol�ciklus elej�re     
1670:               ;                                                         
1680:  ca0b  a9  00      fugr     lda  #0	b elment�se m-be, mivel a b-t k�s�bb
felhaszn�ljuk                                                                 
1680: ca0d 85 60             sta  sz+1	az sz sz�ml�l� a b fele                
1680: ca0f a5 5c             lda  b                                           
1680: ca11 8d b3 ca          sta  m                                           
1680: ca14 4a                lsr  a                                           
1680: ca15 85 5f             sta  sz                                          
1690:  ca17  20  97  c8              jsr  kord	a kezd�pontnak megfelel� t�rc�m
kisz�m�t�sa                                                                   
1700: ca1a 20 1e c9 fur      jsr  plot	pont be�ll�t�sa                        
1700: ca1d a5 5c             lda  b	y ir�ny� nagys�g vizsg�lata               
1700: ca1f d0 01             bne  fur2	ha nulla, akkor k�sz                   
1700: ca21 60                rts  	visszat�r�s a szubrutinb�l                 
1710: ca22 c6 5c    fur2     dec  b	y ir�ny� nagys�g cs�kkent�se              
1710: ca24 20 69 ca          jsr  fl	ponthely mozgat�sa fel vagy le           
1720: ca27 18                clc  	�tvitel jelz� t�rl�se                      
1720: ca28 a5 5f             lda  sz	sz:=sz+aa                                
1720: ca2a 65 5a             adc  aa                                          
1720: ca2c 85 5f             sta  sz                                          
1720: ca2e a5 60             lda  sz+1                                        
1720: ca30 65 5b             adc  aa+1                                        
1720: ca32 85 60             sta  sz+1                                        
1730: ca34 38                sec  	�tvitel-jelz� be�ll�t�sa                   
1730: ca35 a5 5f             lda  sz                                          
1730: ca37 ed b3 ca          sbc  m                                           
1730: ca3a aa                tax                                              
1730: ca3b a5 60             lda  sz+1                                        
1730: ca3d e9 00             sbc  #0                                          
1730:  ca3f  90  d9               bcc  fur	ha sz<m visszat�r�s a rajzol�ciklus
elej�re                                                                       
1740: ca41 85 60             sta  sz+1                                        
1740: ca43 8a                txa  	                                           
1740: ca44 85 5f             sta  sz	sz:=sz:m                                 
1740: ca46 20 9c ca          jsr  jb	ponthely mozgat�sa jobbra vagy balra     
1740: ca49 4c 1a ca          jmp  fur	visszat�r�s a rajzol�ciklus elej�re     
1750:               ;                                                         
1760: ca4c a5 58    le       lda  cim	ha karakterhat�ron van, ugr�s az as2-re 
1760: ca4e 29 07             and  #7                                          
1760: ca50 c9 07             cmp  #7                                          
1760: ca52 f0 07             beq  as2                                         
1770: ca54 e6 58             inc  cim	mem�riac�m n�vel�se                     
1770: ca56 d0 02             bne  as                                          
1770: ca58 e6 59             inc  cim+1                                       
1780: ca5a 60       as       rts  	visszat�r�s a szubrutinb�l                 
1790: ca5b 18       as2      clc  	�tvitel jelz� t�rl�se                      
1790: ca5c a5 58             lda  cim	cim:=cim+313                            
1790: ca5e 69 39             adc  #<313                                       
1790: ca60 85 58             sta  cim                                         
1800: ca62 a5 59             lda  cim+1                                       
1800: ca64 69 01             adc  #>313                                       
1800: ca66 85 59             sta  cim+1                                       
1810: ca68 60                rts  	visszat�r�s a szubrutinb�l                 
1820:               ;                                                         
1830: ca69 a5 5e    fl       lda  d	ponthely mozgat�sa fel vagy le            
1830: ca6b 10 df             bpl  le                                          
1840:               ;                                                         
1850: ca6d a5 58    fel      lda  cim	ha karakterhat�ron van, ugr�s az fe2-re 
1850: ca6f 29 07             and  #7                                          
1850: ca71 f0 09             beq  fe2                                         
1860: ca73 a5 58             lda  cim	c�m cs�kkent�se eggyel                  
1860: ca75 d0 02             bne  fe                                          
1860: ca77 c6 59             dec  cim+1                                       
1870: ca79 c6 58    fe       dec  cim                                         
1870: ca7b 60                rts  	visszat�r�s a szubrutinb�l                 
1880: ca7c 38       fe2      sec  	�tvitel-jelz� be�ll�t�sa                   
1880: ca7d a5 58             lda  cim	cim:=cim:313                            
1880: ca7f e9 39             sbc  #<313                                       
1880: ca81 85 58             sta  cim                                         
1890: ca83 a5 59             lda  cim+1                                       
1890: ca85 e9 01             sbc  #>313                                       
1890: ca87 85 59             sta  cim+1                                       
1900: ca89 60                rts  	visszat�r�s a szubrutinb�l                 
1910:               ;                                                         
1920: ca8a 46 57    jobb     lsr  bt	bitmaszk mozgat�sa jobbra                
1920: ca8c 90 0d             bcc  jo	ha karakteren bel�l marad, ugr�s jo-ra   
1930: ca8e 66 57             ror  bt	bitmaszk 7. bitj�nek be�ll�t�sa          
1940: ca90 a5 58             lda  cim                                         
1940: ca92 18                clc  	�tvitel jelz� t�rl�se                      
1940: ca93 69 08             adc  #8	c�m n�vel�se nyolccal                    
1940: ca95 85 58             sta  cim                                         
1940: ca97 90 02             bcc  jo                                          
1940: ca99 e6 59             inc  cim+1                                       
1950: ca9b 60       jo       rts  	visszat�r�s a szubrutinb�l                 
1960:               ;                                                         
1970: ca9c a5 5d    jb       lda  c	ponthely mozgat�sa jobbra vagy balra      
1970: ca9e 10 ea             bpl  jobb                                        
1980:               ;                                                         
1990: caa0 06 57    bal      asl  bt	bitmaszk mozgat�sa balra                 
1990: caa2 90 0d             bcc  ba	ha karakteren bel�l marad, ugr�s ba-ra   
2000: caa4 26 57             rol  bt	bitmaszk 0. bitj�nek be�ll�t�sa          
2010: caa6 a5 58             lda  cim                                         
2010: caa8 38                sec  	�tvitel-jelz� be�ll�t�sa                   
2010: caa9 e9 08             sbc  #8	c�m cs�kkent�se nyolccal                 
2010: caab 85 58             sta  cim                                         
2010: caad b0 02             bcs  ba                                          
2020: caaf c6 59             dec  cim+1                                       
2030: cab1 60       ba       rts  	visszat�r�s a szubrutinb�l                 
2040: cab2 00       flag     .byte 0	ki/bekapcsol�s jelz�                     
2050: cab3 00 00    m        .word 0	aa vagy b t�rol�helye                    
]c800-cab5                                                                    
	(by ASTER)                                                                   
	                                                                             
 1>;                                                                          

   while <kifejez�s 2> {                                                     

         <utas�t�s>                                                          

         <kifejez�s 3>                                                       

   }