farklı komut aynı satıra yazılabiliyor ?

Başlatan kaypic38, 12 Şubat 2012, 21:13:46

kaypic38

Bu nedir yani nasıl iki farlı komut daha doğrusu N farklı komut aynı satıra yazılabiliyor ?
; date              : 14-Sep-2004 13:36:40
; main source       : e1008
; command line      : e1008.jal 
; target  chip      : 16f877
;         cpu       : pic 14
;         clock     : 20000000
; input   files     : 16
;         lines     : 3830
;         chars     : 108955
; compilation nodes : 47197
;             stack : 36Kb
;              heap : 13503Kb
;           seconds : 1.730 (2213 lines/second)
; output       code : 9680
;              page :    0 (0.0%)
;              bank :    0 (0.0%)
;         page+bank :    0 (0.0%)
;              file :   26
;              stack:    3 (2,0,1)

 errorlevel -306
 list p=PIC16f877

; note: the f877 config is still fixed!
 __CONFIG H'3F72' 
 ORG 0000
  goto    __main
 ORG 0004
  movwf   H'07F'
  swapf   H'003',w
  clrf    H'003'
  movwf   H'020'
  movf    H'00A',w
  movwf   H'021'
  clrf    H'00A'
  movf    H'004',w
  movwf   H'022'
  goto    __interrupt
 ORG 000E
__interrupt: ; 000E
_12593__vector: ; 000E
p_12593_interrupt_handler: ; 000E

;; 060 :    tmr0 = _tmr0_start
  movf    H'02B',w
  movwf   H'001'

;; 061 :    _tmr1 = _tmr1 - 1
  movlw   H'01'
  subwf   H'02E',w
  movwf   H'02E'

;; 062 :    if _tmr1 == 0 then
  movf    H'02E',f
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_12611_by
if_12611_th: ; 0018

;; 063 :       _tmr1 = _tmr1_start
  movf    H'02C',w
  movwf   H'02E'

;; 064 :       _tmr2 = _tmr2 - 1
  movlw   H'01'
  subwf   H'02F',w
  movwf   H'02F'
if_12611_by: ; 001D

;; 068 :    asm bcf 11, 2
  bcf     H'00B',2
e_12593_interrupt_handler: ; 001E
  movf    H'022',w
  movwf   H'004'
  movf    H'021',w
  movwf   H'00A'
  swapf   H'020',w
  movwf   H'003'
  swapf   H'07F',f
  swapf   H'07F',w
  RETFIE  
__main: ; 0027
; var H'023:000'  transfer_bit
; var H'024:000'  transfer_byte

;; 038 : var volatile byte tmr0         at  1
; var H'001:000' tmr0

;; 040 : var volatile byte status       at  3
; var H'003:000' status

;; 050 : var volatile byte intcon       at 11
; var H'00B:000' intcon

;; 140 : var volatile bit  intcon_gie  at intcon : 7
; var H'00B:007' intcon_gie

;; 143 : var volatile bit  intcon_t0ie at intcon : 5
; var H'00B:005' intcon_t0ie

;; 292 : var byte trisa
; var H'025:000' trisa

;; 293 : var byte trisb
; var H'026:000' trisb

;; 294 : var byte trisc
; var H'027:000' trisc

;; 295 : var byte trisd
; var H'028:000' trisd

;; 296 : var byte trise
; var H'029:000' trise

;; 300 : trisa = all_input
  movlw   H'FF'
  movwf   H'025'

;; 302 :    trisb = all_input
  movlw   H'FF'
  movwf   H'026'

;; 305 :    trisc = all_input
  movlw   H'FF'
  movwf   H'027'

;; 308 :    trisd = all_input
  movlw   H'FF'
  movwf   H'028'

;; 309 :    trise = 0x0F -- high nibble has other functions!
  movlw   H'0F'
  movwf   H'029'

;; 610 : var byte _port_c_buffer
; var H'02A:000' _port_c_buffer

;; 048 : var byte _tmr0_start
; var H'02B:000' _tmr0_start

;; 049 : var byte _tmr1_start
; var H'02C:000' _tmr1_start

;; 050 : var byte _tmr2_start
; var H'02D:000' _tmr2_start

;; 051 : var byte _tmr1
; var H'02E:000' _tmr1

;; 052 : var byte _tmr2
; var H'02F:000' _tmr2

