       樮 ⥬  ᥬ

 ᥬ 6800 ࠧࠡ⠭   ਠ:  設 뫤
।祭  䠩 UniASM.CMD  UniLINK.CMD,  設
IBM ।祭 UniCross   䠩 M6800.EXE.  ࠧ
ࠬ  設 뫤   ᮧ   ᠬ 
設 뫤, ⠪   設 IBM.  ணࠬ  
ᠭ   ⥪⮢ ।,  뫤  । UE.
ࢠ ப ணࠬ ।  ﬨ  
ࠡ뢠   䠩  祭  १ ࠡ⪨.
 祭 䠩 ⨯ .CMD ࢠ ப ணࠬ 
  
                   CMD
⪠  ⮩ ப 襭.   ⥪ ணࠬ, 
뢠  UE   F2  䠩  ७ .ASM. 
뢠
    A:\> UASM .ASM .CMD
᫥ ࠡ  砥 .CMD 䠩, ⮢  ᯮ.
᫨ ࢠ ப  ᮤন CMD,  맮  
⠪
    A:\> UASM .ASM
᫥ ࠡ ᮧ 䠩 .OBJ,    ࠡ⠭
騪
    A:\> ULINK 
 ࠭樨  IBM ࢠ ப ணࠬ   ᠭ
  
               org $100
 樮஢ ணࠬ  砫  100.  
ணࠬ   ࠭   ।, ਬ  ࡮-
᪠.  ⪨  ணࠬ  室  ࢮ 樨,
":"  ⠢,  ࠬ  ਥ  
   ஡. ⥬ ᪠ ணࠬ 6800,  
訢  䠩,⥬ 訢  䠩 LST,⥬
訢  䠩 CMD. ᫥ ⮣   樨.
 १  ᬮ  CTRL+O.

                  ணࠬ஢

 饭 ணࠬ஢ ࠧࠡ稪 ᮧ 
⥪ ⮢ ணࠬ-⥬ 㭪権,  饭
 BIOS. ⮬ ணࠬ஢  ᢮  뫠
室 ଠ樨  ॣ  맮 ᮮ⢥饩
㭪樨   int. ணࠬ஢ ⠪ ।
 ।  祭 ⥬ 祥 ࠡ祩
  ᯮ짮  . ᯮ짮
 DRAM   .   .  ᮢ F000-FFFF
 ,  ஬ ᠭ १⭠  BIOS ⥬.
  ⮫쪮 .  ⨬  ᠬ ᯮ ⥬
⥪⮢ ࠭, ..  ⥪⮢ ०,  
 ⮫쪮 .   C000-DFFF ࠧ஬ 8  
 祭   16- ࠭ ⥫쭮 .
祭 ࠢ 4-  ॣ, ᯮ 
襬 㡠 祩 E6F0. 祭 0 뫠 㤠
⥬ BIOS  ஢ ४祭 ࠭,  祭
7 । ० 祭 ᭮  ( .. 몫祭
७). ࠭ 8-F ᮤঠ ७   ஬
⥬ 㭪権. ন  ࠭  ᬮ
  ணࠬ READROM.CMD, ᠭ 㪮 ..
祭  । ⠫ ⥩  
 ० ࠡ . ஡  ⠢
⥬ 㭪権   㬥樨 [ ]   ਬࠬ
 ᯮ짮, ⮬  ⠭   ⤥
ਬ.
⨬  㦭 ᯥ - ⥪,  ⮣
 ᯮ짮 int $23 ᫥騬 ࠧ.
                     cmd
                     ldx #text
                     int $23
                     rts
               text  db ' ࢠ ணࠬ'
 ணࠬ  ⠥ 㪠 ⥪  ⮬ ,
 ⮨ .  ldx 㦠  砫 ⥪
  ॣ   뢠 ⥬ 㭪 $23
 ⥪.   ⥪  㦭   ࠭
ᯮ 㭪 樮஢  int $15,  
ன  ॣ  㦭 㧨  ,   ॣ 
 ப
                       cmd
                       ldaa #8
                       ldab #5
                       int $15
                       ldx #text
                       int $23
                       rts
               text    db '  ணࠬ'
 ᮢ ࠬ  ࠭  ᯮ짮 横  㭪 
