BMPPUT TITLE 'SAMPLE 3270 NATIVE VECTOR GRAPHICS BITMAP DISPLAY' *********************************************************************** * * SAMPLE APPLICATION TO DEMONSTRATE 3270 GRAPHICS * * * WRITTEN BY GREG PRICE OF PRYCROFT SIX PTY LTD, JANUARY 2008. * * * GENERALLY AVAILABLE FROM: * WWW.PRYCROFT6.COM.AU * * ARCHITECTURE CODING LEVEL: * SYSTEM/370 * * OPERATING SYSTEM PLATFORM: * MVS * * THIS PROGRAM USES MACROS FROM: * SYS1.MACLIB * * EXECUTION ENVIROMENT: * TSO SESSION UNDER TSO/VTAM * * * WARNING: * THE CODE TO QUERY THE TSO TERMINAL TO VERIFY * THAT THE REQUIRED GRAPHICS SUPPORT IS PRESENT * IS NOT CODED IN THIS PROGRAM. * *********************************************************************** BMPPUT CSECT STM 14,12,12(13) LR 11,15 USING BMPPUT,11 STFSMODE ON,INITIAL=YES RESHOW TPUT BMPWSF,BMPWSFLN,NOEDIT TPUT FSTEXT,FSTEXTL,FULLSCR,WAIT,HOLD TGET INBUFF,INBUFLEN,ASIS,WAIT CH 1,=H'3' BL RESHOW STLINENO LINE=1,MODE=OFF LM 14,12,12(13) SR 15,15 BR 14 LTORG FSTEXT DC X'C3114040131DF8' DC C'BMPPUT - GP@P6 2008' FSTEXTL EQU *-FSTEXT DC 0D'0' INBUFF DC XL256'00' INBUFLEN EQU *-INBUFF * BITMAP DISPLAY TPUT DATA STREAM BMPWSF DC X'F3' WRITE STRUCTURED FIELD DC AL2(4) LENGTH OF FIRST STRUCTURED FIELD DC X'03' ERASE/RESET DC X'00' IMPLICIT PARTITION SIZE - DEFAULT * EQU X'80' ALTERNATE PARTITION SIZE * BMPSFLD EQU * START OF STRUCTURED FIELD DC AL2(BMPSFLDL) LENGTH OF STRUCTURED FIELD DC X'0F10' GRAPHIC PICTURE DC X'00' PARTITION IDENTIFIER (PID) DC B'11000000' FLAGS - SPAN : FIRST AND LAST * - MODE : INTERMEDIATE MODE DC X'00' RESERVED * DC X'70' BEGIN SEGMENT DC AL1(12) LENGTH OF FOLLOWING PARAMETERS DC CL4'BTMP' NAME OF PROCEDURE TO BE CREATED DC B'01110100' VISIBLE NOHILITE DC B'01101000' NOPROL NEW SEG DATA DC AL2(SEGLEN) LENGTH OF PROCEDURE TO BE CREATED DC X'00000000' P/S NAME BMPSEG EQU * START OF SEGMENT DATA DC X'0C',AL1(4) SET MIX (XOR) DC X'21',AL1(4) SET CURRENT POSITION DC HL2'-60' X CO-ORDINATE RELATIVE TO CENTRE DC HL2'60' Y CO-ORDINATE RELATIVE TO CENTRE * BLUE PLANE DC X'0A',AL1(1) SET COLOR - BLUE DC X'91',AL1(6) IMAGE BEGIN, PARM LENGTH DC AL2(0) RESERVED DC AL2(120) IMAGE X DIMENSION PIXEL SIZE DC AL2(120) IMAGE Y DIMENSION PIXEL SIZE * IMAGE LINES HAVE THE FORMAT: * DC X'92',AL1(##),XL##'....' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFF7FFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFF9668FFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFF8FFFFBFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFCFFFFFF7FFFFFFFFFFF' DC X'920FFFFFFFFFFFFBFFFFFFDFFFFFFFFFFF' DC X'920FFFFFFFFFFFEFFFFFFFF7FFFFFFFFFF' DC X'920FFFFFFFFFFFBFFFFFFFF9FFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFEFFFFFFFFFF' DC X'920FFFFFFFFFFCFFFFFFFFFFBFFFFFFFFF' DC X'920FFFFFFFFFFBFFFFFFFFFFDFFFFFFFFF' DC X'920FFFFFFFFFF7FFFFFFFFFFEFFFFFFFFF' DC X'920FFFFFFFFFEFFFFFFFFFFFF7FFFFFFFF' DC X'920FFFFFFFFFDFFFFFFFFFFFF7FFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFF9FFFFFFFF' DC X'920FFFFFFFFFBFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFF7FFFFFFFFFFFFEFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFF7FFFFFFF' DC X'920FFFFFFFFEFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFDFFFFFFFFFFFFFFBFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFBFFFFFFFFFFFFFFDFFFFFFF' DC X'920FFFFFFFFBFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFEFFFFFFF' DC X'920FFFFFFFF7FFFFFFFFFFFFFFEFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFF7FFFFFF' DC X'920FFFFFFFEFFFFFFFFFFFFFFFF7FFFFFF' DC X'920FFFFFFFEFFFFFFFFFFFFFFFF7FFFFFF' DC X'920FFFFFFFEFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFF7FFFFFF' DC X'920FFFFFFFEFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' DC X'920FFFFFFFDFFFFFFFFFFFFFFFFFFFFFFF' DC X'920F00000020000000000000000C000000' DC X'920F00000000000000000000000C000000' DC X'920F00000000000000000000000C000000' DC X'920F00000000000000000000000C000000' DC X'920F00000000000000000000001C000000' DC X'920F000000000000000000000008000000' DC X'920F000000000000000000000018000000' DC X'920F000000000000000000000018000000' DC X'920F000000000000000000000018000000' DC X'920F000000000000000000000018000000' DC X'920F000000000000000000000030000000' DC X'920F000000000000000000000030000000' DC X'920F000000000000000000000060000000' DC X'920F000000000000000000000060000000' DC X'920F0000000000000000000000E0000000' DC X'920F0000000000000000000000C0000000' DC X'920F0000000000000000000001C0000000' DC X'920F000000000000000000000180000000' DC X'920F000000000000000000000300000000' DC X'920F000000000000000000000700000000' DC X'920F000000000000000000000E00000000' DC X'920F000000000000000000000C00000000' DC X'920F000000000000000000001800000000' DC X'920F000000000400000000003800000000' DC X'920F00000000000000000000E000000000' DC X'920F00000000000000000000C000000000' DC X'920F000000000000000000038000000000' DC X'920F0000000000000000000F0000000000' DC X'920F0000000000000000003C0000000000' DC X'920F000000000000000000F80000000000' DC X'920F000000000000000007E00000000000' DC X'920F00000000000000007F800000000000' DC X'920F000000000000009FF8000000000000' DC X'920F000000000000001FC0000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' DC X'920F000000000000000000000000000000' * 1800 BYTES IN PLANE BITMAP DC X'93',AL1(2),AL2(0) IMAGE END * RED PLANE DC X'0A',AL1(2) SET COLOR - RED DC X'91',AL1(6) IMAGE BEGIN, PARM LENGTH DC AL2(0) RESERVED DC AL2(120) IMAGE X DIMENSION PIXEL SIZE DC AL2(120) IMAGE Y DIMENSION PIXEL SIZE DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F0000000000000007FFFFFFFFFFFFFF' DC X'920F00000000000000068FFFFFFFFFFFFF' DC X'920F000000000000000FFBFFFFFFFFFFFF' DC X'920F000000000000000FFF7FFFFFFFFFFF' DC X'920F000000000000000FFFDFFFFFFFFFFF' DC X'920F000000000000000FFFF7FFFFFFFFFF' DC X'920F000000000000000FFFF9FFFFFFFFFF' DC X'920F000000000000000FFFFEFFFFFFFFFF' DC X'920F000000000000000FFFFFBFFFFFFFFF' DC X'920F000000000000000FFFFFDFFFFFFFFF' DC X'920F000000000000000FFFFFEFFFFFFFFF' DC X'920F000000000000000FFFFFF7FFFFFFFF' DC X'920F000000000000000FFFFFF7FFFFFFFF' DC X'920F000000000000000FFFFFF9FFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFEFFFFFFFF' DC X'920F000000000000000FFFFFFF7FFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFBFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFDFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFEFFFFFFF' DC X'920F000000000000000FFFFFFFEFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFF7FFFFFF' DC X'920F000000000000000FFFFFFFF7FFFFFF' DC X'920F000000000000000FFFFFFFF7FFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFF7FFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920F000000000000000FFFFFFFFFFFFFFF' DC X'920FFFFFFFEFFFFFFFF00000000C000000' DC X'920FFFFFFFFFFFFFFFF00000000C000000' DC X'920FFFFFFFFFFFFFFFF00000000C000000' DC X'920FFFFFFFEFFFFFFFF00000000C000000' DC X'920FFFFFFFEFFFFFFFF00000001C000000' DC X'920FFFFFFFEFFFFFFFF000000008000000' DC X'920FFFFFFFFFFFFFFFF000000018000000' DC X'920FFFFFFFEFFFFFFFF000000018000000' DC X'920FFFFFFFFFFFFFFFF000000018000000' DC X'920FFFFFFFF7FFFFFFF000000018000000' DC X'920FFFFFFFF7FFFFFFF000000030000000' DC X'920FFFFFFFFFFFFFFFF000000030000000' DC X'920FFFFFFFFFFFFFFFF000000060000000' DC X'920FFFFFFFFBFFFFFFF000000060000000' DC X'920FFFFFFFFDFFFFFFF0000000E0000000' DC X'920FFFFFFFFFFFFFFFF0000000C0000000' DC X'920FFFFFFFFEFFFFFFF0000001C0000000' DC X'920FFFFFFFFFFFFFFFF000000180000000' DC X'920FFFFFFFFF7FFFFFF000000300000000' DC X'920FFFFFFFFFBFFFFFF000000700000000' DC X'920FFFFFFFFFDFFFFFF000000E00000000' DC X'920FFFFFFFFFEFFFFFF000000C00000000' DC X'920FFFFFFFFFFFFFFFF000001800000000' DC X'920FFFFFFFFFF7FFFFF000003800000000' DC X'920FFFFFFFFFFBFFFFF00000E000000000' DC X'920FFFFFFFFFFCFFFFF00000C000000000' DC X'920FFFFFFFFFFF7FFFF000038000000000' DC X'920FFFFFFFFFFFDFFFF0000F0000000000' DC X'920FFFFFFFFFFFEFFFF0003C0000000000' DC X'920FFFFFFFFFFFF3FFF000F80000000000' DC X'920FFFFFFFFFFFFE7FF007E00000000000' DC X'920FFFFFFFFFFFFFDFF07F800000000000' DC X'920FFFFFFFFFFFFFF4FFF8000000000000' DC X'920FFFFFFFFFFFFFFFFFC0000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' * 1800 BYTES IN PLANE BITMAP DC X'93',AL1(2),AL2(0) IMAGE END * GREEN PLANE DC X'0A',AL1(4) SET COLOR - GREEN DC X'91',AL1(6) IMAGE BEGIN, PARM LENGTH DC AL2(0) RESERVED DC AL2(120) IMAGE X DIMENSION PIXEL SIZE DC AL2(120) IMAGE Y DIMENSION PIXEL SIZE DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFF96000000000000000' DC X'920FFFFFFFFFFFFF8FF000000000000000' DC X'920FFFFFFFFFFFFCFFF000000000000000' DC X'920FFFFFFFFFFFFBFFF000000000000000' DC X'920FFFFFFFFFFFEFFFF000000000000000' DC X'920FFFFFFFFFFFBFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFCFFFFF000000000000000' DC X'920FFFFFFFFFFBFFFFF000000000000000' DC X'920FFFFFFFFFF7FFFFF000000000000000' DC X'920FFFFFFFFFEFFFFFF000000000000000' DC X'920FFFFFFFFFDFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFBFFFFFF000000000000000' DC X'920FFFFFFFFF7FFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFEFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFDFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFBFFFFFFF000000000000000' DC X'920FFFFFFFFBFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFF7FFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFEFFFFFFFF000000000000000' DC X'920FFFFFFFEFFFFFFFF000000000000000' DC X'920FFFFFFFEFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFEFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFDFFFFFFFF000000008000000' DC X'920FFFFFFFEFFFFFFFF00000000C000000' DC X'920FFFFFFFFFFFFFFFF00000000C000000' DC X'920FFFFFFFFFFFFFFFF00000000C000000' DC X'920FFFFFFFEFFFFFFFF00000000C000000' DC X'920FFFFFFFFFFFFFFFF00000000C000000' DC X'920FFFFFFFEFFFFFFFF000000008000000' DC X'920FFFFFFFEFFFFFFFF000000018000000' DC X'920FFFFFFFFFFFFFFFF000000018000000' DC X'920FFFFFFFFFFFFFFFF000000018000000' DC X'920FFFFFFFF7FFFFFFF000000018000000' DC X'920FFFFFFFFFFFFFFFF000000030000000' DC X'920FFFFFFFFFFFFFFFF000000030000000' DC X'920FFFFFFFFBFFFFFFF000000020000000' DC X'920FFFFFFFFFFFFFFFF000000060000000' DC X'920FFFFFFFFDFFFFFFF000000060000000' DC X'920FFFFFFFFDFFFFFFF0000000C0000000' DC X'920FFFFFFFFFFFFFFFF0000001C0000000' DC X'920FFFFFFFFFFFFFFFF000000180000000' DC X'920FFFFFFFFF7FFFFFF000000300000000' DC X'920FFFFFFFFFBFFFFFF000000700000000' DC X'920FFFFFFFFFDFFFFFF000000600000000' DC X'920FFFFFFFFFFFFFFFF000000C00000000' DC X'920FFFFFFFFFEFFFFFF000001800000000' DC X'920FFFFFFFFFF7FFFFF000003800000000' DC X'920FFFFFFFFFFBFFFFF000006000000000' DC X'920FFFFFFFFFFEFFFFF00000C000000000' DC X'920FFFFFFFFFFF7FFFF000038000000000' DC X'920FFFFFFFFFFFBFFFF000070000000000' DC X'920FFFFFFFFFFFEFFFF0001C0000000000' DC X'920FFFFFFFFFFFFBFFF000F80000000000' DC X'920FFFFFFFFFFFFEFFF003E00000000000' DC X'920FFFFFFFFFFFFF9FF03F000000000000' DC X'920FFFFFFFFFFFFFF8FFF8000000000000' DC X'920FFFFFFFFFFFFFFFFF80000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' DC X'920FFFFFFFFFFFFFFFF000000000000000' * 1800 BYTES IN PLANE BITMAP DC X'93',AL1(2),AL2(0) IMAGE END * SEGLEN EQU *-BMPSEG BMPSFLDL EQU *-BMPSFLD BMPWSFLN EQU *-BMPWSF * DC 0D'0' END OF CSECT END BMPPUT