;; 184 : asynch_out_direction = output
  bcf     H'027',6
  bsf     H'00A',3
  bsf     H'00A',4
  call    _4064__vector

;; 185 : asynch_in_direction  = input
  bsf     H'027',7
  bsf     H'00A',3
  bsf     H'00A',4
  call    _4093__vector

;; 732 : asynch_out_direction = output
  bcf     H'027',6
  bsf     H'00A',3
  bsf     H'00A',4
  call    _4064__vector

;; 734 : for 10 loop
; var H'030:000' _loop_temp_27519
  movlw   H'0A'
  movwf   H'030'
f_27519_again: ; 003F

;; 735 :    asynch_send( " " )
  movlw   H'20'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector
  bcf     H'00A',3
  bcf     H'00A',4

  decfsz  H'030',f
  goto    f_27519_again

;; 737 : asynch_send( 0x0A )
  movlw   H'0A'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 738 : asynch_send( 0x0D )
  movlw   H'0D'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 740 : forever loop
w_27821_ag: ; 004F

;; 741 :    var bit go = true
; var H'023:001' go
  bsf     H'023',1

;; 742 :    var byte x = 0, y = 0
; var H'030:000' x
  clrf    H'030'
; var H'031:000' y
  clrf    H'031'

;; 743 :    while go loop
w_27712_ag: ; 0052
  bcf     H'00A',3
  bcf     H'00A',4
  btfsc   H'023',1
  goto    w_27712_bo
w_27712_jb: ; 0056
  bcf     H'00A',3
  bcf     H'00A',4
  goto    w_27712_be
w_27712_bo: ; 0059

;; 745 :       var byte c = mariner( x, y )
; var H'032:000' c
  movf    H'030',w
  movwf   H'033'
  movf    H'031',w
  bcf     H'00A',3
  bcf     H'00A',4
  call    _26881__vector
  movwf   H'032'

;; 747 :       if c == -1 then
  movf    H'032',w
  sublw   H'FFFFFFFF'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27618_el
if_27618_th: ; 0066

;; 748 :          go = false
  bcf     H'023',1
  bcf     H'00A',3
  bcf     H'00A',4
  goto    if_27618_by
if_27618_el: ; 006A

;; 750 :       elsif c == 0 then
  movf    H'032',f
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27631_el
if_27631_th: ; 006F

;; 751 :          asynch_send( 0x0A )
  movlw   H'0A'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 752 :          asynch_send( 0x0D )
  movlw   H'0D'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 753 :          x = x + 1
  incf    H'030',f

;; 754 :          y = 0
  clrf    H'031'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    if_27631_by
if_27631_el: ; 007C

;; 757 :          asynch_send( c )
  movf    H'032',w
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 758 :          delay_1ms( 30 )
  movlw   H'1E'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _10248__vector

;; 759 :          y = y + 1
  incf    H'031',f
if_27631_by: ; 0085
if_27618_by: ; 0085
  bcf     H'00A',3
  bcf     H'00A',4
  goto    w_27712_ag
w_27712_be: ; 0088

;; 764 :    asynch_send( 0x0A )
  movlw   H'0A'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 765 :    asynch_send( 0x0D )
  movlw   H'0D'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 766 :    for 5 loop
; var H'032:000' _loop_temp_27740
  movlw   H'05'
  movwf   H'032'
f_27740_again: ; 0092

;; 467 : procedure delay_500ms( byte in x = 1 ) is
  movlw   H'01'

;; 767 :       delay_500ms
  bsf     H'00A',3
  bsf     H'00A',4
  call    _10608__vector

;; 768 :       asynch_send( "." )
  movlw   H'2E'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector
  bcf     H'00A',3
  bcf     H'00A',4

  decfsz  H'032',f
  goto    f_27740_again

;; 770 :    asynch_send( 0x0A )
  movlw   H'0A'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 771 :    asynch_send( 0x0D )
  movlw   H'0D'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 772 :    asynch_send( 0x0A )
  movlw   H'0A'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector

;; 773 :    asynch_send( 0x0D )
  movlw   H'0D'
  bsf     H'00A',3
  bsf     H'00A',4
  call    _15789__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    w_27821_ag

;; 003 :   idle_loop: page goto idle_loop
as_27824_idle_loop: ; 00B1
  bcf     H'00A',3
  bcf     H'00A',4
  goto    as_27824_idle_loop
_26881__vector: ; 00B4