뢮 ᨬ  ࠭ int $22
                        cmd
                        ldaa #1 ;樮㥬    1,1
                        ldab #1
                        int $15
                        ldaa #'_' ;   ᨬ "_"
                 lp1    int $22
                        incb  ; ࠥ ஫ 稪
                        cmpb #40
                        bne lp1 ;㥬 ਧ⠫ 
                        ldab #2
                 lp2    ldaa #1
                        int $15
                        ldaa #'1'
                        int $22
                        incb
                        cmpb #25
                        bne lp2 ;㥬 ࠢ ⨪ 
                        ldaa #'_'
                        ldab #2
                  lp3   int $22
                        incb
                        cmpb #40
                        bne lp3 ;㥬  ਧ⠫ 
                  lp4   ldaa #40
                        int $15
                        ldaa #'1'
                        int $22
                        decb
                        cmpb #1
                        bne lp4 ;㥬 ࠢ ⨪ 
                        rts     ;᭨ 
  ᮢ ᪨ ࠦ  ⥪ ᯥ樠쭮
।ᬮ७ ᪮쪮 㭪権.   ᪨ ०
稭  १ࢨ஢   ᪮ ࠭  
 㭪樨 int $60  樠樨 ०  
㭪樨 int $12. ᮢ ᪨ ਬ⨢ ந室 
 㭪樨 int $66.
                        cmd
                        int $60 ;㥬   . ࠭
                        stx gr_scr ;  . ࠭
                        ldaa #3 ; SCREEN 3
                        ldx gr_scr
                        int $12 ;樠㥬 ०
                        ldx #c1
                        ldaa #1
                        int $66 ; move (x,y)
                        ldx #c2
                        ldaa #2
                        int $66 ;  lineto(x,y)
                        ldx #c3
                        ldaa #4
                        int $66 ;  circle (r1,r2)
                        int $61
                        rts
                   c1 dw 0,0
                   c2 dw 320,200
                   c3 dw 100
 ⮢  뢮 ᪮ ਬ⨢   
ᮮ⢥⢨  ᠭ 㭪樨 int $66  ॣ  
᫮, ࠪਧ饥 ⨯ ਬ⨢,   ॣ  
 㪠⥫ 4- ⮢ , ᮤঠ饩 ࠬ
 ਬ⨢ (न  ,  ࠤ r1,r2).  
ਬ 㤥 ஢    孥 㣫  ।
࠭    ᮢ , ࠤᮬ 100.

            ࢨ஢  ஢ 

  ।   ᪮쪮 ஢, 
㪠 ࠭      ணࠬ. 
饭 ணࠬ    HIMEM  RESID  㦭 
  .PGM 䠩  ᯮ짮 㭪 int $2A 
஢   ⥪饩 ணࠬ. ਬ, ।
  ᪨ ࠭  ᫥騬 ࠧ
                      cmd
                      ldx #grscr
                      ldab #3
                      int $2A
                      cpx #0 ;஢ઠ  訡
                      beq error
                      stx grbase
                      rts
           error      ldx #message
                      int $23
                      rts 
           message    db ' 墠⠥ ',7,0
            grbase    ds 2 ; ᪮ ࠭
            grscr     =8000 ;ࠧ . ࠭
int $35 १ࢨ    ஢ ⠪, ⮡  
ࠧ頫   ᠬ ணࠬ.    ࠧ  ,
 室     १ࢨ஢ ,  
ᮤন ⢨⥫ ࠧ ,  뤥 
  0100  LOMEM.  ᮧ १ ணࠬ,
.. ணࠬ   ⠥   設 ᫥  ࠡ
 १ࢨ஢    int $26   RESID-
$BFFF.  筮 ᯮ  ᮧ ࠩ஢ ਭ.

                     墠 ஢

믮 int- ந室 ⥬ 㪠    
࠭ ,  ன  ࠧ頥.  
㭪権  ᢮ ,   ࠡ 㭪権. 
⮣ ।祭 㭪樨 : int $2E -।  
࠭ 室 㭪樨 (    㭪樨,  
 ⠭   - ), int $2F ᯮ 
   ࠭  ᢮, int $37 㦨  믮
