Subversion Repositories Spectranet

[/] [branches/] [gnubinutils/] [modules/] [basext/] [listdir.asm] - Diff between revs 380 and 393

Show entire file | Details | Blame | View Log

Rev 380 Rev 393
Line 43... Line 43...
        call READDIR                    ; read dir
        call READDIR                    ; read dir
        jr c, .readdone1                 ; read is probably at EOF
        jr c, .readdone1                 ; read is probably at EOF
        call F_statentry                ; show some information about it
        call F_statentry                ; show some information about it
        ld hl, INTERPWKSPC
        ld hl, INTERPWKSPC
        call F_tbas_zxprint             ; print a C string to #2
        call F_tbas_zxprint             ; print a C string to #2
        ld a, NEWLINE                    ; newline
        ld a, ZXNEWLINE                 ; newline
        rst CALLBAS
        rst CALLBAS
        defw 0x10
        defw 0x10
        jr .catloop1
        jr .catloop1
.readdone1:
.readdone1:
        push af                         ; save error code while
        push af                         ; save error code while