;; 703 : function mariner ( byte in x, byte in y ) return byte is
; var H'033:000' x
; var H'034:000' y
p_26881_mariner: ; 00B4
  movwf   H'034'

;; 705 :    if x == 0 then return mariner0 ( y ) end if
  movf    H'033',f
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26901_by
if_26901_th: ; 00BA
  movf    H'034',w
  bsf     H'00A',3
  bsf     H'00A',4
  call    _16177__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_26901_by: ; 00C1

;; 706 :    if x == 1 then return mariner1 ( y ) end if
  movf    H'033',w
  sublw   H'01'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26926_by
if_26926_th: ; 00C7
  movf    H'034',w
  bsf     H'00A',3
  bsf     H'00A',4
  call    _16591__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_26926_by: ; 00CE

;; 707 :    if x == 2 then return mariner2 ( y ) end if
  movf    H'033',w
  sublw   H'02'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26951_by
if_26951_th: ; 00D4
  movf    H'034',w
  bcf     H'00A',3
  bsf     H'00A',4
  call    _17085__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_26951_by: ; 00DB

;; 708 :    if x == 3 then return mariner3 ( y ) end if
  movf    H'033',w
  sublw   H'03'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26976_by
if_26976_th: ; 00E1
  movf    H'034',w
  bcf     H'00A',3
  bsf     H'00A',4
  call    _17787__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_26976_by: ; 00E8

;; 709 :    if x == 4 then return mariner4 ( y ) end if
  movf    H'033',w
  sublw   H'04'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27001_by
if_27001_th: ; 00EE
  movf    H'034',w
  bcf     H'00A',3
  bsf     H'00A',4
  call    _18297__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27001_by: ; 00F5

;; 710 :    if x == 5 then return mariner5 ( y ) end if
  movf    H'033',w
  sublw   H'05'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27026_by
if_27026_th: ; 00FB
  movf    H'034',w
  bcf     H'00A',3
  bsf     H'00A',4
  call    _18327__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27026_by: ; 0102

;; 711 :    if x == 6 then return mariner6 ( y ) end if
  movf    H'033',w
  sublw   H'06'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27051_by
if_27051_th: ; 0108
  movf    H'034',w
  bcf     H'00A',3
  bsf     H'00A',4
  call    _18949__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27051_by: ; 010F

;; 712 :    if x == 7 then return mariner7 ( y ) end if
  movf    H'033',w
  sublw   H'07'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27076_by
if_27076_th: ; 0115
  movf    H'034',w
  bcf     H'00A',3
  bsf     H'00A',4
  call    _19315__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27076_by: ; 011C

;; 713 :    if x == 8 then return mariner8 ( y ) end if
  movf    H'033',w
  sublw   H'08'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27101_by
if_27101_th: ; 0122
  movf    H'034',w
  bcf     H'00A',3
  bsf     H'00A',4
  call    _19921__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27101_by: ; 0129

;; 714 :    if x == 9 then return mariner9 ( y ) end if
  movf    H'033',w
  sublw   H'09'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27126_by
if_27126_th: ; 012F
  movf    H'034',w
  bcf     H'00A',3
  bsf     H'00A',4
  call    _20383__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27126_by: ; 0136

;; 715 :    if x == 10 then return mariner10 ( y ) end if
  movf    H'033',w
  sublw   H'0A'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27151_by
if_27151_th: ; 013C
  movf    H'034',w
  bsf     H'00A',3
  bcf     H'00A',4
  call    _20413__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27151_by: ; 0143

;; 716 :    if x == 11 then return mariner11 ( y ) end if
  movf    H'033',w
  sublw   H'0B'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27176_by
if_27176_th: ; 0149
  movf    H'034',w
  bsf     H'00A',3
  bcf     H'00A',4
  call    _20987__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27176_by: ; 0150

;; 717 :    if x == 12 then return mariner12 ( y ) end if
  movf    H'033',w
  sublw   H'0C'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27201_by
if_27201_th: ; 0156
  movf    H'034',w
  bsf     H'00A',3
  bcf     H'00A',4
  call    _21465__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27201_by: ; 015D

;; 718 :    if x == 13 then return mariner13 ( y ) end if
  movf    H'033',w
  sublw   H'0D'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27226_by
if_27226_th: ; 0163
  movf    H'034',w
  bsf     H'00A',3
  bcf     H'00A',4
  call    _22119__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27226_by: ; 016A

