home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #1 / Floppy_Magazine_87-1_1987_Megasystems_Oy_fi_Side_A.d64 / niksit1_87.pal < prev    next >
Text File  |  2023-02-26  |  6KB  |  76 lines
  1.   {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-@}{CBM-@}    {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-@}{CBM-@}{CBM-@}{CBM-@}  {CBM-@}{CBM-@}{CBM-@}{CBM-@}  {CBM-@}{CBM-@}  {CBM-@}{CBM-@}    {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P} {CBM-P}{CBM-P}    {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P} {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P} {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P} {CBM-P}{CBM-P}  {CBM-P}{CBM-P}    {CBM-O}{CBM-O}    {CBM-O}{CBM-O}    {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O} {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O} {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O} {CBM-O}{CBM-O}  {CBM-O}{CBM-O}    {CBM-I}{CBM-I}{CBM-I}{CBM-I}  {CBM-I}{CBM-I}    {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {CBM-I}{CBM-I}  {CBM-I}{CBM-I}    {CBM-I}{CBM-I}{CBM-I}{CBM-I}  {CBM-I}{CBM-I}    {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {CBM-I}{CBM-I}{CBM-I}{CBM-I}  {CBM-I}{CBM-I}{CBM-I}{CBM-I}   {CBM-I}{CBM-I}{CBM-I}{CBM-I}     {CBM-U}{CBM-U}    {CBM-U}{CBM-U}    {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U} {CBM-U}{CBM-U}    {CBM-U}{CBM-U}      {CBM-U}{CBM-U}      {CBM-U}{CBM-U}    {CBM-U}{CBM-U}    {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U} {CBM-U}{CBM-U}    {CBM-U}{CBM-U}      {CBM-U}{CBM-U}      {CBM-Y}{CBM-Y}    {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y} {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y} {CBM-Y}{CBM-Y}    {CBM-Y}{CBM-Y}      {CBM-Y}{CBM-Y}      {CBM-T}{CBM-T}    {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}    {CBM-T}{CBM-T}      {CBM-T}{CBM-T}                                                       M A G A Z I N E N                                                           ( J A  T. L U O T E E N )                                                            U U S I M M A T               {CBM-@}{CBM-@}   {CBM-@}{CBM-@} {CBM-@}{CBM-@} {CBM-@}{CBM-@}   {CBM-@}{CBM-@}  {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}     {CBM-P}{CBM-P}  {CBM-P}{CBM-P}  {CBM-P}{CBM-P} {CBM-P}{CBM-P}  {CBM-P}{CBM-P}  {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P} {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}     {CBM-O}{CBM-O} {CBM-O}{CBM-O}   {CBM-O}{CBM-O} {CBM-O}{CBM-O} {CBM-O}{CBM-O}   {CBM-O}{CBM-O}{CBM-O} {CBM-O}{CBM-O}{CBM-O}    {CBM-O}{CBM-O}        {CBM-I}{CBM-I}{CBM-I}{CBM-I}    {CBM-I}{CBM-I} {CBM-I}{CBM-I}{CBM-I}{CBM-I}    {CBM-I}{CBM-I}   {CBM-I}{CBM-I}    {CBM-I}{CBM-I}        {CBM-I}{CBM-I}{CBM-I}     {CBM-I}{CBM-I} {CBM-I}{CBM-I}{CBM-I}     {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}    {CBM-I}{CBM-I}        {CBM-U}{CBM-U}{CBM-U}{CBM-U}    {CBM-U}{CBM-U} {CBM-U}{CBM-U}{CBM-U}{CBM-U}    {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}    {CBM-U}{CBM-U}        {CBM-U}{CBM-U} {CBM-U}{CBM-U}   {CBM-U}{CBM-U} {CBM-U}{CBM-U} {CBM-U}{CBM-U}   {CBM-U}{CBM-U}{CBM-U} {CBM-U}{CBM-U}{CBM-U}    {CBM-U}{CBM-U}        {CBM-Y}{CBM-Y}  {CBM-Y}{CBM-Y}  {CBM-Y}{CBM-Y} {CBM-Y}{CBM-Y}  {CBM-Y}{CBM-Y}  {CBM-Y}{CBM-Y}   {CBM-Y}{CBM-Y}    {CBM-Y}{CBM-Y}        {CBM-T}{CBM-T}   {CBM-T}{CBM-T} {CBM-T}{CBM-T} {CBM-T}{CBM-T}   {CBM-T}{CBM-T} {CBM-T}{CBM-T}   {CBM-T}{CBM-T}    {CBM-T}{CBM-T}
  2.  
  3.  
  4.   ...ARVATKAAS, MIT{SHIFT-+} KELLO ON NYT, KUN    TEEN T{SHIFT-+}T{SHIFT-+} JUTTUA???!
  5.    - KELLO ON PUOLI YKSI Y{CBM--}LL{SHIFT-+}!!          JOSTAIN SYYST{SHIFT-+} OLEN AIVAN R{SHIFT-+}TTIV{SHIFT-+}SY-    NYT, MUTTA YRIT{SHIFT-+}N SAADA T{SHIFT-+}M{SHIFT-+}N PALSTAN   NYT SAMANTIEN LOPPUUN.
  6.    - KOKOSIN T{SHIFT-+}SS{SHIFT-+} TAAS PARIT KIKAT,      JA SAMALLA KEKSIN SAMALLA LIS{SHIFT-+}{SHIFT-+}...
  7.  
  8.  
  9.   T[ll[ kertaa kikat suuntautuvat         niin kuin tuonne KONEKIELEN pariin,     mutta [lk[[ nyt kuitenkaan BASICISTIT   hermostuko, yrit[n aina keksi[ teil-    lekin JOTAIN...
  10.  
  11.  
  12.   DATAN SIIRT{SHIFT-+}MINEN PAIKASTA TOISEEN:
  13.   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  14.   - Basicin rutiineja on helppo k[ytt[[   hyv[ksi omissakin ohjelmissa. T[ss[     esimerkki.
  15.  
  16.   LDA # LOW BYTE   = Siirrett[v[n         LDY # HI BYTE      data-alueen          STA $ 5F           alkumuistipaikka     STY $ 60           (esim. $ 1000)                                               LDA # LOW BYTE   = Siirrett[v[n         LDY # HI BYTE      data-alueen          STA $ 5A           loppumuistipaikka    STY $ 5B           (esim. $ 2000)                                               LDA # LOW B.  = Kohde data-alueen,      LDY # HI B.     jonne data aiotaan      STA $ 58        siirt[[, loppumuisti-   STY $ 59        paikka (esim. $ 7000)                                           JSR $ A3BF    = Hyp[t[[n Basicin                        siirtorutiiniin         RTS           = Paluu p[[ohjelmaan
  17.  
  18.   K[ytett[ess[ esim-arvoja ohjelma        siirt[isi alueelta $1000-2000 datan     alueelle $6000-7000.
  19.  
  20.     Jos jotenkin on mielest[ unohtunut,   MIK{SHIFT-+} ON LOW/HI BYTE, niin kerrataan.    Otetaan joku muistipaikka. Vaikkapa     $ 1000. Haluamme tiet[[ sen LO ja HI    bytet esim juuri t[h[n ohjelmaan.         Ensin LO. Saamme tiet[[ sen YKSIN-    KERTAISESTI PUOLITTAMALLA LUVUN KES-    KELT{SHIFT-+} niin, ett[ saamme arvot #$ 10     ja #$ 00. J[lkimm[inen, arvoltaan       #$ 00, on LO-arvo ja #$ 10 on HI-arvo   ko. luvusta. HELPPO JUTTU!
  21.   - Ja jos ihmettelet, miksi pist[mme     arvot NOLLASIVULLE ja siell[ aivan      kummiin paikkoihin, voin sanoa, ett[    ko. m-paikat ovat Basicin k[ytt[m[ll[   numeerisella ty\alueella ja muualta     Basic ei n[it[ tietoja osaisi etsi[.
  22.  
  23.  
  24.   JATKOA JOULUN FLOPPIKSEN NORMALISOIN-   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}   TIKIKKOIHIN:
  25.   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  26.   - Jos muistatte (ja jos ette), niin     viime Floppyss[ oli parit SYSsit        eri muistipaikkojen normalisoimiseksi.  Neh[n olivat  SYS 65409 : SYS 64789.
  27.   Sarjaan tuli taas yksi SYSsi lis[[:
  28.  
  29.   SYS 64931   (JSR $FDA3 ohjelmassa)
  30.  
  31.   Sekin resetoi vektoreita ym. koneen     sis[lt[. Taas enemm[n irti n[ill[..
  32.   - Esim. jos haluat musiikki-inter-      ruptin pois p[[lt[ kirjoitat TIETYSTI   SYS 64789. MUTTA {SHIFT-+}{SHIFT-+}NI J{SHIFT-+}{SHIFT-+} HUONOLLA      S{SHIFT-+}K{SHIFT-+}LL{SHIFT-+} SOIMAAN! Nyt kirjoitat vain     rauhallisesti, itsevarmana MAHTAVAN     SYSsin  SYS 64931, JA MIT{SHIFT-+} IHMETT{SHIFT-+}      TAPAHTUUKAAN!!! SE KAUHEA VINKUNA ON    TIPOTIESS{SHIFT-+}{SHIFT-+}N!!! Huh!
  33.  
  34.  
  35.   LEVYKIKKOJA:
  36.   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  37.   - KUINKA SAADAAN LEVARIN OMITUISET      RUTINAT POIS??
  38.   - KOKEILE T{SHIFT-+}T{SHIFT-+}:
  39.  
  40.   OPEN 15,levarin nro,15
  41.   PRINT#15,"M-W"+CHR$(106)+CHR$(0)+                      CHR$(1)+CHR$(128)
  42.   CLOSE15
  43.  
  44.   (Levarin numero on normaalisti 8.)
  45.  
  46.  
  47.   - HALUATKO LEVARIN LEDI-VALON VILKKU-   MAAN KAUNIISTI??
  48.   - KIRJOITA OHEINEN OHJELMA ja varo      datan kirjoitusvirheit[!
  49.  
  50.   0 REM ** LEDI VILKKUU. BY T.LUODE **
  51.   1 OPEN 1,8,15
  52.   2 FOR I= 0 TO 44: READ A
  53.   3 PRINT #1,"M-W" CHR$(I) CHR$(5)          CHR$(1) CHR$(A) :NEXT
  54.   4 PRINT #1,"UC" :END
  55.   5 DATA 169,1,170,32,21,5,232,224,255
  56.   6 DATA 208,248,32,21,5,202,224,1,208
  57.   7 DATA 248,169,235,138,72,73,255,168
  58.   8 DATA 169,248,141,0,28,202,208,248
  59.   9 DATA 169,240,141,,28,136,208,248
  60.  10 DATA 104,170,96
  61.  
  62.   Rivill[ 1 avataan levariin kanava.      Rivil[ 2 ohjelma alkaa lukea konekie-   lidataa ja rivill[ 3 kone kirjoittaa    sen sitten merkkikoodina levarin        muistiin suoraan.
  63.   Nelosrivill[ ohjelma antaa levarille    k[skyn suorittaa toiminto, ja jos       kaikki on OK, ledi v[lk[ht[[ HYVIN      KAUNIISTI pikku hiljaa hiipuen p[[lle   ja pois.
  64.  
  65.   Jos ohjelma ei toimi, tarkista, olet-   ko ehk[ tehnyt kirjoitusvirheen, ja     jos et, saatan MIN{SHIFT-+} olla tehnyt         VIRHEEN. Mutta koska j[lkimm[inen on    TODELLA EP{SHIFT-+}TODENN{SHIFT-+}K{CBM--}IST{SHIFT-+}, tarkista,     ONKO laitteistosi kaikilta osin         KUNNOSSSA..
  66.  
  67.   Ja jos et jaksa kirjoittaa tuota        muistiin, huomautan, ett[ kyseinen      ohjelmanp[tk[ on talletettu Floppik-    sen jollekin puolelle. Levylehden       etuja taas, N{SHIFT-+}{SHIFT-+}S...
  68.  
  69.  
  70.  
  71.   PAHUS. Onx kello jo noin paljon!
  72.   Kello on v[h[n yli kaksi.               Ei, kyll[ m[ taidan l[htee t[st[        nukkumaan, muuten m[ nukahdan t[h[n.    Hyv[[ y\t[ vaan kaikille sitten.
  73.    ...Kkkkrrrooooohhhhhh pyyyyyhhhh...
  74.  
  75. ----------------------------------------
  76.