home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols200 / vol270 / sed2m.doc < prev    next >
Encoding:
Text File  |  1986-05-22  |  10.7 KB  |  228 lines
  1.                                         ;
  2.                                         ; pushtop
  3.                                         ;
  4.   0000'   21 buffer             PUSHT:  LD HL,BUFFER
  5.   0003'   7E                            LD A,(HL)
  6.   0004'   ED 5B ptop                    LD DE,(PTOP)
  7.   0008'   13                            INC DE
  8.   0009'   B7                            OR A
  9.   000A'   28 06                         JR Z,PUSHT1
  10.   000C'   06 00                         LD B,0
  11.   000E'   4F                            LD C,A
  12.   000F'   23                            INC HL
  13.   0010'   ED B0                         LDIR
  14.   0012'   EB                    PUSHT1: EX DE,HL
  15.   0013'   36 0D                         LD (HL),0DH
  16.   0015'   23                            INC HL
  17.   0016'   36 0A                         LD (HL),0AH
  18.   0018'   22 ptop                       LD (PTOP),HL
  19.   001B'   C9                            RET
  20.                                         ;
  21.                                         ; poptop
  22.                                         ;
  23.   001C'   2A ptop               POPT:   LD HL,(PTOP)
  24.   001F'   7E                            LD A,(HL)
  25.   0020'   B7                            OR A
  26.   0021'   28 1D                         JR Z,POPT3
  27.   0023'   0E 00                         LD C,0
  28.   0025'   2B                    POPT1:  DEC HL
  29.   0026'   0C                            INC C
  30.   0027'   7E                            LD A,(HL)
  31.   0028'   B7                            OR A
  32.   0029'   28 04                         JR Z,POPT2
  33.   002B'   FE 0A                         CP 0AH
  34.   002D'   20 F6                         JR NZ,POPT1
  35.   002F'   22 ptop               POPT2:  LD (PTOP),HL
  36.   0032'   0D                            DEC C
  37.   0033'   0D                            DEC C
  38.   0034'   79                            LD A,C
  39.   0035'   28 09                         JR Z,POPT3
  40.   0037'   06 00                         LD B,0
  41.   0039'   23                            INC HL
  42.   003A'   11 buffer                     LD DE,BUFFER
  43.   003D'   13                            INC DE
  44.   003E'   ED B0                         LDIR
  45.   0040'   32 buffer             POPT3:  LD (BUFFER),A
  46.   0043'   C9                            RET
  47.                                         ;
  48.                                         ; pushbottom
  49.                                         ;
  50.   0044'   3A buffer             PUSHB:  LD A,(BUFFER)
  51.   0047'   2A pbotm                      LD HL,(PBOTM)
  52.   004A'   2B                            DEC HL
  53.   004B'   36 0A                         LD (HL),0AH
  54.   004D'   2B                            DEC HL
  55.   004E'   36 0D                         LD (HL),0DH
  56.   0050'   B7                            OR A
  57.   0051'   28 0D                         JR Z,PUSHB1
  58.   0053'   2B                            DEC HL
  59.   0054'   EB                            EX DE,HL
  60.   0055'   06 00                         LD B,0
  61.   0057'   4F                            LD C,A
  62.   0058'   21 buffer                     LD HL,BUFFER
  63.   005B'   09                            ADD HL,BC
  64.   005C'   ED B8                         LDDR
  65.   005E'   EB                            EX DE,HL
  66.   005F'   23                            INC HL
  67.   0060'   22 pbotm              PUSHB1: LD (PBOTM),HL
  68.   0063'   C9                            RET
  69.                                         ;
  70.                                         ; popbottom
  71.                                         ;
  72.   0064'   2A pbotm              POPB:   LD HL,(PBOTM)
  73.   0067'   0E 00                         LD C,0
  74.   0069'   11 buffer                     LD DE,BUFFER
  75.   006C'   13                            INC DE
  76.   006D'   7E                    POPB1:  LD A,(HL)
  77.   006E'   FE 1A                         CP 1AH
  78.   0070'   28 0C                         JR Z,POPB3
  79.   0072'   FE 0D                         CP 0DH
  80.   0074'   28 06                         JR Z,POPB2
  81.   0076'   12                            LD (DE),A
  82.   0077'   13                            INC DE
  83.   0078'   23                            INC HL
  84.   0079'   0C                            INC C
  85.   007A'   18 F1                         JR POPB1
  86.   007C'   23                    POPB2:  INC HL
  87.   007D'   23                            INC HL
  88.   007E'   22 pbotm              POPB3:  LD (PBOTM),HL
  89.   0081'   79                            LD A,C
  90.   0082'   32 buffer                     LD (BUFFER),A
  91.   0085'   C9                            RET
  92.                                         ;
  93.                                         ; topbottom
  94.                                         ;
  95.   0086'   2A ptop               TOPBM:  LD HL,(PTOP)
  96.   0089'   23                            INC HL
  97.   008A'   ED 5B pbotm                   LD DE,(PBOTM)
  98.   008E'   1A                    TOPBM1: LD A,(DE)
  99.   008F'   FE 1A                         CP 1AH
  100.   0091'   28 0B                         JR Z,TOPBM3
  101.   0093'   FE 0D                         CP 0DH
  102.   0095'   28 05                         JR Z,TOPBM2
  103.   0097'   77                            LD (HL),A
  104.   0098'   13                            INC DE
  105.   0099'   23                            INC HL
  106.   009A'   18 F2                         JR TOPBM1
  107.   009C'   13                    TOPBM2: INC DE
  108.   009D'   13                            INC DE
  109.   009E'   ED 53 pbotm           TOPBM3: LD (PBOTM),DE
  110.   00A2'   36 0D                         LD (HL),0DH
  111.   00A4'   23                            INC HL
  112.   00A5'   36 0A                         LD (HL),0AH
  113.   00A7'   22 ptop                       LD (PTOP),HL
  114.   00AA'   C9                            RET
  115.                                         ;
  116.                                         ; bottomtop
  117.                                         ;
  118.   00AB'   2A pbotm              BMTOP:  LD HL,(PBOTM)
  119.   00AE'   2B                            DEC HL
  120.   00AF'   36 0A                         LD (HL),0AH
  121.   00B1'   2B                            DEC HL
  122.   00B2'   36 0D                         LD (HL),0DH
  123.   00B4'   2B                            DEC HL
  124.   00B5'   ED 5B ptop                    LD DE,(PTOP)
  125.   00B9'   1A                            LD A,(DE)
  126.   00BA'   B7                            OR A
  127.   00BB'   28 0F                         JR Z,BMTOP2
  128.   00BD'   1B                            DEC DE
  129.   00BE'   1B                            DEC DE
  130.   00BF'   1A                    BMTOP1: LD A,(DE)
  131.   00C0'   B7                            OR A
  132.   00C1'   28 09                         JR Z,BMTOP2
  133.   00C3'   FE 0A                         CP 0AH
  134.   00C5'   28 05                         JR Z,BMTOP2
  135.   00C7'   77                            LD (HL),A
  136.   00C8'   1B                            DEC DE
  137.   00C9'   2B                            DEC HL
  138.   00CA'   18 F3                         JR BMTOP1
  139.   00CC'   ED 53 ptop            BMTOP2: LD (PTOP),DE
  140.   00D0'   23                            INC HL
  141.   00D1'   22 pbotm                      LD (PBOTM),HL
  142.   00D4'   C9                            RET
  143.                                         ;
  144.                                         ; tline
  145.                                         ;
  146.   00D5'   2A vram1              TLINE:  LD HL,(VRAM1)
  147.   00D8'   ED 5B vram                    LD DE,(VRAM)
  148.   00DC'   3A swidth                     LD A,(SWIDTH)
  149.   00DF'   4F                            LD C,A
  150.   00E0'   06 00                         LD B,0
  151.   00E2'   ED B0                         LDIR
  152.   00E4'   C9                            RET
  153.                                         ;
  154.                                         ; sline
  155.                                         ;
  156.   00E5'   2A vram               SLINE:  LD HL,(VRAM)
  157.   00E8'   3A swidth                     LD A,(SWIDTH)
  158.   00EB'   47                            LD B,A
  159.   00EC'   3E 20                         LD A,' '
  160.   00EE'   77                    SLINE1: LD (HL),A
  161.   00EF'   23                            INC HL
  162.   00F0'   10 FC                         DJNZ SLINE1
  163.   00F2'   C9                            RET
  164.                                         ;
  165.                                         ; pline
  166.                                         ;
  167.   00F3'   21 buffer             PLINE:  LD HL,BUFFER
  168.   00F6'   7E                            LD A,(HL)
  169.   00F7'   23                            INC HL
  170.   00F8'   ED 5B vram                    LD DE,(VRAM)
  171.   00FC'   B7                            OR A
  172.   00FD'   28 05                         JR Z,PLINE1
  173.   00FF'   06 00                         LD B,0
  174.   0101'   4F                            LD C,A
  175.   0102'   ED B0                         LDIR
  176.   0104'   47                    PLINE1: LD B,A
  177.   0105'   3A swidth                     LD A,(SWIDTH)
  178.   0108'   90                            SUB B
  179.   0109'   28 0B                         JR Z,PLINE3
  180.   010B'   38 09                         JR C,PLINE3
  181.   010D'   47                            LD B,A
  182.   010E'   3E 20                         LD A,' '
  183.   0110'   12                    PLINE2: LD (DE),A
  184.   0111'   77                            LD (HL),A
  185.   0112'   13                            INC DE
  186.   0113'   23                            INC HL
  187.   0114'   10 FA                         DJNZ PLINE2
  188.   0116'   C9                    PLINE3: RET
  189.                                         ;
  190.                                         ; searchmem
  191.                                         ;
  192.   0117'   3A char               SEARC1: LD A,(CHAR)
  193.   011A'   ED 4B len                     LD BC,(LEN)
  194.   011E'   2A ptop                       LD HL,(PTOP)
  195.   0121'   ED B9                         CPDR
  196.   0123'   23                            INC HL
  197.   0124'   22 addres                     LD (ADDRES),HL
  198.   0127'   C9                            RET
  199.                                         ;
  200.   0128'   3A char               SEARC2: LD A,(CHAR)
  201.   012B'   ED 4B len                     LD BC,(LEN)
  202.   012F'   2A pbotm                      LD HL,(PBOTM)
  203.   0132'   ED B1                         CPIR
  204.   0134'   2B                            DEC HL
  205.   0135'   22 addres                     LD (ADDRES),HL
  206.   0138'   C9                            RET
  207.                                         ;
  208.                                         ; erasemem
  209.                                         ;
  210.   0139'   ED 4B len             ERASE1: LD BC,(LEN)
  211.   013D'   ED 5B mem1                    LD DE,(MEM1)
  212.   0141'   2A mem2                       LD HL,(MEM2)
  213.   0144'   23                            INC HL
  214.   0145'   ED B0                         LDIR
  215.   0147'   1B                            DEC DE
  216.   0148'   ED 53 ptop                    LD (PTOP),DE
  217.   014C'   C9                            RET
  218.                                         ;
  219.   014D'   ED 4B len             ERASE2: LD BC,(LEN)
  220.   0151'   ED 5B mem2                    LD DE,(MEM2)
  221.   0155'   2A mem1                       LD HL,(MEM1)
  222.   0158'   2B                            DEC HL
  223.   0159'   ED B8                         LDDR
  224.   015B'   13                            INC DE
  225.   015C'   ED 53 pbotm                   LD (PBOTM),DE
  226.   0160'   C9                            RET
  227.                                         ;
  228.