;; 719 :    if x == 14 then return mariner14 ( y ) end if
  movf    H'033',w
  sublw   H'0E'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27251_by
if_27251_th: ; 0170
  movf    H'034',w
  bsf     H'00A',3
  bcf     H'00A',4
  call    _22581__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27251_by: ; 0177

;; 720 :    if x == 15 then return mariner15 ( y ) end if
  movf    H'033',w
  sublw   H'0F'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27276_by
if_27276_th: ; 017D
  movf    H'034',w
  bsf     H'00A',3
  bcf     H'00A',4
  call    _22611__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27276_by: ; 0184

;; 721 :    if x == 16 then return mariner16 ( y ) end if
  movf    H'033',w
  sublw   H'10'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27301_by
if_27301_th: ; 018A
  movf    H'034',w
  bsf     H'00A',3
  bcf     H'00A',4
  call    _23249__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27301_by: ; 0191

;; 722 :    if x == 17 then return mariner17 ( y ) end if
  movf    H'033',w
  sublw   H'11'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27326_by
if_27326_th: ; 0197
  movf    H'034',w
  bcf     H'00A',3
  bcf     H'00A',4
  call    _23759__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27326_by: ; 019E

;; 723 :    if x == 18 then return mariner18 ( y ) end if
  movf    H'033',w
  sublw   H'12'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27351_by
if_27351_th: ; 01A4
  movf    H'034',w
  bcf     H'00A',3
  bcf     H'00A',4
  call    _24397__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27351_by: ; 01AB

;; 724 :    if x == 19 then return mariner19 ( y ) end if
  movf    H'033',w
  sublw   H'13'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27376_by
if_27376_th: ; 01B1
  movf    H'034',w
  bcf     H'00A',3
  bcf     H'00A',4
  call    _24843__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27376_by: ; 01B8

;; 725 :    if x == 20 then return mariner20 ( y ) end if
  movf    H'033',w
  sublw   H'14'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27401_by
if_27401_th: ; 01BE
  movf    H'034',w
  bcf     H'00A',3
  bcf     H'00A',4
  call    _24873__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27401_by: ; 01C5

;; 726 :    if x == 21 then return mariner21 ( y ) end if
  movf    H'033',w
  sublw   H'15'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27426_by
if_27426_th: ; 01CB
  movf    H'034',w
  bcf     H'00A',3
  bcf     H'00A',4
  call    _25431__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27426_by: ; 01D2

;; 727 :    if x == 22 then return mariner22 ( y ) end if
  movf    H'033',w
  sublw   H'16'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27451_by
if_27451_th: ; 01D8
  movf    H'034',w
  bcf     H'00A',3
  bcf     H'00A',4
  call    _25877__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27451_by: ; 01DF

;; 728 :    if x == 23 then return mariner23 ( y ) end if
  movf    H'033',w
  sublw   H'17'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_27476_by
if_27476_th: ; 01E5
  movf    H'034',w
  bcf     H'00A',3
  bcf     H'00A',4
  call    _26467__vector
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26881_mariner
if_27476_by: ; 01EC

;; 729 :    return -1
  movlw   H'FFFFFFFF'
e_26881_mariner: ; 01ED
  return  
_26467__vector: ; 01EE

;; 676 : function mariner23 ( byte in x ) return byte is 
; var H'035:000' x
p_26467_mariner23: ; 01EE
  movwf   H'035'

;; 677 :    if x == 0 then return "T" end if
  movf    H'035',f
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26484_by
if_26484_th: ; 01F4
  movlw   H'54'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26484_by: ; 01F8

;; 678 :    if x == 1 then return "h" end if
  movf    H'035',w
  sublw   H'01'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26500_by
if_26500_th: ; 01FE
  movlw   H'68'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26500_by: ; 0202

;; 679 :    if x == 2 then return "e" end if
  movf    H'035',w
  sublw   H'02'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26516_by
if_26516_th: ; 0208
  movlw   H'65'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26516_by: ; 020C

;; 680 :    if x == 3 then return " " end if
  movf    H'035',w
  sublw   H'03'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26532_by
if_26532_th: ; 0212
  movlw   H'20'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26532_by: ; 0216

;; 681 :    if x == 4 then return "b" end if
  movf    H'035',w
  sublw   H'04'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26548_by
if_26548_th: ; 021C
  movlw   H'62'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26548_by: ; 0220

