Syzygy Magazine 6/Syzygy_Magazine_6_1999___pl_Disk_2_of_3_Side_A.atr/getpar.arc/GR8V.MAE

Text File | 1988-09-01 | 2KB | 1 lines

.ougr8v.obj¢.insysequ.mae¢¢gr8=$08¢eol=$9b¢pic=$6150¢¢.or$80¢parv.ds2¢¢.or$8000¢startjsrprintf¢.byeol¢.by$7f "    GR8 Picture Viewer" eol¢.by" Example for Get Parameter function" eol¢.by"    DOS II+/D and SpartaDOS only" eol¢.by"    (p) 18 Feb 1999  Lizard/BBSL" eol¢.byeol 0¢jsrgetpar¢bccgfile¢jsrprintf¢.by"Wrong DOS, press any key." eol 0¢¢getkeyldavkbgtch+1¢pha¢ldavkbgtch¢pha¢rts¢¢gfilebnedoit¢jsrprintf¢.by"Usage:" eol¢.by$7f "GR8V.COM picture[.ext]" eol¢.byeol¢.by"While viewing:" eol¢.by$7f "Return" $7f "- inverse colors" eol¢.by$7f "Esc" $7f "- exit" eol 0¢rts¢¢doitstaparv¢styparv+1¢txa¢tay¢lda#$00¢sta(parv),y¢ldyparv¢ldxparv+1¢lda#'.¢jsrstrchr¢bccprinfo¢ldx#$04¢?catldaext,x¢sta(parv),y¢iny¢dex¢bpl?cat¢¢prinfojsrprintf¢.by"File: %p" eol 0¢.woparv¢¢ldx#$10¢lda#copn¢staiccmd,x¢lda#opin¢staicax1,x¢ldaparv¢ldyparv+1¢jsrcio¢bplread¢termrts¢¢readjsrprintf¢.by"Loading... " 0¢¢ldx#$10¢lda#cgbinr¢staiccmd,x¢lda#<7680¢staicbufl,x¢lda#>7680¢staicbufl+1,x¢lda#<pic¢ldy#>pic¢jsrcio¢bmiterm¢¢ldx#$10¢jsrclose¢¢ldaramtop¢pha¢lda#$80¢staramtop¢¢ldx#$60¢lda#copn¢staiccmd,x¢lda#opout!%00100000¢staicax1,x¢lda#gr8¢staicax2,x¢lda#<sname¢ldy#>sname¢jsrcio¢jsrclose¢¢pla¢staramtop¢¢lda#$00¢stacolpf2s¢lda#$0a¢stacolpf1s¢¢loopjsrgetkey¢cmp#eol¢bneexit¢ldacolpf2s¢ldxcolpf1s¢stacolpf1s¢stxcolpf2s¢bplloop¢¢exitcmp#$1b¢bneloop¢jmp(dosvec)¢¢ciostaicbufa,x¢tya¢staicbufa+1,x¢jsrjciomain¢bpl?ok¢styext¢jsrprintf¢.by"error: %b" eol 0¢.woext¢ldyext¢?okrts¢¢closelda#cclose¢staiccmd,x¢jmpjciomain¢¢strchrsty?str+1¢stx?str+2¢sta?chr+1¢ldy#$ff¢?lpiny¢?strlda0,y¢beq?no¢?chrcmp#$00¢bne?lp¢clc¢rts¢?nosec¢rts¢¢.inpf.mae¢.ingetpar.mae¢¢ext.by0 "8RG."¢sname.by"S:"¢.en¢