API tools faq
paste
Guest User

Untitled

a guest
Apr 20th, 2018
97
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MPASM 16.71 KB | None | 0 0
raw download clone embed print report
  1. ;*************************************************************************************************
  2. ;*************************************************************************************************
  3. ;**                                             **
  4. ;**             16F887 Graphic LCD Driver                   **
  5. ;**              For Toshiba T6963C 240 x 64 GLCD                   **
  6. ;**                    By Jon Wilder                        **
  7. ;**                       Date: 12/01/2011                      **
  8. ;**                                             **
  9. ;*************************************************************************************************
  10. ;*************************************************************************************************
  11. ;**                                             **
  12. ;**             Header Information/Config Options               **
  13. ;**                                             **
  14. ;**                                             **
  15. ;**                                             **
  16. ;** Processor Type: PIC 16F887                                  **
  17. ;** Default Radix: Decimal                                  **
  18. ;** Error Level: -302/Suppress all assembler bank select warnings               **
  19. ;** Reference header file P16F887.INC for SFR and Config option labels              **
  20. ;**                                             **
  21. ;** Configuration Word 1                                    **
  22. ;**                                             **
  23. ;** In Circuit Debug Off (Default)                              **
  24. ;** Low Voltage Programming Off                                 **
  25. ;** Fail Safe Clock Monitor Off                                 **
  26. ;** Internal External Switchover Off                                **
  27. ;** Brown Out Reset Off                                     **
  28. ;** Data Code Protection Off (Default)                              **
  29. ;** Code Protection Off (Default)                               **
  30. ;** RA5 has MCLR Function (Default)                             **
  31. ;** Power Up Timer On                                       **
  32. ;** Watchdog Timer Off                                      **
  33. ;** High Speed XT Oscillator                                    **
  34. ;**                                             **
  35. ;** Configuration Word 2                                    **
  36. ;**                                             **
  37. ;** Program ROM Write Protection Off (Default)                          **
  38. ;** Brown Out Reset 4.0V (Default)                              **
  39. ;**                                             **
  40. ;** Fosc = 16MHz                                        **
  41. ;**                                             **
  42. ;*************************************************************************************************
  43. ;*************************************************************************************************
  44.  
  45.         list        p=16F887, r=dec, w=-302
  46.         include     <P16F887.INC>
  47.         __config    _CONFIG1, _LVP_OFF & _FCMEN_OFF & _IESO_OFF & _BOR_OFF & _PWRTE_ON & _WDT_OFF & _FOSC_HS
  48.  
  49. ;*************************************************************************************************
  50. ;**                                             **
  51. ;**             RAM Location Constants                      **
  52. ;**                                             **
  53. ;*************************************************************************************************
  54.  
  55.         cblock      0x20
  56.                 TEMP            ;temp buffer
  57.                 DATAL           ;instruction data low byte
  58.                 DATAH           ;instruction data high byte
  59.                 COMMAND         ;instruction
  60.                 TABLECOUNT      ;table counter
  61.         endc
  62.  
  63.         cblock      0x70
  64.                 W_TEMP          ;interrupt context save for W
  65.                 STATUS_TEMP     ;interrupt context save for STATUS
  66.                 PCLATH_TEMP     ;interrupt context save for PCLATH
  67.                 COUNT1          ;delay counter 1
  68.                 COUNT2          ;delay counter 2
  69.                 COUNT3          ;delay counter 3
  70.                 DATA_EE_ADDR        ;data EEPROM address buffer
  71.                 DATA_EE_DATA        ;data EEPROM data buffer
  72.                 CASEFLAGS       ;used to indicate upper/lower case
  73.         endc
  74.  
  75. ;*************************************************************************************************
  76. ;**                                             **
  77. ;**             Control/Data Line Labels                    **
  78. ;**                                             **
  79. ;*************************************************************************************************
  80.  
  81. ;nemonics used for read/write enable/disable
  82.  
  83. WR_EN       EQU     2           ;write mode enable
  84. WR_DIS      EQU     7           ;write mode disable
  85. RD_EN       EQU     1           ;read mode enable
  86. RD_DIS      EQU     7           ;read mode disable
  87.  
  88. ;control lines
  89.  
  90. #define     CD      PORTA,RA0       ;GLCD command/data
  91. #define     RST     PORTA,RA1       ;GLCD reset
  92. #define     FONT        PORTA,RA2       ;GLCD font select (6x8 or 8x8)
  93. #define     WRITE       PORTC,RC0       ;GLCD write enable/disable (active low)
  94. #define     READ        PORTC,RC1       ;GLCD read enable/disable (active low)
  95. #define     CE      PORTC,RC2       ;GLCD chip enable/disable (active low)
  96.  
  97. ;data port
  98.  
  99. #define     D0      PORTD,RD0       ;GLCD data port bit 0
  100. #define     D1      PORTD,RD1       ;GLCD data port bit 1
  101. #define     D2      PORTD,RD2       ;GLCD data port bit 2
  102. #define     D3      PORTD,RD3       ;GLCD data port bit 3
  103. #define     D4      PORTD,RD4       ;GLCD data port bit 4
  104. #define     D5      PORTD,RD5       ;GLCD data port bit 5
  105. #define     D6      PORTD,RD6       ;GLCD data port bit 6
  106. #define     D7      PORTD,RD7       ;GLCD data port bit 7
  107.  
  108. ;*************************************************************************************************
  109. ;**                                             **
  110. ;**             Start of Main Code                      **
  111. ;**                                             **
  112. ;*************************************************************************************************
  113.  
  114.         org         0x000           ;reset vector
  115.         goto        START           ;jump to start of main code
  116.  
  117.         org         0x004           ;interrupt vector
  118.         goto        ISR         ;jump to start of interrupt handler
  119.  
  120.  
  121. ;digit look up table
  122.  
  123. DIGIT       addwf       PCL,F
  124.         retlw       0x10            ;0
  125.         retlw       0x11            ;1
  126.         retlw       0x12            ;2
  127.         retlw       0x13            ;3
  128.         retlw       0x14            ;4
  129.         retlw       0x15            ;5
  130.         retlw       0x16            ;6
  131.         retlw       0x17            ;7
  132.         retlw       0x18            ;8
  133.         retlw       0x19            ;9
  134.         retlw       0x21            ;A
  135.         retlw       0x22            ;B
  136.         retlw       0x23            ;C
  137.         retlw       0x24            ;D
  138.         retlw       0x25            ;E
  139.         retlw       0x26            ;F
  140.  
  141. ;upper case look up table
  142. ;(add offset of 0x20 to fetched table value to convert to lower case)
  143.  
  144. ALPHA       addwf       PCL,F
  145.         retlw       0           ;space
  146.         retlw       0x21            ;A
  147.         retlw       0x22            ;B
  148.         retlw       0x23            ;C
  149.         retlw       0x24            ;D
  150.         retlw       0x25            ;E
  151.         retlw       0x26            ;F
  152.         retlw       0x27            ;G
  153.         retlw       0x28            ;H
  154.         retlw       0x29            ;I
  155.         retlw       0x2A            ;J
  156.         retlw       0x2B            ;K
  157.         retlw       0x2C            ;L
  158.         retlw       0x2D            ;M
  159.         retlw       0x2E            ;N
  160.         retlw       0x2F            ;O
  161.         retlw       0x30            ;P
  162.         retlw       0x31            ;Q
  163.         retlw       0x32            ;R
  164.         retlw       0x33            ;S
  165.         retlw       0x34            ;T
  166.         retlw       0x35            ;U
  167.         retlw       0x36            ;V
  168.         retlw       0x37            ;W
  169.         retlw       0x38            ;X
  170.         retlw       0x39            ;Y
  171.         retlw       0x3A            ;Z
  172.  
  173. ;*************************************************************************************************
  174. ;**                                             **
  175. ;**             Initialization Routine                      **
  176. ;**                                             **
  177. ;*************************************************************************************************
  178.  
  179. START       clrf        PORTA           ;init ports
  180.         clrf        PORTB
  181.         clrf        PORTC
  182.         clrf        PORTD
  183.         clrf        PORTE
  184.         banksel     ANSEL           ;bank 3
  185.         clrf        ANSEL           ;all ports digital I/O
  186.         clrf        ANSELH
  187.         banksel     TRISA           ;bank 1
  188.         clrf        TRISA           ;PORTA, PORTB, PORTC, and PORTE outputs
  189.         clrf        TRISB           ;PORTD defaults to input
  190.         clrf        TRISC
  191.         clrf        TRISE
  192.         banksel     0           ;bank 0
  193.         clrf        CASEFLAGS
  194.  
  195. GLCD_INIT   bcf     RST         ;reset GLCD
  196.         movlw       5           ;Command mode and 6x8 font
  197.         movwf       PORTA
  198.         movlw       7           ;disable read, write, and chip enable
  199.         movwf       PORTC
  200.         call        Delay50mS       ;wait 50mS
  201.         bsf     RST         ;disable reset
  202.  
  203. ;set operating mode
  204.  
  205. ModeSet     movlw       0x84            ;text attribute mode with CG ROM on
  206.         movwf       COMMAND
  207.         call        NoData
  208.  
  209.  
  210. ;graphics RAM start address 0x0000
  211.  
  212. GraphicsHome    movlw       0
  213.         movwf       DATAL
  214.         movlw       0
  215.         movwf       DATAH
  216.         call        GRPHHome
  217.  
  218. ;graphics area 40 rows for 240x64 display
  219.  
  220. GraphicsArea    movlw       0x28
  221.         movwf       DATAL
  222.         movlw       0
  223.         movwf       DATAH
  224.         call        GRPHArea
  225.  
  226. ;text RAM start address 0x1700
  227.  
  228. TextHome    movlw       0
  229.         movwf       DATAL
  230.         movlw       0x17
  231.         movwf       DATAH
  232.         call        TXTHome
  233.  
  234. ;text area 40 rows for 240x64 display
  235.  
  236. TextArea    movlw       0x28
  237.         movwf       DATAL
  238.         movlw       0
  239.         movwf       DATAH
  240.         call        TXTArea
  241.  
  242. ;set offset register
  243.  
  244. CGROMSet    movlw       0x03
  245.         movwf       DATAL
  246.         movlw       0
  247.         movwf       DATAH
  248.         call        CGROM
  249.  
  250. ;clear graphics RAM
  251.  
  252.         movlw       0           ;set start address to 0x00
  253.         movwf       DATAL
  254.         movlw       0
  255.         movwf       DATAH
  256.         call        DisplayClear
  257.  
  258. ;clear text RAM
  259.  
  260.         movlw       0           ;set start address to 0x17
  261.         movwf       DATAL
  262.         movlw       0x17
  263.         movwf       DATAH
  264.         call        DisplayClear
  265.  
  266. ;single line cursor
  267.  
  268. CSRPattern  movlw       0xA0
  269.         movwf       COMMAND
  270.         call        NoData
  271.  
  272. ;set cursor pointer on line 0 column 0
  273.  
  274. CSRPointer  movlw       26
  275.         movwf       DATAL
  276.         movlw       5
  277.         movwf       DATAH
  278.         call        CSR_PTR
  279.  
  280. ;position address pointer on line 0, column 6
  281.  
  282.         movlw       46          ;set address pointer
  283.         movwf       DATAL
  284.         movlw       0x17
  285.         movwf       DATAH
  286.         call        ADDR_PTR
  287.  
  288.         call        DAWSet          ;enable data auto write
  289.  
  290.         movlw       16          ;P
  291.         call        DAWALoad
  292.  
  293.         movlw       9           ;I
  294.         call        DAWALoad
  295.  
  296.         movlw       3           ;C
  297.         call        DAWALoad
  298.  
  299.         movlw       1           ;1
  300.         call        DAWDLoad
  301.  
  302.         movlw       6           ;6
  303.         call        DAWDLoad
  304.  
  305.         movlw       6           ;F
  306.         call        DAWALoad
  307.  
  308.         movlw       8           ;8
  309.         call        DAWDLoad
  310.  
  311.         movlw       8           ;8
  312.         call        DAWDLoad
  313.  
  314.         movlw       7           ;7
  315.         call        DAWDLoad
  316.  
  317.         movlw       0           ;
  318.         call        DAWALoad
  319.  
  320.         movlw       7           ;G
  321.         call        DAWALoad
  322.  
  323.         movlw       18          ;R
  324.         call        DAWALoad
  325.  
  326.         movlw       1           ;A
  327.         call        DAWALoad
  328.  
  329.         movlw       16          ;P
  330.         call        DAWALoad
  331.  
  332.         movlw       8           ;H
  333.         call        DAWALoad
  334.  
  335.         movlw       9           ;I
  336.         call        DAWALoad
  337.  
  338.         movlw       3           ;C
  339.         call        DAWALoad
  340.  
  341.         movlw       0           ;
  342.         call        DAWALoad
  343.  
  344.         movlw       12          ;L
  345.         call        DAWALoad
  346.  
  347.         movlw       3           ;C
  348.         call        DAWALoad
  349.  
  350.         movlw       4           ;D
  351.         call        DAWALoad
  352.  
  353.         movlw       0           ;
  354.         call        DAWALoad
  355.  
  356.         movlw       4           ;D
  357.         call        DAWALoad
  358.  
  359.         movlw       18          ;R
  360.         call        DAWALoad
  361.  
  362.         movlw       9           ;I
  363.         call        DAWALoad
  364.  
  365.         movlw       22          ;V
  366.         call        DAWALoad
  367.  
  368.         movlw       5           ;E
  369.         call        DAWALoad
  370.  
  371.         movlw       18          ;R
  372.         call        DAWALoad
  373.  
  374.         call        DAWReset        ;disable data auto write
  375.  
  376.         movlw       125         ;set address pointer
  377.         movwf       DATAL
  378.         movlw       0x17
  379.         movwf       DATAH
  380.         call        ADDR_PTR
  381.  
  382.         call        DAWSet          ;enable data auto write
  383.  
  384.         movlw       6           ;F
  385.         call        DAWALoad
  386.  
  387.         movlw       15          ;O
  388.         call        DAWALoad
  389.  
  390.         movlw       18          ;R
  391.         call        DAWALoad
  392.  
  393.         movlw       0           ;
  394.         call        DAWALoad
  395.  
  396.         movlw       20          ;T
  397.         call        DAWALoad
  398.  
  399.         movlw       15          ;O
  400.         call        DAWALoad
  401.  
  402.         movlw       19          ;S
  403.         call        DAWALoad
  404.  
  405.         movlw       8           ;H
  406.         call        DAWALoad
  407.  
  408.         movlw       9           ;I
  409.         call        DAWALoad
  410.  
  411.         movlw       2           ;B
  412.         call        DAWALoad
  413.  
  414.         movlw       1           ;A
  415.         call        DAWALoad
  416.  
  417.         movlw       0           ;
  418.         call        DAWALoad
  419.  
  420.         movlw       20          ;T
  421.         call        DAWALoad
  422.  
  423.         movlw       6           ;6
  424.         call        DAWDLoad
  425.  
  426.         movlw       9           ;9
  427.         call        DAWDLoad
  428.  
  429.         movlw       6           ;6
  430.         call        DAWDLoad
  431.  
  432.         movlw       3           ;3
  433.         call        DAWDLoad
  434.  
  435.         movlw       3           ;C
  436.         call        DAWALoad
  437.  
  438.         movlw       0           ;
  439.         call        DAWALoad
  440.  
  441.         movlw       2           ;2
  442.         call        DAWDLoad
  443.  
  444.         movlw       4           ;4
  445.         call        DAWDLoad
  446.  
  447.         movlw       0           ;0
  448.         call        DAWDLoad
  449.  
  450.         bsf     CASEFLAGS,0
  451.         movlw       24          ;x
  452.         call        DAWALoad
  453.  
  454.         movlw       6           ;6
  455.         call        DAWDLoad
  456.  
  457.         movlw       4           ;4
  458.         call        DAWDLoad
  459.  
  460.         movlw       0           ;
  461.         call        DAWALoad
  462.  
  463.         movlw       7           ;G
  464.         call        DAWALoad
  465.  
  466.         movlw       12          ;L
  467.         call        DAWALoad
  468.  
  469.         movlw       3           ;C
  470.         call        DAWALoad
  471.  
  472.         movlw       4           ;D
  473.         call        DAWALoad
  474.  
  475.         call        DAWReset        ;disable data auto write
  476.  
  477.         movlw       213         ;set address pointer
  478.         movwf       DATAL
  479.         movlw       0x17
  480.         movwf       DATAH
  481.         call        ADDR_PTR
  482.  
  483.         call        DAWSet          ;enable data auto write
  484.  
  485.         movlw       2           ;B
  486.         call        DAWALoad
  487.  
  488.         movlw       25          ;Y
  489.         call        DAWALoad
  490.  
  491.         movlw       0           ;
  492.         call        DAWALoad
  493.  
  494.         movlw       10          ;J
  495.         call        DAWALoad
  496.  
  497.         movlw       15          ;O
  498.         call        DAWALoad
  499.  
  500.         movlw       14          ;N
  501.         call        DAWALoad
  502.  
  503.         movlw       0           ;
  504.         call        DAWALoad
  505.  
  506.         movlw       23          ;W
  507.         call        DAWALoad
  508.  
  509.         movlw       9           ;I
  510.         call        DAWALoad
  511.  
  512.         movlw       12          ;L
  513.         call        DAWALoad
  514.  
  515.         movlw       4           ;D
  516.         call        DAWALoad
  517.  
  518.         movlw       5           ;E
  519.         call        DAWALoad
  520.  
  521.         movlw       18          ;R
  522.         call        DAWALoad
  523.  
  524.         call        DAWReset        ;disable data auto write
  525.  
  526. ;text and graphics RAM on, cursor on with cursor blink
  527.  
  528. DisplayOn   movlw       0x9F
  529.         movwf       COMMAND
  530.         call        NoData
  531.  
  532.         goto        $
  533.  
  534. ;*************************************************************************************************
  535. ;**                                             **
  536. ;**             Delay Loops                         **
  537. ;**                                             **
  538. ;*************************************************************************************************
  539.  
  540. ;fixed 50mS delay
  541.  
  542. Delay50mS   movlw       0xFF
  543.         movwf       COUNT1
  544.         movwf       COUNT2
  545.         decfsz      COUNT1,F
  546.         goto        $-1
  547.         decfsz      COUNT2,F
  548.         goto        $-3
  549.         return
  550.  
  551. ;*************************************************************************************************
  552.  
  553. ;variable delay
  554.  
  555. Delay       movwf       COUNT3
  556.         call        Delay50mS
  557.         decfsz      COUNT3,F
  558.         goto        $-2
  559.         return
  560.  
  561. ;*************************************************************************************************
  562. ;**                                             **
  563. ;**             Two Data Byte Instructions                  **
  564. ;**                                             **
  565. ;*************************************************************************************************
  566.  
  567. CGROM       movlw       0x22
  568.         goto        CSend
  569. ADDR_PTR    movlw       0x24
  570.         goto        CSend
  571. CSR_PTR     movlw       0x21
  572.         goto        CSend
  573. GRPHHome    movlw       0x42
  574.         goto        CSend
  575. GRPHArea    movlw       0x43
  576.         goto        CSend
  577. TXTHome     movlw       0x40
  578.         goto        CSend
  579. TXTArea     movlw       0x41
  580.         goto        CSend
  581. CSend       movwf       COMMAND
  582.         call        TwoData
  583.         return
  584.  
  585. ;*************************************************************************************************
  586. ;**                                             **
  587. ;**             Data Auto Read/Write Routines                   **
  588. ;**                                             **
  589. ;*************************************************************************************************
  590.  
  591. DAWSet      movlw       0xB0
  592.         movwf       COMMAND
  593.         call        NoData
  594.         call        LCDStat
  595.         call        DAWStat
  596.         return
  597.  
  598. ;*************************************************************************************************
  599.  
  600. DAWReset    call        DAWStat
  601.         movlw       0xB2
  602.         movwf       COMMAND
  603.         call        NoData
  604.         return
  605.  
  606. ;*************************************************************************************************
  607.  
  608. ;check data auto write ready bit
  609.  
  610. DAWStat     call        StatReadEn      ;enable status read
  611.         btfss       D3          ;auto write ready?
  612.         goto        $-1
  613.         call        StatReadDis     ;disable status read
  614.         return
  615.  
  616. ;*************************************************************************************************
  617.  
  618. DAWrite     call        DAWStat
  619.         movfw       DATAL
  620.         call        DWrite
  621.         return
  622.  
  623. ;*************************************************************************************************
  624.  
  625. DAWALoad    call        ALPHA
  626.         btfsc       CASEFLAGS,0
  627.         addlw       0x20
  628.         goto        $+2
  629. DAWDLoad    call        DIGIT
  630.         movwf       DATAL
  631.         call        DAWrite
  632.         bcf     CASEFLAGS,0
  633.         return
  634.  
  635. ;*************************************************************************************************
  636. ;**                                             **
  637. ;**             Command Send Routines                       **
  638. ;**                                             **
  639. ;*************************************************************************************************
  640.  
  641. TwoData     call        LCDStat
  642.         movfw       DATAL
  643.         call        DWrite
  644. OneData     call        LCDStat
  645.         movfw       DATAH
  646.         call        DWrite
  647. NoData      call        LCDStat
  648.         movfw       COMMAND
  649.         call        Command
  650.         return
  651.  
  652. ;*************************************************************************************************
  653. ;**                                             **
  654. ;**             GLCD Read/Write/Status Check                    **
  655. ;**                                             **
  656. ;*************************************************************************************************
  657.  
  658. ;command/data write
  659.  
  660. Command     bsf     CD          ;command mode
  661.         goto        $+2
  662. DWrite      bcf     CD          ;data mode
  663.         movwf       PORTD           ;place write data on data port latch
  664.         movlw       WR_EN           ;chip enable low
  665.         movwf       PORTC           ;enable write
  666.         banksel     TRISD           ;bank 1
  667.         clrf        TRISD           ;RD0-RD7 output
  668.         banksel     0           ;bank 0
  669.         movlw       WR_DIS          ;disable write
  670.         movwf       PORTC           ;chip enable high
  671.         banksel     TRISD           ;bank 1
  672.         comf        TRISD,F         ;RD0-RD7 input
  673.         banksel     0           ;bank 0
  674.         return
  675.  
  676. ;*************************************************************************************************
  677.  
  678. ;check GLCD status
  679.  
  680. LCDStat     call        StatReadEn      ;enable status read
  681.         btfsc       D0          ;is GLCD ready?
  682.         btfss       D1
  683.         goto        $-2         ;no, check again
  684.         call        StatReadDis     ;disable status read
  685.         return
  686.  
  687. ;*************************************************************************************************
  688.  
  689. ;GLCD status read enable
  690.  
  691. StatReadEn  bsf     CD          ;command mode
  692.         movlw       RD_EN           ;enable read
  693.         movwf       PORTC
  694.         return
  695.  
  696. ;*************************************************************************************************
  697.  
  698. ;GLCD status read disable
  699.  
  700. StatReadDis movlw       RD_DIS          ;disable read
  701.         movwf       PORTC
  702.         return
  703.  
  704. ;*************************************************************************************************
  705. ;**                                             **
  706. ;**                 Clear Display                       **
  707. ;**                                             **
  708. ;*************************************************************************************************
  709.  
  710. DisplayClear    movlw       160         ;init counters
  711.         movwf       COUNT1          ;to clear 320 VRAM locations
  712.         movlw       2
  713.         movwf       COUNT2
  714.         call        ADDR_PTR        ;set address pointer
  715.         call        DAWSet
  716.         call        DAWStat
  717.         movlw       0           ;write 0 to display
  718.         call        DWrite
  719.         decfsz      COUNT1,F        ;decrement COUNT1 and continue writing
  720.         goto        $-4         ;data if COUNT1 > 0
  721.         movlw       160         ;re-init COUNT1
  722.         movwf       COUNT1          ;decrement COUNT2 and continue writing
  723.         decfsz      COUNT2,F        ;data if COUNT2 > 0
  724.         goto        $-8
  725.         call        DAWReset
  726.         return                  ;done
  727.  
  728. ;*************************************************************************************************
  729. ;**                                             **
  730. ;**             Interrupt Handler                       **
  731. ;**                                             **
  732. ;*************************************************************************************************
  733.  
  734. ;interrupt context save
  735.  
  736. ISR     movwf       W_TEMP
  737.         swapf       STATUS,W
  738.         banksel     0           ;bank 0
  739.         movwf       STATUS_TEMP
  740.         movfw       PCLATH
  741.         movwf       PCLATH_TEMP
  742.  
  743. ;interrupt code goes here
  744.  
  745. ;interrupt context restore
  746.  
  747. ISRExit     movfw       PCLATH_TEMP
  748.         movwf       PCLATH
  749.         swapf       STATUS_TEMP,W
  750.         movwf       STATUS
  751.         swapf       W_TEMP,F
  752.         swapf       W_TEMP,W
  753.         retfie
  754.  
  755.         end
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!