home *** CD-ROM | disk | FTP | other *** search
/ Antic Magazine 1982 August / Antic_August_1982_Vol_1_No_3.atr / rangedel.src < prev    next >
Text File  |  2021-02-19  |  2KB  |  2 lines
  1.     ORG    1536¢STMTAB    EQU    136¢STMCUR    EQU    138¢MEMTOP    EQU    144¢HIADR    EQU    203¢LOADR    EQU    205¢;¢;GET FIRST LINE NUMBER¢;¢    CLD¢    PLA¢    PLA¢    STA    LINNBR+1¢    PLA¢    STA    LINNBR¢;¢;LOCATE ADDRESS OF¢;FIRST LINE NUMBER¢;¢    LDA    STMTAB¢    STA    HIADR¢    LDA    STMTAB+1¢    STA    HIADR+1¢    JSR    SRCHLN¢;¢;SAVE ADDRESS OF FIRST¢;LINE NUMBER¢;¢    LDA    HIADR¢    STA    LOADR¢    LDA    HIADR+1¢    STA    LOADR+1¢;¢;GET LAST LINE NUMER¢;PLUS 1¢;AND IT'S ADDRESS¢;¢    PLA¢    STA    LINNBR+1¢    PLA¢    CLC¢    ADC    #1¢    STA    LINNBR¢    BCC    GETTO¢    INC    LINNBR+1¢GETTO    JSR    SRCHLN¢;¢;LENGTH TO MOVE =¢;MEMTOP -¢;ADDRESS OF LAST LINE¢;¢    SEC¢    LDA    MEMTOP¢    SBC    HIADR¢    STA    MOVLEN¢    LDA    MEMTOP+1¢    SBC    HIADR+1¢    STA    MOVLEN+1¢;¢;LENGTH OF POINTER¢;ADJUSTMENT =¢;HIADR - LOADR¢;¢    SEC¢    LDA    HIADR¢    SBC    LOADR¢    STA    MEMADJ¢    LDA    HIADR+1¢    SBC    LOADR+1¢    STA    MEMADJ+1¢;¢;REMOVE DELETED SPACE¢;¢    LDY    #0¢    LDX    MOVLEN+1¢    BEQ    NOPG¢NXT256    LDA    (HIADR),Y¢    STA    (LOADR),Y¢    INY¢    BNE    NXT256¢    INC    HIADR+1¢    INC    LOADR+1¢    DEX¢    BNE    NXT256¢NOPG    CPY    MOVLEN¢    BEQ    ADJPNT¢    LDA    (HIADR),Y¢    STA    (LOADR),Y¢    INY¢    BNE    NOPG¢;¢;ADJUST BASIC POINTERS¢;¢ADJPNT    LDX    #0¢    LDY    #4¢ADJLOP    SEC¢    LDA    STMCUR,X¢    SBC    MEMADJ¢    STA    STMCUR,X¢    LDA    STMCUR+1,X¢    SBC    MEMADJ+1¢    STA    STMCUR+1,X¢    INX¢    INX¢    DEY¢    BNE    ADJLOP¢;¢;RETURN TO USER¢;¢    RTS¢;¢;SEARCH BASIC'S¢;STATEMENT TABLE FOR A¢;LINE NUMBER => LINNBR¢;¢SRCHLN    LDY    #2¢    LDA    (HIADR),Y¢    STA    LINLEN¢    DEY¢    LDA    (HIADR),Y¢    DEY¢    CMP    #128¢    BEQ    LINRET¢    CMP    LINNBR+1¢    BEQ    LOOKLO¢    BCS    LINRET¢    BCC    BMPLIN¢LOOKLO    LDA    (HIADR),Y¢    CMP    LINNBR¢    BCS    LINRET¢BMPLIN    CLC¢    LDA    LINLEN¢    ADC    HIADR¢    STA    HIADR¢    BCC    SRCHLN¢    INC    HIADR+1¢    BNE    SRCHLN¢LINRET    RTS¢;¢MOVLEN    DB    0¢    DB    0¢LINNBR    DB    0¢    DB    0¢MEMADJ    DB    0¢    DB    0¢LINLEN    DB    0¢;;;    .END¢
  2.