;; 682 :    if x == 5 then return "r" end if
  movf    H'035',w
  sublw   H'05'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26564_by
if_26564_th: ; 0226
  movlw   H'72'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26564_by: ; 022A

;; 683 :    if x == 6 then return "i" end if
  movf    H'035',w
  sublw   H'06'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26580_by
if_26580_th: ; 0230
  movlw   H'69'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26580_by: ; 0234

;; 684 :    if x == 7 then return "g" end if
  movf    H'035',w
  sublw   H'07'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26596_by
if_26596_th: ; 023A
  movlw   H'67'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26596_by: ; 023E

;; 685 :    if x == 8 then return "h" end if
  movf    H'035',w
  sublw   H'08'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26612_by
if_26612_th: ; 0244
  movlw   H'68'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26612_by: ; 0248

;; 686 :    if x == 9 then return "t" end if
  movf    H'035',w
  sublw   H'09'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26628_by
if_26628_th: ; 024E
  movlw   H'74'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26628_by: ; 0252

;; 687 :    if x == 10 then return "-" end if
  movf    H'035',w
  sublw   H'0A'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26644_by
if_26644_th: ; 0258
  movlw   H'2D'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26644_by: ; 025C

;; 688 :    if x == 11 then return "e" end if
  movf    H'035',w
  sublw   H'0B'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26660_by
if_26660_th: ; 0262
  movlw   H'65'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26660_by: ; 0266

;; 689 :    if x == 12 then return "y" end if
  movf    H'035',w
  sublw   H'0C'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26676_by
if_26676_th: ; 026C
  movlw   H'79'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26676_by: ; 0270

;; 690 :    if x == 13 then return "e" end if
  movf    H'035',w
  sublw   H'0D'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26692_by
if_26692_th: ; 0276
  movlw   H'65'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26692_by: ; 027A

;; 691 :    if x == 14 then return "d" end if
  movf    H'035',w
  sublw   H'0E'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26708_by
if_26708_th: ; 0280
  movlw   H'64'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26708_by: ; 0284

;; 692 :    if x == 15 then return " " end if
  movf    H'035',w
  sublw   H'0F'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26724_by
if_26724_th: ; 028A
  movlw   H'20'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26724_by: ; 028E

;; 693 :    if x == 16 then return "M" end if
  movf    H'035',w
  sublw   H'10'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26740_by
if_26740_th: ; 0294
  movlw   H'4D'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26740_by: ; 0298

;; 694 :    if x == 17 then return "a" end if
  movf    H'035',w
  sublw   H'11'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26756_by
if_26756_th: ; 029E
  movlw   H'61'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26756_by: ; 02A2

;; 695 :    if x == 18 then return "r" end if
  movf    H'035',w
  sublw   H'12'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26772_by
if_26772_th: ; 02A8
  movlw   H'72'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26772_by: ; 02AC

;; 696 :    if x == 19 then return "i" end if
  movf    H'035',w
  sublw   H'13'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26788_by
if_26788_th: ; 02B2
  movlw   H'69'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26788_by: ; 02B6

;; 697 :    if x == 20 then return "n" end if
  movf    H'035',w
  sublw   H'14'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26804_by
if_26804_th: ; 02BC
  movlw   H'6E'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26804_by: ; 02C0

;; 698 :    if x == 21 then return "e" end if
  movf    H'035',w
  sublw   H'15'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26820_by
if_26820_th: ; 02C6
  movlw   H'65'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26820_by: ; 02CA

;; 699 :    if x == 22 then return "r" end if
  movf    H'035',w
  sublw   H'16'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26836_by
if_26836_th: ; 02D0
  movlw   H'72'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26836_by: ; 02D4

;; 700 :    if x == 23 then return "." end if
  movf    H'035',w
  sublw   H'17'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26852_by
if_26852_th: ; 02DA
  movlw   H'2E'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_26467_mariner23
if_26852_by: ; 02DE

;; 701 :    return 0
  movlw   H'00'
e_26467_mariner23: ; 02DF
  return  
_25877__vector: ; 02E0

;; 638 : function mariner22 ( byte in x ) return byte is 
; var H'035:000' x
p_25877_mariner22: ; 02E0
  movwf   H'035'

;; 639 :    if x == 0 then return "A" end if
  movf    H'035',f
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_25894_by
if_25894_th: ; 02E6
  movlw   H'41'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_25894_by: ; 02EA

