Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/packages/os9l2bbs/cmds/BBS.convert.asm @ 3295:6b7a7b233925 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
makefile: Allow PORTS with level1/2 mix https://sourceforge.net/p/nitros9/feature-requests/10/
author Tormod Volden <debian.tormod@gmail.com>
date Tue, 19 Apr 2022 18:12:17 +0200
parents f87ec0b216c8
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2537
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
1 nam BBS.convert
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
2 ttl program module
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
3
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
4 ifp1
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
5 use defsfile
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
6 endc
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
7
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
8 tylg set Prgrm+Objct
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
9 atrv set ReEnt+rev
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
10 rev set $01
2400
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
11
2537
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
12 mod eom,name,tylg,atrv,start,size
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
13
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
14 inxpath rmb 1
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
15 buffer rmb 62
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
16 U003F rmb 400
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
17 size equ .
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
18
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
19 name fcs /BBS.convert/ * 000D 42 42 53 2E 63 6F 6E 76 65 72 F4 BBS.convert
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
20 L0018 fcb $FF * 0018 FF .
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
21 fcb $FF * 0019 FF .
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
22 msginx fcc "BBS.msg.inx" * 001A 42 42 53 2E 6D 73 67 2E 69 6E 78 BBS.msg.inx
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
23 fcb $0D * 0025 0D .
2400
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
24
2538
f87ec0b216c8 Enabled automatic string detection in the disassembler.
lothan
parents: 2537
diff changeset
25 start leax >msginx,PC * 0026 30 8D FF F0 0..p
2537
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
26 lda #3 * 002A 86 03 ..
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
27 os9 I$Open * Open BBS.msg.inx * 002C 10 3F 84 .?.
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
28 lbcs ErrExit * Exit on error * 002F 10 25 00 21 .%.!
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
29 sta inxpath,U * Save the path * 0033 A7 C4 'D
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
30
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
31 Loop lda inxpath,U * Get the path * 0035 A6 C4 &D
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
32 leax buffer,U * 0037 30 41 0A
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
33 ldy #62 * 0039 10 8E 00 3E ...>
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
34 os9 I$Read * Read 62 bytes * 003D 10 3F 89 .?.
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
35 lbcs Exit * Exit on error/EOF * 0040 10 25 00 0F .%..
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
36
2538
f87ec0b216c8 Enabled automatic string detection in the disassembler.
lothan
parents: 2537
diff changeset
37 leax >L0018,PC * 0044 30 8D FF D0 0..P
2537
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
38 ldy #2 * 0048 10 8E 00 02 ....
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
39 lda inxpath,U * 004C A6 C4 &D
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
40 os9 I$Write * Write $FFFF to BBS.msg.inx * 004E 10 3F 8A .?.
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
41 bra Loop * Repeat for next block * 0051 20 E2 b
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
42
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
43 Exit clrb * 0053 5F _
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
44 ErrExit os9 F$Exit * 0054 10 3F 06 .?.
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
45
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
46 emod
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
47 eom equ *
c491d9c9a4fd Tagged data areas and disassembled again.
lothan
parents: 2402
diff changeset
48 end