㭪樨   . 祭 ॣ஢ 砥 १
祩 SWIA,SWIB  SWIX  㫥 ࠭. ਢ ਬ
ᮧ ࠩ  ਭ, 饣 ஢ ᨬ,
⫨  ਭ⮩   뫤. ਭ 6337 
 ஢   ॢ 室 १⭠ ணࠬ
              start ldaa #$26 ;।塞  㭪樨 $26
                    int $2e
                    stab page ; ࠭
                    stx addr ; 
                    ldaa #$26
                    clrb ;㪠뢠 ࠭ 0
                    ldx #new_int26
                    int $2F ; 塞   
                    int $2C ; 塞 ணࠬ १⭮
                    ldx #text
                    int $23
                    rts
               text db $0a,0d,'(C) Gorchakov L.V.'
                    db $0d,$0d
                    db $0d,0a,'Driver is load',7,$0a,$0d,0
               page ds 1
               addr ds 2
               new_int26
                    tstb ;᫨   0  ࠡ⠥  
                    beq next
               old  ldab page ; 믮塞  㭪
                    ldx addr
                    int $37
               next cmpa #$80 ;᫨ ()<80,  ⠥ ⮦
                    blt old ;  ࠭
                    cmpa #$C0 ; ࠢ  0
                    bge tab_cod ;᫨ >0  
                    adda #$30 ;塞   30
               new  staa $0006 ;頥   SWIA
                    bra old ;   
               tab_cod cmpa#$F0 ;  >F0?
                    bge old ;-⠥ ஥ 祭
                    suba #$30 ;-⠥ 30
                    bra new ;    
                    end
ணࠬ ࠡ⠥ ᫥騬 ࠧ, ⠪  int $26 㦨
 ᨬ  ਭ, 祬    ⨯ 樨 (᫨
0-뢮 ᨬ  , 1-祭  ਭ, 2-
樠 ਭ),   ()- ᨬ  뢮  ,
 ணࠬ 墠뢠  饭   ᮤন
   . ᫨  ()  0,    
   ⮬ ࠧ蠥 믮 筮 㭪樨
ࠡ⪨.  砥 ᫨  () ᮤন 0,  ॡ
  ᨬ  ணࠬ 室   ⮣, 
 ᨬ ॡ . ᫨ ஢ ᨬ
ᮢ  ஢   ன,  ࠡ⠥ 筠
㭪, ᫨   ᮢ,  ᮤন ॣ  
८ࠧ  㦭   㦥 ⥬ 뢠 筠
㭪 int $26.   
 
                     ६饭   

Int $2D  ७  ଠ樨   
  㣮,   頥 ᫮ ७ᨬ ⮢,  
 4- ⭮ ⠡, ᮤঠ騩 砫  筨
 ਥ. 㭪 ᯮ  ६饭 ஢
⨭   ᪮ ࠭,   
 ࠦ   ஥.
 
                   । ਡ⮢ 䠩

 䠩 ,࠭  ⠫  ਡ,  
ᯥ뢠  뤠 ⠫  ࠭   
DIR p樮 ⥬.   ਡ ࠭  
  ப ⠫  । ⨯ 䠩 ᫥騬 ࠧ
    7  6  5  4  3  2  1  0
    0  0                 
          |        |  |   |______㯭 ⮫쪮  ⥭
          |        |  |__________
          |        |_____________⥬
          |______________________娢
㭪 int $54   ᯮ짮  । 
 ਡ⮢ 䠩.    ⨯ 樨:0-
ਡ⮢,1-⥭,   - ਡ (᫨ =0), -㪠⥫
 ப   䠩.  室 㭪 뤠  - 
訡, -ਡ 䠩 (᫨ =1). ਬ ணࠬ
                     cmd
                     ldaa #1;稬 ਡ 䠩
                     ldx #name
                     int $54
                     tsta ;஢ઠ  訡 ⥭
                     bne error ;室  ࠡ 訡
                     tba ; 뫪   ᮤন 
                     int $25 ;  ਡ⮢
                     rts
              error  ldx #meserr
                     int $23
                     rts
              meserr db '訡  ⥭ ⠫',0
              name   db 'file.ext',0
             
          ਬ ࠧࠡ⠭ ணࠬ

ꥪ⨢ 㤭  樨  ᭥ ࠡ
ணࠬ  ᥬ   ࠧ: 쪨 ணࠬ
 ஢  ࠡ ⤥ 㭪権 ⥬ BIOS,
 뫮  ,  訥 ணࠬ 㤭ਬ -
᢮ ࠧ஢, ⮬  ࠭稬 । ணࠬ,
ࠢ  ।. ᬮਬ ணࠬ  ਡ⮢
䠩 㦥   ꥬ   . ᭮ ᠭ [ ]
 11   ४ਨ ᮤন ਡ 䠩.  
⮣  ࠢ । ਡ⮬   ஥ 
 . ணࠬ, ࠧࠡ⠭ 㪮 .., 