;; 640 :    if x == 1 then return "n" end if
  movf    H'035',w
  sublw   H'01'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_25910_by
if_25910_th: ; 02F0
  movlw   H'6E'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_25910_by: ; 02F4

;; 641 :    if x == 2 then return "d" end if
  movf    H'035',w
  sublw   H'02'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_25926_by
if_25926_th: ; 02FA
  movlw   H'64'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_25926_by: ; 02FE

;; 642 :    if x == 3 then return " " end if
  movf    H'035',w
  sublw   H'03'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_25942_by
if_25942_th: ; 0304
  movlw   H'20'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_25942_by: ; 0308

;; 643 :    if x == 4 then return "t" end if
  movf    H'035',w
  sublw   H'04'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_25958_by
if_25958_th: ; 030E
  movlw   H'74'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_25958_by: ; 0312

;; 644 :    if x == 5 then return "h" end if
  movf    H'035',w
  sublw   H'05'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_25974_by
if_25974_th: ; 0318
  movlw   H'68'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_25974_by: ; 031C

;; 645 :    if x == 6 then return "u" end if
  movf    H'035',w
  sublw   H'06'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_25990_by
if_25990_th: ; 0322
  movlw   H'75'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_25990_by: ; 0326

;; 646 :    if x == 7 then return "s" end if
  movf    H'035',w
  sublw   H'07'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26006_by
if_26006_th: ; 032C
  movlw   H'73'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26006_by: ; 0330

;; 647 :    if x == 8 then return " " end if
  movf    H'035',w
  sublw   H'08'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26022_by
if_26022_th: ; 0336
  movlw   H'20'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26022_by: ; 033A

;; 648 :    if x == 9 then return "s" end if
  movf    H'035',w
  sublw   H'09'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26038_by
if_26038_th: ; 0340
  movlw   H'73'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26038_by: ; 0344

;; 649 :    if x == 10 then return "p" end if
  movf    H'035',w
  sublw   H'0A'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26054_by
if_26054_th: ; 034A
  movlw   H'70'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26054_by: ; 034E

;; 650 :    if x == 11 then return "a" end if
  movf    H'035',w
  sublw   H'0B'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26070_by
if_26070_th: ; 0354
  movlw   H'61'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26070_by: ; 0358

;; 651 :    if x == 12 then return "k" end if
  movf    H'035',w
  sublw   H'0C'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26086_by
if_26086_th: ; 035E
  movlw   H'6B'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26086_by: ; 0362

;; 652 :    if x == 13 then return "e" end if
  movf    H'035',w
  sublw   H'0D'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26102_by
if_26102_th: ; 0368
  movlw   H'65'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26102_by: ; 036C

;; 653 :    if x == 14 then return " " end if
  movf    H'035',w
  sublw   H'0E'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26118_by
if_26118_th: ; 0372
  movlw   H'20'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26118_by: ; 0376

;; 654 :    if x == 15 then return "o" end if
  movf    H'035',w
  sublw   H'0F'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26134_by
if_26134_th: ; 037C
  movlw   H'6F'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26134_by: ; 0380

;; 655 :    if x == 16 then return "n" end if
  movf    H'035',w
  sublw   H'10'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26150_by
if_26150_th: ; 0386
  movlw   H'6E'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26150_by: ; 038A

;; 656 :    if x == 17 then return " " end if
  movf    H'035',w
  sublw   H'11'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26166_by
if_26166_th: ; 0390
  movlw   H'20'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26166_by: ; 0394

;; 657 :    if x == 18 then return "t" end if
  movf    H'035',w
  sublw   H'12'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26182_by
if_26182_th: ; 039A
  movlw   H'74'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26182_by: ; 039E

;; 658 :    if x == 19 then return "h" end if
  movf    H'035',w
  sublw   H'13'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26198_by
if_26198_th: ; 03A4
  movlw   H'68'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26198_by: ; 03A8

;; 659 :    if x == 20 then return "a" end if
  movf    H'035',w
  sublw   H'14'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26214_by
if_26214_th: ; 03AE
  movlw   H'61'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26214_by: ; 03B2

;; 660 :    if x == 21 then return "t" end if
  movf    H'035',w
  sublw   H'15'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26230_by
if_26230_th: ; 03B8
  movlw   H'74'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26230_by: ; 03BC

;; 661 :    if x == 22 then return " " end if
  movf    H'035',w
  sublw   H'16'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26246_by
