Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/display.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children 0912ac5dc2ff
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * Display - Display converted characters
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 2 Original Microware distribution version
9
10 nam Display
11 ttl Display converted characters
12
13 * Disassembled 02/04/03 22:44:19 by Disasm v1.6 (C) 1988 by RML
14
15 ifp1
16 use os9defs
17 endc
18 tylg set Prgrm+Objct
19 atrv set ReEnt+rev
20 rev set $01
21 mod eom,name,tylg,atrv,start,size
22 u0000 rmb 450
23 size equ .
24 name equ *
25 fcs /Display/
26 fcb $02
27 start equ *
28 cmpd #$0001
29 bls L0036
30 pshs x
31 leay ,x
32 L001F bsr L003A
33 bcs L0027
34 stb ,x+
35 bra L001F
36 L0027 tfr x,d
37 subd ,s
38 tfr d,y
39 puls x
40 lda #$01
41 os9 I$Write
42 bcs L0037
43 L0036 clrb
44 L0037 os9 F$Exit
45 L003A ldb ,y+
46 cmpb #$2C
47 bne L0042
48 L0040 ldb ,y+
49 L0042 cmpb #$20
50 beq L0040
51 leay -$01,y
52 bsr L0062
53 bcs L0061
54 pshs b
55 bsr L0062
56 bcs L005E
57 lsl ,s
58 lsl ,s
59 lsl ,s
60 lsl ,s
61 addb ,s
62 stb ,s
63 L005E clrb
64 puls b
65 L0061 rts
66 L0062 ldb ,y
67 subb #$30
68 cmpb #$09
69 bls L007A
70 cmpb #$31
71 bcs L0070
72 subb #$20
73 L0070 subb #$07
74 cmpb #$0F
75 bhi L007F
76 cmpb #$0A
77 bcs L007F
78 L007A andcc #$FE
79 leay $01,y
80 rts
81 L007F comb
82 rts
83 emod
84 eom equ *