home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Serious Magazine 12
/
Serious_Magazine_12_2003_01_07_Dial_pl_Side_B.atr
/
stuff1.arc
/
PLIKI.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-09-01
|
5KB
|
1 lines
* Praca konkursowa Zenon/DIAL¢* by wygrac DRC :)¢¢ org 9000¢ opt 1+4+32¢¢iocb equ $340¢chn0 equ 0¢chn1 equ 16¢open equ 3¢close equ 12¢com equ iocb+2¢adr equ iocb+4¢len equ iocb+8¢mod equ iocb+10¢putb equ 11¢gett equ 5¢getb equ 7¢in equ 4¢eol equ 155¢ciov equ $e456¢kbcodes equ 764¢crs equ 755¢runadr equ $2e0¢wkur equ 84¢kkur equ 85¢¢rozm1 equ 203¢rozm2 equ 205¢¢pocz lda 731¢ pha¢ lda 709¢ pha¢ lda 710¢ pha¢ lda 712¢ pha¢ lda crs¢ pha¢¢start lda #1¢ sta crs¢ sta 731¢ lda #255¢ sta kbcodes¢ lda #10¢ sta 709¢ lda #4¢ sta 710¢ sta 712¢* Text0¢ ldx #chn0¢ lda #putb¢ sta com,x¢ lda <text0¢ sta adr,x¢ lda >text0¢ sta adr+1,x¢ lda <len0¢ sta len,x¢ lda >len0¢ sta len+1,x¢ jsr ciov¢¢* Nazwa pliku 1¢¢ lda #10¢ sta wkur¢ sta kkur¢ lda #28¢ sta kbcodes¢ lda #2¢ sta crs¢ jsr nazwa¢¢* Otworz kanal 1¢¢ jsr otworz¢¢ lda #getb¢ sta com,x¢ lda <buf1¢ sta adr,x¢ lda >buf1¢ sta adr+1,x¢ lda #255¢ sta len,x¢ sta len+1,x¢ jsr ciov¢¢ lda #14¢ sta wkur¢ lda #10¢ sta kkur¢ lda #28¢ sta kbcodes¢¢ lda len,x¢ sta rozm1¢ lda len+1,x¢ sta rozm1+1¢¢ jsr zamk¢¢* Nazwa pliku 2¢¢ jsr nazwa¢¢* Otworz kanal 1¢¢ jsr otworz¢¢ lda #getb¢ sta com,x¢ lda <buf2¢ sta adr,x¢ lda >buf2¢ sta adr+1,x¢ lda #255¢ sta len,x¢ sta len+1,x¢ jsr ciov¢¢ lda len,x¢ sta rozm2¢ lda len+1,x¢ sta rozm2+1¢¢ jsr zamk¢¢* Porownanie plikow¢¢ lda rozm1+1¢ cmp rozm2+1¢ bne nie ;nie rowne, skok¢* ;rowne, dalej¢ lda rozm1¢ cmp rozm2¢ bne nie ;nie rowne, skok¢¢* ;rowne, dalej¢* Tak¢ lda <buf1¢ sta 205¢ lda >buf1¢ sta 206¢¢ lda <buf2¢ sta 207¢ lda >buf2¢ sta 208¢¢ ldy #0¢s1 lda (205),y¢ cmp (207),y¢ bne nie¢ clc¢ lda 205¢ adc #1¢ sta 205¢ lda 206¢ adc #0¢ sta 206¢ clc¢ lda 207¢ adc #1¢ sta 207¢ lda 208¢ adc #0¢ sta 208¢ sec¢ lda 203¢ sbc #1¢ sta 203¢ lda 204¢ sbc #0¢ sta 204¢¢ cmp #0¢ bne s1¢ lda 203¢ cmp #0¢ bne s1¢¢* Komuniket rowne¢¢ lda #20¢ sta kkur¢ lda #5¢ sta wkur¢¢ ldx #chn0¢ lda #putb¢ sta com,x¢ lda <text6¢ sta adr,x¢ lda >text6¢ sta adr+1,x¢ lda <len6¢ sta len,x¢ lda >len6¢ sta len+1,x¢ jsr ciov¢¢ jmp L3¢¢nie lda #21¢ sta kkur¢ lda #5¢ sta wkur¢¢ ldx #chn0¢ lda #putb¢ sta com,x¢ lda <text5¢ sta adr,x¢ lda >text5¢ sta adr+1,x¢ lda <len5¢ sta len,x¢ lda >len5¢ sta len+1,x¢ jsr ciov¢¢* Text4¢L3 lda #18¢ sta wkur¢ lda #3¢ sta kkur¢¢ ldx #chn0¢ lda #putb¢ sta com,x¢ lda <text4¢ sta adr,x¢ lda >text4¢ sta adr+1,x¢ lda <len4¢ sta len,x¢ lda >len4¢ sta len+1,x¢ jsr ciov¢¢ lda #2¢ sta crs¢¢klawisz lda #255¢ sta kbcodes¢ka lda kbcodes¢ cmp #28¢ beq end¢ cmp #12¢ bne ka¢ jmp start¢¢* Nazwa pliku¢¢nazwa ldx #chn0¢ lda #gett¢ sta com,x¢ lda <name¢ sta adr,x¢ lda >name¢ sta adr+1,x¢ lda #255¢ sta len,x¢ sta len+1,x¢ jsr ciov¢ rts¢¢* Otworz kanal 1¢¢otworz ldx #chn1¢ lda #open¢ sta com,x¢ lda <name¢ sta adr,x¢ lda >name¢ sta adr+1,x¢ lda #in¢ sta mod,x¢ jsr ciov¢ rts¢¢zamk lda #close¢ sta com,x¢ jsr ciov¢ rts¢¢end pla¢ sta crs¢ pla¢ sta 712¢ pla¢ sta 710¢ pla¢ sta 709¢ pla¢ sta 731¢¢ jmp (10)¢¢text0 dta b(125)¢ dta c'Wczyta i sprawdzi dwa pliki po: 19kB',b(eol)¢ dta c' Zenon Rakoczy 25.12.1993r.',b(eol)¢ dta c'------------------------------------',b(eol)¢ dta b(eol)¢ dta c'①②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②❎',b(eol)¢ dta c'⑥Status operacji: D:NAZWA.EXE ⇩',b(eol)¢ dta c'ə②②②②②②②②②②②②②②②②②⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤⑤②⇨',b(eol)¢ dta b(eol)¢ dta b(eol)¢ dta b(eol)¢ dta c'Plik 1: ',b(eol)¢ dta b(eol)¢ dta c' - - - - - - - - - - -',b(eol)¢ dta b(eol)¢ dta c'Plik 2: ',b(eol)¢ dta b(eol)¢ dta c' - - - - - - - - - - -',b(eol)¢ dta b(eol)¢len0 equ *-text0¢¢text4 dta c'I na tym koniec. '¢ dta b(eol)¢len4 equ *-text4¢¢text5 dta c'Inne programy'¢len5 equ *-text5¢¢text6 dta c'Te same programy'¢len6 equ *-text6¢¢name org *+16¢buf1 org *+19000¢buf2 org *+19000¢¢ org runadr¢ dta a(pocz)¢¢ end of file¢¢