Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/display.asm @ 286:326238550911

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Additional command help
author boisy
date Sun, 21 Jul 2002 22:12:06 +0000
parents e9ce43cc215e
children 1810b051d07e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
2 * Display - display control codes
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 15
diff changeset
8 * 2 From Tandy OS-9 Level One VR 02.00.00
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Display
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
11 ttl display control codes
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
13 * Disassembled 02/04/05 15:13:55 by Disasm v1.6 (C) 1988 by RML
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
16 use defsfile
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 endc
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
18
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 rev set $01
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
22
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 mod eom,name,tylg,atrv,start,size
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
24
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 u0000 rmb 450
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 size equ .
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
27
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
28 name fcs /Display/
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 fcb $02
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
30
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
31 start cmpd #$0001
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 bls L0036
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 leay ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 L001F bsr L003A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 bcs L0027
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 stb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 bra L001F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 L0027 tfr x,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 subd ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 puls x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 os9 I$Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 bcs L0037
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 L0036 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 L0037 os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 L003A ldb ,y+
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
49 cmpb #C$COMA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 bne L0042
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 L0040 ldb ,y+
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
52 L0042 cmpb #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 beq L0040
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 leay -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 bsr L0062
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 bcs L0061
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 bsr L0062
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 bcs L005E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 lsl ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 lsl ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 lsl ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 lsl ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 addb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 stb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 L005E clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 L0061 rts
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
69
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
70 L0062 ldb ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 subb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 cmpb #$09
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 bls L007A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 cmpb #$31
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 bcs L0070
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 subb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 L0070 subb #$07
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 cmpb #$0F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 bhi L007F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 cmpb #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 bcs L007F
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 15
diff changeset
82 L007A andcc #^Carry
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
83 leay $01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 L007F comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 rts
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
87
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
89 eom equ *
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
90 end
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
91