Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/display.asm @ 15:0912ac5dc2ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added initial and dates to some source files added mfree.asm, modified makefile
author boisy
date Fri, 05 Apr 2002 21:35:25 +0000
parents 6641a883d6b0
children e9ce43cc215e
comparison
equal deleted inserted replaced
14:9b772b21c68f 15:0912ac5dc2ff
1 ******************************************************************** 1 ********************************************************************
2 * Display - Display converted characters 2 * Display - display control codes
3 * 3 *
4 * $Id$ 4 * $Id$
5 * 5 *
6 * Ed. Comments Who YY/MM/DD 6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------ 7 * ------------------------------------------------------------------
8 * 2 Original Microware distribution version 8 * 2 Original Tandy version BGP 02/04/05
9 9
10 nam Display 10 nam Display
11 ttl Display converted characters 11 ttl display control codes
12 12
13 * Disassembled 02/04/03 22:44:19 by Disasm v1.6 (C) 1988 by RML 13 * Disassembled 02/04/05 15:13:55 by Disasm v1.6 (C) 1988 by RML
14 14
15 ifp1 15 ifp1
16 use os9defs 16 use defsfile
17 endc 17 endc
18
18 tylg set Prgrm+Objct 19 tylg set Prgrm+Objct
19 atrv set ReEnt+rev 20 atrv set ReEnt+rev
20 rev set $01 21 rev set $01
22
21 mod eom,name,tylg,atrv,start,size 23 mod eom,name,tylg,atrv,start,size
24
22 u0000 rmb 450 25 u0000 rmb 450
23 size equ . 26 size equ .
24 name equ * 27
25 fcs /Display/ 28 name fcs /Display/
26 fcb $02 29 fcb $02
27 start equ * 30
28 cmpd #$0001 31 start cmpd #$0001
29 bls L0036 32 bls L0036
30 pshs x 33 pshs x
31 leay ,x 34 leay ,x
32 L001F bsr L003A 35 L001F bsr L003A
33 bcs L0027 36 bcs L0027
41 os9 I$Write 44 os9 I$Write
42 bcs L0037 45 bcs L0037
43 L0036 clrb 46 L0036 clrb
44 L0037 os9 F$Exit 47 L0037 os9 F$Exit
45 L003A ldb ,y+ 48 L003A ldb ,y+
46 cmpb #$2C 49 cmpb #C$COMA
47 bne L0042 50 bne L0042
48 L0040 ldb ,y+ 51 L0040 ldb ,y+
49 L0042 cmpb #$20 52 L0042 cmpb #C$SPAC
50 beq L0040 53 beq L0040
51 leay -$01,y 54 leay -$01,y
52 bsr L0062 55 bsr L0062
53 bcs L0061 56 bcs L0061
54 pshs b 57 pshs b
61 addb ,s 64 addb ,s
62 stb ,s 65 stb ,s
63 L005E clrb 66 L005E clrb
64 puls b 67 puls b
65 L0061 rts 68 L0061 rts
69
66 L0062 ldb ,y 70 L0062 ldb ,y
67 subb #$30 71 subb #$30
68 cmpb #$09 72 cmpb #$09
69 bls L007A 73 bls L007A
70 cmpb #$31 74 cmpb #$31
78 L007A andcc #$FE 82 L007A andcc #$FE
79 leay $01,y 83 leay $01,y
80 rts 84 rts
81 L007F comb 85 L007F comb
82 rts 86 rts
87
83 emod 88 emod
84 eom equ * 89 eom equ *
90 end
91