if_26246_th: ; 03C2
  movlw   H'20'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26246_by: ; 03C6

;; 662 :    if x == 23 then return "a" end if
  movf    H'035',w
  sublw   H'17'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26262_by
if_26262_th: ; 03CC
  movlw   H'61'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26262_by: ; 03D0

;; 663 :    if x == 24 then return "n" end if
  movf    H'035',w
  sublw   H'18'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26278_by
if_26278_th: ; 03D6
  movlw   H'6E'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26278_by: ; 03DA

;; 664 :    if x == 25 then return "c" end if
  movf    H'035',w
  sublw   H'19'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26294_by
if_26294_th: ; 03E0
  movlw   H'63'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26294_by: ; 03E4

;; 665 :    if x == 26 then return "i" end if
  movf    H'035',w
  sublw   H'1A'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26310_by
if_26310_th: ; 03EA
  movlw   H'69'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26310_by: ; 03EE

;; 666 :    if x == 27 then return "e" end if
  movf    H'035',w
  sublw   H'1B'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26326_by
if_26326_th: ; 03F4
  movlw   H'65'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26326_by: ; 03F8

;; 667 :    if x == 28 then return "n" end if
  movf    H'035',w
  sublw   H'1C'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26342_by
if_26342_th: ; 03FE
  movlw   H'6E'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26342_by: ; 0402

;; 668 :    if x == 29 then return "t" end if
  movf    H'035',w
  sublw   H'1D'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26358_by
if_26358_th: ; 0408
  movlw   H'74'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26358_by: ; 040C

;; 669 :    if x == 30 then return " " end if
  movf    H'035',w
  sublw   H'1E'
  bcf     H'00A',3
  bcf     H'00A',4
  btfss   H'003',2
  goto    if_26374_by
if_26374_th: ; 0412
  movlw   H'20'
  bcf     H'00A',3
  bcf     H'00A',4
  goto    e_25877_mariner22
if_26374_by: ; 0416

;; 670 :    if x == 31 then return "m" end if
  movf    H'035',w
  sublw   H'1F'
  bcf     H'00A',3
  bcf     H'00A',4
Bir şeyi gerçekten öğrenmek, yapmak istiyorsan o şeyi yapmışsın, öğrenmişsin demektir...

muhittin_kaplan

Soruyu Biraz daha açarmısın
(Basic de
KOMUT:KOMUT:KOMUT:KOMUT
Şeklinde oLur
)

kaypic38

#2
Buraya kopyalayınca düzgün oldu ama orjinali;

movf    H'035',w sublw   H'01' bcf     H'00A',3 H'00A',4  btfss   H'003',2 goto 
 

Bu nasıl oluyor ?
Bir şeyi gerçekten öğrenmek, yapmak istiyorsan o şeyi yapmışsın, öğrenmişsin demektir...

kaypic38

#3
Hocam bu BASİC değil ASM dosyası.
Orjinal dosya bu
http://www.upload.gen.tr/d.php/www/uccz8i6r/e1008.asm.html
Bir şeyi gerçekten öğrenmek, yapmak istiyorsan o şeyi yapmışsın, öğrenmişsin demektir...

z

Bazi text dosyalari notepad ile actiginizda satir sonu karakterleri yok oluyor ve normalde alt alta duzgun gorunen satirlar  yan yana olacak sekilde aciliyor.

Sebebine kafa yormadim. Belki sizde de ayni durum olusmustur.
Bana e^st de diyebilirsiniz.   www.cncdesigner.com

kaypic38

@bunalmis
Doğrudur hocam çünkü dosya sorunsuz derleniyor yani asm de her bir satırın ayrı işlevi vardır olamaz diye düşündüm ama galiba dediğiniz gibi zaten buraya kopyalayınca normal asm kurallarına uygun şekilde kopyalandı.
Bir şeyi gerçekten öğrenmek, yapmak istiyorsan o şeyi yapmışsın, öğrenmişsin demektir...

Tagli

Windows altında Notepad++ kullanılmasını öneririm. Sitesinden ücretsiz olarak temin edilebilir. Windows ile gelen Notepad, benzerleriyle karşılaştırıldığında oldukça işe yaramaz bir program.
Gökçe Tağlıoğlu

kaypic38

#7
@Tagli
Teşekkürler hocam.
Bir şeyi gerçekten öğrenmek, yapmak istiyorsan o şeyi yapmışsın, öğrenmişsin demektir...