********************************************************************
* Display - Display converted characters
*
* $Id$
*
* Ed.    Comments                                       Who YY/MM/DD
* ------------------------------------------------------------------
*  2     Original Microware distribution version

         nam   Display
         ttl   Display converted characters

* Disassembled 02/04/03 22:44:19 by Disasm v1.6 (C) 1988 by RML

         ifp1
         use   os9defs
         endc
tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $01
         mod   eom,name,tylg,atrv,start,size
u0000    rmb   450
size     equ   .
name     equ   *
         fcs   /Display/
         fcb   $02 
start    equ   *
         cmpd  #$0001
         bls   L0036
         pshs  x
         leay  ,x
L001F    bsr   L003A
         bcs   L0027
         stb   ,x+
         bra   L001F
L0027    tfr   x,d
         subd  ,s
         tfr   d,y
         puls  x
         lda   #$01
         os9   I$Write  
         bcs   L0037
L0036    clrb  
L0037    os9   F$Exit   
L003A    ldb   ,y+
         cmpb  #$2C
         bne   L0042
L0040    ldb   ,y+
L0042    cmpb  #$20
         beq   L0040
         leay  -$01,y
         bsr   L0062
         bcs   L0061
         pshs  b
         bsr   L0062
         bcs   L005E
         lsl   ,s
         lsl   ,s
         lsl   ,s
         lsl   ,s
         addb  ,s
         stb   ,s
L005E    clrb  
         puls  b
L0061    rts   
L0062    ldb   ,y
         subb  #$30
         cmpb  #$09
         bls   L007A
         cmpb  #$31
         bcs   L0070
         subb  #$20
L0070    subb  #$07
         cmpb  #$0F
         bhi   L007F
         cmpb  #$0A
         bcs   L007F
L007A    andcc #$FE
         leay  $01,y
         rts   
L007F    comb  
         rts   
         emod
eom      equ   *