㢨  ਡ      짮⥫.
ਢ  ⥪  ஡묨 ﬨ.
                     cmd
              start  ldaa #$0C
                     int $22 ;⪠ ࠭  ࠢ饬 
                     ldaa #5
                     ldab #5 ;樮஢ 
                     ldx #text ; ⥪
                     jsr window ;맮 / 뢮   ࠭
                     ldab #5
                     ldaa #12
                     jsr cursor ;樮஢   
                     ldx #buff ;⮢   16 
                     ldab #16 ; ਥ  䠩
                     int $21 ;   䠩 
                     ldaa #0 ; ⨯   int $54
                     clrb ;0-祭 ਡ,⪠ 
                     ldx #buff ;㪠⥫   䠩
                     int $54;砥 ਡ 䠩, - 訡
             ;  -ਡ 䠩
                     tsta ;஢塞  訡   
                     beq d1; ᫨ =0, ⥭ 諮 ଠ쭮
                     jmp error ; 稫 訡,ࠡ뢠 
             d1      stab old_attr
                     stab new_attr; ਡ 䠩,
             ;       
                     ldaa #21
                     ldab #10 ;樮㥬 
                     jsr cursor
                     ldaa #old_attr
                     int $25 ;⠥  ਡ 
             d2      ldaa #29
                     ldab #10 
                     jsr cursor ;樮㥬 
                     ldaa new_attr
                     int $25 ;⠥  ਡ
                     int $20 ;    
             ;५   ५ ,   
             ;ந室  ਡ⮢
                      cmpa #$C3; ५ ?
                      bne d3 ;,஢塞 
                      dec new_attr ;㬭蠥 ਡ  1
                      bra d2 ;   ਡ
              d3      cmpa #$C4 ; ५ ?
                      bne d4 ;,஢塞 
                      inc new_attr ;㢥稢 ਡ  1
                      bra d2 ;室   ਡ
              d4      cmpa #$C0 ; ,砭 ?
                      bne d2 ; ,   
                      ldab new_attr ;뫠   
                      cmpb old_attr :ࠢ   
                      beq d5 ;᫨  ࠢ    
                      ldaa #1 ;  ࠢ, 뢠
                      ldx #buff ;  ⠫
                      int $54
                      tsta ;訡  ?
                      beq d5 ;
                      jmp error ;稫 訡, ࠡ뢠
               d5     int $38 ;蠥 ࠡ
               error  ldx #bufer ;   訡
                      int $3D ;।塞 ⥪ 訡
                      ldx #bufer
                      int $23 ;⠥ 
                      int $38 ;蠥 ࠡ
               bufer  ds 66 ;  ⥪ 訡
               buff   ds 17 ;   䠩
             old_attr ds 1
             new_attr ds 1 ;祩  ਡ⮢
            ; ணࠬ     ᥬ,
            ;⠥ ⥪  
             window   staa begx
                      stab begy ; 砫    
             ;樨 
              win1    int $25 ;樮㥬 
                      psha ;   ⥪
              win1_1  ldaa $0,X ;  㦠  ᨬ 
              ;  
                      tsta ;  ਧ  ப=0?
                      beq win2 ;,室   ப
                      int $22 ;,⠥ ᨬ
                      inx :ᬥ頥 㪠⥫   1 
                      bra win1_1 ;   ᫥饣 ᨬ
               win2   inx ;ᬥ頥  ᫥騩 
                      ldaa $0,X
                      cmpa #$FF ;   ᥣ ⥪, $FF?
                      beq win3 ;-稢 
                      pula ;, ᯮ 
                      incb ;室  ᫥ ப
                      bra win1 ;  樮஢ 
               win3   pula ;ᯮ , ⮡  ⠫
             ;室
                      rts
                begx  ds 1
                begy  ds 1 ;祩  砫 न
              cursor  adda begx ;/ 樮஢ 
                      addb begy ;騢 न
                      int $15
                      rts
       text db '|||||||||||||||||||||||||||||||||||||',0
            db '| 祭 /। ਡ⮢  |',0
            db '| 䠩 (@ 㪮 .25--1993)     |',0
            db '|___________________________________|',0
            db '|                                   |',0
            db '|            䠩 :             |',0
            db '|           -----------             |',0
            db '|___________________________________|',0
            db '|        || ਡ         |',0
            db '| ----------------------------------|',0
            db '| ।    ||      |',0
            db '| 祭      || ------ -----    |',0
            db '|___________________________________|',0
            db '|          室 (/)?             |',0
            db '|___________________________________|',0
            db '|||||||||||||||||||||||||||||||||||||',0
            db $FF
            end                              