;¢;SOUBOR4.ASM¢;Ukazkovy modul pro HYPERTEXT¢;Raster/c.p.u., 2005¢;¢;¢ns equ 204¢vid equ $8000¢;¢;¢ org $7006¢;Program je urcen pro $7006, protoze hypertext ho nacita jako sekvencni data od adresy $7000 (nikoli jako Atari binarni soubor) a pak skace napevno na adresu $7006.¢;Soubor bude obsahovat na zacatku jeste 6 bytu hlavicky ktere se nactou na $7000-$7005.¢;Proto si davejte pozor, aby vas modulovy program pro hypertext byl cely v jednom bloku s jedinou hlavickou na zacatku.¢;¢start¢;promaze videopamet¢ ldy #0¢ tya¢na0 sta vid,y¢ iny¢ bne na0¢;¢;nastavi displaylist¢ lda #<dlist¢ sta 560¢ lda #>dlist¢ sta 561¢;¢;nastavi znakovou sadu¢ lda #$e0¢ sta 756¢;¢;povoli obraz¢ lda #34¢ sta 559¢;¢;inicializuje zvuk¢ lda #0¢ sta 53768¢ lda #3¢ sta 53775¢;¢;prevezme ukazatel na radek s parametry¢ lda $7000¢ sta ns¢ lda $7001¢ sta ns+1¢ ldy #0¢na1¢ lda (ns),y¢ cmp #155¢ beq na2¢ jsr CharToVideo¢ sta vid,y ;vypise na obrazovku¢ sta 53760 ;pouzije hodnotu jako zvuk¢ lda #165¢ sta 53761 ;hlasitost zvuku¢ lda #2¢ jsr Pauza ;chvilku pauza¢ iny¢ jmp na1¢;¢na2¢ lda #0¢ sta 53761 ;ztisi zvuk¢;¢ lda #255¢ sta 764¢na3¢ lda 764¢ cmp #255 ;ceka na libovolnou klavesu¢ beq na3 ¢;¢ lda #255¢ sta 764¢;¢;navrat do hypertextu¢ rts¢;¢;prepocita ATASCII na screen kod¢CharToVideo¢ cmp #96¢ bcs ct3¢ cmp #32¢ bcs ct2¢ adc #64 ;0-31 => +64¢ rts¢ct2 sbc #32 ;32-95 => -32¢ct3 rts¢;¢;pauza A padesatin sekundy¢Pauza¢ pha¢ lda #0¢ sta 20¢ pla¢pa2 cmp 20¢ bne pa2¢ rts¢;¢;displaylist¢dlist¢ dta 112,112,112¢ dta 112,112,112,112¢ dta 64+2,a(vid)¢ dta 2,2,2,2¢ dta 65,a(dlist)¢;¢;pokud by tento program spoustel nekdo z DOSu, pouzije se nasledujici rutina¢runadr¢ ldx #<info¢ ldy #>info¢ jsr $c642 ;putline¢;¢ lda #255¢ sta 764¢;¢rp1 lda 764¢ cmp #255 ;ceka na stisk klavesy¢ beq rp1¢;¢ lda #255¢ sta 764¢;¢ jmp (10) ;exit do DOSu¢;¢info dta c'Tento program je hypertextovy modul a neni urcen k samostatnemu spousteni.',$9b¢;¢;Nasledujici start adresa se pouzije jen v pripade, ze je program spusten z DOSu, ktery bude tento program nacitat jako standardni Atari binarni soubor.¢ org $2e0¢ dta a(runadr)¢;¢;konec
