Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/go51.asm @ 203:7dea3d77ba0b
Used symbolics for andcc/orcc
| author | boisy |
|---|---|
| date | Mon, 15 Jul 2002 04:16:41 +0000 |
| parents | e9ce43cc215e |
| children | 338195952a01 |
| rev | line source |
|---|---|
| 118 | 1 ******************************************************************** |
| 2 * go51 - The 51 column by 24 line video display | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
120
diff
changeset
|
8 * 1 From Dragon OS-9 Level One VR 01.02.00 |
| 118 | 9 |
| 10 nam go51 | |
| 11 ttl The 51 column by 24 line video display | |
| 12 | |
| 13 * Disassembled 02/07/06 21:10:42 by Disasm v1.6 (C) 1988 by RML | |
| 14 | |
| 15 ifp1 | |
| 16 use defsfile | |
| 17 endc | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
120
diff
changeset
|
18 |
| 118 | 19 tylg set Prgrm+Objct |
| 20 atrv set ReEnt+rev | |
| 21 rev set $01 | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
120
diff
changeset
|
22 edition set 1 |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
120
diff
changeset
|
23 |
| 118 | 24 mod eom,name,tylg,atrv,start,size |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
120
diff
changeset
|
25 |
| 118 | 26 u0000 rmb 2 |
| 27 u0002 rmb 2 | |
| 28 u0004 rmb 2 | |
| 29 u0006 rmb 32 | |
| 30 size equ . | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
120
diff
changeset
|
31 |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
120
diff
changeset
|
32 name fcs /go51/ |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
120
diff
changeset
|
33 fcb edition |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
120
diff
changeset
|
34 |
| 120 | 35 L0012 fcs /KBVDIO/ |
| 36 L0018 fcs /drvr51/ | |
| 37 L001E fcs /term/ | |
| 118 | 38 start equ * |
| 39 leax >L0012,pcr | |
| 40 lbsr L00CB | |
| 41 lbcs L00C8 | |
| 42 stx ,u | |
| 43 lbsr L00D6 | |
| 44 leax >L0018,pcr | |
| 45 lbsr L00CB | |
| 46 lbcs L00C8 | |
| 47 stx u0002,u | |
| 48 ldd $02,x | |
| 49 std u0004,u | |
| 50 pshs u,cc | |
| 203 | 51 orcc #IntMasks |
| 118 | 52 ldx >$006B |
| 53 stx >$0032 | |
| 54 ldy ,u | |
| 55 ldx u0004,u | |
| 56 ldu u0002,u | |
| 57 L0054 lda ,u+ | |
| 58 sta ,y+ | |
| 59 leax -$01,x | |
| 60 bne L0054 | |
| 61 ldx #$FF00 | |
| 62 lda $01,x | |
| 63 ora #$30 | |
| 64 anda #$F7 | |
| 65 sta $01,x | |
| 66 lda $03,x | |
| 67 anda #$F6 | |
| 68 ora #$30 | |
| 69 sta $03,x | |
| 70 ldx #$FF20 | |
| 71 lda $03,x | |
| 72 ora #$38 | |
| 73 sta $03,x | |
| 74 puls u,cc | |
| 75 ldx u0002,u | |
| 76 lbsr L00D6 | |
| 77 ldx ,u | |
| 78 ldd $04,x | |
| 79 leax d,x | |
| 80 leay >L0012,pcr | |
| 81 ldb #$06 | |
| 82 L008B lda ,y+ | |
| 83 sta ,x+ | |
| 84 decb | |
| 85 bne L008B | |
| 86 lda #$01 | |
| 87 ldb #$00 | |
| 88 leax u0006,u | |
| 89 os9 I$GetStt | |
| 90 bcs L00C8 | |
| 91 clr $01,x | |
| 92 lda #$18 | |
| 93 sta $08,x | |
| 94 lda #$01 | |
| 95 ldb #$00 | |
| 96 os9 I$SetStt | |
| 97 bcs L00C8 | |
| 98 leax >L001E,pcr | |
| 99 lda #$F1 | |
| 100 pshs u | |
| 101 os9 F$Link | |
| 102 tfr u,x | |
| 103 puls u | |
| 104 bcs L00C8 | |
| 105 clr <$13,x | |
| 106 lda #$18 | |
| 107 sta <$1A,x | |
| 108 bsr L00D6 | |
| 109 clrb | |
| 110 L00C8 os9 F$Exit | |
| 111 L00CB pshs u | |
| 112 lda #$E1 | |
| 113 os9 F$Link | |
| 114 tfr u,x | |
| 115 puls pc,u | |
| 116 L00D6 pshs u | |
| 117 tfr x,u | |
| 118 os9 F$UnLink | |
| 119 puls pc,u | |
| 120 emod | |
| 121 eom equ * |