home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / pdp11 / k11atr.slp < prev    next >
Text File  |  1996-10-16  |  768b  |  23 lines
  1. -2,4,/;BQT/
  2.     .ident    /1.0.03/
  3.     .enabl    gbl
  4.  
  5. ;    17-Oct-96  13:29:10 Johnny Billquist
  6. ;                Corrected a bug if attribute packets
  7. ;                was zero length.
  8. ;
  9. -223,231,/;BQT/
  10. sn.typ: movb    #42     ,(r4)+          ; attribute type
  11.         movb    #41     ,(r4)+          ; /49/ Length of what follows
  12.         movb    #'A&137 ,@r4            ; assume ascii
  13.         cmpb    image   ,#binary        ; already decided that it's binary?
  14.         bne     10$                     ; no
  15.         movb    #'B&137 ,@r4            ; yes, say it's BINARY mode today
  16. 10$:    clrb    1(r4)                   ; insure .asciz
  17.         clr     r0                      ; flag success and exit
  18.         return                          ; bye
  19.  
  20. -296,296,/;BQT/
  21.     ble    90$            ; /49/ Again, nothing was there
  22. /
  23.